From 2b38b8c0e8d67a6829e4acc6116231f8ba0b1af2 Mon Sep 17 00:00:00 2001 From: Tobias Doerffel Date: Mon, 25 Sep 2006 11:26:48 +0000 Subject: [PATCH] added CAPS, several bugfixes git-svn-id: https://lmms.svn.sf.net/svnroot/lmms/trunk/lmms@414 0778d3d1-df1d-0410-868b-ea421aaaa00d --- ChangeLog | 23 + configure.in | 5 +- data/projects/cool_songs/Malex-Horizon4.mmp | 4127 ++++++++++-- .../cool_songs/StrictProduction-Underline.mmp | 5068 ++++++++++++++ .../projects/demos/Zvonsully-RaceTheZBeat.mmp | 5876 +++++++++-------- plugins/ladspa_base/ladspa_manager.cpp | 7 +- plugins/ladspa_effect/Makefile.am | 4 +- plugins/ladspa_effect/caps/Amp.cc | 486 ++ plugins/ladspa_effect/caps/Amp.h | 339 + plugins/ladspa_effect/caps/Cabinet-Models32.h | 187 + plugins/ladspa_effect/caps/Cabinet.cc | 314 + plugins/ladspa_effect/caps/Cabinet.h | 142 + plugins/ladspa_effect/caps/Chorus.cc | 518 ++ plugins/ladspa_effect/caps/Chorus.h | 323 + plugins/ladspa_effect/caps/Click.cc | 235 + plugins/ladspa_effect/caps/Click.h | 104 + plugins/ladspa_effect/caps/Clip.cc | 148 + plugins/ladspa_effect/caps/Clip.h | 90 + plugins/ladspa_effect/caps/Compress.cc | 159 + plugins/ladspa_effect/caps/Compress.h | 81 + plugins/ladspa_effect/caps/Descriptor.h | 163 + plugins/ladspa_effect/caps/Eq.cc | 169 + plugins/ladspa_effect/caps/Eq.h | 67 + plugins/ladspa_effect/caps/HRTF.cc | 151 + plugins/ladspa_effect/caps/HRTF.h | 77 + plugins/ladspa_effect/caps/Lorenz.cc | 115 + plugins/ladspa_effect/caps/Lorenz.h | 66 + plugins/ladspa_effect/caps/Pan.cc | 162 + plugins/ladspa_effect/caps/Pan.h | 90 + plugins/ladspa_effect/caps/Phaser.cc | 235 + plugins/ladspa_effect/caps/Phaser.h | 176 + plugins/ladspa_effect/caps/Preamp.cc | 247 + plugins/ladspa_effect/caps/README | 67 + plugins/ladspa_effect/caps/Reverb.cc | 504 ++ plugins/ladspa_effect/caps/Reverb.h | 268 + plugins/ladspa_effect/caps/Roessler.cc | 121 + plugins/ladspa_effect/caps/Roessler.h | 66 + plugins/ladspa_effect/caps/Scape.cc | 203 + plugins/ladspa_effect/caps/Scape.h | 94 + plugins/ladspa_effect/caps/Sin.cc | 96 + plugins/ladspa_effect/caps/Sin.h | 66 + plugins/ladspa_effect/caps/SweepVF.cc | 331 + plugins/ladspa_effect/caps/SweepVF.h | 123 + plugins/ladspa_effect/caps/ToneControls.cc | 73 + plugins/ladspa_effect/caps/VCO.cc | 252 + plugins/ladspa_effect/caps/VCO.h | 145 + plugins/ladspa_effect/caps/White.cc | 81 + plugins/ladspa_effect/caps/White.h | 68 + plugins/ladspa_effect/caps/basics.h | 135 + plugins/ladspa_effect/caps/click.h | 520 ++ plugins/ladspa_effect/caps/dsp/BiQuad.h | 153 + plugins/ladspa_effect/caps/dsp/Delay.h | 171 + plugins/ladspa_effect/caps/dsp/Eq.h | 175 + plugins/ladspa_effect/caps/dsp/FIR.h | 255 + .../ladspa_effect/caps/dsp/FPTruncateMode.h | 56 + plugins/ladspa_effect/caps/dsp/Lorenz.h | 108 + plugins/ladspa_effect/caps/dsp/OnePole.h | 113 + plugins/ladspa_effect/caps/dsp/RBJ.h | 240 + plugins/ladspa_effect/caps/dsp/RMS.h | 65 + plugins/ladspa_effect/caps/dsp/Roessler.h | 100 + plugins/ladspa_effect/caps/dsp/SVF.h | 190 + plugins/ladspa_effect/caps/dsp/Sine.h | 95 + plugins/ladspa_effect/caps/dsp/TwelveAX7.h | 240 + plugins/ladspa_effect/caps/dsp/VCO.h | 224 + plugins/ladspa_effect/caps/dsp/White.h | 82 + plugins/ladspa_effect/caps/dsp/r12ax7.h | 459 ++ plugins/ladspa_effect/caps/dsp/sinc.h | 58 + plugins/ladspa_effect/caps/dsp/util.h | 75 + plugins/ladspa_effect/caps/dsp/windows.h | 163 + plugins/ladspa_effect/caps/elev0.h | 344 + plugins/ladspa_effect/caps/interface.cc | 126 + plugins/ladspa_effect/caps/money.h | 2715 ++++++++ plugins/vst_effect/vst_control_dialog.cpp | 5 - src/lib/mmp.cpp | 2 +- 74 files changed, 26142 insertions(+), 3239 deletions(-) create mode 100644 data/projects/cool_songs/StrictProduction-Underline.mmp create mode 100644 plugins/ladspa_effect/caps/Amp.cc create mode 100644 plugins/ladspa_effect/caps/Amp.h create mode 100644 plugins/ladspa_effect/caps/Cabinet-Models32.h create mode 100644 plugins/ladspa_effect/caps/Cabinet.cc create mode 100644 plugins/ladspa_effect/caps/Cabinet.h create mode 100644 plugins/ladspa_effect/caps/Chorus.cc create mode 100644 plugins/ladspa_effect/caps/Chorus.h create mode 100644 plugins/ladspa_effect/caps/Click.cc create mode 100644 plugins/ladspa_effect/caps/Click.h create mode 100644 plugins/ladspa_effect/caps/Clip.cc create mode 100644 plugins/ladspa_effect/caps/Clip.h create mode 100644 plugins/ladspa_effect/caps/Compress.cc create mode 100644 plugins/ladspa_effect/caps/Compress.h create mode 100644 plugins/ladspa_effect/caps/Descriptor.h create mode 100644 plugins/ladspa_effect/caps/Eq.cc create mode 100644 plugins/ladspa_effect/caps/Eq.h create mode 100644 plugins/ladspa_effect/caps/HRTF.cc create mode 100644 plugins/ladspa_effect/caps/HRTF.h create mode 100644 plugins/ladspa_effect/caps/Lorenz.cc create mode 100644 plugins/ladspa_effect/caps/Lorenz.h create mode 100644 plugins/ladspa_effect/caps/Pan.cc create mode 100644 plugins/ladspa_effect/caps/Pan.h create mode 100644 plugins/ladspa_effect/caps/Phaser.cc create mode 100644 plugins/ladspa_effect/caps/Phaser.h create mode 100644 plugins/ladspa_effect/caps/Preamp.cc create mode 100644 plugins/ladspa_effect/caps/README create mode 100644 plugins/ladspa_effect/caps/Reverb.cc create mode 100644 plugins/ladspa_effect/caps/Reverb.h create mode 100644 plugins/ladspa_effect/caps/Roessler.cc create mode 100644 plugins/ladspa_effect/caps/Roessler.h create mode 100644 plugins/ladspa_effect/caps/Scape.cc create mode 100644 plugins/ladspa_effect/caps/Scape.h create mode 100644 plugins/ladspa_effect/caps/Sin.cc create mode 100644 plugins/ladspa_effect/caps/Sin.h create mode 100644 plugins/ladspa_effect/caps/SweepVF.cc create mode 100644 plugins/ladspa_effect/caps/SweepVF.h create mode 100644 plugins/ladspa_effect/caps/ToneControls.cc create mode 100644 plugins/ladspa_effect/caps/VCO.cc create mode 100644 plugins/ladspa_effect/caps/VCO.h create mode 100644 plugins/ladspa_effect/caps/White.cc create mode 100644 plugins/ladspa_effect/caps/White.h create mode 100644 plugins/ladspa_effect/caps/basics.h create mode 100644 plugins/ladspa_effect/caps/click.h create mode 100644 plugins/ladspa_effect/caps/dsp/BiQuad.h create mode 100644 plugins/ladspa_effect/caps/dsp/Delay.h create mode 100644 plugins/ladspa_effect/caps/dsp/Eq.h create mode 100644 plugins/ladspa_effect/caps/dsp/FIR.h create mode 100644 plugins/ladspa_effect/caps/dsp/FPTruncateMode.h create mode 100644 plugins/ladspa_effect/caps/dsp/Lorenz.h create mode 100644 plugins/ladspa_effect/caps/dsp/OnePole.h create mode 100644 plugins/ladspa_effect/caps/dsp/RBJ.h create mode 100644 plugins/ladspa_effect/caps/dsp/RMS.h create mode 100644 plugins/ladspa_effect/caps/dsp/Roessler.h create mode 100644 plugins/ladspa_effect/caps/dsp/SVF.h create mode 100644 plugins/ladspa_effect/caps/dsp/Sine.h create mode 100644 plugins/ladspa_effect/caps/dsp/TwelveAX7.h create mode 100644 plugins/ladspa_effect/caps/dsp/VCO.h create mode 100644 plugins/ladspa_effect/caps/dsp/White.h create mode 100644 plugins/ladspa_effect/caps/dsp/r12ax7.h create mode 100644 plugins/ladspa_effect/caps/dsp/sinc.h create mode 100644 plugins/ladspa_effect/caps/dsp/util.h create mode 100644 plugins/ladspa_effect/caps/dsp/windows.h create mode 100644 plugins/ladspa_effect/caps/elev0.h create mode 100644 plugins/ladspa_effect/caps/interface.cc create mode 100644 plugins/ladspa_effect/caps/money.h diff --git a/ChangeLog b/ChangeLog index 91cc8d7f3..ade0061c1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,26 @@ +2006-09-25 Tobias Doerffel + + * plugins/vst_effect/vst_control_dialog.cpp: + do not try to reparent effect's plugin-widget in destructor - fixes + crash when deleting vst-effect from effect-chain + + * src/lib/mmp.cpp: + do not indent mmp-files anymore as it wastes *a lot* of unneccesary + space + + * data/projects/cool_songs/StrictProduction-Underline.mmp: + added another cool project + + * plugins/ladspa_base/ladspa_manager.cpp: + - always add /usr/lib/ladspa and /usr/local/lib/ladspa to directories + where to search for LADSPA-plugins + - also search in /usr/lib/lmms/ladspa for LADSPA-plugins (that's where + for example CAPS is installed) + + * plugins/ladspa_effect/caps/: + added CAPS (C Audio Plugin Suite) for providing a basic LADSPA-plugin- + collection + 2006-09-23 Tobias Doerffel * plugins/vst_effect/vst_control_dialog.cpp: diff --git a/configure.in b/configure.in index a9aaf0738..3e50a8ec5 100644 --- a/configure.in +++ b/configure.in @@ -2,8 +2,8 @@ # Process this file with autoconf to produce a configure script. AC_PREREQ(2.50) -AC_INIT(lmms, 0.2.1-svn20060923, lmms-devel/at/lists/dot/sf/dot/net) -AM_INIT_AUTOMAKE(lmms, 0.2.1-svn20060923) +AC_INIT(lmms, 0.2.1-svn20060925, lmms-devel/at/lists/dot/sf/dot/net) +AM_INIT_AUTOMAKE(lmms, 0.2.1-svn20060925) AM_CONFIG_HEADER(config.h) @@ -508,6 +508,7 @@ AC_CONFIG_FILES([Makefile plugins/flp_import/Makefile plugins/ladspa_base/Makefile plugins/ladspa_effect/Makefile + plugins/ladspa_effect/caps/Makefile plugins/midi_import/Makefile plugins/organic/Makefile plugins/plucked_string_synth/Makefile diff --git a/data/projects/cool_songs/Malex-Horizon4.mmp b/data/projects/cool_songs/Malex-Horizon4.mmp index b54d8ff02..98038747d 100644 --- a/data/projects/cool_songs/Malex-Horizon4.mmp +++ b/data/projects/cool_songs/Malex-Horizon4.mmp @@ -1,428 +1,3706 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +

HORIZON4 - by Malex

http://MalexMedia.Net/

Here is yet another (fairly poor) rendition of the popular 'Horizon' song. There's been a new version of the Horizon song on every one of my past albums, and its safe to assume that there'll be one on my next one too.

@@ -433,5 +3711,6 @@

Note: This song is Copyright (C) 2006 by Alex Markley. It is freely redistributable in its current state. The content of this song may not be altered for distribution. The formatting of this song data may be altered, as long as the data itself (ie, notes, channel settings, metadata) is represented faithfully in the new format. No commercial use of this song will be tolerated, unless it is bundled with a program that can fully and faithfully interpret its meaning.

]]> - + + diff --git a/data/projects/cool_songs/StrictProduction-Underline.mmp b/data/projects/cool_songs/StrictProduction-Underline.mmp new file mode 100644 index 000000000..43300f408 --- /dev/null +++ b/data/projects/cool_songs/StrictProduction-Underline.mmp @@ -0,0 +1,5068 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +

@Copyright StrictProduction

+

contact rapprerul2000@yahoo.com

+

Just an little chill rap track made in

+

LMMS (With lots of saving (uhh!))

+

More to come :) press the hy quality Button!

+ +]]> + + + diff --git a/data/projects/demos/Zvonsully-RaceTheZBeat.mmp b/data/projects/demos/Zvonsully-RaceTheZBeat.mmp index d245d0fa9..a3409fc87 100644 --- a/data/projects/demos/Zvonsully-RaceTheZBeat.mmp +++ b/data/projects/demos/Zvonsully-RaceTheZBeat.mmp @@ -1,2808 +1,3078 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

license:GPL version2

-

A race betwin instruments. :)

-

(c) zvonsully@gmail.com 2006

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +

license:GPL version2

+

A race betwin instruments. :)

+

(c) zvonsully@gmail.com 2006

]]> - - + + diff --git a/plugins/ladspa_base/ladspa_manager.cpp b/plugins/ladspa_base/ladspa_manager.cpp index 9cae7df6d..40384a523 100644 --- a/plugins/ladspa_base/ladspa_manager.cpp +++ b/plugins/ladspa_base/ladspa_manager.cpp @@ -63,12 +63,13 @@ ladspaManager::ladspaManager( engine * _engine ) configManager::inst()->ladspaDir() ); #endif - // set default-directory if nothing is specified... + ladspaDirectories.push_back( "/usr/lib/lmms/ladspa" ); +/* // set default-directory if nothing is specified... if( ladspaDirectories.isEmpty() ) - { + {*/ ladspaDirectories.push_back( "/usr/lib/ladspa" ); ladspaDirectories.push_back( "/usr/local/lib/ladspa" ); - } +// } for( QStringList::iterator it = ladspaDirectories.begin(); it != ladspaDirectories.end(); ++it ) { diff --git a/plugins/ladspa_effect/Makefile.am b/plugins/ladspa_effect/Makefile.am index 9c6959ec5..c79c7fe8c 100644 --- a/plugins/ladspa_effect/Makefile.am +++ b/plugins/ladspa_effect/Makefile.am @@ -1,5 +1,7 @@ AUTOMAKE_OPTIONS = foreign 1.4 +SUBDIRS = caps + INCLUDES = -I$(top_srcdir)/include -I$(top_srcdir)/src/lib -I. -I../ladspa_base/ @@ -27,7 +29,7 @@ CLEANFILES = $(MOC_FILES) ./embedded_resources.h -pkglib_LTLIBRARIES= libladspaeffect.la +pkglib_LTLIBRARIES = libladspaeffect.la libladspaeffect_la_SOURCES = ladspa_effect.cpp \ ladspa_control_dialog.cpp \ diff --git a/plugins/ladspa_effect/caps/Amp.cc b/plugins/ladspa_effect/caps/Amp.cc new file mode 100644 index 000000000..326ce1850 --- /dev/null +++ b/plugins/ladspa_effect/caps/Amp.cc @@ -0,0 +1,486 @@ +/* + Amp.cc + + Copyright 2003-6 Tim Goetze + + http://quitte.de/dsp/ + + tube amplifier models +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include "basics.h" +#include + +#include "Amp.h" +#include "Descriptor.h" + +void +AmpStub::init (double _fs, bool adjust_downsampler) +{ + fs = _fs; + dc_blocker.set_f (10. / fs); + + /* going a bit lower than nominal with fc */ + double f = .7 * M_PI / OVERSAMPLE; + + /* construct the upsampler filter kernel */ + DSP::sinc (f, up.c, FIR_SIZE); + DSP::kaiser (up.c, FIR_SIZE, 6.4); + + /* copy upsampler filter kernel for downsampler, make sum */ + double s = 0; + for (int i = 0; i < up.n; ++i) + down.c[i] = up.c[i], + s += up.c[i]; + + s = 1 / s; + + /* scale downsampler kernel for unity gain + correction for transfer */ + double t = adjust_downsampler ? + s / max (fabs (tube.clip[0].value), fabs (tube.clip[1].value)) : s; + + for (int i = 0; i < down.n; ++i) + down.c[i] *= t; + + /* scale upsampler kernel for unity gain */ + s *= OVERSAMPLE; + for (int i = 0; i < up.n; ++i) + up.c[i] *= s; + + normal = NOISE_FLOOR; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +void +AmpIII::init (double _fs) +{ + this->AmpStub::init (_fs, false); + + /* need to filter out dc before the power amp stage, which is running at + * the oversampled rate */ + dc_blocker.set_f (10. / (fs * OVERSAMPLE)); + + DSP::RBJ::LoShelve (200 / (_fs), .2, -3, filter.a, filter.b); +} + +template +void +AmpIII::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + d_sample gain = *ports[1]; + d_sample temp = *ports[2] * tube.scale; + + drive = *ports[3] * .5; + i_drive = 1 / (1 - drive); + + d_sample * d = ports[4]; + + *ports[5] = OVERSAMPLE; + + double g = current.g; + + current.g = max (gain < 1 ? gain : exp2 (gain - 1), .000001); + current.g *= tube.scale / fabs (tube.transfer (temp)); + + /* recursive fade to prevent zipper noise from the 'gain' knob */ + if (g == 0) g = current.g; + + double one_over_n = 1. / frames; + double gf = pow (current.g / g, one_over_n); + + for (int i = 0; i < frames; ++i) + { + register d_sample a = s[i]; + + a = g * tube.transfer (a * temp); + a = filter.process (a + normal); + + a = tube.transfer_clip (up.upsample (a)); + a = power_transfer (dc_blocker.process (a)); + + a = down.process (a); + + for (int o = 1; o < OVERSAMPLE; ++o) + down.store ( + power_transfer ( + dc_blocker.process ( + tube.transfer_clip (up.pad (o))))); + + F (d, i, a, adding_gain); + + g *= gf; + } + + normal = -normal; + current.g = g; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +AmpIII::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "gain", + INPUT | CONTROL, + {BOUNDED | DEFAULT_1, 0, 10} + }, { + "temperature", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, 0.005, 1} + }, { + "drive", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MAX, 0.0001, 1} /* ^2 gives the nice drive */ + }, { + "out", + OUTPUT | AUDIO, + {0} + }, { + "latency", + OUTPUT | CONTROL, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1786; + Label = "AmpIII"; + Properties = HARD_RT; + + Name = "CAPS: AmpIII - Tube amp emulation"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2002-5"; + + /* fill port info and vtable */ + autogen(); +} + +/* //////////////////////////////////////////////////////////////////////// */ + +void +AmpIV::init (double _fs) +{ + this->AmpStub::init (_fs, false); + + /* need to filter out dc before the power amp stage, which is running at + * the oversampled rate */ + dc_blocker.set_f (10. / (fs * OVERSAMPLE)); + + tone.init (_fs); +} + +template +void +AmpIV::one_cycle (int frames) +{ + double one_over_n = 1. / frames; + + d_sample * s = ports[0]; + + d_sample gain = *ports[1]; + d_sample temp = *ports[2] * tube.scale; + + tone.start_cycle (ports + 3, one_over_n); + + drive = *ports[7] * .5; + i_drive = 1 / (1 - drive); + + d_sample * d = ports[8]; + + *ports[9] = OVERSAMPLE; + + double g = current.g; + + current.g = max (gain < 1 ? gain : exp2 (gain - 1), .000001); + current.g *= tube.scale / fabs (tube.transfer (temp)); + + /* recursive fade to prevent zipper noise from the 'gain' knob */ + if (g == 0) g = current.g; + + double gf = pow (current.g / g, one_over_n); + + for (int i = 0; i < frames; ++i) + { + register d_sample a = s[i] + normal; + + a = g * tube.transfer (a * temp); + a = tone.process (a); + + a = tube.transfer_clip (up.upsample (a)); + a = power_transfer (dc_blocker.process (a)); + + a = down.process (a); + + for (int o = 1; o < OVERSAMPLE; ++o) + down.store ( + power_transfer ( + dc_blocker.process ( + tube.transfer_clip (up.pad (o))))); + + F (d, i, a, adding_gain); + + g *= gf; + } + + normal = -normal; + current.g = g; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +AmpIV::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "gain", + INPUT | CONTROL, + {BOUNDED | DEFAULT_1, 0, 10} + }, { + "temperature", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, 0.005, 1} + }, { + "bass", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -20, 20} + }, { + "mid", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -20, 20} + }, { + "treble", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -20, 20} + }, { + "hi", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -20, 20} + }, { + "drive", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MAX, 0.0001, 1} /* ^2 gives the nice drive */ + }, { + "out", + OUTPUT | AUDIO, + {0} + }, { + "latency", + OUTPUT | CONTROL, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1794; + Label = "AmpIV"; + Properties = HARD_RT; + + Name = "CAPS: AmpIV - Tube amp emulation + tone controls"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2002-5"; + + /* fill port info and vtable */ + autogen(); +} + +/* //////////////////////////////////////////////////////////////////////// */ + +void +AmpV::init (double _fs) +{ + this->AmpStub::init (_fs, false); + + /* need to filter out dc before the power amp stage, which is running at + * the oversampled rate */ + dc_blocker.set_f (10. / (_fs * OVERSAMPLE)); + + DSP::RBJ::LoShelve (210. / _fs, .2, -1, filter[0].a, filter[0].b); + DSP::RBJ::LoShelve (4200. / _fs, 1.2, +6, filter[1].a, filter[1].b); + DSP::RBJ::LoShelve (420. / _fs, .2, +2, filter[2].a, filter[2].b); + + /* power supply capacitor */ + for (int i = 0; i < 2; ++i) + DSP::RBJ::LP (10. / _fs, .3, power_cap[i].a, power_cap[i].b); +} + +static int _turn = 0; + +template +void +AmpV::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + d_sample gain = *ports[1]; + + if (*ports[2] != cut) + { + cut = *ports[2]; + DSP::RBJ::LoShelve (210. / fs, .2, cut, filter[0].a, filter[0].b); + } + if (*ports[3] != tone) + { + tone = *ports[3]; + double f = tone * tone * 8400 + 420; + double q = tone * .4 + .2; + double db = tone * 2 + 2; + DSP::RBJ::LoShelve (f / fs, q, db, filter[2].a, filter[2].b); + } + + drive = *ports[4] * .5; + i_drive = 1 / (1 - drive); + + #define MAX_WATTS port_info[5].range.UpperBound + d_sample sag = (MAX_WATTS - *ports[5]) / MAX_WATTS; + sag = .6 * sag * sag; + + d_sample * d = ports[6]; + + *ports[7] = OVERSAMPLE; + + double g = current.g; + + current.g = max (gain < 1 ? gain : pow (20, gain - 1), .000001); + if (0 && (++_turn & 127) == 0) + fprintf (stderr, "supply = %.3f sag = %.3f\n", supply, sag); + + if (g == 0) g = current.g; + + /* recursive fade to prevent zipper noise from the 'gain' knob */ + double one_over_n = 1. / frames; + double gf = pow (current.g / g, one_over_n); + + for (int i = 0; i < frames; ++i) + { + register d_sample a = s[i]; + register d_sample v = 3 - supply; + /* alternative curve: v = v * v * .1 + .1; */ + v = v * v * .06 + .46; + + a = filter[0].process (a + normal); + if (0) + a = filter[2].process (a); + + a = g * (a + supply * .001); + + a = v * tube.transfer_clip (up.upsample (a)); + a = power_transfer (dc_blocker.process (a)); + + a = down.process (a); + + a = filter[1].process (a - normal); + if (1) + a = filter[2].process (a + normal); + + { + for (int o = 1; o < OVERSAMPLE; ++o) + down.store ( + power_transfer ( + dc_blocker.process ( + tube.transfer_clip ( + up.pad (o))))); + } + + F (d, i, a, adding_gain); + + /* integrate for an approximation of cumulative output power */ + supply += sag * fabs (a) + normal; + /* filter integrated power consumption */ + for (int i = 0; i < 2; ++i) + supply = 0.9 * (power_cap[i].process (supply)); + + g *= gf; + normal = -normal; + } + + current.g = g; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +AmpV::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "gain", + INPUT | CONTROL, + {BOUNDED | DEFAULT_1, 0, 3} + }, { + "bass", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -9, 9} + }, { + "tone", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MIN, 0, 1} + }, { + "drive", + INPUT | CONTROL, + {BOUNDED | DEFAULT_HIGH, 0.0001, 1} /* ^2 gives the nice drive */ + }, { + "watts", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, 5, 150} + }, { + "out", + OUTPUT | AUDIO, + {0} + }, { + "latency", + OUTPUT | CONTROL, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 2587; + Label = "AmpV"; + Properties = HARD_RT; + + Name = "CAPS: AmpV - Refined tube amp emulation"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2002-5"; + + /* fill port info and vtable */ + autogen(); +} + + diff --git a/plugins/ladspa_effect/caps/Amp.h b/plugins/ladspa_effect/caps/Amp.h new file mode 100644 index 000000000..00a73715f --- /dev/null +++ b/plugins/ladspa_effect/caps/Amp.h @@ -0,0 +1,339 @@ +/* + Amp.h + + Copyright 2002-5 Tim Goetze + + http://quitte.de/dsp/ + + oversampled tube amplifier emulation. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _AMP_H_ +#define _AMP_H_ + +#include "dsp/util.h" +#include "dsp/OnePole.h" +#include "dsp/BiQuad.h" +#include "dsp/TwelveAX7.h" +#include "dsp/Roessler.h" + +#include "dsp/FIR.h" +#include "dsp/sinc.h" +#include "dsp/windows.h" + +#include "dsp/RBJ.h" +#include "dsp/Eq.h" + +class AmpStub +{ + public: + double fs; + + /* oscillating NOISE_FLOOR, added to prevent denormals in signal */ + d_sample normal; + + DSP::TwelveAX7_3 tube; + + d_sample drive, i_drive; + + struct { + /* gain (remember current setting and fade to port setting in run) */ + double g; + /* should also do this for temperature to remove another potential + * source of zippering, but that would be overkill, at the cost of + * at least one pow() per block. */ + } current; + + /* input is hipass-filtered first */ + DSP::OnePoleHP dc_blocker; + + enum { + OVERSAMPLE = 8, + FIR_SIZE = 64, + }; + + /* antialias filters */ + DSP::FIRUpsampler up; + DSP::FIR down; + + AmpStub() + : up (FIR_SIZE, OVERSAMPLE), + down (FIR_SIZE, up.c) + { } + + void init (double _fs, bool adjust_downsampler = false); + + inline d_sample power_transfer (d_sample a) + { + return i_drive * (a - drive * fabs (a) * a); + } +}; + +/* /////////////////////////////////////////////////////////////////////// */ + +class PreampIII +: public AmpStub +{ + public: + template + void one_cycle (int frames); + + DSP::BiQuad filter; + + public: + static PortInfo port_info[]; + d_sample * ports [5]; + + d_sample adding_gain; + + void init (double _fs); + + void activate() + { + current.g = 1; + + filter.reset(); + up.reset(); + down.reset(); + dc_blocker.reset(); + } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +/* /////////////////////////////////////////////////////////////////////// */ + +class AmpIII +: public AmpStub +{ + public: + template + void one_cycle (int frames); + + DSP::BiQuad filter; + + public: + static PortInfo port_info[]; + d_sample * ports [6]; + + d_sample adding_gain; + + void init (double _fs); + + void activate() + { + current.g = 1; + + up.reset(); + down.reset(); + dc_blocker.reset(); + filter.reset(); + } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +/* /////////////////////////////////////////////////////////////////////// */ + +typedef struct + {float center, Q, adjust;} +PreampBand; + +class ToneControls +{ + public: + d_sample eq_gain[4]; + DSP::Eq<4,4> eq; + static PreampBand bands[4]; + d_sample normal; + + public: + void init (double _fs); + void activate (d_sample **); + + inline void + start_cycle (d_sample ** ports, double one_over_n) + { + for (int i = 0; i < 4; ++i) + { + if (*ports[i] == eq_gain[i]) + { + eq.gf[i] = 1; + continue; + } + + eq_gain[i] = *ports [i]; + + double want = get_band_gain (i, eq_gain[i]); + eq.gf[i] = pow (want / eq.gain[i], one_over_n); + } + } + + double get_band_gain (int i, double g); + void set_band_gain (int i, float g); + + inline d_sample process (d_sample x) + { + return eq.process (x); + } +}; + +/* /////////////////////////////////////////////////////////////////////// */ + +class PreampIV +: public PreampIII +{ + public: + ToneControls tone; + + template + void one_cycle (int frames); + + public: + static PortInfo port_info[]; + d_sample * ports [9]; + + d_sample adding_gain; + + void init (double _fs); + + void activate(); + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +/* /////////////////////////////////////////////////////////////////////// */ + +class AmpIV +: public AmpStub +{ + public: + ToneControls tone; + + template + void one_cycle (int frames); + + public: + static PortInfo port_info[]; + d_sample * ports [10]; + + d_sample adding_gain; + + void init (double _fs); + + void activate() + { + current.g = 1; + + tone.activate (ports + 3); + + up.reset(); + down.reset(); + dc_blocker.reset(); + } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +/* /////////////////////////////////////////////////////////////////////// */ + +class AmpV +: public AmpStub +{ + public: + template + void one_cycle (int frames); + + DSP::BiQuad filter[3]; + + d_sample cut, tone; + + /* supply voltage sag */ + d_sample supply; + DSP::BiQuad power_cap[2]; + + public: + static PortInfo port_info[]; + d_sample * ports [7]; + + d_sample adding_gain; + + void init (double _fs); + + void activate() + { + current.g = 1; + + for (int i = 0; i < 2; ++i) + filter[i].reset(), + power_cap[i].reset(); + + up.reset(); + down.reset(); + dc_blocker.reset(); + + cut = 2; + supply = 0.; + } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +#endif /* _AMP_H_ */ diff --git a/plugins/ladspa_effect/caps/Cabinet-Models32.h b/plugins/ladspa_effect/caps/Cabinet-Models32.h new file mode 100644 index 000000000..aeae41f3e --- /dev/null +++ b/plugins/ladspa_effect/caps/Cabinet-Models32.h @@ -0,0 +1,187 @@ +/* + Cabinet-Models32.h + + Copyright 2005 Tim Goetze + + http://quitte.de/dsp/ + + Coefficients for 32nd order IIR filters modeling the frequency + responses of a few select instrument amplifier speaker boxes. +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +Model32 +CabinetII::models44100 [] = { + { + 1, /* identity */ + {1}, + {0}, + 0.2500 + }, + { + 32, /* matchless_off */ + {0.751133877447, 0.476665652568, 0.232649157621, 0.073490164573, -0.0520549100755, -0.121257530713, -0.100197130001, -0.0412212505538, 0.0304188276576, 0.0756296082021, 0.0339966964433, -0.0188218345374, -0.0138445066369, 0.0213454687998, 0.0509702380835, 0.0734535180348, 0.0423999627069, 0.0153810625747, 0.0251173605116, 0.0231247294211, 0.0118254107717, 0.0397159715652, 0.0509631315658, 0.0289647310658, -0.0151415828019, -0.0678734405803, -0.093244908543, -0.066522401653, -0.0390777734265, -0.0206522167345, -0.0140462622686, -0.000367155236373}, + {0.0, 0.582601584085, 0.179375009603, -0.0310635155569, -0.115346798496, -0.0929627102659, -0.00905181962865, 0.0529760132518, 0.0660791287878, 0.0264313110774, -0.0527906709163, -0.0832644831913, -0.047761487157, -0.00525089678838, 0.00920853658047, 0.00160221988302, -0.036921883774, -0.0508637181262, -0.0369139574948, -0.0297884797081, -0.0131892593004, 0.0328205903451, 0.0532522735819, 0.0434869096278, 0.0171966303505, -0.0117058173799, -0.0222005420711, -0.00885326183421, -0.00467956865215, -0.0017726627279, -0.00860012741033, -0.046231460458}, + 0.1088 + }, + { + 32, /* matchless_on */ + {0.737841828858, 0.460204992853, 0.280744637086, 0.0935206597339, -0.0705817082991, -0.156854249167, -0.144106172504, -0.0685499381158, 0.00620304241081, 0.0610934722291, 0.0465273895752, -0.0126452119054, -0.0649026246806, -0.0713209874063, -0.0596110923629, -0.0415373874755, -0.0389721881465, -0.0284327312853, -0.0109349222879, 0.0222033554026, 0.0552410801, 0.0896637673103, 0.106570641198, 0.122226072209, 0.115856033255, 0.0801435470104, 0.0100505511461, -0.0489360304782, -0.0829690212741, -0.0887089006669, -0.0886065785655, -0.0469811200837}, + {0.0, 0.611100232423, 0.191219480026, -0.0831423854754, -0.193756321128, -0.162103938394, -0.0633420329893, 0.0168905353821, 0.0319336623225, 0.00544046343502, -0.0450052997134, -0.0655650754908, -0.0385274002732, 0.0140346387674, 0.0381359817338, 0.0270741530904, -0.00985978537582, -0.0339616898786, -0.039510862758, -0.0234251294011, -0.00577196250278, 0.00602171273173, -0.0012115688049, -0.00850899153196, -0.0195544970682, -0.0235059343611, -0.0181958065493, 0.00619896262657, 0.0223536984999, 0.0126908937718, -0.0260364491855, -0.048766780312}, + 0.1398 + }, + { + 32, /* superchamp */ + {0.764583545976, 0.538738620869, 0.179425189777, -0.0185116138637, -0.155373227876, -0.162444114313, -0.0955812737534, -0.0527583372679, 0.0109899803101, 0.027210394773, -0.0177057767782, -0.03205717291, -0.0483168565776, -0.00731185525588, 0.0552452873245, 0.075576957847, 0.0442457880974, -0.0118721835978, -0.0177888197761, 0.0351775943888, 0.0348792107809, 0.0127082443141, -0.0055147874283, -0.025538492041, -0.0266140723472, -0.00351312980821, -0.00705954101235, -0.0071756277097, -0.0073123807337, 0.00388589850911, 0.00920641143732, 0.00675123073573}, + {0.0, 0.60762891993, 0.0804538514268, -0.139045714146, -0.188318237239, -0.102850850916, -0.014327283229, 0.0095126479685, 0.00675439266545, -0.0369566468812, -0.0735379197498, -0.0464884257152, -0.00652653570483, 0.0460655599383, 0.0503985731174, -5.63018161884e-05, -0.0506993010893, -0.0519236737825, 0.00601034157191, 0.0565585753845, 0.0271235886591, -0.0124334855533, -0.0275977294885, -0.0178167665585, 0.0128169339437, 0.0370635121992, 0.0234037648427, 0.00539790260771, -0.0105614779717, -0.00455010484908, 0.0101491481873, 0.0220600470141}, + 0.1771 + }, + { + 32, /* fender_68 */ + {0.952578805555, 0.423653323267, -0.299325586902, -0.181365977098, -0.00917621972835, -0.106211820702, -0.144312857058, -0.0664525836173, -0.0308777018884, -0.0289677657295, 0.06172127279, 0.0700934900581, 0.00309908907112, -0.00891983996273, -0.0687746247517, -0.0146407179784, 0.0264920122813, 0.0134951652977, 0.0480259959669, 0.021152058087, -0.0229395195318, 0.00306616207055, 0.015377268642, -0.0166969251715, -0.0472474005373, -0.0257631159809, -0.0298364749235, -0.0359529903186, -0.0228763062676, -0.0190698276841, -0.0481625561196, -0.024778494842}, + {0.0, 0.373287747089, -0.379113471957, -0.162638822705, -0.0309789534425, -0.113942084113, -0.0746182251996, 0.00371088736605, -0.0311272559258, -0.0641468114835, -0.01820597504, -0.0106553201186, -0.0025754233332, 0.00779983208005, -0.0133002473609, 0.0474101909397, 0.0302769494631, -0.0206219756872, 0.00091004302278, 0.00989883124397, -0.00095818764248, -0.00710510898183, -0.0103772680579, 0.00636775505307, 0.0172954284337, 0.00560785607672, -0.00550757886611, 0.0349170637518, 0.033667260855, 0.0263631580776, 0.110816169944, 0.0551965257177}, + 0.5267 + }, + { + 32, /* marshall */ + {0.632136921276, 0.487520501766, 0.267166936676, 0.0328329910029, -0.124746548218, -0.175922403211, -0.134056005594, -0.0275494615733, 0.0707349518645, 0.112423870345, 0.0758114749041, 0.0139250983739, -0.0210142361937, -0.00193163235992, 0.0197248569676, 0.0206461311409, -0.00897578938148, -0.0306233925441, -0.041776582616, -0.0398244883075, -0.0328395317644, -0.0101508675516, 0.00636535089023, 0.0217430701187, 0.0223553033142, 0.0237782685683, 0.0278909244449, 0.0469073547267, 0.0509466858461, 0.0336174039295, 0.0028829896058, 0.0114245696423}, + {0.0, 0.618938053184, 0.180052941443, -0.1028119852, -0.19233134457, -0.14303971742, -0.0450998045919, 0.0341843500162, 0.0465086637485, 0.0071435730282, -0.0461779135605, -0.059013077843, -0.0284397368519, 0.0187689538251, 0.0341298347311, 0.0244703904826, 0.00720524642447, 0.00991307420138, 0.018738094495, 0.0275442994126, 0.0299092523536, 0.0339721143791, 0.0270175082759, 0.0151058732685, -0.00751060215331, -0.0236467101096, -0.0272347092017, -0.00812409176413, 0.0141531255726, 0.0270163512016, 0.00208457244433, -0.0784208903527}, + 0.1132 + }, +}; + +Model32 +CabinetII::models48000 [] = { + { + 1, /* identity */ + {1}, + {0}, + 0.2500 + }, + { + 32, /* matchless_off */ + {0.751616859768, 0.455477674067, 0.236301148417, 0.0831041136969, -0.0271403780165, -0.100856772665, -0.105648770896, -0.0532306291781, 0.00532168244437, 0.0769562829624, 0.0998339309568, 0.0558038693299, -0.00395884124382, -0.0114310936324, -0.00035476064153, 0.0174339944264, 0.0326924241347, 0.0270873548662, -0.00429020715999, 0.00156163927912, 0.0110729521074, -0.00355947960002, -0.0197465530354, -0.00226491671692, 0.000562585645118, -0.0113374627036, -0.0395530054938, -0.0773637715714, -0.110300349197, -0.102242460538, -0.0802708342222, -0.0368542661019}, + {0.0, 0.573363683971, 0.199471497847, -0.0100987131104, -0.10105055289, -0.104899707204, -0.0453437303875, 0.0227558858103, 0.0494210617945, 0.0469948522053, -0.000869801014908, -0.060632162889, -0.078080719406, -0.036500327, 0.00169111404144, 0.0161416041893, 0.00446588199593, -0.0256497606161, -0.052007235054, -0.0329954828689, -0.00846672300472, 0.00503287700528, 0.0225460696732, 0.0488769816297, 0.0448900330347, 0.0265213842101, 0.00867720983291, 0.00309440217249, 0.0106055108636, 0.0271743998844, 0.00790666559882, -0.0494793375024}, + 0.0972 + }, + { + 32, /* matchless_on */ + {0.736752793274, 0.42789796886, 0.276149514408, 0.115820415827, -0.0320628697966, -0.121795204879, -0.142828258933, -0.0859958693575, -0.0176210080708, 0.0507262077785, 0.0760681727953, 0.0516030677135, -0.0156690595908, -0.0681826247693, -0.0944163538419, -0.0902627133447, -0.0823076517005, -0.0734934090705, -0.0692943287136, -0.0513490885216, -0.0305887683924, 0.00285704997857, 0.0369925466712, 0.0764037770343, 0.103822670992, 0.130505051247, 0.126189167018, 0.0870288516942, 0.00607091602923, -0.0716539223465, -0.122336223951, -0.107802803871}, + {0.0, 0.60867772822, 0.226828570484, -0.0393069664502, -0.171393086666, -0.174192716258, -0.103361484389, -0.0132853346158, 0.028065787663, 0.0276791758057, -0.0093177316362, -0.0469821632045, -0.0621330892865, -0.0326281391326, 0.00952584471493, 0.0391305970452, 0.0343547401694, 0.0103991548433, -0.0167038490391, -0.0239538249183, -0.0200522931237, -0.00619037145571, 0.00112030880301, 0.00379111038519, -0.00425737141588, -0.00510101082859, -0.00618382168232, 0.00222622566288, 0.012234432496, 0.0240659559777, 0.00806553945799, -0.0500627523652}, + 0.1292 + }, + { + 32, /* superchamp */ + {0.736144077022, 0.533697136818, 0.208223243775, 0.0105446749467, -0.115112852124, -0.167784888349, -0.118309369108, -0.0686796829989, -0.0320689348914, 0.0293577338735, 0.0228074058112, -0.00942321170451, -0.0247236206138, -0.0382275338893, -0.0220962904251, 0.0369265390908, 0.0652234781224, 0.0625494411772, 0.0203218939615, -0.0130049534934, 0.00776964355966, 0.0408524993227, 0.0187403995074, -0.00323676614764, -0.011729909669, -0.0146182789026, -0.00520348014418, 0.0251718299467, 0.0292350516935, 0.0265773340322, 0.0181154887123, 0.00421057480694}, + {0.0, 0.610899704338, 0.116614493347, -0.107102211172, -0.17045907835, -0.125900190491, -0.0364778545046, 0.00268191730596, 0.00393059621292, -0.00442930148683, -0.0496456084728, -0.0641110080937, -0.0380451267687, -0.00269939732468, 0.0336320714582, 0.0473822399663, 0.00672982206906, -0.0376868259805, -0.0574242984978, -0.0235397064668, 0.0375124576452, 0.0561991090538, 0.0137707473486, -0.019313535496, -0.0308393757193, -0.0231851781013, -0.000359955230619, 0.0224262684571, 0.0140137052508, 0.000784652753983, -0.00886431320574, 0.00520310404507}, + 0.1627 + }, + { + 32, /* fender_68 */ + {0.940499002611, 0.474406048513, -0.234027864276, -0.245068743132, -0.0275886925241, -0.0375353084644, -0.116020540053, -0.0788142311793, -0.0192628993487, -0.0208031874862, -0.036274591111, 0.0274443468203, 0.0248807593189, -0.00647753415313, 0.0123263590476, -0.0207149994271, -0.0169433327912, 0.0367748568855, 0.0157152144192, 0.0219763333967, 0.0220500063178, -0.0236599648747, -0.028051497911, 0.0300390624893, 0.0503387731847, 0.0200944005064, -0.0199651438354, -0.0189512878551, -0.0341641453641, -0.0429368448753, -0.00172415323758, 0.0187773541719}, + {0.0, 0.438339721191, -0.314663980515, -0.200197131305, -0.0199447108206, -0.0806444850114, -0.112178302737, -0.0407327776523, -0.0162859630428, -0.04823028022, -0.0411406583855, 0.0181605305425, 0.0182296926714, 0.0118833391549, 0.00393162532115, -0.0208012980893, 0.0236552029021, 0.0440436249244, -0.015760708804, -0.00800215008051, 0.0264390446392, 0.0224755303713, -0.00488388416495, -0.0302927869543, -0.0389708286652, -0.0213138828272, -0.0196593434643, -0.0250837259433, -0.0171306364105, -0.00247139702561, -0.0442683480699, 0.00104076341183}, + 0.4976 + }, + { + 32, /* marshall */ + {0.632432814914, 0.466340577796, 0.289928964438, 0.0873773815151, -0.0637714745665, -0.134210611966, -0.135503699906, -0.0734327294692, 0.00792058229369, 0.0760927054439, 0.0890306791735, 0.0595619591479, 0.00922265898468, -0.00784921065447, 0.00721708132165, 0.0350086110935, 0.0376247852781, 0.0202910905225, -0.00870656585895, -0.0201433438279, -0.0279367587019, -0.0245180701261, -0.0152282108474, 0.00828831561931, 0.026894267099, 0.0460507228179, 0.0479724909309, 0.0409446830643, 0.0201085872414, 0.00561387003945, -0.00753169056058, 0.000986659484038}, + {0.0, 0.594136919296, 0.201493775156, -0.0716153113375, -0.180702317671, -0.160390621032, -0.0826806167453, 0.000697581661664, 0.0397029332137, 0.0299147550153, -0.0177304803895, -0.0570701545448, -0.0652412298089, -0.0298128518083, 0.0124560081161, 0.0355161884622, 0.0255626596849, 0.00762986123778, -0.00431800264305, 0.00420452150537, 0.0150803653129, 0.0291131391488, 0.0359312991789, 0.0364212054952, 0.0203516393338, 0.0022141464642, -0.0149317465975, -0.0121651677123, 0.00704936522966, 0.0353605810957, 0.0322793623201, -0.0307481566657}, + 0.0996 + }, +}; + +Model32 +CabinetII::models88200 [] = { + { + 1, /* identity */ + {1}, + {0}, + 0.2500 + }, + { + 32, /* matchless_off */ + {0.581241782856, 0.351127495653, 0.293447498861, 0.203644809011, 0.122868019886, 0.0798136296596, 0.0627344813847, 0.0582949053671, 0.0495483041303, 0.0432630437098, 0.040778980166, 0.0502959955879, 0.06102889964, 0.0717641907075, 0.0748815766238, 0.0800912666293, 0.0851573668252, 0.0920643205477, 0.0863975575062, 0.0672325976358, 0.0316956083124, -0.00434276880274, -0.0353531287352, -0.0497775530225, -0.0549729489782, -0.0523697171754, -0.0527017492312, -0.0496529350336, -0.0432932459975, -0.02532771672, -0.00704167237723, 0.0048594343372}, + {0.0, 0.527351085198, 0.306902134941, 0.121666659808, -0.000869395618695, -0.0590060725486, -0.0800321294614, -0.0812161497866, -0.0756902882293, -0.0586480829698, -0.035146960319, -0.00693669578546, 0.0137459416267, 0.0260709477944, 0.027142282904, 0.0255107789641, 0.0184912445046, 0.00787311464383, -0.012080806249, -0.0326630439808, -0.0479929895538, -0.0449384101923, -0.0257392906728, 0.00611234738181, 0.0331632616028, 0.0482685642726, 0.0424761053987, 0.0227984734932, -0.00689764194843, -0.0338856201523, -0.0506606159856, -0.036511204766}, + 0.0505 + }, + { + 32, /* matchless_on */ + {0.754229081317, 0.28992460445, 0.25506113675, 0.205825249671, 0.149736304722, 0.0965453802519, 0.043937905171, 0.000434005345846, -0.0380077969732, -0.0648440473691, -0.0820185458195, -0.0804769096126, -0.067903181347, -0.0457545818062, -0.024506391213, 0.000276698483466, 0.0227732012504, 0.0462273060245, 0.0612627993168, 0.0704402843546, 0.0668070265589, 0.0560526861609, 0.0360109823522, 0.0171596012087, -0.00254977646019, -0.0169995310247, -0.0326802854744, -0.0431803638863, -0.0527933574758, -0.0537365642607, -0.0484658084207, -0.0264410770067}, + {0.0, 0.473323278291, 0.304447812378, 0.156758267418, 0.0407417557578, -0.0375541115795, -0.084174169143, -0.0995647273704, -0.0953485009639, -0.0745284443813, -0.047611748504, -0.0160860230858, 0.00812108121932, 0.022520582633, 0.0218183858734, 0.0139436350809, -0.000684654971314, -0.0149097687302, -0.0306604197839, -0.0406022715147, -0.0468128179642, -0.0432623683601, -0.0334406989274, -0.0143890226248, 0.00558711901527, 0.0240338814196, 0.0313772357088, 0.0288551286613, 0.0119537593072, -0.0137695197232, -0.0487934292115, -0.0830489298052}, + 0.0977 + }, + { + 32, /* superchamp */ + {0.564442248694, 0.417375378841, 0.328112930961, 0.184087902524, 0.0606877879374, -0.000888211396509, -0.0240417949471, -0.0386494407725, -0.0623924578122, -0.077697122496, -0.0771755477917, -0.0625887925073, -0.0567602691995, -0.0606788148043, -0.0653972735044, -0.0482177616776, -0.0134706312764, 0.0255178539984, 0.0454519306153, 0.0488386058553, 0.040370247527, 0.0309888915369, 0.0118591255626, -0.0166655766779, -0.0524886753799, -0.0735764853592, -0.0712539506456, -0.0409275497673, 2.56200623182e-05, 0.0407426819337, 0.0605288133085, 0.045387360314}, + {0.0, 0.58401876341, 0.301866612426, 0.0749234792796, -0.0512250579262, -0.0884380547633, -0.0859341509964, -0.0715039798048, -0.0533786975427, -0.0228940420774, 0.00895370138835, 0.029234699873, 0.0249642271923, 0.00815472752255, -0.00852123193886, -0.013874697166, -0.0177655062032, -0.0244009337209, -0.0348366549323, -0.0341041586519, -0.0199202543104, 0.0049040564053, 0.0228786117828, 0.0307412470467, 0.0270357914745, 0.0202102683028, 0.00600213627849, -0.0132416519396, -0.035306113292, -0.0400865958576, -0.0122081055945, 0.061547236583}, + 0.0940 + }, + { + 32, /* fender_68 */ + {0.636561915308, 0.539655264394, 0.306940867236, -0.00798666364572, -0.2010016693, -0.196429989976, -0.0871390659769, 0.0058320328314, 0.0205797064122, -0.0137249327682, -0.0511542488948, -0.0559233911299, -0.0365269209833, -0.00933607201861, 0.00259528983031, 0.000820508580746, -0.014655020786, -0.0298656923381, -0.0363760565053, -0.0164103072662, 0.0180980103038, 0.0427307277871, 0.0289045601723, -0.00365819240342, -0.0221033761769, -0.00613002097262, 0.0137359639094, 0.0126374765575, -0.0109039821774, -0.022164851067, -0.00644276895272, 0.0406179316828}, + {0.0, 0.660098640191, 0.135995579965, -0.18643602906, -0.21362553946, -0.0765656086032, 0.0304158765248, 0.0317377501315, -0.0306547118834, -0.0742288333657, -0.0716640946732, -0.0400798411024, -0.016998894935, -0.0119106601837, -0.0209707717803, -0.0285105267284, -0.033043355156, -0.03016836978, -0.0235112391223, -0.0121431367424, -0.0083970652792, -0.0121227777881, -0.0179437299751, -0.0103936611338, 0.000810102779011, -0.000708784846704, -0.0234941025684, -0.0371015701952, -0.0180247391719, 0.0220761118738, 0.0243771530897, -0.0421517051891}, + 0.2672 + }, + { + 32, /* marshall */ + {0.487781223472, 0.313482625917, 0.286350463893, 0.224656866466, 0.146402144474, 0.0763559834141, 0.0205530599391, -0.0145817074955, -0.0366424375139, -0.0445785898927, -0.0458160857045, -0.037336889106, -0.0251791786851, -0.00575399966305, 0.0148942739024, 0.0391750282507, 0.0589388969198, 0.0752812491289, 0.0811254049966, 0.0801917939348, 0.0685526132261, 0.0533549680139, 0.0342811257343, 0.0215399491933, 0.0147049499229, 0.0198301270011, 0.030982725155, 0.0503002628087, 0.0693130546132, 0.0867905978395, 0.0881891739024, 0.0641468491285}, + {0.0, 0.51943795847, 0.326729354403, 0.149229797985, 0.0109767104297, -0.0732768493116, -0.111088974509, -0.110789539541, -0.0898934114003, -0.0564578047856, -0.0231004313356, 0.0069673688738, 0.0254240918116, 0.0337510299271, 0.0282514883492, 0.0147089116391, -0.00647743824673, -0.0269028751263, -0.0446349197143, -0.0510564142456, -0.0478791675617, -0.0324832722564, -0.0121393859238, 0.0104982033447, 0.0241412382054, 0.026038551433, 0.00994372364326, -0.0158545375622, -0.0436236854665, -0.0537883431888, -0.032574614307, 0.0387767610956}, + 0.0666 + }, +}; + +Model32 +CabinetII::models96000 [] = { + { + 1, /* identity */ + {1}, + {0}, + 0.2500 + }, + { + 32, /* matchless_off */ + {0.576442585125, 0.306361432085, 0.256653772545, 0.177316081395, 0.0989986029973, 0.0501811139283, 0.0263950297254, 0.0211066378234, 0.0164669956215, 0.0145939695187, 0.0131915301884, 0.0224302343035, 0.0359395096833, 0.0545608587271, 0.0665798797365, 0.0764638706987, 0.0822020713116, 0.0937583388117, 0.104705110174, 0.114731370205, 0.110211793209, 0.0934363192015, 0.0618719406527, 0.0288732783262, -0.00358352145982, -0.0259155247732, -0.0441021836484, -0.0555310772717, -0.0670712283056, -0.0677576234809, -0.0520883036287, -0.00170675690763}, + {0.0, 0.508669145362, 0.322479739387, 0.156892646838, 0.035020841423, -0.0347440829067, -0.0701806136041, -0.0825008530376, -0.0845801358275, -0.0733688333095, -0.0530323023958, -0.0234536559399, 0.00360324038712, 0.0244342060698, 0.0314240125922, 0.0309189326677, 0.0230090442585, 0.0145937492998, 0.00103582471628, -0.0152025378362, -0.0363464186106, -0.0511215757185, -0.0557855361088, -0.0408742372067, -0.0130066718085, 0.023938151261, 0.0530188010691, 0.0671220652663, 0.0540529792683, 0.0164681954699, -0.0469180610472, -0.125461903689}, + 0.0494 + }, + { + 32, /* matchless_on */ + {0.941618036526, 0.239866043796, 0.218739659026, 0.1855624175, 0.143119285622, 0.098285134927, 0.049823345838, 0.00491072985196, -0.0372254815054, -0.0706502777402, -0.0969381684649, -0.109632530255, -0.11098328422, -0.0987132407502, -0.080379871629, -0.0559715185867, -0.0315381582245, -0.00496109501612, 0.0171690268626, 0.0357166271116, 0.0446464487104, 0.0469813895302, 0.0390401137056, 0.0262125456401, 0.00716840214371, -0.0108017316884, -0.028794724005, -0.0413800680682, -0.0514241182155, -0.0535943709963, -0.0501288491812, -0.0356807796594}, + {0.0, 0.436259688495, 0.303343311728, 0.180401443304, 0.0755768977826, -0.00298141418929, -0.057401860201, -0.0849229021135, -0.0921029201246, -0.0808710238831, -0.0601563297725, -0.031853887802, -0.00462566662184, 0.0189321520075, 0.0307568282097, 0.0327103981415, 0.0234112049746, 0.00941773902223, -0.00880302596543, -0.024628145492, -0.0377321989901, -0.0420727660837, -0.0390726798885, -0.0257996845469, -0.00726121684029, 0.0160981879938, 0.0352540092546, 0.0464046029779, 0.0397882340227, 0.0142875216435, -0.0354360590043, -0.105598440048}, + 0.0651 + }, + { + 32, /* superchamp */ + {0.598483659576, 0.392119614921, 0.324128816827, 0.207253363884, 0.0944270102152, 0.0269672658419, -0.00338080597527, -0.0154386943775, -0.0337854523788, -0.0528375781544, -0.0668037964282, -0.0644824272507, -0.0581122839458, -0.053620685433, -0.05941095465, -0.0599621297144, -0.0476930600655, -0.0143047492128, 0.0237480623761, 0.0559779339589, 0.0689887990541, 0.0713731354487, 0.0647181254244, 0.0560812069922, 0.0357682629483, 0.00706245212017, -0.0286615791021, -0.052644819201, -0.0590210498647, -0.041747604451, -0.0168191702228, 0.00465326173164}, + {0.0, 0.555306548005, 0.304384349565, 0.0955876011242, -0.032790937176, -0.0803585769889, -0.0834509085546, -0.069736664388, -0.0558345347225, -0.0359974911327, -0.012046069248, 0.0128302949846, 0.0234882264814, 0.0187166685281, 0.00137741738003, -0.0128825824672, -0.0213054248788, -0.0224842024484, -0.0275110748888, -0.0335451251688, -0.0384673765875, -0.0306779974376, -0.0133415017904, 0.00900611383706, 0.0222626768741, 0.0253127037082, 0.0166771042914, 0.00577574428968, -0.00773567900765, -0.0175688399329, -0.021338142267, -0.00199213694503}, + 0.0903 + }, + { + 32, /* fender_68 */ + {0.61042243584, 0.519167522444, 0.338455322638, 0.0598120788559, -0.155008295955, -0.209996385603, -0.142681005045, -0.0444570079209, 0.00529240289956, 7.6909429568e-05, -0.03354602127, -0.0535687744411, -0.049519403779, -0.0238846177015, -0.000920606029846, 0.010434338433, 0.002228774067, -0.0140907683377, -0.035872619499, -0.0481212880009, -0.0457673542097, -0.0191076772359, 0.0133771714316, 0.0322386165839, 0.0178556687427, -0.0095701287891, -0.0237842865664, -0.00484822472333, 0.0227424513401, 0.0316309750773, 0.00586735474858, -0.0235815475244}, + {0.0, 0.658865798836, 0.184872779539, -0.137135473027, -0.210003150161, -0.108221769211, 0.0110221508749, 0.0526622948184, 0.0145697157163, -0.0398151102571, -0.0659793146563, -0.0534131399862, -0.0284152189248, -0.0091286709165, -0.00636536651116, -0.00986403078301, -0.0155052371976, -0.0165973690878, -0.018011376701, -0.0154898840826, -0.0109104131649, -0.00195757926804, 0.00204116721073, 0.00157889259535, -0.00328499795407, -0.00244356007769, -0.00227606009504, -0.00603112779608, -0.0173439459505, -0.0176299504059, -0.00210293292278, 0.00864548631897}, + 0.2359 + }, + { + 32, /* marshall */ + {0.519039714244, 0.28397066065, 0.263752501402, 0.216763224092, 0.153202060875, 0.093498887372, 0.0418092813984, 0.00649080672527, -0.0187685887985, -0.0313725205166, -0.0386046242494, -0.0368255569808, -0.0319398932261, -0.0190867195417, -0.00429792893597, 0.0171895051396, 0.038509421914, 0.0625518463058, 0.0812007261611, 0.0971807963934, 0.10334087256, 0.104223746243, 0.0947810421376, 0.0820175331544, 0.0638964900287, 0.049888405421, 0.0379912291508, 0.0353343445924, 0.036271348736, 0.0455456726476, 0.0571810093304, 0.0753869660867}, + {0.0, 0.495552580909, 0.326384725738, 0.167649233033, 0.0373913746446, -0.049802990613, -0.0971841927371, -0.108389008817, -0.0971430950292, -0.0702481334571, -0.0402478232447, -0.00995144228925, 0.0120995492915, 0.0263638891687, 0.0284733804008, 0.0226883648689, 0.00733748451124, -0.0103570201666, -0.0304762029918, -0.0447374261541, -0.0534169560389, -0.0509721172171, -0.0411315716449, -0.0225994268992, -0.00306083571223, 0.0162408742504, 0.0258967736277, 0.0250750690024, 0.00862389563333, -0.0164131934788, -0.0455336929843, -0.0629205840552}, + 0.0663 + }, +}; + diff --git a/plugins/ladspa_effect/caps/Cabinet.cc b/plugins/ladspa_effect/caps/Cabinet.cc new file mode 100644 index 000000000..3fc6f423f --- /dev/null +++ b/plugins/ladspa_effect/caps/Cabinet.cc @@ -0,0 +1,314 @@ +/* + Cabinet.cc + + Copyright 2002-5 Tim Goetze + + http://quitte.de/dsp/ + + CabinetI - 16th order IIR filters modeled after various impulse responses + from Steve Harris' 'imp' plugin. Limited to 44.1 kHz sample rate. + + CabinetII - 32nd order IIR filters modeled after the same impulse responses + using a different algorithm. Versions for 44.1 / 48 / 88.2 / 96 kHz sample + rates, switched at runtime. +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include "basics.h" + +#include "Cabinet.h" +#include "Descriptor.h" + +Model16 +CabinetI::models [] = +{ + { + 1, /* identity */ + {1}, + {0}, + 1, + }, { + 16, /* unmatched, off-axis */ + {0.44334744339382504, 0.49764265352620912, 0.19936863766114088, 0.0038388115609433826, -0.072080744430548876, -0.092589757815768933, -0.023760971045285254, 0.058929802988203807, 0.11073296313735595, 0.14389046518738619, 0.052981055774577353, -0.11817321919764193, -0.22957467728465422, -0.26301284181138151, -0.25586853638823448, -0.10768194462289554}, + {0.0, 0.71138736215182674, 0.19571088506350195, -0.086897678126924227, -0.18344238266155902, -0.13338660100611671, -0.017424587504494098, 0.062014975470330351, 0.077979014877680469, 0.039134631327482176, -0.046646061538403727, -0.040653480351542266, 0.068462230153713749, 0.14313162261479676, 0.058844200671679531, -0.17878548463526983}, + 1 / 4.4, + }, { + 16, /* unmatched */ + {0.58952373363852417, 0.43625942509584309, 0.235412203403113, 0.048252951521505258, -0.1002076253350956, -0.14467958356216026, -0.074304873528329402, 0.060945557247412331, 0.15959845551788171, 0.20970924189636411, 0.15361368007229703, 0.025339061869183478, -0.11824836967489599, -0.19384403813690479, -0.19295873693806628, -0.058904754435169508}, + {0.0, 0.6596380198994729, 0.20825670531468143, -0.10508784276271754, -0.24698905246649294, -0.21519418569376192, -0.10057489587096909, -0.006175810942624007, -0.0019249936836196989, -0.045827268144865707, -0.10184708094147235, -0.09177820187618313, -0.017740067693127175, 0.058828573780348989, 0.010559807576350673, -0.19412688465216324}, + 1 / 5.7, + }, { + 16, /* superchamp */ + {0.5335550129666069, 0.61768496153556829, 0.2080126894040209, -0.0067283013134491337, -0.10433152421155355, -0.16159936513841233, -0.10593018443866807, -0.091854930675998661, 0.0023550324496513643, 0.14327516190088724, 0.14688292534697539, 0.089539872443625601, -0.053854769352683005, -0.15693904535289377, -0.083502230074838577, 0.0090113128614708465}, + {0.0, 0.67745858591653696, 0.044802106922746734, -0.1932642251200547, -0.18922360327572652, -0.052980570047914469, 0.020446992577988904, -0.028951451474818618, -0.085212072485126716, -0.12241212382510525, -0.089259371449674357, 0.010469056928395087, 0.049019357277555603, 0.037212453438250505, -0.046374612934843573, -0.045133341919937828}, + 1 / 4.0, + }, { + 16, /* fender-vibrolux-68 */ + {0.68447985102464837, 0.61538710771230021, -0.28804707230137599, -0.23656583372846893, 0.083100874242250655, -0.027792816938813913, 0.055558334440593965, 0.044458161718059774, -0.25467542393376252, -0.33660492613760157, -0.024663941486403884, 0.1172751972420942, -0.021832135450802759, 0.21440383631745469, 0.20828506390107443, -0.10289957687018361}, + {0.0, 0.50968169360260451, -0.48159141882733714, -0.10856607456906017, -0.026802006374108955, -0.24967309940249552, -0.21422424792787859, 0.019271890369619571, 0.08065394481240884, -0.061665636719946543, 0.031613782215493547, 0.069574436103950893, -0.07180222507768147, -0.14447996563879059, 0.012044815820150268, -0.0073237976200291044}, + 1 / 2.0, + }, { + 16, /* marshall */ + {0.38455665328113242, 0.50304089890302783, 0.33653970418909934, 0.085604896315814846, -0.070239383452479598, -0.10479060878654689, -0.060150883776583335, 0.030121882977878822, 0.12441775056532201, 0.18287316824579156, 0.17035705141865287, 0.10315414401519916, 0.036357097566567576, 0.024474446155666255, 0.042359967009557103, 0.059946316626725109}, + {0.0, 0.68167571829534335, 0.16877527811114035, -0.17427551663276897, -0.25780056810728452, -0.16065744581310681, -0.032007062964857856, 0.033882840656718101, -0.0038880045892747792, -0.084876415098991506, -0.13865107122780057, -0.10073571899064113, -0.013199668806255366, 0.038170305284592504, -0.026492576852036546, -0.12667775510054707}, + 1 / 4.2, + } +}; + +/* //////////////////////////////////////////////////////////////////////// */ + +void +CabinetI::init (double fs) +{ + h = 0; + model = 0; + normal = NOISE_FLOOR; +} + +void +CabinetI::switch_model (int m) +{ + if (m < 0) m = 0; + else if (m > 5) m = 5; + + model = m; + + n = models[m].n; + a = models[m].a; + b = models[m].b; + + gain = models[m].gain * DSP::db2lin (*ports[2]); + + memset (x, 0, sizeof (x)); + memset (y, 0, sizeof (y)); +} + +void +CabinetI::activate() +{ + switch_model ((int) *ports[1]); +} + +template +void +CabinetI::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + int m = (int) *ports[1]; + if (m != model) switch_model (m); + + d_sample g = models[model].gain * DSP::db2lin (*ports[2]); + double gf = pow (g / gain, 1 / (double) frames); + + d_sample * d = ports[3]; + + for (int i = 0; i < frames; ++i) + { + register cabinet_float out = s[i] + normal; + + x[h] = out; + + out *= a[0]; + + for (int j = 1, z = h - 1; j < n; --z, ++j) + { + z &= 15; + out += a[j] * x[z]; + out += b[j] * y[z]; + } + + y[h] = out; + + h = (h + 1) & 15; + + F (d, i, gain * out, adding_gain); + gain *= gf; + } + + normal = -normal; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +CabinetI::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "model", + INPUT | CONTROL, + {BOUNDED | INTEGER | DEFAULT_1, 0, 5} + }, { + "gain (dB)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -24, 24} + }, { + "out", + OUTPUT | AUDIO, + {0} + } +}; + +/* //////////////////////////////////////////////////////////////////////// */ + +template <> void +Descriptor::setup() +{ + UniqueID = 1766; + Label = "CabinetI"; + Properties = HARD_RT; + + Name = "CAPS: CabinetI - Loudspeaker cabinet emulation"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2002-5"; + + /* fill port info and vtable */ + autogen(); +} + +/* CabinetII ////////////////////////////////////////////////////////////// */ + +#include "Cabinet-Models32.h" + +void +CabinetII::init (double fs) +{ + if (fs < 46000) + models = models44100; + else if (fs < 72000) + models = models48000; + else if (fs < 92000) + models = models88200; + else + models = models96000; + + h = 0; + model = 0; + normal = NOISE_FLOOR; +} + +void +CabinetII::switch_model (int m) +{ + if (m < 0) m = 0; + else if (m > 5) m = 5; + + model = m; + + n = models[m].n; + a = models[m].a; + b = models[m].b; + + gain = models[m].gain * DSP::db2lin (*ports[2]); + + memset (x, 0, sizeof (x)); + memset (y, 0, sizeof (y)); +} + +void +CabinetII::activate() +{ + switch_model ((int) *ports[1]); + gain = models[model].gain * DSP::db2lin (*ports[2]); +} + +template +void +CabinetII::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + int m = (int) *ports[1]; + if (m != model) switch_model (m); + + d_sample g = models[model].gain * DSP::db2lin (*ports[2]); + double gf = pow (g / gain, 1 / (double) frames); + + d_sample * d = ports[3]; + + for (int i = 0; i < frames; ++i) + { + register cabinet_float out = s[i] + normal; + + x[h] = out; + + out *= a[0]; + + for (int j = 1, z = h - 1; j < n; --z, ++j) + { + z &= 31; + out += a[j] * x[z]; + out += b[j] * y[z]; + } + + y[h] = out; + + h = (h + 1) & 31; + + F (d, i, gain * out, adding_gain); + gain *= gf; + } + + normal = -normal; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +CabinetII::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "model", + INPUT | CONTROL, + {BOUNDED | INTEGER | DEFAULT_1, 0, 5} + }, { + "gain (dB)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -24, 24} + }, { + "out", + OUTPUT | AUDIO, + {0} + } +}; + +/* //////////////////////////////////////////////////////////////////////// */ + +template <> void +Descriptor::setup() +{ + UniqueID = 2581; + Label = "CabinetII"; + Properties = HARD_RT; + + Name = "CAPS: CabinetII - Refined loudspeaker cabinet emulation"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2002-5"; + + /* fill port info and vtable */ + autogen(); +} + diff --git a/plugins/ladspa_effect/caps/Cabinet.h b/plugins/ladspa_effect/caps/Cabinet.h new file mode 100644 index 000000000..660b4a2af --- /dev/null +++ b/plugins/ladspa_effect/caps/Cabinet.h @@ -0,0 +1,142 @@ +/* + Cabinet.h + + Copyright 2002-5 Tim Goetze + + http://quitte.de/dsp/ + + CabinetI - 16th order IIR filters modeled after various impulse responses + from Steve Harris' 'imp' plugin. Limited to 44.1 kHz sample rate. + + CabinetII - 32nd order IIR filters modeled after the same impulse responses + using a different algorithm. Versions for 44.1 / 48 / 88.2 / 96 kHz sample + rates, switched at runtime. +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _CABINET_H_ +#define _CABINET_H_ + +#include "dsp/util.h" + +/* cabinet_float sets the data type used for the IIR history and thus the + * computing precision. doubles tend to make the sound more vivid and lively. + * You can squeeze out a few extra cycles by making this 'float' if needed. + * Be warned though that CabinetII has not been tested with 32-bit floats and + * might become unstable due to the lower computing precision. */ +typedef double cabinet_float; + +typedef struct { + int n; + cabinet_float a[16], b[16]; + float gain; +} Model16; + +typedef struct { + int n; + cabinet_float a[32], b[32]; + float gain; +} Model32; + +class CabinetI +{ + public: + d_sample gain; + static Model16 models []; + + int model; + void switch_model (int m); + + int n, h; + cabinet_float * a, * b; + cabinet_float x[16], y[16]; + + d_sample normal; + + template + void one_cycle (int frames); + + public: + static PortInfo port_info []; + d_sample * ports [4]; + + d_sample adding_gain; + + void init (double _fs); + + void activate(); + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +/* Second version with 32nd order filters precalculated for + * 44.1 / 48 / 88.2 / 96 kHz sample rates */ + +class CabinetII +{ + public: + d_sample gain; + + static Model32 models44100 []; + static Model32 models48000 []; + static Model32 models88200 []; + static Model32 models96000 []; + + Model32 * models; + int model; + void switch_model (int m); + + int n, h; + cabinet_float * a, * b; + cabinet_float x[32], y[32]; + + d_sample normal; + + template + void one_cycle (int frames); + + public: + static PortInfo port_info []; + d_sample * ports [4]; + + d_sample adding_gain; + + void init (double _fs); + + void activate(); + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +#endif /* _CABINET_H_ */ diff --git a/plugins/ladspa_effect/caps/Chorus.cc b/plugins/ladspa_effect/caps/Chorus.cc new file mode 100644 index 000000000..dd5396dbf --- /dev/null +++ b/plugins/ladspa_effect/caps/Chorus.cc @@ -0,0 +1,518 @@ +/* + Chorus.cc + + Copyright 2004, 2005 Tim Goetze + + http://quitte.de/dsp/ + + mono and mono-to-stereo chorus units. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include "basics.h" + +#include "Chorus.h" +#include "Descriptor.h" + +template +void +ChorusI::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + double one_over_n = 1 / (double) frames; + double ms = .001 * fs; + + double t = time; + time = *ports[1] * ms; + double dt = (time - t) * one_over_n; + + double w = width; + width = *ports[2] * ms; + /* clamp, or we need future samples from the delay line */ + if (width >= t - 3) width = t - 3; + double dw = (width - w) * one_over_n; + + if (rate != *ports[3]) + lfo.set_f (max (rate = *ports[3], .000001), fs, lfo.get_phase()); + + double blend = *ports[4]; + double ff = *ports[5]; + double fb = *ports[6]; + + d_sample * d = ports[7]; + + /* flip 'renormal' addition constant */ + normal = -normal; + + DSP::FPTruncateMode truncate; + + for (int i = 0; i < frames; ++i) + { + d_sample x = s[i]; + + /* truncate the feedback tap to integer, better quality for less + * cycles (just a bit of zipper when changing 't', but it does sound + * interesting) */ + int ti; + fistp (t, ti); + x -= fb * delay[ti]; + + delay.put (x + normal); + +# if 0 + /* allpass delay sounds a little cleaner for a chorus + * but sucks big time when flanging. */ + x = blend * x + ff * tap.get (delay, t + w * lfo.get()); +# elif 0 + /* linear interpolation */ + x = blend * x + ff * delay.get_at (t + w * lfo.get()); +# else + /* cubic interpolation */ + x = blend * x + ff * delay.get_cubic (t + w * lfo.get()); +# endif + + F (d, i, x, adding_gain); + + t += dt; + w += dw; + } +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +ChorusI::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "t (ms)", + INPUT | CONTROL, + {BOUNDED | LOG | DEFAULT_LOW, 2.5, 40} + }, { + "width (ms)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_1, .5, 10} + }, { + "rate (Hz)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, 5} + }, { + "blend", + INPUT | CONTROL, + {BOUNDED | DEFAULT_1, 0, 1} + }, { + "feedforward", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, 1} + }, { + "feedback", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, 0, 1} + }, { + "out", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1767; + Label = "ChorusI"; + Properties = HARD_RT; + + Name = "CAPS: ChorusI - Mono chorus/flanger"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + +/* //////////////////////////////////////////////////////////////////////// */ + +template +void +StereoChorusI::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + double one_over_n = 1 / (double) frames; + double ms = .001 * fs; + + double t = time; + time = *ports[1] * ms; + double dt = (time - t) * one_over_n; + + double w = width; + width = *ports[2] * ms; + /* clamp, or we need future samples from the delay line */ + if (width >= t - 1) width = t - 1; + double dw = (width - w) * one_over_n; + + if (rate != *ports[3] && phase != *ports[4]) + { + rate = *ports[3]; + phase = *ports[4]; + double phi = left.lfo.get_phase(); + left.lfo.set_f (max (rate, .000001), fs, phi); + right.lfo.set_f (max (rate, .000001), fs, phi + phase * M_PI); + } + + double blend = *ports[5]; + double ff = *ports[6]; + double fb = *ports[7]; + + d_sample * dl = ports[8]; + d_sample * dr = ports[9]; + + /* flip 'renormal' addition constant */ + normal = -normal; + + /* to go sure (on i386) that the fistp instruction does the right thing + * when looking up fractional sample indices */ + DSP::FPTruncateMode truncate; + + for (int i = 0; i < frames; ++i) + { + d_sample x = s[i]; + + /* truncate the feedback tap to integer, better quality for less + * cycles (just a bit of zipper when changing 't', but it does sound + * interesting) */ + int ti; + fistp (t, ti); + x -= fb * delay[ti]; + + delay.put (x + normal); + + d_sample l = blend * x + ff * delay.get_cubic (t + w * left.lfo.get()); + d_sample r = blend * x + ff * delay.get_cubic (t + w * right.lfo.get()); + + F (dl, i, l, adding_gain); + F (dr, i, r, adding_gain); + + t += dt; + w += dw; + } +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +StereoChorusI::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "t (ms)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MIN, 2.5, 40} + }, { + "width (ms)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_1, .5, 10} + }, { + "rate (Hz)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, 5} + }, { + "phase", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MAX, 0, 1} + }, { + "blend", + INPUT | CONTROL, + {BOUNDED | DEFAULT_1, 0, 1} + }, { + "feedforward", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, 1} + }, { + "feedback", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, 0, 1} + }, { + "out:l", + OUTPUT | AUDIO, + {0} + }, { + "out:r", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1768; + Label = "StereoChorusI"; + Properties = HARD_RT; + + Name = "CAPS: StereoChorusI - Stereo chorus/flanger"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + +/* //////////////////////////////////////////////////////////////////////// */ + +template +void +ChorusII::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + double one_over_n = 1 / (double) frames; + double ms = .001 * fs; + + double t = time; + time = *ports[1] * ms; + double dt = (time - t) * one_over_n; + + double w = width; + width = *ports[2] * ms; + /* clamp, or we need future samples from the delay line */ + if (width >= t - 3) width = t - 3; + double dw = (width - w) * one_over_n; + + if (rate != *ports[3]) + set_rate (*ports[3]); + + double blend = *ports[4]; + double ff = *ports[5]; + double fb = *ports[6]; + + d_sample * d = ports[7]; + + /* flip 'renormal' addition constant */ + normal = -normal; + + DSP::FPTruncateMode truncate; + + for (int i = 0; i < frames; ++i) + { + d_sample x = s[i]; + + x -= fb * delay.get_cubic (t); + + delay.put (filter.process (x + normal)); + + double a = 0; + for (int j = 0; j < Taps; ++j) + a += taps[j].get (delay, t, w); + + x = blend * x + ff * a; + + F (d, i, x, adding_gain); + + t += dt; + w += dw; + } +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +ChorusII::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "t (ms)", + INPUT | CONTROL, + {BOUNDED | LOG | DEFAULT_LOW, 2.5, 40} + }, { + "width (ms)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_1, .5, 10} + }, { + "rate", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, 1} + }, { + "blend", + INPUT | CONTROL, + {BOUNDED | DEFAULT_1, 0, 1} + }, { + "feedforward", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, 1} + }, { + "feedback", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, 0, 1} + }, { + "out", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 2583; + Label = "ChorusII"; + Properties = HARD_RT; + + Name = "CAPS: ChorusII - Mono chorus/flanger modulated by a fractal"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + +/* //////////////////////////////////////////////////////////////////////// */ + +template +void +StereoChorusII::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + double one_over_n = 1 / (double) frames; + double ms = .001 * fs; + + double t = time; + time = *ports[1] * ms; + double dt = (time - t) * one_over_n; + + double w = width; + width = *ports[2] * ms; + /* clamp, or we need future samples from the delay line */ + if (width >= t - 1) width = t - 1; + double dw = (width - w) * one_over_n; + + set_rate (*ports[3]); + + double blend = *ports[4]; + double ff = *ports[5]; + double fb = *ports[6]; + + d_sample * dl = ports[7]; + d_sample * dr = ports[8]; + + /* flip 'renormal' addition constant */ + normal = -normal; + + /* to go sure (on i386) that the fistp instruction does the right thing + * when looking up fractional sample indices */ + DSP::FPTruncateMode truncate; + + for (int i = 0; i < frames; ++i) + { + d_sample x = s[i]; + + /* truncate the feedback tap to integer, better quality for less + * cycles (just a bit of zipper when changing 't', but it does sound + * interesting) */ + int ti; + fistp (t, ti); + x -= fb * delay[ti]; + + delay.put (x + normal); + + double m; + m = left.lfo_lp.process (left.fractal.get()); + d_sample l = blend * x + ff * delay.get_cubic (t + w * m); + m = right.lfo_lp.process (right.fractal.get()); + d_sample r = blend * x + ff * delay.get_cubic (t + w * m); + + F (dl, i, l, adding_gain); + F (dr, i, r, adding_gain); + + t += dt; + w += dw; + } +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +StereoChorusII::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "t (ms)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 2.5, 40} + }, { + "width (ms)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, .5, 10} + }, { + "rate", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, 1} + }, { + "blend", + INPUT | CONTROL, + {BOUNDED | DEFAULT_1, 0, 1} + }, { + "feedforward", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, 0, 1} + }, { + "feedback", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, 0, 1} + }, { + "out:l", + OUTPUT | AUDIO, + {0} + }, { + "out:r", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 2584; + Label = "StereoChorusII"; + Properties = HARD_RT; + + Name = "CAPS: StereoChorusII - Stereo chorus/flanger modulated by a fractal"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + + diff --git a/plugins/ladspa_effect/caps/Chorus.h b/plugins/ladspa_effect/caps/Chorus.h new file mode 100644 index 000000000..a43b332ad --- /dev/null +++ b/plugins/ladspa_effect/caps/Chorus.h @@ -0,0 +1,323 @@ +/* + Chorus.h + + Copyright 2004-5 Tim Goetze + + http://quitte.de/dsp/ + + mono and stereo chorus/flanger units, traditional designs and some + differentiated a bit further. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _CHORUS_H_ +#define _CHORUS_H_ + +#include "dsp/Sine.h" +#include "dsp/Roessler.h" +#include "dsp/Lorenz.h" +#include "dsp/Delay.h" +#include "dsp/OnePole.h" +#include "dsp/BiQuad.h" +#include "dsp/RBJ.h" + +class ChorusStub +{ + public: + double fs; + d_sample time, width, rate; + d_sample normal; /* denormal protection */ +}; + +class ChorusI +: public ChorusStub +{ + public: + DSP::Sine lfo; + DSP::Delay delay; + DSP::DelayTapA tap; + + template + void one_cycle (int frames); + + public: + d_sample * ports [8]; + + static PortInfo port_info []; + d_sample adding_gain; + + void init (double _fs) + { + fs = _fs; + rate = .15; + delay.init ((int) (.040 * fs)); + normal = NOISE_FLOOR; + } + + void activate() + { + time = 0; + width = 0; + + rate = *ports[3]; + + delay.reset(); + tap.reset(); + + lfo.set_f (rate, fs, 0); + } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +class StereoChorusI +: public ChorusStub +{ + public: + double fs; + d_sample rate; + d_sample phase; + + DSP::Delay delay; + + struct { + DSP::Sine lfo; + DSP::DelayTapA tap; + } left, right; + + template + void one_cycle (int frames); + + public: + d_sample * ports [10]; + + static PortInfo port_info []; + d_sample adding_gain; + + void init (double _fs) + { + fs = _fs; + rate = .15; + phase = .5; /* pi */ + + delay.init ((int) (.040 * fs)); + normal = NOISE_FLOOR; + } + + void activate() + { + time = 0; + width = 0; + + delay.reset(); + + left.tap.reset(); + right.tap.reset(); + + left.lfo.set_f (rate, fs, 0); + right.lfo.set_f (rate, fs, phase * M_PI); + } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +/* //////////////////////////////////////////////////////////////////////// */ + +#define FRACTAL_RATE 0.02 + +/* fractally modulated Chorus units */ + +class FracTap +{ + public: + DSP::Lorenz f1; + DSP::Roessler f2; + DSP::OnePoleLP lp; + + void init (double fs) + { + lp.set_f (30. / fs); + f1.init (.001, frandom()); + f2.init (.001, frandom()); + } + + void set_rate (d_sample r) + { + f1.set_rate (r * FRACTAL_RATE); + f2.set_rate (3.3 * r * FRACTAL_RATE); + } + + /* t = time, w = width, should inline nicely */ + d_sample get (DSP::Delay & d, double t, double w) + { + double m = lp.process (f1.get() + .3 * f2.get()); + return d.get_cubic (t + w * m); + } +}; + +class ChorusII +: public ChorusStub +{ + public: + enum { + Taps = 1 + }; + + FracTap taps[Taps]; + DSP::BiQuad filter; + DSP::Delay delay; + + template + void one_cycle (int frames); + + void set_rate (d_sample r) + { + rate = r; + for (int i = 0; i < Taps; ++i) + { + taps[i].set_rate (rate * (i * FRACTAL_RATE) / Taps); + // fprintf (stderr, "[%d] %.3f\n", i, (rate * (i * FRACTAL_RATE) / Taps)); + } + } + + public: + d_sample * ports [8]; + + static PortInfo port_info []; + d_sample adding_gain; + + void init (double _fs) + { + fs = _fs; + normal = NOISE_FLOOR; + delay.init ((int) (.040 * fs)); + for (int i = 0; i < Taps; ++i) + taps[i].init (fs); + DSP::RBJ::HiShelve (1000. / fs, 1., 6, filter.a, filter.b); + } + + void activate() + { + time = 0; + width = 0; + + set_rate (*ports[3]); + + delay.reset(); + filter.reset(); + } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +class StereoChorusII +: public ChorusStub +{ + public: + double fs; + d_sample rate; + d_sample phase; + + DSP::Delay delay; + + struct { + DSP::Roessler fractal; + DSP::OnePoleLP lfo_lp; + DSP::DelayTapA tap; + } left, right; + + template + void one_cycle (int frames); + + void set_rate (d_sample r) + { + rate = r; + left.fractal.set_rate (rate * FRACTAL_RATE); + right.fractal.set_rate (rate * FRACTAL_RATE); + left.lfo_lp.set_f (3. / fs); + right.lfo_lp.set_f (3. / fs); + } + + public: + d_sample * ports [10]; + + static PortInfo port_info []; + d_sample adding_gain; + + void init (double _fs) + { + fs = _fs; + phase = .5; /* pi */ + + delay.init ((int) (.040 * fs)); + normal = NOISE_FLOOR; + + left.fractal.init (.001, frandom()); + right.fractal.init (.001, frandom()); + } + + void activate() + { + time = 0; + width = 0; + + delay.reset(); + + left.tap.reset(); + right.tap.reset(); + + set_rate (*ports[3]); + } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +#endif /* _CHORUS_H_ */ diff --git a/plugins/ladspa_effect/caps/Click.cc b/plugins/ladspa_effect/caps/Click.cc new file mode 100644 index 000000000..853c21f39 --- /dev/null +++ b/plugins/ladspa_effect/caps/Click.cc @@ -0,0 +1,235 @@ +/* + Click.cc + + Copyright 2002-5 Tim Goetze + + http://quitte.de/dsp/ + + Plugins playing a sound snippet in regular intervals. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include "basics.h" + +#include "click.h" +#include "money.h" + +#include "Click.h" +#include "Descriptor.h" + +void +ClickStub::init (double _fs, float * _wave, int _N) +{ + fs = _fs; + wave = _wave; + N = _N; + bpm = -1; + normal = NOISE_FLOOR; +} + +template +void +ClickStub::one_cycle (int frames) +{ + bpm = *ports[0]; + d_sample gain = *ports[1] * *ports[1]; + lp.set (1 - *ports[2]); + + d_sample * d = ports[3]; + + while (frames) + { + if (period == 0) + { + period = (int) (fs * 60 / bpm); + played = 0; + } + + int n = min (frames, period); + + if (played < N) + { + n = min (n, N - played); + + for (int i = 0; i < n; ++i) + { + d_sample x = gain * wave [played + i] + normal; + F (d, i, lp.process (x), adding_gain); + normal = -normal; + } + + played += n; + } + else + { + for (int i = 0; i < n; ++i) + { + F (d, i, lp.process (normal), adding_gain); + normal = -normal; + } + } + + period -= n; + frames -= n; + d += n; + } +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +ClickStub::port_info [] = +{ + { + "bpm", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 4, 244} + }, { + "volume", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, 0, 1} + }, { + "damping", + INPUT | CONTROL, + {BOUNDED | DEFAULT_HIGH, 0, 1} + }, { + "out", + OUTPUT | AUDIO, + {0} + } +}; + +/* //////////////////////////////////////////////////////////////////////// */ + +#define LENGTH(W) ((int) (sizeof (W) / sizeof (float))) + +void +Click::init (double fs) +{ + this->ClickStub::init (fs, click, LENGTH (click)); +} + +template <> void +Descriptor::setup() +{ + UniqueID = 1769; + Label = "Click"; + Properties = HARD_RT; + + Name = "CAPS: Click - Metronome"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +CEO::port_info [] = +{ + { + "mpm", + INPUT | CONTROL, + {BOUNDED | DEFAULT_HIGH, 4, 244} + }, { + "volume", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, 0, 1} + }, { + "damping", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MIN, 0, 1} + }, { + "out", + OUTPUT | AUDIO, + {0} + } +}; + +void +CEO::init (double fs) +{ + this->ClickStub::init (fs, money, LENGTH (money)); +} + +template <> void +Descriptor::setup() +{ + UniqueID = 1770; + Label = "CEO"; + Properties = HARD_RT; + + Name = "CAPS: CEO - Chief Executive Oscillator"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + +/* //////////////////////////////////////////////////////////////////////// */ + +float dirac [] = { 1, }; + +PortInfo +Dirac::port_info [] = +{ + { + "ppm", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MIN, 30, 60} + }, { + "volume", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, 0, 1} + }, { + "damping", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, 0, 1} + }, { + "out", + OUTPUT | AUDIO, + {0} + } +}; + +void +Dirac::init (double fs) +{ + this->ClickStub::init (fs, dirac, LENGTH (dirac)); +} + +template <> void +Descriptor::setup() +{ + UniqueID = 2585; + Label = "Dirac"; + Properties = HARD_RT; + + Name = "CAPS: Dirac - One-sample impulse generator"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + + diff --git a/plugins/ladspa_effect/caps/Click.h b/plugins/ladspa_effect/caps/Click.h new file mode 100644 index 000000000..63eda873f --- /dev/null +++ b/plugins/ladspa_effect/caps/Click.h @@ -0,0 +1,104 @@ +/* + Click.h + + Copyright 2004-5 Tim Goetze + + http://quitte.de/dsp/ + + units perpetually repeating a recorded sample. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _CLICK_H_ +#define _CLICK_H_ + +#include "dsp/OnePole.h" +#include "dsp/util.h" + +class ClickStub +{ + public: + double fs; + + d_sample bpm; + + float * wave; + int N; /* number of samples in wave */ + + DSP::OnePoleLP lp; + + int period; /* frames remaining in period */ + int played; /* frames played from sample */ + + d_sample normal; + + template + void one_cycle (int frames); + + public: + static PortInfo port_info []; + d_sample * ports [4]; + + d_sample adding_gain; + + void init (double _fs, float * _wave, int _N); + + void activate() + { + played = 0; + period = 0; + } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +class Click +: public ClickStub +{ + public: + void init (double fs); +}; + +class CEO +: public ClickStub +{ + public: + void init (double fs); + + static PortInfo port_info []; +}; + +class Dirac +: public ClickStub +{ + public: + void init (double fs); + + static PortInfo port_info []; +}; + +#endif /* _CLICK_H_ */ diff --git a/plugins/ladspa_effect/caps/Clip.cc b/plugins/ladspa_effect/caps/Clip.cc new file mode 100644 index 000000000..b1dcf9c7b --- /dev/null +++ b/plugins/ladspa_effect/caps/Clip.cc @@ -0,0 +1,148 @@ +/* + Clip.cc + + Copyright 2003-5 Tim Goetze + + http://quitte.de/dsp/ + + simple oversampled hard clipper + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include "basics.h" + +#include "Clip.h" +#include "Descriptor.h" + +void +Clip::init (double _fs) +{ + fs = _fs; + gain = 1; + + threshold[0] = -.9; + threshold[1] = +.9; + + /* going a bit lower than nominal with fc */ + double f = .5 * M_PI / OVERSAMPLE; + + /* construct the upsampler filter kernel */ + DSP::sinc (f, up.c, FIR_SIZE); + DSP::kaiser (up.c, FIR_SIZE, 6.4); + + /* copy upsampler filter kernel for downsampler, make sum */ + double s = 0; + for (int i = 0; i < up.n; ++i) + down.c[i] = up.c[i], + s += up.c[i]; + + /* scale downsampler kernel for unity gain */ + s = 1 / s; + for (int i = 0; i < down.n; ++i) + down.c[i] *= s; + + /* scale upsampler kernel for unity gain */ + s *= OVERSAMPLE; + for (int i = 0; i < up.n; ++i) + up.c[i] *= s; +} + +inline d_sample +Clip::clip (d_sample a) +{ + if (a < threshold[0]) + return threshold[0]; + if (a > threshold[1]) + return threshold[1]; + return a; +} + +template +void +Clip::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + double gf; + if (*ports[1] == gain_db) + gf = 1; + else + { + gain_db = *ports[1]; + d_sample g = DSP::db2lin (gain_db); + gf = pow (g / gain, 1 / (double) frames); + } + + d_sample * d = ports[2]; + *ports[3] = OVERSAMPLE; + + for (int i = 0; i < frames; ++i) + { + register d_sample a = gain * s[i]; + + a = down.process (clip (up.upsample (a))); + + for (int o = 1; o < OVERSAMPLE; ++o) + down.store (clip (up.pad (o))); + + F (d, i, a, adding_gain); + + gain *= gf; + } +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +Clip::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "gain (dB)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_1, -72, 72} + }, { + "out", + OUTPUT | AUDIO, + {0} + }, { + "latency", + OUTPUT | CONTROL, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1771; + Label = "Clip"; + Properties = HARD_RT; + + Name = "CAPS: Clip - Hard clipper, 8x oversampled"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2003-5"; + + /* fill port info and vtable */ + autogen(); +} + diff --git a/plugins/ladspa_effect/caps/Clip.h b/plugins/ladspa_effect/caps/Clip.h new file mode 100644 index 000000000..1f6926ee7 --- /dev/null +++ b/plugins/ladspa_effect/caps/Clip.h @@ -0,0 +1,90 @@ +/* + Clip.h + + Copyright 2004-5 Tim Goetze + + http://quitte.de/dsp/ + + oversampled hard ('diode', 'transistor', sometimes 'op-amp') clipper. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _CLIP_H_ +#define _CLIP_H_ + +#include "dsp/util.h" +#include "dsp/FIR.h" +#include "dsp/sinc.h" +#include "dsp/windows.h" + +class Clip +{ + public: + double fs; + d_sample gain, gain_db; + + d_sample threshold[2]; + + enum { + OVERSAMPLE = 8, + FIR_SIZE = 64, + }; + + /* antialias filters */ + DSP::FIRUpsampler up; + DSP::FIR down; + + template + void one_cycle (int frames); + + inline d_sample clip (d_sample x); + + public: + static PortInfo port_info[]; + d_sample * ports [4]; + + d_sample adding_gain; + + Clip() + : up (FIR_SIZE, OVERSAMPLE), + down (FIR_SIZE) + { } + + void init (double fs); + + void activate() + { + up.reset(); + down.reset(); + gain_db = *ports[1]; + gain = DSP::db2lin (gain_db); + } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +#endif /* _CLIP_H_ */ diff --git a/plugins/ladspa_effect/caps/Compress.cc b/plugins/ladspa_effect/caps/Compress.cc new file mode 100644 index 000000000..4f44274b6 --- /dev/null +++ b/plugins/ladspa_effect/caps/Compress.cc @@ -0,0 +1,159 @@ +/* + Compress.cc + + Copyright 2004-5 Tim Goetze + + http://quitte.de/dsp/ + + mono compressor suitable for solo instruments. adaptation of Steve + Harris' 'sc1' unit, with minor tweaks: table lookup for attack and + release time to frames mapping replaced with exp. port order changed. +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include "basics.h" + +#include "Compress.h" +#include "Descriptor.h" + +void +Compress::init (double _fs) +{ + fs = _fs; +} + +template +void +Compress::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + d_sample range = DSP::db2lin (*ports[1]); + d_sample ratio = (*ports[2] - 1) / *ports[2]; + + /* sc1 has lookup tables here, and they're only 40 % used (400 ms/1 s). + * thus, sc1's attack/release controls are a bit coarse due to truncation + * error. calling exp() once per cycle doesn't seem too expensive. + * + * besides, i have a suspicion that the attack and release parameters + * don't work like they should. if they, as the code suggests, control + * an exponential envelope fade, pow (.5, n_frames) or something like + * that seems more appropriate. so ... + * + * TODO: check whether these parameters work like they should, try pow() + */ + double ga = exp (-1 / (fs * *ports[3])); + double gr = exp (-1 / (fs * *ports[4])); + + d_sample threshold = *ports[5]; + d_sample knee = *ports[6]; + + d_sample * d = ports[7]; + + d_sample knee0 = DSP::db2lin (threshold - knee); + d_sample knee1 = DSP::db2lin (threshold + knee); + + d_sample ef_a = ga * .25; + d_sample ef_ai = 1 - ef_a; + + for (int i = 0; i < frames; ++i) + { + sum += s[i] * s[i]; + + if (amp > env) + env = env * ga + amp * (1 - ga); + else + env = env * gr + amp * (1 - gr); + + if ((count++ & 3) == 3) + { + amp = rms.process (sum * .25); + sum = 0; + + if (env < knee0) + gain_t = 1; + else if (env < knee1) + { + float x = -(threshold - knee - DSP::lin2db (env)) / knee; + gain_t = DSP::db2lin (-knee * ratio * x * x * 0.25f); + } + else + gain_t = DSP::db2lin ((threshold - DSP::lin2db (env)) * ratio); + } + + gain = gain * ef_a + gain_t * ef_ai; + + F (d, i, s[i] * gain * range, adding_gain); + } +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +Compress::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "gain (dB)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, 24} + }, { + "ratio (1:n)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MIN, 1, 10} + }, { + "attack (s)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MIN, .001, 1} + }, { + "release (s)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, .001, 1} + }, { + "threshold (dB)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -30, 400} + }, { + "knee radius (dB)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 1, 10} + }, { + "out", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1772; + Label = "Compress"; + Properties = HARD_RT; + + Name = "CAPS: Compress - Mono compressor"; + Maker = "Tim Goetze , Steve Harris "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + diff --git a/plugins/ladspa_effect/caps/Compress.h b/plugins/ladspa_effect/caps/Compress.h new file mode 100644 index 000000000..c7209ae2c --- /dev/null +++ b/plugins/ladspa_effect/caps/Compress.h @@ -0,0 +1,81 @@ +/* + Compress.h + + Copyright 2004-5 Tim Goetze , Steve Harris + + http://quitte.de/dsp/ + + mono compressor. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _COMPRESS_H_ +#define _COMPRESS_H_ + +#include "dsp/RMS.h" +#include "dsp/util.h" + +class Compress +{ + public: + double fs; + d_sample f; + + DSP::RMS rms; + d_sample sum, amp, env, gain, gain_t; + + int count; + + template + void one_cycle (int frames); + + public: + static PortInfo port_info []; + d_sample * ports [8]; + + d_sample adding_gain; + + void init (double _fs); + + void activate() + { + rms.reset(); + + sum = 0; + count = 0; + + amp = 0; + env = 0; + + gain = 0; + gain_t = 0; + } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +#endif /* _COMPRESS_H_ */ diff --git a/plugins/ladspa_effect/caps/Descriptor.h b/plugins/ladspa_effect/caps/Descriptor.h new file mode 100644 index 000000000..429524ac4 --- /dev/null +++ b/plugins/ladspa_effect/caps/Descriptor.h @@ -0,0 +1,163 @@ +/* + Descriptor.h + + Copyright 2004-5 Tim Goetze + + http://quitte.de/dsp/ + + creating a LADSPA_Descriptor for a caps plugin via a C++ template, + saves us a virtual function call compared to the usual method used + for C++ plugins in a C context. + + Descriptor

expects P to declare some common methods, like init(), + activate() etc, plus a static port_info[] and LADSPA_Data * ports[] + and of course 'adding_gain'. + + maintaining both port_info[] and ports[] is a bit of a bitch, but, + hey, "you only do it once (tm)" .. and then you do it over and over + again. particularly bothersome is also the necessary unrolling of our + PortInfo array to fit into LADSPA_Descriptor's inconsequential way of + port data structuring, which results in quite a bit of memory holding + duplicated data. oh well. +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _DESCRIPTOR_H_ +#define _DESCRIPTOR_H_ + +/* common stub for Descriptor makes it possible to delete() without special- + * casing for every plugin class. + */ +class DescriptorStub +: public LADSPA_Descriptor +{ + public: + DescriptorStub() + { + PortCount = 0; + } + + ~DescriptorStub() + { + if (PortCount) + { + delete [] PortNames; + delete [] PortDescriptors; + delete [] PortRangeHints; + } + } +}; + +template +class Descriptor +: public DescriptorStub +{ + public: + /* tom szilyagi reports that hosts exist which call activate() before + * connect_port(). since caps' plugins expect ports to be valid we + * need a safeguard: at instantiation, each port is connected to the + * lower bound. When (If?) LADSPA default values are ever fixed, connecting + * to the default will be preferred. */ + LADSPA_PortRangeHint * ranges; + + public: + Descriptor() + { setup(); } + + void setup(); + + void autogen() + { + PortCount = (sizeof (T::port_info) / sizeof (PortInfo)); + + /* unroll PortInfo members */ + char ** names = new char * [PortCount]; + LADSPA_PortDescriptor * desc = new LADSPA_PortDescriptor [PortCount]; + ranges = new LADSPA_PortRangeHint [PortCount]; + + /* could also assign directly but const_cast is ugly. */ + for (int i = 0; i < (int) PortCount; ++i) + { + names[i] = T::port_info[i].name; + desc[i] = T::port_info[i].descriptor; + ranges[i] = T::port_info[i].range; + } + + PortNames = names; + PortDescriptors = desc; + PortRangeHints = ranges; + + /* LADSPA_Descriptor vtable entries */ + instantiate = _instantiate; + connect_port = _connect_port; + activate = _activate; + run = _run; + run_adding = _run_adding; + set_run_adding_gain = _set_run_adding_gain; + deactivate = 0; + cleanup = _cleanup; + } + + static LADSPA_Handle _instantiate ( + const struct _LADSPA_Descriptor * d, ulong fs) + { + T * plugin = new T(); + + /* see comment above at 'ranges' member */ + for (int i = 0; i < (int) d->PortCount; ++i) + plugin->ports[i] = &((Descriptor *) d)->ranges[i].LowerBound; + + plugin->init (fs); + + return plugin; + } + + static void _connect_port (LADSPA_Handle h, ulong i, LADSPA_Data * p) + { + ((T *) h)->ports[i] = p; + } + + static void _activate (LADSPA_Handle h) + { + ((T *) h)->activate(); + } + + static void _run (LADSPA_Handle h, ulong n) + { + /* cannot call template here (g++ 2.95), sigh. */ + ((T *) h)->run (n); + } + + static void _run_adding (LADSPA_Handle h, ulong n) + { + /* cannot call a template here (g++ 2.95), sigh. */ + ((T *) h)->run_adding (n); + } + + static void _set_run_adding_gain (LADSPA_Handle h, LADSPA_Data g) + { + ((T *) h)->adding_gain = g; + } + + static void _cleanup (LADSPA_Handle h) + { + delete (T *) h; + } +}; + +#endif /* _DESCRIPTOR_H_ */ diff --git a/plugins/ladspa_effect/caps/Eq.cc b/plugins/ladspa_effect/caps/Eq.cc new file mode 100644 index 000000000..2369a2d1f --- /dev/null +++ b/plugins/ladspa_effect/caps/Eq.cc @@ -0,0 +1,169 @@ +/* + Eq.cc + + Copyright 2002-5 Tim Goetze + + http://quitte.de/dsp/ + + 10-band octave-spread equalizer. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include "basics.h" +#include + +#include "Eq.h" +#include "Descriptor.h" + +void +Eq::init (double _fs) +{ + fs = _fs; + eq.init (fs, 1.2); + normal = NOISE_FLOOR; +} + +inline static double +adjust_gain (int i, double g) +{ + static float adjust[] = { + 0.69238604707174034, 0.67282771124180096, + 0.67215187672467813, 0.65768648447259315, + 0.65988083755898952, 0.66359580101701909, + 0.66485139160960427, 0.65890297086039662, + 0.6493229390740376, 0.82305724539749325 + }; + + return g * adjust[i]; +} + +void +Eq::activate() +{ + for (int i = 0; i < 10; ++i) + { + gain[i] = *ports [1 + i]; + eq.gain[i] = adjust_gain (i, DSP::db2lin (gain[i])); + } +} + +template +void +Eq::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + /* evaluate band gain changes and compute recursion factor to prevent + * zipper noise */ + double one_over_n = 1. / frames; + + for (int i = 0; i < 10; ++i) + { + if (*ports [1 + i] == gain[i]) + { + /* no gain factoring */ + eq.gf[i] = 1; + continue; + } + + gain[i] = *ports [1 + i]; + + double want = adjust_gain (i, DSP::db2lin (gain[i])); + eq.gf[i] = pow (want / eq.gain[i], one_over_n); + } + + d_sample * d = ports[11]; + + for (int i = 0; i < frames; ++i) + F (d, i, eq.process (s[i] + normal), adding_gain); + + normal = -normal; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +Eq::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {0, -1, 1} + }, { + "31 Hz", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -48, 30} + }, { + "63 Hz", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -48, 30} + }, { + "125 Hz", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -48, 30} + }, { + "250 Hz", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -48, 30} + }, { + "500 Hz", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -48, 30} + }, { + "1 kHz", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -48, 30} + }, { + "2 kHz", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -48, 30} + }, { + "4 kHz", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -48, 30} + }, { + "8 kHz", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -48, 30} + }, { + "16 kHz", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -48, 30} + }, { + "out", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1773; + Label = "Eq"; + Properties = HARD_RT; + + Name = "CAPS: Eq - 10-band 'analogue' equalizer"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + diff --git a/plugins/ladspa_effect/caps/Eq.h b/plugins/ladspa_effect/caps/Eq.h new file mode 100644 index 000000000..3ef1c281c --- /dev/null +++ b/plugins/ladspa_effect/caps/Eq.h @@ -0,0 +1,67 @@ +/* + Eq.h + + Copyright 2004-5 Tim Goetze + + http://quitte.de/dsp/ + + equalizer circuit using recursive filtering. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _EQ_H_ +#define _EQ_H_ + +#include "dsp/Eq.h" +#include "dsp/util.h" + +class Eq +{ + public: + double fs; + d_sample gain[10]; + d_sample normal; + + DSP::Eq<10,12> eq; + + template + void one_cycle (int frames); + + public: + static PortInfo port_info []; + d_sample * ports [12]; + + d_sample adding_gain; + + void init (double _fs); + + void activate(); + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +#endif /* _EQ_H_ */ diff --git a/plugins/ladspa_effect/caps/HRTF.cc b/plugins/ladspa_effect/caps/HRTF.cc new file mode 100644 index 000000000..73cec03d8 --- /dev/null +++ b/plugins/ladspa_effect/caps/HRTF.cc @@ -0,0 +1,151 @@ +/* + HRTF.cc + + Copyright 2002-5 Tim Goetze + + http://quitte.de/dsp/ + + high-order IIR filtering modeled after HRTF impulse responses + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include "basics.h" + +#include "HRTF.h" +#include "Descriptor.h" + +#include "elev0.h" + +/* //////////////////////////////////////////////////////////////////////// */ + +void +HRTF::init (double fs) +{ + normal = NOISE_FLOOR; + h = 0; +} + +void +HRTF::set_pan (int p) +{ + n = 31; + + pan = p; + + if (p >= 0) + { + left.a = elev0[p].left.a; + left.b = elev0[p].left.b; + right.a = elev0[p].right.a; + right.b = elev0[p].right.b; + } + else + { + p = -p; + left.a = elev0[p].right.a; + left.b = elev0[p].right.b; + right.a = elev0[p].left.a; + right.b = elev0[p].left.b; + } + + memset (left.y, 0, sizeof (left.y)); + memset (right.y, 0, sizeof (right.y)); +} + +template +void +HRTF::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + int p = (int) *ports[1]; + if (p != pan) set_pan (p); + + d_sample * dl = ports[2]; + d_sample * dr = ports[3]; + + double l, r; + + for (int i = 0; i < frames; ++i) + { + x[h] = l = r = s[i] + normal; + + l *= left.a[0]; + r *= right.a[0]; + + for (int j = 1, z = h - 1; j < n; --z, ++j) + { + z &= 31; + l += left.a[j] * x[z]; + l += left.b[j] * left.y[z]; + r += right.a[j] * x[z]; + r += right.b[j] * right.y[z]; + } + + left.y[h] = l; + right.y[h] = r; + + h = (h + 1) & 31; + + F (dl, i, l, adding_gain); + F (dr, i, r, adding_gain); + } + + normal = -normal; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +HRTF::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "pan", + INPUT | CONTROL, + {BOUNDED | INTEGER | DEFAULT_0, -36, 36} + }, { + "out:l", + OUTPUT | AUDIO, + {0} + }, { + "out:r", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1787; + Label = "HRTF"; + Properties = HARD_RT; + + Name = "CAPS: HRTF - Head-related transfer function at elevation 0"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + diff --git a/plugins/ladspa_effect/caps/HRTF.h b/plugins/ladspa_effect/caps/HRTF.h new file mode 100644 index 000000000..6e4277014 --- /dev/null +++ b/plugins/ladspa_effect/caps/HRTF.h @@ -0,0 +1,77 @@ +/* + HRTF.h + + Copyright 2002-5 Tim Goetze + + http://quitte.de/dsp/ + + IIR filtering based on HRTF data sets + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _HRTF_H_ +#define _HRTF_H_ + +#include "dsp/util.h" + +class HRTF +{ + public: + int pan; + int n, h; + + double x[32]; + + struct { + double * a, * b; + double y[32]; + } left, right; + + void set_pan (int p); + + d_sample normal; + + template + void one_cycle (int frames); + + public: + static PortInfo port_info []; + d_sample * ports [4]; + + d_sample adding_gain; + + void init (double _fs); + + void activate() + { + set_pan ((int) *ports[1]); + } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +#endif /* _HRTF_H_ */ diff --git a/plugins/ladspa_effect/caps/Lorenz.cc b/plugins/ladspa_effect/caps/Lorenz.cc new file mode 100644 index 000000000..92e48417d --- /dev/null +++ b/plugins/ladspa_effect/caps/Lorenz.cc @@ -0,0 +1,115 @@ +/* + Lorenz.cc + + Copyright 2002-5 Tim Goetze + + http://quitte.de/dsp/ + + the sound of a Lorenz attractor. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include + +#include "basics.h" + +#include "Lorenz.h" +#include "Descriptor.h" + +void +Lorenz::init (double _fs) +{ + fs = _fs; + lorenz.init (h = .001, 0.1 * frandom()); + gain = 0; +} + +template +void +Lorenz::one_cycle (int frames) +{ + lorenz.set_rate (*ports[0]); + + double g = (gain == *ports[4]) ? + 1 : pow (*ports[4] / gain, 1. / (double) frames); + + d_sample * d = ports[5]; + + d_sample x, sx = *ports[1], sy = *ports[2], sz = *ports[3]; + + for (int i = 0; i < frames; ++i) + { + lorenz.step(); + + x = sx * lorenz.get_x() + sy * lorenz.get_y() + sz * lorenz.get_z(); + + F (d, i, gain * x, adding_gain); + gain *= g; + } + + gain = *ports[4]; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +Lorenz::port_info [] = +{ + { + "h", + INPUT | CONTROL, + {BOUNDED, 0, 1} + }, { + "x", + INPUT | CONTROL, + {BOUNDED | DEFAULT_1, 0, 1} + }, { + "y", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, 0, 1} + }, { + "z", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, 0, 1} + }, { + "volume", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, MIN_GAIN, 1} + }, { + "out", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1774; + Label = "Lorenz"; + Properties = HARD_RT; + + Name = "CAPS: Lorenz - The sound of a Lorenz attractor"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + diff --git a/plugins/ladspa_effect/caps/Lorenz.h b/plugins/ladspa_effect/caps/Lorenz.h new file mode 100644 index 000000000..f1186aa2c --- /dev/null +++ b/plugins/ladspa_effect/caps/Lorenz.h @@ -0,0 +1,66 @@ +/* + Lorenz.h + + Copyright 2004-5 Tim Goetze + + http://quitte.de/dsp/ + + turns the state of a Lorenz fractal into sound. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _LORENZ_H_ +#define _LORENZ_H_ + +#include "dsp/Lorenz.h" + +class Lorenz +{ + public: + double fs; + d_sample h, gain; + + DSP::Lorenz lorenz; + + template + void one_cycle (int frames); + + public: + static PortInfo port_info []; + d_sample * ports [6]; + + d_sample adding_gain; + + void init (double _fs); + + void activate() + { } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +#endif /* _LORENZ_H_ */ diff --git a/plugins/ladspa_effect/caps/Pan.cc b/plugins/ladspa_effect/caps/Pan.cc new file mode 100644 index 000000000..24586159f --- /dev/null +++ b/plugins/ladspa_effect/caps/Pan.cc @@ -0,0 +1,162 @@ +/* + Pan.cc + + Copyright 2002-5 Tim Goetze + + http://quitte.de/dsp/ + + panorama with width control + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include "basics.h" + +#include "Pan.h" +#include "Descriptor.h" + +void +Pan::init (double _fs) +{ + fs = _fs; + delay.init ((int) (.040 * fs)); + normal = NOISE_FLOOR; +} + +void +Pan::activate() +{ + delay.reset(); + tap.reset (400 / fs); + set_pan (*ports[1]); +} + +inline void +Pan::set_pan (d_sample p) +{ + pan = p; + + double phi = (pan + 1) * M_PI * .25; + + gain_l = cos (phi); + gain_r = sin (phi); +} + +template +void +Pan::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + if (pan != *ports[1]) + set_pan (*ports[1]); + + d_sample + width_l = *ports[2] * gain_r, + width_r = *ports[2] * gain_l; + + tap.t = (int) (*ports[3] * fs * .001); + + bool mono = *ports[4]; + + d_sample * dl = ports[5]; + d_sample * dr = ports[6]; + + d_sample x, xt; + + if (mono) for (int i = 0; i < frames; ++i) + { + x = s[i]; + + xt = tap.get (delay); + + delay.put (x + normal); + + x = (gain_l * x + gain_r * x + width_l * xt + width_r * xt) * .5; + + F (dl, i, x, adding_gain); + F (dr, i, x, adding_gain); + + normal = -normal; + } + else for (int i = 0; i < frames; ++i) + { + x = s[i]; + + xt = tap.get (delay); + + delay.put (x + normal); + + F (dl, i, gain_l * x + width_l * xt, adding_gain); + F (dr, i, gain_r * x + width_r * xt, adding_gain); + + normal = -normal; + } +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +Pan::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {0} + }, { + "pan", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -1, 1} + }, { + "width", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, 0, 1} + }, { + "t", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0.1, 40} + }, { + "mono", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0 | INTEGER | TOGGLE, 0, 1} + }, { + "out:l", + OUTPUT | AUDIO, + {0} + }, { + "out:r", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1788; + Label = "Pan"; + Properties = HARD_RT; + + Name = "CAPS: Pan - Pan and width"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + diff --git a/plugins/ladspa_effect/caps/Pan.h b/plugins/ladspa_effect/caps/Pan.h new file mode 100644 index 000000000..3ba2fcc26 --- /dev/null +++ b/plugins/ladspa_effect/caps/Pan.h @@ -0,0 +1,90 @@ +/* + Pan.h + + Copyright 2004-5 Tim Goetze + + http://quitte.de/dsp/ + + panorama with width control + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _PAN_H_ +#define _PAN_H_ + +#include "dsp/Delay.h" +#include "dsp/OnePole.h" + +class PanTap +{ + public: + int t; + DSP::OnePoleLP damper; + + d_sample get (DSP::Delay & delay) + { + return damper.process (delay[t]); + } + + void reset (double c) + { + damper.set_f (c); + damper.reset(); + } +}; + +class Pan +{ + public: + double fs; + d_sample pan; + + d_sample gain_l, gain_r; + d_sample normal; + + DSP::Delay delay; + PanTap tap; + + template + void one_cycle (int frames); + + inline void set_pan (d_sample); + + public: + static PortInfo port_info []; + d_sample * ports [7]; + + d_sample adding_gain; + + void init (double _fs); + + void activate(); + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +#endif /* _PAN_H_ */ diff --git a/plugins/ladspa_effect/caps/Phaser.cc b/plugins/ladspa_effect/caps/Phaser.cc new file mode 100644 index 000000000..ab1e0bade --- /dev/null +++ b/plugins/ladspa_effect/caps/Phaser.cc @@ -0,0 +1,235 @@ +/* + Phaser.cc + + Copyright 2002-5 Tim Goetze + + http://quitte.de/dsp/ + + One simple mono phaser, 6 all-pass lines, the usual controls. + + Another unit in the same vein with the filter modulation controlled by + a Lorenz fractal. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include "basics.h" + +#include "Phaser.h" +#include "Descriptor.h" + +template +void +PhaserI::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + if (rate != *ports[1]) + { + rate = *ports[1]; + lfo.set_f (max (.001, rate * (double) blocksize), fs, lfo.get_phase()); + } + + double depth = *ports[2]; + double spread = 1 + *ports[3]; + double fb = *ports[4]; + + d_sample * dst = ports[5]; + + normal = -normal; + + while (frames) + { + if (remain == 0) remain = 32; + + int n = min (remain, frames); + + double d = delay.bottom + delay.range * (1. - fabs (lfo.get())); + + for (int j = 5; j >= 0; --j) + { + ap[j].set (d); + d *= spread; + } + + for (int i = 0; i < n; ++i) + { + d_sample x = s[i]; + d_sample y = x + y0 * fb + normal; + + for (int j = 5; j >= 0; --j) + y = ap[j].process (y); + + y0 = y; + + F (dst, i, x + y * depth, adding_gain); + } + + s += n; + dst += n; + frames -= n; + remain -= n; + } +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +PhaserI::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "rate (Hz)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_1, 0, 10} + }, { + "depth", + INPUT | CONTROL, + {BOUNDED | DEFAULT_HIGH, 0, 1} + }, { + "spread", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, M_PI} + }, { + "feedback", + INPUT | CONTROL, + {BOUNDED | DEFAULT_HIGH, 0, .999} + }, { + "out", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1775; + Label = "PhaserI"; + Properties = HARD_RT; + + Name = "CAPS: PhaserI - Mono phaser"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2002-5"; + + /* fill port info and vtable */ + autogen(); +} + +/* //////////////////////////////////////////////////////////////////////// */ + +template +void +PhaserII::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + lorenz.set_rate (*ports[1] * .08); + + double depth = *ports[2]; + double spread = 1 + *ports[3]; + double fb = *ports[4]; + + d_sample * dst = ports[5]; + + normal = -normal; + + while (frames) + { + if (remain == 0) remain = 32; + + int n = min (remain, frames); + + double d = delay.bottom + delay.range * (.3 * lorenz.get()); + + for (int j = 5; j >= 0; --j) + { + ap[j].set (d); + d *= spread; + } + + for (int i = 0; i < n; ++i) + { + d_sample x = s[i]; + d_sample y = x + y0 * fb + normal; + + for (int j = 5; j >= 0; --j) + y = ap[j].process (y); + + y0 = y; + + F (dst, i, x + y * depth, adding_gain); + } + + s += n; + dst += n; + frames -= n; + remain -= n; + } +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +PhaserII::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "rate", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, 1} + }, { + "depth", + INPUT | CONTROL, + {BOUNDED | DEFAULT_HIGH, 0, 1} + }, { + "spread", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, M_PI * .5} + }, { + "feedback", + INPUT | CONTROL, + {BOUNDED | DEFAULT_HIGH, 0, .999} + }, { + "out", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 2586; + Label = "PhaserII"; + Properties = HARD_RT; + + Name = "CAPS: PhaserII - Mono phaser modulated by a Lorenz fractal"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2002-5"; + + /* fill port info and vtable */ + autogen(); +} + diff --git a/plugins/ladspa_effect/caps/Phaser.h b/plugins/ladspa_effect/caps/Phaser.h new file mode 100644 index 000000000..9e7923f7a --- /dev/null +++ b/plugins/ladspa_effect/caps/Phaser.h @@ -0,0 +1,176 @@ +/* + Phaser.h + + Copyright 2002-5 Tim Goetze + + http://quitte.de/dsp/ + + Standard and fractal-modulated phaser units. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _PHASER_H_ +#define _PHASER_H_ + +#include "dsp/Sine.h" +#include "dsp/Lorenz.h" +#include "dsp/Delay.h" + +/* all-pass as used by the phaser. */ +class PhaserAP +{ + public: + d_sample a, m; + + PhaserAP() + { + a = m = 0.; + } + + void set (double delay) + { + a = (1 - delay) / (1 + delay); + } + + d_sample process (d_sample x) + { + register d_sample y = -a * x + m; + m = a * y + x; + + return y; + } +}; + +class PhaserI +{ + public: + double fs; + + PhaserAP ap[6]; + DSP::Sine lfo; + + d_sample rate; + d_sample y0; + d_sample normal; + + struct { + double bottom, range; + } delay; + + template + void one_cycle (int frames); + + int blocksize, remain; + + public: + d_sample * ports [6]; + + static PortInfo port_info []; + d_sample adding_gain; + + void init (double _fs) + { + fs = _fs; + blocksize = 32; + normal = NOISE_FLOOR; + } + + void activate() + { + y0 = 0.; + remain = 0; + + delay.bottom = 400. / fs; + delay.range = 2200. / fs; + + rate = -1; /* force lfo reset in one_cycle() */ + } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +/* same as above, but filter sweep is controlled by a Lorenz fractal */ + +class PhaserII +{ + public: + double fs; + + PhaserAP ap[6]; + DSP::Lorenz lorenz; + + d_sample rate; + d_sample y0; + d_sample normal; + + struct { + double bottom, range; + } delay; + + template + void one_cycle (int frames); + + int blocksize, remain; + + public: + d_sample * ports [6]; + + static PortInfo port_info []; + d_sample adding_gain; + + void init (double _fs) + { + fs = _fs; + blocksize = 32; + normal = NOISE_FLOOR; + lorenz.init(); + } + + void activate() + { + y0 = 0.; + remain = 0; + + delay.bottom = 400. / fs; + delay.range = 2200. / fs; + + rate = -1; /* force lfo reset in one_cycle() */ + } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + + +#endif /* _PHASER_H_ */ diff --git a/plugins/ladspa_effect/caps/Preamp.cc b/plugins/ladspa_effect/caps/Preamp.cc new file mode 100644 index 000000000..da3a2d68a --- /dev/null +++ b/plugins/ladspa_effect/caps/Preamp.cc @@ -0,0 +1,247 @@ +/* + Preamp.cc + + Copyright 2003-5 Tim Goetze + + http://quitte.de/dsp/ + + loosely 12AX7-based tube preamp model, 8x oversampling. +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include "basics.h" +#include + +#include "Amp.h" +#include "Descriptor.h" + +void +PreampIII::init (double _fs) +{ + this->AmpStub::init (_fs); + + DSP::RBJ::LoShelve (200 / (_fs), .2, -6, filter.a, filter.b); +} + +template +void +PreampIII::one_cycle (int frames) +{ + d_sample * s = ports[0]; + d_sample gain = *ports[1]; + d_sample temp = *ports[2] * tube.scale; + d_sample * d = ports[3]; + *ports[4] = OVERSAMPLE; + + double g = current.g; + + current.g = max (gain < 1 ? gain : exp2 (gain - 1), .000001); + /* correction for attenuated first transfer */ + current.g *= tube.scale / fabs (tube.transfer (temp)); + + if (g == 0) g = current.g; + + /* recursive fade to prevent zipper noise from the 'gain' knob */ + double one_over_n = 1. / frames; + double gf = pow (current.g / g, one_over_n); + + for (int i = 0; i < frames; ++i) + { + register d_sample a = s[i] + normal; + + a = g * tube.transfer (a * temp); + a = filter.process (a); + a = down.process (tube.transfer_clip (up.upsample (a))); + + for (int o = 1; o < OVERSAMPLE; ++o) + down.store (tube.transfer_clip (up.pad (o))); + + F (d, i, dc_blocker.process (a), adding_gain); + + g *= gf; + } + + current.g = g; + normal = -normal; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +PreampIII::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "gain", + INPUT | CONTROL, + {BOUNDED | DEFAULT_1, 0, 10} + }, { + "temperature", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0.005, 1} + }, { + "out", + OUTPUT | AUDIO, + {0} + }, { + "latency", + OUTPUT | CONTROL, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1776; + Label = "PreampIII"; + Properties = HARD_RT; + + Name = "CAPS: PreampIII - Tube preamp emulation"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2002-5"; + + /* fill port info and vtable */ + autogen(); +} + +/* //////////////////////////////////////////////////////////////////////// */ + +void +PreampIV::init (double _fs) +{ + this->AmpStub::init (_fs); + + tone.init (_fs); +} + +void +PreampIV::activate() +{ + this->PreampIII::activate(); + + tone.activate (ports + 3); +} + +template +void +PreampIV::one_cycle (int frames) +{ + double one_over_n = 1. / frames; + + d_sample * s = ports[0]; + d_sample gain = *ports[1]; + d_sample temp = *ports[2] * tube.scale; + + tone.start_cycle (ports + 3, one_over_n); + + d_sample * d = ports[7]; + *ports[8] = OVERSAMPLE; + + double g = current.g; + + current.g = max (gain < 1 ? gain : exp2 (gain - 1), .000001); + current.g *= tube.scale / fabs (tube.transfer (temp)); + + if (g == 0) g = current.g; + + /* recursive fade to prevent zipper noise from the 'gain' knob */ + double gf = pow (current.g / g, one_over_n); + + for (int i = 0; i < frames; ++i) + { + register d_sample a = tone.process (s[i] + normal); + + a = g * tube.transfer (a * temp); + + a = down.process (tube.transfer_clip (up.upsample (a))); + + for (int o = 1; o < OVERSAMPLE; ++o) + down.store (tube.transfer_clip (up.pad (o))); + + F (d, i, dc_blocker.process (a), adding_gain); + + g *= gf; + } + + current.g = g; + normal = -normal; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +PreampIV::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "gain", + INPUT | CONTROL, + {BOUNDED | DEFAULT_1, 0, 10} + }, { + "temperature", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, 0.005, 1} + }, { + "bass", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -20, 20} + }, { + "mid", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -20, 20} + }, { + "treble", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -20, 20} + }, { + "hi", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -20, 20} + }, { + "out", + OUTPUT | AUDIO, + {0} + }, { + "latency", + OUTPUT | CONTROL, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1777; + Label = "PreampIV"; + Properties = HARD_RT; + + Name = "CAPS: PreampIV - Tube preamp emulation + tone controls"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2002-5"; + + /* fill port info and vtable */ + autogen(); +} + diff --git a/plugins/ladspa_effect/caps/README b/plugins/ladspa_effect/caps/README new file mode 100644 index 000000000..93e353619 --- /dev/null +++ b/plugins/ladspa_effect/caps/README @@ -0,0 +1,67 @@ +This is caps, the C Audio Plugin Suite +====================================== + +Copyright 2002-5 Tim Goetze and others. + + +License information +------------------- + +See the file "COPYING" for licensing terms & conditions for usage, +and a DISCLAIMER OF ALL WARRANTIES. + + +What is this caps thing? +------------------------ + +caps is a collection of refined realtime-capable LADSPA audio DSP +plugins. It helps your computer sound better. + + +Documentation +------------- + +Please point your browser to the file 'caps.html' in this directory. + + +Web site and latest version +--------------------------- + +The latest information and package release reside at + +http://quitte.de/dsp/caps.html + + +Installation +============ + +At the shell prompt, enter (without the '$' denoting the prompt itself): + +$ make + +then, as the superuser, enter: + +# make install + +and you're done. You can now use the plugins in any LADSPA-aware audio +application. + +Please note that the default installation path is /usr/local/lib/ladspa; +if you prefer another place, you need to edit the makefile, or install +manually. + + +Bug reports +----------- + +Bug reports should be sent to . Please include a detailed +description of the misbehaviour and instructions on how to reproduce the +bug. + + +Troubleshooting +--------------- + +caps is known to compile well with gnu make, gcc 2.95, 3.3 and 4.0. +If you have trouble compiling it, please send mail containing the +output of the 'make' command to . diff --git a/plugins/ladspa_effect/caps/Reverb.cc b/plugins/ladspa_effect/caps/Reverb.cc new file mode 100644 index 000000000..c383a1295 --- /dev/null +++ b/plugins/ladspa_effect/caps/Reverb.cc @@ -0,0 +1,504 @@ +/* + Reverb.cc + + Copyright 2002-5 Tim Goetze + + http://quitte.de/dsp/ + + three reverb units: JVRev, Plate and Plate2x2. + + the former is a rewrite of STK's JVRev, a traditional design. + + original comment: + + This is based on some of the famous + Stanford CCRMA reverbs (NRev, KipRev) + all based on the Chowning/Moorer/ + Schroeder reverberators, which use + networks of simple allpass and comb + delay filters. + + the algorithm is mostly unchanged in this implementation; the delay + line lengths have been fiddled with to make the stereo field more + evenly weighted, and denormal protection has been added. + + the latter two are based on the circuit discussed in Jon Dattorro's + september 1997 JAES paper on effect design (part 1: reverb & filters). +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include "basics.h" + +#include "Reverb.h" +#include "Descriptor.h" + +int +JVRev::default_length[9] = { +#if 1 /* slightly modified, tg */ + 1777, 1847, 1993, 2137, 389, 127, 43, 211, 209 +#else + 4799, 4999, 5399, 5801, 1051, 337, 113, 573, 487 +#endif +}; + +void +JVRev::init (double _fs) +{ + fs = _fs; + normal = NOISE_FLOOR; + + memcpy (length, default_length, sizeof (length)); + + if (fs != 44100) + { + double s = fs / 44100.; + + for (int i = 0; i < 9; ++i) + { + int v = (int) (s * length[i]); + v |= 1; + while (!DSP::isprime (v)) + v += 2; + length[i] = v; + } + } + + for (int i = 0; i < 4; ++i) + comb[i].init (length[i]); + + for (int i = 0; i < 3; ++i) + allpass[i].init (length[i+4]); + + left.init (length[7]); + right.init (length[8]); + + /* such a simple number, but i couldn't find a better one. */ + apc = .7; +} + +void +JVRev::set_t60 (d_sample t) +{ + t60 = t; + + t = max (.00001, t); + + for (int i = 0; i < 4; ++i) + comb[i].c = pow (10, (-3 * length[i] / (t * fs))); +} + +void +JVRev::activate() +{ + for (int i = 0; i < 3; ++i) + allpass[i].reset(); + + for (int i = 0; i < 4; ++i) + comb[i].reset(); + + left.reset(); + right.reset(); + + set_t60 (*ports[1]); +} + +template +void +JVRev::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + if (t60 != *ports[1]) + set_t60 (*ports[1]); + + double wet = *ports[2], dry = 1 - wet; + + d_sample * dl = ports[3]; + d_sample * dr = ports[4]; + + normal = -normal; + + for (int i = 0; i < frames; ++i) + { + d_sample x = s[i], a = x + normal; + + x *= dry; + + /* diffusors */ + a = allpass[0].process (a, -apc); + a = allpass[1].process (a, -apc); + a = allpass[2].process (a, -apc); + + /* tank */ + d_sample t = 0; + a -= normal; + + for (int j = 0; j < 4; ++j) + t += comb[j].process (a); + + F (dl, i, x + wet * left.putget (t), adding_gain); + F (dr, i, x + wet * right.putget (t), adding_gain); + } +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +JVRev::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "t60 (s)", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, 0, 4.6} + }, { + "blend", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, .28} + }, { + "out:l", + OUTPUT | AUDIO, + {0} + }, { + "out:r", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1778; + Label = "JVRev"; + Properties = HARD_RT; + + Name = "CAPS: JVRev - Stanford-style reverb from STK"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + +/* //////////////////////////////////////////////////////////////////////// */ + +void +PlateStub::init (double _fs) +{ + fs = _fs; + f_lfo = -1; + +# define L(i) ((int) (l[i] * fs)) + static float l[] = { + 0.004771345048889486, 0.0035953092974026408, + 0.01273478713752898, 0.0093074829474816042, + 0.022579886428547427, 0.030509727495715868, + 0.14962534861059779, 0.060481838647894894, 0.12499579987231611, + 0.14169550754342933, 0.089244313027116023, 0.10628003091293972 + }; + + /* lh */ + input.lattice[0].init (L(0)); + input.lattice[1].init (L(1)); + + /* rh */ + input.lattice[2].init (L(2)); + input.lattice[3].init (L(3)); + + /* modulated, width about 12 samples @ 44.1 */ + tank.mlattice[0].init (L(4), (int) (0.00040322707570310132 * fs)); + tank.mlattice[1].init (L(5), (int) (0.00040322707570310132 * fs)); + + /* lh */ + tank.delay[0].init (L(6)); + tank.lattice[0].init (L(7)); + tank.delay[1].init (L(8)); + + /* rh */ + tank.delay[2].init (L(9)); + tank.lattice[1].init (L(10)); + tank.delay[3].init (L(11)); +# undef L + +# define T(i) ((int) (t[i] * fs)) + static float t[] = { + 0.0089378717113000241, 0.099929437854910791, 0.064278754074123853, + 0.067067638856221232, 0.066866032727394914, 0.006283391015086859, + 0.01186116057928161, 0.12187090487550822, 0.041262054366452743, + 0.089815530392123921, 0.070931756325392295, 0.011256342192802662 + }; + + for (int i = 0; i < 12; ++i) + tank.taps[i] = T(i); +# undef T + + /* tuned for soft attack, ambience */ + indiff1 = .742; + indiff2 = .712; + + dediff1 = .723; + dediff2 = .729; + + normal = NOISE_FLOOR; +} + +inline void +PlateStub::process (d_sample x, d_sample decay, d_sample * _xl, d_sample * _xr) +{ + x = input.bandwidth.process (x); + + /* lh */ + x = input.lattice[0].process (x, indiff1); + x = input.lattice[1].process (x, indiff1); + + /* rh */ + x = input.lattice[2].process (x, indiff2); + x = input.lattice[3].process (x, indiff2); + + /* summation point */ + register d_sample xl = x + decay * tank.delay[3].get(); + register d_sample xr = x + decay * tank.delay[1].get(); + + /* lh */ + xl = tank.mlattice[0].process (xl, dediff1); + xl = tank.delay[0].putget (xl); + xl = tank.damping[0].process (xl); + xl *= decay; + xl = tank.lattice[0].process (xl, dediff2); + tank.delay[1].put (xl); + + /* rh */ + xr = tank.mlattice[1].process (xr, dediff1); + xr = tank.delay[2].putget (xr); + xr = tank.damping[1].process (xr); + xr *= decay; + xr = tank.lattice[1].process (xr, dediff2); + tank.delay[3].put (xr); + + /* gather output */ + xl = .6 * tank.delay[2] [tank.taps[0]]; + xl += .6 * tank.delay[2] [tank.taps[1]]; + xl -= .6 * tank.lattice[1] [tank.taps[2]]; + xl += .6 * tank.delay[3] [tank.taps[3]]; + xl -= .6 * tank.delay[0] [tank.taps[4]]; + xl += .6 * tank.lattice[0] [tank.taps[5]]; + + xr = .6 * tank.delay[0] [tank.taps[6]]; + xr += .6 * tank.delay[0] [tank.taps[7]]; + xr -= .6 * tank.lattice[0] [tank.taps[8]]; + xr += .6 * tank.delay[1] [tank.taps[9]]; + xr -= .6 * tank.delay[2] [tank.taps[10]]; + xr += .6 * tank.lattice[1] [tank.taps[11]]; + + *_xl = xl; + *_xr = xr; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +template +void +Plate::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + input.bandwidth.set (exp (-M_PI * (1. - *ports[1]))); + + d_sample decay = *ports[2]; + + double damp = exp (-M_PI * *ports[3]); + tank.damping[0].set (damp); + tank.damping[1].set (damp); + + d_sample blend = *ports[4], dry = 1 - blend; + + d_sample * dl = ports[5]; + d_sample * dr = ports[6]; + + /* the modulated lattices interpolate, which needs truncated float */ + DSP::FPTruncateMode _truncate; + + for (int i = 0; i < frames; ++i) + { + d_sample x = s[i] + normal; + normal = -normal; + + d_sample xl, xr; + + PlateStub::process (x, decay, &xl, &xr); + + x = dry * s[i]; + + F (dl, i, x + blend * xl, adding_gain); + F (dr, i, x + blend * xr, adding_gain); + } +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +Plate::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "bandwidth", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, 0.005, .999} /* .9995 */ + }, { + "tail", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, 0, .749} /* .5 */ + }, { + "damping", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, .0005, 1} /* .0005 */ + }, { + "blend", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, 1} + }, { + "out:l", + OUTPUT | AUDIO, + {0} + }, { + "out:r", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1779; + Label = "Plate"; + Properties = HARD_RT; + + Name = "CAPS: Plate - Versatile plate reverb"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + +/* //////////////////////////////////////////////////////////////////////// */ + +template +void +Plate2x2::one_cycle (int frames) +{ + d_sample * sl = ports[0]; + d_sample * sr = ports[1]; + + input.bandwidth.set (exp (-M_PI * (1. - *ports[2]))); + + d_sample decay = *ports[3]; + + double damp = exp (-M_PI * *ports[4]); + tank.damping[0].set (damp); + tank.damping[1].set (damp); + + d_sample blend = *ports[5], dry = 1 - blend; + + d_sample * dl = ports[6]; + d_sample * dr = ports[7]; + + /* the modulated lattices interpolate, which needs truncated float */ + DSP::FPTruncateMode _truncate; + + for (int i = 0; i < frames; ++i) + { + normal = -normal; + + d_sample x = (sl[i] + sr[i] + normal) * .5; + + d_sample xl, xr; + PlateStub::process (x, decay, &xl, &xr); + + xl = blend * xl + dry * sl[i]; + xr = blend * xr + dry * sr[i]; + + F (dl, i, xl, adding_gain); + F (dr, i, xr, adding_gain); + } +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +Plate2x2::port_info [] = +{ + { + "in:l", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "in:r", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "bandwidth", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, 0.005, .999} /* .9995 */ + }, { + "tail", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, 0, .749} /* .5 */ + }, { + "damping", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, .0005, 1} /* .0005 */ + }, { + "blend", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, 1} + }, { + "out:l", + OUTPUT | AUDIO, + {0} + }, { + "out:r", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1795; + Label = "Plate2x2"; + Properties = HARD_RT; + + Name = "CAPS: Plate2x2 - Versatile plate reverb, stereo inputs"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + + diff --git a/plugins/ladspa_effect/caps/Reverb.h b/plugins/ladspa_effect/caps/Reverb.h new file mode 100644 index 000000000..4e2037f99 --- /dev/null +++ b/plugins/ladspa_effect/caps/Reverb.h @@ -0,0 +1,268 @@ +/* + Reverb.h + + Copyright 2002-5 Tim Goetze + + http://quitte.de/dsp/ + + two reverb units: JVRev and Plate. + + the former is a rewrite of STK's JVRev, a traditional design. + + original comment: + + This is based on some of the famous + Stanford CCRMA reverbs (NRev, KipRev) + all based on the Chowning/Moorer/ + Schroeder reverberators, which use + networks of simple allpass and comb + delay filters. + + (STK is an effort of Gary Scavone). + + the algorithm is mostly unchanged in this implementation; the delay + line lengths have been fiddled with to make the stereo field more + evenly weighted, and denormal protection has been added. + + the Plate reverb is based on the circuit discussed in Jon Dattorro's + september 1997 JAES paper on effect design (part 1: reverb & filters). +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _REVERB_H_ +#define _REVERB_H_ + +#include + +#include "dsp/Delay.h" +#include "dsp/OnePole.h" +#include "dsp/Sine.h" +#include "dsp/util.h" + +/* both reverbs use this */ +class Lattice +: public DSP::Delay +{ + public: + inline d_sample + process (d_sample x, double d) + { + d_sample y = get(); + x -= d * y; + put (x); + return d * x + y; + } +}; + +/* helper for JVRev */ +class JVComb +: public DSP::Delay +{ + public: + float c; + + inline d_sample + process (d_sample x) + { + x += c * get(); + put (x); + return x; + } +}; + +class JVRev +{ + public: + static int default_length[9]; + double fs; + d_sample t60; + + Lattice allpass [3]; + JVComb comb[4]; + + DSP::Delay left, right; + + double apc; + + d_sample normal; + + template + void one_cycle (int frames); + + int length [9]; + + void set_t60 (d_sample t); + + public: + static PortInfo port_info []; + d_sample * ports [5]; + + d_sample adding_gain; + + void init (double _fs); + + void activate(); + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +/* /////////////////////////////////////////////////////////////////////// */ + +class ModLattice +{ + public: + float n0, width; + + DSP::Delay delay; + DSP::Sine lfo; + DSP::DelayTapA tap; + + void init (int n, int w) + { + n0 = n; + width = w; + delay.init (n + w); + } + + void reset() + { + delay.reset(); + tap.reset(); + } + + inline d_sample + process (d_sample x, double d) + { + /* TODO: try all-pass interpolation */ + d_sample y = delay.get_at (n0 + width * lfo.get()); + x += d * y; + delay.put (x); + return y - d * x; /* note sign */ + } +}; + +class PlateStub +{ + public: + double fs; + d_sample f_lfo; + + d_sample indiff1, indiff2, dediff1, dediff2; + + struct { + DSP::OnePoleLP bandwidth; + Lattice lattice[4]; + } input; + + struct { + ModLattice mlattice[2]; + Lattice lattice[2]; + DSP::Delay delay[4]; + DSP::OnePoleLP damping[2]; + int taps[12]; + } tank; + + d_sample normal; + + public: + d_sample adding_gain; + + void init (double _fs); + + void activate() + { + input.bandwidth.reset(); + + for (int i = 0; i < 4; ++i) + { + input.lattice[i].reset(); + tank.delay[i].reset(); + } + + for (int i = 0; i < 2; ++i) + { + tank.mlattice[i].reset(); + tank.lattice[i].reset(); + tank.damping[i].reset(); + } + + tank.mlattice[0].lfo.set_f (1.2, fs, 0); + tank.mlattice[1].lfo.set_f (1.2, fs, .5 * M_PI); + } + + inline void process (d_sample x, d_sample decay, + d_sample * xl, d_sample * xr); +}; + +/* /////////////////////////////////////////////////////////////////////// */ + +class Plate +: public PlateStub +{ + public: + template + void one_cycle (int frames); + + public: + static PortInfo port_info []; + d_sample * ports [7]; + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +/* /////////////////////////////////////////////////////////////////////// */ + +class Plate2x2 +: public PlateStub +{ + public: + template + void one_cycle (int frames); + + public: + static PortInfo port_info []; + d_sample * ports [8]; + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +#endif /* _REVERB_H_ */ diff --git a/plugins/ladspa_effect/caps/Roessler.cc b/plugins/ladspa_effect/caps/Roessler.cc new file mode 100644 index 000000000..9302cbcdc --- /dev/null +++ b/plugins/ladspa_effect/caps/Roessler.cc @@ -0,0 +1,121 @@ +/* + Roessler.cc + + Copyright 2002-5 Tim Goetze + + http://quitte.de/dsp/ + + the sound of a Roessler attractor. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include + +#include "basics.h" + +#include "Roessler.h" +#include "Descriptor.h" + +void +Roessler::init (double _fs) +{ + fs = _fs; + roessler.init (h = .001, frandom()); + gain = 0; +} + +template +void +Roessler::one_cycle (int frames) +{ + roessler.set_rate (*ports[0]); + + double g = (gain == *ports[4]) ? + 1 : pow (*ports[4] / gain, 1. / (double) frames); + + d_sample * d = ports[5]; + + d_sample x, + sx = .043 * *ports[1], + sy = .051 * *ports[2], + sz = .018 * *ports[3]; + + for (int i = 0; i < frames; ++i) + { + roessler.get(); + + x = + sx * (roessler.get_x() - .515) + + sy * (roessler.get_y() + 2.577) + + sz * (roessler.get_z() - 2.578); + + F (d, i, gain * x, adding_gain); + gain *= g; + } + + gain = *ports[4]; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +Roessler::port_info [] = +{ + { + "h", + INPUT | CONTROL, + {BOUNDED, 0, 1} + }, { + "x", + INPUT | CONTROL, + {BOUNDED | DEFAULT_1, 0, 1} + }, { + "y", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, 0, 1} + }, { + "z", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, 0, 1} + }, { + "volume", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, MIN_GAIN, 1} + }, { + "out", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1780; + Label = "Roessler"; + Properties = HARD_RT; + + Name = "CAPS: Roessler - The sound of a Roessler attractor"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + diff --git a/plugins/ladspa_effect/caps/Roessler.h b/plugins/ladspa_effect/caps/Roessler.h new file mode 100644 index 000000000..d6dd0ac2a --- /dev/null +++ b/plugins/ladspa_effect/caps/Roessler.h @@ -0,0 +1,66 @@ +/* + Roessler.h + + Copyright 2004-5 Tim Goetze + + http://quitte.de/dsp/ + + turns a Roessler fractal into sound. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _ROESSLER_H_ +#define _ROESSLER_H_ + +#include "dsp/Roessler.h" + +class Roessler +{ + public: + double fs; + d_sample h, gain; + + DSP::Roessler roessler; + + template + void one_cycle (int frames); + + public: + static PortInfo port_info []; + d_sample * ports [6]; + + d_sample adding_gain; + + void init (double _fs); + + void activate() + { } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +#endif /* _ROESSLER_H_ */ diff --git a/plugins/ladspa_effect/caps/Scape.cc b/plugins/ladspa_effect/caps/Scape.cc new file mode 100644 index 000000000..6d0707116 --- /dev/null +++ b/plugins/ladspa_effect/caps/Scape.cc @@ -0,0 +1,203 @@ +/* + Scape.cc + + Copyright 2004-6 Tim Goetze + + http://quitte.de/dsp/ + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include "basics.h" + +#include "Scape.h" +#include "Descriptor.h" + +void +Scape::activate() +{ + time = 0; + fb = 0; + + for (int i = 0; i < 4; ++i) + svf[i].reset(), + svf[i].set_out (SVF::Band), + hipass[i].set_f (250. / fs); + svf[3].set_out (SVF::Low), + + delay.reset(); + period = 0; +} + +static double +dividers [] = { + 1 /* 0 sentinel */, + 1, 0.5, 0.66666666666666666667, 0.75 +}; + +float +frandom2() +{ + float f = frandom(); + return f * f * f; +} + +template +void +Scape::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + // double one_over_n = 1 / (double) frames; + + /* delay times */ + double t1 = fs * 60. / *ports[1]; + int div = (int) *ports[2]; + double t2 = t1 * dividers[div]; + + fb = *ports[3]; + + double dry = *ports[4]; + dry = dry * dry; + double blend = *ports[5]; + + d_sample * dl = ports[6]; + d_sample * dr = ports[7]; + + DSP::FPTruncateMode truncate; + + while (frames) + { + /* flip 'renormal' addition constant */ + normal = -normal; + + /* retune filters */ + if (period <= 1) + { + period = t2 * .5; + float f, q; + + //fprintf (stderr, "%.3f: %d\n", period, (int) period); + f = frandom2(); + svf[0].set_f_Q (300 + 300 * f / fs, .3); + svf[3].set_f_Q (300 + 600 * 2 * f / fs, .6); + + f = frandom2(); + q = f; + svf[1].set_f_Q (400 + 2400 * f / fs, q); + q = 1 - f; + svf[2].set_f_Q (400 + 2400 * f / fs, q); + } + + int n = min ((int) period, frames); + if (n < 1) + { + fprintf (stderr, "Scape: %d - %d/%d frames, t2 = %.3f?!?\n", (int) period, n, frames, t2); + return; + } + + /* sample loop */ + for (int i = 0; i < n; ++i) + { + d_sample x = s[i] + normal; + + d_sample x1 = delay.get_at (t1); + d_sample x2 = delay.get_at (t2); + + delay.put (x + fb * x1 + normal); + x = dry * x + .2 * svf[0].process (x) + .6 * svf[3].process(x); + + x1 = svf[1].process (x1 - normal); + x2 = svf[2].process (x2 - normal); + + x1 = hipass[1].process (x1); + x2 = hipass[2].process (x2); + + d_sample x1l, x1r, x2l, x2r; + x1l = fabs (lfo[0].get()); + x1r = 1 - x1l; + x2r = fabs (lfo[1].get()); + x2l = 1 - x2r; + + F (dl, i, x + blend * (x1 * x1l + x2 * x2l), adding_gain); + F (dr, i, x + blend * (x2 * x2r + x1 * x1r), adding_gain); + } + + frames -= n; + period -= n; + s += n; + dl += n; + dr += n; + } +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +Scape::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {BOUNDED, -1, 1} + }, { + "bpm", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 30, 240} + }, { + "divider", + INPUT | CONTROL, + {BOUNDED | INTEGER | DEFAULT_MIN, 2, 4} + }, { + "feedback", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, 1} + }, { + "dry", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, 1} + }, { + "blend", + INPUT | CONTROL, + {BOUNDED | DEFAULT_HIGH, 0, 1} + }, { + "out:l", + OUTPUT | AUDIO, + {0} + }, { + "out:r", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 2588; + Label = "Scape"; + Properties = HARD_RT; + + Name = "CAPS: Scape - Stereo delay + Filters"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-6"; + + /* fill port info and vtable */ + autogen(); +} + diff --git a/plugins/ladspa_effect/caps/Scape.h b/plugins/ladspa_effect/caps/Scape.h new file mode 100644 index 000000000..d68256a16 --- /dev/null +++ b/plugins/ladspa_effect/caps/Scape.h @@ -0,0 +1,94 @@ +/* + Scape.h + + Copyright 2004-5 Tim Goetze + + http://quitte.de/dsp/ + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _SCAPE_H_ +#define _SCAPE_H_ + +#include "dsp/Sine.h" +#include "dsp/Roessler.h" +#include "dsp/Lorenz.h" +#include "dsp/Delay.h" +#include "dsp/OnePole.h" +#include "dsp/BiQuad.h" +#include "dsp/RBJ.h" +#include "dsp/SVF.h" + +typedef DSP::SVF<1> SVF; + +class Scape +{ + public: + double fs; + d_sample time, fb; + double period; + d_sample normal; /* denormal protection */ + + DSP::Lorenz lfo[2]; + DSP::Delay delay; + SVF svf[4]; + DSP::OnePoleHP hipass[4]; + + template + void one_cycle (int frames); + + public: + d_sample * ports [8]; + /* + * in + * bpm + * div + * feedback + * dry + * blend + * out:l + * out:r + */ + static PortInfo port_info []; + d_sample adding_gain; + + void init (double _fs) + { + fs = _fs; + delay.init ((int) (2.01 * fs)); /* two seconds = 30 bpm + */ + normal = NOISE_FLOOR; + for (int i = 0; i < 2; ++i) + lfo[i].init(), + lfo[i].set_rate (.00000001 * fs); + } + + void activate(); + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +#endif /* _SCAPE_H_ */ diff --git a/plugins/ladspa_effect/caps/Sin.cc b/plugins/ladspa_effect/caps/Sin.cc new file mode 100644 index 000000000..a527ee081 --- /dev/null +++ b/plugins/ladspa_effect/caps/Sin.cc @@ -0,0 +1,96 @@ +/* + Sin.cc + + Copyright 2002-5 Tim Goetze + + http://quitte.de/dsp/ + + simple sin() generator. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include "basics.h" + +#include "Sin.h" +#include "Descriptor.h" + +void +Sin::init (double _fs) +{ + fs = _fs; + sin.set_f (f = .005, fs, 0); + gain = 0; +} + +template +void +Sin::one_cycle (int frames) +{ + if (f != *ports[0]) + sin.set_f (f = *ports[0], fs, sin.get_phase()); + + double g = (gain == *ports[1]) ? + 1 : pow (*ports[1] / gain, 1. / (double) frames); + + d_sample * d = ports[2]; + + for (int i = 0; i < frames; ++i) + { + F (d, i, gain * sin.get(), adding_gain); + gain *= g; + } + + gain = *ports[1]; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +Sin::port_info [] = +{ + { + "f", + INPUT | CONTROL, + {BOUNDED | FS | LOG | DEFAULT_440, 0, .5} + }, { + "volume", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, MIN_GAIN, 1} + }, { + "out", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1781; + Label = "Sin"; + Properties = HARD_RT; + + Name = "CAPS: Sin - Sine wave generator"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + diff --git a/plugins/ladspa_effect/caps/Sin.h b/plugins/ladspa_effect/caps/Sin.h new file mode 100644 index 000000000..b93ca0d64 --- /dev/null +++ b/plugins/ladspa_effect/caps/Sin.h @@ -0,0 +1,66 @@ +/* + Sin.h + + Copyright 2004-5 Tim Goetze + + http://quitte.de/dsp/ + + sin() generator. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _SIN_H_ +#define _SIN_H_ + +#include "dsp/Sine.h" + +class Sin +{ + public: + double fs; + d_sample f, gain; + + DSP::Sine sin; + + template + void one_cycle (int frames); + + public: + static PortInfo port_info []; + d_sample * ports [3]; + + d_sample adding_gain; + + void init (double _fs); + + void activate() + { } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +#endif /* _SIN_H_ */ diff --git a/plugins/ladspa_effect/caps/SweepVF.cc b/plugins/ladspa_effect/caps/SweepVF.cc new file mode 100644 index 000000000..69fa8669c --- /dev/null +++ b/plugins/ladspa_effect/caps/SweepVF.cc @@ -0,0 +1,331 @@ +/* + SweepVF.cc + + Copyright 2002-5 Tim Goetze + + http://quitte.de/dsp/ + + SweepVFI, a lorenz fractal modulating the cutoff frequency of a + state-variable (ladder) filter. + + SweepVFII, the same with Q being modulated by a second fractal. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include "basics.h" + +#include "SweepVF.h" +#include "Descriptor.h" + +void +SweepVFI::init (double _fs) +{ + fs = _fs; + f = .1; + Q = .1; + lorenz.init(); + normal = NOISE_FLOOR; +} + +void +SweepVFI::activate() +{ + svf.reset(); + svf.set_f_Q (f = *ports[1] / fs, Q = *ports[2]); +} + +template +void +SweepVFI::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + int blocks = frames / BLOCK_SIZE; + if (frames & (BLOCK_SIZE - 1)) + ++blocks; + + double one_over_blocks = 1 / (double) blocks; + /* cheesy linear interpolation for f, works well though. */ + double df = (*ports[1] / fs - f) * one_over_blocks; + double dQ = (*ports[2] - Q) * one_over_blocks; + + svf.set_out ((int) *ports[3]); + + lorenz.set_rate (*ports[7]); + + d_sample * d = ports[8]; + + while (frames) + { + lorenz.step(); + + double modulation = + *ports[4] * lorenz.get_x() + + *ports[5] * lorenz.get_y() + + *ports[6] * lorenz.get_z(); + + double scale = *ports[4] + *ports[5] + *ports[6]; + + modulation *= scale * f; + svf.set_f_Q (max (.001, f + modulation), Q); + + int n = min (frames, BLOCK_SIZE); + + for (int i = 0; i < n; ++i) + F (d, i, svf.process (s[i] + normal), adding_gain); + + s += n; + d += n; + frames -= n; + + f += df; + Q += dQ; + } + + normal = -normal; + + f = *ports[1] / fs; + Q = *ports[2]; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +SweepVFI::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {0, 0, 0} + }, { + "f", + INPUT | CONTROL, + {BOUNDED | FS | DEFAULT_LOW, 0.002, 0.08} + }, { + "Q", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, 0.001, .999} + }, { + "mode", + INPUT | CONTROL, + {BOUNDED | DEFAULT_1 | INTEGER, 0, 1} /* only lo and band make sense */ + }, { + "depth:x", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, 1} + }, { + "depth:y", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, 0, 1} + }, { + "depth:z", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MAX, 0, 1} + }, { + "h", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0.001, 1} /* .039 */ + }, { + "out", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1782; + Label = "SweepVFI"; + Properties = HARD_RT; + + Name = "CAPS: SweepVFI - Resonant filter, f swept by a Lorenz fractal"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + +/* //////////////////////////////////////////////////////////////////////// */ + +void +SweepVFII::init (double _fs) +{ + fs = _fs; + f = .1; + Q = .1; + lorenz1.init(); + lorenz2.init(); + normal = NOISE_FLOOR; +} + +void +SweepVFII::activate() +{ + svf.reset(); + svf.set_f_Q (f = *ports[1] / fs, Q = *ports[2]); +} + +template +void +SweepVFII::one_cycle (int frames) +{ + d_sample * s = ports[0]; + + int blocks = frames / BLOCK_SIZE; + if (frames & (BLOCK_SIZE - 1)) + ++blocks; + + double one_over_blocks = 1 / (double) blocks; + /* cheesy linear interpolation for f, works well though. */ + double df = (*ports[1] / fs - f) * one_over_blocks; + double dQ = (*ports[2] - Q) * one_over_blocks; + + svf.set_out ((int) *ports[3]); + + lorenz1.set_rate (*ports[7]); + lorenz2.set_rate (*ports[11]); + + d_sample * d = ports[12]; + + while (frames) + { + /* f modulation */ + lorenz1.step(); + + double modulation1 = + *ports[4] * lorenz1.get_x() + + *ports[5] * lorenz1.get_y() + + *ports[6] * lorenz1.get_z(); + + double scale1 = *ports[4] + *ports[5] + *ports[6]; + + modulation1 *= scale1 * f; + + /* Q modulation */ + lorenz2.step(); + + double modulation2 = + *ports[8] * lorenz2.get_x() + + *ports[9] * lorenz2.get_y() + + *ports[10] * lorenz2.get_z(); + + double scale2 = *ports[8] + *ports[9] + *ports[10]; + + /* enforce Q limit */ + double q = Q + (modulation2 * scale2 * Q); + q = min (0.96, max (q, 0)); + + svf.set_f_Q (max (.001, f + modulation1), q); + + int n = min (frames, BLOCK_SIZE); + + for (int i = 0; i < n; ++i) + F (d, i, svf.process (s[i] + normal), adding_gain); + + s += n; + d += n; + frames -= n; + + f += df; + Q += dQ; + } + + normal = -normal; + + f = *ports[1] / fs; + Q = *ports[2]; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +SweepVFII::port_info [] = +{ + { + "in", + INPUT | AUDIO, + {0, 0, 0} + }, { + "f", + INPUT | CONTROL, + {BOUNDED | FS | DEFAULT_LOW, 0.002, 0.08} + }, { + "Q", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, 0.001, .999} + }, { + "mode", + INPUT | CONTROL, + {BOUNDED | DEFAULT_1 | INTEGER, 0, 1} /* only lo and band make sense */ + }, { + "f:depth:x", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, 1} + }, { + "f:depth:y", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, 0, 1} + }, { + "f:depth:z", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MAX, 0, 1} + }, { + "f:h", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0.001, 1} /* .039 */ + }, { + "Q:depth:x", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0, 1} + }, { + "Q:depth:y", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, 0, 1} + }, { + "Q:depth:z", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MAX, 0, 1} + }, { + "Q:h", + INPUT | CONTROL, + {BOUNDED | DEFAULT_LOW, 0.001, 1} /* .039 */ + }, { + "out", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 2582; + Label = "SweepVFII"; + Properties = HARD_RT; + + Name = "CAPS: SweepVFII - Resonant filter, f and Q swept by a Lorenz fractal"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + diff --git a/plugins/ladspa_effect/caps/SweepVF.h b/plugins/ladspa_effect/caps/SweepVF.h new file mode 100644 index 000000000..12ecae29b --- /dev/null +++ b/plugins/ladspa_effect/caps/SweepVF.h @@ -0,0 +1,123 @@ +/* + SweepVF.h + + Copyright 2004-5 Tim Goetze + + http://quitte.de/dsp/ + + SweepVFI, a lorenz fractal modulating the cutoff frequency of a + state-variable (ladder) filter. + + SweepVFII, the same with Q being modulated by a second fractal. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _SWEEP_VF_H_ +#define _SWEEP_VF_H_ + +#include "dsp/SVF.h" +#include "dsp/Lorenz.h" +#include "dsp/Roessler.h" + +class SweepVFI +{ + public: + double fs; + + /* svf parameters */ + d_sample f, Q; + + /* needs to be a power of two */ + enum { + BLOCK_SIZE = 32 + }; + + DSP::StackedSVF<1,2> svf; + DSP::Lorenz lorenz; + + d_sample normal; + + template + void one_cycle (int frames); + + public: + static PortInfo port_info []; + d_sample * ports [9]; + + d_sample adding_gain; + + void init (double _fs); + + void activate(); + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +class SweepVFII +{ + public: + double fs; + + /* svf parameters */ + d_sample f, Q; + + /* needs to be a power of two */ + enum { + BLOCK_SIZE = 32 + }; + + DSP::StackedSVF<1,2> svf; + DSP::Lorenz lorenz1; + DSP::Lorenz lorenz2; + + d_sample normal; + + template + void one_cycle (int frames); + + public: + static PortInfo port_info []; + d_sample * ports [13]; + + d_sample adding_gain; + + void init (double _fs); + + void activate(); + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +#endif /* _SWEEP_VF_H_ */ diff --git a/plugins/ladspa_effect/caps/ToneControls.cc b/plugins/ladspa_effect/caps/ToneControls.cc new file mode 100644 index 000000000..6169aebb5 --- /dev/null +++ b/plugins/ladspa_effect/caps/ToneControls.cc @@ -0,0 +1,73 @@ +/* + ToneControls.cc + + Copyright 2004-5 Tim Goetze + + http://quitte.de/dsp/ + + 4-way Eq for amplifier emulation plugins +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include "basics.h" +#include + +#include "Amp.h" + +PreampBand +ToneControls::bands[] = +{ + /* f, Q, g */ + { 80, 1.20, 1.61}, + { 300, 1.10, 1.10}, + {1200, 1.14, 1.07}, + {4800, .80, 1.06} +}; + +void +ToneControls::init (double fs) +{ + for (int i = 0; i < 4; ++i) + eq.init_band (i, 2 * bands[i].center * M_PI / fs, bands[i].Q); +} + +double +ToneControls::get_band_gain (int i, double g) +{ + return bands[i].adjust * DSP::db2lin (g); +} + +void +ToneControls::set_band_gain (int i, float g) +{ + /* sorry, _ != . but hardly readable -- the difference is between local + * buffered value and actual Eq band gain */ + eq_gain[i] = g; + eq.gain[i] = get_band_gain (i, g); +} + +void +ToneControls::activate (d_sample ** ports) +{ + for (int i = 0; i < 4; ++i) + set_band_gain (i, *ports[i]); + + eq.reset(); +} + + diff --git a/plugins/ladspa_effect/caps/VCO.cc b/plugins/ladspa_effect/caps/VCO.cc new file mode 100644 index 000000000..bf5fc43ad --- /dev/null +++ b/plugins/ladspa_effect/caps/VCO.cc @@ -0,0 +1,252 @@ +/* + VCO.cc + + Copyright 2004-5 Tim Goetze + + http://quitte.de/dsp/ + + an oversampled triangle/saw/square oscillator, and a combination of two + such oscillators with hard sync. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include "basics.h" + +#include "VCO.h" +#include "Descriptor.h" + +void +VCOs::init (double _fs) +{ + fs = _fs; + + /* going a fair bit lower than nominal with fc because the filter + * rolloff is not as steep as we might like it to be. */ + double f = .5 * M_PI / OVERSAMPLE; + + /* construct the downsampler filter kernel */ + DSP::sinc (f, down.c, FIR_SIZE); + DSP::kaiser (down.c, FIR_SIZE, 6.4); + + /* normalize downsampler filter gain */ + double s = 0; + for (int i = 0; i < down.n; ++i) + s += down.c[i]; + + /* scale downsampler kernel */ + s = 1 / s; + for (int i = 0; i < down.n; ++i) + down.c[i] *= s; +} + +template +void +VCOs::one_cycle (int frames) +{ + vco.set_f (*ports[0], OVERSAMPLE * fs); + vco.set_saw_square (*ports[1], *ports[2]); + + double g = (gain == *ports[3]) ? + 1 : pow (*ports[3] / gain, 1. / (double) frames); + + d_sample * d = ports[4]; + + for (int i = 0; i < frames; ++i) + { + F (d, i, gain * down.process (vco.get()), adding_gain); + + for (int o = 1; o < OVERSAMPLE; ++o) + down.store (vco.get()); + + gain *= g; + } + + gain = *ports[3]; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +VCOs::port_info [] = +{ + { + "f", + INPUT | CONTROL, + {BOUNDED | FS | DEFAULT_440, 0, .1} + }, { + "tri .. saw", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, 0, 1} + }, { + "~ .. square", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, 0, 1} + }, { + "volume", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, MIN_GAIN, 1} + }, { + "out", + OUTPUT | AUDIO, + {0} + }, { + "latency", + OUTPUT | CONTROL, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1783; + Label = "VCOs"; + Properties = HARD_RT; + + Name = "CAPS: VCOs - Virtual 'analogue' oscillator"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + +/* //////////////////////////////////////////////////////////////////////// */ + +void +VCOd::init (double _fs) +{ + fs = _fs; + + /* going a fair bit lower than nominal with fc because the filter + * rolloff is not as steep as we might like it to be. */ + double f = .5 * M_PI / OVERSAMPLE; + + /* construct the downsampler filter kernel */ + DSP::sinc (f, down.c, FIR_SIZE); + DSP::kaiser (down.c, FIR_SIZE, 6.4); + + /* normalize downsampler filter gain */ + double s = 0; + for (int i = 0; i < down.n; ++i) + s += down.c[i]; + + /* scale downsampler kernel */ + s = 1 / s; + for (int i = 0; i < down.n; ++i) + down.c[i] *= s; +} + +template +void +VCOd::one_cycle (int frames) +{ + vco.set_f (*ports[0], OVERSAMPLE * fs, *ports[5]); + + vco.vco[0].set_saw_square (*ports[1], *ports[2]); + vco.vco[1].set_saw_square (*ports[3], *ports[4]); + + vco.set_sync (*ports[6]); + vco.set_blend (*ports[7]); + + double g = (gain == *ports[8]) ? + 1 : pow (*ports[8] / gain, 1. / (double) frames); + + d_sample * d = ports[9]; + + for (int i = 0; i < frames; ++i) + { + F (d, i, gain * down.process (vco.get()), adding_gain); + + for (int o = 1; o < OVERSAMPLE; ++o) + down.store (vco.get()); + + gain *= g; + } + + gain = *ports[8]; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +VCOd::port_info [] = +{ + { + "f", + INPUT | CONTROL, + {BOUNDED | FS | DEFAULT_440, 0, .1} + }, { + "1: tri .. saw", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, 0, 1} + }, { + "1: ~ .. square", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, 0, 1} + }, { + "2: tri .. saw", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, 0, 1} + }, { + "2: ~ .. square", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, 0, 1} + }, { + "2: tune", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, -12, 12} + }, { + "sync", + INPUT | CONTROL, + {BOUNDED | DEFAULT_0, 0, 1} + }, { + "blend", + INPUT | CONTROL, + {BOUNDED | DEFAULT_HIGH, -1, 1} + }, { + "volume", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, MIN_GAIN, 1} + }, { + "out", + OUTPUT | AUDIO, + {0} + }, { + "latency", + OUTPUT | CONTROL, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1784; + Label = "VCOd"; + Properties = HARD_RT; + + Name = "CAPS: VCOd - Double VCO with detune and hard sync options"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + diff --git a/plugins/ladspa_effect/caps/VCO.h b/plugins/ladspa_effect/caps/VCO.h new file mode 100644 index 000000000..a4fa8125d --- /dev/null +++ b/plugins/ladspa_effect/caps/VCO.h @@ -0,0 +1,145 @@ +/* + VCO.h + + Copyright 2004-5 Tim Goetze + + http://quitte.de/dsp/ + + an oversampled triangle/saw/square oscillator, and a combination of two + such oscillators with hard sync. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _VCO_H_ +#define _VCO_H_ + +#include "dsp/util.h" +#include "dsp/VCO.h" + +#include "dsp/FIR.h" +#include "dsp/sinc.h" +#include "dsp/windows.h" + +class VCOs +{ + public: + double fs; + d_sample f, gain; + + /* ok to just change these as you please, 4/32 works ok, sortof. */ + enum { + OVERSAMPLE = 8, + FIR_SIZE = 64, + }; + + DSP::TriSawSquare vco; + + /* downsampling filter */ + DSP::FIR down; + + template + void one_cycle (int frames); + + public: + static PortInfo port_info[]; + d_sample * ports [6]; + + d_sample adding_gain; + + VCOs() + : down (FIR_SIZE) + { } + + void init (double _fs); + + void activate() + { + gain = *ports[3]; + down.reset(); + vco.reset(); + /* latency */ + *ports[5] = OVERSAMPLE; + } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +/* //////////////////////////////////////////////////////////////////////// */ + +class VCOd +{ + public: + double fs; + d_sample f, gain; + + /* ok to just change these as you please, 4/32 works ok, sortof. */ + enum { + OVERSAMPLE = 8, + FIR_SIZE = 64, + }; + + DSP::VCO2 vco; + + /* downsampling filter */ + DSP::FIR down; + + template + void one_cycle (int frames); + + public: + static PortInfo port_info[]; + d_sample * ports [11]; + + d_sample adding_gain; + + VCOd() + : down (FIR_SIZE) + { } + + void init (double _fs); + + void activate() + { + gain = *ports[8]; + down.reset(); + vco.reset(); + /* latency */ + *ports[10] = OVERSAMPLE; + } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +#endif /* _VCO_H_ */ diff --git a/plugins/ladspa_effect/caps/White.cc b/plugins/ladspa_effect/caps/White.cc new file mode 100644 index 000000000..118c32309 --- /dev/null +++ b/plugins/ladspa_effect/caps/White.cc @@ -0,0 +1,81 @@ +/* + White.cc + + Copyright 2004-5 Tim Goetze + + http://quitte.de/dsp/ + + white noise generation. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include "basics.h" + +#include "White.h" +#include "Descriptor.h" + +template +void +White::one_cycle (int frames) +{ + double g = (gain == *ports[0]) ? + 1 : pow (*ports[0] / gain, 1. / (double) frames); + + d_sample * d = ports[1]; + + for (int i = 0; i < frames; ++i) + { + F (d, i, gain * white.get(), adding_gain); + gain *= g; + } + + gain = *ports[0]; +} + +/* //////////////////////////////////////////////////////////////////////// */ + +PortInfo +White::port_info [] = +{ + { + "volume", + INPUT | CONTROL, + {BOUNDED | DEFAULT_MID, MIN_GAIN, 1} + }, { + "out", + OUTPUT | AUDIO, + {0} + } +}; + +template <> void +Descriptor::setup() +{ + UniqueID = 1785; + Label = "White"; + Properties = HARD_RT; + + Name = "CAPS: White - White noise generator"; + Maker = "Tim Goetze "; + Copyright = "GPL, 2004-5"; + + /* fill port info and vtable */ + autogen(); +} + diff --git a/plugins/ladspa_effect/caps/White.h b/plugins/ladspa_effect/caps/White.h new file mode 100644 index 000000000..22442ce88 --- /dev/null +++ b/plugins/ladspa_effect/caps/White.h @@ -0,0 +1,68 @@ +/* + White.h + + Copyright 2004-5 Tim Goetze + + http://quitte.de/dsp/ + + white noise generator. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _WHITE_H_ +#define _WHITE_H_ + +#include "dsp/White.h" + +class White +{ + public: + d_sample gain; + + DSP::White white; + + template + void one_cycle (int frames); + + public: + static PortInfo port_info []; + d_sample * ports [2]; + + d_sample adding_gain; + + void init (double _fs) + { } + + void activate() + { + gain = .5; + } + + void run (int n) + { + one_cycle (n); + } + + void run_adding (int n) + { + one_cycle (n); + } +}; + +#endif /* _WHITE_H_ */ diff --git a/plugins/ladspa_effect/caps/basics.h b/plugins/ladspa_effect/caps/basics.h new file mode 100644 index 000000000..5b4d7a7f2 --- /dev/null +++ b/plugins/ladspa_effect/caps/basics.h @@ -0,0 +1,135 @@ +/* + basics.h + + Copyright 2004-5 Tim Goetze + + http://quitte.de/dsp/ + + common constants, typedefs, utility functions + and simplified LADSPA #defines. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _BASICS_H_ +#define _BASICS_H_ + +#define _GNU_SOURCE 1 +#define _USE_GNU 1 + +/* gcc protects a lot of standard math calls. */ +#define __USE_ISOC99 1 +#define __USE_ISOC9X 1 +#define _ISOC99_SOURCE 1 +#define _ISOC9X_SOURCE 1 + +#include +#include + +#include + +#include +#include + +#include "ladspa.h" + +#define BOUNDED (LADSPA_HINT_BOUNDED_BELOW | LADSPA_HINT_BOUNDED_ABOVE) +#define INTEGER LADSPA_HINT_INTEGER +#define FS LADSPA_HINT_SAMPLE_RATE +#define LOG LADSPA_HINT_LOGARITHMIC +#define TOGGLE LADSPA_HINT_TOGGLED + +#define DEFAULT_0 LADSPA_HINT_DEFAULT_0 +#define DEFAULT_1 LADSPA_HINT_DEFAULT_1 +#define DEFAULT_100 LADSPA_HINT_DEFAULT_100 +#define DEFAULT_440 LADSPA_HINT_DEFAULT_440 +#define DEFAULT_MIN LADSPA_HINT_DEFAULT_MINIMUM +#define DEFAULT_LOW LADSPA_HINT_DEFAULT_LOW +#define DEFAULT_MID LADSPA_HINT_DEFAULT_MIDDLE +#define DEFAULT_HIGH LADSPA_HINT_DEFAULT_HIGH +#define DEFAULT_MAX LADSPA_HINT_DEFAULT_MAXIMUM + +#define INPUT LADSPA_PORT_INPUT +#define OUTPUT LADSPA_PORT_OUTPUT +#define AUDIO LADSPA_PORT_AUDIO +#define CONTROL LADSPA_PORT_CONTROL + +#define HARD_RT LADSPA_PROPERTY_HARD_RT_CAPABLE + +#define TEN_TO_THE_SIXTH 1000000 + +#define MIN_GAIN .000001 /* -120 dB */ +#define NOISE_FLOOR .00000000000005 /* -266 dB */ + +typedef __int8_t int8; +typedef __uint8_t uint8; +typedef __int16_t int16; +typedef __uint16_t uint16; +typedef __int32_t int32; +typedef __uint32_t uint32; +typedef __int64_t int64; +typedef __uint64_t uint64; + +typedef struct { + char * name; + LADSPA_PortDescriptor descriptor; + LADSPA_PortRangeHint range; +} PortInfo; + +typedef LADSPA_Data d_sample; +typedef double d_float; +typedef unsigned long ulong; + +/* flavours for sample store functions run() and run_adding() */ +typedef void (*sample_func_t) (d_sample *, int, d_sample, d_sample); + +inline void +store_func (d_sample * s, int i, d_sample x, d_sample gain) +{ + s[i] = x; +} + +inline void +adding_func (d_sample * s, int i, d_sample x, d_sample gain) +{ + s[i] += gain * x; +} + +#ifndef max + +template +X min (X x, Y y) +{ + return x < y ? x : (X) y; +} + +template +X max (X x, Y y) +{ + return x > y ? x : (X) y; +} + +#endif /* ! max */ + +static inline float +frandom() +{ + return (float) random() / (float) RAND_MAX; +} + +#endif /* _BASICS_H_ */ diff --git a/plugins/ladspa_effect/caps/click.h b/plugins/ladspa_effect/caps/click.h new file mode 100644 index 000000000..35950d618 --- /dev/null +++ b/plugins/ladspa_effect/caps/click.h @@ -0,0 +1,520 @@ +float click [] = { + -0.013062, -0.013062, -0.012817, -0.011078, -0.031097, -0.266479, + -0.610718, -0.255005, 0.698975, 0.999969, 0.505188, -0.724579, + -1.000000, -0.493225, 0.532135, 0.789459, 0.131744, -0.270599, + -0.080780, -0.065796, 0.584381, 0.718567, -0.355316, -0.760559, + -0.649994, -0.039032, 0.442017, 0.700043, 0.434845, -0.556427, + -1.000000, -0.400391, 0.590729, 0.999969, 0.999969, 0.592896, + -0.248932, -0.662750, -0.074615, 0.424774, 0.274933, -0.416504, + -0.772736, -0.359833, -0.218140, -0.254456, -0.379547, -0.768280, + -0.707428, 0.108124, 0.755127, 0.680847, 0.429352, 0.126129, + -0.424316, -0.451813, 0.197510, 0.862762, 0.964508, 0.263824, + -0.383057, -0.753571, -0.848297, -0.491425, -0.042114, -0.222504, + -0.664490, -0.690155, -0.227905, 0.286682, 0.742981, 0.812225, + 0.326691, 0.182770, 0.381195, 0.536194, 0.446930, 0.085754, + -0.650604, -1.000000, -1.000000, -0.774658, -0.152191, -0.112122, + -0.416290, -0.491547, -0.253235, 0.241760, 0.749847, 0.618042, + 0.338440, 0.431335, 0.773712, 0.936890, 0.752563, 0.291595, + -0.206970, -0.552460, -0.447449, -0.152069, -0.315735, -0.891846, + -1.000000, -1.000000, -0.682281, 0.066925, 0.477264, 0.447144, + 0.209167, 0.149994, 0.374176, 0.621185, 0.597046, 0.315826, + 0.034210, -0.004089, 0.084534, 0.127075, 0.060608, -0.134949, + -0.275421, -0.347870, -0.505371, -0.618835, -0.443878, -0.217682, + -0.157898, -0.241058, -0.424103, -0.494690, -0.286438, 0.111542, + 0.487793, 0.654907, 0.571869, 0.484650, 0.413208, 0.254089, + 0.136414, 0.021118, -0.223724, -0.366364, -0.290771, -0.126251, + -0.080048, -0.175262, -0.290100, -0.281403, -0.071808, 0.078613, + 0.216339, 0.275787, 0.223938, 0.178131, 0.162659, 0.110779, + 0.104553, 0.158661, 0.208252, 0.271484, 0.256531, 0.153046, + 0.068054, -0.009003, -0.116119, -0.155304, -0.099213, 0.066589, + 0.293732, 0.392303, 0.313416, 0.196320, 0.123932, 0.145874, + 0.279053, 0.291016, 0.081818, -0.092133, -0.090363, 0.030029, + 0.099762, -0.021912, -0.133942, -0.025299, 0.257782, 0.466980, + 0.406006, 0.150085, -0.007385, -0.027588, 0.048920, 0.128998, + 0.058868, -0.066589, -0.146759, -0.168427, -0.119751, -0.087677, + -0.082581, -0.029694, -0.041138, -0.139984, -0.156036, -0.033325, + 0.164612, 0.331726, 0.320435, 0.205811, 0.209717, 0.275909, + 0.240479, 0.081238, -0.104828, -0.239624, -0.286652, -0.254120, + -0.304688, -0.428223, -0.479248, -0.534729, -0.453003, -0.144928, + -0.001709, 0.059448, 0.016937, -0.127991, -0.186432, -0.122986, + 0.086090, 0.278351, 0.258026, 0.172882, -0.032043, -0.267242, + -0.289276, -0.293365, -0.288971, -0.256073, -0.212250, -0.214783, + -0.182709, -0.149170, -0.132599, -0.221649, -0.233063, 0.002472, + 0.208008, 0.119659, -0.018250, -0.182861, -0.267731, -0.164001, + -0.052063, 0.009979, 0.058472, 0.147156, 0.111298, 0.017426, + -0.067780, -0.049835, 0.002167, -0.028259, 0.003418, 0.023743, + -0.056702, -0.074066, -0.070984, -0.075439, -0.056915, -0.189575, + -0.324524, -0.241882, -0.051514, 0.075623, 0.160095, 0.094238, + 0.004425, 0.010193, 0.032898, 0.040222, 0.163605, 0.273682, + 0.192261, -0.019989, -0.217682, -0.327728, -0.337372, -0.227386, + -0.043945, 0.107788, 0.244690, 0.226227, -0.034332, -0.252106, + -0.364136, -0.377136, -0.246277, -0.021973, 0.194763, 0.300110, + 0.295532, 0.246246, 0.198425, 0.209991, 0.272064, 0.249451, + 0.078094, -0.143616, -0.276459, -0.257782, -0.228638, -0.161224, + -0.006012, 0.169342, 0.267456, 0.246094, 0.232147, 0.290436, + 0.280670, 0.220886, 0.162811, 0.187286, 0.178223, 0.036804, + -0.043304, -0.098694, -0.101990, 0.008698, 0.102844, 0.132050, + 0.142578, 0.152924, 0.058960, -0.074615, -0.079041, 0.026123, + 0.136322, 0.253510, 0.382782, 0.447357, 0.419800, 0.294952, + 0.129059, 0.004028, -0.119781, -0.257538, -0.320526, -0.211609, + -0.054565, 0.012085, -0.016663, 0.006592, 0.144958, 0.193237, + 0.072174, -0.018951, 0.038483, 0.085175, -0.023407, -0.089661, + -0.029999, -0.023956, -0.079498, -0.135223, -0.154205, -0.095276, + -0.031830, -0.105988, -0.252563, -0.284424, -0.153198, 0.017273, + 0.073456, 0.072571, 0.175751, 0.222260, 0.105316, -0.053345, + -0.180115, -0.192932, -0.185211, -0.167511, -0.079529, -0.070007, + -0.151276, -0.215210, -0.206390, -0.133820, -0.099060, -0.082855, + 0.047852, 0.108429, 0.014099, -0.049377, -0.050751, -0.081207, + -0.060944, -0.028564, -0.124420, -0.139526, -0.033508, 0.054108, + 0.042664, -0.004669, -0.069611, -0.105774, -0.090881, -0.128601, + -0.090027, -0.012634, 0.004578, 0.046387, 0.085144, 0.055511, + 0.036469, 0.001770, -0.019867, 0.016998, 0.031891, 0.089935, + 0.066254, -0.069183, -0.020081, 0.046356, 0.005554, -0.023224, + -0.042847, -0.133057, -0.104004, 0.065674, 0.146484, 0.145782, + 0.006897, -0.059509, 0.070923, 0.058319, -0.002655, 0.000641, + -0.036011, 0.049988, 0.076752, 0.016998, 0.063049, 0.105835, + 0.041870, -0.092072, -0.154358, -0.081879, 0.089905, 0.090820, + 0.054047, -0.110565, -0.285980, -0.219116, -0.103058, 0.083405, + 0.192200, 0.124146, 0.080994, 0.118896, 0.231659, 0.259644, + 0.175018, 0.110840, 0.005096, -0.156128, -0.202209, -0.167572, + -0.145050, -0.126068, -0.139221, -0.039856, 0.078674, 0.062866, + -0.069672, -0.143311, -0.049530, 0.082611, 0.142487, 0.039612, + -0.035736, -0.006287, 0.017181, 0.013580, -0.019043, -0.017303, + 0.007904, -0.073944, -0.121704, -0.065369, -0.098083, -0.063568, + 0.056885, 0.083984, 0.148987, 0.298431, 0.253815, 0.052643, + -0.139740, -0.217743, -0.073181, 0.097351, 0.124786, 0.091156, + 0.056152, -0.007446, 0.048553, 0.129333, 0.021118, -0.003235, + 0.093872, 0.080658, 0.025482, -0.037598, -0.055481, -0.078796, + -0.130676, -0.140930, -0.126770, -0.048004, 0.026093, 0.035767, + 0.049957, 0.009247, -0.076599, -0.066101, 0.002747, 0.076813, + 0.173492, 0.091949, -0.071960, -0.080902, -0.061157, -0.061066, + -0.073029, -0.070251, -0.008545, 0.035187, -0.036194, -0.086456, + -0.158691, -0.199036, -0.150177, -0.099030, -0.027802, -0.001465, + 0.003662, 0.089020, 0.056122, -0.108551, -0.125610, -0.056610, + -0.053284, -0.128998, -0.166504, -0.124725, -0.095459, -0.088531, + -0.087433, -0.065399, -0.084045, -0.053284, -0.006317, -0.008698, + 0.025879, -0.019714, -0.055511, -0.076874, -0.084442, -0.111450, + -0.097198, -0.040924, -0.047729, 0.025604, 0.077301, 0.027100, + -0.052612, -0.046265, 0.021271, 0.022186, -0.060669, -0.109283, + -0.022858, 0.126740, 0.199036, 0.255798, 0.210114, 0.167450, + 0.034515, -0.140167, -0.106354, -0.056549, -0.016449, 0.092529, + 0.082977, 0.035645, 0.066132, 0.113098, 0.123657, 0.150513, + 0.123840, 0.125702, 0.146637, 0.131683, 0.114014, 0.019806, + 0.017670, 0.017914, -0.029480, 0.074280, 0.118622, 0.049805, + 0.057922, 0.033569, 0.028870, 0.095551, 0.030121, -0.080963, + -0.042938, 0.091400, 0.075287, 0.011597, -0.023834, -0.035278, + -0.009552, -0.030884, -0.058044, -0.038818, 0.016785, 0.037354, + -0.004852, -0.048157, -0.051849, 0.014618, 0.067535, 0.060547, + 0.029022, -0.019257, -0.078705, -0.057495, 0.056549, -0.016022, + -0.145416, -0.142548, -0.124207, -0.015961, 0.118011, 0.059906, + -0.050842, -0.037537, -0.042084, -0.060059, -0.034454, -0.011414, + 0.040009, 0.084778, 0.039246, -0.029663, -0.059631, -0.023285, + 0.033173, 0.044617, -0.023254, -0.044983, -0.039337, -0.037506, + 0.024750, 0.034637, -0.024902, -0.007019, -0.006195, 0.021271, + 0.067657, 0.043182, 0.004089, -0.043091, -0.077576, -0.118225, + -0.100006, -0.084015, -0.117065, -0.140533, -0.091675, 0.001709, + 0.019196, -0.053619, -0.090454, -0.007599, 0.064209, 0.048920, + -0.077576, -0.158813, 0.000214, 0.086823, 0.027100, 0.065979, + 0.028351, -0.032745, -0.089844, -0.026672, 0.033234, -0.002045, + -0.068665, -0.114441, -0.152344, -0.166840, -0.129181, -0.077667, + -0.001678, 0.082428, 0.123138, 0.048737, -0.080750, -0.094452, + -0.066895, -0.061401, -0.009613, -0.021729, 0.015442, 0.051270, + -0.017273, -0.013519, 0.007172, -0.065338, -0.133209, -0.104095, + -0.069153, -0.047638, -0.011871, -0.043182, -0.056427, 0.028900, + 0.031128, -0.004974, -0.057983, -0.129303, -0.086914, -0.039917, + -0.016266, 0.033936, 0.017426, 0.021576, 0.037964, -0.003693, + -0.009979, 0.064392, 0.022491, -0.075836, -0.030457, 0.040741, + 0.075745, 0.076447, 0.034851, -0.042816, -0.058960, -0.049591, + -0.033905, -0.005127, -0.015778, -0.011963, 0.043091, 0.093231, + 0.070007, 0.060211, 0.045074, 0.039642, 0.041260, 0.015594, + 0.016663, 0.032867, 0.031250, 0.009583, -0.011230, 0.009247, + 0.050415, 0.087524, 0.040375, -0.017792, -0.023621, -0.033478, + 0.012543, 0.010864, 0.016724, 0.047638, 0.089905, 0.132141, + 0.089111, 0.045471, -0.019409, -0.041229, 0.011597, -0.053101, + -0.105194, -0.104187, -0.087799, -0.061951, -0.055634, 0.003082, + 0.064270, 0.062744, 0.022552, 0.045837, 0.096985, 0.080139, + 0.028015, -0.003204, -0.035553, -0.006714, 0.071960, 0.052155, + -0.085815, -0.133209, -0.086212, -0.063507, -0.040466, -0.048065, + -0.071106, -0.006256, 0.013641, 0.026611, 0.101166, 0.072357, + 0.070557, 0.060333, -0.004028, -0.012787, -0.003387, 0.000793, + -0.042328, -0.083740, -0.114532, -0.106598, 0.000183, 0.052155, + -0.011536, -0.042480, 0.040649, 0.096161, 0.074463, 0.033417, + -0.013824, 0.006500, 0.001068, 0.052094, 0.065125, 0.027496, + -0.009613, -0.042542, -0.053436, -0.047607, -0.063080, -0.003693, + 0.001129, -0.113068, -0.136444, -0.046387, 0.056641, 0.095581, + 0.071533, 0.006836, 0.015869, 0.094147, 0.035950, -0.057190, + 0.013245, 0.040802, 0.020050, -0.008636, -0.041199, -0.051025, + -0.049683, -0.065826, -0.073303, -0.081909, -0.105347, -0.019348, + 0.024902, 0.007904, 0.010712, -0.030792, -0.059875, -0.052521, + -0.065125, -0.029419, 0.076965, 0.043243, 0.022247, 0.019684, + -0.016968, 0.026611, 0.010071, -0.047852, -0.037903, -0.015839, + -0.032013, -0.055054, -0.145294, -0.203003, -0.141785, -0.069946, + -0.011261, 0.027435, -0.020538, -0.047455, -0.046051, -0.035400, + -0.006287, 0.014496, 0.004425, 0.001251, 0.003479, 0.023132, + 0.102905, 0.105377, 0.013947, -0.088074, -0.138519, -0.089172, + 0.021210, 0.031830, -0.057739, -0.066895, -0.024292, 0.001801, + -0.027924, -0.053284, -0.022003, 0.012726, 0.011047, -0.005920, + -0.033295, -0.049042, -0.025055, 0.031738, 0.031097, 0.004059, + 0.008698, 0.054688, 0.046570, -0.022980, -0.080597, -0.092163, + -0.052277, -0.003967, -0.026337, -0.039886, 0.025238, 0.037323, + 0.005829, -0.014282, 0.028442, 0.057098, 0.003662, -0.038483, + -0.050537, -0.017151, 0.031555, -0.025391, -0.038452, -0.011871, + -0.042664, 0.015411, 0.065277, 0.015594, -0.015778, -0.036652, + -0.097076, -0.057983, 0.001434, 0.002991, -0.016724, -0.071564, + -0.036926, 0.038452, 0.049683, 0.071075, 0.066925, 0.007935, + -0.028351, -0.003754, 0.020569, -0.008881, -0.016998, -0.024841, + -0.031677, 0.005615, 0.019470, -0.028290, -0.035645, -0.012756, + -0.014191, -0.027496, -0.002411, -0.018066, 0.012177, 0.103668, + 0.134277, 0.056885, 0.027893, -0.002533, -0.008148, 0.018707, + -0.005615, 0.004822, 0.055634, 0.054718, 0.003296, -0.046875, + -0.058838, -0.034149, 0.031616, 0.020233, -0.014771, -0.005981, + 0.025391, 0.043091, 0.010376, 0.006866, 0.037842, 0.053589, + 0.037567, 0.042938, 0.063629, -0.000092, -0.056000, -0.045074, + -0.034454, -0.006531, 0.004303, -0.034882, -0.026886, 0.056580, + 0.066437, 0.025757, 0.036255, 0.066376, 0.017395, -0.030701, + -0.042419, -0.049744, -0.013733, 0.006653, -0.036713, -0.045166, + -0.008270, 0.011841, 0.049622, 0.086792, 0.052460, 0.037872, + -0.009338, -0.074890, -0.007385, 0.029053, 0.002991, -0.001862, + -0.055817, -0.109833, -0.082581, -0.018097, -0.005829, -0.006561, + -0.038422, -0.026855, 0.067139, 0.051575, -0.023956, 0.005768, + 0.032318, -0.009094, -0.031799, -0.019714, -0.075714, -0.137512, + -0.110962, -0.081360, -0.014679, -0.015259, -0.067322, -0.077271, + -0.073303, -0.035583, 0.033325, 0.059540, 0.034912, 0.015411, + -0.013214, -0.019135, -0.013306, -0.024170, -0.043640, -0.067596, + -0.077026, -0.050446, -0.039398, -0.074158, -0.079590, -0.077148, + -0.119843, -0.070496, 0.023834, 0.030396, -0.002869, -0.011810, + -0.001465, 0.025299, 0.031250, 0.045990, 0.034027, -0.058624, + -0.070892, -0.031067, -0.025360, -0.042572, -0.063507, -0.054352, + -0.028412, -0.001923, -0.037018, -0.048157, -0.007141, -0.003357, + 0.013916, 0.035767, 0.035034, 0.038391, 0.011749, -0.011780, + -0.033905, -0.065521, -0.075470, -0.065491, -0.065125, -0.079376, + -0.044281, -0.014130, -0.000458, 0.024017, 0.021973, -0.004120, + 0.026245, 0.043976, -0.009155, -0.035187, -0.030853, -0.042633, + 0.002563, 0.055603, 0.021820, -0.057800, -0.074646, -0.015411, + 0.045898, 0.007233, -0.055756, -0.016113, 0.035370, 0.023315, + -0.017120, -0.024292, 0.004974, 0.041718, 0.045227, -0.000793, + 0.025970, 0.086670, 0.042450, -0.023834, -0.054077, -0.036926, + 0.028320, 0.006622, 0.005341, 0.059265, 0.049164, 0.011841, + 0.019470, 0.004242, -0.035248, -0.009949, 0.027069, 0.029419, + 0.042816, 0.043671, 0.012878, 0.023865, 0.027802, -0.000854, + 0.006348, 0.039337, 0.040802, -0.013275, -0.055634, -0.029480, + -0.013092, -0.033936, -0.040649, -0.001404, 0.038910, 0.046722, + 0.033447, -0.020294, -0.040283, -0.014923, -0.003143, -0.001312, + 0.005493, 0.002899, 0.037140, 0.062469, 0.038696, 0.002747, + -0.012482, -0.009827, -0.004486, -0.011780, -0.018097, -0.014862, + -0.008057, -0.056702, -0.049561, 0.025269, 0.046844, 0.003296, + 0.014130, 0.043182, 0.018280, 0.007294, 0.008270, -0.004517, + -0.014679, -0.026764, -0.019745, -0.041779, -0.027863, 0.028412, + 0.033722, 0.020264, 0.004913, -0.004578, -0.007935, -0.006226, + -0.005737, -0.032074, -0.040955, -0.010468, -0.040863, -0.031433, + -0.004547, -0.032654, -0.038239, 0.027496, 0.010681, -0.000702, + 0.020782, -0.010376, -0.005768, 0.013733, -0.007324, -0.027466, + -0.018005, -0.033600, -0.028778, -0.036316, -0.073090, -0.050781, + -0.029938, -0.037567, -0.035828, -0.036163, -0.035828, -0.005249, + -0.005646, -0.002289, 0.011078, -0.014038, -0.035309, 0.000061, + 0.010101, -0.028961, -0.035950, -0.053802, -0.066620, -0.048981, + -0.030823, -0.034515, 0.008972, 0.030731, -0.021942, -0.069214, + -0.046722, -0.000854, 0.028656, -0.000580, -0.027313, -0.026886, + -0.060364, -0.051880, -0.022766, -0.019531, -0.016418, -0.047089, + -0.072510, -0.054871, -0.046570, -0.053772, -0.021820, 0.003204, + 0.010406, 0.000793, -0.037170, -0.023926, 0.025269, 0.054657, + 0.057159, 0.007996, -0.063232, -0.097137, -0.066803, -0.021606, + -0.015015, -0.037842, -0.045776, -0.054840, -0.068481, -0.033081, + 0.026459, 0.048157, 0.017700, -0.011230, -0.020599, -0.040405, + 0.001526, 0.048492, 0.023407, -0.011658, 0.004059, 0.006165, + -0.013245, 0.008118, 0.049591, 0.050262, 0.008606, -0.029175, + -0.039368, 0.003937, 0.027863, -0.005646, -0.046082, -0.043152, + -0.002838, 0.018341, 0.006012, -0.001282, 0.015137, 0.004425, + -0.018524, -0.001343, 0.009308, 0.002350, -0.013306, -0.014832, + -0.008759, 0.000671, 0.023254, 0.035645, 0.005646, -0.028717, + -0.028931, -0.008484, -0.019043, -0.019928, 0.006042, 0.016083, + 0.023682, 0.034363, 0.020844, 0.016235, 0.008636, 0.003601, + 0.018646, 0.029480, 0.034088, 0.016327, 0.004761, -0.029022, + -0.027893, -0.006836, -0.015350, -0.021820, -0.018250, -0.008026, + -0.001343, 0.004669, -0.015900, -0.004303, 0.032898, 0.041046, + 0.023132, 0.020844, 0.032196, 0.020355, -0.002716, 0.003662, + 0.031433, 0.043213, 0.043304, -0.007507, -0.015747, 0.000916, + -0.009094, 0.004852, 0.004272, 0.007507, 0.021088, 0.024017, + 0.010254, 0.023987, 0.035431, 0.006561, -0.015869, -0.004791, + 0.013885, 0.019440, -0.015106, -0.038666, -0.028625, -0.036438, + -0.051361, -0.020905, -0.019531, -0.038666, -0.015747, -0.001587, + 0.006317, 0.024994, 0.022797, 0.012726, -0.004822, 0.001404, + -0.006042, 0.000732, 0.008118, -0.024506, -0.045654, -0.037537, + -0.024933, -0.026733, -0.038605, -0.051971, -0.050171, -0.031372, + -0.041199, -0.012268, -0.006500, -0.038208, -0.053650, -0.021118, + 0.007324, 0.006561, -0.026459, -0.052338, -0.015717, -0.015106, + -0.037018, -0.037720, -0.047852, -0.032562, -0.014557, -0.059265, + -0.101318, -0.091644, -0.050659, -0.037628, -0.000763, 0.016144, + -0.018799, -0.022827, -0.005707, -0.010712, -0.012054, -0.007019, + -0.008881, -0.000702, -0.000427, -0.015594, -0.030426, -0.015778, + -0.019501, -0.064423, -0.072540, -0.041229, -0.012177, -0.007294, + -0.034027, -0.059723, -0.034729, -0.007629, 0.003418, -0.007751, + -0.032043, -0.034149, -0.024170, 0.007233, 0.023834, 0.008575, + 0.004669, -0.008148, -0.037811, -0.033783, 0.007996, 0.016602, + 0.014038, 0.012238, -0.009979, -0.028748, -0.014862, 0.013000, + 0.000977, -0.049530, -0.061859, -0.022247, 0.006226, 0.009369, + -0.029236, -0.031128, 0.006226, 0.009399, -0.006653, 0.001190, + -0.011993, -0.000916, 0.011322, -0.002350, 0.004333, 0.004517, + -0.014191, -0.012177, 0.010986, 0.011566, -0.000092, -0.010651, + -0.014038, -0.005280, -0.000732, -0.007935, -0.017303, -0.019073, + -0.009399, 0.007935, 0.015778, 0.019073, 0.004272, -0.012726, + 0.001434, 0.011963, 0.010162, 0.018555, 0.018036, 0.008789, + 0.000946, 0.009552, 0.014923, 0.033722, 0.048553, 0.019989, + -0.010803, -0.026733, -0.012207, 0.012512, -0.003967, -0.018097, + 0.002289, 0.032410, 0.036804, 0.025970, 0.013550, 0.008301, + 0.011108, 0.012421, 0.010101, 0.001404, -0.010956, 0.010498, + 0.029999, 0.014221, 0.003937, 0.002563, -0.001709, -0.013428, + -0.023102, -0.005188, 0.011780, 0.002655, -0.002045, 0.006348, + 0.005981, -0.011841, -0.016327, -0.004486, -0.004944, -0.030151, + -0.029114, -0.023376, -0.024261, -0.009857, 0.008423, 0.016235, + 0.021606, 0.012054, -0.005432, -0.006744, -0.003937, -0.004974, + -0.024506, -0.029541, -0.015839, -0.028381, -0.030823, -0.018036, + -0.006104, -0.003998, -0.022858, -0.030975, -0.005798, -0.001709, + -0.008850, -0.011780, -0.013031, -0.018921, -0.029480, -0.024689, + -0.012909, -0.006104, -0.006042, -0.013763, -0.018188, -0.034576, + -0.036713, -0.004517, 0.009583, -0.002106, -0.026093, -0.033875, + -0.008575, 0.006226, -0.008148, -0.032654, -0.037842, -0.024811, + -0.019714, -0.013062, -0.014771, -0.028992, -0.023376, -0.012695, + -0.007690, -0.014343, -0.031708, -0.044586, -0.036865, -0.027985, + -0.022552, -0.025208, -0.028168, -0.024933, -0.028717, -0.030212, + -0.018066, -0.004547, 0.001282, -0.008148, -0.024200, -0.023834, + -0.019623, -0.037048, -0.042877, -0.031952, -0.016998, -0.009338, + -0.014893, -0.018280, -0.013550, -0.003418, 0.013306, 0.008606, + -0.002991, -0.015350, -0.023102, -0.021118, -0.025269, -0.032654, + -0.040375, -0.028992, -0.016357, -0.034027, -0.036011, -0.016022, + -0.010284, -0.000793, 0.006805, 0.005096, 0.021973, 0.009796, + -0.012207, -0.013489, -0.014648, -0.017120, -0.017578, -0.012329, + -0.002472, 0.000397, -0.013031, -0.018890, -0.009338, -0.018280, + -0.017670, -0.005920, -0.004944, -0.006073, -0.003479, 0.000610, + 0.009003, 0.010559, 0.011475, -0.003693, -0.016357, -0.006378, + -0.007507, 0.000366, 0.011322, 0.012390, 0.004639, -0.002655, + 0.003754, 0.027283, 0.016052, -0.008575, -0.005615, 0.004303, + 0.013550, 0.018677, 0.003662, -0.022858, -0.028168, -0.017975, + -0.002197, -0.012360, -0.022736, -0.016144, 0.003784, 0.018951, + 0.008270, -0.005707, -0.008514, 0.007446, 0.015717, 0.012177, + 0.011414, 0.010590, 0.013367, 0.008331, 0.002686, -0.003876, + -0.009857, -0.024902, -0.021973, -0.014557, -0.012756, -0.001251, + 0.004303, 0.005402, 0.009460, 0.002960, -0.009003, -0.003784, + 0.009430, 0.008484, 0.006012, 0.014130, 0.008148, -0.002441, + 0.000397, 0.002686, -0.000214, -0.014557, -0.026489, -0.014587, + -0.009918, -0.006805, -0.001221, -0.004089, -0.003601, -0.006226, + -0.020142, -0.023315, -0.005341, 0.012421, 0.008545, -0.002472, + -0.000366, 0.000580, -0.020508, -0.033752, -0.029205, 0.000031, + 0.017365, 0.012390, -0.008514, -0.017181, -0.018311, -0.016663, + -0.008301, -0.013519, -0.010376, 0.011841, 0.002930, -0.016510, + -0.025116, -0.029968, -0.015289, -0.003082, -0.007355, -0.010590, + -0.012451, -0.021759, -0.028351, -0.040375, -0.041840, -0.027374, + -0.014343, -0.018005, -0.024628, -0.018188, -0.009644, -0.003723, + -0.009644, -0.005341, 0.003204, 0.002045, 0.007629, -0.003815, + -0.013062, -0.010193, -0.003540, -0.012268, -0.019501, -0.025330, + -0.040314, -0.039520, -0.035187, -0.034180, -0.032257, -0.036285, + -0.029572, -0.008575, -0.002045, -0.012787, -0.010559, -0.006317, + -0.005371, -0.003693, 0.000519, 0.000854, -0.010101, -0.017090, + -0.023499, -0.034790, -0.033569, -0.025818, -0.007507, 0.004913, + -0.004089, -0.011780, -0.008759, -0.004150, -0.002411, -0.004059, + -0.002960, -0.007416, -0.012177, -0.015289, -0.024750, -0.033478, + -0.035461, -0.029419, -0.022003, -0.013306, -0.006958, -0.007996, + -0.011658, -0.013916, -0.017303, -0.011261, -0.000061, 0.009674, + -0.001404, -0.013245, -0.006226, 0.010773, 0.012482, 0.002075, + -0.006165, -0.007172, -0.014618, -0.021759, -0.029266, -0.024841, + -0.018005, -0.015350, -0.010590, -0.002075, -0.000427, -0.009308, + -0.007721, 0.007782, 0.010223, -0.001434, -0.007141, -0.005127, + 0.000458, 0.005920, -0.006500, -0.018921, -0.012726, -0.007416, + -0.009033, -0.015900, -0.021088, -0.017761, -0.007172, 0.002289, + 0.004333, 0.003174, -0.000427, -0.001678, 0.002289, 0.004974, + 0.009552, 0.002380, -0.014374, -0.013824, -0.005890, 0.003998, + -0.002014, -0.013367, -0.010315, -0.002380, 0.001129, -0.001160, + -0.001404, -0.001190, -0.001526, 0.001007, 0.003082, 0.006836, + 0.008820, 0.000153, -0.008972, -0.013184, -0.014343, -0.009430, + 0.003571, 0.000214, -0.013214, -0.011261, -0.001312, 0.003754, + 0.002899, -0.000946, 0.000641, 0.006195, 0.011322, 0.013245, + 0.004120, -0.001862, 0.003448, -0.003998, -0.018250, -0.020447, + -0.012054, -0.001129, 0.005615, 0.000366, -0.010773, -0.015564, + -0.014343, -0.011566, -0.001862, 0.015198, 0.010162, -0.002991, + -0.011261, -0.014008, -0.009399, -0.007416, -0.005219, -0.015411, + -0.026123, -0.031647, -0.035095, -0.028290, -0.016052, -0.008423, + 0.005615, 0.007233, 0.001984, 0.000610, -0.002319, -0.006866, + -0.002045, 0.008636, 0.003754, -0.008575, -0.016907, -0.011536, + -0.000336, -0.003998, -0.022400, -0.038818, -0.039948, -0.029755, + -0.016785, -0.009705, -0.006805, -0.004303, -0.004578, 0.000610, + 0.003265, 0.004669, 0.009857, 0.002899, -0.009552, -0.020294, + -0.019928, -0.016083, -0.013214, -0.015503, -0.017700, -0.026581, + -0.025879, -0.020721, -0.018066, -0.015503, -0.007690, -0.002258, + -0.009827, -0.018951, -0.014099, 0.002808, -0.002075, -0.026947, + -0.024506, -0.009277, -0.004822, -0.011108, -0.018372, -0.022125, + -0.023804, -0.016144, -0.012726, -0.012939, -0.015900, -0.017456, + -0.020294, -0.023834, -0.023499, -0.018311, -0.011108, -0.010162, + -0.014404, -0.022705, -0.025330, -0.021057, -0.012543, -0.008575, + -0.014557, -0.022614, -0.021637, -0.015259, -0.015778, -0.022156, + -0.021210, -0.009552, -0.002014, -0.002991, -0.004242, -0.007141, + -0.006256, 0.002106, 0.003235, -0.003021, -0.017426, -0.015259, + -0.001312, -0.001801, -0.014191, -0.020935, -0.021057, -0.015533, + -0.015717, -0.018311, -0.010223, -0.008209, -0.012451, -0.011780, + -0.009735, -0.007355, -0.002075, -0.002441, -0.004578, -0.003204, + -0.001556, 0.004944, 0.002563, -0.006073, -0.011993, -0.016632, + -0.019226, -0.006805, -0.000183, -0.006500, -0.015717, -0.014038, + -0.000397, 0.008484, 0.005920, -0.000946, -0.011963, -0.019440, + -0.017731, -0.018921, -0.017548, -0.013885, -0.005188, -0.006653, + -0.008759, -0.006958, -0.001801, 0.008545, 0.005371, -0.000854, + 0.009125, 0.016113, 0.010284, 0.000671, 0.000427, 0.001129, + -0.002319, -0.002441, -0.004639, -0.016052, -0.027039, -0.020142, + -0.014404, -0.010834, -0.014771, -0.016449, -0.005493, 0.006958, + 0.014160, 0.011536, 0.011383, 0.012939, 0.011261, 0.014923, + 0.015015, 0.006653, -0.001007, -0.004852, -0.007660, -0.005371, + -0.011505, -0.018555, -0.018219, -0.016571, -0.016296, -0.012878, + -0.010834, -0.004333, 0.006073, 0.015350, 0.016510, 0.006653, + 0.004761, 0.005463, 0.004578, 0.005615, -0.005066, -0.016602, + -0.022308, -0.018890, -0.014191, -0.016937, -0.015198, -0.017548, + -0.023987, -0.020905, -0.009735, 0.002838, 0.008484, 0.005280, + 0.002258, -0.002075, -0.007416, -0.008423, 0.001434, 0.002167, + -0.007843, -0.008911, -0.010223, -0.019226, -0.026428, -0.023224, + -0.016083, -0.008850, -0.007965, -0.013062, -0.014496, -0.011932, + -0.012146, -0.006561, -0.003876, -0.009155, -0.013916, -0.009735, + -0.004211, -0.001007, -0.003510, -0.014709, -0.022949, -0.021484, + -0.018311, -0.014404, -0.010406, -0.010162, -0.011993, -0.018890, + -0.022430, -0.016144, -0.008514, -0.009796, -0.012207, -0.007843, + -0.007629, -0.009552, -0.012970, -0.012115, -0.012360, -0.016022, + -0.018768, -0.015167, -0.009979, -0.018616, -0.029205, -0.025421, + -0.019531, -0.024902, -0.026733, -0.019989, -0.008331, -0.004913, + -0.007202, -0.002045, -0.007599, -0.011841, -0.006897, -0.009277, + -0.016449, -0.015991, -0.009674, -0.008331, -0.008636, -0.023621, + -0.036377, -0.031158, -0.025909, -0.023895, -0.022827, -0.025177, + -0.027008, -0.023590, -0.016907, -0.007324, -0.000671, -0.000610, + -0.002167, -0.003876, -0.002350, 0.000061, -0.001801, -0.008392, + -0.008636, -0.007385, -0.014893, -0.015808, -0.013458, -0.015198, + -0.015320, -0.011108, -0.010956, -0.016937, -0.018463, -0.015839, + -0.013367, -0.010223, -0.006500, -0.000977, -0.001221, -0.005981, + -0.010162, -0.005768, 0.003784, 0.003204, -0.008118, -0.015747, + -0.014709, -0.012238, -0.012604, -0.008453, 0.000916, 0.003510, + 0.000305, -0.000305, 0.003998, 0.001526, 0.003571, 0.006500, + 0.003937, -0.001678, -0.004547, -0.003815, -0.001740, -0.007568, + -0.011597, -0.011841, -0.015015, -0.013550, -0.012543, -0.006470, + -0.002197, -0.006775, -0.002075, 0.008118, 0.005157, -0.002197, + -0.004211, -0.000397, 0.005280, 0.001587, -0.003357, 0.001526, + 0.003876, 0.008209, 0.004669, -0.004700, -0.007050, -0.007294, + -0.005280, -0.003357, -0.007416, -0.008423, -0.002808, -0.000336, + -0.005280, -0.012787, -0.008026, 0.002869, 0.000336, -0.000580, + -0.000488, -0.002960, 0.002380, 0.002991, -0.001526, -0.002197, + -0.006226, -0.009552, -0.007568, -0.001160, 0.000153, 0.001923, + -0.005798, -0.014557, -0.013367, -0.006805, -0.000610, 0.006104, + 0.003143, -0.001343, -0.000610, 0.001526, 0.005249, 0.000244, + -0.009064, -0.010223, -0.010651, -0.012787, -0.010101, -0.012970, + -0.016266, -0.014404, -0.009064, -0.006287, -0.005219, -0.004089, + -0.007629, -0.009796, -0.011566, -0.007294, -0.001251, -0.005035, + -0.015533, -0.016998, -0.011566, -0.005981, -0.007782, -0.008026, + -0.007599, -0.011230, -0.014740, -0.016907, -0.019073, -0.020477, + -0.016113, -0.012146, -0.009918, -0.009186, -0.020874, -0.031067, + -0.026611, -0.017303, -0.009125, -0.004517, -0.008972, -0.015198, + -0.019714, -0.022827, -0.020172, -0.020660, -0.021454, -0.022186, + -0.023254, -0.018036, -0.010864, -0.016266, -0.027252, -0.028656, + -0.022003, -0.016174, -0.017212, -0.020203, -0.025421, -0.025757, + -0.021362, -0.015717, -0.008392, -0.006927, -0.019958, -0.031830, + -0.027588, -0.021820, -0.019470, -0.021454, -0.024261, -0.020508, + -0.019043, -0.015411, -0.010132, -0.007294, -0.004272, -0.002014, + -0.003448, -0.009735, -0.011780, -0.013611, -0.019714, -0.020172, + -0.016846, -0.018127, -0.017578, -0.018402, -0.018860, -0.013245, + -0.007629, -0.010132, -0.009064, -0.005676, -0.004395, -0.006256, + -0.011292, -0.013367, -0.003784, 0.003387, 0.001434, 0.000336, + -0.004059, -0.006592, -0.003845, -0.003815, -0.002472, -0.004150, + -0.012390, -0.016998, -0.015350, -0.013214, -0.012360, -0.016418, + -0.014496, 0.000580, 0.008881, 0.005951, -0.000122, -0.006378, + -0.008850, -0.005432, 0.001007, 0.002441, -0.002869, -0.007690, + -0.006866, -0.001434, 0.000641, -0.004303, -0.006592, -0.005096, + -0.005280, -0.002838, 0.000946, 0.001160, -0.001465, -0.004822, + -0.006439, 0.003113, 0.008392, 0.001556, -0.005768, -0.010437, + -0.009705, -0.006042, -0.000183, 0.002869, -0.003876, -0.012512, + -0.007843, 0.003845, 0.009796, 0.009583, 0.005035, 0.005737, + 0.006104, 0.001007, 0.003143, 0.004791, 0.003143, 0.001068, + -0.005798, -0.008423, -0.002563, 0.001678, -0.002747, -0.008911, + -0.010468, -0.002808, 0.005646, 0.002075, -0.003235, -0.006866, + -0.007019, -0.001160, 0.002167, 0.001343, -0.000519, -0.005615, + -0.009399, -0.009613, -0.013336, -0.015533, -0.016418, -0.012970, + -0.011078, -0.015320, -0.020721, -0.014709, -0.002625, -0.004547, + -0.011932, -0.007599, -0.000671, 0.000336, -0.002747, -0.008148, + -0.012939, -0.017944, -0.020538, -0.018494, -0.014221, -0.013824, + -0.019470, -0.023163, -0.020203, -0.016968, -0.017578, -0.018372, + -0.015533, -0.012726, -0.010101, -0.011017, -0.015533, -0.014130, + -0.005890, -0.002625, -0.003693, -0.005676, -0.009369, -0.013184, + -0.013855, -0.010925, -0.013184, -0.020294, -0.029968, -0.031219, + -0.023285, -0.019897, -0.019623, -0.016327, -0.013855, -0.016724, + -0.020813, -0.016602, -0.010651, -0.011505, -0.016449, -0.019623, + -0.019440, -0.016449, -0.014465, -0.010742, -0.011658, -0.013184, + -0.011017, -0.009277, -0.010284, -0.015991, -0.017731, -0.017487, + -0.021362, -0.018799, -0.017151, -0.020599, -0.023529, -0.024567, + -0.026733, -0.024414, -0.019440, -0.019257, -0.022400, -0.019501, + -0.015320, -0.016235, -0.016815, -0.011505, -0.003601, -0.002014, + -0.007141, -0.013214, -0.009186, -0.001862, -0.000214, -0.003784, + -0.008972, -0.011871, -0.012512, -0.010986, -0.008789, -0.010010, + -0.014496, -0.018829, -0.018005, -0.018677, -0.015625, -0.011108, + -0.011902, -0.012970, -0.009338, -0.003265, -0.002136, -0.004608, + -0.001556, 0.001312, -0.000580, -0.000793, -0.001526, -0.003998, + -0.006653, -0.008698, -0.007599, -0.002319, -0.002045, -0.005280, + -0.009521, -0.008911, -0.003693, -0.002594, -0.002319, 0.003296, + 0.004761, -0.001495, -0.008972, -0.011627, -0.002655, 0.006042, + 0.002441, -0.002960, -0.006226, -0.012512, -0.013763, -0.004333, + 0.002838, 0.004913, 0.000854, -0.008057, -0.007050, 0.005707, + 0.013733, 0.010284, 0.002319, 0.001495, 0.007111, 0.002594, + -0.005615, -0.010315, -0.011383, -0.011566, -0.004608, 0.003754, + 0.001587, -0.008179, -0.013885, -0.005798, 0.004761, 0.004547, + -0.000122, -0.002960, -0.001862, 0.002350, 0.002075, -0.000458, + -0.002045, 0.000488, 0.003113, -0.000061, -0.005127, -0.008575, + -0.013306, -0.017914, -0.019897, -0.016449, -0.010254, -0.004974, + -0.003845, -0.003754, -0.007477, -0.011780, -0.007965, 0.001221, + 0.006195, 0.001282, -0.008453, -0.015778, -0.012177, -0.005676, + -0.002319, -0.003021, -0.009064, -0.014832, -0.016693, -0.014740, + -0.011658, -0.009583, -0.010559, -0.012421, -0.005920, -0.002563, + -0.007324, -0.013000, -0.013031, -0.008057, -0.007965, -0.011230, + -0.015594, -0.017822, -0.019257, -0.018280, -0.014008, -0.012604, + -0.016388, -0.018280, -0.014099, -0.008820, -0.009674, -0.010742, + -0.008087, -0.006287, -0.008667, -0.010742, -0.011505, -0.013489, + -0.010864, -0.007874, -0.013336, -0.020386, -0.019928, -0.016479, + -0.014038, -0.014313, -0.017303, -0.017822, -0.017761, -0.018524, + -0.015137, -0.011749, -0.012238, -0.014832, -0.018097, -0.018616, + -0.015564, -0.014252, -0.014923, -0.013306, -0.012817, -0.014618, + -0.017059, -0.019623, -0.019012, -0.016052, -0.011261, -0.007538, + -0.005249, -0.005554, -0.007416, -0.005096, -0.004547, -0.011108, + -0.017639, -0.018829, -0.017639, -0.018921, -0.019073, -0.016968, + -0.013031, -0.008179, -0.004395, -0.005066, -0.005341, -0.004059, + -0.004120, -0.005463, -0.008698, -0.007538, -0.003723, -0.001068, + -0.003448, -0.007507, -0.007477, -0.005096, -0.005493, -0.009277, + -0.014526, -0.014587, -0.009613, -0.004333, -0.003082, -0.003845, + -0.004089, -0.004730, -0.003082, 0.002167, 0.002960, -0.001587, + -0.004944, -0.004333, 0.000336, 0.002686, -0.000610, -0.007721, + -0.010895, -0.006561, -0.003143, 0.000214, 0.004242, 0.003082, + -0.001221, -0.002747, -0.000305, 0.004822, 0.005341, 0.000702, + -0.001343, -0.000519, -0.001678, -0.004944, -0.006104, -0.004913, + -0.003998, -0.005066, -0.005188, -0.002289, -0.000214, -0.000061, + -0.000031, 0.000732, 0.002563, 0.005432, 0.004272, 0.001160, + 0.000244, -0.000580, -0.001251, -0.002228, -0.003143, -0.001953, + -0.001740, -0.004669, -0.006592, -0.006805, -0.005981, -0.004425, + -0.005737, -0.005920, -0.004120, -0.001984, -0.000092, 0.000702, + 0.001282, 0.001068, 0.001862, 0.001923, 0.000763, -0.001038, + -0.004578, -0.007111, -0.007355, -0.005035, -0.003113, -0.004395, + -0.006500, -0.006958, -0.005951, -0.004181, -0.005341, -0.006348, + -0.004761, -0.003723, -0.003235, -0.003510, -0.002869, -0.002136, + -0.003784, -0.005585, -0.005463, -0.004761, -0.003998, -0.003876, + -0.004700, -0.004578, -0.005066, -0.006714, -0.007812, -0.007568, + -0.005737, -0.004028, -0.004517, -0.005341, -0.005981, -0.006317, + -0.005310, -0.005066, -0.006348, -0.006989, -0.005737, -0.005005, + -0.006042, -0.005920, -0.004150, -0.003784, -0.005127, -0.006653, + -0.006500, -0.003906, -0.002594, -0.003967, -0.005798, -0.006927, + -0.006927, -0.006836, -0.006378, -0.005188, -0.004059, -0.003906, + -0.004944, -0.005371, -0.005066, -0.004639, -0.004578, -0.004608, + -0.004150, -0.003815, -0.003326, -0.002777, -0.002686, -0.002991, + -0.003082, -0.003540, -0.003998, -0.003906, -0.004517, -0.005280, + -0.005371, -0.004730, -0.003723, -0.003693, -0.004028, -0.003845, + -0.003082, -0.002655, -0.002991, -0.003754, -0.003479, -0.002808, + -0.003174, -0.002991, -0.002563, -0.002136, -0.001678, -0.001526, + -0.002350, -0.003021, -0.003540, -0.003845, -0.003052, -0.002106, + -0.002258, -0.002869, -0.002838, -0.002777, -0.002319, -0.001434, + -0.000977, -0.000793, -0.001007, -0.001129, -0.001343, -0.001526, + -0.001892, -0.002441, -0.002960, -0.003021, -0.002197, -0.001587, + -0.001526, -0.001373, -0.001282, -0.001007, -0.000549, 0.000366, + 0.000763, 0.000336, -0.000244, -0.000854, -0.001190, -0.000946, + -0.000610, -0.000854, -0.001465, -0.001923, -0.001892, -0.001648, + -0.001068, -0.000366, -0.000061, -0.000244, -0.000580, -0.000671, + -0.000549, -0.000183, 0.000000, -0.000031, 0.000000, -0.000031, + -0.000336, -0.000519, -0.000610, -0.000671, -0.000519, -0.000671, + -0.000824, -0.000519, -0.000244, -0.000183, -0.000092, -0.000092, + -0.000244, -0.000366, -0.000366, -0.000305, -0.000153, -0.000092 +}; diff --git a/plugins/ladspa_effect/caps/dsp/BiQuad.h b/plugins/ladspa_effect/caps/dsp/BiQuad.h new file mode 100644 index 000000000..666cd12f1 --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/BiQuad.h @@ -0,0 +1,153 @@ +/* + dsp/BiQuad.h + + Copyright 2003-4 Tim Goetze + + http://quitte.de/dsp/ + + bi-quad implementation. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _DSP_BI_QUAD_H_ +#define _DSP_BI_QUAD_H_ + +namespace DSP { + +class BiQuad +{ + public: + /* coefficients */ + d_sample a[3], b[3]; + + /* history */ + int h; + d_sample x[2], y[2]; + + BiQuad() + { + a[0] = 1; + a[1] = a[2] = b[0] = b[1] = b[2] = 0; + + reset(); + } + + BiQuad (d_sample * _a, d_sample * _b) + { + for (int i = 0; i < 3; ++i) + a[i] = _a[i], + b[i] = _b[i]; + + reset(); + } + + void reset() + { + h = 0; + + x[0] = x[1] = + y[0] = y[1] = 0.; + } + + inline d_sample process (d_sample s) + { + register int z = h; + + register d_sample r = s * a[0]; + + r += a[1] * x[z]; + r += b[1] * y[z]; + + z ^= 1; + r += a[2] * x[z]; + r += b[2] * y[z]; + + y[z] = r; + x[z] = s; + + h = z; + + return r; + } + + /* additional methods for using the biquad to upsample */ + inline d_sample process_0_1() + { + register int z = h; + + register d_sample r = 0; + + r += a[1] * x[z]; + r += b[1] * y[z]; + + z ^= 1; + r += a[2] * x[z]; + r += b[2] * y[z]; + + y[z] = r; + x[z] = 0; + + h = z; + + return r; + } + + inline d_sample process_0_2() + { + register int z = h; + + register d_sample r = 0; + + r += b[1] * y[z]; + + z ^= 1; + r += a[2] * x[z]; + r += b[2] * y[z]; + + y[z] = r; + x[z] = 0; + + h = z; + + return r; + } + + inline d_sample process_0_3() + { + register int z = h; + + register d_sample r = 0; + + r += b[1] * y[z]; + + z ^= 1; + r += b[2] * y[z]; + + y[z] = r; + x[z] = 0; + + h = z; + + return r; + } +}; + +} /* namespace DSP */ + +#endif /* _DSP_BI_QUAD_H_ */ diff --git a/plugins/ladspa_effect/caps/dsp/Delay.h b/plugins/ladspa_effect/caps/dsp/Delay.h new file mode 100644 index 000000000..3703e7f03 --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/Delay.h @@ -0,0 +1,171 @@ +/* + dsp/Delay.h + + Copyright 2003-4 Tim Goetze + + http://quitte.de/dsp/ + + delay lines with fractional (linear or cubica interpolation) lookup + and an allpass interpolating tap (which needs more work). + + delay line storage is aligned to powers of two for simplified wrapping + checks (no conditional or modulo, binary and suffices instead). + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _DSP_DELAY_H_ +#define _DSP_DELAY_H_ + +#include "util.h" +#include "FPTruncateMode.h" + +namespace DSP { + +class Delay +{ + public: + int size; + d_sample * data; + int read, write; + + Delay() + { + read = write = 0; + data = 0; + } + + ~Delay() + { + if (data) free (data); + } + + void init (int n) + { + size = next_power_of_2 (n); + data = (d_sample *) calloc (sizeof (d_sample), size); + size -= 1; + write = n; + } + + void reset() + { + memset (data, 0, (size + 1) * sizeof (d_sample)); + } + + d_sample & + operator [] (int i) + { + return data [(write - i) & size]; + } + + inline void + put (d_sample x) + { + data [write] = x; + write = (write + 1) & size; + } + + inline d_sample + get() + { + d_sample x = data [read]; + read = (read + 1) & size; + return x; + } + + inline d_sample + putget (d_sample x) + { + put (x); + return get(); + } + + /* fractional lookup, linear interpolation */ + inline d_sample + get_at (float f) + { + int n; + fistp (f, n); /* read: i = (int) f; relies on FPTruncateMode */ + f -= n; + + return (1 - f) * (*this) [n] + f * (*this) [n + 1]; + } + + /* fractional lookup, cubic interpolation */ + inline d_sample + get_cubic (float f) + { + int n; + fistp (f, n); /* see FPTruncateMode */ + f -= n; + + d_sample x_1 = (*this) [n - 1]; + d_sample x0 = (*this) [n]; + d_sample x1 = (*this) [n + 1]; + d_sample x2 = (*this) [n + 2]; + + /* d_sample (32bit) quicker than double here */ + register d_sample a = + (3 * (x0 - x1) - x_1 + x2) * .5; + register d_sample b = + 2 * x1 + x_1 - (5 * x0 + x2) * .5; + register d_sample c = + (x1 - x_1) * .5; + + return x0 + (((a * f) + b) * f + c) * f; + } +}; + +/* allpass variant */ + +class DelayTapA +{ + public: + d_sample x1, y1; + + DelayTapA() + { + reset(); + } + + void reset() + { + x1 = y1 = 0; + } + + d_sample get (Delay & d, float f) + { + int n; + fistp (f, n); /* read: i = (int) f; relies on FPTruncateMode */ + f -= n; + if (0 && f < .5) + f += 1, + n -= 1; + + d_sample x = d[n]; + f = (1 - f) / (1 + f); + y1 = x1 + f * x - f * y1; + x1 = x; + return y1; + } +}; + +}; /* namespace DSP */ + +#endif /* _DSP_DELAY_H_ */ diff --git a/plugins/ladspa_effect/caps/dsp/Eq.h b/plugins/ladspa_effect/caps/dsp/Eq.h new file mode 100644 index 000000000..523d87c7e --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/Eq.h @@ -0,0 +1,175 @@ +/* + Eq.h + + Copyright 2004 Tim Goetze + + http://quitte.de/dsp/ + + equalizer circuit using recursive filtering. + based on a motorola paper implementing a similar circuit on a DSP56001. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _DSP_EQ_H_ +#define _DSP_EQ_H_ + +namespace DSP { + +/* a single bandpass as used by the Eq, expressed as a biquad. like all + * band-pass filters i know, the filter works with a FIR coefficient of 0 + * for x[-1], so a generic biquad isn't the optimum implementation. + */ +class BP +{ + public: + template + BP (double fc, double Q, T * ca, T * cb) + { + double theta = 2 * fc * M_PI; + + double + b = (Q - theta * .5) / (2 * Q + theta), + a = (.5 - b) / 2, + c = (.5 + b) * cos (theta); + + ca[0] = 2 * a; + ca[1] = 0; + ca[2] = -2 * a; + + cb[0] = 0; + cb[1] = 2 * c; + cb[2] = -2 * b; + } +}; + +/* BANDS must be a multiple of 4 to enable the use of SSE instructions. + * however, the current SSE-enabled process() method fails to compile if + * -funroll-loops is passed to gcc. + */ +template +class Eq +{ + public: + /* over-size state buffer to allow alignment */ + float state [BANDS * 8 + 4 + 4]; + /* recursion coefficients, 3 per band */ + float * a, * b, * c; + /* past outputs, 2 per band */ + float * y; + /* current gain and recursion factor, each 1 per band = 2 */ + float * gain, * gf; + /* aligned storage for output summation */ + float * temp; + /* aligned storage for constants */ + float * two; + /* input history */ + float x[2]; + /* history index */ + int h; + + Eq() + { + /* take care of 128-bit alignment */ + long s = (long) (char *) state; + s &= 0xF; + if (s) + s = 16 - s; + + /* assign coefficients */ + a = (float *) (((char *) state) + s); + b = a + BANDS; + c = a + 2 * BANDS; + + /* output history (input is common to all bands) */ + y = a + 3 * BANDS; + gain = a + 5 * BANDS; + gf = a + 6 * BANDS; + temp = a + 7 * BANDS; + two = temp + 4; + two[0] = two[1] = two[2] = two[3] = 2; + + h = 0; + } + + void reset() + { + for (int i = 0; i < 2 * BANDS; ++i) + y[i] = 0; + + for (int i = 0; i < 2; ++i) + x[i] = 0; + } + + void init (double fs, double Q) + { + double f = 31.25; + int i = 0; + + for (i = 0; i < USE_BANDS && f < fs / 2; ++i, f *= 2) + init_band (i, 2 * f * M_PI / fs, Q); + for ( ; i < BANDS; ++i) + zero_band (i); + + reset(); + } + + void init_band (int i, double theta, double Q) + { + b[i] = (Q - theta * .5) / (2 * Q + theta); + a[i] = (.5 - b[i]) / 2; + c[i] = (.5 + b[i]) * cos (theta); + gain[i] = 1; + gf[i] = 1; + } + + void zero_band (int i) + { + a[i] = b[i] = c[i] = 0; + } + + /* per-band recursion: + * y = 2 * (a * (x - x[-2]) + c * y[-1] - b * y[-2]) + */ + d_sample process (d_sample s) + { + int z1 = h, z2 = h ^ 1; + + float * y1 = y + z1 * BANDS; + float * y2 = y + z2 * BANDS; + + d_sample x_x2 = s - x[z2]; + d_sample r = 0; + + for (int i = 0; i < USE_BANDS; ++i) + { + y2[i] = 2 * (a[i] * x_x2 + c[i] * y1[i] - b[i] * y2[i]); + r += gain[i] * y2[i]; + gain[i] *= gf[i]; + } + + x[z2] = s; + h = z2; + + return r; + } +}; + +} /* namespace DSP */ + +#endif /* _DSP_EQ_H_ */ diff --git a/plugins/ladspa_effect/caps/dsp/FIR.h b/plugins/ladspa_effect/caps/dsp/FIR.h new file mode 100644 index 000000000..5c07e7cdf --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/FIR.h @@ -0,0 +1,255 @@ +/* + dsp/FIR.h + + Copyright 2003-4 Tim Goetze + + http://quitte.de/dsp/ + + finite impulse response filters, with options for up- and down-sampling. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _FIR_H_ +#define _FIR_H_ + +#include "util.h" + +namespace DSP { + +/* brute-force FIR filter with downsampling method. + * + * CAVEAT: constructing it from another FIR makes the filter use that very + * kernel data set. IOW, the other FIR must be valid throughout the lifetime + * of this instance. + */ +class FIR +{ + public: + /* kernel length, history length - 1 */ + int n, m; + + /* coefficients, history */ + d_sample * c, * x; + bool borrowed_kernel; + + /* history index */ + int h; + + FIR (int N) + { + c = 0; + init (N); + } + + FIR (FIR & fir) + { + c = fir.c; + init (fir.n); + } + + FIR (int n, d_sample * kernel) + { + c = 0; + init (n); + memcpy (c, kernel, n * sizeof (*c)); + } + + ~FIR() + { + if (!borrowed_kernel) + free (c); + free (x); + } + + void init (int N) + { + n = N; + + /* keeping history size a power of 2 makes it possible to wrap the + * history pointer by binary & instead of %, saving huge amounts of + * cpu cycles. + */ + m = next_power_of_2 (n); + + if (c) + borrowed_kernel = true; + else + borrowed_kernel = false, + c = (d_sample *) malloc (n * sizeof (d_sample)); + + x = (d_sample *) malloc (m * sizeof (d_sample)); + + m -= 1; + + reset(); + } + + void reset() + { + h = 0; + memset (x, 0, n * sizeof (d_sample)); + } + + /* TODO: write an SSE-enabled version */ + inline d_sample process (d_sample s) + { + x[h] = s; + + s *= c[0]; + + for (int Z = 1, z = h - 1; Z < n; --z, ++Z) + s += c[Z] * x[z & m]; + + h = (h + 1) & m; + + return s; + } + + /* Z is the time, in samples, since the last non-zero sample. + * OVER is the oversampling factor. just here for documentation, use + * a FIRUpsampler instead. + */ + template + inline d_sample upsample (d_sample s) + { + x[h] = s; + + s = 0; + + /* for the interpolation, iterate over the history in z ^ -OVER + * steps -- all the samples between are 0. + */ + for (int j = Z, z = h - Z; j < n; --z, j += OVER) + s += c[j] * x[z & m]; + + h = (h + 1) & m; + + return s; + } + + /* used in downsampling */ + inline void store (d_sample s) + { + x[h] = s; + h = (h + 1) & m; + } +}; + +/* close relative of FIR, but distinct enough to not justify inheritance. + * + * the difference to the FIR is the shorter history length. don't need + * to clutter the d-cache with interleaved 0s. + * + * however, an initial test shows this to be a fraction *slower* than a + * complete FIR for N = 32, OVER = 4. + */ +class FIRUpsampler +{ + public: + /* kernel length, history length - 1 */ + int n, m; + + /* oversampling ratio */ + int over; + + /* coefficients, history */ + d_sample * c, * x; + + /* history index */ + int h; + + FIRUpsampler (int _n, int _over) + { + c = x = 0; + init (_n, _over); + } + + FIRUpsampler (FIR & fir, int _over) + { + c = x = 0; + init (fir.n, _over); + memcpy (c, fir.c, n * sizeof (d_sample)); + } + + ~FIRUpsampler() + { + if (c) free (c); + if (x) free (x); + } + + void init (int _n, int _over) + { + /* oversampling ratio must be multiple of FIR kernel length */ + // assert (_n % _over == 0); + + n = _n; + over = _over; + + /* like FIR, keep the history buffer a power of 2; additionally, + * compress and don't store the 0 samples inbetween. + */ + m = next_power_of_2 ((n + over - 1) / over); + + c = (d_sample *) malloc (n * sizeof (d_sample)); + x = (d_sample *) malloc (m * sizeof (d_sample)); + + m -= 1; + + reset(); + } + + void reset() + { + h = 0; + memset (x, 0, (m + 1) * sizeof (d_sample)); + } + + /* upsample the given sample */ + inline d_sample upsample (d_sample s) + { + x[h] = s; + + s = 0; + + for (int Z = 0, z = h; Z < n; --z, Z += over) + s += c[Z] * x[z & m]; + + h = (h + 1) & m; + + return s; + } + + /* upsample a zero sample (interleaving), Z being the time, in samples, + * since the last non-0 sample. + */ + inline d_sample pad (int Z) + { + d_sample s = 0; + + for (int z = h - 1; Z < n; --z, Z += over) + s += c[Z] * x[z & m]; + + return s; + } + +}; + +}; /* namespace DSP */ + +#endif /* _FIR_H_ */ diff --git a/plugins/ladspa_effect/caps/dsp/FPTruncateMode.h b/plugins/ladspa_effect/caps/dsp/FPTruncateMode.h new file mode 100644 index 000000000..6e263b3ea --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/FPTruncateMode.h @@ -0,0 +1,56 @@ +/* Copyright 2001-4 tim goetze -- see 'COPYING'. */ + +/* class that sets the FP rounding mode to 'truncate' in the constructor + * and loads the previous FP conrol word in the destructor. + * + * i386 implementation only, on other architectures this is a no-op. + */ + +#ifndef _DSP_FP_TRUNCATE_MODE_H_ +#define _DSP_FP_TRUNCATE_MODE_H_ + +#ifdef __i386__ + + #define fstcw(i) \ + __asm__ __volatile__ ("fstcw %0" : "=m" (i)) + + #define fldcw(i) \ + __asm__ __volatile__ ("fldcw %0" : : "m" (i)) + + /* gcc chokes on __volatile__ sometimes. */ + #define fistp(f,i) \ + __asm__ ("fistpl %0" : "=m" (i) : "t" (f) : "st") + +#else /* ! __i386__ */ + + #define fstcw(i) + #define fldcw(i) + + #define fistp(f,i) \ + i = (int) f + +#endif + +namespace DSP { + +class FPTruncateMode +{ + public: + int cw0, cw1; /* fp control word */ + + FPTruncateMode() + { + fstcw (cw0); + cw1 = cw0 | 0xC00; + fldcw (cw1); + } + + ~FPTruncateMode() + { + fldcw (cw0); + } +}; + +} /* namespace DSP */ + +#endif /* _DSP_FP_TRUNCATE_MODE_H_ */ diff --git a/plugins/ladspa_effect/caps/dsp/Lorenz.h b/plugins/ladspa_effect/caps/dsp/Lorenz.h new file mode 100644 index 000000000..19e512631 --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/Lorenz.h @@ -0,0 +1,108 @@ +/* + dsp/Lorenz.h + + Copyright 2001-4 Tim Goetze + + http://quitte.de/dsp/ + + Lorenz fractal. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _DSP_LORENZ_H_ +#define _DSP_LORENZ_H_ + +namespace DSP { + +class Lorenz +{ + public: + double x[2], y[2], z[2]; + double h, a, b, c; + int I; + + public: + Lorenz() + { + h = 0.001; + a = 10.0; + b = 28.0; + c = 8.0 / 3.0; + } + + /* rate is normalized (0 .. 1) */ + void set_rate (double r) + { + h = max (.0000001, r * .015); + } + + void init (double _h = .001, double seed = .0) + { + I = 0; + + x[0] = .1 + seed - frandom() * .1; + y[0] = 0; + z[0] = 0; + + /* progress quickly to get a 'stable' system */ + h = .001; + + int n = 10000 + min ((int) (10000 * seed), 10000); + for (int i = 0; i < n; ++i) + step(); + + h = _h; + } + + d_sample get() + { + step(); + return .5 * get_y() + get_z(); + } + + void step() + { + int J = I ^ 1; + + x[J] = x[I] + h * a * (y[I] - x[I]); + y[J] = y[I] + h * (x[I] * (b - z[I]) - y[I]); + z[J] = z[I] + h * (x[I] * y[I] - c * z[I]); + + I = J; + } + + double get_x() + { + return .024 * (x[I] - .172); + } + + double get_y() + { + return .018 * (y[I] - .172); + } + + double get_z() + { + return .019 * (z[I] - 25.43); + } +}; + +} /* namespace DSP */ + +#endif /* _DSP_LORENZ_H_ */ diff --git a/plugins/ladspa_effect/caps/dsp/OnePole.h b/plugins/ladspa_effect/caps/dsp/OnePole.h new file mode 100644 index 000000000..198a491d6 --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/OnePole.h @@ -0,0 +1,113 @@ +/* + dsp/OnePole.h + + Copyright 2003-4 Tim Goetze + + http://quitte.de/dsp/ + + one pole (or one zero, or one zero, one pole) hi- and lo-pass filters. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _ONE_POLE_H_ +#define _ONE_POLE_H_ + +namespace DSP { + +class OnePoleLP +{ + public: + d_sample a0, b1, y1; + + OnePoleLP (double d = 1.) + { + set (d); + y1 = 0.; + } + + inline void reset() + { + y1 = 0.; + } + + inline void set_f (double fc) + { + set (exp (-2 * M_PI * fc)); + } + + inline void set (double d) + { + a0 = (d_sample) d; + b1 = (d_sample) 1. - d; + } + + inline d_sample process (d_sample x) + { + return y1 = a0 * x + b1 * y1; + } + + inline void decay (double d) + { + a0 *= d; + b1 = 1. - a0; + } +}; + +class OnePoleHP +{ + public: + d_sample a0, a1, b1, x1, y1; + double fc; + + OnePoleHP (double d = 1.) + { + fc = 0; + set (d); + x1 = y1 = 0.; + } + + void set_f (double f) + { + fc = f; + set (exp (-2 * M_PI * fc)); + } + + inline void set (double d) + { + a0 = (d_sample) ((1. + d) / 2.); + a1 = (d_sample) ((1. + d) / -2.); + b1 = d; + } + + inline d_sample process (d_sample x) + { + y1 = a0 * x + a1 * x1 + b1 * y1; + x1 = x; + return y1; + } + + void reset() + { + x1 = y1 = 0; + } +}; + +} /* namespace DSP */ + +#endif /* _ONE_POLE_H_ */ diff --git a/plugins/ladspa_effect/caps/dsp/RBJ.h b/plugins/ladspa_effect/caps/dsp/RBJ.h new file mode 100644 index 000000000..229b7f092 --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/RBJ.h @@ -0,0 +1,240 @@ +/* + dsp/RBJ.h + + Copyright 2004 Tim Goetze , 1998 Robert Bristow-Johnson + + biquad prototypes according to the eq cookbook. easy-to-use, nice, + predictable filters. thanks rbj! +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _DSP_RBJ_H_ +#define _DSP_RBJ_H_ + +namespace DSP { +namespace RBJ { + +/* base class, prepares common parameters */ +class RBJ +{ + public: + double alpha, sin, cos; + double a[3], b[3]; + + public: + RBJ (double f, double Q) + { + double w = 2 * M_PI * f; + + sin = ::sin (w); + cos = ::cos (w); + + alpha = sin / (2 * Q); + } + + /* templated so we can set double and float coefficients from the same + * piece of code */ + template + void make_direct_I (T * ca, T * cb) + { + double a0i = 1 / a[0]; + + ca[0] = b[0] * a0i; + ca[1] = b[1] * a0i; + ca[2] = b[2] * a0i; + + /* our bi-quad implementation /adds/ b[i] * y[i] so we need to + * toggle the sign for the b[] coefficients. + */ + cb[0] = 0; + cb[1] = -a[1] * a0i; + cb[2] = -a[2] * a0i; + } +}; + +/* now the individual prototypes. + * set-up is not optimal, i.e. does a lot of operations twice for readability. + */ +class LP +: public RBJ +{ + public: + template + LP (double f, double Q, T * ca, T * cb) + : RBJ (f, Q) + { + b[0] = (1 - cos) * .5; + b[1] = (1 - cos); + b[2] = (1 - cos) * .5; + + a[0] = 1 + alpha; + a[1] = -2 * cos; + a[2] = 1 - alpha; + + make_direct_I (ca, cb); + } +}; + +class BP +: public RBJ +{ + public: + template + BP (double f, double Q, T * ca, T * cb) + : RBJ (f, Q) + { + b[0] = Q * alpha; + b[1] = 0; + b[2] = -Q * alpha; + + a[0] = 1 + alpha; + a[1] = -2 * cos; + a[2] = 1 - alpha; + + make_direct_I (ca, cb); + } +}; + +class HP +: public RBJ +{ + public: + template + HP (double f, double Q, T * ca, T * cb) + : RBJ (f, Q) + { + b[0] = (1 + cos) * .5; + b[1] = -(1 + cos); + b[2] = (1 + cos) * .5; + + a[0] = 1 + alpha; + a[1] = -2 * cos; + a[2] = 1 - alpha; + + make_direct_I (ca, cb); + } +}; + +class Notch +: public RBJ +{ + public: + template + Notch (double f, double Q, T * ca, T * cb) + : RBJ (f, Q) + { + b[0] = 1; + b[1] = -2 * cos; + b[2] = 1; + + a[0] = 1 + alpha; + a[1] = -2 * cos; + a[2] = 1 - alpha; + + make_direct_I (ca, cb); + } +}; + +/* shelving and peaking dept. */ + +class PeakShelve +: public RBJ +{ + public: + double A, beta; + + public: + PeakShelve (double f, double Q, double dB) + : RBJ (f, Q) + { + A = pow (10, dB * .025); + double S = Q; /* slope */ + beta = sqrt ((A * A + 1) / S - (A - 1) * (A - 1)); + } +}; + +class LoShelve +: public PeakShelve +{ + public: + template + LoShelve (double f, double Q, double dB, T * ca, T * cb) + : PeakShelve (f, Q, dB) + { + double Ap1 = A + 1, Am1 = A - 1; + double beta_sin = beta * sin; + + b[0] = A * (Ap1 - Am1 * cos + beta_sin); + b[1] = 2 * A * (Am1 - Ap1 * cos); + b[2] = A * (Ap1 - Am1 * cos - beta_sin); + + a[0] = Ap1 + Am1 * cos + beta_sin; + a[1] = -2 * (Am1 + Ap1 * cos); + a[2] = Ap1 + Am1 * cos - beta_sin; + + make_direct_I (ca, cb); + } +}; + +class PeakingEQ +: public PeakShelve +{ + public: + template + PeakingEQ (double f, double Q, double dB, T * ca, T * cb) + : PeakShelve (f, Q, dB) + { + b[0] = 1 + alpha * A; + b[1] = -2 * cos; + b[2] = 1 - alpha * A; + + a[0] = 1 + alpha / A; + a[1] = -2 * cos; + a[2] = 1 - alpha / A; + + make_direct_I (ca, cb); + } +}; + +class HiShelve +: public PeakShelve +{ + public: + template + HiShelve (double f, double Q, double dB, T * ca, T * cb) + : PeakShelve (f, Q, dB) + { + double Ap1 = A + 1, Am1 = A - 1; + double beta_sin = beta * sin; + + b[0] = A * (Ap1 + Am1 * cos + beta_sin); + b[1] = -2 * A * (Am1 + Ap1 * cos); + b[2] = A * (Ap1 + Am1 * cos - beta_sin); + + a[0] = Ap1 - Am1 * cos + beta_sin; + a[1] = 2 * (Am1 - Ap1 * cos); + a[2] = Ap1 - Am1 * cos - beta_sin; + + make_direct_I (ca, cb); + } +}; + +} /* ~namespace RBJ */ +} /* ~namespace DSP */ + +#endif /* _DSP_RBJ_H_ */ diff --git a/plugins/ladspa_effect/caps/dsp/RMS.h b/plugins/ladspa_effect/caps/dsp/RMS.h new file mode 100644 index 000000000..89e7fd695 --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/RMS.h @@ -0,0 +1,65 @@ +/* + dsp/RMS.h + + Copyright 2004 Tim Goetze + + http://quitte.de/dsp/ + + root-mean-square accumulator. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _DSP_RMS_H_ +#define _DSP_RMS_H_ + +namespace DSP { + +class RMS +{ + public: + d_sample buffer[64]; + int write; + double sum; + + RMS() + { + write = 0; + reset(); + } + + void reset() + { + sum = 0.; + memset (buffer, 0, sizeof (buffer)); + } + + /* needs the squared sample value to be passed in */ + d_sample process (d_sample x) + { + sum -= buffer[write]; + sum += x; + write = (write + 1) & 63; + + return sqrt (sum / 64); + } +}; + +} /* namespace DSP */ + +#endif /* _DSP_RMS_H_ */ diff --git a/plugins/ladspa_effect/caps/dsp/Roessler.h b/plugins/ladspa_effect/caps/dsp/Roessler.h new file mode 100644 index 000000000..6da5cfe78 --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/Roessler.h @@ -0,0 +1,100 @@ +/* + dsp/Roessler.h + + Copyright 2003-4 Tim Goetze + + http://quitte.de/dsp/ + + Roessler fractal. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _DSP_ROESSLER_H_ +#define _DSP_ROESSLER_H_ + +namespace DSP { + +class Roessler +{ + public: + double x[2], y[2], z[2]; + double h, a, b, c; + int I; + + public: + Roessler() + { + h = 0.001; + a = .2; + b = .2; + c = 5.7; + } + + /* rate is normalized (0 .. 1) */ + void set_rate (double r) + { + h = max (.000001, r * .096); + } + + void init (double _h = .001, double seed = .0) + { + h = _h; + + I = 0; + + x[0] = .0001 + .0001 * seed; + y[0] = .0001; + z[0] = .0001; + + for (int i = 0; i < 5000; ++i) + get(); + } + + d_sample get() + { + int J = I ^ 1; + + x[J] = x[I] + h * (- y[I] - z[I]); + y[J] = y[I] + h * (x[I] + a * y[I]); + z[J] = z[I] + h * (b + z[I] * (x[I] - c)); + + I = J; + + return x[I] * .01725 + z[I] * .015; + } + + double get_x() + { + return x[I]; + } + + double get_y() + { + return y[I]; + } + + double get_z() + { + return z[I]; + } +}; + +} /* namespace DSP */ + +#endif /* _DSP_ROESSLER_H_ */ diff --git a/plugins/ladspa_effect/caps/dsp/SVF.h b/plugins/ladspa_effect/caps/dsp/SVF.h new file mode 100644 index 000000000..56327a731 --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/SVF.h @@ -0,0 +1,190 @@ +/* + dsp/SVF.h + + Copyright 2002-4 Tim Goetze + + http://quitte.de/dsp/ + + ladder filter in Chamberlin topology. supports largely independent + f and Q adjustments and sweeps. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ +/* + inspired by this music-dsp entry: + + State Variable Filter (Double Sampled, Stable) + Type : 2 Pole Low, High, Band, Notch and Peaking + References :Posted by Andrew Simper + + Notes : + Thanks to Laurent de Soras for the stability limit + and Steffan Diedrichsen for the correct notch output. + + Code : + input = input buffer; + output = output buffer; + fs = sampling frequency; + fc = cutoff frequency normally something like: + 440.0*pow(2.0, (midi_note - 69.0)/12.0); + res = resonance 0 to 1; + drive = internal distortion 0 to 0.1 + freq = MIN(0.25, 2.0*sin(PI*fc/(fs*2))); // the fs*2 is because it's double sampled + damp = MIN(2.0*(1.0 - pow(res, 0.25)), MIN(2.0, 2.0/freq - freq*0.5)); + notch = notch output + low = low pass output + high = high pass output + band = band pass output + peak = peaking output = low - high + -- + double sampled svf loop: + for (i=0; i +class SVF +{ + protected: + /* loop parameters */ + d_sample f, q, qnorm; + + /* outputs (peak and notch left out) */ + d_sample lo, band, hi; + d_sample * out; + + public: + /* the type of filtering to do. */ + enum { + Low = 0, + Band = 1, + High = 2 + }; + + SVF() + { + set_out (Low); + set_f_Q (.1, .1); + } + + void reset() + { + hi = band = lo = 0; + } + + void set_f_Q (double fc, double Q) + { + /* this is a very tight limit */ + f = min (.25, 2 * sin (M_PI * fc / OVERSAMPLE)); + + q = 2 * cos (pow (Q, .1) * M_PI * .5); + q = min (q, min (2., 2 / f - f * .5)); + qnorm = sqrt (fabs (q) / 2. + .001); + } + + void set_out (int o) + { + if (o == Low) + out = &lo; + else if (o == Band) + out = &band; + else + out = &hi; + } + + void one_cycle (d_sample * s, int frames) + { + for (int i = 0; i < frames; ++i) + s[i] = process (s[i]); + } + + d_sample process (d_sample x) + { + x = qnorm * x; + + for (int pass = 0; pass < OVERSAMPLE; ++pass) + { + hi = x - lo - q * band; + band += f * hi; + lo += f * band; + + /* zero-padding, not 0th order holding. */ + x = 0; + } + + /* peak and notch outputs don't belong in the loop, put them + * here (best in a template) if needed. */ + + return *out; + } +}; + +template +class StackedSVF +{ + public: + SVF svf [STACKED]; + + void reset() + { + for (int i = 0; i < STACKED; ++i) + svf[i].reset(); + } + + void set_out (int out) + { + for (int i = 0; i < STACKED; ++i) + svf[i].set_out (out); + } + + void set_f_Q (double f, double Q) + { + for (int i = 0; i < STACKED; ++i) + svf[i].set_f_Q (f, Q); + } + + d_sample process (d_sample x) + { + for (int i = 0; i < STACKED; ++i) + x = svf[i].process (x); + + return x; + } +}; + +} /* namespace DSP */ + +#endif /* _DSP_SVF_H_ */ diff --git a/plugins/ladspa_effect/caps/dsp/Sine.h b/plugins/ladspa_effect/caps/dsp/Sine.h new file mode 100644 index 000000000..fd3336ab8 --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/Sine.h @@ -0,0 +1,95 @@ +/* + dsp/Sine.h + + Copyright 2003-4 Tim Goetze + + http://quitte.de/dsp/ + + direct form I recursive sin() generator. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _DSP_SINE_H_ +#define _DSP_SINE_H_ + +namespace DSP { + +class Sine +{ + protected: + int z; + d_float y[2]; + d_float b; + + public: + Sine() + { + b = 0; + y[0] = y[1] = 0; + z = 0; + } + + Sine (double f, double fs, double phase) + { + set_f (f, fs, phase); + } + + Sine (double omega, double phase = 0.) + { + set_f (omega, phase); + } + + inline void set_f (double f, double fs, double phase) + { + set_f (f * M_PI / fs, phase); + } + + inline void set_f (double w, double phase) + { + b = 2 * cos (w); + y[0] = sin (phase - w); + y[1] = sin (phase - w * 2); + z = 0; + } + + /* advance and return 1 sample */ + inline double get() + { + register double s = b * y[z]; + z ^= 1; + s -= y[z]; + return y[z] = s; + } + + double get_phase() + { + double x0 = y[z], x1 = b * y[z] - y[z^1]; + double phi = asin (x0); + + /* slope is falling, we're into the 2nd half. */ + if (x1 < x0) + return M_PI - phi; + + return phi; + } +}; + +} /* namespace DSP */ + +#endif /* _DSP_SINE_H_ */ diff --git a/plugins/ladspa_effect/caps/dsp/TwelveAX7.h b/plugins/ladspa_effect/caps/dsp/TwelveAX7.h new file mode 100644 index 000000000..cfdfccb93 --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/TwelveAX7.h @@ -0,0 +1,240 @@ +/* + dsp/TwelveAX7.h + + Copyright 2003-6 Tim Goetze + + http://quitte.de/dsp/ + + collection of approximations of the 12AX7 voltage transfer function +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _DSP_TWELVE_AX_7_H_ +#define _DSP_TWELVE_AX_7_H_ + +namespace DSP { + +#include "r12ax7.h" + +/* this is the original tube model from caps < 0.1.9 or preamp.so, put + * back into use in 0.1.11; the replacement (below) is too strong in + * odd-order harmonics at the expense of even-order. it has to sound + * good: it took a good deal of fiddling to get the coefficients right. + */ +class TwelveAX7 +{ + public: + d_sample b, c, d; + + struct { + d_sample threshold, value; + } clip[2]; + + /* amplitude at which clipping starts */ + d_sample scale; + + public: + TwelveAX7() + { + /* transfer polynomial parameters */ + b = -0.79618574210627535; + c = -0.21108555430962023; + d = +0.38944033523200522; + + set_clips(); + + scale = min (fabs (clip[0].threshold), fabs (clip[1].threshold)); + } + + inline d_sample transfer (d_sample a) + { + return a * (b + a * (c + a * d)); + } + + inline d_sample transfer_clip (d_sample a) + { + if (a <= clip[0].threshold) + return clip[0].value; + if (a >= clip[1].threshold) + return clip[1].value; + return transfer (a); + } + + inline double get_root (double sign) + { + /* only once, no need to optimize */ + return + (-2*c + sign * sqrt ((2*c) * (2*c) - 4 * (3 * d * b))) / (6 * d); + } + + inline void set_clips() + { + /* find 0 crossings in the derived, this is where we'll clip */ + double x0 = get_root (-1); + double x1 = get_root (+1); + + clip[0].value = transfer (x0); + clip[1].value = transfer (x1); + + clip[0].threshold = x0; + clip[1].threshold = x1; + } +}; + +/* reworked model. higher order (than 3) polynomials make little sense; + * sonically the difference is minim, and the cycle count increases + * dramatically. + */ +class TwelveAX7_2 +{ + public: + d_sample b, c, d; + + struct { + d_sample threshold, value; + } clip[2]; + + d_sample scale; + + public: + TwelveAX7_2() + { + /* transfer polynomial parameters, made with gnuplot::fit() */ + b = -1.08150605597883; + c = -0.262760944760536; + d = 0.445770802765903; + + static double x[2] = {-.52, +.98}; + + for (int i = 0; i < 2; ++i) + clip[i].threshold = x[i], + clip[i].value = transfer (x[i]); + + scale = min (fabs (clip[0].threshold), fabs (clip[1].threshold)); + } + + inline d_sample transfer (d_sample a) + { + return a * (b + a * (c + a * d)); + } + + inline d_sample transfer_clip (d_sample a) + { + if (a <= clip[0].threshold) + return clip[0].value; + if (a >= clip[1].threshold) + return clip[1].value; + return transfer (a); + } +}; + +/* third model relies on linear interpolation based on the transfer function + * as calculated from a spice model. + */ +class TwelveAX7_3 +{ + public: + d_sample b, c, d; + + struct { + d_sample threshold, value; + } clip[2]; + + d_sample scale; + + public: + TwelveAX7_3() + { + static double x[2] = + { + /* adjust for a slightly earlier clipping threshold in the + * lower lobe */ + -0.96 * (double) r12AX7::Zero / + ((double) r12AX7::Samples - (double) r12AX7::Zero), + 1 + }; + + for (int i = 0; i < 2; ++i) + clip[i].threshold = x[i], + clip[i].value = transfer (x[i]); + + scale = min (fabs (clip[0].threshold), fabs (clip[1].threshold)); + } + + inline d_sample transfer (d_sample a) + { + a = r12AX7::Zero + a * (r12AX7::Samples - r12AX7::Zero); + if (a <= 0) + return r12AX7::v2v[0]; + if (a >= r12AX7::Samples - 1) + return r12AX7::v2v [r12AX7::Samples - 1]; + + /* linear interpolation from sampled function */ + register int i = lrintf (a); + a -= i; + + return (r12AX7::v2v [i] * (1.f - a) + r12AX7::v2v [i + 1] * a); + } + + inline d_sample transfer_clip (d_sample a) + { + return transfer (a); + } +}; + +/* experimental */ +class NoTwelveAX7 +{ + public: + struct { + d_sample threshold, value; + } clip[2]; + + /* amplitude at which clipping starts */ + d_sample scale; + + public: + NoTwelveAX7() + { + static double x[2] = { -1, 1 }; + + for (int i = 0; i < 2; ++i) + clip[i].threshold = x[i], + clip[i].value = transfer (x[i]); + + scale = min (fabs (clip[0].threshold), fabs (clip[1].threshold)); + } + + inline d_sample transfer (d_sample a) + { + return 0.5469181606780 * (pow (1 - a, 1.5) - 1); + } + + inline d_sample transfer_clip (d_sample a) + { + if (a <= clip[0].threshold) + return clip[0].value; + if (a >= clip[1].threshold) + return clip[1].value; + return transfer (a); + } +}; + +} /* namespace DSP */ + +#endif /* _DSP_TWELVE_AX_7_H_ */ diff --git a/plugins/ladspa_effect/caps/dsp/VCO.h b/plugins/ladspa_effect/caps/dsp/VCO.h new file mode 100644 index 000000000..6f797dea7 --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/VCO.h @@ -0,0 +1,224 @@ +/* + dsp/VCO.h + + Copyright 2004 Tim Goetze + + oscillators for triangle/sawtooth/square waves, and a combination + for detuning and hard sync. + + NB: these oscillators are *not* bandlimited. oversample if needed. + + */ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + + +#ifndef _DSP_VCO_H_ +#define _DSP_VCO_H_ + +namespace DSP { + +/* variable triangle to sawtooth generator. you can use two of these to + * generate a square, but we prefer the integrated solution below. + */ +class TriSaw +{ + public: + /* doubles for maximum stability */ + double phase, inc; + + double tri, tri1, tri2; + + public: + TriSaw() + { + phase = 0; + tri = .5; + } + + inline void set_f (double f, double fs) + { + set_inc (f / fs); + } + + inline void set_inc (double i) + { + inc = i; + } + + /* 0: triangle, 1: saw */ + inline void set_saw (double t) + { + tri = .5 + .5 * t; + tri1 = 2. / tri; + tri2 = 2. / (1 - tri); + } + + /* advance and return 1 sample. + * many conditionals, but quicker than a solution based on fmod() + */ + inline float get() + { + phase += inc; + + /* the good thing is that tri is always > .5, which implies + * that this first conditional is true more often than not. */ + if (phase <= tri) + return -1 + phase * tri1; + if (phase < 1) + return 1 - (phase - tri) * tri2; + + phase -= 1; + return -1 + phase * tri1; + } +}; + +/* variable triangle to sawtooth to square generator */ +class TriSawSquare +{ + public: + /* doubles for maximum stability, using floats here increases + * cycle need on my athlon */ + double phase, inc; + double * sync; + + float sync_phase; + + /* using doubles here increases cycle need significantly */ + float square_i; + float tri, tri1, tri2; + float st1, st2; + + public: + TriSawSquare() + { + reset(); + } + + void reset() + { + phase = 0; + sync = &phase; + sync_phase = 0; + set_saw_square (.5, .5); + } + + inline void set_f (double f, double fs) + { + set_inc (f / fs); + } + + inline void set_inc (double i) + { + inc = i; + } + + inline void set_sync (TriSawSquare & tss, float p) + { + sync = &tss.phase; + sync_phase = p; + } + + /* t = 0: tri - 1: saw, + * s = 0: tri/saw - 1: square + */ + inline void set_saw_square (float t, float s) + { + tri = .5 + .5 * t; + square_i = 1 - s; + + float si2 = 2 * square_i; + float one_m_t = 1 - tri; + + tri1 = si2 / tri; + tri2 = si2 / one_m_t; + + st1 = s * one_m_t; + st2 = s * tri; + } + + /* advance and return 1 sample. a pity we need so many conditionals, + * seeing that this is run at 352 k. + */ + inline float get() + { + phase += inc; + + if (phase <= tri) + first_half: + /* raw version: + return (1 - square) * (-1 + phase * 2 / tri) - square * (1 - tri); + */ + return -square_i + phase * tri1 - st1; + + if (phase < 1) + /* raw version: + return (1 - square) * (1 - (phase - tri) * 2 / (1 - tri)) + square * tri; + */ + return square_i - (phase - tri) * tri2 + st2; + + phase -= 1; + *sync = phase + sync_phase; + goto first_half; + } +}; + +class VCO2 +{ + public: + TriSawSquare vco[2]; + float blend, i_blend; + + public: + VCO2() + { + set_blend (.5); + } + + void reset() + { + set_blend (.5); + vco[0].reset(); + vco[1].reset(); + } + + void set_f (double f, double fs, double detune) + { + vco[0].set_f (f, fs); + vco[1].set_f (f * pow (2, detune / 12.), fs); + } + + inline void set_blend (float b) + { + blend = b; + i_blend = 1 - fabs (b); + } + + inline void set_sync (float sync) + { + vco[0].set_sync (sync ? vco[1] : vco[0], sync); + } + + inline float get() + { + return vco[0].get() * blend + vco[1].get() * i_blend; + } +}; + +} /* namespace DSP */ + +#endif /* _DSP_VCO_H_ */ diff --git a/plugins/ladspa_effect/caps/dsp/White.h b/plugins/ladspa_effect/caps/dsp/White.h new file mode 100644 index 000000000..e3ff17066 --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/White.h @@ -0,0 +1,82 @@ +/* + dsp/White.h + + Copyright 2004 Tim Goetze + + simple white noise generator, based on Jon Dattorro's 3/2002 JAES + paper. quite an elegant design; consumes next to no CPU on a processor + providing a decent binary shift operator. most of all, no random() calls. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _DSP_WHITE_H_ +#define _DSP_WHITE_H_ + +namespace DSP { + +/* after initializing, call either get() or get_31() to get a sample, don't + * mix them. (get_31 output goes out of range if called after get()). + */ +class White +{ + public: + uint32 b; + + White() + { + b = 0x1fff7777; + } + + void init (float f) + { + b = (uint32) (f * (float) 0x1fff7777); + } + + d_sample abs() + { + return fabs (get()); + } + + /* 32-bit version */ + d_sample get() + { +# define BIT(y) ((b << (31 - y)) & 0x80000000) + + b = ((BIT (28) ^ BIT (27) ^ BIT (1) ^ BIT (0))) | (b >> 1); + return (4.6566128730773926e-10 * (d_sample) b) - 1; + +# undef BIT + } + + /* 31-bit version, at least 6 instructions less / sample. probably only + * pays off on a processor not providing a decent binary shift. */ + d_sample get_31() + { +# define BIT(y) ((b << (30 - y)) & 0x40000000) + + b = ((BIT (3) ^ BIT (0))) | (b >> 1); + return (9.3132257461547852e-10 * (d_sample) b) - 1; + +# undef BIT + } +}; + +} /* namespace DSP */ + +#endif /* _DSP_WHITE_H_ */ diff --git a/plugins/ladspa_effect/caps/dsp/r12ax7.h b/plugins/ladspa_effect/caps/dsp/r12ax7.h new file mode 100644 index 000000000..2398f9a62 --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/r12ax7.h @@ -0,0 +1,459 @@ +/* + dsp/r12ax7.h + + Copyright 2003-5 Tim Goetze + + http://quitte.de/dsp/ + + 12AX7 voltage transfer function, sampled from a spice simulation + running a simple preamp net with a 12ax7 model graciously provided + by duncanamps.com . + + */ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _DSP_R_12_AX_7_H_ +#define _DSP_R_12_AX_7_H_ + +namespace r12AX7 { + +enum { Zero = 566, Samples = 1668, }; + +static float v2v[] = { + 0.277279436588, 0.277249097824, 0.277187168598, 0.277105689049, + 0.277008116245, 0.276897609234, 0.276775300503, 0.276642978191, + 0.276501119137, 0.276351094246, 0.276193082333, 0.276027917862, + 0.275855839252, 0.275678634644, 0.275495171547, 0.275305449963, + 0.275109887123, 0.274909138680, 0.274703323841, 0.274492740631, + 0.274277567863, 0.274058103561, 0.273834228516, 0.273606359959, + 0.273374497890, 0.273138821125, 0.272899389267, 0.272656440735, + 0.272409796715, 0.272159934044, 0.271906614304, 0.271650075912, + 0.271390438080, 0.271127700806, 0.270861923695, 0.270593225956, + 0.270321667194, 0.270047247410, 0.269770205021, 0.269490361214, + 0.269207894802, 0.268922865391, 0.268635272980, 0.268345177174, + 0.268052697182, 0.267757713795, 0.267460465431, 0.267160952091, + 0.266858994961, 0.266555011272, 0.266248643398, 0.265940189362, + 0.265629589558, 0.265316963196, 0.265002191067, 0.264685392380, + 0.264366567135, 0.264045774937, 0.263723075390, 0.263398468494, + 0.263071894646, 0.262743532658, 0.262413203716, 0.262081146240, + 0.261747241020, 0.261411607265, 0.261074185371, 0.260735154152, + 0.260394215584, 0.260051786900, 0.259707629681, 0.259361803532, + 0.259014308453, 0.258665204048, 0.258314549923, 0.257962286472, + 0.257608532906, 0.257253229618, 0.256896317005, 0.256537973881, + 0.256178140640, 0.255816757679, 0.255454003811, 0.255089759827, + 0.254724085331, 0.254356980324, 0.253988444805, 0.253618597984, + 0.253247320652, 0.252874732018, 0.252500772476, 0.252125442028, + 0.251748800278, 0.251370847225, 0.250991582870, 0.250611066818, + 0.250229299068, 0.249846160412, 0.249461889267, 0.249076247215, + 0.248689472675, 0.248301327229, 0.247912168503, 0.247521698475, + 0.247129976749, 0.246737182140, 0.246343135834, 0.245947897434, + 0.245551586151, 0.245154082775, 0.244755446911, 0.244355678558, + 0.243954837322, 0.243552863598, 0.243149697781, 0.242745578289, + 0.242340266705, 0.241933882236, 0.241526484489, 0.241117894650, + 0.240708351135, 0.240297734737, 0.239886105061, 0.239473402500, + 0.239059746265, 0.238644957542, 0.238229274750, 0.237812399864, + 0.237394690514, 0.236975908279, 0.236556172371, 0.236135542393, + 0.235713779926, 0.235291123390, 0.234867513180, 0.234442949295, + 0.234017431736, 0.233590960503, 0.233163535595, 0.232735216618, + 0.232305943966, 0.231875777245, 0.231444656849, 0.231012642384, + 0.230579853058, 0.230145990849, 0.229711294174, 0.229275703430, + 0.228839278221, 0.228401958942, 0.227963745594, 0.227524638176, + 0.227084696293, 0.226643919945, 0.226202249527, 0.225759744644, + 0.225316464901, 0.224872291088, 0.224427282810, 0.223981380463, + 0.223534762859, 0.223087251186, 0.222638964653, 0.222189962864, + 0.221740007401, 0.221289336681, 0.220837771893, 0.220385491848, + 0.219932436943, 0.219478607178, 0.219023883343, 0.218568444252, + 0.218112349510, 0.217655301094, 0.217197597027, 0.216739118099, + 0.216279804707, 0.215819895267, 0.215359091759, 0.214897632599, + 0.214435338974, 0.213972389698, 0.213508665562, 0.213044166565, + 0.212579071522, 0.212113201618, 0.211646556854, 0.211179137230, + 0.210711181164, 0.210242390633, 0.209772944450, 0.209302783012, + 0.208831906319, 0.208360373974, 0.207888066769, 0.207415163517, + 0.206941485405, 0.206467092037, 0.205992162228, 0.205516517162, + 0.205040097237, 0.204563021660, 0.204085409641, 0.203607022762, + 0.203128039837, 0.202648282051, 0.202167987823, 0.201686978340, + 0.201205253601, 0.200723052025, 0.200240015984, 0.199756443501, + 0.199272215366, 0.198787331581, 0.198301851749, 0.197815716267, + 0.197328925133, 0.196841537952, 0.196353554726, 0.195864915848, + 0.195375621319, 0.194885730743, 0.194395244122, 0.193904161453, + 0.193412423134, 0.192920088768, 0.192427158356, 0.191933691502, + 0.191439509392, 0.190944850445, 0.190449535847, 0.189953625202, + 0.189457118511, 0.188960015774, 0.188462376595, 0.187964081764, + 0.187465250492, 0.186965823174, 0.186465859413, 0.185965299606, + 0.185464143753, 0.184962451458, 0.184460222721, 0.183957397938, + 0.183453977108, 0.182949960232, 0.182445406914, 0.181940436363, + 0.181434750557, 0.180928587914, 0.180421829224, 0.179914534092, + 0.179406702518, 0.178898334503, 0.178389430046, 0.177879989147, + 0.177369952202, 0.176859438419, 0.176348328590, 0.175836741924, + 0.175324618816, 0.174811959267, 0.174298763275, 0.173785090446, + 0.173270881176, 0.172756135464, 0.172240853310, 0.171725094318, + 0.171208739281, 0.170691967010, 0.170174598694, 0.169656693935, + 0.169138371944, 0.168619513512, 0.168100118637, 0.167580246925, + 0.167059898376, 0.166539072990, 0.166017711163, 0.165495812893, + 0.164973437786, 0.164450585842, 0.163927257061, 0.163403451443, + 0.162879049778, 0.162354290485, 0.161828994751, 0.161303222179, + 0.160776913166, 0.160250246525, 0.159723043442, 0.159195303917, + 0.158667147160, 0.158138513565, 0.157609403133, 0.157079756260, + 0.156549692154, 0.156019270420, 0.155488193035, 0.154956758022, + 0.154424905777, 0.153892517090, 0.153359651566, 0.152826309204, + 0.152292609215, 0.151758432388, 0.151223719120, 0.150688648224, + 0.150153040886, 0.149617075920, 0.149080574512, 0.148543596268, + 0.148006320000, 0.147468507290, 0.146930217743, 0.146391570568, + 0.145852446556, 0.145312905312, 0.144772827625, 0.144232392311, + 0.143691599369, 0.143150269985, 0.142608463764, 0.142066359520, + 0.141523718834, 0.140980720520, 0.140437245369, 0.139893352985, + 0.139349043369, 0.138804316521, 0.138259172440, 0.137713611126, + 0.137167632580, 0.136621177197, 0.136074364185, 0.135527133942, + 0.134979486465, 0.134431421757, 0.133882939816, 0.133334040642, + 0.132784724236, 0.132234990597, 0.131684958935, 0.131134390831, + 0.130583465099, 0.130032181740, 0.129480421543, 0.128928303719, + 0.128375828266, 0.127822816372, 0.127269506454, 0.126715779305, + 0.126161694527, 0.125607132912, 0.125052213669, 0.124496996403, + 0.123941242695, 0.123385190964, 0.122828722000, 0.122271895409, + 0.121714651585, 0.121156990528, 0.120598971844, 0.120040595531, + 0.119481861591, 0.118922710419, 0.118363082409, 0.117803215981, + 0.117242932320, 0.116682231426, 0.116121232510, 0.115559816360, + 0.114997982979, 0.114435851574, 0.113873243332, 0.113310396671, + 0.112747073174, 0.112183392048, 0.111619412899, 0.111055016518, + 0.110490322113, 0.109925150871, 0.109359681606, 0.108793854713, + 0.108227670193, 0.107661128044, 0.107094168663, 0.106526911259, + 0.105959236622, 0.105391263962, 0.104822933674, 0.104254245758, + 0.103685200214, 0.103115737438, 0.102545976639, 0.101975917816, + 0.101405382156, 0.100834667683, 0.100263476372, 0.099691987038, + 0.099120140076, 0.098547875881, 0.097975373268, 0.097402453423, + 0.096829295158, 0.096255660057, 0.095681726933, 0.095107495785, + 0.094532907009, 0.093957960606, 0.093382716179, 0.092807114124, + 0.092231214046, 0.091654956341, 0.091078281403, 0.090501308441, + 0.089924037457, 0.089346468449, 0.088768541813, 0.088190257549, + 0.087611675262, 0.087032735348, 0.086453497410, 0.085873961449, + 0.085294008255, 0.084713757038, 0.084133267403, 0.083552420139, + 0.082971215248, 0.082389712334, 0.081807851791, 0.081225633621, + 0.080643236637, 0.080060362816, 0.079477250576, 0.078893840313, + 0.078310132027, 0.077726066113, 0.077141702175, 0.076556980610, + 0.075971961021, 0.075386703014, 0.074801087379, 0.074215173721, + 0.073628902435, 0.073042333126, 0.072455525398, 0.071868300438, + 0.071280896664, 0.070693075657, 0.070105016232, 0.069516658783, + 0.068927943707, 0.068338930607, 0.067749619484, 0.067160010338, + 0.066570162773, 0.065979957581, 0.065389454365, 0.064798653126, + 0.064207553864, 0.063616216183, 0.063024461269, 0.062432527542, + 0.061840236187, 0.061247646809, 0.060654759407, 0.060061693192, + 0.059468209743, 0.058874547482, 0.058280467987, 0.057686150074, + 0.057091534138, 0.056496620178, 0.055901467800, 0.055306017399, + 0.054710209370, 0.054114162922, 0.053517878056, 0.052921295166, + 0.052324414253, 0.051727175713, 0.051129758358, 0.050532042980, + 0.049934029579, 0.049335718155, 0.048737108707, 0.048138201237, + 0.047539114952, 0.046939730644, 0.046340048313, 0.045740067959, + 0.045139789581, 0.044539213181, 0.043938457966, 0.043337404728, + 0.042736113071, 0.042134463787, 0.041532635689, 0.040930390358, + 0.040328025818, 0.039725303650, 0.039122343063, 0.038519084454, + 0.037915587425, 0.037311792374, 0.036707758904, 0.036103487015, + 0.035498917103, 0.034894108772, 0.034289002419, 0.033683657646, + 0.033078014851, 0.032472133636, 0.031866014004, 0.031259536743, + 0.030652880669, 0.030045926571, 0.029438734055, 0.028831362724, + 0.028223633766, 0.027615666389, 0.027007460594, 0.026398956776, + 0.025790274143, 0.025181293488, 0.024572074413, 0.023962497711, + 0.023352801800, 0.022742748260, 0.022132515907, 0.021522045135, + 0.020911276340, 0.020300269127, 0.019689023495, 0.019077539444, + 0.018465697765, 0.017853736877, 0.017241477966, 0.016628980637, + 0.016016244888, 0.015403211117, 0.014789998531, 0.014176487923, + 0.013562798500, 0.012948811054, 0.012334585190, 0.011720120907, + 0.011105477810, 0.010490477085, 0.009875297546, 0.009259879589, + 0.008644223213, 0.008028268814, 0.007412135601, 0.006795823574, + 0.006179153919, 0.005562305450, 0.004945218563, 0.004327833652, + 0.003710269928, 0.003092467785, 0.002474486828, 0.001856148243, + 0.001237690449, 0.000618994236, 0.000000000000, -0.000619232655, + -0.001238644123, -0.001858353615, -0.002478241920, -0.003098428249, + -0.003718733788, -0.004339277744, -0.004960119724, -0.005581140518, + -0.006202459335, -0.006823956966, -0.007445693016, -0.008067667484, + -0.008689820766, -0.009312212467, -0.009934842587, -0.010557651520, + -0.011180758476, -0.011804044247, -0.012427628040, -0.013051390648, + -0.013675332069, -0.014299511909, -0.014923930168, -0.015548527241, + -0.016173422337, -0.016798496246, -0.017423748970, -0.018049240112, + -0.018674969673, -0.019300937653, -0.019927084446, -0.020553469658, + -0.021180033684, -0.021806895733, -0.022433876991, -0.023061156273, + -0.023688614368, -0.024316251278, -0.024944126606, -0.025572240353, + -0.026200532913, -0.026829063892, -0.027457773685, -0.028086721897, + -0.028715848923, -0.029345214367, -0.029974758625, -0.030604541302, + -0.031234562397, -0.031864762306, -0.032495141029, -0.033125758171, + -0.033756554127, -0.034387588501, -0.035018861294, -0.035650253296, + -0.036281883717, -0.036913752556, -0.037545800209, -0.038178086281, + -0.038810491562, -0.039443194866, -0.040076017380, -0.040709137917, + -0.041342377663, -0.041975855827, -0.042609512806, -0.043243408203, + -0.043877482414, -0.044511735439, -0.045146226883, -0.045780897141, + -0.046415746212, -0.047050774097, -0.047686040401, -0.048321545124, + -0.048957169056, -0.049593031406, -0.050229072571, -0.050865292549, + -0.051501750946, -0.052138388157, -0.052775204182, -0.053412258625, + -0.054049432278, -0.054686844349, -0.055324435234, -0.055962264538, + -0.056600213051, -0.057238399982, -0.057876765728, -0.058515310287, + -0.059154093266, -0.059792995453, -0.060432136059, -0.061071455479, + -0.061710953712, -0.062350630760, -0.062990486622, -0.063630580902, + -0.064270794392, -0.064911246300, -0.065551877022, -0.066192686558, + -0.066833674908, -0.067474842072, -0.068116247654, -0.068757772446, + -0.069399535656, -0.070041418076, -0.070683538914, -0.071325838566, + -0.071968257427, -0.072610914707, -0.073253750801, -0.073896765709, + -0.074539959431, -0.075183331966, -0.075826883316, -0.076470613480, + -0.077114522457, -0.077758610249, -0.078402876854, -0.079047322273, + -0.079691946507, -0.080336749554, -0.080981731415, -0.081626832485, + -0.082272171974, -0.082917690277, -0.083563387394, -0.084209203720, + -0.084855258465, -0.085501432419, -0.086147844791, -0.086794376373, + -0.087441086769, -0.088088035583, -0.088735103607, -0.089382350445, + -0.090029716492, -0.090677320957, -0.091325104237, -0.091973006725, + -0.092621147633, -0.093269407749, -0.093917787075, -0.094566464424, + -0.095215201378, -0.095864176750, -0.096513271332, -0.097162544727, + -0.097811996937, -0.098461627960, -0.099111437798, -0.099761366844, + -0.100411474705, -0.101061761379, -0.101712167263, -0.102362811565, + -0.103013575077, -0.103664517403, -0.104315698147, -0.104966938496, + -0.105618357658, -0.106269955635, -0.106921732426, -0.107573628426, + -0.108225762844, -0.108877956867, -0.109530389309, -0.110182940960, + -0.110835671425, -0.111488580704, -0.112141609192, -0.112794876099, + -0.113448202610, -0.114101707935, -0.114755392075, -0.115409255028, + -0.116063296795, -0.116717457771, -0.117371797562, -0.118026256561, + -0.118680894375, -0.119335711002, -0.119990646839, -0.120645701885, + -0.121300995350, -0.121956408024, -0.122611939907, -0.123267710209, + -0.123923599720, -0.124579608440, -0.125235795975, -0.125892102718, + -0.126548647881, -0.127205252647, -0.127862036228, -0.128518998623, + -0.129176080227, -0.129833400249, -0.130490779877, -0.131148338318, + -0.131806015968, -0.132463872433, -0.133121848106, -0.133780062199, + -0.134438335896, -0.135096788406, -0.135755360126, -0.136414170265, + -0.137073040009, -0.137732088566, -0.138391256332, -0.139050662518, + -0.139710128307, -0.140369713306, -0.141029477119, -0.141689419746, + -0.142349541187, -0.143009781837, -0.143670141697, -0.144330620766, + -0.144991278648, -0.145652055740, -0.146312952042, -0.146974027157, + -0.147635281086, -0.148296654224, -0.148958146572, -0.149619817734, + -0.150281608105, -0.150943517685, -0.151605606079, -0.152267873287, + -0.152930200100, -0.153592705727, -0.154255390167, -0.154918134212, + -0.155581057072, -0.156244099140, -0.156907320023, -0.157570660114, + -0.158234119415, -0.158897757530, -0.159561455250, -0.160225391388, + -0.160889446735, -0.161553561687, -0.162217855453, -0.162882328033, + -0.163546860218, -0.164211571217, -0.164876461029, -0.165541410446, + -0.166206538677, -0.166871786118, -0.167537152767, -0.168202698231, + -0.168868362904, -0.169534146786, -0.170200049877, -0.170866131783, + -0.171532273293, -0.172198593616, -0.172865033150, -0.173531651497, + -0.174198389053, -0.174865186214, -0.175532162189, -0.176199316978, + -0.176866531372, -0.177533924580, -0.178201436996, -0.178869009018, + -0.179536819458, -0.180204689503, -0.180872738361, -0.181540846825, + -0.182209134102, -0.182877540588, -0.183546066284, -0.184214711189, + -0.184883534908, -0.185552418232, -0.186221480370, -0.186890661716, + -0.187559902668, -0.188229382038, -0.188898921013, -0.189568579197, + -0.190238356590, -0.190908312798, -0.191578388214, -0.192248523235, + -0.192918837070, -0.193589210510, -0.194259762764, -0.194930493832, + -0.195601284504, -0.196272194386, -0.196943223476, -0.197614312172, + -0.198285639286, -0.198957026005, -0.199628591537, -0.200300216675, + -0.200972020626, -0.201643884182, -0.202315866947, -0.202988028526, + -0.203660309315, -0.204332649708, -0.205005109310, -0.205677747726, + -0.206350505352, -0.207023322582, -0.207696318626, -0.208369374275, + -0.209042608738, -0.209715902805, -0.210389316082, -0.211062908173, + -0.211736559868, -0.212410390377, -0.213084280491, -0.213758289814, + -0.214432477951, -0.215106725693, -0.215781092644, -0.216455549002, + -0.217130184174, -0.217804878950, -0.218479722738, -0.219154685736, + -0.219829738140, -0.220504909754, -0.221180200577, -0.221855610609, + -0.222531110048, -0.223206758499, -0.223882496357, -0.224558383226, + -0.225234329700, -0.225910425186, -0.226586610079, -0.227262884378, + -0.227939307690, -0.228615850210, -0.229292482138, -0.229969263077, + -0.230646073818, -0.231323093176, -0.232000142336, -0.232677340508, + -0.233354657888, -0.234032064676, -0.234709590673, -0.235387206078, + -0.236064910889, -0.236742764711, -0.237420737743, -0.238098770380, + -0.238776952028, -0.239455252886, -0.240133613348, -0.240812093019, + -0.241490721703, -0.242169409990, -0.242848247290, -0.243527114391, + -0.244206160307, -0.244885295630, -0.245564520359, -0.246243864298, + -0.246923267841, -0.247602820396, -0.248282492161, -0.248962253332, + -0.249642103910, -0.250322073698, -0.251002162695, -0.251682341099, + -0.252362608910, -0.253042995930, -0.253723442554, -0.254404038191, + -0.255084723234, -0.255765527487, -0.256446391344, -0.257127404213, + -0.257808506489, -0.258489698172, -0.259170979261, -0.259852379560, + -0.260533869267, -0.261215478182, -0.261897146702, -0.262578964233, + -0.263260871172, -0.263942837715, -0.264624953270, -0.265307158232, + -0.265989482403, -0.266671866179, -0.267354339361, -0.268036931753, + -0.268719583750, -0.269402414560, -0.270085275173, -0.270768254995, + -0.271451354027, -0.272134482861, -0.272817790508, -0.273501127958, + -0.274184614420, -0.274868160486, -0.275552004576, -0.276246696711, + -0.276955842972, -0.277676463127, -0.278406113386, -0.279142975807, + -0.279885530472, -0.280632615089, -0.281383335590, -0.282136917114, + -0.282892853022, -0.283650636673, -0.284409940243, -0.285170495510, + -0.285932064056, -0.286694467068, -0.287457615137, -0.288221299648, + -0.288985580206, -0.289750248194, -0.290515333414, -0.291280776262, + -0.292046546936, -0.292812615633, -0.293578982353, -0.294345587492, + -0.295112460852, -0.295879513025, -0.296646833420, -0.297414392233, + -0.298182129860, -0.298950135708, -0.299718320370, -0.300486743450, + -0.301255315542, -0.302024126053, -0.302793115377, -0.303562343121, + -0.304331749678, -0.305101364851, -0.305871158838, -0.306641131639, + -0.307411372662, -0.308181732893, -0.308952361345, -0.309723138809, + -0.310494124889, -0.311265289783, -0.312036663294, -0.312808215618, + -0.313580006361, -0.314351975918, -0.315124064684, -0.315896451473, + -0.316668987274, -0.317441672087, -0.318214595318, -0.318987697363, + -0.319761008024, -0.320534497499, -0.321308195591, -0.322082072496, + -0.322856098413, -0.323630332947, -0.324404805899, -0.325179398060, + -0.325954228640, -0.326729238033, -0.327504426241, -0.328279823065, + -0.329055398703, -0.329831123352, -0.330607086420, -0.331383198500, + -0.332159548998, -0.332936048508, -0.333712756634, -0.334489613771, + -0.335266709328, -0.336043953896, -0.336821347475, -0.337598979473, + -0.338376790285, -0.339154779911, -0.339932948351, -0.340703547001, + -0.341460168362, -0.342204123735, -0.342936009169, -0.343656539917, + -0.344366520643, -0.345066785812, -0.345758140087, -0.346441298723, + -0.347117066383, -0.347785979509, -0.348448574543, -0.349105387926, + -0.349756926298, -0.350403457880, -0.351045399904, -0.351682960987, + -0.352316498756, -0.352946251631, -0.353572368622, -0.354195058346, + -0.354814529419, -0.355430841446, -0.356044232845, -0.356654793024, + -0.357262581587, -0.357867747545, -0.358470380306, -0.359070599079, + -0.359668403864, -0.360263943672, -0.360857278109, -0.361448466778, + -0.362037539482, -0.362624615431, -0.363209664822, -0.363792806864, + -0.364374041557, -0.364953458309, -0.365531116724, -0.366106957197, + -0.366681158543, -0.367253661156, -0.367824524641, -0.368393778801, + -0.368961453438, -0.369527608156, -0.370092272758, -0.370655417442, + -0.371217161417, -0.371777445078, -0.372336328030, -0.372893840075, + -0.373450040817, -0.374004870653, -0.374558418989, -0.375110656023, + -0.375661671162, -0.376211434603, -0.376759976149, -0.377307295799, + -0.377853453159, -0.378398448229, -0.378942251205, -0.379484951496, + -0.380026549101, -0.380567044020, -0.381106466055, -0.381644785404, + -0.382182061672, -0.382718294859, -0.383253514767, -0.383787691593, + -0.384320884943, -0.384853094816, -0.385384321213, -0.385914593935, + -0.386443912983, -0.386972278357, -0.387499719858, -0.388026237488, + -0.388551831245, -0.389076471329, -0.389600366354, -0.390123337507, + -0.390645444393, -0.391166716814, -0.391687124968, -0.392206668854, + -0.392725408077, -0.393243283033, -0.393760412931, -0.394276678562, + -0.394792169333, -0.395306885242, -0.395820796490, -0.396333962679, + -0.396846383810, -0.397358000278, -0.397868901491, -0.398379057646, + -0.398888468742, -0.399397134781, -0.399905115366, -0.400412350893, + -0.400918900967, -0.401424735785, -0.401929885149, -0.402434349060, + -0.402938157320, -0.403441250324, -0.403943657875, -0.404445439577, + -0.404946535826, -0.405447006226, -0.405946820974, -0.406445980072, + -0.406944513321, -0.407442390919, -0.407939672470, -0.408436328173, + -0.408932358027, -0.409427791834, -0.409922599792, -0.410416811705, + -0.410910427570, -0.411403477192, -0.411895900965, -0.412387788296, + -0.412879049778, -0.413369774818, -0.413859903812, -0.414349466562, + -0.414838492870, -0.415326923132, -0.415814846754, -0.416302174330, + -0.416788995266, -0.417275249958, -0.417760968208, -0.418246179819, + -0.418730825186, -0.419214993715, -0.419698596001, -0.420181691647, + -0.420664280653, -0.421146333218, -0.421627908945, -0.422108948231, + -0.422589510679, -0.423069566488, -0.423549115658, -0.424028217793, + -0.424506783485, -0.424984872341, -0.425462514162, -0.425939619541, + -0.426416277885, -0.426892489195, -0.427368193865, -0.427843451500, + -0.428318232298, -0.428792566061, -0.429266452789, -0.429739862680, + -0.430212795734, -0.430685311556, -0.431157380342, -0.431629002094, + -0.432100176811, -0.432570904493, -0.433041214943, -0.433511078358, + -0.433980494738, -0.434449523687, -0.434918075800, -0.435386240482, + -0.435853987932, -0.436321288347, -0.436788171530, -0.437254667282, + -0.437720745802, -0.438186407089, -0.438651651144, -0.439116477966, + -0.439580917358, -0.440044969320, -0.440508633852, -0.440971851349, + -0.441434711218, -0.441897183657, -0.442359238863, -0.442820936441, + -0.443282216787, -0.443743109703, -0.444203674793, -0.444663792849, + -0.445123583078, -0.445582956076, -0.446041971445, -0.446500629187, + -0.446958899498, -0.447416782379, -0.447874337435, -0.448331505060, + -0.448788315058, -0.449244767427, -0.449700862169, -0.450156599283, + -0.450611978769, -0.451067000628, -0.451521664858, -0.451975971460, + -0.452429950237, -0.452883571386, -0.453336834908, -0.453789770603, + -0.454242378473, -0.454694598913, -0.455146521330, -0.455598086119, + -0.456049323082, -0.456500232220, -0.456950783730, -0.457401037216, + -0.457850933075, -0.458300501108, -0.458749771118, -0.459198683500, + -0.459647268057, -0.460095554590, -0.460543513298, -0.460991144180, + -0.461438477039, -0.461885482073, -0.462332129478, -0.462778508663, + -0.463224560022, -0.463670313358, -0.464115768671, -0.464560896158, + -0.465005695820, -0.465450197458, -0.465894401073, -0.466338336468, + -0.466781944036, -0.467225223780, -0.467668235302, -0.468110918999, + -0.468553334475, -0.468995451927, -0.469437271357, -0.469878792763, + -0.470320016146, -0.470760941505, -0.471201598644, -0.471641957760, + -0.472082048655, -0.472521811724, -0.472961336374, -0.473400533199, + -0.473839461803, -0.474278151989, -0.474716484547, -0.475154578686, + -0.475592404604, -0.476029932499, -0.476467192173, -0.476904183626, + -0.477340877056, -0.477777302265, -0.478213489056, -0.478649377823, + -0.479084998369, -0.479520380497, -0.479955434799, -0.480390250683, + -0.480824828148, -0.481259107590, -0.481693148613, -0.482126891613, + -0.482560396194, -0.482993602753, -0.483426630497, -0.483859330416, + -0.484291791916, -0.484723985195, -0.485155940056, -0.485587626696, + -0.486019074917, -0.486450254917, -0.486881166697, -0.487311840057, + -0.487742304802, -0.488172471523, -0.488602399826, -0.489032089710, + -0.489461481571, -0.489890694618, -0.490319639444, -0.490748345852, + -0.491176784039, -0.491604983807, -0.492032945156, -0.492460697889, + -0.492888182402, -0.493315428495, -0.493742465973, -0.494169205427, + -0.494595766068, -0.495022058487, -0.495448112488, -0.495873928070, + -0.496299535036, -0.496724903584, -0.497150033712, -0.497574925423, + -0.497999608517, -0.498424023390, -0.498848229647, -0.499272227287, + -0.499695956707, -0.500119447708, -0.500542759895, -0.500965833664, + -0.501388669014, -0.501811325550, -0.502233743668, -0.502655923367, + -0.503077864647, -0.503499567509, -0.503921091557, -0.504342377186, + -0.504763484001, -0.505184292793, -0.505604982376, -0.506025373936, + -0.506445586681, -0.506865620613, -0.507285356522, -0.507704913616, + -0.508124232292, -0.508543372154, -0.508962333202, -0.509381055832, + -0.509799540043, -0.510217785835, -0.510635912418, -0.511053800583, + -0.511471390724, -0.511888861656, -0.512306094170, -0.512723147869, + -0.513139963150, -0.513556599617, -0.513972997665, -0.514389276505, + -0.514805316925, -0.515221118927, -0.515636682510, -0.516052126884, + -0.516467332840, -0.516882300377, -0.517297148705, -0.517711758614, + -0.518126130104, -0.518540382385, -0.518954396248, -0.519368171692, + -0.519781827927, -0.520195245743, -0.520608425140, -0.521021485329, + -0.521434307098, -0.521846950054, -0.522259414196, -0.522671699524, + -0.523083746433, -0.523495614529, -0.523907303810, -0.524318814278, + -0.524730086327, -0.525141239166, -0.525552153587, -0.525962889194, + -0.526373445988, -0.526783823967, -0.527194023132, -0.527603983879, + -0.528013765812, -0.528423428535, -0.528832852840, -0.529242098331, + -0.529651165009, -0.530060052872, -0.530468702316, -0.530877232552, + -0.531285583973, -0.531693756580, -0.532101750374, -0.532509565353, + -0.532917141914, -0.533324599266, -0.533731818199, -0.534138917923, + -0.534545779228, -0.534952521324, -0.535359084606, -0.535765469074, + -0.536171674728, -0.536577701569, -0.536983489990, -0.537389159203, + -0.537794649601, -0.538200020790, -0.538605153561, -0.539010107517, + -0.539414882660, -0.539819538593, -0.540224015713, -0.540628314018, + -0.541032433510, -0.541436374187, -0.541840136051, -0.542243719101, + -0.542647182941, -0.543050467968, -0.543453574181, -0.543856501579, + -0.544259250164, -0.544661879539, -0.545064270496, -0.545466542244, + -0.545868635178, -0.546270608902, -0.546672344208, -0.547073960304, + -0.547475457191, -0.547876715660, -0.548277854919, -0.548678755760, + -0.549079537392, -0.549480199814, -0.549880683422, -0.550280988216, + -0.550681114197, -0.551081120968, -0.551480948925, -0.551880598068, + -0.552280128002, -0.552679419518, -0.553078651428, -0.553477704525, + -0.553876519203, -0.554275274277, -0.554673850536, -0.555072247982, + -0.555470466614, -0.555868566036, -0.556266546249, -0.556664288044, + -0.557061910629, -0.557459414005, -0.557856678963, -0.558253884315, + -0.558650851250, -0.559047758579, -0.559444427490, -0.559840977192, + -0.560237407684, -0.560633659363, -0.561029732227, -0.561425685883, + -0.561821460724, -0.562217116356, -0.562612652779, -0.563007950783, + -0.563403189182, -0.563798189163, -0.564193129539, -0.564587831497, + -0.564982473850, -0.565376937389, -0.565771222115, -0.566165387630, + -0.566559433937, -0.566953301430, -0.567346990108, -0.567740559578, + -0.568134009838, -0.568527281284, -0.568920433521, -0.569313466549, + -0.569706320763, -0.570098996162, -0.570491552353, -0.570883989334, + -0.571276307106, -0.571668446064, -0.572060406208, -0.572452306747, + -0.572843968868, -0.573235571384, -0.573626995087, -0.574018299580, + -0.574409425259, -0.574800431728, -0.575191318989, -0.575582027435, + -0.575972676277, -0.576363086700, -0.576753377914, -0.577143609524, + -0.577533602715, -0.577923536301, -0.578313291073, -0.578702926636, + -0.579092383385, -0.579481780529, -0.579870998859, -0.580260038376, + -0.580649018288, -0.581037819386, -0.581426501274, -0.581815004349, + -0.582203447819, -0.582591712475, -0.582979857922, -0.583367824554, + -0.583755731583, -0.584143459797, -0.584531068802, -0.584918558598, + -0.585305869579, -0.585693120956, -0.586080193520, -0.586467146873, + -0.586853921413, -0.587240576744, -0.587627172470, -0.588013589382, + -0.588399887085, -0.588786005974, -0.589172065258, -0.589557945728, + -0.589943766594, -0.590329408646, -0.590714871883, -0.591100275517, + -0.591485500336, -0.591870665550, -0.592255651951, -0.592640519142, + -0.593025267124, -0.593409895897, -0.593794405460, -0.594178795815, + -0.594563007355, -0.594947099686, -0.595331132412, -0.595714986324, + -0.596098721027, -0.596482336521, -0.596865832806, -0.597249209881, + -0.597632408142, -0.598015546799, -0.598398566246, -0.598781406879, + -0.599164128304, -0.599546790123, -0.599929273129, -0.600311636925, + -0.600693881512, -0.601076066494, -0.601458072662, -0.601839959621, + -0.602221727371, -0.602603375912, -0.602984905243, -0.603366315365, + -0.603747546673, -0.604128718376, -0.604509770870, -0.604890704155, + -0.605271518230, -0.605652213097, -0.606032729149, -0.606413185596, + -0.606793522835, -0.607173740864, -0.607553839684, -0.607933819294, + -0.608313679695, -0.608693420887, -0.609073042870, -0.609452545643, +}; + +} /* namespace r12AX7 */ + +#endif /* _DSP_R_12_AX_7_H_ */ diff --git a/plugins/ladspa_effect/caps/dsp/sinc.h b/plugins/ladspa_effect/caps/dsp/sinc.h new file mode 100644 index 000000000..d40842232 --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/sinc.h @@ -0,0 +1,58 @@ +/* + dsp/sinc.h + + Copyright 2003-4 Tim Goetze + + http://quitte.de/dsp/ + + computes the sinc function: sin (x * pi) / (x * pi). + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _SINC_H_ +#define _SINC_H_ + +#include "Sine.h" + +namespace DSP { + +/* sample sinc() with step size omega into s[], centered around s + n / 2 */ + +inline void +sinc (double omega, d_sample * s, int n) +{ + /* initial phase */ + double phi = (n / 2) * -omega; + + Sine sine (omega, phi); + + for (int i = 0; i < n; ++i, phi += omega) + { + double sin_phi = sine.get(); + + if (fabs (phi) < 0.000000001) + s[i] = 1.; + else + s[i] = sin_phi / phi; + } +} + +}; /* namespace DSP */ + +#endif /* _SINC_H_ */ diff --git a/plugins/ladspa_effect/caps/dsp/util.h b/plugins/ladspa_effect/caps/dsp/util.h new file mode 100644 index 000000000..5b3ccd7ac --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/util.h @@ -0,0 +1,75 @@ +/* + dsp/util.h + + Copyright 2002-4 Tim Goetze + + http://quitte.de/dsp/ + + common math utility functions. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _DSP_UTIL_H_ +#define _DSP_UTIL_H_ + +namespace DSP { + +inline int next_power_of_2 (int n) +{ + assert (n <= 0x40000000); + + int m = 1; + + while (m < n) + m <<= 1; + + return m; +} + +inline bool +isprime (int v) +{ + if (v <= 3) + return true; + + if (!(v & 1)) + return false; + + for (int i = 3; i < (int) sqrt (v) + 1; i += 2) + if ((v % i) == 0) + return false; + + return true; +} + +inline double +db2lin (double db) +{ + return pow (10., db * .05); +} + +inline double +lin2db (double lin) +{ + return 20. * log10 (lin); +} + +} /* namespace DSP */ + +#endif /* _DSP_UTIL_H_ */ diff --git a/plugins/ladspa_effect/caps/dsp/windows.h b/plugins/ladspa_effect/caps/dsp/windows.h new file mode 100644 index 000000000..56cb19a45 --- /dev/null +++ b/plugins/ladspa_effect/caps/dsp/windows.h @@ -0,0 +1,163 @@ +/* + dsp/windows.h + + Copyright 2004 Tim Goetze + + http://quitte.de/dsp/ + + select few common windowing algorithms. + +*/ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#ifndef _DSP_WINDOWS_H_ +#define _DSP_WINDOWS_H_ + +namespace DSP { + +/* prototypes for window value application ... */ +typedef void (*window_sample_func_t) (d_sample &, d_sample); + +/* ... which go as template parameters for the window calculation below */ +inline void +store_sample (d_sample & d, d_sample s) +{ + d = s; +} + +inline void +apply_window (d_sample &d, d_sample s) +{ + d *= s; +} + +template +void +hanning (d_sample * s, int n) +{ + /* TODO: speed up by using DSP::Sine */ + + for (int i = 0; i < n; ++i) + { + register double f = (double) i / n - 1; + F (s[i], .5 - .5 * cos (2 * M_PI * f)); + } +} + +template +void +blackman (d_sample * s, int n) +{ + register float w = n; + + for (int i = 0; i < n; ++i) + { + register float f = (float) i; + + register double b = .42f - + .5f * cos (2.f * f * M_PI / w) + + .08 * cos (4.f * f * M_PI / w); + + F (s[i], b); + } +} + +template +void +blackman_harris (d_sample * s, int n) +{ + register double w1 = 2.f * M_PI / (n - 1); + register double w2 = 2.f * w1; + register double w3 = 3.f * w1; + + for (int i = 0; i < n; ++i) + { + register double f = (double) i; + + register double bh = .35875f - + .48829f * cos (w1 * f) + + .14128f * cos (w2 * f) - + .01168f * cos (w3 * f); + + bh *= .761f; + + F (s[i], bh); + } +} + +/* helper for the kaiser window, courtesy of R. Dobson, courtesy of csound */ +inline double +besseli (double x) +{ + double ax, ans; + double y; + + if ((ax = fabs (x)) < 3.75) + { + y = x / 3.75; + y *= y; + ans = (1.0 + y * (3.5156229 + + y * (3.0899424 + + y * (1.2067492 + + y * (0.2659732 + + y * (0.360768e-1 + + y * 0.45813e-2)))))); + } + else + { + y = 3.75 / ax; + ans = ((exp (ax) / sqrt (ax)) + * (0.39894228 + + y * (0.1328592e-1 + + y * (0.225319e-2 + + y * (-0.157565e-2 + + y * (0.916281e-2 + + y * (-0.2057706e-1 + + y * (0.2635537e-1 + + y * (-0.1647633e-1 + + y * 0.392377e-2))))))))); + } + + return ans; +} + +template +void +kaiser (d_sample * s, int n, double beta) +{ + double bb = besseli (beta); + int si = 0; + + for (double i = -n / 2 + .1; si < n; ++si, ++i) + { + double k = besseli ((beta * sqrt (1 - pow ((2 * i / (n - 1)), 2)))) / bb; + + /* can you spell hack */ + if (!finite (k)) + k = 0; + + F (s[si], k); + } + /* assymetrical hack: sort out first value! + win[0] = win[len-1]; + */ +} + +}; /* namespace DSP */ + +#endif /* _DSP_WINDOWS_H_ */ diff --git a/plugins/ladspa_effect/caps/elev0.h b/plugins/ladspa_effect/caps/elev0.h new file mode 100644 index 000000000..cf78883f6 --- /dev/null +++ b/plugins/ladspa_effect/caps/elev0.h @@ -0,0 +1,344 @@ +#ifndef _ELEV_0_H_ +#define _ELEV_0_H_ + +static struct { + struct {double a[31], b[31];} left, right; +} +elev0 [] = +{ + { /* 0 deg */ + { /* left */ + { /* a */ 0.00016115992608954982025, -0.00010768917854458648288, -0.00063346856180946037665, 0.00046347742029473120925, -0.0015439852840736303929, 0.002322097197441415177, -0.0030171705384801628114, 0.0040049622633845857744, -0.0061951205789184497774, 0.007477237413920645448, -0.0077387794749934207816, 0.011064070674173843989, -0.0039638879209113325741, 0.18900346994412650647, 0.11180546019300675875, -0.30157903765100790849, 0.1347944936894422685, -0.11208456287521188777, -0.10407312479763883295, 0.36646565042846751536, -0.03021948747062653054, 0.12118534476775748299, 0.38955804570991658942, 0.10541328915312503378, -0.3230797648386828369, -0.047446774889543630316, 0.074881148756352045037, -0.35284433955617594547, -0.17940547664191497379, -0.031687898661414630463, -0.079669760381518725523}, + { /* b */ 0, 0.060872553612196914075, 0.028134109258271672305, 0.19714624090581839289, 0.080867126093135940912, 0.015075818698181541605, 0.09631379420052403606, 0.10062956273363155013, 0.078554087002350780899, -0.015526584402269706653, -0.046159578846992205259, 0.08942137063482573367, -0.0031327716162594778163, 0.044707285945433258845, 0.019012234566775400302, 0.023245822417901004786, 0.099133288024720767062, -0.016901102476781122708, -0.0080432755625650560749, -0.059588888105196691214, 0.025493274350173785597, 0.052825597092033604874, 0.052130256044543292482, 0.014949928868884798661, -0.015431476841200410938, -0.0083606347897418296922, 0.019454219693235737937, 0.0028516212312724819981, -0.044967056642177052894, -0.03421366827611452277, -0.063356553650132305111}, + }, { /* right */ + { /* a */ 0.00016115992608954982025, -0.00010768917854458648288, -0.00063346856180946037665, 0.00046347742029473120925, -0.0015439852840736303929, 0.002322097197441415177, -0.0030171705384801628114, 0.0040049622633845857744, -0.0061951205789184497774, 0.007477237413920645448, -0.0077387794749934207816, 0.011064070674173843989, -0.0039638879209113325741, 0.18900346994412650647, 0.11180546019300675875, -0.30157903765100790849, 0.1347944936894422685, -0.11208456287521188777, -0.10407312479763883295, 0.36646565042846751536, -0.03021948747062653054, 0.12118534476775748299, 0.38955804570991658942, 0.10541328915312503378, -0.3230797648386828369, -0.047446774889543630316, 0.074881148756352045037, -0.35284433955617594547, -0.17940547664191497379, -0.031687898661414630463, -0.079669760381518725523}, + { /* b */ 0, 0.060872553612196914075, 0.028134109258271672305, 0.19714624090581839289, 0.080867126093135940912, 0.015075818698181541605, 0.09631379420052403606, 0.10062956273363155013, 0.078554087002350780899, -0.015526584402269706653, -0.046159578846992205259, 0.08942137063482573367, -0.0031327716162594778163, 0.044707285945433258845, 0.019012234566775400302, 0.023245822417901004786, 0.099133288024720767062, -0.016901102476781122708, -0.0080432755625650560749, -0.059588888105196691214, 0.025493274350173785597, 0.052825597092033604874, 0.052130256044543292482, 0.014949928868884798661, -0.015431476841200410938, -0.0083606347897418296922, 0.019454219693235737937, 0.0028516212312724819981, -0.044967056642177052894, -0.03421366827611452277, -0.063356553650132305111}, + }, + }, + { /* 5 deg */ + { /* left */ + { /* a */ -0.00017696253206769471666, 0.00021107918665545769466, -2.0620763396513567709e-05, -0.00018186803582760145237, 8.373679531671252463e-05, -0.0011082651235009427504, 0.0013814999459888562677, -0.0022305356427783796375, 0.0034326663959655806524, -0.0048009305045435424902, 0.0056349419483249160723, -0.0071918462710358118523, 0.0095052705275961314052, 0.0007448483104648476183, 0.17757056636691290197, 0.080751512987945209265, -0.25584565078920767922, 0.11313029183314063375, -0.11130775557262871656, -0.068744404280904225502, 0.30732662377751773786, -0.027707718907452515145, 0.12364106832536264635, 0.35026569867066370545, 0.07471421608637314471, -0.25776067100019012246, -0.055371338162804373262, -0.012256460040568777775, -0.25866536683473279057, -0.17782894990620184972, -0.064670654485651041243}, + { /* b */ 0, 0.055090796937088862273, 0.055437560430932439348, 0.22990052867708210549, 0.099428824021023237689, -0.0027769955961815754458, 0.10085574251165992099, 0.16312061234767347151, 0.039470376556444738969, -0.041848049583603372237, -0.032542858026161185225, 0.02139343730159100343, 0.048098231701239960167, 0.037733893377851102091, 0.019373785721910955632, 0.061746578342221650204, 0.035488211745084013993, -0.01806919754088130714, -0.027128260233510496924, -0.042503705793375312627, 0.051926493757134692397, 0.07069393657400141473, 0.019673226352204746525, -0.00012103498389409196589, -0.027627741515316259213, 0.009635983304503818736, 0.018631749546224596337, -0.016615904545286074023, -0.044341341793715960407, -0.030215378264473007064, -0.041358753534985123745}, + }, { /* right */ + { /* a */ 0.00021674611259610464188, -0.0010589548271123022313, 0.0010969447757948318917, -0.0021209537250143142839, 0.0028729385414139746446, -0.0035972033027254976534, 0.0044402795492401794797, -0.006073245440653581885, 0.0067101547727077218847, -0.0060717874211108089147, 0.0086287155143119700917, -0.0062948148262572563294, 0.16059210095363563031, 0.20386616350646591389, -0.35114984389089032302, 0.086216963151213521499, -0.024061119790435951671, -0.22331071743275801578, 0.43099142324044042995, 0.031472736270457199459, 0.027458263182878438202, 0.45513707401194097857, 0.15478327645377623623, -0.42059874974912558887, -0.063648009970495300625, 0.14751824494855145242, -0.3619823099623888929, -0.19283311769574695838, -0.011882636463899330648, -0.089521111340056691574, -0.026022800212665765651}, + { /* b */ 0, 0.079572218898552926625, 0.053165668189737030902, 0.17176014787903778891, 0.086820173277007889334, 0.060694063956346300248, 0.029633229388448603658, 0.084867011888823756793, 0.042640077616905060209, -0.029035195885816392214, 0.029653473189723660031, 0.085308978346717134755, 0.0048636815673216080014, 0.01605369931437055156, -0.015454426947098148445, 0.042357713858054937828, 0.097316348725284551602, 0.0052640081186572720839, -0.0050867430431700277893, -0.058963722940593224497, 0.01239314631939524014, 0.049900557159985092781, 0.043026255599535281893, 0.035562415292306887027, -0.020192113930755928308, 0.00095028634658748944997, 0.027622002386662635603, 0.0053820468586939663319, -0.050497180968884017305, -0.041024391020222893134, -0.067588730417863646105}, + }, + }, + { /* 10 deg */ + { /* left */ + { /* a */ -7.1010261369361740713e-05, -2.5406000913078783136e-05, 0.00026759211721569383866, -8.4826521543719497699e-05, -6.8403155187606121818e-05, 9.9131511745002002427e-05, -0.001071700570934656406, 0.001098798497419818665, -0.0016933689074365935318, 0.0027481963651477848976, -0.0036606743705400422717, 0.0042060653153788429837, -0.0062821160138389776223, 0.0076862441225774222331, 0.0058233041551466677155, 0.16799390464336699802, 0.041851271057766162298, -0.22290193556303047884, 0.10546865511928886494, -0.106571152734197927, -0.05232811055746418305, 0.26763450404808436511, -0.00068426453713908361176, 0.10572562194246151734, 0.30292254127254580887, 0.047280029708680913758, -0.26546206167345709481, -0.050352179118358361687, -0.0083467693297659146384, -0.25140273187294914781, -0.13705105321611377178}, + { /* b */ 0, 0.085263325112734211775, 0.12395856358757566251, 0.21451203553535497237, 0.11368862237752869193, 0.045975440610246019746, 0.083841885720174272323, 0.10819905319188556636, 0.017486735496958213942, -0.05191158900020079181, -0.028267552250675329062, 0.051676694820251889428, 0.024780584746461171985, 0.045146936514918814543, 0.035293885693133908443, 0.023177674056059194285, 0.026807353374273618085, -0.049021533124109263613, 0.0011432617002724524552, -0.014547714109382908765, 0.058036283161763971283, 0.045635673184493387444, -0.0059891149151256751343, -0.0012376581991289520301, -0.019638054713496739395, 0.011740972931786674421, 0.0070604429584699562872, -0.017821868007230894093, -0.043622648597657895375, -0.015285888173058835571, -0.030656316135630173186}, + }, { /* right */ + { /* a */ -0.0011216376818203241394, 0.0014367662570877876016, -0.0025198357459085482524, 0.0025096953781399834564, -0.0032299692564715168364, 0.0035089721995293712831, -0.0040294036972093535964, 0.0036878989368056844592, -0.0019541662377772078818, 0.0022472517084747394012, -0.0005003840012913342121, 0.11928409575778700646, 0.29902193960400280659, -0.33871176061436253368, -0.029905872073465733507, 0.049693450022043894609, -0.28970435882155598506, 0.45366820402683577518, 0.09535253759394757278, 0.0024675934431721262968, 0.49110597895532337454, 0.19050822857905158614, -0.41285791290153855959, -0.18341018858515711898, 0.13888828001019423719, -0.2208057176764740559, -0.23909434820313357761, -0.060380123254846998493, -0.033071856447566480575, -0.071881204823059763331, -0.036764849742506287844}, + { /* b */ 0, 0.048428266517714681216, 0.029860695413591771541, 0.23466227365818198569, 0.085941189405338319629, 0.044706680082991917535, 0.020668341355824411398, 0.080504621225128858431, -0.053243345596708929746, 0.014347828952276237002, 0.057257699183194593617, 0.10270797432433603769, 0.075890406819505484837, -0.061027205690788143, -0.022290009665058146959, 0.026499148640187108333, 0.08706458016097509689, 0.047083089686696284748, 0.019236465222853896262, -0.071824516859942622027, 0.016260258014978885843, 0.013562271183576411759, 0.05466513346106918747, 0.041512450833693780028, -0.0083719999989691172571, 0.021910246791019868939, 0.021244709892120912376, -0.0015736893779544000593, -0.057791902480916139406, -0.053290959980646299132, -0.056723042022796543726}, + }, + }, + { /* 15 deg */ + { /* left */ + { /* a */ -2.3034189992013315946e-05, 0.00024731908682368210911, -0.00021574284523261577293, 0.00051389676229479305802, -0.00040052734994627293714, 0.00015362020114751537476, -9.7371630267258237708e-05, -0.00037603622009404547629, 0.0002572275934744837041, -0.0015722688641566645584, 0.0018871578089975343112, -0.0026390305604912303594, 0.0044552306132121174964, -0.0051638664595472089092, 0.0058601946919547252823, 0.0062588950906924088746, 0.15092144486019995475, 0.0099448016942541832969, -0.18453753620347421172, 0.1114543447477359811, -0.14402726113297464883, -0.024507724738784635726, 0.25757743305304819925, -0.013476042841332157296, 0.11613418986197675264, 0.25394558785192672401, -0.016719111244215333761, -0.27302452491092155107, -0.018530595274781173909, -0.055725585873423050254, -0.21319498722583413164}, + { /* b */ 0, 0.22058127507023964076, 0.066638548713839174109, 0.24589498965493170046, 0.22418170335686704586, 0.066699912495684771097, 0.017692407245350268152, -0.0085239509346052289018, 0.020142743144099965746, -0.12941267987335691725, 0.051998998636554896735, 0.073490792657822143208, 0.023168188775066381885, 0.11108377267495579688, -0.084872666928730286506, -0.0042479536929002342099, -0.0070616745589371816838, 0.019184876108773011444, 0.054142940329746425121, -0.0041972999708067126184, -0.017760334508399627101, 0.00029087332720613727141, 0.0015107269032326241069, 0.045117303832109524608, 0.00061607549538982876725, -0.01586494033253469868, -0.017623046137960902968, -0.015727943013500934183, -0.027390319948145405715, 0.011098882581240697084, -0.037335305543559987873}, + }, { /* right */ + { /* a */ 0.0013800413829036378699, -0.0015945865447638749024, 0.001441061774076768387, -0.0018400002827411929274, 0.00081415159166025458104, -3.6541798449987185869e-06, -0.0023947168327270382249, 0.0060372912386117555394, -0.0079721892125425228293, 0.011425654544714239358, 0.061862177923783547018, 0.36620909077115043617, -0.25889177344254588053, -0.18653313956236422522, 0.16218219769577690847, -0.37467524215994219006, 0.40581752873141435645, 0.22834841562013005745, -0.06840666565317407577, 0.49400293320883370551, 0.27528320440222048271, -0.3919047384840718129, -0.31990047663825482704, 0.21386477926686497941, -0.20486652355001294668, -0.31035711367531787497, 0.023166421866086150255, -0.085451721164105515216, -0.12985289364082702734, -0.017432175610271501143, 0.035672848704699881839}, + { /* b */ 0, 0.073725628815923066606, 0.015390993798134605663, 0.2124990748692205389, 0.10259839572077958381, 0.065254899181072217873, 0.030885702765035875916, 0.0059236228567302942616, -0.015551106356376763473, 0.045129370224812268009, 0.040489463356448152087, 0.1405222487957555888, 0.021308824891246722771, -0.052224936798331650367, -0.03569736412508371648, -0.0011315094965852479092, 0.10462683156774776894, 0.0707489055921939336, 0.035186628731939326165, -0.082713931987719563343, -0.013492902896563435666, 0.0074634101167011038247, 0.063222517807061034967, 0.061186927189146173012, 0.011493852096039973432, 0.0030603490119027530574, 0.011353160845064234896, -0.0052093273690718977509, -0.056452439121564002011, -0.044554455604682921543, -0.065044801859899914476}, + }, + }, + { /* 20 deg */ + { /* left */ + { /* a */ -1.280464119543479537e-05, 5.0847061283666207532e-05, -0.00010881943401930269165, -9.3295295100479555105e-06, 0.00018214684718853571478, -0.00016714467226952578471, 3.8897084095323997133e-05, -8.6690768452699420998e-06, -0.00023930660994486751061, 0.00071371038218304150291, -0.0010748950257655209839, 0.0014994882018698474369, -0.0025345205104804202634, 0.0029200474736118531283, -0.0032896042424790383762, 0.0051489509612229200641, 0.008226002461003689703, 0.13635910042254784091, 0.040811705554130717211, -0.12913078637682984251, 0.08933326884147385627, -0.073730698277943429453, 0.014957473944005039712, 0.2228220708940659156, 0.013110312729186501812, 0.1325955850479260123, 0.27241754762964698333, 0.1078490562880785042, -0.050076992741537873499, 0.062667886178355280968, 0.091717117197270825457}, + { /* b */ 0, -0.025158955952384043364, -0.062687203468275720653, 0.10856821347889067386, -0.031139900499438377679, -0.26394215694752753976, -0.20012513910774853976, 0.014278312291601813477, -0.074773034303560192981, -0.077797089910458527839, -0.077518931664924406455, -0.048200302791706617356, 0.013312597278228310849, -0.060823018845704290847, -0.12047847469359718175, -0.080758707132477791646, 0.014496285603640690631, 0.024176297966430060349, 0.030498046991178640042, -0.097021462282728676563, -0.072063053678794730672, -0.030360872356541279693, 0.036410577287371292954, 0.060757926768420511543, 0.0026579726669639916134, -0.046553056477285914561, -0.024262156919224731055, -0.01133193016360223293, 0.0053419247464381305543, 0.017221495934721664511, -0.017836842867227642451}, + }, { /* right */ + { /* a */ -0.00036599626872854673643, -0.0002460058195520581489, 0.001771055531804219263, -0.0025798946401336259049, 0.004338330896903190223, -0.0083341804897000444641, 0.012345621434499756686, -0.015540479481844504672, 0.021682746444567913002, 0.011508763580149114492, 0.37385080964059264064, -0.067135215764081365708, -0.36356326706210229105, 0.18127847719926099002, -0.35357578125112620882, 0.24597069823393058474, 0.39826579050225030532, -0.061438050383000319954, 0.42367882073686397026, 0.37232726266096677348, -0.31491476121032047075, -0.45397206381806498587, 0.22065950816309298776, -0.17315503013207861338, -0.33798287901752616103, 0.015306755417106993056, -0.14347429792658547565, -0.12428129176521134081, -0.06877797614801214876, 0.078433037183928827618, 0.054698817074467706578}, + { /* b */ 0, 0.048889005590125461653, -0.016041040104873907635, 0.24226714422677714245, 0.13214897408713416338, 0.11581965776929874223, -0.026343158066582245125, -0.043469803567581372095, 0.050182432390893233487, 0.059005150016260693446, 0.11712934066232007224, 0.10913298414466296449, -0.052970566889378595254, -0.041796521766095801054, -0.085321521280405307475, 0.051627174717985155339, 0.10872628148092013112, 0.07994668585422151641, 0.016498059996527050797, -0.087325778447147950345, -0.034046925974987041208, 0.036057834351442899501, 0.047799563959215543574, 0.099378425802562272984, -0.0093373522400217665029, 0.0010294654363175760603, -0.0028328873103410090462, -0.0010957144530761298018, -0.04991883841052625892, -0.057430845556592433065, -0.065998025744829283412}, + }, + }, + { /* 25 deg */ + { /* left */ + { /* a */ 5.4851695726303682787e-05, -6.9900108687348527781e-05, 0.00020257180634308816149, -6.0375831348324806962e-05, 4.7622701199179218179e-05, 4.3511237113325919312e-05, -1.8460715942027545235e-05, 8.4488357907084823311e-05, 0.00036921527953037713843, -0.00026485096144002531759, 0.00055643892715728825518, -0.0012241930933548604565, 0.0014098272716617245813, -0.0018170794729988060112, 0.0030765460808102034623, -0.002557592370458494635, 0.0040626938255239365694, 0.0062155450463591277455, 0.11813763723118875237, 0.036915229743791910799, -0.10863854615301982154, 0.071427932468587362891, -0.090269999915917886746, 0.0041725637770634281531, 0.20269035461810414045, 0.014055537838481013679, 0.12304199409125804454, 0.24661633430483886897, 0.050829375524627518068, -0.058588412423787872285, 0.026858601453252917146}, + { /* b */ 0, 0.030312183511849170175, -0.095541000844981405216, 0.1892261747966222929, 0.12808694865439063104, -0.1294162586626401712, -0.23340276657783654013, 0.070083589599131967951, -0.16393473066693420304, -0.038721197898189396724, -0.0071446294807459009846, -0.078586084721193882885, 0.1042302939213007873, -0.057276855840310281209, -0.10131559666906597705, -0.068958661479864846733, 0.0053298328402118233527, 0.034128981517000944734, 0.084083984187854898806, -0.1060379653611276396, -0.056291907571809352007, -0.035088677719993799364, 0.033487980128643624056, 0.083839894129689174207, 0.0064468873873374521466, -0.040191723771829113154, -0.021859064198159749992, -0.0074521605177013672261, 0.0068960510733739877054, 0.020068191506558696879, -0.032594931639526314449}, + }, { /* right */ + { /* a */ -0.0021078233190400252894, 0.0033911920282320151543, -0.0050816297403333265947, 0.0070429241880685944377, -0.010690185705680699257, 0.013587756297721298449, -0.015591114736097921867, 0.020843633502798386559, -0.012948727955118533028, 0.29853930777651016548, 0.16678964803161847041, -0.46891720194919617182, 0.10671347466639086177, -0.19485400919129133857, 0.020296222080044834524, 0.50175032885310333342, -0.062426652745247585008, 0.35287342243971148159, 0.46181252928104832289, -0.21215736966683634845, -0.39772241165672927998, 0.11779767228724952188, -0.11684806370437089695, -0.34157516678375399177, -0.12471035998072588225, -0.083290919299407184528, -0.03285571473570295109, -0.18135912101915549477, 0.17043289762173896573, 0.094838956789539824443, -0.1597664824630647129}, + { /* b */ 0, 0.073618220206590062604, -0.0022034661454478632336, 0.18948155049250750559, 0.10488342872512837478, 0.1018566136577053749, -0.031429803589201610325, -0.036141501734993780603, 0.06141191135917295485, 0.13766930493647536182, 0.064430777704134467587, -0.04979451200932960564, 0.025701316421090220077, -0.059124346167005459307, -0.02257216690736835174, 0.16212608510750292634, 0.036696102518347234467, 0.055920596136981026714, -0.041643049307846922991, -0.096430747652202081222, 0.041209812920335597841, 0.037813250066461717713, 0.098343702773055763355, 0.048742335630406335989, -0.045791237814445107102, 0.023916124844060998589, 0.0008038992096136357568, 0.019401014685008904914, -0.063873397769254047773, -0.070877111835333100887, -0.048087413353891522716}, + }, + }, + { /* 30 deg */ + { /* left */ + { /* a */ -5.5564638593561861978e-06, 9.3852107960201930706e-05, -3.1084894380750682785e-06, 0.00028840725196932481822, 6.4946293412693228324e-05, 0.000155365044510191757, 5.7003061507132635199e-05, 2.4933508036006904319e-06, -0.00013672519873220156938, 0.00028540432156498596328, -0.0003096984341893760373, 0.00059548038278123185257, -0.00076294144120414401911, 0.0011346642860010636156, -0.0015290288656044648263, 0.0025263433554162384453, -0.0018363250559039192775, 0.003292358995918287512, 0.0044893145683538842466, 0.099393432492281275081, 0.044378238408873671439, -0.099042449494685103062, 0.046096231459888392656, -0.069686141489361252965, -0.0044478077054072029384, 0.18077959408453747603, 0.026777358766022496539, 0.09446026603660007126, 0.20126013716523227792, 0.055686081012890069342, -0.061474581435280728492}, + { /* b */ 0, 0.025180167786686968867, -0.040991063065334842896, 0.26971809175449501517, 0.19181840837760588681, -0.15250762307253418193, -0.24123727501546010643, 0.037160259659663186227, -0.11575978546930765223, -0.0019633931924722958229, -0.0063613286760411114074, -0.080834549709765668446, 0.10457219077671109364, -0.041267150275581254704, -0.073405901137024720526, -0.038209215752968428426, -0.008657436421921627101, 0.04235425265723680166, 0.058400869357641549406, -0.092083706177692459249, -0.024897575410173788946, -0.015314459922213807808, 0.025318966408588439165, 0.066904667133937945067, -0.017951122045153925649, -0.019282834278142035878, 0.012661929285409656565, -0.0046187674564157621404, -0.00082718411884008524737, -0.012980776141549577041, -0.049460302773279840594}, + }, { /* right */ + { /* a */ 0.0033885300294439271718, -0.0048613774544705584679, 0.005302865794605711447, -0.0070892003638982695191, 0.0070361738768297960034, -0.0063941087232333854162, 0.0081928188122495221313, -0.0089060004377240070683, 0.17020867472563366851, 0.35789768856113390871, -0.39521414506180546633, -0.12407235017989748371, -0.0089740119029986867294, -0.14021003585508545752, 0.50678090343772674853, 0.01377337314436687804, 0.17528644143745444883, 0.56933646082806399491, -0.072240746769574454289, -0.35931102012550142355, 0.013416561081202801886, -0.033982538129653794279, -0.36652241223536613512, -0.19744384675815446206, -0.091076149317218135781, -0.10323197357604668722, -0.054589396278610473334, 0.14291346832079576679, 0.044643159462969331241, -0.11546406559509028722, -0.012902913224164223871}, + { /* b */ 0, 0.10605423311031529632, 0.014864888313219706828, 0.15043223924465926045, 0.11450889378892231685, 0.041507161879618739708, -0.03674693254257770797, 0.040977443315154751802, 0.10157898434947321142, 0.15279684507974583552, -0.061822560485326125135, 0.004772237741598212013, -0.016819258489976333937, -0.066786210621604474857, 0.1081005394898459232, 0.093086116443072242088, 0.048463595010632236348, -0.0058250974846723452272, -0.081800519183662989686, -0.032885530861031207761, 0.052918311400137335587, 0.073362721889048077006, 0.065072441811087039509, 0.0058499565193945515795, -0.029018687889527036705, 0.034235417789990618687, 0.014857609548302522229, -0.011971843220984736827, -0.076724286436182287385, -0.040299204163377760901, -0.048631300045695255441}, + }, + }, + { /* 35 deg */ + { /* left */ + { /* a */ 2.2246319549504983693e-05, -1.7981306166259231711e-05, 0.00013168464332857961196, 9.9034379204276934416e-05, 0.0003615243665544558456, 0.00041192910880949624997, 0.00055513530303891254342, 0.0004627765871206843476, 0.00030127446919159267145, -8.1061927205416939302e-05, 0.00023778236973165040101, -0.00033298576951335152885, 0.00084825840306751616737, -0.00069129572830007104955, 0.001420559255088660322, -0.0012973704223082083153, 0.0019848520281529093146, -0.0013496792289693941222, 0.0019496759876003223744, 0.0035721438084931889101, 0.079964526305924266136, 0.060786211180906268847, -0.072227985409185901933, 0.033541081923930959885, -0.047731446357855700224, -0.020688550877619171775, 0.15226630594781381811, 0.031397312903122531758, 0.092806103290377084392, 0.19568936619800136878, 0.096992123180227041157}, + { /* b */ 0, -0.056091597445684371337, -0.12532019980467795639, 0.21619816714720657691, 0.24292246036838882617, -0.18441540976129461304, -0.16877038135500177507, 0.046285230921004616444, -0.12996636591072752154, 0.0011975693127094788615, -0.086536047550177241927, -0.082626417097879378826, 0.12612621449737543289, -0.0067070476921643473744, -0.031313081347780769015, -0.054627413082521114607, -0.050072452026928004898, 0.043095265048753716997, 0.061391567137795977072, -0.031588886056574394523, -0.015918232628454875854, -0.039366355925538054628, -0.015517509680679220097, 0.059049611165241933097, 0.0093687542665824019572, 0.030141503283322157447, 0.0095184589911020967001, -0.023527488786957706512, -0.040401343824290891771, -0.038667213391636867659, -0.059674745198669276736}, + }, { /* right */ + { /* a */ -0.0013714152522657646616, 0.0006273793896546808746, 0.00043122457778210776524, -0.0021922389323563579167, 0.0055708395088355927571, -0.0075242460363320051719, 0.010591462743974114358, 0.048398020978598910169, 0.41619284829983088647, -0.14382476555407414098, -0.35882374610701062156, 0.039668989509555538375, -0.1620882671571429734, 0.38019200426458643616, 0.14583130894703361102, 0.06383703585639832756, 0.5445344840782336826, 0.12599765399910417552, -0.28518956246040627622, -0.11700115479775820282, 0.0039966079479203386882, -0.38531175783483723185, -0.22423262908750918321, -0.10515959452829688747, -0.1399597004266011635, 0.043707663783861684659, 0.04139732538284597585, 0.015522465146040196476, -0.052820550344454333946, 0.0032102282042194285605, 0.015984710792678324953}, + { /* b */ 0, 0.13427337041599388123, 0.0048139154348175727804, 0.1572444113827342338, 0.10908352866460453712, 0.025770956456642665766, -0.0050018096122567134998, 0.055807560734215735931, 0.21187737349172824919, 0.011038836686726512248, -0.080848400150794128005, 0.042421610143179855346, -0.075470694051683537285, 0.066863221023921726172, 0.13083208495369075264, 0.033121454529102395403, -0.050277280289135257985, -0.039128620222435295251, -0.012052262736315584243, 0.010345718716008728277, 0.087596569448757793941, 0.022997773874034593833, -0.025031434367365004712, 0.052202915093862989337, -0.0089830303802527350365, 0.068664492264150847611, -0.028446270625478303762, -0.049388113445691245174, -0.0848237667824044278, -0.0093243400765309625289, -0.022253412473574249453}, + }, + }, + { /* 40 deg */ + { /* left */ + { /* a */ 2.1793835894011746233e-06, -0.00027154751197633331117, 0.0005671281328931141244, 9.0822337706075701542e-05, 0.00099206136663226862638, 0.00073251131878920849871, 0.00067401960485158330088, 0.0010339520481461583756, 0.001261491156673288927, 0.00081585154267788454179, 0.0013721862622898001877, 0.00056652749939184432991, 0.00017514670911517038476, 0.0018149465347977447247, -0.0009629098705887795262, 0.0021172863388929652473, -0.0012859543649379467922, 0.0012650418609871942523, -0.00080761000567641804977, 0.002045207774387101593, 0.00012780165967174808572, 0.059086023985258084856, 0.044267535707145921897, -0.085465943991669401925, 0.052769026021581844077, -0.039779355975461117012, -0.042237528407387814333, 0.1643077306221277234, -0.02446083998811077187, 0.061938320602659968639, 0.16384587098797892546}, + { /* b */ 0, 0.33422749822261538233, -0.11487095431066823847, 0.16644427691021174143, 0.38071775606933477842, -0.39012462081940146863, -0.053576722369511053934, 0.068011811522050713563, -0.22451887863150776781, 0.19746958958965360464, -0.065277732785341824329, -0.017461553695752307647, 0.089348993440457880055, -0.075603194818196772786, -0.019483190216752765966, 0.046489056814216778157, 0.014291576027163077622, 0.030426427107856091059, 0.019112163865651898842, -0.091943596894211720993, 0.00084339433090163673512, 0.025779716876124514346, 0.02709668019695160579, 0.04270873769130628661, -0.04509487662892469606, -0.037299422899345069382, 0.0029375173199799875512, -0.0014709831565318243207, -0.033163954348824908891, -0.029644025426878162222, -0.082647976311391035953}, + }, { /* right */ + { /* a */ -0.0039789246353439718801, 0.006133535092132241795, -0.009010367649220363262, 0.012938576527919687376, -0.01631979618553144884, 0.02221570561540889277, -0.017115080265671555465, 0.32623476405816531631, 0.17063411234871997402, -0.45850444292681674652, -0.044599086886291765264, -0.072363693609748216962, 0.1893440694816350689, 0.21226201381446715977, -0.0040666736535709159528, 0.54388239423168593945, 0.29842581082375013724, -0.23242339948278389894, -0.14737358160892799486, 0.032063708780309327362, -0.34195980604076975373, -0.26555148095350827875, -0.14613400600363329884, -0.18983946477948737686, 0.074588566864848854232, -0.024440181328726912069, -0.019429265748025642546, -0.0080576389074145035596, 0.074790705429606918475, 0.019974100701055860774, -0.067154806391257426679}, + { /* b */ 0, 0.16460431381272111473, 0.0027972040284951842602, 0.10698578598074351409, 0.04041523264294942519, 0.087410249710898862974, 0.028702626391889109886, 0.10146221100793439973, 0.18156553983888379378, -0.071713879295784793699, -0.039211217036441703421, 0.030793778252199113105, -0.01910649119353687031, 0.053438277835419004114, 0.12370544227754264044, 0.0047416582382763319825, -0.10684133284608565706, 0.037659786684316430561, 0.0088382827167620553466, 0.043525054958149130002, 0.044306391668120712057, -0.049406157896095606596, 0.010671084977429030893, 0.067328644708557622289, 0.030307410623826858131, 0.044862049177331157768, -0.085971974419243063492, -0.028695458295538260607, -0.08142448996261655858, 0.026977203326033163955, -0.035164209142325708601}, + }, + }, + { /* 45 deg */ + { /* left */ + { /* a */ 0.00016150711548268382404, -0.0019440537467503571367, 0.00060534014269947300762, 0.0029997960951551327913, 0.0017473438424821241544, -0.0034913008790417314649, -0.0013297336088485822714, 0.0029546740437647045496, 0.0017854343836894155488, -0.0023195419721240544825, 0.0038098928129871867387, 0.005714340667335032764, -0.0043362884876059493156, -0.0076623794658531325236, 0.0071344829064012849074, 0.0085652865194213445577, -0.0065424164318386712758, -0.0076128530448159315025, 0.011673780507467923506, 0.0042333848121640909462, -0.016075536998505498415, -0.00062319470183272093755, 0.067045896686504513617, 0.05542911650422560621, -0.11456365746859847876, -0.017773627792316837315, 0.043664478116614557912, -0.026494992388624571955, 0.071614826367208395119, 0.069981694853296638748, 0.05410009876933435935}, + { /* b */ 0, 0.32113328027076204485, 0.29373423297325218506, 0.38933482938681784891, -0.090586007813944074973, -0.21987920577531960831, -0.057359431636112151454, -0.22344633226157803452, -0.12363438135674920115, 0.33827945463841063711, 0.23367396812070881373, -0.20292402709079504497, -0.13842849880823723807, 0.11751149999315868566, 0.081481066321800049712, -0.12070609368596690869, -0.037213914143678639146, 0.13644485314354831695, 0.031379917151685976506, -0.14910167035159932469, 0.037218743909137735892, 0.12517705391255906644, -0.059856545310699865725, -0.055103064822512731746, 0.00172123115449798747, 0.0095876042228992819361, -0.05475981256181788881, -0.045525117256077496375, 0.045296337271901604415, 0.042633212967158051754, -0.11473134600864867694}, + }, { /* right */ + { /* a */ 0.004417449235734144386, -0.00620600649388087372, 0.0063726741346805185207, -0.0066460159533262442438, 0.0072749496685510887939, -0.010562132644713340124, 0.1412531184820029484, 0.41189149595716445518, -0.29560082071015386651, -0.31284630781385347476, 0.013791284580906559842, 0.073780292975883843276, 0.27143177757182124221, -0.049788461825507793201, 0.43780067747246809162, 0.52900554641297115044, -0.18903325950267421685, -0.18045978026173392639, 0.053681675569795278546, -0.20352403802022145385, -0.27235779954244454526, -0.19356389785279901061, -0.28417610303460733023, 0.025695652746474118011, -0.026884398969355405296, -0.055587273835120548648, 0.07687468227252683417, 0.063709559864257719886, 0.046913219828460112071, -0.10119045335950105358, -0.073455519061875987341}, + { /* b */ 0, 0.12523694267447316175, 0.030106660207185158284, 0.091163028595100129015, 0.010834765787190100972, 0.071592206550095252582, 0.058714390304081230665, 0.12465362164220200603, 0.090861745203670657434, -0.003444280655042625261, -0.03959819336804993456, 0.020380346085020425301, -0.01277437795050694741, 0.0098684267116778273676, 0.095808865982682456242, 0.010206453529616223153, -0.027353704550592272682, 0.051750464218872256617, 0.0434786225811953711, 0.015354926024562126283, -0.010280446025986642034, -0.043444088830705065996, 0.03676543185066136199, 0.077987256491148446158, 0.029809860226468615219, 0.0077312126460418045815, -0.082362130505542030523, -0.018751972524978961776, -0.052424431011004364589, 0.010904743472919462, -0.038141478777217741047}, + }, + }, + { /* 50 deg */ + { /* left */ + { /* a */ -7.0597622706974894058e-05, -0.0014187129521170413829, -0.0041973382672311210229, -0.0058731709218912131476, -0.0051930623767848516081, -0.0029746939450570053509, 0.00074269907814061798465, 0.0068509220603474299191, 0.008540351205538199153, 0.0052652735571534492465, 0.0044591066482302394586, 0.011150738290360839855, 0.012062318974492836077, 0.0022383464427094819198, -0.005308597948033844105, -0.0029183510540098378527, -0.0091992071743485243768, -0.021803415056753649992, -0.017754068490916097289, -0.0019571380532878990266, -0.0032260693465929746182, -0.012139060934640566458, 0.0086345886406852256911, 0.066564554163928146835, 0.09702719796146619391, -0.034108301861165979396, -0.013453636385357681249, 0.051139938249747385335, -0.037622455357141926235, 0.037629351289369949995, 0.053611444630619065066}, + { /* b */ 0, 0.13449444518795483638, 0.16598922760596712678, 0.28643099415512351946, 0.061039639002585799332, -0.14318519554738784461, 0.030355409185375825665, 0.018292234915534555384, -0.010792444827129044072, 0.29406308138177350564, 0.16978117316310270546, -0.19761376468752089863, -0.14479296715406986262, 0.028158686575310842848, -0.014840610429028844308, -0.13835806041959108903, -0.12487480125847327805, 0.060761864553032784997, 0.078122467536342887762, -0.071426222519668791655, 0.059574263595527081339, 0.1423682842825041428, 0.024943297676841003074, -0.0088567426092395207249, 0.047857365474066049238, 0.064262716563054378405, -0.0040174613885612941999, -0.10083010619624244164, -0.1174901659180965785, -0.035432070135468785033, -0.10903701903458573597}, + }, { /* right */ + { /* a */ 0.0035403829431335867572, -0.0063994790363381941906, 0.0094807609668512426992, -0.01338496440375386981, 0.017607435620764499973, -0.00054243706903381967363, 0.38819394139654789244, 0.11542622008901651243, -0.50122674108308362673, -0.063632383809830370125, 0.037142079636945900256, 0.21196427083662505719, 0.047035520659341988059, 0.19612761644393400529, 0.7247137348377837851, 8.1468708675903889205e-05, -0.25420295892867450505, 0.06339404868670878157, -0.12628198942908777647, -0.25323361607423072739, -0.22324934898687293083, -0.30038007421886431247, -0.061813695789816359982, -0.022059680251655836708, -0.1396998528962117847, 0.049196289436822214503, 0.069781770804478920889, 0.0099113580072232934648, -0.10035101637286514276, -0.022883120806838075367, 0.045852482443127853817}, + { /* b */ 0, 0.10359200124467059234, 0.0052610111223993366592, 0.068536565964016221697, 0.036899271175761486075, 0.054564604864992288791, 0.099686898476871774188, 0.12172863702120204077, 0.041674938768762603836, 0.069604512032048732051, -0.059011297680986070369, 0.051313382834683098077, -0.023223897932292923707, 0.02582365530437620571, 0.13896725418573549482, -0.036231211028676588159, -0.015840360248773124874, 0.050522971645401183738, 0.033836980910442043813, -0.002528124984245084389, -0.0011833207609092404218, -0.028868936378292221756, 0.053324252075556168029, 0.04659001444153997723, 0.013013853236939522395, -0.043392750016090636533, -0.042388805764409162591, -0.016981208463182597551, -0.037989579387181005021, -0.004257499909570035268, -0.024568667484287445846}, + }, + }, + { /* 55 deg */ + { /* left */ + { /* a */ 1.1578368860037852297e-05, -0.00011816999108404946384, 0.00087640537979605248609, -0.0020280251725873776891, -0.0021068047360156549885, 0.00027187084084001611473, 0.0031304327319237042031, 0.00089292948111940884104, 0.00045933324546720832871, 0.0051687820153134556023, 0.0065643674857646105991, -0.00055561873747722589911, -0.0032679994507733844955, 0.0015441048749342829293, -0.0029191626319674530803, -0.014514898701023515315, -0.012984473763688608727, -0.0046561391591620759911, -0.0083716584381443581719, -0.01356103312845358122, 0.0018988103912126463868, 0.020432107407306054903, 0.012447960186859341469, 0.013390889061007382743, 0.050401262412999581208, 0.1024391092795812197, 0.0076396060180033975584, -0.011690786411236442355, 0.05990382429044149859, -0.036577009552216099841, -0.021380778457980031959}, + { /* b */ 0, 0.10623619191692246222, -0.0067788270131929895257, 0.18852906559209403614, -0.049206343541163821698, -0.01126637043082079348, 0.24317483738434120255, 0.096263757482575873503, 0.05760214667596685878, 0.33866109073667216567, 0.2547586839746901477, -0.059317376256765030895, -0.013459832727269471775, 0.075663009614992948748, -0.035307654850449954331, -0.1798777472163115565, -0.15813077589243995646, -0.049518167965986736867, -0.14129805415867557894, -0.2164595138297309429, -0.022427379978498529489, 0.031400080641869054787, -0.061226279240850223218, 0.010520714239237172194, 0.1198982523673702838, 0.092899746554145345989, 0.025864164006697554221, 0.010682328837122168075, 0.035779475401134797075, 0.023278286305425388569, -0.11316441404674026927}, + }, { /* right */ + { /* a */ -0.0048765805688135432927, 0.0053151709295158611202, -0.0056105185624460915395, 0.0058353469265925300702, -0.0095124904947408925326, 0.1474736271262454268, 0.45015598574916032559, -0.31617058194011959937, -0.37500561058249115565, 0.1024040461535024038, 0.09880224296723426336, 0.13507025371908992772, -0.0076921438847904824443, 0.70384742117252319105, 0.39354022432035029588, -0.35987631054416541199, -0.016295617248206911709, 0.0037069899110325136952, -0.18230754888878106246, -0.25574618730660003685, -0.22473349359278305126, -0.086128208326026980957, -0.066843673532245156954, -0.2811472454940759369, -0.071489158758016368989, 0.12593590396064910375, -0.084427226536140737023, -0.075750225784808708496, 0.078348230738386523409, 0.075996002542261575918, -0.0088596280720283637766}, + { /* b */ 0, 0.10992763307071229395, -0.031950991955910876263, 0.067764336110112510791, 0.011642549958236145247, 0.065471901287065897845, 0.1673034870980578126, 0.028095206047705489905, 0.027267773057104531531, 0.084579867348890197531, 0.0099220485684850534547, 0.088989181038956643999, -0.021794892683911493148, 0.11813758800985002528, 0.054176192981242488056, -0.10363299382656462888, -0.018662590133854996266, 0.070475304695992779802, 0.051096625691584955653, -0.027165719683553204988, 0.048772571120754747154, -0.0011836521868419450088, 0.026143533279308905914, 0.010018324394546467004, -0.027326001794422516422, -0.054777896142175867833, -0.013206742436717121281, -0.0049659044408859077946, -0.041443238983922443819, -0.01206157172231516958, -0.0033435101275689320388}, + }, + }, + { /* 60 deg */ + { /* left */ + { /* a */ -7.7511870492402576904e-05, 0.0016441118738663718091, -0.0014490512186687842799, 0.0013291594554154519906, -0.0033660169662663719237, -0.0035405112611824867547, -0.0018534540596054638328, 0.0026523822617419146042, 0.0035696953020608597311, 0.0010309818936765626982, 0.0015555973072872710753, 0.0069861562371903440649, 0.005884164429037497257, 0.0020504561617368248679, 0.0051656079144007938098, 0.0018480741443421826349, -0.0098740636215316479607, -0.015193873352109532604, -0.010129356530011455681, -0.011786926255030749644, -0.017737538763468174707, -0.013045360977154141224, 0.007715513063652479353, 0.0077814785513774520354, 0.0056104852005217642485, 0.032549948194363076404, 0.095042192724825724781, 0.041711508438485589423, -0.0079170798496924765786, 0.06418245741109107616, -0.014766641064020702423}, + { /* b */ 0, 0.13754721824368876248, -0.063493641654088772697, 0.22830296737448574351, -0.06090628577308521141, -0.046004693137549623749, 0.21580730819120708119, 0.12307782917671261647, 0.089740574449950760716, 0.32648577436567016719, 0.24035205934268277783, -0.072543872172078915916, -0.012821880001484542433, 0.061865137137434578207, -0.05044571494396132838, -0.20687345392352007867, -0.19352544602058152634, -0.081534524324355928115, -0.11527908326446067999, -0.19205089159229915552, -0.014435573776200305574, 0.091578567882680261825, -0.016821578118150770642, 0.022722319119941603027, 0.083369554422021985296, 0.059078833427872456951, 0.062862807790400876407, 0.050723340750263856691, 0.021365973798814774653, 0.0016529181815633231523, -0.15764243352166251722}, + }, { /* right */ + { /* a */ -0.0082355372166692739078, 0.011221317614100445592, -0.015398602139821311596, 0.019928042385439565659, -0.016098624365389231639, 0.35687158954924280696, 0.25056043621692913881, -0.58374093063797949377, -0.096587696990415444764, 0.1417547393039359227, 0.12297834557525599841, 0.022570043259149269455, 0.33375919715316915148, 0.760382535490139011, -0.16254361373105752353, -0.19917812853966368469, 0.070067615832109297891, -0.10829091532814275056, -0.18484059920915038577, -0.1432702217603286643, -0.12124479647419947326, -0.15236845595713283119, -0.18674136242612379699, -0.25923778948833559044, 0.0083936426743206477008, -0.099921477749484607922, -0.11575635007653031772, 0.11489835825258340463, 0.05190968921625193494, 0.041271947034530499787, 0.031437997309678028524}, + { /* b */ 0, 0.10868828192197363403, -0.074118270899444116395, 0.090777214578766446396, -0.013578916722286824004, 0.070883676521874855458, 0.11959741347631475117, -0.01478983329482146114, 0.072627013198334366972, 0.061154270063062954321, 0.053538843911089990801, 0.10606045726597232437, 0.084565973879056371976, 0.12939459925111462812, -0.071073677257657563722, -0.045887381062256933639, -0.032179006816211025432, 0.040614594623645042248, 0.051338232550410083099, -0.0046888299313390183198, 0.08651005715390544526, -0.012422527402296091453, 0.036899877754051693679, -0.022144609442510329589, -0.063400842038184745952, -0.026440060318911294546, -0.023673563205560410605, 0.0010511162089202694819, -0.047472031235924229409, -0.0013554914729107421512, -0.0048621235097193868033}, + }, + }, + { /* 65 deg */ + { /* left */ + { /* a */ 0.00021209643066757990983, -0.00031257144469942722484, 0.0016441805216621534387, -0.00081058611586804288351, -4.3648113456917552941e-05, -0.0012284241081988998053, -0.0013372660613575335694, -0.0012448771791878643356, 0.0011663351290325252307, 0.0042197117786080262647, 0.0023254717276821601502, 0.00025887355412090818849, 0.0052097013800850300314, 0.0068133846221896101833, 0.0012296601063083159242, -0.0012431805547497014504, -8.8048805399475269656e-05, -0.0038129513141305082513, -0.013960404317975294575, -0.014560488715287256412, -0.010102471322895321612, -0.012002486002929415101, -0.016113745186924210984, 0.0018967118588925058718, 0.013449767355400155111, 0.012584539113361103979, 0.020867824729736694778, 0.073836201193860917513, 0.067122965072344276116, -0.0018477671601818679292, 0.05223682330510182048}, + { /* b */ 0, 0.13309668338776226015, -0.034796214140597747644, 0.20259809733892686356, -0.074229467116257441539, -0.033589853999302365928, 0.17194460518329957033, 0.14053069634131776233, 0.10398223014011775955, 0.28622058494381930061, 0.25553069116036886133, -0.033340385994645727052, 0.0493901404229751817, 0.065507437268241819339, -0.14259732883797893166, -0.22103298760553502511, -0.14786809695042923973, -0.12633674696810315297, -0.12873024948879818741, -0.1027909150680406114, 0.0014565313397746360025, 0.023432772310455485254, -0.066093717438972521272, 0.043814867214386765681, 0.11896612672430972868, 0.044357594944782752222, 0.040347747146118884132, 0.077413706726509046163, 0.040768513366040703971, -0.045448434075889831973, -0.11511235099577465935}, + }, { /* right */ + { /* a */ -0.0043138529817596110716, 0.0075413039075933347571, -0.011521651041039235319, 0.013325571083565648789, 0.041007771396277606368, 0.5053361523397409405, -0.094698397193346620093, -0.61958974147486567396, 0.13570958419739470591, 0.14441422292394201499, 0.085033815695051417904, 0.092603593314331822395, 0.6701887476182314396, 0.36261635455576279874, -0.3621843326644283434, 0.0042299442428242461922, -0.002366041054087388365, -0.12368382816733622387, -0.088272849346890044919, -0.049419563996561458041, -0.2125426294795428328, -0.1586871870165506293, -0.190927188977616763, -0.17006683683656526052, -0.060741253294065850055, -0.19496219647700138711, 0.036515091593278953264, 0.06314691771158037481, -0.015262096579524153661, 0.048691056102282553875, 0.021226484220801533631}, + { /* b */ 0, 0.089542514489504565489, -0.058716409615418296841, 0.10736888709090598726, -0.02331315160544743248, 0.091213288884433446624, 0.017298834005556238541, -0.016589287472655936395, 0.079801817869399827021, 0.035479049186560793205, 0.068019632837512306045, 0.11886793181633235894, 0.13836077542754027236, 0.070163159715686679307, -0.079640800716906573475, -0.0062391578820996523858, -0.024478254830942465514, 0.038586029342448785462, 0.042690244877749763952, 0.0082479014534321548613, 0.096996213193910676975, -0.013540957110730333923, 0.043726799693584783579, -0.050859473091123888477, -0.051383908254952481709, -0.018315577251619419297, -0.026445801315291839195, -0.0068531948455192986253, -0.042271390394759897347, 0.0064541724220136438561, -0.012350604079308658001}, + }, + }, + { /* 70 deg */ + { /* left */ + { /* a */ -5.1811224841032703294e-07, 0.0001195077510562910048, 0.00054565132884265522481, 0.00036921285875846077389, 0.00033238357281806241161, 0.0012172851626690581531, 0.00026386278322021471977, 0.00076749530397712774007, 0.0027338096357520935697, 0.0016283443813464026917, -0.00062622425994751651501, 0.00012757274674146668048, -0.0011569955119666852639, -0.0045294448897115202612, -0.0047029865648390289934, -0.0036212338211383254816, -0.0092852833147305524619, -0.014348328680399702328, -0.0074853254233148147634, -0.0050769693650531966256, -0.0098573400794665921865, -0.0040309461902393595167, 0.010067145221129281119, 0.004994392654444901325, 0.0063956208098958633457, 0.026055905177485572111, 0.030774492283322522207, 0.020200953112017860924, 0.051526075933797099715, 0.081379623049979143978, 0.0023131432713013877489}, + { /* b */ 0, 0.10894635247324369054, 0.08226281338868934867, 0.13188409788832122782, -0.10259859632821832776, -0.036453212321138628305, 0.053734255601595171115, -0.0047133499977286552607, 0.12938685340448119465, 0.34471458269645649519, 0.23193048383982062255, 0.031865410002815397483, 0.15000719272233176138, 0.11166707115740914791, -0.12525365639212693303, -0.12533914392043321584, -0.013940020445260548065, -0.076263219169064866421, -0.13523188830209809108, -0.12570995087821112968, -0.12364896750882703458, -0.11644943785832362337, -0.057756822422969089637, 0.02441554646979982035, 0.0003564445640730218301, -0.021530279351658632159, 0.034706834490041971186, 0.056194495670694455391, 0.033570314935671419221, 0.042081857466388927769, 0.021545695715191603981}, + }, { /* right */ + { /* a */ 0.0035836200210229286582, -0.0031072734051323207261, 0.0019421304212324103089, -0.0058643234854055224792, 0.15128443576764849521, 0.52834049315792519508, -0.43710112538159973106, -0.47925878830830015431, 0.29492476075622842124, 0.11155941490950406492, 0.042356073563245243141, 0.29913230770566656691, 0.71528723603458332914, -0.047873961502792675149, -0.27559532028674138537, 0.072072004801736505586, -0.052072379004377590539, -0.039855623428972607181, 0.015994912410223841026, -0.16099078872106220572, -0.2483811542539591799, -0.061804120649365870688, -0.23081587273945508576, -0.14671726044973676384, -0.13359308987310225536, -0.11866357264318513898, 0.057726807929955707699, -0.052300350854971928982, 0.0070598896143025946515, 0.040982578067495951946, 0.010737637321303616922}, + { /* b */ 0, 0.085990202435275248094, -0.045241177450963329654, 0.10617869357694004195, -0.027274277623547289739, 0.081604490424743256205, -0.044586295972629322315, -3.5857159416154138487e-05, 0.065533207614784261263, 0.013976222370463801947, 0.081284503898977275571, 0.15219632615988584745, 0.14536894803318561875, -0.0047486841226037877772, -0.028328518717180534159, 0.012226862885177103291, -0.023973643258740594264, 0.052947342934830943229, 0.027989269883246792325, 0.019243641513648143682, 0.081454590263969284258, -0.00708365997103155981, 0.048979713260849030987, -0.060966803987036639889, -0.028789221111322378654, -0.032056881092154890234, -0.013506612710420529133, -0.019305102195920839647, -0.036637922409973010252, 0.0051001653031878674271, -0.012499719609549049537}, + }, + }, + { /* 75 deg */ + { /* left */ + { /* a */ -6.5923442983146108426e-05, 0.0011271001093549047091, 0.00025601249190043554645, 0.0018847194721560711628, 5.0876901303009702815e-06, 0.00012011933336886215784, 0.00083171514300706128608, 0.00052309243540882353722, 0.0011673413852220091477, 0.0026861263670296948829, 0.0010904448629472929255, -0.0025833300498073752394, -0.0036355509377972161644, -0.0054094004553473240549, -0.0060745633297804024764, -0.005798110979324255787, -0.0058363766689689677847, -0.0064945304305980000592, -0.0096925802501451885362, -0.0107794127797433692, -0.0055240783044391283951, -0.00062055389930815163524, 0.00099273240065922419006, 0.011862141140531190509, 0.012128941204794796427, 0.007469531601092538331, 0.019089850497380767003, 0.027868375799752764799, 0.02564535563215342151, 0.040200335544512966202, 0.075140591824576774549}, + { /* b */ 0, 0.16821546891768179854, 0.052070955596089651962, 0.15059408780382366189, -0.034484929464922986497, -0.09681834645926257199, 0.038993096989556330634, 0.025165602614909965418, 0.068217434327291756602, 0.28588626697426122725, 0.25322530989441149885, 0.023257670143314590483, 0.084631528479706119583, 0.087623863125815826258, -0.063289424224385881779, -0.04111210934180931087, 0.0062099315267100108073, -0.086630674442783606182, -0.14520617328789287015, -0.11845477998956299714, -0.09507741318859341817, -0.067074376130724089329, -0.049297931923528159892, -0.032629951249585342765, -0.032322618598035202098, -0.028774768976724818259, 0.0050862628908632245839, 0.030059867262149930767, 0.03619620949003865551, 0.040048636948536442404, 0.074784483329731754608}, + }, { /* right */ + { /* a */ 0.011019275525695253204, -0.013849992827126740569, 0.016917266614222860321, -0.024593574280674067312, 0.2755979158975589427, 0.45173428558416955925, -0.65405270132110782111, -0.27540548350881166595, 0.32271395364772170744, 0.050144850607296634348, 0.097796546761367855738, 0.52489190531289731112, 0.53222901585795523438, -0.28672062269614356778, -0.099921138514967006161, 0.074086470897411355052, -0.054510924206991988317, 0.037202647828410775888, 0.01654229015551119536, -0.26427705887042252098, -0.17851612488609874818, -0.087535243016548386352, -0.25308108532219603104, -0.11270654329725227072, -0.19911311611538287658, -0.087208381822291847207, 0.041575970333826602066, -0.046835263936002749507, -0.0031789718109168432769, 0.017733383501500332713, 0.022284914124549512482}, + { /* b */ 0, 0.063654984772485573297, -0.072258235141275717339, 0.11143147791531111956, 0.0087840137916747988711, 0.064463015400774259511, -0.11346145969663629094, 0.02100129439068075532, 0.064648989334362388925, 0.038270361198741026376, 0.071675930769700912926, 0.15879780912824276173, 0.14156427256304554563, 0.0029008342249592002776, 0.013453795811311022868, -0.031978426252195213397, -0.0047055545557023736869, 0.057295800200696245241, 0.019880527866045910601, 0.023882626203728003766, 0.0816614286701679154, -0.011451559711870597236, 0.036329458605499818924, -0.041088532580567209418, -0.023652412022372691636, -0.026671112082336280447, -0.024258466376539916665, -0.018453252246660931113, -0.03518859123466042127, 2.2642044285488299076e-05, -0.017197498276247558113}, + }, + }, + { /* 80 deg */ + { /* left */ + { /* a */ 1.7418901153948339409e-05, 0.0024829349213467679855, 0.00080662799356590042521, -0.0040748995594475090343, -0.0043772687331744553063, -0.0045817695894234677922, -0.0026921600358026384972, 0.0020317311486689479741, 0.0021593746597770016246, 0.00066712085501630102868, -9.5710687916805595003e-05, -0.0060753720715345238546, -0.015743200903750587116, -0.01434605846804826168, -0.0073507314333337570034, -0.0062768288260767191034, -0.00052040153811216960378, 0.0089624149056388713319, 0.0087255307387040792477, 0.0041380932427198535706, 0.0025873059441433587935, -0.00056427236265477176674, -0.00042937015477806351159, 0.0051603085642754065177, 0.013367090647350976518, 0.026507895717620133524, 0.03763876907939001093, 0.037489388889297425855, 0.028338574035793876599, 0.023157443746341099811, 0.018735089226257217732}, + { /* b */ 0, 0.14534882996838915936, 0.14803175382258060289, 0.094844719201528371322, 0.067106074548503591437, 0.0076561274135744650238, -0.045065770755345346821, -0.048916309039123695435, -0.065139716880976972213, -0.040503460437060767596, 0.061896597042185308446, 0.14430131906391363561, 0.12502812778689142981, 0.13307255907833714925, 0.15846438120380168524, 0.072443959380358302624, -0.022362089126953810236, -0.045059346560211155364, -0.054526658792158899658, -0.054612633246867159365, -0.023133071334960342291, 0.0073895288997538610687, 0.024334450270876994971, 0.010667863612340289237, -0.044504676902160089647, -0.098200245560384202825, -0.11766865822868122216, -0.11382238342308448331, -0.093681436951140173441, -0.019605847884629490352, 0.090021698045603115723}, + }, { /* right */ + { /* a */ 0.015512396634440192567, -0.020391464096575218079, 0.024050195860016859717, -0.029979857909256946158, 0.36905414956375964808, 0.35065405180331060686, -0.82070459684360974606, -0.17294854510044505025, 0.5091349998282543865, 0.070519733383666086124, -0.077559956631959026119, 0.61125406796720882507, 0.52623629698317675452, -0.46897902004352903793, -0.1714417829200720611, 0.26948853777138070953, 0.097069492238713306342, -0.14707004524472033768, -0.096403658302783926115, -0.13634031166999754925, -0.098303552232116911402, -0.18241456272988593179, -0.21530248155336156879, -0.11279416724501584168, -0.23690606176759601564, -0.056911240660061090946, 0.037438849309527962028, -0.04578389942453200967, 0.0046264186300080251124, 0.042007640021230613359, 0.022151274334351871154}, + { /* b */ 0, 0.041982195862818455501, 0.08254722741980052847, 0.072664427252597960094, -0.11829377132001502038, 0.070236617743524298874, -0.011901997620548596113, 0.0077893227590393396276, -0.0089008987991332638723, 0.090522189974536967916, 0.095324643530981037487, 0.11754453832870694063, 0.13654235503493533654, 0.034013562766714577901, 0.02340727949840144817, -0.040713847604418457182, 0.015732261217336895864, 0.023791283777080396433, -0.0028896805095383198969, 0.0169974431277371274, 0.072837038118719221735, 0.0039342201881270161268, 0.012312494370343705571, -0.021651764233942757953, -0.021179489185238833948, -0.0081668579190747464525, -0.03054195555383248939, -0.019423375638861345438, -0.04295726081561708487, 0.0067010462456371100437, -0.019120058380112447266}, + }, + }, + { /* 85 deg */ + { /* left */ + { /* a */ 5.4207905774400502404e-05, 7.5793917808653077373e-05, -0.00036713129453191939433, -0.0015618904773695430066, -0.0024990267563640422566, -0.0026372051095679980084, -0.0019537977059835842653, -0.00080050034712009221494, -0.0018979737133328900001, -0.003172980689997162429, -0.0025624502986154595874, -0.0049276394160913117304, -0.0082707509296842118829, -0.007992069046836025592, -0.0092253530901975633327, -0.0105164612737573826, -0.0039970754482643311434, 0.0015139378144179982399, 0.00047514063947207141325, 0.0032575344298402253429, 0.006201190368149145371, 0.0016213095890837969648, 0.0040644636932485322944, 0.016439269262674693906, 0.02129002660264389668, 0.027932376313460904882, 0.040271769366495568931, 0.039282525111511423788, 0.029202236994929631209, 0.023979121666767300169, 0.012741959251327816816}, + { /* b */ 0, 0.058008692718908294594, 0.077001205963933561094, 0.095079889668447936657, 0.05750192471398740679, 0.055385520693063128306, 0.068756639874378855382, 0.023913171111333841878, -0.0029203640386499252202, -0.0029721632491264138309, -0.03824664324664217574, -0.035867937897005042203, 0.053236292890807002109, 0.097727381831724802197, 0.10594328185259405117, 0.15491145954144025509, 0.13646633487365833481, 0.042836349739144852222, 0.005589485785606473911, -0.018748615375624444468, -0.082901956566933110437, -0.080797429955759003661, -0.039435179337715675629, -0.046340158566526845618, -0.048427734634648444967, -0.034067592635106391796, -0.060826253589774115227, -0.084456034839947013992, -0.06411890376520346102, -0.041638553569395275744, -0.011361247130581286768}, + }, { /* right */ + { /* a */ 0.017637404019566080282, -0.023146976510304839714, 0.026545048936775856446, -0.030274109689290909508, 0.41203671504139649517, 0.29639804351685683503, -0.89791623818012644698, -0.10535778408185016153, 0.60757898399007725931, 0.024978129788012087831, -0.14743139188086634705, 0.71873064564674038479, 0.49418969158774794792, -0.62062564666938124791, -0.1537079765276824217, 0.45739395065715737765, 0.073932804114116082439, -0.32371044784339197964, -0.039912490742135750543, -0.012636479730003882804, -0.14847117245701110799, -0.20037727215219974797, -0.12919185722683890205, -0.16960876451316783675, -0.27984633351919496747, -0.037881302318437670706, 0.011410078671189247124, -0.083369129763727345406, 0.026709242074499095487, 0.075985860814370073668, 0.021280055718898502337}, + { /* b */ 0, 0.012410399428397497074, 0.15419767583516708065, 0.044336732203144324505, -0.16155512807170341327, 0.097794779635425668762, 0.028450550355408124603, -0.021886728378568004461, -0.053240842936555163312, 0.12024645298295937035, 0.089631044274977519914, 0.072930089746372356307, 0.15639732412983112231, 0.088433184541984732885, 0.024345740863166279166, -0.020881518480592164977, 0.036574638166480696877, -0.0095547481038585346802, -0.014256673297645752752, -0.011645669012270293274, 0.059601517433541598145, -0.0071614952672649674625, 0.02250688614354422884, -0.010717105567844815647, -0.013790642205040518076, 0.0052048230799340358677, -0.034950820363846904493, -0.013621506644743638925, -0.033005877849209136476, -0.011242747822229337551, -0.018391922098279223086}, + }, + }, + { /* 90 deg */ + { /* left */ + { /* a */ -0.00021027350211119634135, -0.00076954670552575963477, -0.0011207516659172984258, -0.00042666875046948500583, -0.00054082018030587875046, -0.00081260628920221122939, -0.00090837626309792085522, -0.0019174726827164700893, -0.0023521897586642470657, -0.0023920627754969734161, -0.0025815123637362704864, -0.0025258929374494254461, -0.0058967493983541618974, -0.012319825143519702593, -0.014053078285086728627, -0.0091114297819105960485, -0.00068447180839870114255, 0.0067545738888230566488, 0.0060516706282265353423, -0.00056778821963532344341, -0.0024491019702532765626, -0.0015151936721968795041, -0.00056192173400471156011, 0.0046321597563236949213, 0.010342522776957130404, 0.015535668206057007268, 0.02835261129333077959, 0.042384537828482615751, 0.048529210478764905901, 0.049409287418838987449, 0.033861063585272077603}, + { /* b */ 0, 0.11751352912328649758, 0.066881041690391995758, 0.011611767165436992499, 0.03294226308819814264, 0.025103883935645443515, 0.029312215250876239026, 0.067710098670265006504, 0.042243824341647862042, 0.0026960360979821906824, -0.047575363222307487376, -0.093041097951607198979, 0.00046041687407072373617, 0.17926292561601386844, 0.21698522719396096115, 0.15024545135314260058, 0.11181873055793323246, 0.058785092002106020814, -0.015643363836109758225, -0.056250849052585927268, -0.088323964511638486385, -0.1180599631592227361, -0.098079574614301501256, -0.054691967391884421801, -0.0042877756914472264782, 0.02967474956150351062, 0.0041033038782056774352, -0.052367108693135433484, -0.096005862271902886462, -0.097642108675688454866, -0.049513994578587183781}, + }, { /* right */ + { /* a */ 0.018150091886578817446, -0.023845130864017311662, 0.02775998848373803507, -0.033769769876715663437, 0.40491345429583497362, 0.30159629298977624901, -0.91025359983279008347, -0.081343437060522535975, 0.6034854052168470151, -0.016960078838921387179, -0.10269926345311472526, 0.76352954683775542399, 0.40219093258717791839, -0.67920968317533791936, -0.056851256921459925042, 0.50905276924295583818, -0.026665421050103131628, -0.34920467562186752186, 0.0904739783458112512, -0.036397887595374447955, -0.23393069424555568148, -0.091199150924403324381, -0.08447542487670205158, -0.2564507423497264238, -0.25721831617591872643, -0.002125597952633978549, -0.023743067912420159904, -0.14477973281574843534, 0.022873577043523718455, 0.10671418109207270186, 0.019985873195510830969}, + { /* b */ 0, 0.022491626840903319873, 0.14018081549356001259, 0.036298385305407951384, -0.12830863123070554432, 0.1263510274922885479, 7.3727942596565898548e-05, -0.040013158347134217263, -0.040805047872806074483, 0.10760179031267538829, 0.050746002994671302044, 0.056791978592174836848, 0.19465630967095987058, 0.090536167472289943992, 0.012593323203309580993, 0.023442724816696527967, 0.052788767871281977451, -0.02033437245395515458, -0.013196282948289839165, -0.03588112911393463722, 0.045571940713064196249, -0.036429356549544406052, 0.012429019951958051801, 0.015175738110519865209, -0.005163890233013043729, 0.0095466567671172869458, -0.024098419125345715841, -0.0027907433619838569946, -0.029257612807875116312, -0.017229223565869491996, -0.027034952156425318126}, + }, + }, + { /* 95 deg */ + { /* left */ + { /* a */ 4.3144119567767368149e-05, 0.0021302951028895344976, -0.00072025735438352445072, -0.00013430419547322269835, 0.0021619131040928616164, 0.0029562742718397547539, 0.00096759804273094471988, -0.00066731916388562597525, 0.0019554424952883397992, 0.0010573150741738377226, -0.0057630517610873779541, -0.0042654429244920457828, 0.0015852209983568954499, -0.00080285248435507682897, -0.0069895806820152728278, -0.0091754745607658394491, -0.0046974684961287316298, -0.0031730985117911503224, -0.0059280793673899268015, -0.0064032724680918038165, -0.006423050928003326554, -0.0070405610571450116808, -0.0077339430447354029496, -0.0014087955666625129325, 0.011971743844804705326, 0.013240980043030536883, 0.0092823699160415884535, 0.015909933135591081133, 0.035265748517532280459, 0.056161277110985952099, 0.062561299477500997845}, + { /* b */ 0, 0.20709919017362909965, 0.0098618492626323384087, -0.022612805280972092525, 0.084165341115993719256, 0.16295141133805535194, 0.13525992009599807631, 0.076210698016637712371, 0.13542574322733536007, 0.12770426112175548017, -0.15277262657230339382, -0.19301078065525612004, 0.030943661178395309719, 0.16248284197585560751, 0.21971897027288356252, 0.07839165727906161063, -0.06874609237615680879, -0.016754077436093028908, 0.029805198816373890125, -0.077448460786694317548, -0.15288485929854100931, -0.15750109847730009438, -0.14646534862002014155, -0.085980202811780648275, -0.012868257388554127374, 0.047737443159209802523, 0.026936777247771326316, -0.030203923302996038558, -0.015646012142198073569, 0.051186183679524654977, 0.1190345000479098303}, + }, { /* right */ + { /* a */ 0.01692233902813708446, -0.022198608990108524563, 0.028099027819879392187, -0.039354076304459403857, 0.34863248838263793949, 0.37030810409398823291, -0.81202423172712479005, -0.10771914287425415901, 0.38881054615390941986, -0.0028186697992533052415, 0.15279498696206239572, 0.64893570506150766164, 0.24152380950455987207, -0.46843371022348617716, 0.040251807388405093369, 0.22185368445738418153, 0.026645189291616723504, -0.039489443724228558141, -0.030196096577209466383, -0.28276446496745261117, -0.10981838965732558522, -0.014211428795898178867, -0.23828445961990032953, -0.20240959014934223337, -0.14479536848323548703, -0.09799054788940303462, -0.05841732980083247373, -0.079964546967404639966, -0.019575448765071085111, 0.084889554289851065771, 0.056574151995427736372}, + { /* b */ 0, 0.044253003048792295682, -0.058688959402343476857, 0.11139315219106762922, 0.017428467999755184459, 0.079856031028604626543, -0.094212947161441934485, 0.047957245507034521048, 0.0050481755695976071596, 0.035439933418202063109, 0.084984660605178799497, 0.13136657987866395825, 0.12922176951737388007, 0.037151492684652648313, 0.060936255183892382159, 0.019033300477288780939, 0.046573677877307567696, 0.011154648339030230619, -0.020788905402422175328, -0.029532534082383869734, 0.017164554652654588629, -0.046263076050861294541, -0.0079167598297791019757, 0.022379966080907434667, -0.0091716797912888906041, 0.022277703175120792262, -0.02238749197036766711, 0.0071438113455552301745, -0.036059010862666412978, -0.0043682279381737978974, -0.028520125641734627581}, + }, + }, + { /* 100 deg */ + { /* left */ + { /* a */ 3.8678007732439994838e-06, 0.00036880559217689068419, -0.00071422931596787375425, 0.0015315462861820172691, 0.0013974373520159177886, 0.0013013753347168579774, 0.0025956690450495995687, 0.0032526644595798348547, 0.0036340130423612171384, 0.0031337673469383755739, -0.0031445933911661283489, -0.006291570253877387664, -0.0031212408654196499569, -0.0059143209433371035644, -0.0094436593248842237713, -0.010033109807058848695, -0.0091828205094068859893, -0.0050242048843518460899, 0.00022635591977182570257, 0.0026831373144825532151, -0.0025832568337907928398, -0.011199233881722947537, -0.0090800117833605975548, 0.0047504101117340491456, 0.0074455714467458466999, 0.005686961780868027283, 0.012409919323344564823, 0.017226539487935621509, 0.028654026888730310674, 0.068762734723379348445, 0.072600415099710602362}, + { /* b */ 0, 0.1413129266600310352, -0.0073914337867658774783, 0.022834191067966358446, 0.050140980169949278533, 0.049027788577155062555, 0.11641762768903329839, 0.16322290968165398262, 0.19894767328013096552, 0.22894987291049995193, -0.027045810778655865469, -0.26571378944677259692, -0.047611977908035285623, 0.11705887087903876775, 0.065492599011507390827, 0.080517969516941123587, 0.064856092412760024679, -0.02627393330616178968, 0.0076090381427584841134, 0.078206132751237888989, -0.053194635189005023967, -0.20185179645061668285, -0.21971235027985758226, -0.16978804320735840783, -0.09891850269103108495, -0.02115339760265511071, 0.025780282346676841598, 0.022902251530926287515, 0.020839531242738962291, 0.074518988234795191516, 0.14546865989319146539}, + }, { /* right */ + { /* a */ 0.011966198050782757278, -0.01496833593309099264, 0.016450527454028689156, -0.025926850401778410438, 0.23555114438391683285, 0.4722188962311174576, -0.75234591910942427706, -0.27801732081729912949, 0.53915520795346294491, 0.058085551110777060291, -0.058566576042035599359, 0.51853021102951979415, 0.48054627214607975594, -0.48585026237959572093, -0.15351342024705222356, 0.31670886696633759883, 0.16315084986006778145, -0.10738911933637247664, -0.11149882163329602469, -0.17039061038015274052, 0.0042422902277487392619, -0.0078028915498091350189, -0.36061792668445225019, -0.15431112049922079965, 0.0056192329624029507817, -0.161735335935920016, -0.16088938293551427461, -0.014354427764549752833, 0.062287468304296059185, 0.024598150199371844604, -0.029702161103367999417}, + { /* b */ 0, 0.11504375649924208913, 0.021651963885253810993, 0.10021424308853918439, -0.10065297428003720792, 0.095000281296097124906, 0.023494773330606733008, -0.016304743455830727344, -0.084119092396599648431, -0.0018681129193348286477, 0.16086967464476359391, 0.1547736184561407935, 0.035506119840447707137, 0.0021680979266731487121, 0.14736967829420749565, 0.032388603988108173592, -0.014040054102954644538, -0.0074069314810135834098, -0.0068700930707776136641, 0.0046630860661743883319, 0.0017586704099742042628, -0.032198686096395617851, 0.0050750934625035867831, 0.02081839662318105133, -0.029219757397332818405, 0.029697584116748429461, -0.03943419296503075655, 0.032075243587325115435, -0.035072374385213510306, 0.0035978369066023275884, -0.031802406372611821683}, + }, + }, + { /* 105 deg */ + { /* left */ + { /* a */ 9.4464175203451297529e-05, -0.00034244421284745647348, 0.0026178336597765267807, 0.002987633016607316172, 0.0018853869852841764754, 0.00045206286006238376174, -0.001268446398333677571, 0.0020279656421512415321, 0.0030288385766130687671, -0.0038811095125906858172, -0.0075575813094502786171, -0.010229789842788883369, -0.011581592352233327503, -0.0073160070666877796697, -0.004986785201444021709, -0.0045074024905555898357, -0.0032919373525036607978, -0.0014195923712934097657, 0.0015888908617284211791, 0.0045270852556261731436, 0.0061991054128851530436, 0.0029025465434623365368, 0.0019189911238531860531, 0.0066606047902095788515, 0.0079475207345747200804, 0.0057883047890894302745, 0.011572011089297510461, 0.018921730568569050668, 0.042937813008875336251, 0.071911292230178447404, 0.025067402116066284101}, + { /* b */ 0, 0.08696686852271984236, 0.01578577589152196925, 0.080596070642993677957, 0.078967631586684960965, 0.027571309059240545203, -0.017849018280266526482, 0.03678492740549765827, 0.26450544155613708863, 0.28130387428208780687, 0.028682499716783937949, -0.083076202529522302775, -0.11054641272073562064, -0.070511572391532273407, 0.072697528049545101503, 0.08803285558675599809, 0.060692369318604555417, 0.091712773311602990844, 0.056769837322862004569, -0.029069460460717788663, -0.053468190293962103432, -0.049532799916429670617, -0.097734676907518247546, -0.1433145927644957629, -0.12552474600482921296, -0.10327250824185285616, -0.097065348691610653376, -0.057873120256762833336, -0.0013652695425581118371, 0.081695758853764233187, 0.15936741351876837491}, + }, { /* right */ + { /* a */ 0.0015668016976515403149, 0.00045427934985357160125, -0.0040624383178386076765, 0.0033630907472987142323, 0.090224127649338028978, 0.55691589500825799952, -0.45046585761131857639, -0.51700272135909752791, 0.40994229687848926513, 0.12186291752863150084, -0.017702323542065183382, 0.3852700380226054544, 0.60735360287334350105, -0.34406050321392755986, -0.25331881626544316966, 0.32373118512070442332, 0.17009464975948093701, -0.11799552026600904076, -0.053982922896562278436, -0.10496289068836175962, -0.17613957317129758096, -0.010978053477058748177, -0.22407543854546807527, -0.22678697091639107852, -0.099112038357802939581, -0.10828770800024090093, -0.096155268437089880251, -0.071548024391486636508, 0.0031216356084383112268, 0.055150743162330623237, 0.0020468437013712518883}, + { /* b */ 0, 0.074935774006172503614, -0.082168941655711369432, 0.13844432786310970074, -0.058480690143646735235, 0.11667134772661268138, 0.041131301620027371779, -0.059720708901109774425, -0.015459233266758992675, 0.014607460522074285775, 0.11341577404696766285, 0.14390743799855879037, 0.10101969001017635508, 0.018064679750528361835, 0.093985627682125455484, 0.023710957272608974844, 0.020682315887456118736, -0.0082715441267720846152, -0.023816672842006357536, 0.016464978742749061813, -0.010626858727223569001, -0.029205347423567375176, -0.025576540012752640996, 0.023889155526357452874, -0.028413243782442719476, 0.035434099354063164355, -0.041507684576278999766, 0.044291022458608879375, -0.043082373704919282864, 0.015778813708729882981, -0.0355929261714078779}, + }, + }, + { /* 110 deg */ + { /* left */ + { /* a */ -1.309667384352426468e-05, -0.00061238318339873476503, -0.0016670731304430086439, -0.0014611074396903012129, -0.0013514815526416419471, -0.0014923048672482728313, -0.0047851932726689083708, -0.0084144403305480564015, -0.0081578614171545771327, -0.0071634186354224693716, -0.0048760878632037041314, -0.0019702122355108563079, -0.00039475779929631568677, 0.0013245241139991958176, 0.0013479559485968274635, 0.0020580642721979014453, 0.0056999761501724810486, 0.0090073449320743348423, 0.010529556221730573817, 0.01158655953362175417, 0.01127516438069464666, 0.0077818288692077519642, 0.0073530654720599386565, 0.011622573802480551386, 0.014405918050339194814, 0.016984436818426318361, 0.021012748511878287516, 0.030158607004018844755, 0.061966094625845451194, 0.027403379903104263526, -0.023880726698483067949}, + { /* b */ 0, 0.053318079201170043291, 0.011064278072347999426, 0.054140974536862063182, 0.031002934313129060229, -0.053491157458798725688, -0.13046741982040976904, -0.029661942213682346292, 0.22939319402809354997, 0.24193695175984963885, 0.15020956842450028379, 0.131262422400565959, 0.066188955555809836362, 0.05079161501511664234, -0.01867327535411134054, -0.069402381644226296409, 0.022429179740643401253, 0.024520253971427319328, 0.0085418548669696815756, 0.059209236950297228219, 0.022315975949510624687, -0.061762492375855293503, -0.047355749546590386601, -0.0008467798533889903112, -0.0042025996453004532682, -0.014104953056232050201, -0.024569466304663611922, -0.052179779108096902007, -0.088391765753551010398, -0.11757297369387187391, -0.11682440156687845523}, + }, { /* right */ + { /* a */ -0.0097350431312497598402, 0.015482519303677139133, -0.0236709560834293814, 0.032716952161958127998, -0.021186002237671280879, 0.49063496764359487701, -0.053611641899699476188, -0.69339229561045856443, 0.2531354733319123862, 0.19514698973700089768, -0.0034329576007472231702, 0.19370032104909776227, 0.61944910438216083115, -0.023758962855663715019, -0.39063671190927723442, 0.24685431267866464466, 0.24316308284436491394, -0.071477629128430184013, -0.12323689128967714457, -0.025006304592077414906, -0.18000479907094349419, -0.085949375769707014872, -0.15130158860041317825, -0.24225203164662723054, -0.13477995139787868339, -0.10915578320838900672, -0.052342989122419747439, -0.088876098193230390621, -0.030830002652761610837, 0.073681981632048226816, 0.00916070516668136825}, + { /* b */ 0, 0.093839709295710768688, -0.13940626207778822332, 0.14604782141311858923, -0.030637347776664262955, 0.089197237289730460508, 0.12447339357294055773, -0.08808459118423306311, -0.0030632245232508556465, 0.023143885267244691112, 0.088977747081065997059, 0.15688125838616676089, 0.10509645690274375951, 0.031561154657990669881, 0.056260543647721261706, 0.028330076578537782828, 0.017823918696284149488, -0.015781512822110599359, -0.029762747061987809838, 0.031778403531169951979, -0.012599544304873165623, -0.027143550201066436733, -0.033725115150895837446, 0.007539852218147596874, -0.022102951250232635849, 0.025737829876023434611, -0.039906391082608280718, 0.051619486429567776331, -0.03681355675302314806, 0.021735208940261083188, -0.032249935928698944543}, + }, + }, + { /* 115 deg */ + { /* left */ + { /* a */ 0.00013942449105569176761, -0.00029118390563326237291, 0.00022469527204138639576, 0.00037784487202235927938, 6.8148422981140210908e-05, -0.00055012036023760306491, -0.00017107817051886797799, 0.00086004933896877133748, 0.0017649907087941008044, 0.0024257156893206510695, 0.0017981001016950659555, -0.000523941382189748589, -0.0035758145046360621799, -0.0045305571148845889817, -0.0047015341152548094372, -0.0071128570323930641328, -0.0084398977100511064775, -0.0080221088034210207007, -0.0097193916145238423709, -0.0095620836841614487156, -0.0047173685237961171524, 0.0029446533543128765482, 0.011042163645669234029, 0.018131401262645729933, 0.019064528837507699333, 0.022336489023215555516, 0.030683382765510358592, 0.072432990680347530965, 0.05566116299669798817, -0.022451281695354263768, -0.0016246083237719845249}, + { /* b */ 0, 0.10160865983710465343, -0.0084893985911882463569, 0.098656925751963719939, 0.11538695058401632343, 0.0029827292803707994295, -0.1115621224458476779, 0.00024371850308735343305, 0.29946499607094723139, 0.25129923915422069935, 0.085404819556295086258, 0.10125239327595653149, 0.13313095025790228076, 0.12516283172010755909, 0.033605136931132151279, -0.072097613554103490152, -0.14633661861489233313, -0.17418014311789548065, -0.098961418529240618991, -0.061263955812435044734, -0.085098411928968831219, -0.04496168292497659813, -0.032656829860241987085, -0.088768874276570763904, -0.039613918116597479635, 0.037358619477956267474, 0.026565492379435062809, 0.040526936886213504874, 0.053534521469930651527, 0.014505389111275910838, -0.024861739940824911788}, + }, { /* right */ + { /* a */ -0.011093287405129442433, 0.014294408261423564854, -0.018378514697486338092, 0.022532777726584116151, -0.030699638831704033348, 0.25907586376942981499, 0.35366673996007236269, -0.66341804511645396936, -0.10190680423687648037, 0.39806769439849831738, -0.074577292316266766137, 0.058450823929609249663, 0.57243656900714623426, 0.22754131074863476192, -0.43903162085690844441, 0.16412776225961495102, 0.3403615484415121184, -0.049543018421195975098, -0.14402901381840427231, -0.038975851083568324729, -0.13613905270452761331, -0.12963800935446376239, -0.086825198761480759657, -0.24036202841746270864, -0.17799756582542053396, -0.14065958789134627716, -0.10391730580476109258, 0.0086228976871197474119, -0.016981458250357045481, 0.0026454871184357700575, 0.045309008599547596907}, + { /* b */ 0, 0.068192103314683172322, -0.061669001785108826241, 0.01395546386205766265, 0.068994778020183222811, 0.092885954115612900939, 0.087322007906250234677, -0.05372210536269423492, 0.029172058847717546176, 0.044405376757425570056, 0.057849167924908816152, 0.14699406690442545775, 0.089944467205095551821, 0.075583888107812677304, 0.052866776009121915769, 0.0029402623440057946806, -0.0042458379854006314535, -0.023984315872921900537, -0.035880772482231246268, 0.019422392492089886329, 0.030931664043963580379, -0.013971230482688265506, -0.054088307483422283506, 0.015147931433324643424, -0.060471716411530249125, 0.02539520388936124598, -0.036192334006072787722, 0.038136007919063227845, -0.0023172886767179011469, 0.013993189017700267962, -0.016096950709648318034}, + }, + }, + { /* 120 deg */ + { /* left */ + { /* a */ -7.2262671827473773205e-06, 0.00021137481615723910833, 0.00047060124644393683431, 7.9837206741482360725e-05, -0.0015860829008507160154, -0.003324635078419402312, -0.0020038651385792527471, 0.0010743732347523477638, 0.0035367302569574987636, 0.0037129599008908767063, 0.0033303416441948785476, 0.0034552064656981351654, 0.0031470039602021766638, 0.0032199891907003226448, 0.0011094837919917166502, -0.0045865829201990893083, -0.010334055626989857579, -0.013081917360317774079, -0.011671678229047133257, -0.0095789163916809583199, -0.0042091261113694211637, -0.00031535904488483312846, 0.0016833268137381174334, 0.004271428691686451895, 0.015849235636376801661, 0.023900184131717128189, 0.064088261183432859713, 0.073371531546864710016, -0.020243074718567788395, -0.01291555641776132024, 0.027781266974009899418}, + { /* b */ 0, 0.1153786319833122187, 0.033470230237989118116, 0.065880011802729732118, 0.14410401144287349195, 0.073978442038033498385, -0.073173764431264110009, 0.10942576385807034622, 0.36433920385721407786, 0.1935859346975654649, 0.043272615446177102594, 0.036373710836958006443, -0.040599685044405420253, 0.01509110368821953152, 0.040262603654243889206, -0.073363608563761784076, -0.10625240212336350965, -0.13942337976260987809, -0.18241885025176846069, -0.11843255686854597952, -0.069344142937972919061, -0.044163662314966600775, 0.019034985302424090037, 0.059005661138498977092, 0.066810227270786004539, 0.050514892022991697562, 0.069291521255163135429, 0.072269225925743196814, -0.020010108109196067527, -0.050848664101162122098, -0.054208314001352730926}, + }, { /* right */ + { /* a */ 0.00042043829732560378254, -0.0026942172581595124833, 0.0059841555066471631419, -0.01070625760087127315, 0.013960005139680710731, 0.033288064213549649339, 0.46415670738615477653, -0.23584123219842412222, -0.49742803604778829119, 0.32618315423010030285, 0.10695757597020510987, -0.024407046527426604077, 0.25862288808148653496, 0.43593051408603211705, -0.097845318288349691915, -0.12989829461206447991, 0.24916628389953562883, 0.20835511501327691475, -0.084299476675381068702, -0.21365480676733850096, -0.052461013067177722502, -0.047057771811738306755, -0.16149470478124788864, -0.21587916625733602483, -0.15596401194622733222, -0.13849896023468763473, -0.14956880244593814822, -0.039030618517181710214, -0.021206352760830340931, -0.0088528002070362155074, 0.048871936650565078741}, + { /* b */ 0, 0.085351109527296825652, -0.11590278249875042571, 0.053546767390562494127, 0.074919546368423864391, -0.0035077009333294197069, 0.16797329487910725443, 0.022317478922057387009, -0.11473244788613998213, 0.11005313665454834193, 0.06016798586990554365, 0.13623473513239403587, 0.091448580907950410834, 0.072340642627592710578, 0.047742713236860995218, 0.020330236324720904473, 0.00068758880059690413722, -0.037753658176874725638, -0.018234949665778960037, 0.00050008863222792548919, 0.043357848545674641805, -0.021018098479127021727, -0.043587923975502325391, -0.0027822357407097236814, -0.046056280136991777086, 0.0099491877322529023719, -0.02693354394970193938, 0.025567960137179608637, 0.013183576335847914385, 0.015280040867320272835, -0.01665173962277395614}, + }, + }, + { /* 125 deg */ + { /* left */ + { /* a */ -5.7581132945960734806e-05, 0.00064948927000485490169, -0.00030281755231814709399, -0.0016139543534271494352, -0.0028540076139893510998, -0.00069932054189147940804, 0.00040557645956951215993, 0.002287262538813731455, 0.0052463534689142811429, 0.0032526905361166011214, 0.0023591679716716863757, 0.0036377204579163299573, 0.00069868315931420968412, -0.0028582077860397868407, -0.0034227549605345165828, -0.0052880765379764750611, -0.0091447628576893404129, -0.0091561620299898671682, -0.0099534071835646886761, -0.0072195747947978450298, 0.0004740145097964497704, 0.0054870306801999002566, 0.0052488173069020760408, 0.012925204477994001184, 0.018778806908058276459, 0.053969855680208178583, 0.093038142662399403449, -0.0068153728441378014224, -0.034268778804982802377, 0.026583882200004183005, -0.0024075520452249143943}, + { /* b */ 0, 0.099092019363866690185, 0.0087517440291312587064, 0.096491267048796902639, 0.16342077613768629663, 0.041201858055478490783, -0.1175707893002683746, 0.15420751412906219535, 0.43588039982098147895, 0.18642586019690376986, 0.056413400277011138684, 0.031866802650444558953, -0.077302578875594607499, 0.029927363015720687134, 0.0017402496533050482164, -0.13997630338099392722, -0.113035329772255555, -0.13352392733995827045, -0.10298695693605752766, -0.04326825474416928774, -0.11393581492328413995, -0.06559839813850137924, 0.038815055255700385561, 0.030781327476601946097, 0.056987065056787744588, 0.098012456777943346431, 0.068958606987759574203, 0.011201442200667321991, 0.0026327055667116350257, -0.013589254772850001274, -0.095569145918267262019}, + }, { /* right */ + { /* a */ 0.0075183561421753863918, -0.010436048359461352897, 0.012740024716386723347, -0.016114742188342266738, 0.020025116608144918895, -0.027263264945716000898, 0.24753853818150456378, 0.27118531986500399311, -0.58866565184274277645, -0.071171008282390368915, 0.44792919886633941751, -0.068263227306014959139, -0.09652718239072137496, 0.52032593224742407223, 0.1901601808898969459, -0.3318782249512020055, 0.23531611286604497968, 0.350087143838723025, -0.096030647934270838006, -0.1960682593386528505, -0.01274418685537088633, -0.099505400015498790545, -0.12575831107495658023, -0.12198877743594112311, -0.21599050364756824938, -0.17300979780852390744, -0.084674809326234362628, -0.093016237510280097567, -0.081152149354491581734, 0.020578498556179242174, 0.059782309145633115433}, + { /* b */ 0, 0.079288650579058719825, 0.039894740617003009164, -0.052060688524599788018, -0.0054613514197847726206, 0.11873078078229983012, 0.062957485088546372154, 0.048153345581620175808, -0.041180981923197274019, 0.076072955387394947113, 0.054709085033151534649, 0.15295131928289695811, 0.10385187848640624331, 0.0068785110194377954707, 0.063340427332151699735, 0.041550837520348653242, -0.02648256370923682268, -0.042126265048679154002, -0.010657528361768279709, -0.0061631088717119877907, 0.039875390696639083365, 0.0095109303333137593106, -0.050126654616640571593, -0.0049517103930521097488, -0.042935357546479424595, -0.024702225965536787206, -0.0089685459519865708133, 0.015917359637452496018, 0.014042791065134972717, 0.035103098473886019948, -0.015108788392181160543}, + }, + }, + { /* 130 deg */ + { /* left */ + { /* a */ 1.1812758242913043642e-05, -5.5901626799801859558e-05, -0.00051669836013956975569, -0.0012710223678408238968, -0.00071126548338573680752, 0.00059890656135819231309, 0.0015958964632439842646, 0.0024059881895133194973, 0.0025038508332658748756, 0.0018244612608186998488, 0.0013785031645341394579, 0.0008901754070672653063, -0.00044113225364239214144, -0.0016912166763555190607, -0.0035638006112836927153, -0.0082546755705153983251, -0.0099357213378253837754, -0.010172744588574086227, -0.0066835498931799852684, 0.0024028444645801672053, 0.0052078603414440483022, 0.0042555749380640550683, 0.013549694026088188181, 0.021317888175206856083, 0.046844200248669087827, 0.10684921842064876163, 0.011220217490531814164, -0.054044667341171526154, 0.029068939411819316732, 0.0053611345657289533051, -0.01814694018408002929}, + { /* b */ 0, 0.12251311485703131332, -0.0048966409354339601734, 0.043225474417180054232, 0.13288643283357326474, 0.0024753584727116306752, -0.13493550284474076228, 0.25001905995872264477, 0.46116198007706277195, 0.16767002957919496797, 0.12022113801239686648, 0.035092266079117528932, -0.082874925052406345216, 0.09299057500647411878, -0.010335927920560039617, -0.22303158437285419691, -0.17736799351152077175, -0.15576870378924967397, -0.09553559118941068462, -0.010527352803241241119, -0.039461536134599572989, -0.04397576750678200419, 0.0022546490695968257612, 0.045224075152991427551, 0.070264909304215694696, 0.061617087093734923542, 0.035144339289305825957, 0.023098222545966939911, -0.016722037124855537726, -0.041553072690561632108, -0.040322919942353818712}, + }, { /* right */ + { /* a */ -0.0003954638475309746326, 0.0016802147026744734815, -0.0041307781481307566732, 0.0069268081880503179493, -0.011149805097107265417, 0.014711395451955620872, 0.012661300819154924779, 0.376705963309491354, -0.091160582263321632279, -0.49515815498233545222, 0.23973469451584847323, 0.25725972791418044716, -0.1364809441059457451, 0.097772769740633494462, 0.46604942100162649599, -0.076037106709709686991, -0.041141158584846390656, 0.35232917095899790594, 0.13782727738610198176, -0.13520175195935402179, -0.150874719704523097, -0.083235944983574144951, -0.078215007079862383654, -0.064032710649359989019, -0.22784168154062375833, -0.1887778082459686535, -0.054015447047816439463, -0.098555610973257296026, -0.12211294722235141452, -0.043146183514660048364, 0.0049622785846126921117}, + { /* b */ 0, 0.068255698670396408589, -0.019626044183932569304, 0.027022734233770818318, -0.029199728361064755666, 0.053847894874170493251, 0.074286951068278456178, 0.093327301540100923716, 0.0046883292136945808881, -0.014905365299500671072, 0.077121161747451066892, 0.098097439175047873583, 0.078872250090676374046, 0.022649650580929860111, 0.10118989200943753759, 0.032708378546854668945, 0.018610044422722078761, 0.013278570298379081815, -0.018196151545185959564, -0.028528768151272497489, 0.0049331955231501209078, -0.015694823528042758931, -0.045042267051635491437, 0.022953317535046903475, -0.049253424540020296352, 0.01848907971264186767, -0.013561713523798677589, 0.017034870128463178163, -5.9926623485577479311e-05, 0.01361690711632057571, -0.014890291483199591394}, + }, + }, + { /* 135 deg */ + { /* left */ + { /* a */ 0.00010640586492385905107, -0.0020863220798889004458, -0.0027546738669975696749, -0.00057689734912769186082, 0.00066419501364156662872, 0.0020730048205103157599, 0.0042753920946603241049, 0.0024273015306053302709, 0.0041430994752317245461, 0.0090535447899720046527, 0.006478835994985780028, 0.0019980716855355629136, 3.7437150879338076948e-05, -0.0060434387033625469599, -0.010258699474491317361, -0.010462940875158310838, -0.017758528357350589211, -0.019186225865344685992, -0.0056492490439069530106, -0.0015221615476401738343, 0.00065944081514835188249, 0.01116663625060076992, 0.019168392713514448289, 0.041054080523461600194, 0.12181615837242310008, 0.041202139539203708196, -0.067452937283843383831, 0.024205569470678308525, 0.018561269636285793183, -0.014617104953928983235, 0.012766910383738006018}, + { /* b */ 0, 0.15611339107442223639, 0.016778431063749214142, 0.081041717545221603203, 0.16997935467485958405, -0.064237394333324648876, -0.1467946458799662679, 0.31367196839646172002, 0.41053110185970687063, 0.092442334293230121745, 0.054708062922834144182, -0.05471108079559138665, -0.10471127127917312372, 0.12256479566694067351, -0.041264754456551977491, -0.26877304811281921282, -0.15682178410143798875, -0.12960269481887554122, -0.074410637441665872238, 0.040540669179120469856, -0.011041781803264316686, -0.0015913537167872027212, 0.11404907080604653746, 0.089380662718768766339, 0.040644184712002040527, 0.057264541138690727706, 0.03605762351477359573, 0.002108751488011373354, -0.036946082845115690851, -0.027051392492011272495, -0.14859598965757947475}, + }, { /* right */ + { /* a */ -0.0039158275946397091971, 0.0045651814713915106481, -0.0053509730125501937109, 0.0060881631249679723367, -0.0069729162432800844557, 0.0074547800273452868858, -0.010667169556234295386, 0.12038098870040858657, 0.32619730270482744094, -0.33417848277127332191, -0.25402146762454541618, 0.31913744062667975809, 0.096220172381067059497, -0.12010643039258775411, 0.23997327133401527566, 0.32270779230925061842, -0.14215569908666408905, 0.164853962412100985, 0.32719285053214147707, -0.029655260724431586894, -0.17571807629752189683, -0.095723928936843727389, -0.090418165187601373667, -0.10250068810447621193, -0.07679258050520215706, -0.21946952455217211275, -0.15779039960212257188, -0.0097222428803184907098, -0.085743480977948399735, -0.10062298804902622407, -0.039130299227052925404}, + { /* b */ 0, 0.060566366555303216557, -0.033585461857244328088, 0.097375755251810053315, -0.0057979207029488586539, -0.013037187911631165083, 0.099547705230398603193, 0.065450202271855356662, 0.079607690447289047864, -0.016594043229971669473, 0.0039141099964726949745, 0.11239923309603364054, 0.060828670912557031292, 0.037661575031187194407, 0.067372873971643737478, 0.06127743996696152079, 0.00425967189704272442, 0.049933361264478656749, -0.011891207176021113476, -0.043937700071649057887, -0.01454360809969700713, -0.036771014605774601791, -0.031196266083756418741, 0.03340208106078057515, -0.037511987641784816372, 0.021432249770140368583, 0.00047072404577540305493, -0.0042222493704937736486, 0.0066621020424406339477, -0.0071434454623851111055, -0.0015815756864876948096}, + }, + }, + { /* 140 deg */ + { /* left */ + { /* a */ -2.8322500534026556936e-06, -0.00053066106186355809296, 0.00082483518027906630593, -0.00042863322878908282666, -1.1879332136033315948e-05, -0.00066783173309145670363, 7.7773664591825947327e-06, 0.00214109388265923406, 0.00019600041728518038876, -0.00012057335090423157431, -0.00083007319325381981323, -0.0016636900295081960208, 0.0032933505128562882633, 0.0011374034858575837043, -0.0017964573410626802699, -1.5318938721698739658e-05, -0.0039285770478056369903, 0.0026668064562369859886, 0.0064403246606559161336, -0.0039511678598391775097, -0.0042266883104082053624, 0.0068954789365915933677, -0.0011256836162168446305, 0.085086384090781591594, 0.0044761479967535267033, -0.13405338016282686286, 0.049965532002184398497, 0.048763835001040811701, -0.050795157665751294873, 0.066932538639891819843, 0.12590629103302261593}, + { /* b */ 0, 0.58045527243727446098, 0.11532640933909973913, -0.070294737643389337833, 0.181548564083585523, -0.018736087559288044924, -0.40284097321803180591, 0.14967265663310205803, 0.13808262017332012528, -0.14681980457335874757, 0.095308802128581115998, -0.090946576570358900193, -0.070282983278130428673, 0.16869505144689184162, -0.0056995287795943982978, -0.11145719903146375507, 0.010645899981859968664, -0.029949005576172804677, 0.020448635869082382177, 0.062096271982760298247, -0.061559281084502120995, -0.010155868739088885766, 0.022991411353021073971, 0.032517242832784398754, 0.053763405399084168712, -0.044022531706967849008, -0.056791172460615713113, -0.010048509774783498383, -0.011135553684340354641, 0.012392231463938252478, -0.028022778311032753296}, + }, { /* right */ + { /* a */ 0.0018361282853110241775, -0.0033872857336473410905, 0.0046059858721698987427, -0.0065776919334296218844, 0.0083542195671026941994, -0.011143260589185560033, 0.014031371980195189719, -0.015337968677412404384, 0.21316430420635706922, 0.18207602262459615661, -0.41531887067146328052, -0.031187790338876170138, 0.29269849220073268503, -0.054235962098389371711, -0.042109054573871707028, 0.3423878607439811983, 0.16665370514435465243, -0.12828009228750011927, 0.26039154286775512137, 0.25358554767330221402, -0.13060052607320907225, -0.16234915440849845281, -0.060712808823515200529, -0.11670474881265904821, -0.13121958987003162767, -0.11982151889132144906, -0.18541725949783305349, -0.10845374594194448492, -0.032077652783813255521, -0.071363329167328279357, -0.023880378233289735468}, + { /* b */ 0, 0.063936342454143688108, -0.009966133409831066936, 0.11085760377685827116, 0.044677819807104057759, -0.034361268819236949479, 0.062743239678210147026, 0.062943407025382550057, 0.083058071853022163999, 0.13134064665964562124, -0.009268611908543576694, 0.065924378272914974097, 0.031868980523838338903, 4.2139580657379909672e-05, 0.069306867166024632709, 0.015998377618240203213, 0.023748490644913237968, 0.040251817749930099422, 0.012188030292016073519, -0.042057852935031489472, -0.0057086301428208377495, -0.043725723377226709265, -0.041252225482777717114, 0.02142720307404984148, -0.048367296921177430069, 0.032738401870443196995, 0.011597842342267461468, -0.0043165727307750041686, 0.014759019374048845674, -0.012598826880840656092, 0.0059455537992827295346}, + }, + }, + { /* 145 deg */ + { /* left */ + { /* a */ 2.3996799380029271154e-05, -3.6983924603382553609e-05, -0.00010885427087492863252, 9.4027203384472457515e-06, 2.4325316760817870956e-06, 0.00013631801319691230442, 0.0003569147487281192771, -0.00021825674274833503706, 0.00049352887651621379916, -0.00034778795489354185147, 0.00010764262883821917806, -0.00013369431908771822748, 0.0001612257009148132796, -0.00082230832962326520785, 0.00098596277656181480209, -0.00076071996507610234461, 0.00048347716170849507067, 0.00024596005544775048635, 0.001122381176055228108, -0.0020218050363063327229, 0.0057335193050928046077, 0.00098351229257942485162, 0.07911624124667948621, 0.046474585830846848467, -0.10163739703000773673, -0.0031500376619642000975, 0.02685673447709591502, -0.0098010597263803456158, 0.019079556105860977222, 0.13571862275116308716, 0.16518685852055792207}, + { /* b */ 0, 0.29209289431744722698, -0.088683859083907301546, 0.19870288442330741319, 0.056117942729694281212, 0.0055233992313913349292, -0.034417842552231237008, -0.18642029961095374357, 0.03188050946213716319, -0.12215473870355597619, 0.058564694857057841837, 0.027133066872742084286, -0.098321742115492494207, 0.10165847932147586974, -0.036326745038034458091, -0.081706909303494446029, 0.05666085919578400798, -0.065230034060614894287, -0.023126302295464751246, 0.034088858653635867313, -0.054637137087559795035, -0.0062919689342716411673, 0.00337558118006231608, 0.0067879138795912119519, 0.032772559692278990795, 0.064759985108769901885, -0.015975298047754549202, -0.027683987494919737316, -0.037109281432953777902, -0.033246283187224334732, -0.0065407641535591941329}, + }, { /* right */ + { /* a */ -5.9295322625916386996e-05, 0.00025361030688269420308, -0.0014975462105494886413, 0.0023321644056564800468, -0.0040143723665109903864, 0.0056496033224969280373, -0.0083177157733822781882, 0.010418731344547307871, 0.0037317150503252466062, 0.25774726845881812398, 0.03548555282497853347, -0.37577294565440211294, 0.13177411199254401852, 0.18278456868343551101, -0.13825278210365615772, 0.072251944089277819749, 0.37727001604717619321, 0.061230184483984304022, -0.046667811543061286927, 0.29825638920078673122, 0.11633725609713846394, -0.14742657162931566139, -0.078501906429860102143, -0.054583903007854664424, -0.14088563291174288628, -0.12188196573843396164, -0.16632804680378696083, -0.16103868772087179262, -0.062667853368376519319, -0.090920878374582722592, -0.067120396724383718512}, + { /* b */ 0, 0.058538717682757313021, -0.0067235800765147457625, 0.10061999071942813455, 0.032009963128213844707, -0.0085750658654045221196, 0.0016715560854918543043, 0.051641640912733315083, 0.08213774559567066369, 0.14615828567515251613, 0.069892761402653755254, 0.03775384784469610483, 0.035962486104601509851, -0.0038619656431799556651, 0.07389376333252321849, -0.016166609451647752371, 0.048384225398525639028, 0.041847242283617011593, -0.0053303041007467626133, -0.03351417438249727071, -0.025366513586497739519, -0.0029940071307734909128, -0.035054287279749976602, 0.020758025097121490798, -0.060317252944543611748, 0.034924170228588589937, -0.010758538361728933047, 0.019019207899853916854, -0.0063627382651402011882, 0.0041195717837743143705, -0.0023809626018564782057}, + }, + }, + { /* 150 deg */ + { /* left */ + { /* a */ -5.7808969703442882049e-06, 7.859375997232387963e-05, -0.00020195202801720404245, 0.00031595442082088791985, -0.00038697247538299443803, 0.00034207817356524117258, -0.00014974415749047315853, -0.00011228781855721113939, 0.0001483494695142529012, -7.6482351424324215156e-05, -0.00039344251322182000052, 0.00074616616850542438755, -0.00077416060895174783341, 0.00073700183421399230455, -0.00013666060560968244786, 0.00021771677245763058905, -0.00032895946806832474657, 0.0019676944930380199997, -0.002446887221799197952, 0.004275371799714045018, 0.0014554996183996360415, 0.077215344536710195378, 0.093552337016925002366, -0.077496570637172745855, -0.054258581771438052499, 0.015401699340680807815, 0.0022501846647787751218, 0.019689311409679107617, 0.14642282391945371511, 0.23487005904862523487, 0.086820381211688557599}, + { /* b */ 0, -0.033799469500717105319, -0.096279236524443589929, 0.22091500173217204495, 0.12148875439946250909, -0.0076572573475680583144, -0.030131378491796145802, -0.14024308381335726104, -0.11888930525678909067, -0.099487028630620977232, 0.022130821356672325528, -0.0073011246190524126121, -0.024081928838987076702, 0.039823506357977711545, -0.040895948917110680476, -0.04829093947618379179, 0.022019905220257984801, -0.074358003629357294351, -0.0014864981615070327337, -0.015010722241373675168, -0.078612975309214072617, 0.019454143961178393951, -0.038257495985904999003, -0.017326638979547892561, 0.036913624998496930019, 0.03219274391251525369, 0.0068989239107586364241, 0.046842982808978361753, -0.060166361891406117124, 0.0039340002654791907111, -0.04171936477739834892}, + }, { /* right */ + { /* a */ -0.00074478344217444522601, 0.0007511785498183834453, -0.00095975582467544540664, 0.0003837616212743652196, 2.7485100289465424443e-05, -0.0013624965539919126067, 0.0023531580862221406977, -0.0042316079678110102291, 0.004840207769030158147, 0.031003830564175528794, 0.25958893247698433537, -0.084294597014668987134, -0.26906499788472909573, 0.1985279390908638586, 0.031028247903159594107, -0.11486513800822001352, 0.15741827212653530799, 0.34498012878014588933, 0.025665866484748771359, 0.018993532817268739266, 0.24502951514964954605, 0.0052309987987704175891, -0.12440272003277369484, -0.038543594725226788811, -0.06620071414478256866, -0.13099098239792078546, -0.13456166221842535968, -0.19553646171913985352, -0.097051768685255085378, -0.057685786296096837333, -0.10554790331524466218}, + { /* b */ 0, 0.10296905720001520157, -0.031916632292636540336, 0.1371772093303840756, 0.025581835101807365307, 0.0037329793989293587157, 0.017041252381062854671, 0.0096940844390236771688, 0.083133380807689172265, 0.15137376358411169797, 0.08291163369970458441, 0.04345817582482400937, 0.032173172324003081191, 0.018586719340587219695, 0.028174870867589581203, -0.060814479048063550815, 0.047343284532777578366, 0.090803696340692977018, -0.024400418685635583138, 0.01192035672426071044, -0.076481246590415954967, -0.0051987080044437958271, -0.030485298389941462016, 0.01697330043399884747, -0.014962470605548762459, 0.029782567270843045282, -0.02811451573473626106, 0.015568336049018999256, -0.019634447613083035045, 0.018551872579303414768, -0.0031451728171741702433}, + }, + }, + { /* 155 deg */ + { /* left */ + { /* a */ -7.846684997090895401e-06, -1.1967299512471996081e-05, 1.7571946397955742758e-05, 2.3839611326683177173e-05, -9.8824770589072309798e-06, 0.00012370376389902930999, -0.0001906069247575863275, 3.6766283073585981356e-05, 9.5089872087506020857e-05, -0.00012925669250207598437, 0.00029605806355082007336, -0.00021290917223693115595, 0.00046180190858835512557, -0.00039533474840980353804, 0.0008719665658268871411, -0.0011835970670920365616, 0.0020615578255611666236, -0.0020408909146701903481, 0.0033778563048036955654, 0.00052249169449347654393, 0.075086891007103417905, 0.10799162756168489974, -0.090613576457787559093, -0.086873763159647787724, 0.027096272833398993285, 0.021638942594090493365, 0.015445631834157258488, 0.1481240784572540603, 0.25527186229550025143, 0.056256086679792871585, -0.054761228196753553021}, + { /* b */ 0, 0.015162328826992532704, 0.051460910327205677817, 0.25159007800437671598, 0.089044318617378936942, -0.071396716489688372143, -0.027379932088927860789, -0.13151821887623371676, -0.12205488260252916888, -0.034882323086196653783, -0.023718234665251469728, 0.031729017745465992739, -0.0024102467378883662974, -0.0018285683795610241376, -0.0028123056431544890543, -0.070871822570248155237, 0.010888903779204817113, -0.02650154579134089694, -0.0091602423032965951677, -0.022468559707222723887, -0.075005627228411086982, 0.011826150009136560115, -0.032163875408469655426, 0.0060877235611572766416, 0.0060017553941277279606, 0.0012837575007196289079, 0.0098048556126939523381, 0.017781482509124372365, -0.027803873140497255972, 0.016507726800299438175, -0.027745125743341980673}, + }, { /* right */ + { /* a */ 0.00075439313840242397391, -0.0009466484373081228941, 0.001117362672074795121, -0.0014999605847621955319, 0.0016130037250750729055, -0.0010427407160298850231, 0.00018687770332505987403, -0.00077652318897052118908, -0.00090588186742266568752, 0.0015874841468015831597, 0.056834941265862526372, 0.24021804398403312497, -0.13156983644280922929, -0.18774733377208435714, 0.15910464303583024548, -0.029387909936760131524, -0.066336326890658964262, 0.17600750420838770505, 0.31933440250999356458, 0.058621487908495764629, 0.053661208389622384873, 0.15542385504150191267, -0.078959879496191764936, -0.074108004601744492668, -0.0063690900763265986817, -0.17126990566013439166, -0.14328044992083904807, -0.099481795226936550747, -0.15814941178761987572, -0.10715729861463489658, -0.05079474350469341537}, + { /* b */ 0, 0.041837716966783983219, 0.043280733016035598248, 0.1618483912770071198, 0.047340245106636258399, 0.0031153111105684458404, 0.05045513278414959224, 0.056800988297829903273, 0.083928671198514714913, 0.091601980773403729463, 0.014031960039830905507, 0.15350077616926702251, 0.012928372237460199548, -0.083614777794745298589, 0.02619391224583256933, -0.035909758683057992068, 0.13051397315322144088, -0.016959957605281961168, 0.014304710495411342153, 0.0039130715491280873564, -0.054039861922456668142, -0.036287732663882986406, -0.078426592983126514058, 0.056537939498906356062, 0.031549020181593882828, 0.039827905272487272581, -0.038563172179047200405, -0.021165137341089962364, -0.025250491764430491037, 0.036724720661475938888, 0.0033189175586024327602}, + }, + }, + { /* 160 deg */ + { /* left */ + { /* a */ -3.7149558527515245954e-05, 4.1919578780416459629e-05, -5.8159129318057683003e-05, 0.00011254862958276544514, -7.3107186415732666393e-05, 6.5512044955529091794e-05, -7.4440959507706197518e-05, 0.00013568662041163210424, -0.00010189252337700028736, 0.00033243663814797042022, -0.000401587946230464116, 0.00067368910020015838544, -0.00083517900248408728434, 0.0011976710675293275946, -0.0013152957472478687961, 0.0021443953957672734489, -0.0018815142202588393087, 0.0037106122421914911058, -0.00017044498791529661633, 0.073961320379498096678, 0.12068648584967478499, -0.085907113320793371258, -0.073179540880097260214, 0.039265139187560915701, -0.00064392313717242903592, 0.0031548102298606384153, 0.16699928175344103121, 0.27331661117895034163, 0.055941628567326984189, -0.00013439361352951534464, 0.063545655250157873084}, + { /* b */ 0, 0.077243387544764785524, -0.062916283022906860367, 0.07204284067405253289, 0.091071494507100059224, -0.063047357928280867156, -0.0051944896203165447091, -0.110764290783549324, -0.10636944939058923243, -0.049625576369546897659, -0.064948907208470241237, 0.013479571139007884284, -0.040799955185258363066, 0.024249363108699850677, -0.013429698593608874191, -0.058369924720511057181, -0.0036411935396690742195, -0.03473734107251047476, -0.0089189182392312993386, -0.028110515997228913143, -0.063925976663548045309, -0.012325351390687910857, -0.035356944142472812587, -0.013074194403078776006, -0.0054812757612626716863, -0.0065053700493838961805, 0.0022551694686678835922, -0.012557569879015349421, -0.014525072829715823808, -0.022243763452348130905, 0.014447532142719543558}, + }, { /* right */ + { /* a */ -0.00044383087323665549543, 0.00075264275358963295126, -0.0011084317211133842829, 0.0015064296893978550932, -0.001913399413399143132, 0.0020827856229543167954, -0.00262639912518378843, 0.0020921307683496870311, -0.0025292965287471158575, 0.0027619283838892921823, -0.0027051536817968725029, 0.074579262764962267473, 0.20716610339513352734, -0.15270625867165765754, -0.11899492661092578305, 0.11041565204819833723, -0.066124249006130147999, -0.028881576291817784297, 0.20122834414620333066, 0.29345582399218328451, 0.046628516668419800473, 0.062649396769284729225, 0.080578444427042511533, -0.096966963434950134704, -0.034589843090214629495, -0.044983954419234792321, -0.19708491210074569056, -0.12473633591782173902, -0.075757846912942697348, -0.13561377678227309884, -0.070620516137197747453}, + { /* b */ 0, 0.076700172241986136479, 0.097031324089486045703, 0.12607736701479729802, 0.054803947831198004947, 0.056108645304260573727, 0.031710589549764807427, 0.071202750919399010465, 0.11568453878672926849, 0.0081356648562588493312, 0.025496606300130612854, 0.13118928657870976284, -0.0039962511106262504912, -0.10255093474432377953, 0.017731740670247349984, 0.05153480708222722001, 0.086564962476945131464, -0.0029973253242322056566, -0.027265078521871571882, -0.028460734340868612535, -0.03770221949125473343, 0.0030526263578587176095, -0.049991694319084956089, 0.038639510098717640141, 0.0075666518905073698598, 0.034827489302385362946, -0.0081345578607739943422, -0.0078819762681881996857, -0.031609262095906760781, 0.012555574735251609497, 0.0037631991324808475308}, + }, + }, + { /* 165 deg */ + { /* left */ + { /* a */ 1.6032358884032509494e-05, -2.0618572127428181555e-05, 7.6373596474832493395e-05, -1.3536907012001353945e-05, 3.4933854420335863443e-06, 1.6362994709193858786e-05, 0.00020972907258109840952, -2.5256253477489408465e-05, 0.00039309818927746298899, -0.00027020741019678816766, 0.0008771638958238181516, -0.00079800995589351941817, 0.0014095308371875328243, -0.00099036352715908696279, 0.0021987588748328948038, -0.0012523736038494441732, 0.0036145935512765792197, 0.00026645679829240243551, 0.073071940605157204018, 0.13836674623374234372, -0.077092070428358416834, -0.09434908569569411263, 0.057399978942024310058, 0.028636249922858736383, -0.021592044304602486804, 0.15781165319680989789, 0.31786629420146872427, 0.064473943994503013499, -0.0062786139784498616601, 0.12491529823840941127, 0.061071277870083928718}, + { /* b */ 0, 0.027214061265740108198, -0.0086497991384770767098, -3.2940689898009319026e-05, -0.075158699224670000305, -0.055577653949451244486, -0.0047999396921016845852, -0.08780777413688878319, -0.080424568475456759131, -0.060754304003485248842, -0.072840781644434304809, -0.018781093659853143052, -0.051867299993568760641, -0.024221852314987302179, 0.024312080425248350224, -0.06347898491576575708, -0.021541957671705747046, -0.025194329854871799768, -0.030851700042189289519, -0.02876187536651752738, -0.051425569297935957991, -0.025301806133859461312, -0.060655013523758238847, 0.0016406946004576816733, -0.035637107960312386368, 0.0017071477050045746893, -0.0080116049747114212454, -0.041229325803970866271, -0.031203173601196398934, -0.010422760565592659177, -0.013613842045900881317}, + }, { /* right */ + { /* a */ 0.00024507018937369750601, -0.00036103168107003104012, 0.00062721293653169446491, -0.00099399394534738227946, 0.0015420607719094162058, -0.0022155908981774663502, 0.0021943216735754306201, -0.0030760841178596731726, 0.0032577844373072109563, -0.0036687244225159718058, 0.0043774992430477971395, -0.0046297866164099477082, 0.084871246778502398844, 0.17731062929576502096, -0.1375195862328166263, -0.085910592216953435285, 0.042853910962566479914, -0.054304062404994177249, 0.0029573622616291647854, 0.17139734238236412067, 0.30171044478694875046, 0.076820024231594938313, 0.0069952166036318236264, 0.053998326361680282215, -0.042834848103449722767, -0.068257583462445384215, -0.12962925817370279935, -0.16877151750987853807, -0.096130845080358684474, -0.11173355687788871782, -0.084937499051003145789}, + { /* b */ 0, 0.10156275271398867988, 0.077185566288041296268, 0.13282149838280954413, 0.08171816697032448229, 0.065019220953049655654, 0.10019105873802339191, 0.072012868194281015599, 0.055492568684905457799, 0.064212004771331043784, 0.010854841299193750126, 0.014918743122863641071, -0.045033301591780941497, -0.031706095040356062353, 0.089564090825565129128, 0.022024871724492765812, 0.070052222587587240077, -0.030671518055237073641, -0.031950765902958457032, -0.0033956392862712764247, -0.055116051972375207368, 0.020522665861114758323, -0.053010372439558396673, 0.039559117300537981199, 0.008336639543545999731, 0.031089458806289597959, 0.0058377015975212484533, -0.0083504315081823349276, -0.015804329272896613934, -0.010019162080842670959, 0.0015402341953458034696}, + }, + }, + { /* 170 deg */ + { /* left */ + { /* a */ 3.1302173760794381822e-06, 9.0499071014882737779e-05, 4.1432883721159718959e-05, 9.3300330586410179859e-05, 3.0958006921876900924e-05, 0.00030591771116306133368, 3.4937743809137188078e-05, 0.0005286897953454814704, -7.7097293896266627655e-05, 0.0010526264265092732941, -0.00059039595483312257672, 0.0016554385683792412036, -0.00081576048305276229605, 0.0024720344257711523994, -0.0010712973259885414171, 0.0038707551676397940026, 0.00035560747645158063447, 0.073630880141617449652, 0.14661407056075492772, -0.078085169269020981986, -0.1085137050343965015, 0.047500582381204692339, 0.017874880158738615243, -0.02261152729082782642, 0.17893430052470793434, 0.34360192665262856426, 0.053606962467575569597, -0.026329075153777581342, 0.11186902796209152733, 0.01673664825244114418, -0.032569655570580113846}, + { /* b */ 0, 0.053914155213885539553, 0.015830023390450698173, 0.020072501148854504649, 0.012655482483289737239, 0.020659117037705176934, -0.036430595746206329011, -0.092725103952862042433, -0.087702484986157402957, -0.071331118872211551896, -0.055194423238813516974, 0.0030397885680127911812, -0.037054498365218790923, -0.00066159090580941715132, 0.03453582545144551208, -0.079728062440387326149, -0.016901163871901880853, -0.031621694144279288707, -0.010376069900994155937, -0.020804253498749036844, -0.062761266384006586527, -0.03055738570310884139, -0.034919971965419183135, 0.0067210583352961261738, -0.018044902997532696887, -0.012390824741873029957, -0.034925941218427729307, 0.0019679796761651324744, -0.046916920430073449921, -0.001926393056322917019, -0.043422184307362332589}, + }, { /* right */ + { /* a */ -0.00012554898192080455157, 0.00017247319621539056113, -0.00052640243619356957838, 0.00078473489119584155516, -0.0010021108972691795957, 0.0013892594930291386757, -0.0019935503377168503278, 0.0019212312861796600715, -0.0028198965807725573374, 0.0034947162689657335077, -0.0040898955417896856734, 0.0051162537699099217003, -0.004885681522894154416, 0.08688474323844917746, 0.15813922660799484277, -0.11585092003650954151, -0.095210034436674195746, 0.0056687868211797304285, -0.027443531844821480309, 0.004389007744525982857, 0.16430947455392352907, 0.31363566378326407369, 0.056519924958118465674, -0.014416914733167852242, 0.059496911787165755736, -0.067927300887186875533, -0.10596882274465810325, -0.14491118769143784828, -0.16207943488078788152, -0.10543191067505575109, -0.061618897190486243698}, + { /* b */ 0, 0.12235116841116192021, 0.085685636739992132593, 0.15071367068084445817, 0.11999752191271674528, 0.096732633326932923601, 0.097546664174340963482, 0.044232293409446080124, 0.1363900499191263993, 0.017644008448738056349, -0.14868778347587457977, 0.045368560833557475265, -0.046122428467992582224, 0.01830430837505836808, 0.13364735242459227504, 0.014238310704218614527, 0.036885293430335579223, -0.087165827746189125658, -0.0012216042663201753804, -0.0089679957372733667964, -0.014654928771533435455, -0.0018582758058304105903, -0.053026415433481702277, 0.032246281499307472007, 0.023017491024904506575, 0.039495641088039872002, -0.0061943089637748680043, 0.0029509240232947725295, -0.047081833601529801681, 0.026892462378347564006, -0.011464508826155780929}, + }, + }, + { /* 175 deg */ + { /* left */ + { /* a */ 0.00014791617587631145092, 0.000285910551379997492, 0.00012692619729554049804, 0.00040438895197725276999, 0.00029066876152533671629, 0.00016507225739092941949, 0.00040071421306131515833, 0.00027735693519659234546, 0.00081157671666387543041, -0.00048502720052107117267, 0.0016187447863386097632, -0.00064023663697010402274, 0.0026127689616017857333, -0.001428850716564400436, 0.0036199114237731029424, -0.00021464509485785707231, 0.075591000634582516948, 0.14738894320017598139, -0.090538848975703356547, -0.13055765949530895309, 0.032117835465639288373, 0.016143228745123250345, -0.038226437773861143832, 0.17392064687423575142, 0.37274723141852289521, 0.040910440487311454383, -0.08476188187521438433, 0.062153593309993704352, -0.044583141086268485154, -0.12590025666951026873, -0.067260170498982529974}, + { /* b */ 0, 0.11842983119354777433, 0.099103374896943041694, 0.12024966287153826539, 0.063220438431613179553, 0.14988272645351241597, 0.07228893489249349491, -0.10464217060759950506, -0.082634139336214273985, -0.10798282870583958415, -0.043442174670269007031, 0.039613032465045383557, 0.022400956780355141262, 0.040843572178851650367, 0.038353247796031608718, -0.04998345091756367653, -0.049227045004901492931, 0.0015240723438836312198, 0.0055340797093517135607, -0.035845162634114136058, -0.04118472436785008961, -0.016152787545783975354, -0.015680433024141404719, 0.041462862682487000576, -0.042056545545322843171, 0.008567650860054343287, -0.00230326459824820029, 0.003062478046954308919, -0.045793547300658488108, -0.0049872007967452502974, -0.034906317380872797784}, + }, { /* right */ + { /* a */ -2.6286289642291852525e-06, -0.00017077534716653690935, 7.4272678877389209859e-05, -0.00013287330160411834831, 0.00040045161805264337107, -0.00056894292294095219487, 0.00088913424170587013716, -0.0015036768604738406322, 0.0015723919800491449432, -0.0020893795767270781361, 0.0025485069730176064529, -0.0033080076535896112133, 0.0042371007784964762055, -0.0032218224161424321994, 0.083844912285675393671, 0.1496127653714211525, -0.10289831272694256736, -0.12129415487574513044, 0.0028921886841243122854, -0.0016166957512390297755, -0.0042121147670812217681, 0.16185108144442361677, 0.31174473329193308491, 0.052425807425518416993, -0.040640843909603860395, 0.036208208063514615849, -0.0729609243242863581, -0.12242990870115746938, -0.13585684803994743652, -0.15817574423506386427, -0.085508421111451085594}, + { /* b */ 0, 0.13055355297732951225, 0.12756246882044364188, 0.15909574579012766837, 0.1369194323142817471, 0.10740926008837287098, 0.049654510518590780355, 0.1251822474353236625, 0.10966935207374262085, -0.12088604357909142617, -0.085642514571738492801, 0.035567864082081318555, -0.032137217958537335483, 0.052516747987079649695, 0.11296002551350671494, 0.02020028482228879152, -0.0074679857903648533268, -0.047169535066008072555, -0.036124457824004196915, -0.0028072058675244863923, 0.015793363116794936069, -0.013593318103706682198, -0.052801939558321624169, 0.036735233879708145688, 0.018116300454979784862, 0.033374630253686560222, 0.012518645296619081847, -0.021356743399605047917, -0.026839107781398245656, 0.0027055497416701361317, 0.0080514686745915622912}, + }, + }, + { /* 180 deg */ + { /* left */ + { /* a */ -3.7346135617535164419e-06, -8.984158843630088865e-05, -6.4019064466941996011e-05, 0.00017983139599295761544, -0.00036096701588926875717, 0.00041559948135705469634, -0.00073226175846888372917, 0.0010489358635856500107, -0.0014871849499012005681, 0.0015217921538472787765, -0.0020253943033149424124, 0.0024041410881373882769, -0.0027338250369914052218, 0.003546028232389620248, -0.0017319271452512392806, 0.078317721315781116398, 0.1456521503947636742, -0.10293337788602949234, -0.1375738668682491006, 0.0081216237324363959454, 0.013184690158497477941, -0.014014253666613232449, 0.14577791035449927382, 0.33195957443370960327, 0.054534511669034113623, -0.086101008923252425609, 0.0092129082075557977571, -0.084077471088312816239, -0.13684081102824682818, -0.15318119974974245268, -0.11230157584427044593}, + { /* b */ 0, 0.1666384464706137658, 0.13608019535398821476, 0.20224660094906901642, 0.14926961513838893358, 0.073384972730091965754, 0.15686389072040762827, 0.096143170518754386689, -0.056347703479486407896, -0.1152601897366377498, -0.085029587197256589759, 0.060132780117322551239, 0.0069822793384761733942, 0.094093296548866611761, 0.081554016876462839813, -0.054404436604773884212, 0.021259701144760105584, -0.061703475341862205894, 0.012044605759416269347, -0.0013065382791313008559, -0.038045451921514553129, 0.00033388944627459234138, -0.0034356779476680393559, 0.021952832657257385918, 0.0026729239074668119901, 0.029827744301169373947, -0.0043862222358814935419, 0.0099212081615504717214, -0.020663956459189152665, -0.0088133274362810903879, 0.0044341780491049653107}, + }, { /* right */ + { /* a */ -3.7346135617535164419e-06, -8.984158843630088865e-05, -6.4019064466941996011e-05, 0.00017983139599295761544, -0.00036096701588926875717, 0.00041559948135705469634, -0.00073226175846888372917, 0.0010489358635856500107, -0.0014871849499012005681, 0.0015217921538472787765, -0.0020253943033149424124, 0.0024041410881373882769, -0.0027338250369914052218, 0.003546028232389620248, -0.0017319271452512392806, 0.078317721315781116398, 0.1456521503947636742, -0.10293337788602949234, -0.1375738668682491006, 0.0081216237324363959454, 0.013184690158497477941, -0.014014253666613232449, 0.14577791035449927382, 0.33195957443370960327, 0.054534511669034113623, -0.086101008923252425609, 0.0092129082075557977571, -0.084077471088312816239, -0.13684081102824682818, -0.15318119974974245268, -0.11230157584427044593}, + { /* b */ 0, 0.1666384464706137658, 0.13608019535398821476, 0.20224660094906901642, 0.14926961513838893358, 0.073384972730091965754, 0.15686389072040762827, 0.096143170518754386689, -0.056347703479486407896, -0.1152601897366377498, -0.085029587197256589759, 0.060132780117322551239, 0.0069822793384761733942, 0.094093296548866611761, 0.081554016876462839813, -0.054404436604773884212, 0.021259701144760105584, -0.061703475341862205894, 0.012044605759416269347, -0.0013065382791313008559, -0.038045451921514553129, 0.00033388944627459234138, -0.0034356779476680393559, 0.021952832657257385918, 0.0026729239074668119901, 0.029827744301169373947, -0.0043862222358814935419, 0.0099212081615504717214, -0.020663956459189152665, -0.0088133274362810903879, 0.0044341780491049653107}, + }, + } +}; + +#endif diff --git a/plugins/ladspa_effect/caps/interface.cc b/plugins/ladspa_effect/caps/interface.cc new file mode 100644 index 000000000..32399ee22 --- /dev/null +++ b/plugins/ladspa_effect/caps/interface.cc @@ -0,0 +1,126 @@ +/* + interface.cc + + LADSPA descriptor factory, host interface. + + */ +/* + 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 2 + 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, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA or point your web browser to http://www.gnu.org. +*/ + +#include + +#include "basics.h" + +#include "Cabinet.h" +#include "Chorus.h" +#include "Phaser.h" +#include "Sin.h" +#include "Lorenz.h" +#include "Roessler.h" +#include "Reverb.h" +#include "Compress.h" +#include "Click.h" +#include "Eq.h" +#include "Clip.h" +#include "White.h" +#include "SweepVF.h" +#include "VCO.h" +#include "Amp.h" +#include "HRTF.h" +#include "Pan.h" +#include "Scape.h" + +#include "Descriptor.h" + +#define N 33 +static DescriptorStub * descriptors [N]; + +static inline void +seed() +{ + static struct timeval tv; + gettimeofday (&tv, 0); + + srandom (tv.tv_sec ^ tv.tv_usec); +} + +extern "C" { + +void _init() +{ + DescriptorStub ** d = descriptors; + + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + + *d++ = new Descriptor(); + *d++ = new Descriptor(); + *d++ = new Descriptor(); + + seed(); +} + +void _fini() +{ + for (ulong i = 0; i < N; ++i) + delete descriptors[i]; +} + +/* /////////////////////////////////////////////////////////////////////// */ + +const LADSPA_Descriptor * +ladspa_descriptor (unsigned long i) +{ + if (i < N) + return descriptors[i]; + + return 0; +} + +}; /* extern "C" */ diff --git a/plugins/ladspa_effect/caps/money.h b/plugins/ladspa_effect/caps/money.h new file mode 100644 index 000000000..c20a11b66 --- /dev/null +++ b/plugins/ladspa_effect/caps/money.h @@ -0,0 +1,2715 @@ +#ifndef _MONEY_H_ +#define _MONEY_H_ + +float money [] = { + 0.000000, 0.000000, 0.000000, 0.000226, 0.000454, + 0.000684, 0.000686, 0.000688, 0.000690, 0.000693, 0.000926, + 0.000929, 0.001165, 0.001169, 0.001173, 0.001412, 0.001416, + 0.001421, 0.001425, 0.001668, 0.001673, 0.001918, 0.001924, + 0.002171, 0.002178, 0.002670, 0.002678, 0.002687, 0.002940, + 0.003194, 0.003697, 0.003708, 0.003967, 0.004228, 0.004490, + 0.004754, 0.004266, 0.005034, 0.004796, 0.005064, 0.005078, + 0.005093, 0.005108, 0.005379, 0.005652, 0.005668, 0.005943, + 0.005960, 0.005977, 0.005994, 0.006011, 0.006553, 0.006309, + 0.006590, 0.006873, 0.007157, 0.007178, 0.007464, 0.007485, + 0.008042, 0.008064, 0.008087, 0.008109, 0.008402, 0.008426, + 0.008994, 0.009018, 0.008769, 0.009067, 0.009092, 0.009117, + 0.009141, 0.009166, 0.009469, 0.009494, 0.009799, 0.009545, + 0.009852, 0.009878, 0.010187, 0.010213, 0.010525, 0.010552, + 0.011152, 0.010894, 0.010922, 0.011239, 0.011268, 0.011297, + 0.011616, 0.011646, 0.011676, 0.011413, 0.011735, 0.012059, + 0.012385, 0.012416, 0.013040, 0.012776, 0.013106, 0.013106, + 0.012808, 0.013106, 0.013106, 0.013106, 0.013106, 0.013106, + 0.012808, 0.013106, 0.013106, 0.013106, 0.012808, 0.013403, + 0.012808, 0.013106, 0.013106, 0.013403, 0.013701, 0.013701, + 0.013701, 0.013403, 0.013403, 0.013403, 0.013403, 0.013701, + 0.013701, 0.013701, 0.013403, 0.013701, 0.013403, 0.013403, + 0.013106, 0.012808, 0.013106, 0.012808, 0.013106, 0.012808, + 0.012510, 0.012510, 0.012510, 0.012510, 0.012510, 0.012510, + 0.012212, 0.012510, 0.011914, 0.011914, 0.011616, 0.011616, + 0.011616, 0.011318, 0.011318, 0.011021, 0.011021, 0.010723, + 0.010723, 0.010127, 0.010127, 0.010127, 0.010127, 0.009829, + 0.010127, 0.009531, 0.009829, 0.009233, 0.009233, 0.008936, + 0.008638, 0.008340, 0.008340, 0.008042, 0.008042, 0.008042, + 0.007744, 0.007446, 0.007149, 0.007149, 0.006553, 0.006851, + 0.006553, 0.006255, 0.005957, 0.006255, 0.005659, 0.005659, + 0.005361, 0.005064, 0.004766, 0.004766, 0.004468, 0.004468, + 0.003872, 0.003872, 0.003276, 0.003276, 0.002681, 0.002383, + 0.002383, 0.001787, 0.001787, 0.001787, 0.001489, 0.001489, + 0.000596, 0.000894, 0.000596, 0.000298, 0.000298, 0.000000, + 0.000000, -0.000298, -0.000596, -0.000894, -0.000894, -0.001489, + -0.001787, -0.002085, -0.001787, -0.002681, -0.002681, -0.003276, + -0.003574, -0.003872, -0.004170, -0.004170, -0.004766, -0.004468, + -0.004468, -0.004766, -0.005361, -0.005361, -0.005659, -0.005957, + -0.006255, -0.006851, -0.006851, -0.007744, -0.007744, -0.008042, + -0.008340, -0.008638, -0.008638, -0.008936, -0.009233, -0.009531, + -0.009829, -0.009531, -0.009829, -0.009829, -0.009829, -0.010127, + -0.010723, -0.010723, -0.010723, -0.011318, -0.011318, -0.011616, + -0.011914, -0.012212, -0.012510, -0.012212, -0.012510, -0.012510, + -0.013106, -0.012808, -0.013403, -0.013403, -0.013403, -0.013701, + -0.013701, -0.013701, -0.013999, -0.014297, -0.014595, -0.014595, + -0.014297, -0.014893, -0.014893, -0.015191, -0.015191, -0.015488, + -0.015191, -0.015786, -0.015786, -0.016084, -0.016382, -0.016680, + -0.016680, -0.016978, -0.017276, -0.017276, -0.017573, -0.017573, + -0.018169, -0.017871, -0.018169, -0.018467, -0.018169, -0.018765, + -0.018765, -0.018467, -0.019063, -0.019361, -0.019361, -0.019361, + -0.019361, -0.019361, -0.019658, -0.019956, -0.019658, -0.019956, + -0.019956, -0.020254, -0.020552, -0.020552, -0.020552, -0.020552, + -0.020850, -0.021148, -0.021148, -0.020850, -0.020850, -0.021148, + -0.021446, -0.021743, -0.021446, -0.021446, -0.021743, -0.021743, + -0.021743, -0.022041, -0.022041, -0.022041, -0.022637, -0.022339, + -0.022935, -0.022339, -0.022339, -0.022041, -0.021743, -0.022339, + -0.022339, -0.022339, -0.022339, -0.022339, -0.022637, -0.022637, + -0.022637, -0.022637, -0.022637, -0.022935, -0.022637, -0.022637, + -0.022637, -0.022339, -0.022339, -0.022339, -0.022637, -0.022041, + -0.022339, -0.022041, -0.022041, -0.022637, -0.022339, -0.022339, + -0.022339, -0.022339, -0.022637, -0.022339, -0.022041, -0.022041, + -0.021743, -0.021743, -0.021743, -0.021446, -0.021446, -0.021446, + -0.021446, -0.021446, -0.021148, -0.020850, -0.020850, -0.020552, + -0.020850, -0.020254, -0.019956, -0.019361, -0.019361, -0.018765, + -0.018467, -0.018467, -0.017871, -0.017871, -0.017871, -0.017871, + -0.018169, -0.017871, -0.017573, -0.016978, -0.016382, -0.016084, + -0.016084, -0.016084, -0.015488, -0.015191, -0.015191, -0.014893, + -0.014297, -0.013701, -0.013403, -0.013106, -0.012808, -0.012510, + -0.011914, -0.011318, -0.010723, -0.010425, -0.010127, -0.008936, + -0.008936, -0.008340, -0.007744, -0.007744, -0.006851, -0.006553, + -0.006255, -0.005957, -0.005361, -0.004468, -0.003872, -0.003574, + -0.002979, -0.002383, -0.001489, -0.000894, -0.000298, 0.000000, + 0.000596, 0.000894, 0.001489, 0.002085, 0.002383, 0.002979, + 0.003872, 0.004170, 0.005064, 0.005659, 0.006553, 0.007149, + 0.007446, 0.008638, 0.009233, 0.009829, 0.010723, 0.011021, + 0.011616, 0.012212, 0.013106, 0.013701, 0.014297, 0.014893, + 0.015488, 0.016382, 0.017276, 0.017871, 0.018765, 0.019658, + 0.020552, 0.021148, 0.021743, 0.022637, 0.023233, 0.023828, + 0.024424, 0.025615, 0.026211, 0.027105, 0.027998, 0.027998, + 0.028892, 0.029488, 0.030381, 0.030977, 0.031573, 0.032168, + 0.032764, 0.033658, 0.034253, 0.034849, 0.035445, 0.035743, + 0.036636, 0.037232, 0.037530, 0.038125, 0.038721, 0.039317, + 0.040210, 0.040806, 0.041104, 0.041700, 0.041997, 0.042593, + 0.043189, 0.043487, 0.043785, 0.044380, 0.044678, 0.044976, + 0.045870, 0.046167, 0.046167, 0.046763, 0.047061, 0.047359, + 0.047061, 0.047657, 0.047955, 0.047955, 0.048550, 0.048550, + 0.048848, 0.048550, 0.048848, 0.048848, 0.048848, 0.049146, + 0.049146, 0.049742, 0.049742, 0.049742, 0.049742, 0.049444, + 0.049742, 0.049742, 0.049742, 0.049742, 0.049444, 0.049146, + 0.049146, 0.048848, 0.048848, 0.048550, 0.048550, 0.048550, + 0.048550, 0.048252, 0.048252, 0.048252, 0.047657, 0.047359, + 0.046763, 0.046763, 0.046167, 0.045870, 0.045274, 0.045274, + 0.044976, 0.044678, 0.044380, 0.043785, 0.043487, 0.042891, + 0.042593, 0.042295, 0.041997, 0.041402, 0.041104, 0.039913, + 0.039615, 0.038721, 0.038423, 0.037828, 0.037530, 0.036636, + 0.036338, 0.035445, 0.035147, 0.034551, 0.034253, 0.033658, + 0.033062, 0.032168, 0.031573, 0.030679, 0.030083, 0.029488, + 0.028892, 0.027998, 0.027403, 0.026807, 0.025913, 0.025318, + 0.024424, 0.023828, 0.023233, 0.022339, 0.021743, 0.020850, + 0.019956, 0.019361, 0.018467, 0.017573, 0.016978, 0.015786, + 0.015191, 0.014297, 0.013701, 0.012808, 0.012510, 0.011318, + 0.010425, 0.009531, 0.008936, 0.008042, 0.007149, 0.006553, + 0.005659, 0.005064, 0.003872, 0.002979, 0.002383, 0.001489, + 0.000298, -0.000298, -0.000894, -0.001489, -0.002681, -0.003276, + -0.004170, -0.005064, -0.005659, -0.006553, -0.007446, -0.008340, + -0.008936, -0.010425, -0.011021, -0.011914, -0.012808, -0.013403, + -0.014297, -0.015191, -0.016382, -0.016978, -0.017573, -0.018467, + -0.019361, -0.019956, -0.021148, -0.021743, -0.022637, -0.023531, + -0.023828, -0.025020, -0.025615, -0.026211, -0.026807, -0.027700, + -0.028296, -0.029190, -0.030083, -0.030977, -0.031573, -0.032466, + -0.033062, -0.033955, -0.034849, -0.035445, -0.036338, -0.036636, + -0.037530, -0.038423, -0.039019, -0.039615, -0.040210, -0.040806, + -0.041700, -0.042295, -0.043189, -0.043487, -0.044380, -0.044976, + -0.045870, -0.046465, -0.047061, -0.047657, -0.048252, -0.048848, + -0.049146, -0.050040, -0.050337, -0.050933, -0.051529, -0.051827, + -0.052125, -0.053316, -0.053614, -0.054210, -0.054805, -0.055699, + -0.055997, -0.056592, -0.056890, -0.057486, -0.058082, -0.058380, + -0.058975, -0.059273, -0.059571, -0.060464, -0.061060, -0.061656, + -0.062549, -0.062847, -0.063741, -0.064634, -0.065528, -0.065826, + -0.066422, -0.067613, -0.068209, -0.069102, -0.069400, -0.069996, + -0.070889, -0.072081, -0.072379, -0.073272, -0.073868, -0.074166, + -0.075059, -0.075655, -0.076251, -0.077144, -0.077740, -0.078336, + -0.079527, -0.079825, -0.080421, -0.081314, -0.082208, -0.082506, + -0.083399, -0.083995, -0.085186, -0.086378, -0.087867, -0.088463, + -0.089356, -0.090846, -0.091739, -0.092633, -0.093228, -0.093824, + -0.094718, -0.095611, -0.096207, -0.097101, -0.097696, -0.098590, + -0.099483, -0.100377, -0.101568, -0.102164, -0.103356, -0.104249, + -0.105143, -0.106036, -0.106334, -0.106930, -0.107823, -0.108717, + -0.109313, -0.109908, -0.109908, -0.110802, -0.110802, -0.111100, + -0.111100, -0.110504, -0.109908, -0.109313, -0.109313, -0.109610, + -0.109610, -0.108717, -0.108717, -0.107823, -0.108121, -0.107228, + -0.106334, -0.104547, -0.103058, -0.101866, -0.100377, -0.097994, + -0.095611, -0.092633, -0.089654, -0.087271, -0.083995, -0.080719, + -0.077442, -0.075357, -0.073272, -0.072379, -0.071187, -0.069996, + -0.068507, -0.066422, -0.063443, -0.059869, -0.055401, -0.050635, + -0.046763, -0.042295, -0.039019, -0.036040, -0.033360, -0.030381, + -0.027105, -0.024126, -0.019956, -0.016084, -0.011914, -0.007744, + -0.004468, -0.000894, 0.002085, 0.005957, 0.010127, 0.014893, + 0.019658, 0.024126, 0.029190, 0.033360, 0.037530, 0.040508, + 0.043487, 0.046167, 0.049146, 0.053018, 0.056592, 0.060762, + 0.064932, 0.069102, 0.073272, 0.076846, 0.080421, 0.083101, + 0.086378, 0.089059, 0.092335, 0.095313, 0.097696, 0.100377, + 0.103356, 0.106632, 0.109313, 0.112291, 0.114972, 0.117653, + 0.121823, 0.125099, 0.127780, 0.130460, 0.132843, 0.134630, + 0.136715, 0.138502, 0.139992, 0.142077, 0.143864, 0.145949, + 0.148332, 0.150417, 0.151906, 0.153097, 0.154289, 0.155480, + 0.156374, 0.157565, 0.158459, 0.159650, 0.160544, 0.161139, + 0.161437, 0.161437, 0.161139, 0.160544, 0.160246, 0.160246, + 0.160841, 0.161139, 0.161437, 0.161437, 0.162033, 0.161437, + 0.160841, 0.159650, 0.158756, 0.157863, 0.157565, 0.156374, + 0.156374, 0.155778, 0.155480, 0.155480, 0.155182, 0.154289, + 0.153693, 0.152502, 0.151310, 0.150417, 0.148927, 0.147438, + 0.145651, 0.144162, 0.142375, 0.140885, 0.138800, 0.137311, + 0.135822, 0.134035, 0.132843, 0.131056, 0.129269, 0.127482, + 0.125695, 0.123610, 0.121227, 0.119142, 0.117355, 0.114972, + 0.113185, 0.111100, 0.109015, 0.106930, 0.104845, 0.102760, + 0.101271, 0.099186, 0.097696, 0.096207, 0.094420, 0.092335, + 0.090846, 0.088761, 0.086378, 0.083697, 0.080719, 0.078634, + 0.076251, 0.073868, 0.072379, 0.070294, 0.067911, 0.065826, + 0.063741, 0.061060, 0.058380, 0.055997, 0.053018, 0.050635, + 0.048252, 0.045870, 0.043785, 0.041402, 0.039615, 0.037232, + 0.035147, 0.032764, 0.030381, 0.028296, 0.026509, 0.024126, + 0.022339, 0.020254, 0.018169, 0.016382, 0.014297, 0.012212, + 0.010127, 0.008340, 0.006553, 0.004468, 0.002681, 0.000596, + -0.000894, -0.002383, -0.003872, -0.005659, -0.007149, -0.008638, + -0.010425, -0.012212, -0.013701, -0.015488, -0.016978, -0.018765, + -0.020552, -0.021446, -0.022339, -0.023828, -0.024722, -0.025913, + -0.027105, -0.028296, -0.029488, -0.030679, -0.031870, -0.033062, + -0.033658, -0.034551, -0.035445, -0.035743, -0.036338, -0.036636, + -0.036934, -0.037232, -0.037828, -0.037828, -0.038125, -0.038423, + -0.039019, -0.039019, -0.039317, -0.039317, -0.039615, -0.039615, + -0.039913, -0.040210, -0.040508, -0.040806, -0.040806, -0.041104, + -0.040806, -0.040806, -0.040806, -0.040806, -0.041104, -0.041104, + -0.041104, -0.041402, -0.041402, -0.041402, -0.041402, -0.041402, + -0.041104, -0.040806, -0.039913, -0.039615, -0.039019, -0.039019, + -0.038125, -0.037828, -0.037232, -0.036934, -0.036934, -0.036338, + -0.036338, -0.035743, -0.035743, -0.035445, -0.035147, -0.034849, + -0.034253, -0.033955, -0.033658, -0.033658, -0.033062, -0.033062, + -0.032764, -0.032764, -0.032764, -0.032466, -0.032466, -0.032466, + -0.031870, -0.032168, -0.032168, -0.032466, -0.032168, -0.032168, + -0.032168, -0.032466, -0.032168, -0.032168, -0.032466, -0.032466, + -0.032764, -0.033062, -0.033360, -0.033658, -0.033955, -0.034253, + -0.034849, -0.035445, -0.035743, -0.036338, -0.036934, -0.037232, + -0.038125, -0.038721, -0.039913, -0.040806, -0.041402, -0.042593, + -0.043487, -0.044678, -0.045572, -0.047061, -0.048252, -0.049742, + -0.050933, -0.052125, -0.053614, -0.054805, -0.056295, -0.057188, + -0.058677, -0.059869, -0.061358, -0.062847, -0.064337, -0.065826, + -0.067911, -0.068804, -0.070889, -0.072379, -0.074464, -0.076251, + -0.077740, -0.079825, -0.081016, -0.083399, -0.085186, -0.087271, + -0.089059, -0.090846, -0.092931, -0.095313, -0.097994, -0.100377, + -0.102462, -0.104547, -0.107526, -0.111100, -0.114078, -0.116461, + -0.118546, -0.121525, -0.124503, -0.127184, -0.129567, -0.132545, + -0.135226, -0.138205, -0.141183, -0.144459, -0.148034, -0.151310, + -0.154289, -0.157863, -0.161139, -0.164416, -0.167990, -0.171266, + -0.174543, -0.177521, -0.179904, -0.181989, -0.184372, -0.186457, + -0.187946, -0.188840, -0.190329, -0.191818, -0.193605, -0.194797, + -0.195988, -0.196882, -0.196882, -0.193605, -0.187648, -0.181096, + -0.175734, -0.171564, -0.167990, -0.165607, -0.165607, -0.168586, + -0.173947, -0.179904, -0.182883, -0.181989, -0.177819, -0.172458, + -0.166799, -0.159948, -0.153097, -0.147438, -0.144757, -0.144459, + -0.145055, -0.143864, -0.141779, -0.137311, -0.132545, -0.126290, + -0.120035, -0.114972, -0.111695, -0.109610, -0.107823, -0.103951, + -0.097994, -0.090250, -0.080719, -0.070592, -0.060464, -0.052422, + -0.045870, -0.041997, -0.039615, -0.038423, -0.037530, -0.034253, + -0.028892, -0.021148, -0.012510, -0.004766, 0.002085, 0.007744, + 0.013106, 0.017573, 0.021743, 0.024722, 0.028296, 0.031870, + 0.036636, 0.041700, 0.045870, 0.049742, 0.053912, 0.057784, + 0.062847, 0.068507, 0.074166, 0.081016, 0.087569, 0.093824, + 0.098888, 0.103058, 0.106036, 0.108717, 0.112291, 0.115270, + 0.118844, 0.122418, 0.126886, 0.131950, 0.136715, 0.139992, + 0.142375, 0.144757, 0.147438, 0.151012, 0.153991, 0.157863, + 0.160841, 0.163820, 0.165011, 0.165905, 0.165607, 0.164416, + 0.163522, 0.163522, 0.165011, 0.167692, 0.170969, 0.174245, + 0.177521, 0.179308, 0.179904, 0.179308, 0.177521, 0.175436, + 0.174245, 0.173649, 0.174841, 0.176032, 0.178415, 0.179904, + 0.181393, 0.182585, 0.183478, 0.183181, 0.182585, 0.181393, + 0.180500, 0.180202, 0.179606, 0.179308, 0.177819, 0.176926, + 0.175734, 0.175139, 0.173649, 0.172160, 0.170969, 0.169777, + 0.168884, 0.167692, 0.166203, 0.164714, 0.163224, 0.162033, + 0.159650, 0.157267, 0.154587, 0.151906, 0.149523, 0.146842, + 0.144162, 0.141779, 0.139992, 0.139098, 0.138502, 0.137907, + 0.137311, 0.135822, 0.134332, 0.131950, 0.128971, 0.125397, + 0.121823, 0.117950, 0.114674, 0.112291, 0.110206, 0.108717, + 0.107823, 0.106632, 0.104845, 0.102760, 0.100079, 0.096505, + 0.092931, 0.089356, 0.086080, 0.083101, 0.080719, 0.077740, + 0.075655, 0.072974, 0.070889, 0.067911, 0.065230, 0.061954, + 0.058975, 0.056295, 0.054507, 0.052422, 0.050635, 0.048252, + 0.046465, 0.044082, 0.041402, 0.039317, 0.037232, 0.035147, + 0.032764, 0.030381, 0.027998, 0.026807, 0.025020, 0.022339, + 0.019956, 0.017276, 0.015191, 0.013106, 0.011021, 0.008042, + 0.005957, 0.003276, 0.001489, 0.000000, -0.001191, -0.002979, + -0.004170, -0.005064, -0.005064, -0.005659, -0.006255, -0.007744, + -0.009829, -0.011616, -0.013701, -0.015488, -0.016680, -0.017276, + -0.017276, -0.016680, -0.015191, -0.015191, -0.015191, -0.016382, + -0.017573, -0.018467, -0.019063, -0.020254, -0.020254, -0.019956, + -0.019063, -0.017871, -0.017276, -0.016978, -0.016978, -0.017573, + -0.017276, -0.016978, -0.015786, -0.014893, -0.013701, -0.012510, + -0.011616, -0.010425, -0.010127, -0.009829, -0.008936, -0.008340, + -0.007446, -0.006553, -0.005361, -0.004468, -0.003276, -0.002085, + -0.000596, 0.000298, 0.001489, 0.002681, 0.004468, 0.005361, + 0.005957, 0.006255, 0.006553, 0.008042, 0.008638, 0.009531, + 0.010127, 0.011914, 0.013403, 0.015191, 0.016978, 0.017871, + 0.019361, 0.019658, 0.020254, 0.020552, 0.021743, 0.022041, + 0.022935, 0.024424, 0.026211, 0.027403, 0.028892, 0.029488, + 0.029785, 0.030083, 0.030381, 0.030679, 0.030679, 0.031275, + 0.031573, 0.032764, 0.033360, 0.034253, 0.033955, 0.033360, + 0.033062, 0.032764, 0.032764, 0.032764, 0.032764, 0.032764, + 0.032764, 0.032466, 0.032764, 0.031870, 0.030977, 0.030381, + 0.029488, 0.029190, 0.028594, 0.027998, 0.027105, 0.026807, + 0.026211, 0.025913, 0.025318, 0.024722, 0.023828, 0.023233, + 0.022339, 0.021148, 0.019658, 0.018467, 0.017276, 0.015786, + 0.014893, 0.013701, 0.012510, 0.011616, 0.010723, 0.009531, + 0.007446, 0.005659, 0.003872, 0.002085, 0.000000, -0.001787, + -0.003574, -0.005361, -0.007446, -0.008936, -0.011021, -0.012808, + -0.014595, -0.016382, -0.018467, -0.020254, -0.022339, -0.024126, + -0.026211, -0.027700, -0.029190, -0.031275, -0.033360, -0.035743, + -0.037828, -0.040210, -0.042593, -0.044678, -0.047061, -0.049146, + -0.051231, -0.053018, -0.055103, -0.057188, -0.059869, -0.062252, + -0.064634, -0.066719, -0.069102, -0.071187, -0.073570, -0.075655, + -0.078038, -0.080123, -0.082506, -0.084293, -0.086974, -0.089356, + -0.091739, -0.094420, -0.096505, -0.099186, -0.101568, -0.104249, + -0.106632, -0.108717, -0.111100, -0.113185, -0.114972, -0.117057, + -0.118844, -0.121227, -0.123014, -0.125397, -0.127780, -0.130758, + -0.133141, -0.135524, -0.138502, -0.140290, -0.143268, -0.145949, + -0.148927, -0.151608, -0.154289, -0.156969, -0.159948, -0.162926, + -0.165011, -0.167692, -0.170373, -0.173351, -0.176330, -0.179308, + -0.182585, -0.185563, -0.189138, -0.193010, -0.195988, -0.198967, + -0.201350, -0.204328, -0.207605, -0.211179, -0.214157, -0.217136, + -0.220412, -0.223391, -0.226072, -0.227859, -0.229348, -0.231135, + -0.233220, -0.234709, -0.236199, -0.237688, -0.240071, -0.241858, + -0.242454, -0.241560, -0.239475, -0.237390, -0.233518, -0.226965, + -0.218923, -0.211775, -0.207605, -0.205818, -0.204924, -0.203733, + -0.204328, -0.207307, -0.212072, -0.214753, -0.213264, -0.208200, + -0.201350, -0.194797, -0.188244, -0.181096, -0.173351, -0.167692, + -0.164416, -0.163522, -0.163224, -0.160841, -0.156672, -0.151310, + -0.144757, -0.138502, -0.132545, -0.127482, -0.122716, -0.117950, + -0.112589, -0.106036, -0.097994, -0.087569, -0.076549, -0.065528, + -0.055699, -0.048848, -0.043785, -0.040210, -0.037828, -0.035743, + -0.033062, -0.027700, -0.018765, -0.008042, 0.002681, 0.011914, + 0.019361, 0.025615, 0.030977, 0.035445, 0.038721, 0.041402, + 0.044380, 0.049146, 0.054507, 0.059869, 0.065230, 0.070294, + 0.075655, 0.081314, 0.087569, 0.093228, 0.099186, 0.105441, + 0.112291, 0.118546, 0.123312, 0.126588, 0.129567, 0.131950, + 0.134928, 0.138205, 0.141481, 0.145055, 0.150119, 0.155480, + 0.161139, 0.165309, 0.168288, 0.170969, 0.173351, 0.176628, + 0.179011, 0.181096, 0.182287, 0.183478, 0.184074, 0.184968, + 0.184968, 0.184074, 0.183776, 0.184670, 0.186755, 0.190031, + 0.193010, 0.195690, 0.196882, 0.196882, 0.196286, 0.194499, + 0.191818, 0.188840, 0.187351, 0.187053, 0.188840, 0.190925, + 0.192712, 0.194499, 0.195393, 0.196286, 0.195690, 0.194797, + 0.192712, 0.190627, 0.188840, 0.187648, 0.186755, 0.185563, + 0.184670, 0.183478, 0.181989, 0.180798, 0.179606, 0.177819, + 0.176628, 0.175139, 0.173947, 0.172756, 0.171266, 0.168884, + 0.166501, 0.164118, 0.161139, 0.157863, 0.154884, 0.151608, + 0.148629, 0.146544, 0.144757, 0.143268, 0.142375, 0.141779, + 0.141183, 0.139992, 0.138205, 0.135524, 0.132843, 0.129567, + 0.125992, 0.121823, 0.118248, 0.115568, 0.113483, 0.111993, + 0.110504, 0.109908, 0.108717, 0.107228, 0.105143, 0.102164, + 0.098292, 0.094420, 0.090250, 0.086974, 0.084293, 0.081910, + 0.080123, 0.078634, 0.077442, 0.076846, 0.075357, 0.073570, + 0.070592, 0.067613, 0.065230, 0.063145, 0.060464, 0.057784, + 0.055401, 0.053316, 0.051529, 0.049146, 0.046167, 0.043487, + 0.040508, 0.038125, 0.036636, 0.035147, 0.033658, 0.032764, + 0.031870, 0.030977, 0.030083, 0.027998, 0.025615, 0.022935, + 0.020254, 0.017573, 0.015786, 0.014893, 0.014893, 0.014595, + 0.014893, 0.015191, 0.014595, 0.013701, 0.011914, 0.009829, + 0.007446, 0.005659, 0.004170, 0.002681, 0.002085, 0.001489, + 0.001787, 0.002085, 0.002383, 0.002979, 0.003276, 0.003276, + 0.002979, 0.002979, 0.002383, 0.000894, 0.000298, -0.000596, + -0.001489, -0.001489, -0.000894, 0.000000, 0.001191, 0.002681, + 0.003574, 0.004766, 0.005659, 0.006553, 0.007149, 0.008042, + 0.008638, 0.010425, 0.011616, 0.012808, 0.013403, 0.013106, + 0.012808, 0.012510, 0.012510, 0.013106, 0.014297, 0.015786, + 0.017573, 0.019658, 0.021148, 0.021743, 0.021743, 0.021446, + 0.021148, 0.020552, 0.019956, 0.020254, 0.020552, 0.021446, + 0.022637, 0.023828, 0.025020, 0.026211, 0.027105, 0.027403, + 0.027998, 0.028296, 0.028296, 0.028296, 0.028296, 0.028296, + 0.029190, 0.029785, 0.030977, 0.031275, 0.032168, 0.032466, + 0.032466, 0.032764, 0.032764, 0.033062, 0.032764, 0.032764, + 0.032168, 0.031573, 0.030977, 0.030381, 0.029488, 0.028594, + 0.027700, 0.027105, 0.026211, 0.025615, 0.024722, 0.023828, + 0.022935, 0.022041, 0.021148, 0.020552, 0.019658, 0.018169, + 0.016680, 0.014893, 0.013106, 0.011616, 0.010127, 0.008936, + 0.008638, 0.008042, 0.007744, 0.006851, 0.006255, 0.004766, + 0.002681, 0.000596, -0.001191, -0.003276, -0.005064, -0.006851, + -0.008340, -0.009829, -0.011616, -0.013403, -0.015488, -0.017573, + -0.019658, -0.021743, -0.024126, -0.026509, -0.029190, -0.031870, + -0.033955, -0.036636, -0.039019, -0.041402, -0.044082, -0.046465, + -0.048848, -0.050635, -0.053018, -0.055103, -0.056890, -0.059273, + -0.061060, -0.062847, -0.065230, -0.067613, -0.070592, -0.073570, + -0.075953, -0.078931, -0.081612, -0.083995, -0.086378, -0.088463, + -0.090250, -0.092335, -0.094122, -0.096505, -0.098590, -0.101271, + -0.103653, -0.106334, -0.109908, -0.112887, -0.116163, -0.119142, + -0.121525, -0.124205, -0.126886, -0.129269, -0.131652, -0.133737, + -0.135822, -0.138205, -0.141183, -0.143566, -0.145949, -0.148629, + -0.151608, -0.154587, -0.157267, -0.159948, -0.162926, -0.165607, + -0.168288, -0.170671, -0.172756, -0.175139, -0.177521, -0.180202, + -0.183478, -0.185563, -0.188244, -0.191223, -0.194499, -0.198371, + -0.201350, -0.204924, -0.207903, -0.212072, -0.215945, -0.220115, + -0.223689, -0.226667, -0.230539, -0.235305, -0.239773, -0.244539, + -0.248411, -0.253474, -0.258538, -0.263006, -0.266282, -0.268665, + -0.271346, -0.273728, -0.276111, -0.277898, -0.279685, -0.280281, + -0.278792, -0.275515, -0.268665, -0.258836, -0.248113, -0.238582, + -0.232029, -0.228454, -0.227859, -0.231135, -0.238284, -0.247517, + -0.255261, -0.257942, -0.254666, -0.246624, -0.235901, -0.224582, + -0.213860, -0.205222, -0.200158, -0.198967, -0.201350, -0.204328, + -0.204924, -0.202243, -0.195690, -0.187648, -0.179904, -0.173054, + -0.168586, -0.165011, -0.162629, -0.159650, -0.154587, -0.145651, + -0.132843, -0.117950, -0.102462, -0.089356, -0.080123, -0.074464, + -0.072081, -0.070889, -0.069698, -0.067315, -0.061060, -0.050635, + -0.036934, -0.022637, -0.009829, 0.000000, 0.007446, 0.012808, + 0.016978, 0.020254, 0.023531, 0.027403, 0.032466, 0.039317, + 0.045572, 0.051529, 0.056592, 0.061954, 0.067315, 0.073868, + 0.081612, 0.089952, 0.098888, 0.108419, 0.115865, 0.121823, + 0.125397, 0.127482, 0.128971, 0.131354, 0.134630, 0.139694, + 0.146544, 0.153693, 0.161735, 0.168586, 0.174543, 0.178117, + 0.180798, 0.183181, 0.186457, 0.190329, 0.194499, 0.198073, + 0.200456, 0.202243, 0.202839, 0.202243, 0.201052, 0.200158, + 0.200456, 0.203435, 0.207605, 0.212966, 0.217434, 0.220115, + 0.221306, 0.220115, 0.217434, 0.213562, 0.209392, 0.206413, + 0.205520, 0.206711, 0.210285, 0.213860, 0.217136, 0.219817, + 0.221604, 0.221604, 0.220710, 0.218030, 0.215349, 0.212668, + 0.210583, 0.209392, 0.208498, 0.207903, 0.207307, 0.206711, + 0.205818, 0.204626, 0.203137, 0.201945, 0.200754, 0.199265, + 0.197775, 0.196286, 0.193903, 0.191520, 0.188542, 0.185266, + 0.181393, 0.178117, 0.174543, 0.171564, 0.168586, 0.166203, + 0.164416, 0.163224, 0.162629, 0.162331, 0.161139, 0.160246, + 0.157863, 0.154884, 0.151310, 0.146842, 0.142077, 0.137311, + 0.133439, 0.130162, 0.128375, 0.127184, 0.126588, 0.125992, + 0.125397, 0.123908, 0.121227, 0.116759, 0.111695, 0.106334, + 0.100675, 0.095909, 0.092037, 0.089059, 0.086974, 0.086080, + 0.083995, 0.082506, 0.080123, 0.076846, 0.073272, 0.069102, + 0.065230, 0.061358, 0.058677, 0.055699, 0.053614, 0.051529, + 0.050337, 0.048252, 0.045274, 0.041402, 0.038423, 0.036636, + 0.034253, 0.032764, 0.030679, 0.029785, 0.028594, 0.027700, + 0.025913, 0.024126, 0.021148, 0.017573, 0.014297, 0.011318, + 0.008638, 0.006851, 0.005361, 0.004766, 0.004766, 0.004766, + 0.004170, 0.003276, 0.002085, 0.000298, -0.001191, -0.002979, + -0.004766, -0.005957, -0.006851, -0.007446, -0.006851, -0.006553, + -0.006255, -0.006255, -0.005957, -0.005659, -0.005659, -0.006255, + -0.006851, -0.007744, -0.008042, -0.007744, -0.007446, -0.006851, + -0.005957, -0.005064, -0.003276, -0.001489, -0.000298, 0.000298, + 0.000596, 0.001489, 0.002383, 0.003574, 0.005064, 0.007149, + 0.008638, 0.010723, 0.012212, 0.012808, 0.013106, 0.013403, + 0.013999, 0.014893, 0.016084, 0.017276, 0.019063, 0.021148, + 0.022935, 0.024424, 0.025913, 0.026807, 0.027403, 0.027998, + 0.028296, 0.028594, 0.029190, 0.030381, 0.031573, 0.033360, + 0.035445, 0.037530, 0.039019, 0.040508, 0.041402, 0.041997, + 0.042295, 0.043189, 0.043189, 0.043785, 0.044678, 0.045870, + 0.047359, 0.048252, 0.049444, 0.049742, 0.050040, 0.050040, + 0.050635, 0.049742, 0.049742, 0.049444, 0.049444, 0.049444, + 0.048848, 0.048252, 0.048252, 0.047955, 0.047657, 0.047061, + 0.046167, 0.045274, 0.044082, 0.043189, 0.041997, 0.041700, + 0.040806, 0.039913, 0.039317, 0.038423, 0.037232, 0.035743, + 0.033658, 0.031870, 0.030083, 0.028594, 0.026807, 0.025913, + 0.024722, 0.023531, 0.022041, 0.020850, 0.018765, 0.016382, + 0.014297, 0.011616, 0.009531, 0.007446, 0.005361, 0.003276, + 0.001787, 0.000000, -0.001787, -0.003574, -0.005957, -0.008638, + -0.011021, -0.013701, -0.016680, -0.019361, -0.022339, -0.024722, + -0.026807, -0.029190, -0.031573, -0.033955, -0.036338, -0.039019, + -0.041700, -0.044380, -0.047061, -0.049742, -0.052422, -0.054805, + -0.057784, -0.060167, -0.062847, -0.065528, -0.068209, -0.071187, + -0.073868, -0.077144, -0.080123, -0.082506, -0.085186, -0.087867, + -0.090250, -0.092931, -0.095313, -0.097994, -0.101271, -0.104249, + -0.107228, -0.110504, -0.113185, -0.115865, -0.118546, -0.120929, + -0.123610, -0.125992, -0.128673, -0.131354, -0.134035, -0.136715, + -0.139694, -0.142672, -0.145949, -0.148332, -0.151012, -0.153395, + -0.156374, -0.159352, -0.162629, -0.165607, -0.167990, -0.170373, + -0.173649, -0.176330, -0.179904, -0.182585, -0.185266, -0.188244, + -0.190925, -0.194499, -0.197775, -0.200754, -0.203137, -0.205818, + -0.209094, -0.212668, -0.216540, -0.219221, -0.222497, -0.225774, + -0.230242, -0.234412, -0.237986, -0.241858, -0.246028, -0.250496, + -0.254964, -0.259729, -0.264197, -0.269261, -0.274324, -0.279983, + -0.284451, -0.288323, -0.292195, -0.296067, -0.300237, -0.303216, + -0.305897, -0.307684, -0.309769, -0.310067, -0.309173, -0.303812, + -0.293982, -0.282366, -0.271643, -0.262112, -0.255261, -0.250198, + -0.249602, -0.254070, -0.263601, -0.274324, -0.282664, -0.284153, + -0.278792, -0.268963, -0.256751, -0.243943, -0.231135, -0.220710, + -0.214753, -0.214753, -0.218327, -0.222795, -0.223987, -0.220115, + -0.212668, -0.204030, -0.195393, -0.187351, -0.181096, -0.176926, + -0.174245, -0.172160, -0.167394, -0.157267, -0.142077, -0.124503, + -0.108121, -0.094718, -0.084293, -0.077442, -0.074166, -0.074166, + -0.074464, -0.072379, -0.064337, -0.050635, -0.033658, -0.016978, + -0.002383, 0.009233, 0.018467, 0.025020, 0.028594, 0.030083, + 0.031870, 0.036040, 0.042891, 0.051529, 0.058975, 0.065826, + 0.072379, 0.078931, 0.085782, 0.092633, 0.100377, 0.108717, + 0.117950, 0.127780, 0.136120, 0.141779, 0.144757, 0.145353, + 0.146544, 0.149225, 0.153693, 0.159352, 0.166799, 0.175734, + 0.185266, 0.193605, 0.199563, 0.202541, 0.203733, 0.205222, + 0.207903, 0.211775, 0.216242, 0.220710, 0.224880, 0.228454, + 0.230242, 0.229646, 0.227263, 0.224582, 0.224582, 0.227263, + 0.232327, 0.237986, 0.242751, 0.246624, 0.247815, 0.247219, + 0.243347, 0.237688, 0.231135, 0.226667, 0.225178, 0.227263, + 0.231731, 0.236497, 0.241560, 0.245134, 0.246921, 0.246326, + 0.243347, 0.238582, 0.233816, 0.229348, 0.227263, 0.225476, + 0.224880, 0.224582, 0.224284, 0.224582, 0.223987, 0.223391, + 0.221902, 0.219817, 0.218625, 0.216540, 0.214455, 0.211477, + 0.208498, 0.205222, 0.201945, 0.198073, 0.194499, 0.190627, + 0.187946, 0.184968, 0.183181, 0.180798, 0.178415, 0.176628, + 0.174841, 0.173947, 0.172756, 0.171266, 0.168884, 0.165905, + 0.162629, 0.158161, 0.153395, 0.148034, 0.143268, 0.139396, + 0.137311, 0.136715, 0.136715, 0.136715, 0.136120, 0.134928, + 0.131950, 0.127184, 0.120929, 0.114078, 0.106632, 0.101568, + 0.097398, 0.095016, 0.094122, 0.093824, 0.094420, 0.094122, + 0.093228, 0.089356, 0.085484, 0.080719, 0.075655, 0.070889, + 0.067315, 0.064634, 0.062549, 0.061656, 0.060464, 0.059869, + 0.058380, 0.056295, 0.053614, 0.051231, 0.048848, 0.046763, + 0.044380, 0.042295, 0.040806, 0.038721, 0.036338, 0.033360, + 0.030083, 0.027403, 0.025318, 0.023531, 0.022339, 0.021446, + 0.021148, 0.021446, 0.022041, 0.021446, 0.019956, 0.018169, + 0.016382, 0.014297, 0.011914, 0.009233, 0.007149, 0.005361, + 0.004766, 0.004468, 0.005361, 0.006255, 0.008340, 0.009233, + 0.010723, 0.011021, 0.010723, 0.008936, 0.006553, 0.003574, + 0.001489, 0.000000, -0.000298, 0.000596, 0.002681, 0.006553, + 0.010127, 0.012510, 0.013701, 0.014595, 0.013999, 0.013701, + 0.012510, 0.011616, 0.011021, 0.011318, 0.012808, 0.014595, + 0.016382, 0.017871, 0.018765, 0.019658, 0.020552, 0.021446, + 0.022339, 0.023233, 0.024424, 0.025913, 0.027403, 0.028296, + 0.028892, 0.028892, 0.028296, 0.027998, 0.028296, 0.027998, + 0.028296, 0.029488, 0.031275, 0.033360, 0.035743, 0.036934, + 0.037828, 0.037828, 0.037530, 0.036934, 0.035445, 0.034551, + 0.033360, 0.033360, 0.033955, 0.034551, 0.035445, 0.036636, + 0.037828, 0.039019, 0.039913, 0.039913, 0.039317, 0.037828, + 0.036338, 0.034253, 0.032764, 0.031870, 0.031275, 0.030977, + 0.031275, 0.032168, 0.032466, 0.032466, 0.031573, 0.030679, + 0.029190, 0.027403, 0.025318, 0.023233, 0.021446, 0.020254, + 0.018765, 0.017573, 0.015786, 0.013999, 0.011914, 0.009829, + 0.007744, 0.005659, 0.003872, 0.002085, 0.000894, -0.000596, + -0.002383, -0.004468, -0.007149, -0.009829, -0.012808, -0.015786, + -0.018765, -0.020850, -0.022637, -0.023828, -0.025020, -0.026211, + -0.027105, -0.028892, -0.031275, -0.034253, -0.037232, -0.040508, + -0.044082, -0.047359, -0.050635, -0.053018, -0.055997, -0.058082, + -0.060464, -0.062252, -0.064039, -0.066124, -0.068804, -0.071485, + -0.074464, -0.078038, -0.081612, -0.084591, -0.088463, -0.091441, + -0.094122, -0.096803, -0.099483, -0.102164, -0.104547, -0.106930, + -0.109313, -0.112291, -0.115270, -0.117950, -0.121227, -0.123908, + -0.127184, -0.130162, -0.133737, -0.137013, -0.139992, -0.142672, + -0.145651, -0.148629, -0.151310, -0.153991, -0.156374, -0.158756, + -0.161735, -0.164714, -0.167990, -0.171564, -0.174841, -0.178415, + -0.182287, -0.186159, -0.189733, -0.192414, -0.195095, -0.198073, + -0.200754, -0.203733, -0.206711, -0.209690, -0.213264, -0.216838, + -0.221306, -0.226072, -0.229944, -0.233220, -0.236497, -0.240964, + -0.245134, -0.248113, -0.250794, -0.254368, -0.258240, -0.262708, + -0.267176, -0.272239, -0.277005, -0.282366, -0.287430, -0.293089, + -0.299642, -0.307088, -0.313939, -0.319002, -0.323470, -0.328831, + -0.333895, -0.336278, -0.337171, -0.337171, -0.334491, -0.327938, + -0.320492, -0.313939, -0.307088, -0.296067, -0.284749, -0.277600, + -0.277600, -0.281175, -0.285047, -0.289515, -0.295174, -0.300535, + -0.302918, -0.299642, -0.290110, -0.276409, -0.261814, -0.250794, + -0.243347, -0.237688, -0.234114, -0.234412, -0.237688, -0.240964, + -0.239773, -0.233816, -0.224284, -0.214753, -0.206711, -0.199265, + -0.193308, -0.188244, -0.184074, -0.177521, -0.169181, -0.158161, + -0.144459, -0.127482, -0.110504, -0.097696, -0.091144, -0.087867, + -0.085484, -0.082208, -0.077144, -0.069698, -0.058677, -0.043189, + -0.024722, -0.006553, 0.008340, 0.018467, 0.023828, 0.027403, + 0.030381, 0.033062, 0.035743, 0.040508, 0.047955, 0.058082, + 0.069102, 0.078931, 0.086974, 0.094420, 0.101568, 0.109313, + 0.116461, 0.124205, 0.131950, 0.139396, 0.145949, 0.151906, + 0.155778, 0.157565, 0.159650, 0.163522, 0.170373, 0.178713, + 0.187351, 0.195393, 0.204328, 0.210881, 0.215945, 0.217732, + 0.219221, 0.220412, 0.222795, 0.227263, 0.232327, 0.237688, + 0.241262, 0.244539, 0.246028, 0.246028, 0.244836, 0.243943, + 0.244539, 0.247815, 0.252283, 0.257346, 0.261516, 0.264197, + 0.263601, 0.260623, 0.255857, 0.250794, 0.246624, 0.243645, + 0.244539, 0.248113, 0.254070, 0.259729, 0.263899, 0.265984, + 0.265686, 0.263006, 0.257644, 0.251389, 0.245730, 0.241560, + 0.239177, 0.238879, 0.239475, 0.240667, 0.240964, 0.240964, + 0.240071, 0.238582, 0.235901, 0.232624, 0.229348, 0.226667, + 0.223689, 0.220412, 0.217136, 0.213860, 0.210881, 0.207903, + 0.205222, 0.202839, 0.199860, 0.197478, 0.195393, 0.193308, + 0.190925, 0.188840, 0.186457, 0.184670, 0.182287, 0.180202, + 0.177223, 0.173947, 0.170671, 0.166799, 0.162629, 0.158459, + 0.154289, 0.151310, 0.148927, 0.147736, 0.146842, 0.145949, + 0.144459, 0.141183, 0.137311, 0.131652, 0.125397, 0.118248, + 0.111695, 0.106334, 0.103356, 0.101271, 0.100973, 0.100377, + 0.100079, 0.098888, 0.095909, 0.091739, 0.086378, 0.080123, + 0.074762, 0.070294, 0.067613, 0.065826, 0.064634, 0.063443, + 0.063443, 0.062847, 0.060464, 0.056890, 0.053316, 0.050040, + 0.047359, 0.045870, 0.044678, 0.043487, 0.042295, 0.041402, + 0.039913, 0.038423, 0.035445, 0.031870, 0.028594, 0.026509, + 0.025615, 0.024424, 0.023233, 0.021743, 0.020850, 0.020254, + 0.018765, 0.016978, 0.014893, 0.013106, 0.012510, 0.012510, + 0.012212, 0.011021, 0.010127, 0.009829, 0.010425, 0.010723, + 0.011318, 0.011318, 0.012212, 0.012510, 0.013403, 0.012510, + 0.011914, 0.010425, 0.009233, 0.008340, 0.009531, 0.011318, + 0.013403, 0.015786, 0.017871, 0.020254, 0.021446, 0.021148, + 0.019956, 0.018765, 0.017871, 0.018169, 0.018467, 0.019658, + 0.020552, 0.022935, 0.025020, 0.026509, 0.027998, 0.028296, + 0.028594, 0.029190, 0.029785, 0.030977, 0.031573, 0.032764, + 0.034551, 0.036040, 0.037232, 0.038125, 0.038423, 0.038423, + 0.039019, 0.039615, 0.040508, 0.041700, 0.042593, 0.043487, + 0.044380, 0.045274, 0.044976, 0.045274, 0.044678, 0.044380, + 0.044082, 0.044082, 0.044082, 0.044082, 0.044082, 0.043785, + 0.043487, 0.043487, 0.043487, 0.043189, 0.043785, 0.043487, + 0.043189, 0.042593, 0.041700, 0.040508, 0.039019, 0.038423, + 0.037530, 0.037232, 0.037232, 0.037530, 0.037232, 0.036934, + 0.036040, 0.034849, 0.032764, 0.030977, 0.028892, 0.026807, + 0.024722, 0.022935, 0.021743, 0.020552, 0.019063, 0.017573, + 0.015488, 0.012808, 0.010127, 0.007446, 0.004468, 0.002085, + -0.000596, -0.002979, -0.005361, -0.007446, -0.010127, -0.012510, + -0.015191, -0.017871, -0.020254, -0.022339, -0.024722, -0.026509, + -0.028594, -0.030679, -0.033360, -0.035743, -0.038125, -0.041104, + -0.043487, -0.046465, -0.048848, -0.051231, -0.053614, -0.055997, + -0.058677, -0.061060, -0.064039, -0.066719, -0.069698, -0.072677, + -0.075655, -0.078336, -0.081016, -0.084293, -0.087271, -0.090548, + -0.094122, -0.097696, -0.100973, -0.104249, -0.106930, -0.110206, + -0.112589, -0.115270, -0.118248, -0.121227, -0.124205, -0.127482, + -0.131056, -0.134630, -0.138205, -0.141183, -0.144459, -0.147438, + -0.149821, -0.152799, -0.155778, -0.158459, -0.161735, -0.165011, + -0.168288, -0.171862, -0.174841, -0.178415, -0.181393, -0.184670, + -0.187053, -0.190031, -0.193605, -0.196882, -0.200158, -0.203137, + -0.206711, -0.211179, -0.214753, -0.218327, -0.221008, -0.224880, + -0.228454, -0.232327, -0.235901, -0.239475, -0.243049, -0.247517, + -0.251985, -0.256751, -0.260325, -0.264197, -0.268665, -0.273431, + -0.277005, -0.279983, -0.283558, -0.288621, -0.293982, -0.299642, + -0.305003, -0.311258, -0.318407, -0.325853, -0.333299, -0.340746, + -0.347894, -0.353851, -0.358021, -0.361595, -0.365170, -0.366361, + -0.363978, -0.356532, -0.347001, -0.338065, -0.329725, -0.319598, + -0.307982, -0.298450, -0.295770, -0.299642, -0.305003, -0.309173, + -0.313343, -0.317811, -0.321087, -0.320194, -0.311854, -0.297855, + -0.282366, -0.269856, -0.260921, -0.254368, -0.249602, -0.247517, + -0.248411, -0.251091, -0.251985, -0.249602, -0.242454, -0.232922, + -0.223391, -0.215051, -0.208796, -0.202839, -0.196584, -0.188840, + -0.180202, -0.170075, -0.158459, -0.143566, -0.126290, -0.111100, + -0.101271, -0.096207, -0.092335, -0.087867, -0.081612, -0.074762, + -0.065230, -0.052422, -0.034551, -0.014595, 0.003276, 0.017573, + 0.027105, 0.033658, 0.037530, 0.040210, 0.041700, 0.044380, + 0.050040, 0.057486, 0.067911, 0.079825, 0.091441, 0.102462, + 0.111993, 0.121227, 0.130162, 0.138205, 0.144459, 0.149225, + 0.152799, 0.156672, 0.161139, 0.165011, 0.168884, 0.172756, + 0.179904, 0.189138, 0.198967, 0.207009, 0.213860, 0.220412, + 0.225774, 0.229050, 0.230242, 0.230837, 0.232922, 0.237092, + 0.242454, 0.247517, 0.251985, 0.255261, 0.258240, 0.259729, + 0.259729, 0.259431, 0.259729, 0.261516, 0.264793, 0.268665, + 0.272537, 0.275515, 0.276707, 0.275218, 0.271941, 0.267473, + 0.263303, 0.259729, 0.258538, 0.259729, 0.263899, 0.269856, + 0.275515, 0.279388, 0.280281, 0.279090, 0.275218, 0.269558, + 0.262112, 0.254964, 0.249602, 0.246326, 0.246028, 0.246326, + 0.248113, 0.249900, 0.251389, 0.251985, 0.250496, 0.247219, + 0.242454, 0.237092, 0.231433, 0.226072, 0.221008, 0.216540, + 0.213860, 0.212072, 0.210285, 0.209094, 0.207903, 0.206413, + 0.204626, 0.201648, 0.197775, 0.194499, 0.190925, 0.187946, + 0.185861, 0.183776, 0.181393, 0.179606, 0.177223, 0.174245, + 0.170373, 0.166501, 0.162331, 0.158459, 0.155480, 0.152799, + 0.151012, 0.149821, 0.148629, 0.146544, 0.143268, 0.139098, + 0.133141, 0.126886, 0.119440, 0.112887, 0.107823, 0.104547, + 0.102760, 0.102164, 0.102462, 0.102462, 0.102164, 0.100973, + 0.097994, 0.093228, 0.087867, 0.082208, 0.077442, 0.072974, + 0.069698, 0.067315, 0.066124, 0.065826, 0.065230, 0.065230, + 0.064039, 0.061954, 0.059273, 0.055997, 0.052422, 0.048848, + 0.045274, 0.041700, 0.039317, 0.038125, 0.037530, 0.036934, + 0.036040, 0.034551, 0.033360, 0.031275, 0.028594, 0.025615, + 0.023531, 0.021743, 0.021148, 0.020850, 0.021148, 0.020850, + 0.020254, 0.019361, 0.017871, 0.015786, 0.013701, 0.011914, + 0.010425, 0.010127, 0.011318, 0.013106, 0.014893, 0.016084, + 0.017276, 0.017276, 0.016680, 0.014595, 0.011914, 0.009531, + 0.008042, 0.007744, 0.008042, 0.010127, 0.012510, 0.015786, + 0.018169, 0.020254, 0.020850, 0.020552, 0.019361, 0.017871, + 0.016382, 0.015488, 0.016084, 0.017276, 0.019063, 0.022041, + 0.025020, 0.027998, 0.030083, 0.031573, 0.032466, 0.033062, + 0.033062, 0.033360, 0.033062, 0.033955, 0.035147, 0.036934, + 0.039019, 0.041104, 0.041997, 0.042891, 0.043487, 0.043487, + 0.043189, 0.042593, 0.042295, 0.042593, 0.042891, 0.043189, + 0.043785, 0.044082, 0.044380, 0.043785, 0.042593, 0.041700, + 0.040210, 0.039019, 0.038721, 0.038721, 0.039019, 0.039913, + 0.040508, 0.041700, 0.041997, 0.041997, 0.040806, 0.039913, + 0.037828, 0.036636, 0.035147, 0.034551, 0.034253, 0.034253, + 0.034551, 0.034849, 0.035445, 0.035147, 0.034253, 0.032168, + 0.030381, 0.027105, 0.024424, 0.021446, 0.018765, 0.016978, + 0.015191, 0.013999, 0.012808, 0.011021, 0.009233, 0.007149, + 0.003872, 0.000596, -0.002681, -0.005659, -0.009233, -0.011914, + -0.014297, -0.016680, -0.018169, -0.020552, -0.022339, -0.024126, + -0.025913, -0.027998, -0.030679, -0.033360, -0.036338, -0.038721, + -0.040210, -0.041997, -0.044082, -0.046763, -0.049444, -0.052422, + -0.055699, -0.058677, -0.061656, -0.064634, -0.067613, -0.069996, + -0.072974, -0.074762, -0.077144, -0.079527, -0.082208, -0.084591, + -0.088165, -0.091441, -0.095313, -0.098888, -0.103356, -0.106930, + -0.110802, -0.114376, -0.117057, -0.120035, -0.123312, -0.126588, + -0.130460, -0.134630, -0.138800, -0.143566, -0.148332, -0.153693, + -0.158756, -0.163522, -0.167990, -0.172756, -0.177521, -0.182287, + -0.186755, -0.191520, -0.197180, -0.202839, -0.209392, -0.215051, + -0.220710, -0.226369, -0.232029, -0.237986, -0.243645, -0.249304, + -0.255559, -0.262410, -0.268665, -0.273728, -0.278792, -0.284451, + -0.291004, -0.296961, -0.301429, -0.305599, -0.310662, -0.317215, + -0.323768, -0.330023, -0.334789, -0.340448, -0.346703, -0.354745, + -0.362489, -0.369638, -0.375892, -0.383339, -0.392572, -0.403295, + -0.413422, -0.422358, -0.430996, -0.440527, -0.450654, -0.461079, + -0.468227, -0.470610, -0.470015, -0.469121, -0.467334, -0.461079, + -0.450654, -0.437548, -0.426528, -0.417294, -0.405976, -0.390487, + -0.373510, -0.361893, -0.355638, -0.355638, -0.354447, -0.344916, + -0.330321, -0.317513, -0.307386, -0.296365, -0.280281, -0.259431, + -0.236497, -0.213860, -0.190329, -0.168586, -0.150119, -0.135226, + -0.124205, -0.115270, -0.108419, -0.103058, -0.094420, -0.080719, + -0.065230, -0.055103, -0.053018, -0.052422, -0.045870, -0.034253, + -0.023233, -0.016382, -0.011616, -0.002979, 0.008042, 0.016084, + 0.017276, 0.014595, 0.015786, 0.017573, 0.018765, 0.019658, + 0.026807, 0.041700, 0.060762, 0.077144, 0.089952, 0.102760, + 0.116759, 0.126290, 0.129567, 0.129269, 0.133737, 0.146544, + 0.162926, 0.177819, 0.191520, 0.206413, 0.222795, 0.235603, + 0.243049, 0.247219, 0.253176, 0.260623, 0.265984, 0.268069, + 0.271346, 0.279685, 0.288621, 0.290706, 0.285345, 0.279388, + 0.278792, 0.280579, 0.277005, 0.267473, 0.258836, 0.257049, + 0.259431, 0.259133, 0.254368, 0.249304, 0.247815, 0.247219, + 0.243347, 0.236497, 0.231433, 0.231135, 0.231731, 0.228454, + 0.223987, 0.224582, 0.231135, 0.237986, 0.240369, 0.241560, + 0.246624, 0.256155, 0.263006, 0.262708, 0.258836, 0.257942, + 0.262410, 0.268665, 0.272835, 0.277303, 0.284749, 0.294280, + 0.301429, 0.302918, 0.300833, 0.299046, 0.296663, 0.291302, + 0.281473, 0.274026, 0.271643, 0.272835, 0.272239, 0.267771, + 0.263006, 0.262112, 0.262112, 0.257644, 0.247219, 0.235901, + 0.229348, 0.226667, 0.223391, 0.218030, 0.213860, 0.212668, + 0.213562, 0.212072, 0.206711, 0.201945, 0.200158, 0.199860, + 0.197478, 0.194201, 0.193605, 0.197775, 0.202541, 0.203733, + 0.201648, 0.200158, 0.201350, 0.202243, 0.197478, 0.190031, + 0.184074, 0.182287, 0.181393, 0.178415, 0.173947, 0.170075, + 0.169479, 0.167096, 0.160544, 0.151608, 0.144162, 0.138502, + 0.131354, 0.121823, 0.113483, 0.111100, 0.111398, 0.109908, + 0.105143, 0.101866, 0.104547, 0.109015, 0.109313, 0.104845, + 0.100377, 0.101568, 0.105441, 0.106930, 0.106334, 0.106036, + 0.110206, 0.115270, 0.119142, 0.120333, 0.121227, 0.122716, + 0.122716, 0.120929, 0.118844, 0.118248, 0.118248, 0.117355, + 0.114972, 0.111993, 0.111695, 0.111993, 0.109313, 0.103653, + 0.096207, 0.090846, 0.087569, 0.083101, 0.077740, 0.073570, + 0.072379, 0.072677, 0.071783, 0.069400, 0.066124, 0.064337, + 0.062847, 0.061656, 0.060167, 0.059869, 0.062549, 0.066124, + 0.070294, 0.073868, 0.077144, 0.081016, 0.084889, 0.087569, + 0.089654, 0.090846, 0.092037, 0.094718, 0.097101, 0.099483, + 0.102164, 0.105143, 0.107823, 0.109610, 0.110802, 0.111993, + 0.112291, 0.111398, 0.110206, 0.109015, 0.109313, 0.109313, + 0.108419, 0.107526, 0.107526, 0.108121, 0.109908, 0.110802, + 0.111993, 0.112589, 0.113483, 0.114972, 0.116461, 0.117355, + 0.119142, 0.121227, 0.123908, 0.126886, 0.129865, 0.133141, + 0.134928, 0.135822, 0.136715, 0.138205, 0.139396, 0.139694, + 0.139396, 0.139396, 0.139098, 0.138800, 0.137609, 0.135226, + 0.132545, 0.129567, 0.125397, 0.120333, 0.115568, 0.111100, + 0.107228, 0.102462, 0.098292, 0.094122, 0.090548, 0.086080, + 0.081016, 0.075357, 0.069698, 0.065528, 0.061656, 0.057784, + 0.053614, 0.050040, 0.047657, 0.045870, 0.043189, 0.040508, + 0.038125, 0.036040, 0.034253, 0.030977, 0.027105, 0.024126, + 0.022041, 0.018765, 0.014893, 0.010723, 0.006851, 0.003276, + -0.000894, -0.005957, -0.011914, -0.017871, -0.024126, -0.030679, + -0.037828, -0.045572, -0.052720, -0.060464, -0.067911, -0.075655, + -0.083101, -0.089952, -0.097101, -0.104845, -0.112887, -0.120333, + -0.127482, -0.133737, -0.140885, -0.147438, -0.153693, -0.158459, + -0.163224, -0.168586, -0.174543, -0.180500, -0.184372, -0.188542, + -0.193308, -0.198967, -0.204030, -0.207307, -0.211179, -0.216540, + -0.223391, -0.229944, -0.235603, -0.241858, -0.248709, -0.256751, + -0.265091, -0.273728, -0.282068, -0.289813, -0.298450, -0.308279, + -0.319300, -0.330916, -0.341044, -0.351171, -0.361893, -0.374403, + -0.387211, -0.398827, -0.409550, -0.420273, -0.431889, -0.443803, + -0.454228, -0.464355, -0.473887, -0.484609, -0.494439, -0.503672, + -0.513799, -0.524820, -0.536436, -0.545670, -0.553116, -0.561754, + -0.572179, -0.583497, -0.594220, -0.603453, -0.612091, -0.622218, + -0.635324, -0.649025, -0.660046, -0.669577, -0.679108, -0.690725, + -0.703830, -0.717532, -0.730935, -0.743743, -0.758040, -0.775018, + -0.793187, -0.813143, -0.832801, -0.851864, -0.870331, -0.891181, + -0.916499, -0.942710, -0.966538, -0.984409, -0.994536, -0.998706, + -0.999600, -0.995430, -0.980239, -0.950156, -0.908754, -0.865268, + -0.829823, -0.803016, -0.772039, -0.727361, -0.674343, -0.624899, + -0.581710, -0.533160, -0.468227, -0.387807, -0.308279, -0.244836, + -0.200158, -0.161437, -0.120333, -0.080421, -0.047359, -0.021148, + 0.004766, 0.037232, 0.076251, 0.115568, 0.148332, 0.169479, + 0.177223, 0.170373, 0.152799, 0.131950, 0.110206, 0.086676, + 0.058677, 0.031573, 0.013106, 0.003574, -0.005361, -0.024722, + -0.051827, -0.077442, -0.093824, -0.104547, -0.119440, -0.138800, + -0.153097, -0.155480, -0.148332, -0.140885, -0.137311, -0.131354, + -0.117057, -0.095909, -0.074762, -0.055997, -0.035743, -0.011021, + 0.014595, 0.039317, 0.062252, 0.086676, 0.112887, 0.139694, + 0.164714, 0.187351, 0.208498, 0.226965, 0.240964, 0.248113, + 0.251687, 0.256453, 0.262708, 0.269856, 0.276111, 0.284749, + 0.294876, 0.302322, 0.302322, 0.294876, 0.284153, 0.273133, + 0.262708, 0.252581, 0.244241, 0.244241, 0.252581, 0.267176, + 0.281473, 0.293089, 0.303812, 0.313343, 0.320789, 0.324661, + 0.327938, 0.333299, 0.343426, 0.357723, 0.374999, 0.393764, + 0.413124, 0.430698, 0.442910, 0.449165, 0.451548, 0.452739, + 0.450952, 0.445888, 0.438442, 0.432187, 0.428017, 0.424145, + 0.417294, 0.406274, 0.392572, 0.378573, 0.363680, 0.346405, + 0.325555, 0.303812, 0.284749, 0.268665, 0.254070, 0.240369, + 0.226965, 0.216540, 0.208200, 0.201350, 0.194797, 0.188840, + 0.185563, 0.184670, 0.188244, 0.194499, 0.204328, 0.216242, + 0.230837, 0.247815, 0.264495, 0.280281, 0.294578, 0.307684, + 0.319300, 0.329725, 0.340150, 0.351468, 0.364872, 0.377680, + 0.391083, 0.403295, 0.414614, 0.422954, 0.426528, 0.425038, + 0.419379, 0.411933, 0.402997, 0.392572, 0.381552, 0.371723, + 0.363978, 0.357128, 0.349383, 0.338959, 0.327044, 0.314237, + 0.300833, 0.285643, 0.268963, 0.253474, 0.241858, 0.234114, + 0.227859, 0.222200, 0.218327, 0.216242, 0.215051, 0.212370, + 0.208498, 0.204626, 0.202541, 0.201945, 0.203733, 0.208498, + 0.215945, 0.221902, 0.225476, 0.227859, 0.230242, 0.232922, + 0.233518, 0.230539, 0.226965, 0.226667, 0.229348, 0.232327, + 0.232327, 0.229646, 0.227263, 0.225476, 0.223391, 0.217732, + 0.209690, 0.201052, 0.194499, 0.190031, 0.187053, 0.185266, + 0.184074, 0.184074, 0.183478, 0.183181, 0.182585, 0.181096, + 0.179011, 0.175139, 0.171862, 0.170671, 0.171266, 0.173947, + 0.176032, 0.178713, 0.182287, 0.187351, 0.192414, 0.194499, + 0.194797, 0.193605, 0.193308, 0.193605, 0.193308, 0.192414, + 0.191223, 0.193010, 0.196882, 0.201350, 0.203733, 0.204626, + 0.204924, 0.206115, 0.206413, 0.206115, 0.204924, 0.205222, + 0.207903, 0.211179, 0.215349, 0.218625, 0.221306, 0.222795, + 0.223093, 0.222200, 0.220710, 0.220115, 0.219817, 0.219817, + 0.219817, 0.222200, 0.223987, 0.226072, 0.225178, 0.222200, + 0.217434, 0.212370, 0.206413, 0.200158, 0.192712, 0.186755, + 0.181989, 0.178117, 0.173351, 0.167394, 0.160841, 0.154587, + 0.146544, 0.137907, 0.128077, 0.119440, 0.111695, 0.105441, + 0.100377, 0.095909, 0.092633, 0.090548, 0.088165, 0.085186, + 0.081314, 0.077144, 0.073868, 0.070592, 0.068209, 0.066124, + 0.064932, 0.064932, 0.064634, 0.064039, 0.063741, 0.062847, + 0.062252, 0.059869, 0.056592, 0.052422, 0.048252, 0.044678, + 0.040210, 0.035147, 0.030381, 0.026211, 0.022041, 0.016382, + 0.009531, 0.001489, -0.005659, -0.013106, -0.020254, -0.028594, + -0.035743, -0.041997, -0.047359, -0.053018, -0.058975, -0.065230, + -0.070889, -0.076549, -0.082208, -0.088463, -0.094718, -0.099483, + -0.103951, -0.107526, -0.110802, -0.113780, -0.117057, -0.120631, + -0.125695, -0.131652, -0.138205, -0.144757, -0.151608, -0.158756, + -0.165905, -0.172160, -0.177521, -0.183181, -0.190329, -0.197478, + -0.205222, -0.212966, -0.221604, -0.231731, -0.242156, -0.252283, + -0.260027, -0.267176, -0.274324, -0.282068, -0.289217, -0.295770, + -0.302025, -0.309173, -0.318407, -0.327044, -0.333895, -0.340150, + -0.346703, -0.353553, -0.359510, -0.364276, -0.368148, -0.374105, + -0.381552, -0.389594, -0.396147, -0.401806, -0.409550, -0.418486, + -0.427719, -0.435463, -0.441420, -0.448271, -0.456611, -0.467334, + -0.478057, -0.486694, -0.495630, -0.506055, -0.516480, -0.526607, + -0.534947, -0.542691, -0.549542, -0.558179, -0.568902, -0.579327, + -0.589156, -0.600773, -0.612687, -0.623112, -0.632643, -0.642174, + -0.649919, -0.656471, -0.664216, -0.673151, -0.681491, -0.689236, + -0.698469, -0.710085, -0.722595, -0.734509, -0.747913, -0.759231, + -0.769954, -0.781273, -0.797357, -0.816122, -0.834886, -0.852162, + -0.870927, -0.896244, -0.927221, -0.955815, -0.974282, -0.980239, + -0.978154, -0.972793, -0.964453, -0.947475, -0.915903, -0.869735, + -0.819100, -0.774124, -0.740764, -0.710383, -0.668684, -0.611495, + -0.548946, -0.493545, -0.441718, -0.381254, -0.302918, -0.216540, + -0.141183, -0.089059, -0.054210, -0.021148, 0.015786, 0.050337, + 0.073868, 0.088165, 0.106334, 0.135226, 0.167990, 0.192414, + 0.204030, 0.204030, 0.193308, 0.170969, 0.139396, 0.103058, + 0.065826, 0.030083, -0.002085, -0.029488, -0.050933, -0.066422, + -0.083697, -0.106334, -0.131950, -0.151906, -0.165011, -0.176032, + -0.189138, -0.200158, -0.199265, -0.184074, -0.161437, -0.142077, + -0.127780, -0.109908, -0.081910, -0.050040, -0.023233, -0.002383, + 0.020552, 0.053018, 0.089356, 0.124205, 0.153097, 0.179011, + 0.205222, 0.230539, 0.251687, 0.265091, 0.273133, 0.278792, + 0.283558, 0.286238, 0.286834, 0.288919, 0.293089, 0.297855, + 0.302322, 0.303812, 0.303216, 0.299046, 0.289813, 0.277303, + 0.264495, 0.254964, 0.249304, 0.247517, 0.250794, 0.260921, + 0.277005, 0.295770, 0.312449, 0.325853, 0.337767, 0.348788, + 0.357723, 0.364276, 0.371127, 0.380956, 0.394955, 0.411933, + 0.428613, 0.442612, 0.453930, 0.461377, 0.463462, 0.458696, + 0.448867, 0.436655, 0.423549, 0.409848, 0.395551, 0.382445, + 0.370233, 0.358021, 0.342533, 0.324066, 0.304110, 0.285345, + 0.265984, 0.245134, 0.225178, 0.208796, 0.198669, 0.193308, + 0.190329, 0.186457, 0.184670, 0.186159, 0.190329, 0.195095, + 0.198669, 0.204924, 0.215945, 0.232624, 0.251687, 0.271048, + 0.291898, 0.314534, 0.338363, 0.358915, 0.374701, 0.387509, + 0.398529, 0.408061, 0.415209, 0.421166, 0.427123, 0.433974, + 0.440527, 0.445293, 0.447675, 0.447675, 0.444399, 0.436357, + 0.424145, 0.408359, 0.391977, 0.376190, 0.360404, 0.344618, + 0.329725, 0.318109, 0.309173, 0.300237, 0.289217, 0.276707, + 0.264793, 0.253474, 0.242751, 0.230837, 0.220710, 0.214455, + 0.211775, 0.211775, 0.212966, 0.218030, 0.225476, 0.232922, + 0.238582, 0.241560, 0.244836, 0.249602, 0.254368, 0.258240, + 0.261218, 0.265686, 0.272835, 0.278792, 0.281770, 0.282366, + 0.282366, 0.281175, 0.278196, 0.272835, 0.266580, 0.261218, + 0.257942, 0.255261, 0.250794, 0.245432, 0.241858, 0.239177, + 0.234412, 0.227561, 0.220115, 0.213860, 0.209987, 0.206413, + 0.203435, 0.201052, 0.200754, 0.201648, 0.202243, 0.200754, + 0.198967, 0.196584, 0.194201, 0.191520, 0.189138, 0.187946, + 0.188244, 0.189733, 0.191520, 0.192414, 0.192712, 0.193308, + 0.193308, 0.191520, 0.187648, 0.184074, 0.181691, 0.179011, + 0.176926, 0.176032, 0.176330, 0.177819, 0.180500, 0.183181, + 0.184968, 0.187053, 0.188542, 0.189733, 0.190925, 0.192116, + 0.194797, 0.198371, 0.201945, 0.206711, 0.211179, 0.215349, + 0.220115, 0.222795, 0.223987, 0.224582, 0.223689, 0.222200, + 0.219519, 0.216838, 0.214455, 0.211477, 0.207605, 0.202243, + 0.195690, 0.188244, 0.179904, 0.170373, 0.159650, 0.148034, + 0.137907, 0.128077, 0.118248, 0.108419, 0.098888, 0.090250, + 0.082208, 0.073570, 0.064932, 0.056592, 0.049444, 0.043487, + 0.038721, 0.034849, 0.032466, 0.031573, 0.031870, 0.032168, + 0.032168, 0.032168, 0.032466, 0.032764, 0.032466, 0.032168, + 0.031870, 0.031573, 0.031870, 0.031870, 0.031275, 0.030381, + 0.028296, 0.025913, 0.022041, 0.016382, 0.009829, 0.002383, + -0.005064, -0.012808, -0.020850, -0.028594, -0.036040, -0.042891, + -0.050040, -0.057486, -0.064932, -0.072677, -0.080123, -0.087271, + -0.094122, -0.100377, -0.106334, -0.111695, -0.116461, -0.120333, + -0.123610, -0.127482, -0.131056, -0.134630, -0.138205, -0.141183, + -0.145353, -0.150417, -0.154884, -0.159054, -0.162926, -0.167394, + -0.173054, -0.179606, -0.186159, -0.193308, -0.201350, -0.209690, + -0.218327, -0.226072, -0.234114, -0.242156, -0.251091, -0.260027, + -0.268665, -0.277005, -0.285047, -0.293982, -0.302918, -0.312152, + -0.319896, -0.326449, -0.333597, -0.341044, -0.347298, -0.352660, + -0.355936, -0.361298, -0.368148, -0.375892, -0.382147, -0.386913, + -0.391977, -0.398827, -0.406572, -0.413720, -0.418784, -0.422954, + -0.428613, -0.435463, -0.443803, -0.450654, -0.456909, -0.464653, + -0.473589, -0.483120, -0.491460, -0.498906, -0.506055, -0.512906, + -0.520352, -0.527798, -0.536436, -0.545670, -0.554903, -0.563839, + -0.573668, -0.584689, -0.594816, -0.602858, -0.609708, -0.614474, + -0.619835, -0.627580, -0.637707, -0.646940, -0.654387, -0.661833, + -0.672258, -0.685661, -0.697575, -0.704426, -0.708298, -0.715745, + -0.730042, -0.745828, -0.758933, -0.772039, -0.788719, -0.810760, + -0.836376, -0.860800, -0.881650, -0.901010, -0.921264, -0.938838, + -0.944497, -0.937646, -0.924541, -0.910839, -0.892372, -0.861693, + -0.814632, -0.760125, -0.712170, -0.675236, -0.638898, -0.591241, + -0.532266, -0.472993, -0.419975, -0.367553, -0.303514, -0.224582, + -0.143268, -0.077442, -0.032168, 0.002979, 0.038721, 0.071187, + 0.092335, 0.101866, 0.111695, 0.130162, 0.153395, 0.173351, + 0.185266, 0.190627, 0.189436, 0.176032, 0.147736, 0.109313, + 0.068507, 0.030381, -0.003872, -0.036040, -0.064634, -0.085782, + -0.100973, -0.115568, -0.134630, -0.155480, -0.168586, -0.173649, + -0.178415, -0.186457, -0.189138, -0.178117, -0.154884, -0.130460, + -0.112589, -0.095313, -0.070592, -0.037828, -0.005659, 0.020254, + 0.043189, 0.072081, 0.108419, 0.145055, 0.175139, 0.197775, + 0.218625, 0.242156, 0.263006, 0.276111, 0.281770, 0.285940, + 0.291600, 0.295770, 0.294578, 0.290706, 0.288919, 0.292195, + 0.295472, 0.296961, 0.295770, 0.293387, 0.289813, 0.284153, + 0.275813, 0.266878, 0.259729, 0.257644, 0.261218, 0.269558, + 0.281473, 0.298152, 0.318704, 0.338959, 0.356532, 0.369638, + 0.380658, 0.390487, 0.399125, 0.406274, 0.412826, 0.421464, + 0.433676, 0.447080, 0.457803, 0.462866, 0.462568, 0.457207, + 0.448867, 0.436655, 0.419975, 0.399423, 0.380360, 0.363978, + 0.349681, 0.333597, 0.315428, 0.297259, 0.280579, 0.264197, + 0.246921, 0.228157, 0.210881, 0.198371, 0.190329, 0.186159, + 0.183776, 0.184372, 0.187053, 0.193010, 0.200456, 0.207605, + 0.215647, 0.226072, 0.240667, 0.258240, 0.277303, 0.297855, + 0.320492, 0.342831, 0.364276, 0.383041, 0.398827, 0.411635, + 0.421464, 0.428017, 0.431889, 0.434570, 0.436357, 0.438144, + 0.439038, 0.438442, 0.436655, 0.432783, 0.426528, 0.416996, + 0.404487, 0.390487, 0.373808, 0.356830, 0.339852, 0.323172, + 0.308279, 0.295472, 0.284749, 0.275813, 0.267771, 0.260325, + 0.252879, 0.244836, 0.236497, 0.229050, 0.222200, 0.216540, + 0.212668, 0.212072, 0.214455, 0.219221, 0.224582, 0.228454, + 0.232029, 0.236199, 0.240964, 0.245134, 0.246624, 0.246624, + 0.248411, 0.252879, 0.257346, 0.259729, 0.259729, 0.260027, + 0.262708, 0.265686, 0.265091, 0.259431, 0.252283, 0.248113, + 0.247219, 0.245730, 0.243645, 0.240369, 0.237986, 0.237390, + 0.235901, 0.231433, 0.224582, 0.218030, 0.213860, 0.210285, + 0.207605, 0.204924, 0.202541, 0.200158, 0.198669, 0.196882, + 0.193903, 0.191223, 0.186755, 0.180202, 0.172756, 0.166501, + 0.162331, 0.159054, 0.156672, 0.156076, 0.156672, 0.157565, + 0.157565, 0.156076, 0.152799, 0.150119, 0.149225, 0.148629, + 0.147736, 0.147736, 0.149225, 0.153097, 0.159054, 0.165607, + 0.171266, 0.176330, 0.182287, 0.188542, 0.193308, 0.196882, + 0.199860, 0.203733, 0.209392, 0.215349, 0.220412, 0.223689, + 0.225476, 0.226667, 0.228157, 0.227263, 0.223987, 0.219519, + 0.214455, 0.209094, 0.203137, 0.195690, 0.186755, 0.179011, + 0.171862, 0.163522, 0.153991, 0.142077, 0.131056, 0.120035, + 0.109610, 0.100079, 0.090846, 0.083399, 0.077144, 0.071187, + 0.065230, 0.059273, 0.054210, 0.050337, 0.046465, 0.042891, + 0.040210, 0.038423, 0.038721, 0.039317, 0.039615, 0.041700, + 0.044082, 0.046763, 0.047359, 0.046465, 0.044380, 0.041997, + 0.039615, 0.037530, 0.034551, 0.031870, 0.029785, 0.027403, + 0.025020, 0.020850, 0.015488, 0.009531, 0.003872, -0.002383, + -0.009829, -0.017871, -0.025318, -0.031870, -0.037828, -0.043487, + -0.048252, -0.052720, -0.056890, -0.061358, -0.066422, -0.071783, + -0.076549, -0.081016, -0.084889, -0.088761, -0.092335, -0.096207, + -0.099781, -0.103653, -0.108121, -0.112291, -0.117057, -0.122418, + -0.127780, -0.134035, -0.139992, -0.146842, -0.153991, -0.161735, + -0.168884, -0.176032, -0.184372, -0.193308, -0.202541, -0.211179, + -0.220115, -0.228454, -0.237390, -0.244836, -0.251687, -0.258538, + -0.264793, -0.271346, -0.277005, -0.282068, -0.286834, -0.291600, + -0.295472, -0.299642, -0.302918, -0.306492, -0.309173, -0.312152, + -0.315130, -0.317513, -0.320789, -0.324959, -0.328831, -0.332704, + -0.336278, -0.341044, -0.347596, -0.354745, -0.362191, -0.369935, + -0.378573, -0.387807, -0.397934, -0.408657, -0.418486, -0.427719, + -0.437251, -0.447080, -0.457803, -0.468227, -0.478354, -0.486099, + -0.494141, -0.504566, -0.515884, -0.525118, -0.530777, -0.537032, + -0.544776, -0.552520, -0.559073, -0.562647, -0.566222, -0.572477, + -0.582008, -0.590944, -0.596007, -0.601071, -0.609410, -0.618942, + -0.628473, -0.634728, -0.640090, -0.647834, -0.658259, -0.668684, + -0.677023, -0.686555, -0.699958, -0.715447, -0.732127, -0.748509, + -0.764891, -0.780677, -0.800335, -0.820589, -0.839354, -0.856630, + -0.878969, -0.905180, -0.929008, -0.941816, -0.941221, -0.932881, + -0.924243, -0.913818, -0.889989, -0.847992, -0.792889, -0.736594, + -0.688640, -0.647834, -0.605241, -0.551627, -0.490567, -0.432187, + -0.380360, -0.326746, -0.260623, -0.180202, -0.099186, -0.034551, + 0.008936, 0.042295, 0.073868, 0.104249, 0.126290, 0.136120, + 0.137609, 0.140290, 0.152799, 0.170373, 0.180798, 0.179011, + 0.166501, 0.148034, 0.123908, 0.092633, 0.052422, 0.008638, + -0.032168, -0.064634, -0.089654, -0.108419, -0.125992, -0.145353, + -0.161735, -0.170373, -0.172756, -0.174543, -0.177819, -0.180202, + -0.174841, -0.160544, -0.138800, -0.114376, -0.091739, -0.068507, + -0.039913, -0.006851, 0.027105, 0.055401, 0.079825, 0.105738, + 0.137311, 0.169479, 0.196584, 0.217434, 0.235901, 0.254368, + 0.271048, 0.282962, 0.289813, 0.293089, 0.293089, 0.291004, + 0.287430, 0.283558, 0.280281, 0.279983, 0.282068, 0.285940, + 0.288323, 0.289515, 0.289515, 0.287728, 0.283855, 0.278494, + 0.275515, 0.276707, 0.281175, 0.290408, 0.304705, 0.324959, + 0.347298, 0.368148, 0.386615, 0.403593, 0.417294, 0.427421, + 0.433081, 0.434868, 0.437846, 0.443208, 0.450356, 0.456015, + 0.458994, 0.459292, 0.456015, 0.449760, 0.438144, 0.419975, + 0.397636, 0.375892, 0.354745, 0.334193, 0.314534, 0.294876, + 0.277303, 0.260921, 0.246326, 0.233220, 0.220412, 0.207605, + 0.195393, 0.186159, 0.181393, 0.181691, 0.184670, 0.189733, + 0.197775, 0.208796, 0.222200, 0.235901, 0.249602, 0.263303, + 0.279090, 0.297557, 0.317513, 0.337767, 0.357426, 0.375892, + 0.394657, 0.411933, 0.426528, 0.437251, 0.443208, 0.445888, + 0.446186, 0.443208, 0.439336, 0.434570, 0.429804, 0.424443, + 0.418784, 0.412231, 0.405082, 0.395551, 0.383339, 0.369340, + 0.353553, 0.338363, 0.323470, 0.308577, 0.294876, 0.282664, + 0.274026, 0.268963, 0.264793, 0.260623, 0.255857, 0.251389, + 0.247517, 0.243049, 0.237390, 0.231433, 0.226965, 0.224880, + 0.224582, 0.225178, 0.226667, 0.229050, 0.232624, 0.235603, + 0.236794, 0.236199, 0.236794, 0.237986, 0.240071, 0.240667, + 0.239773, 0.239475, 0.239773, 0.240071, 0.239177, 0.237390, + 0.236199, 0.235007, 0.234412, 0.233518, 0.232327, 0.231135, + 0.229944, 0.228752, 0.227859, 0.226369, 0.223987, 0.220710, + 0.218030, 0.216540, 0.216242, 0.217136, 0.216838, 0.214753, + 0.212072, 0.209690, 0.206413, 0.202541, 0.196584, 0.190329, + 0.183776, 0.178713, 0.172756, 0.165607, 0.159650, 0.154289, + 0.150119, 0.147438, 0.146247, 0.143864, 0.139992, 0.136715, + 0.135524, 0.135822, 0.136715, 0.137311, 0.138205, 0.139694, + 0.142970, 0.147736, 0.152204, 0.157565, 0.164714, 0.173054, + 0.181691, 0.189138, 0.195095, 0.199563, 0.204030, 0.209392, + 0.213264, 0.215945, 0.218327, 0.220412, 0.221306, 0.221008, + 0.219519, 0.217434, 0.213860, 0.209392, 0.203137, 0.195988, + 0.187648, 0.179011, 0.169479, 0.159948, 0.150417, 0.141183, + 0.131950, 0.123014, 0.113780, 0.105143, 0.097696, 0.091441, + 0.085484, 0.079825, 0.074166, 0.069996, 0.066422, 0.062549, + 0.059571, 0.057188, 0.056295, 0.055997, 0.055997, 0.055997, + 0.055997, 0.056592, 0.057188, 0.057188, 0.056890, 0.055997, + 0.054210, 0.052125, 0.049146, 0.045870, 0.041700, 0.038125, + 0.034551, 0.030381, 0.025913, 0.021148, 0.016084, 0.010723, + 0.005659, 0.000000, -0.004468, -0.009829, -0.015191, -0.020850, + -0.026509, -0.031870, -0.036934, -0.041402, -0.045572, -0.048550, + -0.051529, -0.054210, -0.056890, -0.059571, -0.062549, -0.065230, + -0.067911, -0.071485, -0.076251, -0.080421, -0.085484, -0.090548, + -0.095313, -0.100973, -0.106334, -0.112291, -0.118248, -0.124503, + -0.132247, -0.139992, -0.148332, -0.156969, -0.164714, -0.172756, + -0.180798, -0.189733, -0.198073, -0.206413, -0.214157, -0.220710, + -0.226965, -0.233220, -0.238879, -0.243645, -0.248709, -0.252879, + -0.257346, -0.261814, -0.266282, -0.270154, -0.272537, -0.275218, + -0.279090, -0.282068, -0.285345, -0.286238, -0.287430, -0.290110, + -0.294876, -0.300237, -0.305003, -0.309173, -0.314832, -0.322874, + -0.330619, -0.336874, -0.342831, -0.350575, -0.360404, -0.370233, + -0.380062, -0.388700, -0.397934, -0.408954, -0.419677, -0.428315, + -0.436357, -0.444697, -0.454824, -0.463164, -0.471504, -0.478354, + -0.485503, -0.493843, -0.502481, -0.509331, -0.514693, -0.519458, + -0.525713, -0.532862, -0.540010, -0.545967, -0.550435, -0.555797, + -0.566222, -0.577242, -0.586178, -0.592731, -0.600177, -0.610006, + -0.619835, -0.628175, -0.633835, -0.639792, -0.648429, -0.658854, + -0.667492, -0.674641, -0.685363, -0.699660, -0.713362, -0.724382, + -0.733616, -0.745828, -0.761614, -0.777103, -0.790506, -0.802420, + -0.821185, -0.845907, -0.870927, -0.890287, -0.901010, -0.903691, + -0.900414, -0.892670, -0.877777, -0.849779, -0.810462, -0.762806, + -0.711277, -0.660344, -0.613878, -0.570689, -0.523926, -0.471504, + -0.416699, -0.363978, -0.311258, -0.254070, -0.185563, -0.110206, + -0.043487, 0.002979, 0.037530, 0.067911, 0.094718, 0.113185, + 0.117653, 0.114376, 0.112887, 0.119738, 0.132545, 0.140587, + 0.139694, 0.132545, 0.120333, 0.100973, 0.072974, 0.036338, + -0.004170, -0.040210, -0.070294, -0.095313, -0.115568, -0.128673, + -0.137609, -0.145353, -0.150714, -0.151012, -0.148332, -0.146247, + -0.143268, -0.136417, -0.121525, -0.098888, -0.072379, -0.045870, + -0.021148, 0.005957, 0.034849, 0.064337, 0.089952, 0.112291, + 0.134332, 0.159054, 0.185861, 0.210285, 0.229348, 0.246028, + 0.261516, 0.274920, 0.283260, 0.287132, 0.287132, 0.285047, + 0.280579, 0.274026, 0.269261, 0.267771, 0.269261, 0.272239, + 0.277898, 0.285047, 0.292195, 0.296365, 0.298450, 0.298450, + 0.298450, 0.299344, 0.302620, 0.308279, 0.317513, 0.332704, + 0.354149, 0.377382, 0.398827, 0.418486, 0.435166, 0.449760, + 0.458100, 0.461079, 0.460185, 0.458398, 0.458100, 0.457505, + 0.455718, 0.453335, 0.450356, 0.443505, 0.432783, 0.417294, + 0.398529, 0.376488, 0.353553, 0.330023, 0.307386, 0.287430, + 0.271346, 0.257346, 0.244241, 0.233220, 0.223391, 0.215349, + 0.208796, 0.202243, 0.198073, 0.198073, 0.202839, 0.211775, + 0.222497, 0.235603, 0.250496, 0.267176, 0.282664, 0.297259, + 0.310662, 0.323470, 0.336874, 0.350873, 0.365765, 0.381254, + 0.396742, 0.410444, 0.422656, 0.432187, 0.438442, 0.440527, + 0.437548, 0.430698, 0.421762, 0.411933, 0.403295, 0.394955, + 0.387509, 0.380360, 0.375595, 0.370829, 0.365468, 0.357128, + 0.347001, 0.335384, 0.324066, 0.313045, 0.302620, 0.293685, + 0.286238, 0.281473, 0.280281, 0.280281, 0.280281, 0.278494, + 0.275813, 0.273133, 0.269856, 0.264793, 0.259729, 0.255857, + 0.255261, 0.254964, 0.253772, 0.251687, 0.251091, 0.251091, + 0.249006, 0.244539, 0.238582, 0.234114, 0.231731, 0.229944, + 0.228454, 0.226369, 0.225476, 0.226369, 0.226965, 0.226965, + 0.224284, 0.220710, 0.217732, 0.217136, 0.217732, 0.220115, + 0.223689, 0.228752, 0.233220, 0.237092, 0.240667, 0.242454, + 0.241858, 0.238582, 0.233816, 0.229050, 0.224880, 0.221008, + 0.216540, 0.212072, 0.208498, 0.204924, 0.199860, 0.193605, + 0.184968, 0.175139, 0.164416, 0.154289, 0.144459, 0.135226, + 0.127482, 0.122120, 0.119738, 0.118844, 0.119440, 0.120631, + 0.123610, 0.126290, 0.128077, 0.129567, 0.132545, 0.137013, + 0.142672, 0.149225, 0.157267, 0.165905, 0.175436, 0.184372, + 0.192414, 0.198967, 0.204626, 0.209392, 0.212370, 0.214157, + 0.215945, 0.216838, 0.217434, 0.217434, 0.215945, 0.212966, + 0.209094, 0.203137, 0.195690, 0.185861, 0.176628, 0.167692, + 0.159352, 0.150714, 0.143268, 0.136715, 0.131056, 0.125099, + 0.117355, 0.109313, 0.102164, 0.095909, 0.088761, 0.082208, + 0.078038, 0.075357, 0.073868, 0.073868, 0.073868, 0.073570, + 0.072677, 0.071485, 0.069400, 0.065826, 0.062252, 0.058975, + 0.055997, 0.053316, 0.050635, 0.049444, 0.048252, 0.047061, + 0.044678, 0.040806, 0.036636, 0.031573, 0.026509, 0.020254, + 0.014595, 0.008936, 0.004766, 0.001191, -0.001787, -0.005064, + -0.007446, -0.009829, -0.011914, -0.015488, -0.018765, -0.022041, + -0.024424, -0.026807, -0.029190, -0.031573, -0.033360, -0.034551, + -0.036338, -0.039019, -0.042891, -0.047061, -0.051529, -0.056890, + -0.062549, -0.069400, -0.075357, -0.081314, -0.087271, -0.094420, + -0.102164, -0.110504, -0.119142, -0.128673, -0.137907, -0.147736, + -0.156672, -0.165011, -0.172458, -0.179011, -0.186159, -0.192116, + -0.197478, -0.202541, -0.207903, -0.213562, -0.219221, -0.224284, + -0.228454, -0.232029, -0.235007, -0.237390, -0.238879, -0.239773, + -0.241560, -0.243645, -0.245730, -0.248709, -0.251687, -0.256155, + -0.260623, -0.265686, -0.269558, -0.273728, -0.278792, -0.284153, + -0.289515, -0.295174, -0.301727, -0.309769, -0.317513, -0.324364, + -0.331214, -0.339852, -0.349681, -0.357723, -0.364276, -0.370531, + -0.378573, -0.387211, -0.395849, -0.402402, -0.408061, -0.413720, + -0.420273, -0.428017, -0.433676, -0.438442, -0.442612, -0.446782, + -0.451250, -0.456015, -0.463164, -0.469419, -0.474482, -0.478950, + -0.486694, -0.497119, -0.506353, -0.510225, -0.512608, -0.519161, + -0.530479, -0.542095, -0.548052, -0.551925, -0.557584, -0.567711, + -0.579625, -0.590348, -0.595709, -0.598688, -0.603156, -0.611793, + -0.623410, -0.631452, -0.633239, -0.634132, -0.640090, -0.653791, + -0.667194, -0.673747, -0.677321, -0.682981, -0.696384, -0.713957, + -0.729148, -0.740169, -0.750891, -0.768465, -0.792293, -0.817015, + -0.837865, -0.855141, -0.870033, -0.879267, -0.880458, -0.872714, + -0.857225, -0.833993, -0.799740, -0.756253, -0.708894, -0.659152, + -0.608219, -0.558477, -0.512906, -0.466738, -0.415209, -0.359213, + -0.303216, -0.246326, -0.186755, -0.120333, -0.054507, 0.000298, + 0.039019, 0.064932, 0.083697, 0.097398, 0.105738, 0.107526, + 0.105143, 0.103058, 0.106632, 0.114376, 0.115568, 0.104845, + 0.086974, 0.066422, 0.041997, 0.010723, -0.024722, -0.055699, + -0.078038, -0.093526, -0.107228, -0.118546, -0.124503, -0.127780, + -0.130758, -0.131950, -0.128077, -0.118248, -0.105143, -0.087271, + -0.066719, -0.042295, -0.014595, 0.014297, 0.039615, 0.059571, + 0.077740, 0.098590, 0.122120, 0.142077, 0.157565, 0.173054, + 0.193308, 0.215349, 0.232624, 0.242156, 0.249304, 0.255857, + 0.261218, 0.262112, 0.258240, 0.251985, 0.246624, 0.243347, + 0.241262, 0.240964, 0.243645, 0.251389, 0.264197, 0.278494, + 0.290408, 0.300833, 0.310364, 0.320789, 0.329427, 0.335682, + 0.343128, 0.355638, 0.372020, 0.390487, 0.409252, 0.428315, + 0.447675, 0.464355, 0.476269, 0.482822, 0.484907, 0.484014, + 0.481929, 0.477759, 0.471206, 0.462270, 0.451548, 0.440825, + 0.427719, 0.411039, 0.390785, 0.369042, 0.348192, 0.328831, + 0.309769, 0.291898, 0.275813, 0.263303, 0.253176, 0.244539, + 0.236199, 0.228752, 0.223093, 0.220710, 0.221306, 0.223689, + 0.228752, 0.237688, 0.250794, 0.266282, 0.282962, 0.298748, + 0.313343, 0.327342, 0.339852, 0.350575, 0.359213, 0.366659, + 0.373212, 0.379169, 0.386317, 0.393168, 0.399423, 0.404189, + 0.407465, 0.408954, 0.407763, 0.402997, 0.395253, 0.386317, + 0.377084, 0.368148, 0.359510, 0.353553, 0.349383, 0.347001, + 0.344916, 0.344022, 0.343128, 0.343128, 0.341639, 0.340448, + 0.338065, 0.335980, 0.334491, 0.333299, 0.331810, 0.329427, + 0.327044, 0.324661, 0.321683, 0.316322, 0.309173, 0.301429, + 0.295770, 0.291302, 0.285345, 0.275515, 0.265686, 0.257644, + 0.251389, 0.243943, 0.235603, 0.226667, 0.218625, 0.213264, + 0.209392, 0.205222, 0.201052, 0.200158, 0.202839, 0.207605, + 0.212966, 0.217434, 0.221604, 0.224582, 0.227859, 0.230837, + 0.233816, 0.236794, 0.240071, 0.243645, 0.246921, 0.250198, + 0.254070, 0.257049, 0.258240, 0.256751, 0.251985, 0.246028, + 0.239177, 0.230539, 0.220710, 0.209690, 0.199265, 0.190329, + 0.183478, 0.175436, 0.166203, 0.156374, 0.148927, 0.142970, + 0.137311, 0.130758, 0.124503, 0.120631, 0.119738, 0.120929, + 0.122120, 0.123312, 0.126588, 0.131056, 0.136120, 0.140885, + 0.146544, 0.152799, 0.160544, 0.167990, 0.174543, 0.180500, + 0.185861, 0.190031, 0.192712, 0.193903, 0.194499, 0.194201, + 0.193308, 0.191520, 0.189436, 0.186755, 0.184968, 0.183776, + 0.181393, 0.177819, 0.173351, 0.169181, 0.164416, 0.159054, + 0.152799, 0.146247, 0.141183, 0.137907, 0.135226, 0.132843, + 0.131354, 0.130162, 0.129567, 0.128971, 0.127482, 0.125099, + 0.121823, 0.118546, 0.115270, 0.111398, 0.107228, 0.102462, + 0.097994, 0.093526, 0.088761, 0.083697, 0.077740, 0.071783, + 0.065528, 0.058975, 0.052125, 0.045274, 0.038125, 0.031870, + 0.026509, 0.021148, 0.016382, 0.011616, 0.007744, 0.004468, + 0.002681, 0.000596, 0.000000, -0.000298, 0.000298, 0.000894, + 0.002085, 0.002979, 0.003574, 0.003574, 0.002979, 0.001787, + 0.000596, -0.000894, -0.002383, -0.004468, -0.007149, -0.010127, + -0.013403, -0.017573, -0.022935, -0.029190, -0.036040, -0.044082, + -0.052125, -0.060762, -0.070592, -0.079527, -0.088165, -0.095909, + -0.103058, -0.110206, -0.116461, -0.122418, -0.128077, -0.134035, + -0.139992, -0.145949, -0.151310, -0.155480, -0.159650, -0.164416, + -0.168586, -0.172458, -0.175734, -0.178713, -0.182287, -0.186159, + -0.190329, -0.194499, -0.198371, -0.203137, -0.208796, -0.214157, + -0.219519, -0.224880, -0.230539, -0.237092, -0.243943, -0.250198, + -0.256751, -0.263303, -0.269261, -0.274920, -0.279388, -0.283855, + -0.288025, -0.293387, -0.298450, -0.301429, -0.304407, -0.308875, + -0.314237, -0.319598, -0.322874, -0.324959, -0.327342, -0.330916, + -0.334491, -0.338065, -0.341341, -0.344022, -0.347894, -0.354745, + -0.363383, -0.369935, -0.374701, -0.380956, -0.389892, -0.398232, + -0.405380, -0.412529, -0.419677, -0.427123, -0.436953, -0.447378, + -0.455718, -0.463760, -0.473589, -0.483120, -0.490567, -0.497715, + -0.506949, -0.514395, -0.519161, -0.523628, -0.529585, -0.534947, + -0.540606, -0.546861, -0.550137, -0.551031, -0.553116, -0.557286, + -0.560562, -0.560562, -0.559669, -0.562349, -0.568604, -0.577242, + -0.584689, -0.588263, -0.592135, -0.603453, -0.618644, -0.630558, + -0.637707, -0.645749, -0.661237, -0.680300, -0.697575, -0.708298, + -0.717532, -0.734212, -0.757146, -0.777996, -0.792591, -0.809867, + -0.833397, -0.857523, -0.874799, -0.879565, -0.872416, -0.858119, + -0.841737, -0.817015, -0.775613, -0.722000, -0.661833, -0.597794, + -0.537925, -0.491162, -0.451548, -0.405082, -0.349383, -0.296067, + -0.250496, -0.208796, -0.159352, -0.095016, -0.024722, 0.025615, + 0.046167, 0.053018, 0.064932, 0.076846, 0.075655, 0.055997, + 0.031573, 0.019658, 0.026509, 0.036636, 0.031275, 0.015786, + 0.003574, -0.004468, -0.018169, -0.042593, -0.069102, -0.087271, + -0.092335, -0.089356, -0.089654, -0.090548, -0.084889, -0.074166, + -0.066124, -0.059869, -0.048550, -0.033360, -0.015786, 0.001489, + 0.020850, 0.044678, 0.072677, 0.097994, 0.112291, 0.116759, + 0.123312, 0.134332, 0.142077, 0.141779, 0.137907, 0.138502, + 0.148629, 0.163522, 0.173054, 0.175436, 0.179308, 0.188542, + 0.199563, 0.205222, 0.204030, 0.200456, 0.200456, 0.204626, + 0.212072, 0.221604, 0.234114, 0.254070, 0.280877, 0.309173, + 0.335086, 0.356234, 0.372616, 0.386615, 0.400019, 0.410741, + 0.419081, 0.426230, 0.434868, 0.446484, 0.458696, 0.469419, + 0.473589, 0.472695, 0.470015, 0.466142, 0.459887, 0.448569, + 0.436059, 0.424741, 0.416103, 0.406274, 0.393764, 0.378871, + 0.361595, 0.344916, 0.328236, 0.312152, 0.298450, 0.287728, + 0.281473, 0.277898, 0.278494, 0.280877, 0.283260, 0.285345, + 0.285940, 0.285643, 0.286536, 0.287430, 0.288323, 0.289515, + 0.292791, 0.299046, 0.307982, 0.317811, 0.327044, 0.335384, + 0.341937, 0.345511, 0.346405, 0.344320, 0.340150, 0.335384, + 0.331810, 0.328831, 0.328236, 0.329129, 0.332406, 0.335682, + 0.339554, 0.344022, 0.347894, 0.349086, 0.348788, 0.348788, + 0.349383, 0.351468, 0.353553, 0.357128, 0.361595, 0.368148, + 0.373808, 0.377084, 0.377977, 0.377680, 0.377680, 0.377680, + 0.374701, 0.371127, 0.366957, 0.362787, 0.356234, 0.346703, + 0.334789, 0.321087, 0.306492, 0.291302, 0.277303, 0.263601, + 0.250496, 0.239773, 0.231731, 0.225178, 0.220115, 0.215051, + 0.210881, 0.207605, 0.206413, 0.205818, 0.204030, 0.201945, + 0.203435, 0.207903, 0.214157, 0.221008, 0.228454, 0.237092, + 0.246028, 0.253474, 0.258240, 0.259133, 0.258538, 0.257049, + 0.254666, 0.250496, 0.246028, 0.240667, 0.235901, 0.230539, + 0.224880, 0.218327, 0.211179, 0.204030, 0.197180, 0.189436, + 0.181691, 0.173649, 0.166203, 0.159650, 0.155182, 0.150714, + 0.146247, 0.142970, 0.140587, 0.138205, 0.137013, 0.135822, + 0.136715, 0.139098, 0.143268, 0.149523, 0.154289, 0.156672, + 0.157863, 0.159352, 0.161139, 0.161735, 0.161437, 0.161139, + 0.160544, 0.159650, 0.159948, 0.161139, 0.161139, 0.160841, + 0.160841, 0.160544, 0.158459, 0.155182, 0.152204, 0.148332, + 0.145651, 0.144757, 0.145353, 0.146544, 0.149225, 0.151608, + 0.153693, 0.155778, 0.159352, 0.162331, 0.163522, 0.163522, + 0.162926, 0.162033, 0.161139, 0.159650, 0.156969, 0.154587, + 0.151906, 0.148332, 0.143566, 0.137311, 0.130758, 0.123908, + 0.117057, 0.110504, 0.103058, 0.095313, 0.086974, 0.079229, + 0.070294, 0.061954, 0.053912, 0.047657, 0.041700, 0.036338, + 0.032764, 0.030381, 0.029190, 0.029190, 0.029488, 0.029785, + 0.030083, 0.030083, 0.030083, 0.028892, 0.027998, 0.026509, + 0.026211, 0.026807, 0.026807, 0.026509, 0.025615, 0.025020, + 0.023531, 0.020850, 0.017276, 0.012212, 0.007149, 0.001489, + -0.004170, -0.010723, -0.016978, -0.023233, -0.028594, -0.033955, + -0.038721, -0.043487, -0.048252, -0.053614, -0.058380, -0.062847, + -0.067017, -0.070889, -0.074166, -0.077442, -0.081016, -0.084293, + -0.087569, -0.091739, -0.095611, -0.099781, -0.103058, -0.106930, + -0.110504, -0.114674, -0.119440, -0.124801, -0.130758, -0.137013, + -0.143566, -0.150714, -0.157863, -0.165607, -0.173054, -0.180202, + -0.186755, -0.193308, -0.198669, -0.203733, -0.209094, -0.215349, + -0.221604, -0.226965, -0.231135, -0.234709, -0.238582, -0.242156, + -0.245730, -0.247815, -0.249900, -0.251985, -0.254964, -0.256751, + -0.257942, -0.259729, -0.262708, -0.266580, -0.269856, -0.273728, + -0.279685, -0.286238, -0.290706, -0.295174, -0.299940, -0.306195, + -0.313641, -0.320194, -0.325853, -0.330321, -0.335980, -0.342533, + -0.347894, -0.352660, -0.358021, -0.363978, -0.368446, -0.373510, + -0.380360, -0.386020, -0.388998, -0.392870, -0.397040, -0.400912, + -0.403891, -0.407763, -0.413422, -0.420273, -0.428613, -0.436357, + -0.442314, -0.448867, -0.460483, -0.471802, -0.478057, -0.481333, + -0.487588, -0.498609, -0.510523, -0.518565, -0.522139, -0.524522, + -0.530479, -0.540010, -0.547457, -0.546563, -0.542989, -0.546563, + -0.558179, -0.568604, -0.570987, -0.570392, -0.573966, -0.582604, + -0.590944, -0.593624, -0.593028, -0.594518, -0.602560, -0.614474, + -0.624899, -0.630856, -0.638600, -0.652004, -0.670471, -0.687448, + -0.699660, -0.710681, -0.723191, -0.739871, -0.756849, -0.774720, + -0.794080, -0.813143, -0.824462, -0.819994, -0.806590, -0.791102, + -0.770848, -0.736594, -0.684172, -0.621325, -0.559073, -0.504268, + -0.459590, -0.418188, -0.372914, -0.324364, -0.279685, -0.242751, + -0.208498, -0.162033, -0.102462, -0.044082, -0.006553, 0.010127, + 0.017573, 0.025615, 0.029488, 0.023233, 0.007149, -0.009829, + -0.016382, -0.011914, -0.006255, -0.007149, -0.011318, -0.015488, + -0.021148, -0.031573, -0.047657, -0.063741, -0.070294, -0.067315, + -0.058082, -0.048550, -0.037232, -0.022637, -0.009233, -0.001191, + 0.006255, 0.016978, 0.029488, 0.038721, 0.047955, 0.061656, + 0.080123, 0.099781, 0.113780, 0.120333, 0.123312, 0.126588, + 0.127780, 0.123610, 0.114078, 0.105441, 0.104249, 0.110206, + 0.117057, 0.123312, 0.131950, 0.146247, 0.162926, 0.175436, + 0.182883, 0.190031, 0.199265, 0.210583, 0.221008, 0.231731, + 0.247219, 0.269261, 0.295174, 0.322874, 0.348192, 0.371127, + 0.389892, 0.403891, 0.414316, 0.420869, 0.425038, 0.428315, + 0.431591, 0.435761, 0.439633, 0.442314, 0.442314, 0.437846, + 0.430400, 0.422060, 0.413422, 0.403593, 0.393168, 0.383935, + 0.377382, 0.372914, 0.368148, 0.362489, 0.356830, 0.349979, + 0.341639, 0.332108, 0.323470, 0.315726, 0.310662, 0.308577, + 0.310067, 0.314237, 0.319300, 0.323172, 0.325257, 0.326449, + 0.326449, 0.322577, 0.316917, 0.310067, 0.304705, 0.300535, + 0.296961, 0.294578, 0.295174, 0.298152, 0.301131, 0.302025, + 0.299940, 0.296365, 0.293089, 0.290706, 0.288025, 0.285940, + 0.287132, 0.292195, 0.300535, 0.308577, 0.316917, 0.324959, + 0.333001, 0.340448, 0.346107, 0.349979, 0.353553, 0.358617, + 0.364574, 0.369935, 0.375297, 0.380658, 0.383637, 0.383935, + 0.380956, 0.375892, 0.370233, 0.363680, 0.355936, 0.348192, + 0.341937, 0.336278, 0.330023, 0.321087, 0.310960, 0.299344, + 0.287728, 0.274622, 0.260325, 0.247517, 0.239773, 0.235603, + 0.232624, 0.227859, 0.225774, 0.227859, 0.232327, 0.234412, + 0.234709, 0.236497, 0.241858, 0.246624, 0.246921, 0.244241, + 0.241560, 0.240667, 0.241560, 0.242454, 0.243645, 0.244241, + 0.243645, 0.240369, 0.235305, 0.229646, 0.224582, 0.218327, + 0.212370, 0.208200, 0.206413, 0.201350, 0.194499, 0.190031, + 0.187648, 0.185861, 0.182883, 0.180202, 0.177223, 0.176926, + 0.178117, 0.179904, 0.180202, 0.180798, 0.181691, 0.181691, + 0.179011, 0.174543, 0.170969, 0.167692, 0.165011, 0.162629, + 0.160841, 0.159948, 0.159054, 0.156969, 0.154587, 0.153693, + 0.151906, 0.148034, 0.142375, 0.137907, 0.134035, 0.130460, + 0.127482, 0.126886, 0.128077, 0.130758, 0.134630, 0.137609, + 0.139396, 0.142077, 0.144757, 0.147140, 0.148332, 0.151012, + 0.153991, 0.156969, 0.158161, 0.160841, 0.163820, 0.165905, + 0.167394, 0.168586, 0.168288, 0.167096, 0.165607, 0.162926, + 0.159352, 0.154884, 0.151310, 0.147140, 0.141481, 0.134928, + 0.128077, 0.121525, 0.114078, 0.106930, 0.100079, 0.095016, + 0.091144, 0.087867, 0.084591, 0.081910, 0.078336, 0.074762, + 0.070592, 0.066422, 0.062252, 0.058380, 0.055103, 0.051827, + 0.049146, 0.047359, 0.046465, 0.045572, 0.044082, 0.042295, + 0.039615, 0.036934, 0.033658, 0.029488, 0.024722, 0.020254, + 0.015488, 0.011616, 0.008042, 0.003872, 0.000596, -0.002085, + -0.004766, -0.007446, -0.010127, -0.013403, -0.016382, -0.019361, + -0.021446, -0.023531, -0.025913, -0.027998, -0.030083, -0.031573, + -0.033658, -0.036636, -0.039019, -0.041700, -0.044082, -0.047061, + -0.050040, -0.053018, -0.056295, -0.061060, -0.065528, -0.071783, + -0.078336, -0.085782, -0.092931, -0.100973, -0.108121, -0.113780, + -0.117950, -0.123014, -0.128971, -0.134928, -0.139694, -0.143864, + -0.148629, -0.154587, -0.160544, -0.165905, -0.170969, -0.175436, + -0.181096, -0.185563, -0.188840, -0.191223, -0.193903, -0.197775, + -0.202541, -0.207903, -0.212668, -0.216838, -0.220710, -0.224582, + -0.228454, -0.233518, -0.237390, -0.240964, -0.244241, -0.250198, + -0.255857, -0.260623, -0.264495, -0.268069, -0.272239, -0.276707, + -0.279983, -0.282366, -0.285345, -0.289515, -0.293387, -0.296365, + -0.301131, -0.305599, -0.308875, -0.310662, -0.313641, -0.318704, + -0.323768, -0.327342, -0.328534, -0.330916, -0.336278, -0.343724, + -0.350277, -0.354447, -0.358319, -0.366063, -0.375892, -0.385722, + -0.395849, -0.401210, -0.396742, -0.392572, -0.404784, -0.430400, + -0.446782, -0.446186, -0.439038, -0.441123, -0.454228, -0.469121, + -0.475376, -0.472993, -0.473887, -0.483716, -0.494141, -0.495332, + -0.489971, -0.489971, -0.501289, -0.515586, -0.520352, -0.513799, + -0.507544, -0.512012, -0.521543, -0.525118, -0.524522, -0.530181, + -0.541500, -0.548648, -0.549244, -0.551627, -0.560860, -0.570987, + -0.576944, -0.582008, -0.590646, -0.592731, -0.595411, -0.617453, + -0.641579, -0.641877, -0.646940, -0.680002, -0.709787, -0.711872, + -0.708000, -0.722595, -0.750594, -0.763401, -0.753274, -0.736297, + -0.722595, -0.709490, -0.689831, -0.655876, -0.609113, -0.551329, + -0.489077, -0.436059, -0.402104, -0.371127, -0.320492, -0.268069, + -0.244836, -0.237986, -0.209094, -0.161139, -0.119738, -0.086080, + -0.055699, -0.038423, -0.033658, -0.030679, -0.027700, -0.034849, + -0.050635, -0.061954, -0.061656, -0.053316, -0.043189, -0.036338, + -0.030679, -0.022041, -0.016382, -0.019658, -0.025020, -0.019956, + -0.008340, -0.000596, 0.007446, 0.022041, 0.036338, 0.045870, + 0.053912, 0.061358, 0.068804, 0.077144, 0.083995, 0.086378, + 0.088463, 0.093824, 0.101271, 0.105441, 0.103356, 0.097994, + 0.095909, 0.097994, 0.098292, 0.092037, 0.083697, 0.080421, + 0.085484, 0.093228, 0.100079, 0.106930, 0.119738, 0.140885, + 0.165309, 0.185861, 0.202243, 0.217434, 0.232922, 0.247815, + 0.260623, 0.272239, 0.285345, 0.301131, 0.321087, 0.343128, + 0.361893, 0.376190, 0.386020, 0.392274, 0.396444, 0.397338, + 0.394657, 0.391083, 0.388998, 0.388105, 0.388105, 0.387807, + 0.387211, 0.384828, 0.380956, 0.377977, 0.376786, 0.374999, + 0.373808, 0.374701, 0.376190, 0.378573, 0.380956, 0.382147, + 0.381850, 0.380360, 0.376786, 0.373212, 0.369340, 0.364276, + 0.359213, 0.354447, 0.351766, 0.349086, 0.345511, 0.341044, + 0.335086, 0.329427, 0.323768, 0.315428, 0.305003, 0.293982, + 0.285047, 0.277600, 0.271048, 0.265388, 0.262708, 0.263006, + 0.265686, 0.269558, 0.273431, 0.276707, 0.280877, 0.284153, + 0.286834, 0.289515, 0.293387, 0.298450, 0.305003, 0.312449, + 0.319598, 0.326746, 0.333001, 0.338065, 0.340746, 0.342235, + 0.342235, 0.342533, 0.341937, 0.342235, 0.341937, 0.341341, + 0.339256, 0.337171, 0.333597, 0.328831, 0.324066, 0.319598, + 0.316024, 0.311854, 0.307982, 0.305301, 0.302620, 0.299046, + 0.295472, 0.292195, 0.289217, 0.285345, 0.280579, 0.274920, + 0.270452, 0.267771, 0.266282, 0.264495, 0.261814, 0.259431, + 0.258538, 0.258240, 0.254666, 0.247815, 0.239773, 0.232922, + 0.227263, 0.222200, 0.217136, 0.211477, 0.206413, 0.203137, + 0.200754, 0.198371, 0.195393, 0.191818, 0.188542, 0.186755, + 0.186159, 0.185861, 0.185266, 0.184968, 0.186159, 0.187053, + 0.186755, 0.184968, 0.182585, 0.180202, 0.178117, 0.175436, + 0.173351, 0.170671, 0.169181, 0.168586, 0.168586, 0.165607, + 0.161437, 0.156076, 0.151012, 0.146544, 0.142672, 0.138205, + 0.133141, 0.128971, 0.125992, 0.123610, 0.121525, 0.119142, + 0.117950, 0.117653, 0.119738, 0.123312, 0.126588, 0.126886, + 0.125695, 0.126588, 0.128673, 0.129567, 0.128971, 0.130162, + 0.133141, 0.136715, 0.138800, 0.139992, 0.139992, 0.139396, + 0.138800, 0.137609, 0.136120, 0.135822, 0.136120, 0.134928, + 0.132545, 0.131354, 0.131056, 0.129269, 0.125695, 0.123312, + 0.122418, 0.122120, 0.121227, 0.119738, 0.117653, 0.114972, + 0.112887, 0.109908, 0.105738, 0.101568, 0.098590, 0.096207, + 0.092931, 0.088463, 0.083995, 0.081016, 0.078038, 0.073570, + 0.069102, 0.064634, 0.061954, 0.059273, 0.054210, 0.047657, + 0.042593, 0.038721, 0.035743, 0.031870, 0.027403, 0.023233, + 0.021446, 0.019956, 0.018765, 0.016680, 0.014595, 0.013106, + 0.011318, 0.008340, 0.005064, 0.002085, 0.000000, -0.002085, + -0.005064, -0.008042, -0.010127, -0.012212, -0.013999, -0.016680, + -0.019063, -0.022041, -0.024126, -0.027105, -0.030083, -0.033062, + -0.036338, -0.039019, -0.042891, -0.047657, -0.052720, -0.056592, + -0.060762, -0.063443, -0.067017, -0.071187, -0.075655, -0.079825, + -0.083399, -0.086676, -0.090250, -0.094122, -0.098590, -0.103058, + -0.107526, -0.112291, -0.116163, -0.119440, -0.123014, -0.127482, + -0.131652, -0.135524, -0.138502, -0.141779, -0.145651, -0.150119, + -0.155182, -0.160544, -0.166203, -0.171564, -0.176926, -0.181989, + -0.186159, -0.190627, -0.195690, -0.201052, -0.206115, -0.211477, + -0.216838, -0.222497, -0.226667, -0.229348, -0.231433, -0.234114, + -0.238879, -0.242454, -0.244836, -0.246028, -0.247517, -0.250496, + -0.253772, -0.256453, -0.258538, -0.260921, -0.263303, -0.265984, + -0.267473, -0.269856, -0.272239, -0.275515, -0.278196, -0.280877, + -0.284153, -0.287132, -0.290706, -0.294578, -0.298748, -0.302918, + -0.307386, -0.311258, -0.314832, -0.318109, -0.323172, -0.330023, + -0.336576, -0.340746, -0.344618, -0.350277, -0.357426, -0.362787, + -0.365468, -0.367255, -0.372020, -0.377382, -0.382445, -0.386020, + -0.389296, -0.393466, -0.398232, -0.402402, -0.405082, -0.407465, + -0.411635, -0.415805, -0.419677, -0.423549, -0.428613, -0.434272, + -0.439038, -0.441718, -0.445888, -0.451548, -0.456015, -0.456909, + -0.454526, -0.455420, -0.461377, -0.468525, -0.470015, -0.468227, + -0.468227, -0.473589, -0.479546, -0.481631, -0.480439, -0.481333, + -0.485503, -0.490864, -0.493843, -0.496226, -0.502481, -0.511118, + -0.517076, -0.519756, -0.526309, -0.538521, -0.551925, -0.561158, + -0.567115, -0.574561, -0.586476, -0.600773, -0.613580, -0.624005, + -0.630260, -0.633537, -0.633239, -0.626686, -0.615368, -0.598092, + -0.572477, -0.536138, -0.493545, -0.451250, -0.416103, -0.386913, + -0.356532, -0.322874, -0.291004, -0.269261, -0.257644, -0.244539, + -0.219817, -0.187351, -0.155480, -0.130758, -0.115270, -0.103951, + -0.092931, -0.084591, -0.083101, -0.088463, -0.095611, -0.097994, + -0.090250, -0.073868, -0.054210, -0.039317, -0.030679, -0.022637, + -0.011616, -0.000596, 0.005659, 0.009829, 0.016382, 0.029785, + 0.047657, 0.063443, 0.074166, 0.081910, 0.090548, 0.099781, + 0.105441, 0.105441, 0.103951, 0.107228, 0.115270, 0.124503, + 0.129567, 0.129269, 0.126886, 0.125099, 0.123312, 0.119738, + 0.114078, 0.108717, 0.106632, 0.109908, 0.116461, 0.125992, + 0.135226, 0.144162, 0.153693, 0.164714, 0.176330, 0.187946, + 0.199563, 0.210583, 0.222200, 0.234412, 0.245134, 0.253176, + 0.259729, 0.266580, 0.275515, 0.285643, 0.294578, 0.303216, + 0.310960, 0.319300, 0.325555, 0.328236, 0.326449, 0.322874, + 0.320789, 0.321087, 0.321981, 0.322874, 0.323768, 0.326746, + 0.331512, 0.337171, 0.340746, 0.341937, 0.343724, 0.346405, + 0.350277, 0.353851, 0.355341, 0.356532, 0.357426, 0.358319, + 0.357128, 0.352958, 0.348490, 0.343724, 0.339256, 0.335384, + 0.332108, 0.329129, 0.325853, 0.323172, 0.319598, 0.314832, + 0.308875, 0.302025, 0.295174, 0.288323, 0.282366, 0.277898, + 0.273431, 0.270154, 0.268367, 0.267176, 0.265984, 0.265091, + 0.264793, 0.265388, 0.266878, 0.268069, 0.268665, 0.269261, + 0.270154, 0.271048, 0.271346, 0.269856, 0.268665, 0.268665, + 0.268665, 0.268963, 0.269558, 0.269261, 0.269261, 0.269261, + 0.268069, 0.266580, 0.263899, 0.260623, 0.257346, 0.254666, + 0.252283, 0.251389, 0.250198, 0.249006, 0.247815, 0.246326, + 0.245730, 0.244539, 0.242751, 0.240964, 0.238582, 0.236497, + 0.234709, 0.232029, 0.229646, 0.226369, 0.223689, 0.219817, + 0.216242, 0.212668, 0.209690, 0.206711, 0.204328, 0.202243, + 0.200754, 0.198967, 0.197180, 0.194499, 0.191520, 0.187648, + 0.183776, 0.178713, 0.173054, 0.167096, 0.161437, 0.156969, + 0.153097, 0.150119, 0.147438, 0.144757, 0.141481, 0.138800, + 0.136120, 0.132545, 0.128077, 0.123312, 0.118248, 0.113185, + 0.108419, 0.103356, 0.098590, 0.095313, 0.092335, 0.090846, + 0.089356, 0.087867, 0.086378, 0.083995, 0.081612, 0.078038, + 0.074166, 0.070294, 0.066124, 0.062549, 0.059273, 0.055401, + 0.051827, 0.049742, 0.048848, 0.048252, 0.047955, 0.047657, + 0.048550, 0.048550, 0.047955, 0.047359, 0.046167, 0.045274, + 0.043785, 0.043487, 0.042891, 0.043189, 0.042891, 0.041402, + 0.039913, 0.039019, 0.038423, 0.037828, 0.036636, 0.035743, + 0.034253, 0.032764, 0.030977, 0.028892, 0.025913, 0.022935, + 0.019063, 0.015786, 0.012808, 0.010723, 0.009829, 0.009531, + 0.009531, 0.009829, 0.010425, 0.010723, 0.011021, 0.011318, + 0.011616, 0.011616, 0.011318, 0.010425, 0.010127, 0.010127, + 0.010723, 0.010425, 0.010425, 0.010425, 0.010127, 0.008936, + 0.007149, 0.005957, 0.005957, 0.005361, 0.003872, 0.001489, + -0.000298, -0.001787, -0.002085, -0.002979, -0.004170, -0.005064, + -0.009829, -0.016978, -0.011021, 0.006851, 0.006851, -0.014893, + -0.026509, -0.019063, -0.011021, -0.007744, -0.011616, -0.024126, + -0.032168, -0.024126, -0.012808, -0.018169, -0.028594, -0.026509, + -0.020850, -0.022637, -0.028594, -0.034849, -0.036934, -0.031573, + -0.025913, -0.031870, -0.043487, -0.044678, -0.036636, -0.032168, + -0.036040, -0.041104, -0.042295, -0.041700, -0.040210, -0.041104, + -0.045274, -0.047955, -0.048252, -0.050337, -0.054805, -0.056890, + -0.054805, -0.052720, -0.054805, -0.058677, -0.060464, -0.058082, + -0.054805, -0.054805, -0.059869, -0.064634, -0.065230, -0.064634, + -0.067017, -0.070889, -0.073868, -0.074166, -0.073570, -0.075059, + -0.077144, -0.077740, -0.075953, -0.075655, -0.076549, -0.080123, + -0.082208, -0.082804, -0.083697, -0.085782, -0.088761, -0.090250, + -0.091441, -0.092037, -0.092633, -0.092931, -0.092931, -0.092633, + -0.092931, -0.094122, -0.095313, -0.095313, -0.094420, -0.095313, + -0.097101, -0.098888, -0.098888, -0.097696, -0.097101, -0.097101, + -0.097398, -0.097994, -0.097994, -0.097994, -0.098292, -0.098590, + -0.099186, -0.100079, -0.101271, -0.102462, -0.103058, -0.103356, + -0.103951, -0.105143, -0.106334, -0.107526, -0.108419, -0.109313, + -0.109610, -0.110504, -0.111398, -0.112291, -0.113780, -0.115865, + -0.117653, -0.119142, -0.120333, -0.121823, -0.123908, -0.125099, + -0.126588, -0.127482, -0.128077, -0.128971, -0.130460, -0.131056, + -0.132247, -0.133439, -0.134332, -0.135226, -0.137013, -0.138502, + -0.141779, -0.144162, -0.145353, -0.146247, -0.147736, -0.150417, + -0.152204, -0.152204, -0.151906, -0.152502, -0.154587, -0.156374, + -0.157565, -0.158756, -0.160841, -0.165011, -0.168884, -0.171564, + -0.173649, -0.176926, -0.181096, -0.184372, -0.184074, -0.183181, + -0.184074, -0.187351, -0.189733, -0.189733, -0.189436, -0.191520, + -0.195690, -0.200158, -0.202541, -0.204924, -0.208200, -0.212966, + -0.217434, -0.220115, -0.221902, -0.223689, -0.227263, -0.230837, + -0.233518, -0.234709, -0.237986, -0.242751, -0.247517, -0.250496, + -0.252581, -0.253474, -0.251687, -0.246921, -0.237986, -0.227561, + -0.216838, -0.205222, -0.190329, -0.176330, -0.167096, -0.165607, + -0.169479, -0.173649, -0.176032, -0.178117, -0.183181, -0.187648, + -0.187053, -0.176330, -0.161139, -0.148034, -0.140587, -0.135822, + -0.128971, -0.121525, -0.117355, -0.118546, -0.122716, -0.122418, + -0.115865, -0.106930, -0.100377, -0.094718, -0.087271, -0.075357, + -0.062847, -0.053614, -0.047657, -0.041402, -0.032466, -0.023233, + -0.016978, -0.014893, -0.013701, -0.009531, -0.003276, 0.001787, + 0.005659, 0.009233, 0.015786, 0.023828, 0.030977, 0.035147, + 0.037828, 0.040210, 0.044082, 0.048252, 0.051827, 0.055401, + 0.059273, 0.063741, 0.068209, 0.072677, 0.076846, 0.082208, + 0.088165, 0.095611, 0.104547, 0.115270, 0.125695, 0.134035, + 0.139694, 0.143268, 0.145651, 0.146544, 0.145949, 0.143864, + 0.143864, 0.147140, 0.153097, 0.159650, 0.165905, 0.171862, + 0.177223, 0.182287, 0.184670, 0.183776, 0.181989, 0.181096, + 0.181989, 0.183181, 0.183478, 0.183776, 0.185861, 0.189733, + 0.194499, 0.197478, 0.199860, 0.203137, 0.207307, 0.211477, + 0.214753, 0.215647, 0.215647, 0.214157, 0.212966, 0.211179, + 0.209392, 0.207605, 0.206413, 0.207307, 0.209094, 0.211477, + 0.213562, 0.215349, 0.217136, 0.218327, 0.219221, 0.218327, + 0.216540, 0.214157, 0.212072, 0.209987, 0.207307, 0.204328, + 0.202541, 0.202839, 0.203733, 0.204626, 0.205818, 0.207605, + 0.210285, 0.213264, 0.213264, 0.211179, 0.207605, 0.204328, + 0.200754, 0.196286, 0.190925, 0.187053, 0.184968, 0.183776, + 0.182883, 0.182287, 0.181989, 0.182585, 0.182585, 0.181096, + 0.178117, 0.175734, 0.173351, 0.170671, 0.166501, 0.162033, + 0.159054, 0.157863, 0.157565, 0.157267, 0.156374, 0.156969, + 0.157267, 0.157863, 0.156374, 0.154587, 0.152502, 0.151310, + 0.150417, 0.148927, 0.147736, 0.145651, 0.143566, 0.140885, + 0.137907, 0.134928, 0.132843, 0.131354, 0.129865, 0.128077, + 0.126588, 0.124503, 0.122120, 0.119142, 0.115270, 0.111993, + 0.107823, 0.104547, 0.101271, 0.098590, 0.096505, 0.095016, + 0.094122, 0.092335, 0.091144, 0.089059, 0.086676, 0.084293, + 0.080421, 0.076549, 0.072974, 0.069996, 0.067017, 0.064634, + 0.061656, 0.059273, 0.056890, 0.055103, 0.053912, 0.052422, + 0.050933, 0.049444, 0.047955, 0.045572, 0.043487, 0.040508, + 0.037232, 0.034253, 0.031573, 0.029785, 0.028594, 0.027700, + 0.026509, 0.025318, 0.024722, 0.023531, 0.022339, 0.021148, + 0.020254, 0.019361, 0.018169, 0.016680, 0.014893, 0.013106, + 0.011616, 0.010723, 0.009531, 0.009233, 0.008936, 0.008936, + 0.008042, 0.007446, 0.006553, 0.006255, 0.006255, 0.005957, + 0.005361, 0.004170, 0.002383, 0.000894, -0.000596, -0.002383, + -0.004468, -0.005064, -0.005064, -0.004468, -0.004170, -0.004170, + -0.004170, -0.004766, -0.005361, -0.006553, -0.007149, -0.008042, + -0.008340, -0.008936, -0.008638, -0.008638, -0.008936, -0.008638, + -0.008638, -0.008638, -0.008638, -0.008638, -0.008936, -0.008936, + -0.009531, -0.009829, -0.010723, -0.011318, -0.011914, -0.012510, + -0.013403, -0.014595, -0.015191, -0.016084, -0.017276, -0.017871, + -0.017871, -0.017871, -0.018765, -0.019361, -0.020552, -0.021743, + -0.022935, -0.023828, -0.024722, -0.025615, -0.026211, -0.026807, + -0.027105, -0.027998, -0.028296, -0.029190, -0.030083, -0.030679, + -0.031870, -0.032466, -0.033658, -0.034849, -0.036040, -0.037530, + -0.038721, -0.040210, -0.041104, -0.041997, -0.043189, -0.044380, + -0.045274, -0.046465, -0.047061, -0.048252, -0.048848, -0.049742, + -0.051231, -0.052422, -0.053912, -0.055401, -0.056295, -0.057784, + -0.058677, -0.059571, -0.060464, -0.061358, -0.062252, -0.063443, + -0.064932, -0.065826, -0.067315, -0.068209, -0.069400, -0.070592, + -0.071485, -0.072677, -0.073868, -0.074762, -0.075655, -0.076846, + -0.078038, -0.079527, -0.080421, -0.081612, -0.082506, -0.083399, + -0.084591, -0.086080, -0.087271, -0.088463, -0.089356, -0.090548, + -0.091441, -0.092633, -0.094122, -0.095016, -0.095909, -0.096505, + -0.097696, -0.098888, -0.100377, -0.101568, -0.102760, -0.103951, + -0.105441, -0.106334, -0.107823, -0.107823, -0.109015, -0.109908, + -0.111100, -0.111695, -0.112291, -0.112887, -0.114376, -0.115568, + -0.116759, -0.117355, -0.118546, -0.119738, -0.120929, -0.121823, + -0.122716, -0.123610, -0.124801, -0.126886, -0.128971, -0.130758, + -0.132247, -0.133439, -0.135524, -0.136715, -0.138205, -0.138800, + -0.139396, -0.140885, -0.142077, -0.143268, -0.143864, -0.145651, + -0.147140, -0.148332, -0.150417, -0.152502, -0.154289, -0.156374, + -0.157565, -0.159054, -0.160246, -0.161735, -0.162926, -0.164416, + -0.165607, -0.167096, -0.168884, -0.171266, -0.173351, -0.174543, + -0.175734, -0.177223, -0.179011, -0.180500, -0.181691, -0.182883, + -0.184670, -0.187053, -0.189138, -0.191223, -0.193605, -0.196286, + -0.198967, -0.201350, -0.202541, -0.204328, -0.206711, -0.208796, + -0.211477, -0.214455, -0.217732, -0.221306, -0.224880, -0.229050, + -0.232624, -0.235901, -0.239475, -0.243943, -0.248709, -0.253176, + -0.257644, -0.261814, -0.265686, -0.267473, -0.266878, -0.262410, + -0.256155, -0.249602, -0.241560, -0.231135, -0.217732, -0.207009, + -0.202541, -0.204328, -0.206711, -0.207605, -0.209094, -0.214455, + -0.221604, -0.224284, -0.217434, -0.205222, -0.193903, -0.187053, + -0.181393, -0.172160, -0.159650, -0.151012, -0.149523, -0.150119, + -0.145651, -0.135822, -0.125099, -0.120631, -0.118844, -0.114376, + -0.104845, -0.095611, -0.090846, -0.089059, -0.083697, -0.073272, + -0.060762, -0.051529, -0.045572, -0.040508, -0.033360, -0.025615, + -0.020552, -0.017573, -0.015488, -0.011616, -0.005957, -0.000298, + 0.004766, 0.009531, 0.015191, 0.021148, 0.028892, 0.037232, + 0.045572, 0.053614, 0.060167, 0.066719, 0.073570, 0.080719, + 0.085484, 0.089059, 0.092931, 0.099483, 0.107526, 0.115865, + 0.122716, 0.128673, 0.135524, 0.142077, 0.146247, 0.147438, + 0.147140, 0.148332, 0.151310, 0.155778, 0.159948, 0.163820, + 0.167990, 0.173649, 0.178713, 0.181691, 0.182287, 0.182883, + 0.184968, 0.188542, 0.193010, 0.196584, 0.200158, 0.204328, + 0.208796, 0.212966, 0.215051, 0.215647, 0.216242, 0.217434, + 0.219817, 0.221902, 0.222795, 0.222200, 0.221902, 0.221902, + 0.221604, 0.220115, 0.218030, 0.217136, 0.217136, 0.217732, + 0.217732, 0.217136, 0.216242, 0.216838, 0.217732, 0.217434, + 0.216838, 0.215945, 0.216242, 0.216540, 0.216540, 0.215349, + 0.213264, 0.212072, 0.212072, 0.212668, 0.212668, 0.211775, + 0.211775, 0.212072, 0.212668, 0.212072, 0.210285, 0.207605, + 0.204924, 0.202243, 0.198967, 0.195690, 0.192414, 0.190031, + 0.188244, 0.186457, 0.184372, 0.182585, 0.180500, 0.178713, + 0.176926, 0.174841, 0.173054, 0.170969, 0.169479, 0.167692, + 0.165905, 0.164118, 0.162331, 0.161437, 0.160246, 0.158459, + 0.156969, 0.155778, 0.153991, 0.152204, 0.149821, 0.147140, + 0.144757, 0.142077, 0.139694, 0.137013, 0.134928, 0.133141, + 0.130758, 0.128673, 0.126588, 0.125099, 0.123610, 0.121823, + 0.120035, 0.119142, 0.118248, 0.116163, 0.113780, 0.110802, + 0.107228, 0.104249, 0.101866, 0.098888, 0.096505, 0.094420, + 0.092633, 0.090548, 0.088463, 0.085782, 0.083697, 0.081612, + 0.079527, 0.076251, 0.072974, 0.069698, 0.067017, 0.064337, + 0.061954, 0.059571, 0.058380, 0.057188, 0.056592, 0.055401, + 0.053614, 0.051827, 0.050337, 0.048252, 0.046167, 0.044380, + 0.042295, 0.040210, 0.038423, 0.036934, 0.035445, 0.033955, + 0.033360, 0.033360, 0.033062, 0.031870, 0.031870, 0.030977, + 0.030381, 0.029488, 0.028594, 0.027998, 0.026807, 0.025913, + 0.025020, 0.024424, 0.023828, 0.023531, 0.023828, 0.023531, + 0.024126, 0.024126, 0.024126, 0.023531, 0.022637, 0.022339, + 0.021446, 0.020850, 0.019956, 0.019361, 0.018765, 0.018169, + 0.017276, 0.016978, 0.016382, 0.016382, 0.016680, 0.017276, + 0.017871, 0.018169, 0.018467, 0.018467, 0.018169, 0.017573, + 0.017573, 0.017573, 0.017573, 0.018169, 0.018169, 0.018765, + 0.019063, 0.019361, 0.019361, 0.019956, 0.019658, 0.019361, + 0.018765, 0.018169, 0.017573, 0.017276, 0.016680, 0.016382, + 0.016084, 0.016084, 0.015786, 0.015786, 0.015488, 0.015191, + 0.014595, 0.014893, 0.014595, 0.013999, 0.013701, 0.013106, + 0.012510, 0.011318, 0.010425, 0.009531, 0.008936, 0.008340, + 0.007446, 0.006851, 0.006255, 0.005361, 0.004468, 0.003574, + 0.002085, 0.001191, 0.000000, -0.000596, -0.002383, -0.003276, + -0.004766, -0.005659, -0.006553, -0.007149, -0.007446, -0.008638, + -0.009531, -0.010127, -0.011318, -0.012212, -0.013999, -0.015191, + -0.016382, -0.017573, -0.019063, -0.020552, -0.022041, -0.023233, + -0.024722, -0.025615, -0.026807, -0.027700, -0.028892, -0.030381, + -0.032168, -0.033360, -0.035147, -0.036934, -0.038721, -0.039913, + -0.041700, -0.042891, -0.044082, -0.045274, -0.046465, -0.047657, + -0.048848, -0.049742, -0.051231, -0.052422, -0.053912, -0.055401, + -0.056890, -0.058082, -0.059869, -0.061060, -0.062549, -0.063741, + -0.064932, -0.066422, -0.067911, -0.069102, -0.070294, -0.071783, + -0.072677, -0.073570, -0.075059, -0.076549, -0.077442, -0.078931, + -0.080123, -0.081016, -0.082208, -0.082804, -0.083697, -0.083995, + -0.084889, -0.085484, -0.086378, -0.086676, -0.087569, -0.088761, + -0.090548, -0.092037, -0.093526, -0.094718, -0.096505, -0.098292, + -0.099781, -0.100377, -0.101271, -0.102164, -0.103653, -0.104249, + -0.105738, -0.106930, -0.108121, -0.109610, -0.111695, -0.113185, + -0.114674, -0.115270, -0.116461, -0.118248, -0.119440, -0.120035, + -0.120929, -0.121823, -0.123014, -0.123908, -0.124801, -0.125992, + -0.127184, -0.128375, -0.129865, -0.131950, -0.133141, -0.134630, + -0.135822, -0.137311, -0.138205, -0.138800, -0.139396, -0.139992, + -0.140885, -0.142672, -0.144459, -0.145949, -0.148034, -0.149523, + -0.151310, -0.152799, -0.154587, -0.155778, -0.157267, -0.158459, + -0.159948, -0.161139, -0.162331, -0.163522, -0.165011, -0.166799, + -0.169181, -0.171266, -0.172756, -0.175139, -0.176926, -0.179011, + -0.180798, -0.181691, -0.183478, -0.184968, -0.187351, -0.189436, + -0.191520, -0.193903, -0.196584, -0.199563, -0.202839, -0.205520, + -0.207903, -0.210881, -0.214753, -0.218625, -0.222497, -0.225178, + -0.228454, -0.231731, -0.236497, -0.240667, -0.243347, -0.244539, + -0.243645, -0.240667, -0.234709, -0.226965, -0.217434, -0.207009, + -0.196584, -0.188542, -0.184968, -0.186159, -0.188840, -0.190925, + -0.192414, -0.195690, -0.198967, -0.199265, -0.193010, -0.182287, + -0.171862, -0.163820, -0.157267, -0.149225, -0.139694, -0.132843, + -0.129567, -0.128673, -0.125397, -0.117057, -0.108419, -0.101866, + -0.099781, -0.096505, -0.089952, -0.081910, -0.076549, -0.072974, + -0.067613, -0.058380, -0.047359, -0.038423, -0.033062, -0.027998, + -0.021743, -0.014893, -0.009233, -0.005659, -0.002979, 0.000298, + 0.006255, 0.011914, 0.016084, 0.019956, 0.025318, 0.032168, + 0.041104, 0.050040, 0.057784, 0.065826, 0.072974, 0.079825, + 0.085782, 0.089952, 0.093228, 0.095909, 0.100675, 0.106036, + 0.112589, 0.118546, 0.124205, 0.130162, 0.136715, 0.141779, + 0.145353, 0.146544, 0.147736, 0.149821, 0.153693, 0.157565, + 0.161139, 0.164714, 0.169777, 0.175436, 0.179606, 0.181691, + 0.182287, 0.184074, 0.187053, 0.191223, 0.195393, 0.198967, + 0.202839, 0.207307, 0.211179, 0.213860, 0.213860, 0.213562, + 0.213264, 0.213860, 0.213562, 0.213860, 0.214157, 0.214455, + 0.215051, 0.215945, 0.215647, 0.215051, 0.214455, 0.213860, + 0.213860, 0.213562, 0.213562, 0.212966, 0.212966, 0.213562, + 0.214753, 0.215945, 0.216540, 0.216838, 0.217434, 0.218030, + 0.218923, 0.218030, 0.216838, 0.215647, 0.215051, 0.214753, + 0.214157, 0.212370, 0.211179, 0.209987, 0.209392, 0.207903, + 0.205222, 0.202243, 0.199860, 0.198371, 0.195988, 0.193605, + 0.190925, 0.189436, 0.188542, 0.186755, 0.183776, 0.181393, + 0.179904, 0.178117, 0.176628, 0.174841, 0.173649, 0.172756, + 0.171862, 0.170969, 0.168884, 0.166501, 0.164416, 0.162629, + 0.160246, 0.157863, 0.155182, 0.153097, 0.151608, 0.148927, + 0.145949, 0.142970, 0.140290, 0.138502, 0.136120, 0.133737, + 0.131652, 0.130758, 0.129567, 0.127780, 0.125695, 0.123312, + 0.120929, 0.119142, 0.117355, 0.114674, 0.112291, 0.109610, + 0.107823, 0.106036, 0.104249, 0.102164, 0.099186, 0.097101, + 0.094718, 0.092037, 0.089059, 0.086378, 0.083697, 0.082208, + 0.080421, 0.078634, 0.075059, 0.072379, 0.069102, 0.066422, + 0.063443, 0.061358, 0.059869, 0.058677, 0.058380, 0.057188, + 0.055103, 0.052720, 0.050040, 0.047359, 0.045274, 0.043487, + 0.041402, 0.040806, 0.039615, 0.038125, 0.036934, 0.035147, + 0.033062, 0.031573, 0.030381, 0.028594, 0.027403, 0.026211, + 0.025615, 0.025020, 0.024722, 0.023828, 0.023531, 0.022637, + 0.021743, 0.020552, 0.019063, 0.018467, 0.018169, 0.018169, + 0.018169, 0.018169, 0.017573, 0.016680, 0.015191, 0.014297, + 0.013403, 0.012510, 0.011616, 0.011021, 0.010425, 0.009531, + 0.009233, 0.008638, 0.008042, 0.007446, 0.007446, 0.007446, + 0.007744, 0.007744, 0.007744, 0.008042, 0.008340, 0.008638, + 0.008638, 0.008638, 0.009531, 0.009233, 0.009531, 0.009233, + 0.009233, 0.008936, 0.009233, 0.008936, 0.009233, 0.008936, + 0.008936, 0.007744, 0.007744, 0.006851, 0.005957, 0.005361, + 0.005064, 0.005064, 0.005064, 0.005361, 0.005064, 0.004468, + 0.004170, 0.003872, 0.003276, 0.002681, 0.002383, 0.001787, + 0.001191, 0.000894, 0.000298, 0.000000, -0.000596, -0.001489, + -0.002383, -0.003276, -0.004468, -0.005659, -0.006255, -0.007149, + -0.007744, -0.008340, -0.009233, -0.010425, -0.011616, -0.012510, + -0.014297, -0.015488, -0.016680, -0.017276, -0.018169, -0.018467, + -0.019063, -0.019956, -0.020850, -0.022041, -0.023531, -0.025020, + -0.026211, -0.027998, -0.029190, -0.030679, -0.031573, -0.032764, + -0.033955, -0.035147, -0.036338, -0.037530, -0.039317, -0.040508, + -0.041997, -0.043189, -0.044380, -0.045274, -0.046465, -0.047359, + -0.048252, -0.049146, -0.050040, -0.051827, -0.052720, -0.053912, + -0.055103, -0.055997, -0.056890, -0.057188, -0.058082, -0.059273, + -0.060464, -0.061656, -0.063741, -0.065230, -0.066719, -0.068209, + -0.069400, -0.070294, -0.071485, -0.072677, -0.073570, -0.074464, + -0.075655, -0.076549, -0.077740, -0.078634, -0.079825, -0.080421, + -0.081314, -0.081612, -0.082208, -0.082804, -0.083399, -0.084293, + -0.085186, -0.085782, -0.086378, -0.086676, -0.087569, -0.088165, + -0.088761, -0.089654, -0.090846, -0.092633, -0.094122, -0.095313, + -0.096207, -0.096803, -0.097994, -0.098888, -0.100079, -0.100377, + -0.100973, -0.101866, -0.103058, -0.103951, -0.105143, -0.105441, + -0.106632, -0.107526, -0.108717, -0.109908, -0.109908, -0.110504, + -0.111100, -0.111993, -0.113185, -0.114078, -0.114972, -0.116163, + -0.117950, -0.119142, -0.120631, -0.120929, -0.122120, -0.123312, + -0.124801, -0.126290, -0.126886, -0.127780, -0.128673, -0.130162, + -0.130758, -0.131354, -0.131652, -0.132247, -0.133439, -0.134332, + -0.135822, -0.136417, -0.137013, -0.138502, -0.140290, -0.141779, + -0.143268, -0.143864, -0.145055, -0.146544, -0.147438, -0.148629, + -0.149523, -0.150714, -0.151906, -0.153097, -0.154587, -0.155778, + -0.156969, -0.157863, -0.159054, -0.159948, -0.161735, -0.163522, + -0.165309, -0.166501, -0.168884, -0.170969, -0.173054, -0.174841, + -0.176628, -0.179011, -0.181989, -0.184372, -0.187351, -0.189733, + -0.192712, -0.195393, -0.198967, -0.202243, -0.204030, -0.205818, + -0.208796, -0.212668, -0.217136, -0.220710, -0.224284, -0.227859, + -0.230242, -0.231731, -0.232029, -0.231433, -0.228752, -0.223093, + -0.214753, -0.204328, -0.195393, -0.200158, -0.219519, -0.233518, + -0.233220, -0.229050, -0.231433, -0.237688, -0.237390, -0.222200, + -0.196882, -0.172756, -0.157863, -0.154289, -0.156374, -0.159948, + -0.162926, -0.165607, -0.169777, -0.179904, -0.187648, -0.182883, + -0.165309, -0.141481, -0.119738, -0.100079, -0.078931, -0.057188, + -0.039615, -0.029488, -0.025020, -0.022637, -0.021446, -0.023531, + -0.027998, -0.029190, -0.021743, -0.007149, 0.008638, 0.020850, + 0.031573, 0.045274, 0.059273, 0.066124, 0.062252, 0.053018, + 0.046465, 0.046763, 0.050933, 0.055401, 0.059273, 0.066124, + 0.077144, 0.090548, 0.103951, 0.115865, 0.125099, 0.130162, + 0.133141, 0.133439, 0.133737, 0.136715, 0.142375, 0.147438, + 0.152204, 0.155778, 0.161139, 0.166799, 0.170969, 0.172458, + 0.171266, 0.168884, 0.166203, 0.165011, 0.166203, 0.169777, + 0.174841, 0.181393, 0.187946, 0.195095, 0.202243, 0.208498, + 0.212966, 0.214753, 0.215051, 0.216540, 0.218923, 0.222200, + 0.224880, 0.226369, 0.228752, 0.232624, 0.237092, 0.239475, + 0.240071, 0.238582, 0.236497, 0.233220, 0.229050, 0.223987, + 0.219817, 0.217434, 0.216540, 0.215647, 0.215647, 0.218030, + 0.223093, 0.228752, 0.233220, 0.235305, 0.236199, 0.236794, + 0.235901, 0.232922, 0.229050, 0.226072, 0.224284, 0.223093, + 0.222200, 0.220412, 0.218030, 0.216540, 0.213562, 0.209987, + 0.205520, 0.201945, 0.198371, 0.195095, 0.191818, 0.188840, + 0.187351, 0.186457, 0.186159, 0.184968, 0.183776, 0.183776, + 0.184372, 0.184670, 0.184968, 0.185563, 0.186159, 0.185266, + 0.183181, 0.179904, 0.177223, 0.173947, 0.171266, 0.168586, + 0.166203, 0.163820, 0.162033, 0.161139, 0.159054, 0.155778, + 0.153097, 0.151012, 0.149225, 0.145949, 0.144162, 0.144162, + 0.145353, 0.145353, 0.145055, 0.145055, 0.146247, 0.147140, + 0.146544, 0.145055, 0.144459, 0.144459, 0.144162, 0.141779, + 0.137609, 0.133439, 0.130162, 0.125397, 0.120333, 0.114972, + 0.110206, 0.106632, 0.103356, 0.100675, 0.098292, 0.097696, + 0.097994, 0.098590, 0.096803, 0.095313, 0.094420, 0.092931, + 0.091144, 0.089059, 0.087271, 0.085484, 0.083101, 0.079825, + 0.076251, 0.072379, 0.068507, 0.064337, 0.060464, 0.057486, + 0.054805, 0.052422, 0.048848, 0.045870, 0.044082, 0.042593, + 0.040806, 0.039317, 0.039019, 0.040210, 0.040806, 0.041997, + 0.042593, 0.042593, 0.041997, 0.041402, 0.040508, 0.039615, + 0.038721, 0.038125, 0.036934, 0.034551, 0.032466, 0.030679, + 0.028296, 0.026509, 0.025318, 0.024126, 0.022637, 0.021743, + 0.021148, 0.020850, 0.021148, 0.022339, 0.024126, 0.025615, + 0.027105, 0.028594, 0.030083, 0.030679, 0.030977, 0.031573, + 0.032764, 0.033360, 0.033658, 0.032764, 0.031573, 0.030381, + 0.029190, 0.027700, 0.026509, 0.025913, 0.025615, 0.025020, + 0.024126, 0.023828, 0.023828, 0.024722, 0.025615, 0.026509, + 0.027998, 0.029785, 0.031870, 0.033062, 0.034551, 0.034849, + 0.035147, 0.035147, 0.034253, 0.033955, 0.033062, 0.031870, + 0.030381, 0.028594, 0.026211, 0.025020, 0.023233, 0.021148, + 0.019361, 0.017276, 0.015488, 0.014595, 0.013999, 0.012510, + 0.012212, 0.012212, 0.011914, 0.011914, 0.010425, 0.010127, + 0.009233, 0.008042, 0.006255, 0.004468, 0.002681, 0.000894, + -0.000894, -0.004468, -0.008042, -0.011616, -0.014893, -0.018467, + -0.022339, -0.025615, -0.028892, -0.031573, -0.033955, -0.036338, + -0.038125, -0.039317, -0.040806, -0.041700, -0.043189, -0.044082, + -0.045274, -0.046763, -0.047657, -0.049742, -0.051827, -0.054210, + -0.055997, -0.058677, -0.061358, -0.064039, -0.066719, -0.069400, + -0.072081, -0.075059, -0.077740, -0.080421, -0.083101, -0.085186, + -0.086974, -0.088463, -0.089654, -0.090548, -0.091144, -0.091739, + -0.091739, -0.092335, -0.092931, -0.093228, -0.094122, -0.095313, + -0.095909, -0.097398, -0.098888, -0.100675, -0.102760, -0.105143, + -0.107823, -0.110206, -0.113185, -0.115865, -0.118546, -0.120631, + -0.123014, -0.124801, -0.126290, -0.127184, -0.128673, -0.129567, + -0.130758, -0.131652, -0.132545, -0.133439, -0.134630, -0.135226, + -0.136120, -0.137013, -0.138205, -0.140290, -0.142672, -0.144459, + -0.146247, -0.148927, -0.152204, -0.155778, -0.157863, -0.159650, + -0.162629, -0.166501, -0.169181, -0.169479, -0.169479, -0.170969, + -0.172458, -0.172458, -0.172160, -0.172160, -0.173351, -0.175139, + -0.176330, -0.176032, -0.175734, -0.176628, -0.178713, -0.179011, + -0.178713, -0.179606, -0.182883, -0.186755, -0.189436, -0.190627, + -0.192712, -0.196584, -0.200754, -0.202243, -0.202243, -0.204030, + -0.206711, -0.209392, -0.209690, -0.210285, -0.212072, -0.215051, + -0.216242, -0.216242, -0.215945, -0.217434, -0.220412, -0.221306, + -0.221306, -0.222200, -0.226369, -0.230539, -0.232922, -0.233518, + -0.235305, -0.239177, -0.242751, -0.244836, -0.245432, -0.246624, + -0.249006, -0.251985, -0.253176, -0.252581, -0.252283, -0.254070, + -0.256453, -0.257644, -0.256751, -0.256751, -0.260027, -0.263601, + -0.265388, -0.265984, -0.267473, -0.269856, -0.272835, -0.275813, + -0.277898, -0.279983, -0.283260, -0.288025, -0.291302, -0.291898, + -0.292493, -0.297259, -0.302918, -0.304407, -0.304110, -0.306790, + -0.314237, -0.319598, -0.320789, -0.321087, -0.324661, -0.329725, + -0.331512, -0.332704, -0.335980, -0.341044, -0.347894, -0.355043, + -0.360702, -0.363383, -0.364276, -0.362787, -0.356830, -0.344618, + -0.330619, -0.316917, -0.302620, -0.285940, -0.268069, -0.248411, + -0.228454, -0.211775, -0.197180, -0.181691, -0.167394, -0.157863, + -0.154289, -0.153097, -0.151906, -0.148332, -0.141183, -0.131056, + -0.119738, -0.107228, -0.090548, -0.073272, -0.061656, -0.053912, + -0.045870, -0.036636, -0.026509, -0.013999, 0.001489, 0.019361, + 0.036636, 0.051529, 0.064634, 0.075357, 0.082208, 0.085782, + 0.087569, 0.088761, 0.089952, 0.092037, 0.093526, 0.094122, + 0.092633, 0.091144, 0.090250, 0.089356, 0.088165, 0.089654, + 0.093824, 0.101866, 0.112291, 0.122716, 0.131652, 0.139992, + 0.147736, 0.154587, 0.158756, 0.160841, 0.165011, 0.170671, + 0.177819, 0.182585, 0.186159, 0.187351, 0.189138, 0.191223, + 0.193010, 0.192116, 0.192116, 0.195095, 0.199860, 0.202839, + 0.204328, 0.205222, 0.207605, 0.210881, 0.215349, 0.221306, + 0.230539, 0.241858, 0.255559, 0.268367, 0.278196, 0.285643, + 0.291898, 0.296067, 0.298450, 0.298450, 0.297855, 0.298152, + 0.298450, 0.297855, 0.295770, 0.293089, 0.291302, 0.289813, + 0.288323, 0.286238, 0.285345, 0.285643, 0.286238, 0.287430, + 0.287430, 0.287132, 0.286834, 0.287430, 0.286834, 0.285643, + 0.285047, 0.285345, 0.285047, 0.284451, 0.282366, 0.279388, + 0.275515, 0.271048, 0.265984, 0.259729, 0.254070, 0.248113, + 0.242454, 0.235603, 0.228454, 0.222200, 0.217732, 0.213860, + 0.211775, 0.210881, 0.212966, 0.216242, 0.219221, 0.221306, + 0.221902, 0.222497, 0.222795, 0.221604, 0.219519, 0.217136, + 0.215945, 0.215349, 0.213562, 0.210583, 0.208200, 0.205222, + 0.201945, 0.198371, 0.195095, 0.193010, 0.191223, 0.190925, + 0.190925, 0.190925, 0.191223, 0.191223, 0.191520, 0.191223, + 0.191818, 0.192116, 0.192712, 0.193903, 0.197180, 0.200456, + 0.200754, 0.198073, 0.194797, 0.191223, 0.186159, 0.178117, + 0.169777, 0.163522, 0.159650, 0.156076, 0.151906, 0.148629, + 0.145651, 0.144162, 0.142672, 0.140587, 0.139396, 0.139694, + 0.140290, 0.140885, 0.141183, 0.140290, 0.138205, 0.135524, + 0.132247, 0.128673, 0.124801, 0.121227, 0.117355, 0.113483, + 0.108419, 0.102462, 0.097101, 0.091739, 0.086080, 0.081016, + 0.077144, 0.074762, 0.072677, 0.070889, 0.069400, 0.068209, + 0.068209, 0.068507, 0.068804, 0.069698, 0.070294, 0.072081, + 0.072974, 0.072677, 0.070889, 0.067613, 0.064634, 0.061358, + 0.057486, 0.053614, 0.049742, 0.047359, 0.046465, 0.045274, + 0.043785, 0.042891, 0.043189, 0.044976, 0.046167, 0.047657, + 0.049742, 0.053614, 0.057188, 0.060167, 0.061954, 0.064337, + 0.066422, 0.067017, 0.067613, 0.067315, 0.067613, 0.067911, + 0.067315, 0.066124, 0.064634, 0.061656, 0.059273, 0.056592, + 0.055103, 0.052720, 0.051827, 0.051529, 0.052125, 0.052720, + 0.053912, 0.055103, 0.056890, 0.058677, 0.060464, 0.061954, + 0.062847, 0.064337, 0.064337, 0.062549, 0.060167, 0.057188, + 0.054210, 0.050933, 0.047061, 0.044082, 0.041402, 0.039317, + 0.037530, 0.035445, 0.033658, 0.032168, 0.031573, 0.031573, + 0.030679, 0.030977, 0.031275, 0.032764, 0.033658, 0.033955, + 0.033955, 0.033955, 0.033955, 0.033360, 0.031870, 0.030083, + 0.028892, 0.026807, 0.023531, 0.020254, 0.016680, 0.013106, + 0.010127, 0.006255, 0.003872, 0.001787, 0.000596, 0.000000, + -0.000298, -0.000596, -0.000596, 0.000000, 0.000000, 0.000298, + 0.000298, 0.000000, 0.000000, -0.001191, -0.003276, -0.005361, + -0.008042, -0.011021, -0.014297, -0.017573, -0.020552, -0.023233, + -0.026211, -0.028892, -0.031870, -0.034849, -0.037232, -0.039317, + -0.041104, -0.042593, -0.043487, -0.043785, -0.044082, -0.044380, + -0.044082, -0.044678, -0.045274, -0.046465, -0.047657, -0.049742, + -0.052422, -0.055103, -0.058082, -0.061656, -0.065230, -0.068804, + -0.072677, -0.076251, -0.079527, -0.082506, -0.084889, -0.086974, + -0.088463, -0.089654, -0.090548, -0.091144, -0.091739, -0.092335, + -0.093228, -0.094122, -0.095016, -0.096207, -0.097696, -0.099186, + -0.100973, -0.102760, -0.104845, -0.106930, -0.108717, -0.110802, + -0.113185, -0.115270, -0.117653, -0.120035, -0.122120, -0.123908, + -0.125397, -0.126588, -0.126290, -0.126588, -0.125695, -0.125099, + -0.124801, -0.124503, -0.124503, -0.124801, -0.125099, -0.125397, + -0.126290, -0.127780, -0.129269, -0.130758, -0.132545, -0.134928, + -0.137311, -0.139992, -0.142375, -0.144162, -0.145949, -0.147736, + -0.148927, -0.149821, -0.150119, -0.150417, -0.150417, -0.150417, + -0.149821, -0.150119, -0.150417, -0.151012, -0.151906, -0.153693, + -0.155480, -0.156374, -0.158161, -0.161139, -0.163224, -0.163820, + -0.164416, -0.167394, -0.170373, -0.172160, -0.173649, -0.176330, + -0.179011, -0.180798, -0.181393, -0.182287, -0.181691, -0.181691, + -0.181691, -0.181393, -0.181393, -0.181393, -0.183478, -0.186159, + -0.189138, -0.191520, -0.194201, -0.197478, -0.199563, -0.200158, + -0.201052, -0.202243, -0.203435, -0.204924, -0.206711, -0.209094, + -0.211477, -0.213562, -0.215945, -0.216838, -0.218030, -0.219221, + -0.220115, -0.219221, -0.219519, -0.220412, -0.222497, -0.223987, + -0.224284, -0.224582, -0.226369, -0.229348, -0.230539, -0.230242, + -0.229944, -0.231731, -0.234114, -0.235901, -0.237092, -0.238582, + -0.240667, -0.242751, -0.243347, -0.244836, -0.246028, -0.244836, + -0.243943, -0.243645, -0.246028, -0.246921, -0.246326, -0.249006, + -0.253474, -0.257942, -0.260623, -0.262112, -0.263601, -0.266580, + -0.271048, -0.275218, -0.275218, -0.275218, -0.280579, -0.287728, + -0.289813, -0.288323, -0.288919, -0.292195, -0.295174, -0.293982, + -0.292493, -0.293387, -0.296365, -0.299046, -0.300535, -0.301429, + -0.304407, -0.310364, -0.315428, -0.316619, -0.315726, -0.317215, + -0.319896, -0.316322, -0.303812, -0.290408, -0.279685, -0.269558, + -0.255559, -0.238582, -0.221306, -0.204626, -0.187648, -0.169181, + -0.153097, -0.142375, -0.136715, -0.131354, -0.126886, -0.125397, + -0.124205, -0.117950, -0.107228, -0.094718, -0.083101, -0.070592, + -0.058380, -0.047359, -0.037828, -0.028594, -0.017871, -0.007744, + 0.003276, 0.017871, 0.032764, 0.044380, 0.052720, 0.060167, + 0.067911, 0.074166, 0.078038, 0.081314, 0.084889, 0.088761, + 0.090548, 0.089654, 0.085782, 0.083101, 0.081910, 0.081612, + 0.081612, 0.083101, 0.087867, 0.096207, 0.103951, 0.110802, + 0.117355, 0.125099, 0.133737, 0.141183, 0.146842, 0.152204, + 0.157565, 0.161437, 0.162331, 0.162629, 0.164714, 0.168288, + 0.170373, 0.170969, 0.172756, 0.176926, 0.181691, 0.184670, + 0.187351, 0.190627, 0.195690, 0.200754, 0.205520, 0.210881, + 0.216838, 0.223987, 0.230837, 0.238284, 0.246624, 0.255857, + 0.264495, 0.271941, 0.278196, 0.283558, 0.286536, 0.288323, + 0.288323, 0.287430, 0.285345, 0.283558, 0.282366, 0.281175, + 0.280281, 0.279388, 0.279685, 0.281175, 0.282962, 0.285047, + 0.287132, 0.289217, 0.290706, 0.291898, 0.291600, 0.290408, + 0.289217, 0.288025, 0.285940, 0.282068, 0.278494, 0.276409, + 0.274026, 0.269856, 0.264495, 0.259729, 0.255857, 0.252581, + 0.247815, 0.242454, 0.237688, 0.234709, 0.232327, 0.228752, + 0.225178, 0.222795, 0.222200, 0.222200, 0.222200, 0.223093, + 0.224880, 0.227263, 0.228157, 0.227561, 0.225774, 0.224284, + 0.222795, 0.220412, 0.216838, 0.212370, 0.209690, 0.207605, + 0.204626, 0.201052, 0.198073, 0.197478, 0.197775, 0.198073, + 0.198669, 0.200456, 0.202243, 0.204328, 0.204626, 0.204328, + 0.204626, 0.204626, 0.204328, 0.203137, 0.201052, 0.199265, + 0.197478, 0.195393, 0.191223, 0.186755, 0.183181, 0.180500, + 0.176628, 0.173649, 0.173351, 0.175436, 0.174841, 0.170969, + 0.165011, 0.160841, 0.157863, 0.153991, 0.150714, 0.151608, + 0.155182, 0.158161, 0.158756, 0.156672, 0.153693, 0.149225, + 0.143268, 0.136715, 0.131354, 0.127184, 0.123610, 0.118844, + 0.113780, 0.109908, 0.106632, 0.102760, 0.098888, 0.096803, + 0.097398, 0.097696, 0.096803, 0.094718, 0.092037, 0.089059, + 0.086080, 0.083101, 0.081314, 0.080719, 0.080719, 0.079825, + 0.077442, 0.074762, 0.072081, 0.068804, 0.065826, 0.063741, + 0.063145, 0.062847, 0.061358, 0.059571, 0.057188, 0.054210, + 0.051529, 0.048550, 0.047955, 0.049444, 0.052125, 0.054210, + 0.056592, 0.058380, 0.059571, 0.059869, 0.059869, 0.059869, + 0.060762, 0.060167, 0.059571, 0.058380, 0.056592, 0.055103, + 0.053912, 0.053018, 0.053614, 0.055103, 0.056592, 0.057188, + 0.057188, 0.056890, 0.057188, 0.057188, 0.057188, 0.058082, + 0.059571, 0.060464, 0.060762, 0.060464, 0.060167, 0.059869, + 0.058975, 0.058380, 0.057784, 0.057188, 0.056890, 0.054805, + 0.052125, 0.049146, 0.046763, 0.044082, 0.041104, 0.039019, + 0.037530, 0.036338, 0.035147, 0.033360, 0.032466, 0.032168, + 0.032466, 0.032764, 0.033062, 0.033062, 0.032764, 0.031573, + 0.029190, 0.026509, 0.024126, 0.022041, 0.019658, 0.017573, + 0.016084, 0.015191, 0.014297, 0.012808, 0.011318, 0.009829, + 0.008936, 0.007446, 0.006255, 0.005361, 0.005064, 0.004766, + 0.004468, 0.004170, 0.003574, 0.003276, 0.003276, 0.002979, + 0.002085, 0.001489, 0.000596, -0.000298, -0.002085, -0.003872, + -0.006255, -0.008340, -0.010127, -0.011914, -0.013701, -0.015191, + -0.017276, -0.018169, -0.019658, -0.020552, -0.021148, -0.022041, + -0.022637, -0.023233, -0.023828, -0.024722, -0.026211, -0.027700, + -0.029488, -0.031275, -0.033658, -0.036338, -0.038423, -0.040806, + -0.042593, -0.044976, -0.047359, -0.049444, -0.051529, -0.053912, + -0.056295, -0.058380, -0.060167, -0.061954, -0.064039, -0.065826, + -0.067017, -0.067911, -0.068804, -0.069698, -0.070889, -0.072379, + -0.073272, -0.075059, -0.077144, -0.078634, -0.080719, -0.082506, + -0.085186, -0.087569, -0.089952, -0.092335, -0.094122, -0.095909, + -0.097696, -0.098590, -0.099186, -0.099781, -0.100079, -0.099781, + -0.100079, -0.099781, -0.099781, -0.100079, -0.100377, -0.100973, + -0.101271, -0.102760, -0.103951, -0.105441, -0.106334, -0.107228, + -0.108717, -0.109610, -0.111100, -0.111695, -0.113185, -0.114972, + -0.116759, -0.117950, -0.118844, -0.120035, -0.120929, -0.121823, + -0.122120, -0.122418, -0.123610, -0.124801, -0.125992, -0.126886, + -0.127184, -0.128375, -0.129865, -0.130460, -0.131354, -0.132247, + -0.133737, -0.135822, -0.137609, -0.139098, -0.140885, -0.142672, + -0.144162, -0.144757, -0.145949, -0.147140, -0.148629, -0.149523, + -0.149523, -0.149821, -0.150417, -0.150119, -0.149821, -0.149523, + -0.149821, -0.151012, -0.152799, -0.154587, -0.156076, -0.157267, + -0.158161, -0.159352, -0.160544, -0.161139, -0.161735, -0.163522, + -0.166203, -0.168288, -0.169479, -0.170075, -0.172160, -0.173054, + -0.172756, -0.173351, -0.174841, -0.176032, -0.177223, -0.177819, + -0.177819, -0.178415, -0.179606, -0.180202, -0.181393, -0.183478, + -0.186457, -0.190031, -0.192712, -0.195095, -0.196882, -0.198967, + -0.200754, -0.201945, -0.202541, -0.203733, -0.205520, -0.206711, + -0.206115, -0.204626, -0.204328, -0.206115, -0.207605, -0.207307, + -0.206413, -0.208498, -0.213264, -0.216242, -0.215051, -0.212370, + -0.212370, -0.216242, -0.219519, -0.219221, -0.218923, -0.223093, + -0.228157, -0.230242, -0.228752, -0.227859, -0.229050, -0.230242, + -0.230837, -0.229944, -0.228454, -0.229050, -0.229348, -0.230242, + -0.229646, -0.230837, -0.233518, -0.236497, -0.239773, -0.242454, + -0.245730, -0.249006, -0.253176, -0.254666, -0.253772, -0.252283, + -0.254070, -0.257644, -0.259431, -0.258836, -0.259729, -0.263899, + -0.268069, -0.268367, -0.266878, -0.269856, -0.275515, -0.278792, + -0.277005, -0.275218, -0.276111, -0.276111, -0.269856, -0.255857, + -0.238879, -0.225178, -0.215647, -0.205222, -0.193010, -0.182883, + -0.176926, -0.170075, -0.158756, -0.144459, -0.132545, -0.123312, + -0.115865, -0.108121, -0.101568, -0.099186, -0.100079, -0.096505, + -0.085782, -0.071485, -0.057486, -0.045870, -0.033062, -0.017573, + -0.003574, 0.002979, 0.006255, 0.012212, 0.024126, 0.036934, + 0.045572, 0.050635, 0.056295, 0.064039, 0.069400, 0.070294, + 0.068804, 0.068804, 0.072081, 0.073868, 0.074166, 0.075357, + 0.078634, 0.083101, 0.086676, 0.088761, 0.090548, 0.095909, + 0.103653, 0.110802, 0.115270, 0.118546, 0.124205, 0.130758, + 0.136120, 0.138205, 0.138502, 0.141481, 0.146247, 0.150119, + 0.151012, 0.151608, 0.154289, 0.159054, 0.161139, 0.160544, + 0.161139, 0.166203, 0.173649, 0.178713, 0.182287, 0.188244, + 0.196286, 0.203435, 0.207009, 0.209094, 0.213264, 0.219817, + 0.226667, 0.232327, 0.237986, 0.244836, 0.251389, 0.255559, + 0.256155, 0.254964, 0.255559, 0.257049, 0.257049, 0.256751, + 0.255857, 0.257942, 0.260325, 0.261516, 0.260921, 0.260325, + 0.262112, 0.265091, 0.267473, 0.268069, 0.268963, 0.270452, + 0.271643, 0.271346, 0.268665, 0.265388, 0.263006, 0.260325, + 0.256155, 0.251389, 0.247219, 0.244241, 0.241262, 0.237092, + 0.233220, 0.230539, 0.228752, 0.226965, 0.223391, 0.220710, + 0.219817, 0.219519, 0.218327, 0.216242, 0.213860, 0.212668, + 0.212072, 0.210881, 0.209690, 0.208498, 0.207903, 0.207307, + 0.206115, 0.203137, 0.200754, 0.197775, 0.194797, 0.191520, + 0.189138, 0.187946, 0.187946, 0.187946, 0.187648, 0.187648, + 0.187946, 0.188244, 0.188244, 0.188840, 0.189138, 0.190627, + 0.191223, 0.191520, 0.190925, 0.189138, 0.186457, 0.183776, + 0.180500, 0.177521, 0.175436, 0.172756, 0.170671, 0.169181, + 0.170373, 0.173054, 0.174543, 0.171862, 0.167096, 0.163522, + 0.160544, 0.156672, 0.151310, 0.149523, 0.150417, 0.152502, + 0.152799, 0.150119, 0.147736, 0.144459, 0.140587, 0.135524, + 0.131354, 0.128375, 0.125992, 0.122120, 0.118248, 0.114078, + 0.110802, 0.106036, 0.101568, 0.098888, 0.098888, 0.098590, + 0.097398, 0.094718, 0.092037, 0.089654, 0.086080, 0.082208, + 0.079825, 0.078634, 0.077740, 0.075059, 0.071485, 0.067911, + 0.064337, 0.060762, 0.057486, 0.055699, 0.055699, 0.056295, + 0.056295, 0.055401, 0.053912, 0.052125, 0.049742, 0.046763, + 0.044380, 0.043785, 0.044082, 0.044082, 0.043487, 0.042891, + 0.043785, 0.044082, 0.044380, 0.043487, 0.042593, 0.042295, + 0.041700, 0.039615, 0.037828, 0.036040, 0.036040, 0.036338, + 0.038125, 0.039317, 0.040210, 0.040806, 0.041104, 0.041104, + 0.041402, 0.041104, 0.041700, 0.042891, 0.044082, 0.044678, + 0.043785, 0.042295, 0.041104, 0.040210, 0.039317, 0.038125, + 0.037828, 0.038721, 0.039019, 0.039019, 0.037828, 0.036636, + 0.036636, 0.036338, 0.035743, 0.034551, 0.033955, 0.033360, + 0.032466, 0.030381, 0.028594, 0.027700, 0.027700, 0.027700, + 0.027105, 0.026509, 0.026509, 0.025913, 0.023531, 0.020254, + 0.017871, 0.016382, 0.015488, 0.013701, 0.012808, 0.012510, + 0.013106, 0.013106, 0.012510, 0.011914, 0.011616, 0.011021, + 0.010127, 0.008936, 0.008042, 0.007744, 0.007446, 0.006851, + 0.005659, 0.004468, 0.003276, 0.002085, 0.000894, -0.000298, + -0.001191, -0.002085, -0.003276, -0.003574, -0.004468, -0.004766, + -0.005957, -0.006553, -0.007744, -0.008936, -0.010127, -0.011914, + -0.013106, -0.013701, -0.014595, -0.015488, -0.016382, -0.016978, + -0.017871, -0.019063, -0.020254, -0.022339, -0.023828, -0.025913, + -0.027998, -0.030381, -0.032168, -0.033658, -0.034551, -0.035743, + -0.036934, -0.037828, -0.038721, -0.039615, -0.040508, -0.042295, + -0.043487, -0.045572, -0.047359, -0.048550, -0.050635, -0.051827, + -0.053614, -0.054805, -0.056592, -0.058380, -0.060464, -0.061954, + -0.064337, -0.066124, -0.067613, -0.069102, -0.070294, -0.071783, + -0.073272, -0.074762, -0.076251, -0.077740, -0.079229, -0.080421, + -0.081612, -0.082804, -0.083399, -0.084591, -0.085186, -0.085484, + -0.086676, -0.087271, -0.088463, -0.088761, -0.090250, -0.092037, + -0.094122, -0.095016, -0.095611, -0.096207, -0.096803, -0.097101, + -0.096505, -0.096207, -0.096207, -0.096803, -0.096803, -0.096505, + -0.096505, -0.096505, -0.097101, -0.097101, -0.098292, -0.099186, + -0.100079, -0.100377, -0.101271, -0.102164, -0.102462, -0.103356, + -0.103951, -0.105441, -0.107228, -0.108717, -0.109908, -0.111100, + -0.111695, -0.112589, -0.112887, -0.113483, -0.114078, -0.115270, + -0.116163, -0.117355, -0.117950, -0.117950, -0.118844, -0.119440, + -0.120929, -0.121823, -0.122716, -0.123908, -0.125397, -0.126886, + -0.127482, -0.127482, -0.128077, -0.129865, -0.130758, -0.130460, + -0.130460, -0.130758, -0.131354, -0.131056, -0.130758, -0.130758, + -0.131950, -0.133141, -0.134332, -0.134630, -0.135524, -0.136715, + -0.137609, -0.138502, -0.139396, -0.140885, -0.142077, -0.142375, + -0.142672, -0.143268, -0.144757, -0.145651, -0.147438, -0.149821, + -0.152204, -0.153693, -0.154884, -0.155778, -0.156374, -0.156076, + -0.155480, -0.156076, -0.158161, -0.159948, -0.160246, -0.159948, + -0.160544, -0.161437, -0.161437, -0.161735, -0.163820, -0.166799, + -0.168586, -0.169479, -0.170373, -0.171862, -0.173947, -0.173351, + -0.173947, -0.176628, -0.179308, -0.180202, -0.179308, -0.180500, + -0.181691, -0.180798, -0.177223, -0.175139, -0.177223, -0.180202, + -0.181691, -0.179308, -0.177819, -0.180202, -0.183181, -0.182883, + -0.180798, -0.181989, -0.187351, -0.191520, -0.191818, -0.190627, + -0.191223, -0.193010, -0.194797, -0.195988, -0.196882, -0.198073, + -0.200158, -0.202839, -0.204626, -0.204030, -0.202541, -0.202541, + -0.204030, -0.204924, -0.204626, -0.205520, -0.207903, -0.211179, + -0.213562, -0.213860, -0.214455, -0.216838, -0.220412, -0.223391, + -0.223689, -0.223689, -0.225178, -0.226965, -0.227859, -0.228157, + -0.229646, -0.232922, -0.235305, -0.236199, -0.235901, -0.232624, + -0.225476, -0.214455, -0.202541, -0.190031, -0.177819, -0.166799, + -0.156672, -0.148629, -0.141481, -0.132843, -0.121823, -0.110802, + -0.101866, -0.094122, -0.088463, -0.085782, -0.084591, -0.081910, + -0.077144, -0.071187, -0.063741, -0.053316, -0.040210, -0.026807, + -0.016084, -0.008042, 0.000894, 0.011318, 0.020552, 0.027105, + 0.034253, 0.043785, 0.053316, 0.060167, 0.064337, 0.066422, + 0.066124, 0.066422, 0.067315, 0.069400, 0.071485, 0.072379, + 0.072974, 0.073868, 0.076251, 0.077442, 0.078634, 0.079825, + 0.083101, 0.088165, 0.094718, 0.101866, 0.107823, 0.112291, + 0.117950, 0.122716, 0.126588, 0.128673, 0.130162, 0.131652, + 0.134630, 0.137609, 0.140290, 0.140587, 0.140885, 0.142672, + 0.145353, 0.147736, 0.149821, 0.152799, 0.157565, 0.164118, + 0.170671, 0.175436, 0.181393, 0.188542, 0.195095, 0.200158, + 0.204328, 0.209392, 0.215051, 0.220412, 0.225178, 0.228454, + 0.231433, 0.234114, 0.235901, 0.236199, 0.235901, 0.235603, + 0.236497, 0.237688, 0.239177, 0.239773, 0.240369, 0.241262, + 0.242751, 0.243645, 0.244241, 0.246624, 0.249304, 0.251985, + 0.253176, 0.253772, 0.253474, 0.252581, 0.250198, 0.246028, + 0.241560, 0.238284, 0.235305, 0.231135, 0.226965, 0.223093, + 0.219221, 0.215647, 0.211775, 0.208498, 0.205520, 0.204626, + 0.204030, 0.203435, 0.203137, 0.203435, 0.203137, 0.202243, + 0.200456, 0.198371, 0.195393, 0.193605, 0.191818, 0.190031, + 0.188542, 0.186755, 0.184968, 0.182883, 0.181096, 0.178713, + 0.176330, 0.174245, 0.172756, 0.171862, 0.171266, 0.170671, + 0.170373, 0.171266, 0.171862, 0.173054, 0.174245, 0.174841, + 0.175436, 0.176032, 0.176330, 0.175139, 0.173649, 0.171266, + 0.169479, 0.167394, 0.163820, 0.161139, 0.159054, 0.156672, + 0.154289, 0.152204, 0.152204, 0.154587, 0.157267, 0.157267, + 0.154884, 0.152502, 0.149821, 0.147140, 0.142970, 0.139098, + 0.137609, 0.137311, 0.135822, 0.132545, 0.128673, 0.125397, + 0.121525, 0.117355, 0.113483, 0.111398, 0.109313, 0.106930, + 0.103653, 0.100377, 0.097101, 0.093824, 0.090250, 0.087569, + 0.086676, 0.086378, 0.085782, 0.083995, 0.081612, 0.079229, + 0.076251, 0.072379, 0.069996, 0.068507, 0.067017, 0.064634, + 0.060762, 0.057188, 0.053912, 0.050337, 0.047359, 0.045572, + 0.044976, 0.045274, 0.046167, 0.045870, 0.045274, 0.044380, + 0.043189, 0.041700, 0.039615, 0.038423, 0.037530, 0.037232, + 0.035743, 0.034551, 0.033360, 0.032764, 0.032168, 0.031275, + 0.030977, 0.030679, 0.029785, 0.028296, 0.026509, 0.025615, + 0.024722, 0.024424, 0.024424, 0.024722, 0.026509, 0.027403, + 0.027700, 0.027403, 0.027700, 0.028892, 0.029488, 0.029785, + 0.030083, 0.030977, 0.031870, 0.030381, 0.028892, 0.027998, + 0.027998, 0.027105, 0.025615, 0.024126, 0.024126, 0.023828, + 0.023233, 0.022041, 0.021743, 0.022339, 0.022935, 0.022935, + 0.022637, 0.022637, 0.022339, 0.021743, 0.020850, 0.019361, + 0.018467, 0.017573, 0.016978, 0.016084, 0.015191, 0.014297, + 0.013106, 0.011318, 0.009829, 0.008042, 0.006553, 0.005361, + 0.004468, 0.003872, 0.003872, 0.003872, 0.003872, 0.004170, + 0.003872, 0.003872, 0.002979, 0.002383, 0.001787, 0.001191, + 0.001191, 0.000000, -0.000596, -0.001489, -0.002681, -0.003872, + -0.005659, -0.006851, -0.007744, -0.008340, -0.009233, -0.009531, + -0.009829, -0.009531, -0.009531, -0.009829, -0.009531, -0.009233, + -0.008936, -0.009233, -0.010127, -0.011021, -0.011318, -0.012212, + -0.013403, -0.013999, -0.014893, -0.015191, -0.016382, -0.017871, + -0.019063, -0.020552, -0.021743, -0.023233, -0.024722, -0.025615, + -0.026509, -0.026807, -0.027105, -0.027998, -0.028296, -0.028296, + -0.029190, -0.030083, -0.030679, -0.032466, -0.033955, -0.035743, + -0.037828, -0.039913, -0.041700, -0.043785, -0.045274, -0.047061, + -0.048550, -0.050040, -0.052125, -0.054210, -0.055997, -0.057188, + -0.058380, -0.058975, -0.060464, -0.061060, -0.062252, -0.062847, + -0.064039, -0.064932, -0.065826, -0.067017, -0.067911, -0.069102, + -0.069698, -0.070889, -0.071783, -0.073272, -0.074464, -0.075655, + -0.076549, -0.078038, -0.078634, -0.079825, -0.080421, -0.081016, + -0.081314, -0.081910, -0.081612, -0.081612, -0.081314, -0.081314, + -0.081612, -0.081314, -0.081910, -0.081910, -0.082506, -0.083101, + -0.083399, -0.083399, -0.083697, -0.084293, -0.084889, -0.085186, + -0.085484, -0.086676, -0.087867, -0.088463, -0.088761, -0.089654, + -0.090846, -0.091739, -0.092037, -0.091144, -0.091739, -0.092633, + -0.092931, -0.092633, -0.092633, -0.093228, -0.094718, -0.095611, + -0.096505, -0.097696, -0.099186, -0.100973, -0.102760, -0.104249, + -0.105441, -0.106334, -0.107526, -0.108419, -0.109313, -0.109610, + -0.109908, -0.109908, -0.110504, -0.111100, -0.111100, -0.111100, + -0.111695, -0.112887, -0.113780, -0.114376, -0.114674, -0.115568, + -0.116461, -0.117057, -0.117057, -0.117355, -0.118248, -0.119738, + -0.120631, -0.121227, -0.121823, -0.122418, -0.123908, -0.123610, + -0.123312, -0.123014, -0.123908, -0.124205, -0.123908, -0.123312, + -0.123610, -0.123908, -0.125397, -0.126290, -0.127184, -0.127482, + -0.128375, -0.129269, -0.129567, -0.129567, -0.129567, -0.130460, + -0.132247, -0.133439, -0.134035, -0.134630, -0.135822, -0.136120, + -0.135524, -0.134332, -0.133737, -0.133141, -0.134035, -0.134332, + -0.134332, -0.134630, -0.136417, -0.138502, -0.140885, -0.141779, + -0.142375, -0.143268, -0.144459, -0.145055, -0.144459, -0.144162, + -0.144459, -0.145055, -0.145353, -0.145353, -0.145353, -0.145353, + -0.146247, -0.147140, -0.147736, -0.147140, -0.147140, -0.147736, + -0.148629, -0.148034, -0.147140, -0.146842, -0.148927, -0.151608, + -0.151608, -0.150714, -0.151608, -0.153991, -0.154884, -0.152502, + -0.150119, -0.149821, -0.151608, -0.151906, -0.150119, -0.148034, + -0.147736, -0.148034, -0.146544, -0.143864, -0.142077, -0.142375, + -0.144459, -0.146247, -0.146842, -0.148034, -0.149523, -0.151012, + -0.151310, -0.150119, -0.150714, -0.151608, -0.151012, -0.149821, + -0.150119, -0.150417, -0.150119, -0.149821, -0.150714, -0.151310, + -0.152204, -0.153097, -0.153991, -0.154587, -0.155182, -0.155182, + -0.155480, -0.156374, -0.156076, -0.154587, -0.151310, -0.148332, + -0.144162, -0.137609, -0.128971, -0.120929, -0.114972, -0.110802, + -0.105441, -0.098292, -0.090250, -0.082506, -0.073570, -0.063443, + -0.055103, -0.050337, -0.048550, -0.047657, -0.046465, -0.044678, + -0.040508, -0.033658, -0.024126, -0.013106, -0.002681, 0.005064, + 0.011318, 0.015786, 0.019063, 0.021743, 0.025913, 0.032168, + 0.040210, 0.047955, 0.055103, 0.060762, 0.064932, 0.067613, + 0.068804, 0.069996, 0.071485, 0.072974, 0.075059, 0.076251, + 0.076846, 0.077442, 0.078634, 0.081612, 0.085186, 0.089654, + 0.094420, 0.099781, 0.104249, 0.108121, 0.111398, 0.113780, + 0.115270, 0.118546, 0.121823, 0.125695, 0.128971, 0.131950, + 0.134332, 0.136120, 0.135226, 0.134035, 0.133737, 0.135226, + 0.137311, 0.139396, 0.142970, 0.148332, 0.153991, 0.159352, + 0.162331, 0.165607, 0.169479, 0.173351, 0.176628, 0.179011, + 0.182287, 0.186755, 0.191520, 0.195690, 0.198371, 0.201350, + 0.203733, 0.204626, 0.204030, 0.203435, 0.202243, 0.202839, + 0.204030, 0.204924, 0.206413, 0.208498, 0.211179, 0.212966, + 0.213860, 0.214455, 0.214753, 0.216242, 0.216540, 0.216242, + 0.215349, 0.215051, 0.215051, 0.213860, 0.211775, 0.208796, + 0.206711, 0.204924, 0.202243, 0.198669, 0.194797, 0.191818, + 0.189138, 0.187053, 0.184670, 0.183181, 0.182883, 0.182585, + 0.182883, 0.181989, 0.180500, 0.179011, 0.177223, 0.175734, + 0.173351, 0.171564, 0.170373, 0.170373, 0.169479, 0.168586, + 0.166501, 0.164714, 0.162629, 0.159352, 0.156672, 0.153395, + 0.152204, 0.151310, 0.151012, 0.150714, 0.150417, 0.151012, + 0.151310, 0.150714, 0.149821, 0.148927, 0.148927, 0.148034, + 0.147438, 0.146247, 0.144757, 0.143864, 0.142077, 0.139992, + 0.137311, 0.135226, 0.132545, 0.129269, 0.126290, 0.123312, + 0.121525, 0.119142, 0.117355, 0.115568, 0.113185, 0.111695, + 0.110206, 0.108419, 0.106036, 0.103653, 0.101271, 0.098888, + 0.096207, 0.093228, 0.090250, 0.087569, 0.086378, 0.085782, + 0.086378, 0.086974, 0.085782, 0.083101, 0.079527, 0.075953, + 0.072081, 0.067613, 0.064634, 0.063145, 0.063145, 0.062252, + 0.061060, 0.058975, 0.057188, 0.054805, 0.052720, 0.050933, + 0.050337, 0.049742, 0.048848, 0.047359, 0.046465, 0.045274, + 0.042891, 0.039913, 0.037530, 0.036338, 0.035743, 0.034253, + 0.032168, 0.030083, 0.028296, 0.026211, 0.023531, 0.021743, + 0.021743, 0.021446, 0.020552, 0.018765, 0.017276, 0.016084, + 0.014595, 0.013106, 0.011914, 0.011914, 0.013106, 0.013999, + 0.013403, 0.012808, 0.012212, 0.011616, 0.009829, 0.007446, + 0.005957, 0.005064, 0.004468, 0.003574, 0.002979, 0.003276, + 0.005064, 0.005957, 0.006553, 0.006851, 0.007446, 0.008340, + 0.008042, 0.007744, 0.007744, 0.008340, 0.008936, 0.009531, + 0.010425, 0.010723, 0.011318, 0.010723, 0.010723, 0.010425, + 0.010723, 0.011021, 0.011914, 0.013403, 0.014297, 0.015488, + 0.014893, 0.014893, 0.014893, 0.015191, 0.014595, 0.014297, + 0.013999, 0.014893, 0.015786, 0.015488, 0.014893, 0.014893, + 0.015786, 0.015786, 0.015191, 0.013701, 0.013106, 0.011914, + 0.010723, 0.008936, 0.007149, 0.006255, 0.005957, 0.005659, + 0.005064, 0.005064, 0.005957, 0.005957, 0.005064, 0.003872, + 0.003276, 0.003276, 0.002979, 0.002383, 0.001787, 0.002085, + 0.002383, 0.001787, 0.000596, 0.000000, -0.000298, -0.000596, + -0.001191, -0.001489, -0.001787, -0.001191, -0.001191, -0.001489, + -0.001489, -0.001489, -0.001489, -0.002085, -0.002085, -0.002383, + -0.002383, -0.002681, -0.002085, -0.001787, -0.001489, -0.001787, + -0.002085, -0.002383, -0.002979, -0.003276, -0.005064, -0.006851, + -0.008042, -0.008936, -0.009829, -0.010723, -0.011616, -0.011914, + -0.011914, -0.012808, -0.013106, -0.013999, -0.014297, -0.014893, + -0.016084, -0.017573, -0.019063, -0.019956, -0.021446, -0.022935, + -0.024424, -0.025615, -0.026807, -0.027403, -0.029190, -0.030381, + -0.031573, -0.032466, -0.033658, -0.034849, -0.035743, -0.036636, + -0.037530, -0.038423, -0.039615, -0.040508, -0.041402, -0.042295, + -0.043189, -0.043785, -0.044380, -0.044976, -0.045572, -0.046465, + -0.047359, -0.048848, -0.049742, -0.050933, -0.051827, -0.053316, + -0.054507, -0.055401, -0.055997, -0.056592, -0.057188, -0.057486, + -0.057188, -0.057188, -0.057188, -0.057486, -0.058082, -0.058677, + -0.059273, -0.060167, -0.061358, -0.062252, -0.063145, -0.063741, + -0.064337, -0.065528, -0.066124, -0.067017, -0.067613, -0.068804, + -0.069400, -0.069996, -0.070294, -0.070592, -0.070889, -0.070889, + -0.071187, -0.071485, -0.072081, -0.072379, -0.072974, -0.073570, + -0.074464, -0.075357, -0.075953, -0.076846, -0.078038, -0.078931, + -0.079825, -0.080719, -0.081314, -0.082506, -0.083399, -0.084293, + -0.084889, -0.086080, -0.087569, -0.088165, -0.087867, -0.088165, + -0.088463, -0.089059, -0.089654, -0.089356, -0.090250, -0.091441, + -0.092931, -0.093824, -0.094420, -0.095313, -0.096207, -0.097696, + -0.098888, -0.100377, -0.101271, -0.102164, -0.102760, -0.103951, + -0.104249, -0.104249, -0.103951, -0.103951, -0.104845, -0.105738, + -0.105738, -0.105738, -0.106334, -0.107823, -0.108717, -0.108419, + -0.109015, -0.109908, -0.111100, -0.111100, -0.110802, -0.110504, + -0.111100, -0.111695, -0.112291, -0.113185, -0.114376, -0.114674, + -0.114674, -0.114674, -0.114972, -0.114972, -0.114674, -0.113780, + -0.113780, -0.114078, -0.114674, -0.115270, -0.116461, -0.116759, + -0.117355, -0.118844, -0.119738, -0.120333, -0.120631, -0.121525, + -0.122716, -0.123610, -0.124205, -0.123312, -0.122418, -0.121525, + -0.122120, -0.122418, -0.121823, -0.120333, -0.120929, -0.123312, + -0.124503, -0.123610, -0.121525, -0.121227, -0.122418, -0.123312, + -0.122120, -0.120929, -0.120929, -0.122120, -0.123014, -0.122120, + -0.120631, -0.120631, -0.122418, -0.123908, -0.124503, -0.123908, + -0.124503, -0.124205, -0.123908, -0.121823, -0.120035, -0.118546, + -0.117355, -0.116461, -0.115568, -0.115270, -0.115270, -0.115865, + -0.114674, -0.113780, -0.114376, -0.117057, -0.119142, -0.119440, + -0.119142, -0.120929, -0.122120, -0.121227, -0.118546, -0.117355, + -0.116759, -0.115568, -0.113780, -0.113185, -0.113185, -0.113185, + -0.111993, -0.111398, -0.111100, -0.111100, -0.110802, -0.109610, + -0.109908, -0.111398, -0.112589, -0.111695, -0.110206, -0.110802, + -0.112291, -0.111993, -0.109015, -0.105143, -0.103058, -0.101271, + -0.096505, -0.090548, -0.086676, -0.085186, -0.084591, -0.080719, + -0.076251, -0.072379, -0.068804, -0.063443, -0.056592, -0.048252, + -0.040210, -0.034253, -0.030381, -0.027403, -0.024722, -0.022637, + -0.022339, -0.021446, -0.018765, -0.013701, -0.006553, 0.001191, + 0.008340, 0.015191, 0.020850, 0.026509, 0.031573, 0.034849, + 0.036636, 0.038125, 0.041104, 0.045572, 0.051231, 0.055997, + 0.061060, 0.066124, 0.070294, 0.073570, 0.074762, 0.074762, + 0.074762, 0.074762, 0.075059, 0.075953, 0.078634, 0.082208, + 0.084591, 0.086378, 0.088463, 0.092037, 0.095313, 0.097101, + 0.098590, 0.102164, 0.107228, 0.112589, 0.116163, 0.118844, + 0.122120, 0.125099, 0.126588, 0.126886, 0.126290, 0.125992, + 0.126290, 0.126588, 0.126886, 0.128077, 0.131056, 0.135524, + 0.140587, 0.145949, 0.150714, 0.155778, 0.158756, 0.161437, + 0.162926, 0.164416, 0.165011, 0.166501, 0.169777, 0.172756, + 0.175734, 0.177223, 0.179011, 0.179904, 0.180202, 0.179011, + 0.178415, 0.177819, 0.178117, 0.178713, 0.179606, 0.180202, + 0.181393, 0.182287, 0.183478, 0.183776, 0.183478, 0.183776, + 0.184074, 0.184372, 0.184372, 0.184074, 0.184074, 0.183181, + 0.182287, 0.180500, 0.178415, 0.175734, 0.172458, 0.169181, + 0.165905, 0.163522, 0.160841, 0.159352, 0.157863, 0.157863, + 0.157863, 0.158756, 0.158161, 0.157863, 0.156969, 0.156374, + 0.154587, 0.152799, 0.151012, 0.149821, 0.148629, 0.147438, + 0.146247, 0.145055, 0.143864, 0.141779, 0.139992, 0.137907, + 0.135822, 0.133737, 0.131354, 0.129865, 0.128673, 0.128077, + 0.127482, 0.127482, 0.126886, 0.126588, 0.125992, 0.125099, + 0.124205, 0.123610, 0.122716, 0.123014, 0.121525, 0.120333, + 0.118546, 0.117057, 0.114674, 0.111993, 0.108981, 0.105376, + 0.102963, 0.099956, 0.098141, 0.096327, 0.095109, 0.093594, + 0.092971, 0.092349, 0.091430, 0.090511, 0.089000, 0.087787, + 0.085981, 0.084176, 0.081779, 0.079385, 0.076991, 0.074303, + 0.072209, 0.069820, 0.067432, 0.065046, 0.062957, 0.060574, + 0.057896, 0.054630, 0.052547, 0.050465, 0.049269, 0.047779, + 0.046585, 0.045981, 0.045377, 0.045069, 0.044171, 0.042391, + 0.041495, 0.040306, 0.039411, 0.037929, 0.036153, 0.034085, + 0.032606, 0.031127, 0.028769, 0.026412, 0.024057, 0.022290, + 0.020524, 0.019052, 0.017288, 0.016111, 0.015520, 0.015223, + 0.015218, 0.014920, 0.014916, 0.014911, 0.014907, 0.014025, + 0.012852, 0.011388, 0.010217, 0.009047, 0.007877, 0.006125, + 0.005248, 0.004080, 0.003496, 0.002039, 0.001165, 0.000000, + -0.000873, -0.001745, -0.002327, -0.003198, -0.003197, -0.003196, + -0.002324, -0.002033, -0.001742, -0.000580, 0.000000, 0.000000, + 0.000290, 0.000000, -0.000290, -0.000579, -0.000579, -0.000868, + -0.001447, -0.001446, -0.000868, -0.000289, -0.000289, -0.000578, + -0.000866, -0.000577, 0.000000, 0.000000, 0.000288, 0.000288, + 0.001730, 0.002882, 0.003169, 0.003168, 0.003455, 0.004317, + 0.004028, 0.004027, 0.003738, 0.003737, 0.003736, 0.003447, + 0.002297, 0.001722, 0.001148, 0.001148, 0.000860, 0.000000, + -0.000860, -0.001433, -0.001432, -0.002004, -0.002863, -0.003720, + -0.003433, -0.003146, -0.002859, -0.003430, -0.003429, -0.003427, + -0.003712, -0.003996, -0.004851, -0.005705, -0.005703, -0.006272, + -0.007124, -0.007692, -0.007974, -0.007972, -0.008254, -0.008536, + -0.008817, -0.008815, -0.008812, -0.008809, -0.008806, -0.008519, + -0.008233, -0.008230, -0.007376, -0.007374, -0.007371, -0.007086, + -0.007083, -0.007364, -0.007645, -0.008209, -0.008489, -0.008486, + -0.009049, -0.009329, -0.009609, -0.010171, -0.010450, -0.010729, + -0.011290, -0.012132, -0.012128, -0.012688, -0.012403, -0.012962, + -0.013521, -0.014080, -0.013794, -0.014071, -0.014910, -0.015749, + -0.016588, -0.017144, -0.018263, -0.019380, -0.020497, -0.021613, + -0.022448, -0.023843, -0.024676, -0.025790, -0.026622, -0.027454, + -0.028005, -0.028836, -0.029946, -0.030495, -0.031325, -0.031874, + -0.032702, -0.033250, -0.033798, -0.034345, -0.034892, -0.035439, + -0.036264, -0.036810, -0.037355, -0.038179, -0.038724, -0.039268, + -0.040090, -0.040077, -0.040621, -0.040885, -0.041706, -0.042248, + -0.042512, -0.043054, -0.043040, -0.043581, -0.043566, -0.043275, + -0.042983, -0.042969, -0.043232, -0.042941, -0.042926, -0.042635, + -0.043452, -0.043991, -0.044529, -0.044791, -0.045329, -0.045867, + -0.046128, -0.046665, -0.047201, -0.047186, -0.047998, -0.048258, + -0.049069, -0.049603, -0.049587, -0.050397, -0.050380, -0.050914, + -0.051172, -0.051705, -0.051688, -0.052495, -0.052753, -0.053010, + -0.053267, -0.053798, -0.054603, -0.055134, -0.055664, -0.056193, + -0.057271, -0.057799, -0.058328, -0.058856, -0.059657, -0.060185, + -0.060438, -0.060691, -0.061217, -0.062017, -0.061996, -0.061975, + -0.061954, -0.062206, -0.062186, -0.062438, -0.062689, -0.063213, + -0.063192, -0.063715, -0.064511, -0.064761, -0.065283, -0.065805, + -0.066055, -0.066305, -0.066554, -0.066803, -0.067052, -0.067572, + -0.067821, -0.068340, -0.068317, -0.068836, -0.069626, -0.070144, + -0.070391, -0.070909, -0.071155, -0.071402, -0.071378, -0.071894, + -0.071870, -0.072116, -0.072631, -0.072607, -0.072852, -0.072827, + -0.073342, -0.073587, -0.073831, -0.074076, -0.074589, -0.075102, + -0.075346, -0.075589, -0.075563, -0.075538, -0.075781, -0.075755, + -0.075998, -0.075704, -0.075946, -0.075920, -0.075895, -0.075869, + -0.075039, -0.074745, -0.074184, -0.073891, -0.073331, -0.072503, + -0.072211, -0.071919, -0.071627, -0.071336, -0.070510, -0.070486, + -0.070462, -0.070171, -0.070147, -0.070656, -0.070898, -0.071140, + -0.071382, -0.071624, -0.071866, -0.072107, -0.072083, -0.071526, + -0.070970, -0.070680, -0.070655, -0.070631, -0.070076, -0.069787, + -0.070028, -0.070269, -0.070510, -0.069955, -0.069666, -0.069378, + -0.069618, -0.069859, -0.069306, -0.069282, -0.068729, -0.068970, + -0.068946, -0.068394, -0.068106, -0.067819, -0.067796, -0.067245, + -0.066431, -0.065090, -0.064014, -0.063465, -0.062916, -0.061315, + -0.060768, -0.059958, -0.059411, -0.058340, -0.057531, -0.056986, + -0.056704, -0.055897, -0.054828, -0.054284, -0.053479, -0.052936, + -0.052132, -0.051590, -0.050787, -0.049984, -0.049182, -0.048380, + -0.047317, -0.045994, -0.044933, -0.043612, -0.042552, -0.041493, + -0.040175, -0.038596, -0.037800, -0.036484, -0.035169, -0.033854, + -0.032801, -0.032269, -0.032258, -0.031986, -0.032235, -0.031704, + -0.031693, -0.031422, -0.030892, -0.030621, -0.029832, -0.029044, + -0.027997, -0.026173, -0.024350, -0.022788, -0.021227, -0.019926, + -0.019142, -0.018101, -0.017578, -0.017055, -0.016791, -0.016268, + -0.014972, -0.013676, -0.012898, -0.011862, -0.010569, -0.009276, + -0.007985, -0.007725, -0.006178, -0.003345, -0.000514, 0.001543, + 0.002570, 0.004625, 0.006935, 0.008730, 0.009497, 0.010520, + 0.012312, 0.014358, 0.016404, 0.018448, 0.021002, 0.023555, + 0.025594, 0.027120, 0.028389, 0.029913, 0.031436, 0.032958, + 0.033712, 0.034977, 0.036751, 0.038778, 0.040550, 0.041810, + 0.043324, 0.045601, 0.047877, 0.050151, 0.052169, 0.054440, + 0.056200, 0.058468, 0.059972, 0.061220, 0.062468, 0.062953, + 0.063945, 0.065191, 0.066435, 0.067425, 0.068668, 0.070416, + 0.071150, 0.072390, 0.073376, 0.074867, 0.076104, 0.077593, + 0.078829, 0.080316, 0.081801, 0.083286, 0.084770, 0.085496, + 0.086977, 0.088458, 0.090189, 0.092171, 0.093900, 0.094621, + 0.096096, 0.097067, 0.098037, 0.098002, 0.098217, 0.098433, + 0.098648, 0.099365, 0.100081, 0.101048, 0.101763, 0.103480, + 0.104945, 0.106409, 0.107371, 0.108583, 0.109794, 0.111004, + 0.111463, 0.112172, 0.112880, 0.113587, 0.113546, 0.113255, + 0.113463, 0.113421, 0.113878, 0.113338, 0.113297, 0.113504, + 0.113960, 0.114664, 0.114374, 0.114332, 0.114787, 0.114993, + 0.115447, 0.114660, 0.114618, 0.114576, 0.114781, 0.114987, + 0.114944, 0.114654, 0.114860, 0.114817, 0.114775, 0.114238, + 0.113702, 0.113165, 0.112383, 0.111353, 0.110325, 0.108804, + 0.107777, 0.106751, 0.105972, 0.105440, 0.104416, 0.104623, + 0.104093, 0.104300, 0.104015, 0.103239, 0.102955, 0.102426, + 0.101651, 0.100631, 0.099858, 0.098594, 0.097577, 0.096560, + 0.095055, 0.093550, 0.092291, 0.091033, 0.089776, 0.088520, + 0.087753, 0.086987, 0.086222, 0.085702, 0.084693, 0.083686, + 0.082679, 0.081673, 0.080667, 0.079419, 0.078171, 0.077168, + 0.076409, 0.075651, 0.074164, 0.072921, 0.072164, 0.070923, + 0.069682, 0.068200, 0.066718, 0.065238, 0.063516, 0.062038, + 0.060319, 0.059086, 0.057853, 0.056864, 0.055875, 0.055128, + 0.054141, 0.053395, 0.052651, 0.051665, 0.050439, 0.049455, + 0.048230, 0.047007, 0.045543, 0.043840, 0.042378, 0.041159, + 0.039699, 0.038241, 0.036784, 0.035569, 0.034354, 0.033620, + 0.032407, 0.031195, 0.030224, 0.029014, 0.028044, 0.027075, + 0.025867, 0.024899, 0.023693, 0.022488, 0.021044, 0.019841, + 0.018639, 0.017676, 0.016476, 0.015515, 0.014316, 0.013595, + 0.012159, 0.011201, 0.009529, 0.008335, 0.006665, 0.005473, + 0.004519, 0.003091, 0.001901, 0.000950, 0.000000, -0.000712, + -0.001424, -0.002372, -0.003320, -0.004030, -0.004976, -0.005921, + -0.006866, -0.007574, -0.008754, -0.009696, -0.010402, -0.011343, + -0.012283, -0.012987, -0.013926, -0.014629, -0.015566, -0.016268, + -0.016968, -0.017669, -0.018368, -0.018832, -0.019530, -0.020229, + -0.020691, -0.021153, -0.022085, -0.022780, -0.023241, -0.023936, + -0.024161, -0.024855, -0.025315, -0.026008, -0.026466, -0.027158, + -0.027615, -0.028540, -0.028997, -0.029921, -0.030610, -0.031299, + -0.031987, -0.032908, -0.033595, -0.034048, -0.034501, -0.034721, + -0.035406, -0.035858, -0.036309, -0.036760, -0.036978, -0.037894, + -0.038344, -0.039025, -0.039474, -0.040155, -0.040835, -0.041515, + -0.041963, -0.042409, -0.042624, -0.043302, -0.043980, -0.044194, + -0.044639, -0.044852, -0.045066, -0.045741, -0.045723, -0.045936, + -0.046148, -0.046361, -0.046342, -0.046554, -0.046766, -0.046978, + -0.046959, -0.047171, -0.047382, -0.047363, -0.047574, -0.047556, + -0.047766, -0.047747, -0.048187, -0.048397, -0.048837, -0.049046, + -0.049256, -0.049236, -0.049446, -0.049426, -0.049406, -0.049158, + -0.048910, -0.048662, -0.048642, -0.048395, -0.048375, -0.048128, + -0.048336, -0.048317, -0.048298, -0.048278, -0.048259, -0.048467, + -0.048448, -0.048428, -0.048409, -0.048162, -0.048143, -0.048124, + -0.047877, -0.047858, -0.047612, -0.047593, -0.047574, -0.047328, + -0.047083, -0.046837, -0.046592, -0.046347, -0.046329, -0.046084, + -0.045614, -0.045370, -0.044900, -0.044431, -0.044187, -0.043719, + -0.043701, -0.043233, -0.042990, -0.042748, -0.042506, -0.042264, + -0.042022, -0.041555, -0.041314, -0.040848, -0.040607, -0.040142, + -0.039453, -0.038989, -0.038749, -0.038286, -0.038046, -0.037583, + -0.037344, -0.036882, -0.036420, -0.036182, -0.035944, -0.035483, + -0.035022, -0.035008, -0.034548, -0.034311, -0.034074, -0.033615, + -0.033601, -0.033142, -0.032906, -0.032671, -0.032657, -0.032422, + -0.032186, -0.031951, -0.031716, -0.031038, -0.030804, -0.030348, + -0.029893, -0.029659, -0.029204, -0.028750, -0.028517, -0.028063, + -0.027610, -0.027378, -0.027366, -0.027355, -0.026903, -0.027112, + -0.027101, -0.026869, -0.026638, -0.026407, -0.026176, -0.025945, + -0.025935, -0.025265, -0.025035, -0.024585, -0.024575, -0.024126, + -0.023678, -0.023449, -0.023439, -0.023429, -0.023638, -0.023628, + -0.023618, -0.023608, -0.023599, -0.023589, -0.023579, -0.023351, + -0.023559, -0.023113, -0.023104, -0.022876, -0.022649, -0.022421, + -0.021977, -0.021750, -0.021524, -0.021080, -0.020854, -0.020845, + -0.020836, -0.020611, -0.020602, -0.020376, -0.020368, -0.020359, + -0.020351, -0.020342, -0.020766, -0.020325, -0.020100, -0.019660, + -0.019219, -0.018995, -0.018556, -0.017901, -0.017893, -0.018101, + -0.018094, -0.017655, -0.015926, -0.014414, -0.014192, -0.015906, + -0.016759, -0.016537, -0.016315, -0.016093, -0.017374, -0.018438, + -0.017144, -0.015423, -0.014989, -0.015624, -0.016687, -0.015825, + -0.013894, -0.012606, -0.013028, -0.014090, -0.014511, -0.013438, + -0.012579, -0.013213, -0.013847, -0.014054, -0.013622, -0.013403, + -0.013610, -0.014242, -0.014449, -0.014655, -0.014436, -0.014006, + -0.013363, -0.012509, -0.012080, -0.012075, -0.011646, -0.010795, + -0.010367, -0.010151, -0.010146, -0.009719, -0.009082, -0.008655, + -0.008019, -0.007804, -0.007168, -0.006322, -0.005898, -0.005053, + -0.004841, -0.004628, -0.004626, -0.004835, -0.005043, -0.005040, + -0.004828, -0.004826, -0.004195, -0.003983, -0.002934, -0.001885, + -0.001047, 0.000000, 0.000418, 0.001464, 0.002299, 0.002925, + 0.002924, 0.003131, 0.003338, 0.003963, 0.004169, 0.004167, + 0.004166, 0.003956, 0.003746, 0.003536, 0.003119, 0.002702, + 0.002701, 0.002699, 0.002491, 0.002489, 0.002903, 0.003316, + 0.003729, 0.003728, 0.003933, 0.004552, 0.004964, 0.005168, + 0.005373, 0.005577, 0.005368, 0.005778, 0.005569, 0.005361, + 0.004946, 0.004944, 0.004736, 0.004734, 0.004526, 0.004730, + 0.004933, 0.004931, 0.005134, 0.005542, 0.006566, 0.007178, + 0.007790, 0.008606, 0.009216, 0.009826, 0.010231, 0.010636, + 0.011040, 0.011444, 0.011643, 0.012046, 0.012449, 0.013055, + 0.013661, 0.014063, 0.014464, 0.015068, 0.015265, 0.015665, + 0.016065, 0.016464, 0.016863, 0.017058, 0.017863, 0.018260, + 0.018860, 0.019257, 0.019451, 0.019848, 0.020244, 0.020437, + 0.020630, 0.020620, 0.020813, 0.021006, 0.021198, 0.020987, + 0.021179, 0.021169, 0.020958, 0.020949, 0.020939, 0.020729, + 0.020920, 0.020710, 0.020700, 0.021093, 0.021284, 0.021676, + 0.021666, 0.021856, 0.021646, 0.022237, 0.022227, 0.022417, + 0.022207, 0.022197, 0.021787, 0.021777, 0.022166, 0.022156, + 0.022146, 0.022335, 0.022724, 0.022713, 0.023101, 0.023091, + 0.023279, 0.023467, 0.023655, 0.024042, 0.024229, 0.024417, + 0.024405, 0.024791, 0.024779, 0.024768, 0.024757, 0.024745, + 0.024734, 0.024722, 0.024513, 0.024502, 0.024491, 0.024677, + 0.024863, 0.024851, 0.024840, 0.024828, 0.024620, 0.024411, + 0.024203, 0.024192, 0.023984, 0.023973, 0.023962, 0.023754, + 0.023940, 0.024125, 0.023917, 0.023906, 0.023699, 0.023492, + 0.023090, 0.022884, 0.022482, 0.022276, 0.021875, 0.021670, + 0.021464, 0.021454, 0.021249, 0.021239, 0.021229, 0.021025, + 0.021015, 0.020811, 0.020606, 0.020597, 0.020587, 0.020966, + 0.020956, 0.021334, 0.021324, 0.021701, 0.021497, 0.021487, + 0.021477, 0.021467, 0.021650, 0.021447, 0.021436, 0.021619, + 0.021609, 0.021599, 0.021589, 0.021386, 0.021568, 0.021943, + 0.021933, 0.021730, 0.021912, 0.021709, 0.021891, 0.021881, + 0.021870, 0.022051, 0.022041, 0.022414, 0.022020, 0.022009, + 0.021616, 0.021415, 0.021022, 0.020821, 0.020620, 0.020229, + 0.020219, 0.020019, 0.020009, 0.019809, 0.019800, 0.019981, + 0.019781, 0.019771, 0.019762, 0.019562, 0.019553, 0.019354, + 0.019155, 0.019146, 0.019136, 0.019127, 0.018929, 0.019109, + 0.018910, 0.018712, 0.018514, 0.018505, 0.018308, 0.018487, + 0.018290, 0.018281, 0.018272, 0.018452, 0.018255, 0.018246, + 0.018237, 0.018228, 0.017843, 0.017835, 0.017826, 0.017817, + 0.017809, 0.017613, 0.017230, 0.017034, 0.017026, 0.016643, + 0.016448, 0.016253, 0.016059, 0.015678, 0.015483, 0.015103, + 0.014723, 0.014529, 0.014150, 0.014143, 0.013764, 0.013385, + 0.013193, 0.012815, 0.012623, 0.012246, 0.012054, 0.011678, + 0.011301, 0.010925, 0.010550, 0.010360, 0.009985, 0.009610, + 0.009421, 0.009047, 0.008673, 0.008300, 0.008112, 0.007739, + 0.007735, 0.007547, 0.007176, 0.006988, 0.006801, 0.006614, + 0.006243, 0.006057, 0.005870, 0.005684, 0.005498, 0.005312, + 0.005126, 0.004941, 0.004755, 0.004570, 0.004568, 0.004200, + 0.004016, 0.003831, 0.003465, 0.003463, 0.003279, 0.003095, + 0.002912, 0.002546, 0.002363, 0.002180, 0.001816, 0.001634, + 0.001633, 0.001269, 0.001088, 0.000906, 0.000724, 0.000543, + 0.000543, 0.000181, 0.000000, -0.000181, -0.000361, -0.000541, + -0.000721, -0.000901, -0.001081, -0.001441, -0.001800, -0.001799, + -0.002157, -0.002336, -0.002694, -0.002693, -0.003050, -0.003049, + -0.003406, -0.003583, -0.003760, -0.003937, -0.004293, -0.004291, + -0.004289, -0.004644, -0.004820, -0.004996, -0.004993, -0.005169, + -0.005344, -0.005342, -0.005517, -0.005692, -0.005867, -0.005864, + -0.005861, -0.006035, -0.006032, -0.006029, -0.006026, -0.005846, + -0.006020, -0.006017, -0.006014, -0.006010, -0.006007, -0.005828, + -0.005825, -0.005998, -0.005995, -0.005992, -0.005989, -0.005810, + -0.005982, -0.005804, -0.005976, -0.005797, -0.005970, -0.005967, + -0.005964, -0.005961, -0.005958, -0.005779, -0.006126, -0.005773, + -0.006120, -0.005942, -0.005939, -0.005936, -0.005933, -0.005930, + -0.005927, -0.005749, -0.005746, -0.005743, -0.005566, -0.005737, + -0.005560, -0.005558, -0.005555, -0.005552, -0.005375, -0.005546, + -0.005716, -0.005713, -0.005710, -0.005534, -0.005358, -0.005183, + -0.005007, -0.005005, -0.005002, -0.004655, -0.004480, -0.004133, + -0.003959, -0.003957, -0.003783, -0.003437, -0.003607, -0.003090, + -0.003088, -0.002915, -0.002742, -0.002569, -0.002568, -0.002567, + -0.002223, -0.002222, -0.002050, -0.001878, -0.001536, -0.001706, + -0.001534, -0.001363, -0.001192, -0.001021, -0.000851, -0.000680, + -0.000340, -0.000340, -0.000170, -0.000339, -0.000170, 0.000000, + 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, + 0.000000, -0.000169, 0.000000, 0.000000, 0.000000, 0.000000, + -0.000168, -0.000336, -0.000336, -0.000336, -0.000504, -0.000671, + -0.000671, -0.001006, -0.001005, -0.001340, -0.001339, -0.001338, + -0.001505, -0.001504, -0.001670, -0.001669, -0.002002, -0.002168, + -0.002000, -0.002165, -0.002330, -0.002329, -0.002328, -0.002327, + -0.002325, -0.002324, -0.002323, -0.002321, -0.002154, -0.002153, + -0.001987, -0.001985, -0.001984, -0.001818, -0.001817, -0.001816, + -0.001650, -0.001649, -0.001648, -0.001812, -0.001811, -0.001810, + -0.002138, -0.002301, -0.002300, -0.002627, -0.002625, -0.002952, + -0.003114, -0.003112, -0.003274, -0.003436, -0.003598, -0.003759, + -0.003921, -0.003918, -0.004079, -0.004240, -0.004075, -0.004235, + -0.004396, -0.004393, -0.004553, -0.004551, -0.004873, -0.004870, + -0.005030, -0.005352, -0.005511, -0.005993, -0.006152, -0.006472, + -0.006954, -0.006950, -0.007430, -0.007588, -0.007906, -0.008224, + -0.008542, -0.008859, -0.009176, -0.009332, -0.009326, -0.009482, + -0.009637, -0.009952, -0.010107, -0.010101, -0.010256, -0.010250, + -0.010244, -0.010398, -0.010552, -0.010387, -0.010381, -0.010534, + -0.010369, -0.010522, -0.010357, -0.010510, -0.010504, -0.010498, + -0.010492, -0.010486, -0.010480, -0.010474, -0.010468, -0.010303, + -0.010456, -0.010292, -0.010286, -0.010122, -0.009958, -0.009952, + -0.009788, -0.009625, -0.009619, -0.009456, -0.009293, -0.009130, + -0.009125, -0.009120, -0.008957, -0.008795, -0.008790, -0.008785, + -0.008780, -0.008931, -0.009083, -0.009077, -0.009228, -0.009223, + -0.009530, -0.009368, -0.009363, -0.009202, -0.009196, -0.009035, + -0.008874, -0.008558, -0.008397, -0.008392, -0.008077, -0.008072, + -0.007912, -0.007597, -0.007438, -0.007279, -0.007119, -0.006961, + -0.006647, -0.006334, -0.006331, -0.006173, -0.005860, -0.005857, + -0.005700, -0.005542, -0.005539, -0.005382, -0.005379, -0.005375, + -0.005526, -0.005522, -0.005519, -0.005669, -0.005666, -0.005662, + -0.005965, -0.006114, -0.006110, -0.006107, -0.006256, -0.006252, + -0.006401, -0.006397, -0.006545, -0.006389, -0.006689, -0.006837, + -0.006681, -0.006677, -0.006673, -0.006669, -0.006665, -0.006510, + -0.006657, -0.006502, -0.006649, -0.006494, -0.006490, -0.006335, + -0.006181, -0.006328, -0.006324, -0.006320, -0.006467, -0.006312, + -0.006309, -0.006455, -0.006301, -0.006297, -0.006293, -0.006289, + -0.006286, -0.006132, -0.005979, -0.005975, -0.005673, -0.005819, + -0.005517, -0.005514, -0.005212, -0.005060, -0.005057, -0.005054, + -0.004754, -0.004751, -0.004748, -0.004745, -0.004594, -0.004591, + -0.004292, -0.004438, -0.004287, -0.004137, -0.004134, -0.003836, + -0.003687, -0.003684, -0.003535, -0.003385, -0.003089, -0.003087, + -0.002791, -0.002790, -0.002641, -0.002640, -0.002491, -0.002490, + -0.002635, -0.002779, -0.002778, -0.002776, -0.003066, -0.002918, + -0.003062, -0.003060, -0.003058, -0.003057, -0.003055, -0.003053, + -0.002905, -0.002613, -0.002612, -0.002610, -0.002319, -0.002462, + -0.002460, -0.002314, -0.002313, -0.002167, -0.002165, -0.002164, + -0.002163, -0.002161, -0.002160, -0.002159, -0.002013, -0.001868, + -0.001724, -0.001722, -0.001578, -0.001434, -0.001289, -0.001289, + -0.001431, -0.001287, -0.001429, -0.001285, -0.001570, -0.001426, + -0.001425, -0.001424, -0.001566, -0.001565, -0.001706, -0.001847, + -0.001988, -0.001987, -0.002127, -0.001984, -0.001983, -0.001840, + -0.001839, -0.001555, -0.001554, -0.001412, -0.001411, -0.001269, + -0.001127, -0.000986, -0.000844, -0.000984, -0.000703, -0.000702, + -0.000702, -0.000701, -0.000841, -0.000700, -0.001120, -0.000979, + -0.000979, -0.000978, -0.000977, -0.000977, -0.000837, -0.000697, + -0.000557, -0.000557, -0.000556, -0.000417, -0.000278, -0.000416, + -0.000277, -0.000277, -0.000277, -0.000277, -0.000277, -0.000276, + -0.000276, -0.000276, -0.000276, -0.000276, -0.000276, -0.000138, + -0.000275, -0.000413, -0.000687, -0.000687, -0.000823, -0.001234, + -0.001508, -0.001644, -0.001916, -0.002325, -0.002324, -0.002595, + -0.002867, -0.003138, -0.003544, -0.003815, -0.004084, -0.004218, + -0.004487, -0.004620, -0.004888, -0.005020, -0.005424, -0.005691, + -0.005823, -0.006225, -0.006626, -0.006757, -0.007023, -0.007288, + -0.007418, -0.007413, -0.007542, -0.007537, -0.007532, -0.007392, + -0.007387, -0.007248, -0.007243, -0.007104, -0.006966, -0.006693, + -0.006287, -0.006016, -0.005611, -0.005473, -0.005203, -0.005066, + -0.005062, -0.004793, -0.004789, -0.005052, -0.005181, -0.005576, + -0.005705, -0.006099, -0.006227, -0.006355, -0.006615, -0.006875, + -0.007135, -0.007130, -0.007257, -0.007384, -0.007379, -0.007505, + -0.007500, -0.007495, -0.007621, -0.007747, -0.007873, -0.007867, + -0.007731, -0.007594, -0.007720, -0.007976, -0.008101, -0.008357, + -0.008612, -0.008736, -0.008860, -0.009115, -0.009368, -0.009362, + -0.009615, -0.009868, -0.009991, -0.010243, -0.010495, -0.010747, + -0.010998, -0.010861, -0.010982, -0.011104, -0.011354, -0.011475, + -0.011853, -0.012231, -0.012608, -0.013114, -0.013361, -0.013737, + -0.014112, -0.014358, -0.014604, -0.014722, -0.014967, -0.015084, + -0.015201, -0.015318, -0.015562, -0.015551, -0.015667, -0.015784, + -0.015772, -0.015634, -0.015750, -0.015484, -0.015346, -0.015209, + -0.015071, -0.014934, -0.015049, -0.014912, -0.014901, -0.015143, + -0.015258, -0.015373, -0.015488, -0.015854, -0.015968, -0.016082, + -0.016196, -0.016059, -0.016173, -0.016161, -0.016274, -0.016262, + -0.016376, -0.016114, -0.016102, -0.016090, -0.016078, -0.015942, + -0.016179, -0.016167, -0.016156, -0.016392, -0.016504, -0.016616, + -0.016728, -0.016715, -0.016703, -0.016691, -0.016555, -0.016543, + -0.016407, -0.016148, -0.016013, -0.015755, -0.015497, -0.015486, + -0.015352, -0.015340, -0.015206, -0.015195, -0.015306, -0.015294, + -0.015405, -0.015394, -0.015504, -0.015493, -0.015481, -0.015470, + -0.015458, -0.015446, -0.015313, -0.015545, -0.015654, -0.015521, + -0.015510, -0.015498, -0.015365, -0.015354, -0.015342, -0.015210, + -0.015198, -0.015187, -0.015296, -0.015284, -0.015513, -0.015381, + -0.015489, -0.015358, -0.015346, -0.015454, -0.015562, -0.015670, + -0.015777, -0.015765, -0.015753, -0.015741, -0.015610, -0.015717, + -0.015824, -0.015812, -0.015919, -0.016025, -0.016013, -0.016000, + -0.016225, -0.016212, -0.016318, -0.016305, -0.016411, -0.016398, + -0.016503, -0.016491, -0.016478, -0.016700, -0.016687, -0.016792, + -0.016779, -0.016766, -0.016635, -0.016623, -0.016493, -0.016480, + -0.016350, -0.016337, -0.016208, -0.015962, -0.015717, -0.015704, + -0.015576, -0.015448, -0.015551, -0.015423, -0.015411, -0.015399, + -0.015503, -0.015375, -0.015247, -0.015120, -0.015108, -0.014980, + -0.014853, -0.014611, -0.014485, -0.014473, -0.014232, -0.014106, + -0.013866, -0.013626, -0.013615, -0.013261, -0.013251, -0.012898, + -0.012773, -0.012421, -0.012183, -0.012060, -0.011709, -0.011473, + -0.011236, -0.011114, -0.010992, -0.010756, -0.010748, -0.010400, + -0.010504, -0.010157, -0.010036, -0.009803, -0.009682, -0.009450, + -0.009217, -0.009097, -0.008753, -0.008522, -0.008291, -0.007948, + -0.007830, -0.007488, -0.007259, -0.006918, -0.006801, -0.006573, + -0.006233, -0.006117, -0.005778, -0.005552, -0.005325, -0.005099, + -0.004763, -0.004537, -0.004312, -0.004088, -0.003974, -0.003640, + -0.003417, -0.003083, -0.002861, -0.002639, -0.002307, -0.002195, + -0.001974, -0.001644, -0.001533, -0.001203, -0.000984, -0.000874, + -0.000655, -0.000545, -0.000327, -0.000109, 0.000000, 0.000000, + 0.000217, 0.000217, 0.000325, 0.000433, 0.000541, 0.000541, + 0.000648, 0.000756, 0.000755, 0.000862, 0.000861, 0.001076, + 0.001075, 0.001074, 0.001287, 0.001286, 0.001285, 0.001391, + 0.001497, 0.001389, 0.001601, 0.001600, 0.001705, 0.001597, + 0.001915, 0.001807, 0.002018, 0.001910, 0.002120, 0.002118, + 0.002222, 0.002220, 0.002324, 0.002322, 0.002426, 0.002424, + 0.002527, 0.002630, 0.002733, 0.002730, 0.002938, 0.002935, + 0.003037, 0.003139, 0.003241, 0.003343, 0.003340, 0.003441, + 0.003542, 0.003643, 0.003640, 0.003845, 0.003841, 0.003838, + 0.003938, 0.003935, 0.004035, 0.004135, 0.004028, 0.004127, + 0.004227, 0.004223, 0.004219, 0.004215, 0.004314, 0.004413, + 0.004307, 0.004303, 0.004401, 0.004398, 0.004394, 0.004492, + 0.004386, 0.004586, 0.004480, 0.004476, 0.004472, 0.004468, + 0.004565, 0.004460, 0.004557, 0.004452, 0.004448, 0.004545, + 0.004540, 0.004637, 0.004532, 0.004629, 0.004524, 0.004620, + 0.004616, 0.004612, 0.004708, 0.004704, 0.004599, 0.004695, + 0.004791, 0.004686, 0.004682, 0.004678, 0.004773, 0.004769, + 0.004863, 0.004859, 0.004855, 0.004850, 0.004846, 0.004742, + 0.004738, 0.004734, 0.004729, 0.004823, 0.004622, 0.004716, + 0.004712, 0.004707, 0.004605, 0.004698, 0.004498, 0.004494, + 0.004490, 0.004388, 0.004482, 0.004380, 0.004473, 0.004469, + 0.004562, 0.004461, 0.004360, 0.004356, 0.004351, 0.004347, + 0.004343, 0.004339, 0.004335, 0.004331, 0.004231, 0.004227, + 0.004127, 0.004123, 0.004023, 0.004019, 0.003920, 0.003916, + 0.003817, 0.003718, 0.003714, 0.003520, 0.003517, 0.003419, + 0.003415, 0.003317, 0.003125, 0.003216, 0.003024, 0.003021, + 0.002924, 0.002921, 0.002918, 0.002727, 0.002631, 0.002628, + 0.002532, 0.002436, 0.002527, 0.002431, 0.002335, 0.002333, + 0.002237, 0.002235, 0.002140, 0.002138, 0.002043, 0.001948, + 0.001854, 0.001852, 0.001757, 0.001663, 0.001477, 0.001476, + 0.001382, 0.001197, 0.001103, 0.001102, 0.000918, 0.000825, + 0.000733, 0.000640, 0.000548, 0.000457, 0.000365, 0.000273, + 0.000273, 0.000182, 0.000091, 0.000091, 0.000000, 0.000091, + 0.000000, -0.000090, -0.000181, -0.000090, -0.000270, -0.000270, + -0.000270, -0.000359, -0.000359, -0.000448, -0.000448, -0.000447, + -0.000536, -0.000536, -0.000624, -0.000624, -0.000712, -0.000711, + -0.000711, -0.000888, -0.000887, -0.000974, -0.000973, -0.001061, + -0.001060, -0.001147, -0.001145, -0.001232, -0.001143, -0.001230, + -0.001228, -0.001227, -0.001226, -0.001312, -0.001311, -0.001309, + -0.001308, -0.001307, -0.001305, -0.001391, -0.001389, -0.001388, + -0.001386, -0.001385, -0.001470, -0.001382, -0.001381, -0.001293, + -0.001292, -0.001376, -0.001289, -0.001373, -0.001286, -0.001199, + -0.001283, -0.001282, -0.001281, -0.001279, -0.001193, -0.001277, + -0.001190, -0.001274, -0.001272, -0.001271, -0.001270, -0.001268, + -0.001182, -0.001266, -0.001264, -0.001347, -0.001346, -0.001344, + -0.001343, -0.001341, -0.001423, -0.001422, -0.001420, -0.001502, + -0.001501, -0.001582, -0.001580, -0.001579, -0.001660, -0.001741, + -0.001739, -0.001655, -0.001735, -0.001733, -0.001732, -0.001730, + -0.001728, -0.001808, -0.001806, -0.001722, -0.001720, -0.001636, + -0.001716, -0.001633, -0.001631, -0.001548, -0.001546, -0.001544, + -0.001461, -0.001460, -0.001377, -0.001456, -0.001293, -0.001372, + -0.001290, -0.001289, -0.001207, -0.001205, -0.001204, -0.001122, + -0.001121, -0.001120, -0.001039, -0.000958, -0.000957, -0.000955, + -0.000875, -0.000874, -0.000873, -0.000793, -0.000712, -0.000712, + -0.000711, -0.000631, -0.000552, -0.000472, -0.000393, -0.000393, + -0.000314, -0.000313, -0.000235, -0.000156, -0.000156, -0.000156, + -0.000078, -0.000078, 0.000000, 0.000000, 0.000000, 0.000000, + 0.000077, 0.000077, 0.000154, 0.000154, 0.000308, 0.000231, + 0.000461, 0.000384, 0.000536, 0.000536, 0.000764, 0.000687, + 0.000839, 0.000838, 0.000913, 0.000988, 0.001062, 0.001137, + 0.001060, 0.001134, 0.001208, 0.001207, 0.001281, 0.001279, + 0.001353, 0.001351, 0.001424, 0.001423, 0.001496, 0.001494, + 0.001567, 0.001490, 0.001488, 0.001561, 0.001559, 0.001557, + 0.001555, 0.001627, 0.001699, 0.001697, 0.001695, 0.001766, + 0.001764, 0.001835, 0.001833, 0.001758, 0.001828, 0.001826, + 0.001897, 0.001895, 0.001892, 0.001962, 0.001960, 0.001958, + 0.002027, 0.002025, 0.002095, 0.002092, 0.002161, 0.002159, + 0.002156, 0.002153, 0.002222, 0.002219, 0.002216, 0.002285, + 0.002211, 0.002279, 0.002276, 0.002344, 0.002341, 0.002338, + 0.002335, 0.002403, 0.002400, 0.002467, 0.002464, 0.002461, + 0.002528, 0.002525, 0.002591, 0.002588, 0.002585, 0.002721, + 0.002717, 0.002783, 0.002779, 0.002776, 0.002841, 0.002907, + 0.002972, 0.002968, 0.003033, 0.003029, 0.003025, 0.003090, + 0.003154, 0.003150, 0.003214, 0.003210, 0.003138, 0.003133, + 0.003061, 0.003193, 0.003121, 0.003049, 0.003045, 0.003041, + 0.003037, 0.003032, 0.002961, 0.002890, 0.002886, 0.002882, + 0.002811, 0.002807, 0.002737, 0.002733, 0.002796, 0.002725, + 0.002655, 0.002652, 0.002648, 0.002578, 0.002575, 0.002571, + 0.002568, 0.002564, 0.002560, 0.002557, 0.002488, 0.002484, + 0.002546, 0.002477, 0.002539, 0.002536, 0.002532, 0.002528, + 0.002525, 0.002521, 0.002582, 0.002514, 0.002575, 0.002507, + 0.002503, 0.002500, 0.002496, 0.002493, 0.002489, 0.002422, + 0.002418, 0.002479, 0.002412, 0.002408, 0.002405, 0.002401, + 0.002398, 0.002394, 0.002391, 0.002262, 0.002196, 0.002130, + 0.002064, 0.001999, 0.001996, 0.001993, 0.001928, 0.001863, + 0.001860, 0.001795, 0.001793, 0.001852, 0.001849, 0.001785, + 0.001844, 0.001779, 0.001838, 0.001774, 0.001894, 0.002013, + 0.002314, 0.002615, 0.003097, 0.003456, 0.003511, 0.003204, + 0.002837, 0.002290, 0.001865, 0.001622, 0.001380, 0.000958, + 0.000598, 0.000358, 0.000596, 0.001250, 0.001902, 0.002552, + 0.002667, 0.002426, 0.001950, 0.001593, 0.001355, 0.001411, + 0.001527, 0.001700, 0.001814, 0.001928, 0.001925, 0.002155, + 0.002676, 0.003368, 0.003769, 0.003937, 0.003584, 0.003174, + 0.002766, 0.002704, 0.002872, 0.003154, 0.003378, 0.003487, + 0.003481, 0.003248, 0.002844, 0.002272, 0.001644, 0.001076, + 0.000678, 0.000621, 0.001014, 0.001519, 0.002078, 0.002579, + 0.002855, 0.003018, 0.003013, 0.003008, 0.002947, 0.002831, + 0.002716, 0.002601, 0.002375, 0.002261, 0.002368, 0.002803, + 0.003567, 0.004219, 0.004758, 0.004696, 0.004197, 0.003374, + 0.002716, 0.002115, 0.001787, 0.001676, 0.001727, 0.001939, + 0.002205, 0.002470, 0.002573, 0.002515, 0.002457, 0.002506, + 0.002555, 0.002657, 0.002546, 0.002436, 0.002273, 0.002428, + 0.002687, 0.003050, 0.003465, 0.003721, 0.003872, 0.003813, + 0.003545, 0.003071, 0.002650, 0.002438, 0.002433, 0.002687, + 0.003044, 0.003296, 0.003444, 0.003438, 0.003227, 0.002966, + 0.002654, 0.002242, 0.001933, 0.001675, 0.001520, 0.001518, + 0.001464, 0.001663, 0.001761, 0.002109, 0.002406, 0.002652, + 0.002647, 0.002443, 0.002090, 0.001788, 0.001537, 0.001336, + 0.001433, 0.001430, 0.001673, 0.001916, 0.002108, 0.002251, + 0.002198, 0.001999, 0.001849, 0.001652, 0.001552, 0.001403, + 0.001401, 0.001350, 0.001395, 0.001489, 0.001630, 0.001722, + 0.001671, 0.001668, 0.001475, 0.001377, 0.001185, 0.001088, + 0.000897, 0.000801, 0.000752, 0.000892, 0.001031, 0.001169, + 0.001166, 0.001071, 0.000930, 0.000789, 0.000694, 0.000508, + 0.000415, 0.000368, 0.000413, 0.000596, 0.000823, 0.000959, + 0.001094, 0.001182, 0.001225, 0.001223, 0.001130, 0.001037, + 0.000810, 0.000719, 0.000628, 0.000626, 0.000714, 0.000847, + 0.001023, 0.001198, 0.001329, 0.001326, 0.001103, 0.000792, + 0.000439, 0.000131, -0.000087, -0.000175, -0.000305, -0.000391, + -0.000390, -0.000216, 0.000000, 0.000388, 0.000688, 0.000815, + 0.000771, 0.000598, 0.000341, 0.000255, 0.000297, 0.000381, + 0.000550, 0.000591, 0.000547, 0.000420, 0.000419, 0.000502, + 0.000709, 0.000791, 0.000748, 0.000497, 0.000207, -0.000083, + -0.000165, -0.000123, 0.000000, 0.000082, 0.000163, 0.000122, + 0.000000, -0.000081, -0.000243, -0.000363, -0.000443, -0.000402, + -0.000361, -0.000280, -0.000120, 0.000000, 0.000159, 0.000238, + 0.000316, 0.000316, 0.000275, 0.000275, 0.000157, 0.000039, + -0.000117, -0.000233, -0.000349, -0.000271, -0.000154, 0.000000, + 0.000192, 0.000230, 0.000153, 0.000000, -0.000190, -0.000418, + -0.000531, -0.000567, -0.000528, -0.000451, -0.000413, -0.000299, + -0.000299, -0.000261, -0.000149, -0.000111, 0.000000, 0.000000, + -0.000037, -0.000147, -0.000256, -0.000402, -0.000364, -0.000291, + -0.000218, -0.000108, -0.000036, -0.000072, -0.000144, -0.000251, + -0.000393, -0.000499, -0.000497, -0.000461, -0.000424, -0.000317, + -0.000281, -0.000245, -0.000210, -0.000174, -0.000209, -0.000243, + -0.000311, -0.000345, -0.000482, -0.000515, -0.000582, -0.000615, + -0.000545, -0.000476, -0.000407, -0.000304, -0.000270, -0.000302, + -0.000369, -0.000468, -0.000567, -0.000665, -0.000630, -0.000661, + -0.000593, -0.000625, -0.000557, -0.000490, -0.000456, -0.000455, + -0.000421, -0.000420, -0.000483, -0.000514, -0.000577, -0.000607, + -0.000637, -0.000540, -0.000539, -0.000505, -0.000473, -0.000471, + -0.000438, -0.000500, -0.000560, -0.000559, -0.000619, -0.000648, + -0.000646, -0.000614, -0.000551, -0.000518, -0.000456, -0.000455, + -0.000393, -0.000331, -0.000300, -0.000270, -0.000299, -0.000298, + -0.000267, -0.000266, -0.000206, -0.000118, -0.000029, 0.000058, + 0.000117, 0.000174, 0.000174, 0.000173, 0.000115, 0.000029, + -0.000029, -0.000028, -0.000028, 0.000000, 0.000000, +}; + +#endif /* _MONEY_H_ */ diff --git a/plugins/vst_effect/vst_control_dialog.cpp b/plugins/vst_effect/vst_control_dialog.cpp index d3416d4d5..38f6dcabf 100644 --- a/plugins/vst_effect/vst_control_dialog.cpp +++ b/plugins/vst_effect/vst_control_dialog.cpp @@ -58,11 +58,6 @@ vstControlDialog::vstControlDialog( QWidget * _parent, vstControlDialog::~vstControlDialog() { - QWidget * pw = m_effect->m_plugin->pluginWidget(); - if( pw ) - { - pw->reparent( parentWidget(), QPoint( 0, 0 ) ); - } } diff --git a/src/lib/mmp.cpp b/src/lib/mmp.cpp index 513cadadd..01591cf1d 100644 --- a/src/lib/mmp.cpp +++ b/src/lib/mmp.cpp @@ -263,7 +263,7 @@ bool multimediaProject::writeFile( const QString & _fn, bool _overwrite_check ) } QString xml = "\n" + toString( #if QT_VERSION >= 0x030100 - 2 + 0 #endif ); #ifdef QT4