{ "patcher" : { "fileversion" : 1, "appversion" : { "major" : 7, "minor" : 3, "revision" : 4, "architecture" : "x64", "modernui" : 1 } , "rect" : [ 112.0, 79.0, 820.0, 675.0 ], "bglocked" : 0, "openinpresentation" : 0, "default_fontsize" : 12.0, "default_fontface" : 0, "default_fontname" : "Arial", "gridonopen" : 1, "gridsize" : [ 15.0, 15.0 ], "gridsnaponopen" : 1, "objectsnaponopen" : 1, "statusbarvisible" : 2, "toolbarvisible" : 1, "lefttoolbarpinned" : 0, "toptoolbarpinned" : 0, "righttoolbarpinned" : 0, "bottomtoolbarpinned" : 0, "toolbars_unpinned_last_save" : 0, "tallnewobj" : 0, "boxanimatetime" : 200, "enablehscroll" : 1, "enablevscroll" : 1, "devicewidth" : 0.0, "description" : "", "digest" : "", "tags" : "", "style" : "", "subpatcher_template" : "", "boxes" : [ { "box" : { "id" : "obj-9", "maxclass" : "comment", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 220.0, 193.0, 72.0, 20.0 ], "presentation_rect" : [ 220.0, 193.0, 0.0, 0.0 ], "style" : "", "text" : "bin" } } , { "box" : { "id" : "obj-8", "maxclass" : "comment", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 129.0, 193.0, 72.0, 20.0 ], "presentation_rect" : [ 129.0, 192.0, 0.0, 0.0 ], "style" : "", "text" : "frame index" } } , { "box" : { "id" : "obj-6", "linecount" : 5, "maxclass" : "comment", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 37.0, 193.0, 76.0, 74.0 ], "style" : "", "text" : "analysed signal (bins interleaved in fractal structure)" } } , { "box" : { "id" : "obj-20", "maxclass" : "newobj", "numinlets" : 3, "numoutlets" : 3, "outlettype" : [ "signal", "signal", "signal" ], "patcher" : { "fileversion" : 1, "appversion" : { "major" : 7, "minor" : 3, "revision" : 4, "architecture" : "x64", "modernui" : 1 } , "rect" : [ 522.0, 79.0, 758.0, 640.0 ], "bglocked" : 0, "openinpresentation" : 0, "default_fontsize" : 12.0, "default_fontface" : 0, "default_fontname" : "Arial", "gridonopen" : 1, "gridsize" : [ 15.0, 15.0 ], "gridsnaponopen" : 1, "objectsnaponopen" : 1, "statusbarvisible" : 2, "toolbarvisible" : 1, "lefttoolbarpinned" : 0, "toptoolbarpinned" : 0, "righttoolbarpinned" : 0, "bottomtoolbarpinned" : 0, "toolbars_unpinned_last_save" : 0, "tallnewobj" : 0, "boxanimatetime" : 200, "enablehscroll" : 1, "enablevscroll" : 1, "devicewidth" : 0.0, "description" : "", "digest" : "", "tags" : "", "style" : "", "subpatcher_template" : "", "boxes" : [ { "box" : { "id" : "obj-55", "maxclass" : "newobj", "numinlets" : 0, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 463.5, 216.0, 186.0, 22.0 ], "style" : "", "text" : "param bins 12 @min 1 @max 12" } } , { "box" : { "id" : "obj-54", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 1, "outlettype" : [ "" ], "patcher" : { "fileversion" : 1, "appversion" : { "major" : 7, "minor" : 3, "revision" : 4, "architecture" : "x64", "modernui" : 1 } , "rect" : [ 84.0, 104.0, 182.0, 371.0 ], "bglocked" : 0, "openinpresentation" : 0, "default_fontsize" : 12.0, "default_fontface" : 0, "default_fontname" : "Arial", "gridonopen" : 1, "gridsize" : [ 15.0, 15.0 ], "gridsnaponopen" : 1, "objectsnaponopen" : 1, "statusbarvisible" : 2, "toolbarvisible" : 1, "lefttoolbarpinned" : 0, "toptoolbarpinned" : 0, "righttoolbarpinned" : 0, "bottomtoolbarpinned" : 0, "toolbars_unpinned_last_save" : 0, "tallnewobj" : 0, "boxanimatetime" : 200, "enablehscroll" : 1, "enablevscroll" : 1, "devicewidth" : 0.0, "description" : "", "digest" : "", "tags" : "", "style" : "", "subpatcher_template" : "", "boxes" : [ { "box" : { "id" : "obj-38", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 76.0, 164.0, 43.0, 22.0 ], "style" : "", "text" : "!- bins" } } , { "box" : { "id" : "obj-36", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 76.0, 130.0, 25.0, 22.0 ], "style" : "", "text" : "- 1" } } , { "box" : { "id" : "obj-37", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 76.0, 100.0, 43.0, 22.0 ], "style" : "", "text" : "max 1" } } , { "box" : { "id" : "obj-34", "maxclass" : "newobj", "numinlets" : 2, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 50.0, 192.0, 45.0, 22.0 ], "style" : "", "text" : "pow" } } , { "box" : { "id" : "obj-35", "maxclass" : "newobj", "numinlets" : 0, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 50.0, 164.0, 19.0, 22.0 ], "style" : "", "text" : "2" } } , { "box" : { "id" : "obj-52", "maxclass" : "newobj", "numinlets" : 0, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 76.0, 40.0, 30.0, 22.0 ], "style" : "", "text" : "in 1" } } , { "box" : { "id" : "obj-53", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 50.0, 274.0, 37.0, 22.0 ], "style" : "", "text" : "out 1" } } ], "lines" : [ { "patchline" : { "destination" : [ "obj-53", 0 ], "source" : [ "obj-34", 0 ] } } , { "patchline" : { "destination" : [ "obj-34", 0 ], "source" : [ "obj-35", 0 ] } } , { "patchline" : { "destination" : [ "obj-38", 0 ], "source" : [ "obj-36", 0 ] } } , { "patchline" : { "destination" : [ "obj-36", 0 ], "source" : [ "obj-37", 0 ] } } , { "patchline" : { "destination" : [ "obj-34", 1 ], "source" : [ "obj-38", 0 ] } } , { "patchline" : { "destination" : [ "obj-37", 0 ], "source" : [ "obj-52", 0 ] } } ] } , "patching_rect" : [ 437.0, 257.0, 124.0, 22.0 ], "style" : "", "text" : "gen @title bin_period" } } , { "box" : { "id" : "obj-51", "linecount" : 4, "maxclass" : "comment", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 429.0, 446.0, 190.0, 60.0 ], "style" : "", "text" : "mix two delays of sequential bins if you want to approximate linear interp. it won't remove the noisiness though..." } } , { "box" : { "id" : "obj-44", "linecount" : 4, "maxclass" : "comment", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 242.0, 446.0, 178.0, 60.0 ], "style" : "", "text" : "@interp none to make sure we only read one bin's data. @feedback 0 to allow a delay of zero samples." } } , { "box" : { "id" : "obj-41", "maxclass" : "newobj", "numinlets" : 2, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 205.0, 360.5, 29.5, 22.0 ], "style" : "", "text" : "*" } } , { "box" : { "id" : "obj-40", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 205.0, 328.5, 23.0, 22.0 ], "style" : "", "text" : "int" } } , { "box" : { "id" : "obj-39", "maxclass" : "comment", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 274.0, 230.0, 98.0, 20.0 ], "style" : "", "text" : "full delay size" } } , { "box" : { "id" : "obj-25", "maxclass" : "newobj", "numinlets" : 2, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 205.0, 299.0, 29.5, 22.0 ], "style" : "", "text" : "/" } } , { "box" : { "id" : "obj-12", "maxclass" : "newobj", "numinlets" : 2, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 205.0, 230.0, 61.0, 22.0 ], "style" : "", "text" : "*" } } , { "box" : { "id" : "obj-11", "linecount" : 3, "maxclass" : "comment", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 85.0, 168.0, 103.0, 47.0 ], "style" : "", "text" : "our delay here can store up to 16 frames" } } , { "box" : { "id" : "obj-9", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 205.0, 168.0, 52.0, 22.0 ], "style" : "", "text" : "* 65536" } } , { "box" : { "id" : "obj-7", "linecount" : 2, "maxclass" : "newobj", "numinlets" : 2, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 50.0, 446.0, 174.0, 35.0 ], "style" : "", "text" : "delay 65536 @interp none @feedback 0" } } , { "box" : { "id" : "obj-6", "linecount" : 9, "maxclass" : "comment", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 85.0, 276.0, 109.0, 127.0 ], "style" : "", "text" : "quantize delays to a multiple of their bin periods, to ensure delays are reading from the same bin; otherwise strange pitch shifting effects will ensue" } } , { "box" : { "id" : "obj-20", "maxclass" : "newobj", "numinlets" : 2, "numoutlets" : 2, "outlettype" : [ "", "" ], "patching_rect" : [ 205.0, 130.0, 75.0, 22.0 ], "style" : "", "text" : "peek delays" } } , { "box" : { "id" : "obj-19", "maxclass" : "newobj", "numinlets" : 0, "numoutlets" : 2, "outlettype" : [ "", "" ], "patching_rect" : [ 120.0, 130.0, 79.0, 22.0 ], "style" : "", "text" : "buffer delays" } } , { "box" : { "id" : "obj-14", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 242.0, 68.0, 171.0, 22.0 ], "style" : "", "text" : "out 2 @comment frame_index" } } , { "box" : { "id" : "obj-15", "maxclass" : "newobj", "numinlets" : 0, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 242.0, 35.0, 164.0, 22.0 ], "style" : "", "text" : "in 2 @comment frame_index" } } , { "box" : { "id" : "obj-5", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 463.5, 68.0, 121.0, 22.0 ], "style" : "", "text" : "out 3 @comment bin" } } , { "box" : { "id" : "obj-1", "maxclass" : "newobj", "numinlets" : 0, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 50.0, 35.0, 147.0, 22.0 ], "style" : "", "text" : "in 1 @comment encoding" } } , { "box" : { "id" : "obj-2", "maxclass" : "newobj", "numinlets" : 0, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 437.0, 35.0, 114.0, 22.0 ], "style" : "", "text" : "in 3 @comment bin" } } , { "box" : { "id" : "obj-4", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 50.0, 571.0, 154.0, 22.0 ], "style" : "", "text" : "out 1 @comment encoding" } } ], "lines" : [ { "patchline" : { "destination" : [ "obj-7", 0 ], "source" : [ "obj-1", 0 ] } } , { "patchline" : { "destination" : [ "obj-25", 0 ], "source" : [ "obj-12", 0 ] } } , { "patchline" : { "destination" : [ "obj-14", 0 ], "source" : [ "obj-15", 0 ] } } , { "patchline" : { "destination" : [ "obj-20", 0 ], "midpoints" : [ 446.5, 117.0, 214.5, 117.0 ], "order" : 2, "source" : [ "obj-2", 0 ] } } , { "patchline" : { "destination" : [ "obj-5", 0 ], "order" : 0, "source" : [ "obj-2", 0 ] } } , { "patchline" : { "destination" : [ "obj-54", 0 ], "order" : 1, "source" : [ "obj-2", 0 ] } } , { "patchline" : { "destination" : [ "obj-9", 0 ], "source" : [ "obj-20", 0 ] } } , { "patchline" : { "destination" : [ "obj-40", 0 ], "source" : [ "obj-25", 0 ] } } , { "patchline" : { "destination" : [ "obj-41", 0 ], "source" : [ "obj-40", 0 ] } } , { "patchline" : { "destination" : [ "obj-7", 1 ], "source" : [ "obj-41", 0 ] } } , { "patchline" : { "destination" : [ "obj-25", 1 ], "order" : 1, "source" : [ "obj-54", 0 ] } } , { "patchline" : { "destination" : [ "obj-41", 1 ], "order" : 0, "source" : [ "obj-54", 0 ] } } , { "patchline" : { "destination" : [ "obj-4", 0 ], "source" : [ "obj-7", 0 ] } } , { "patchline" : { "destination" : [ "obj-12", 0 ], "source" : [ "obj-9", 0 ] } } ] } , "patching_rect" : [ 26.0, 450.0, 199.0, 22.0 ], "style" : "", "text" : "gen~ @title haar_delay" } } , { "box" : { "id" : "obj-17", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 252.0, 420.0, 87.0, 22.0 ], "style" : "", "text" : "loadmess fill 0" } } , { "box" : { "allowdrag" : 0, "buffername" : "delays", "clipdraw" : 1, "id" : "obj-18", "labels" : 0, "maxclass" : "waveform~", "norulerclick" : 0, "numinlets" : 5, "numoutlets" : 6, "outlettype" : [ "float", "float", "float", "float", "list", "" ], "patching_rect" : [ 252.0, 481.0, 264.0, 73.0 ], "ruler" : 0, "setmode" : 4, "style" : "", "voffset" : 1.0, "vticks" : 0, "vzoom" : 0.5 } } , { "box" : { "id" : "obj-19", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 2, "outlettype" : [ "float", "bang" ], "patching_rect" : [ 252.0, 450.0, 154.0, 22.0 ], "style" : "", "text" : "buffer~ delays @samps 13" } } , { "box" : { "id" : "obj-15", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 252.0, 258.0, 87.0, 22.0 ], "style" : "", "text" : "loadmess fill 1" } } , { "box" : { "allowdrag" : 0, "buffername" : "amps", "clipdraw" : 1, "id" : "obj-14", "labels" : 0, "maxclass" : "waveform~", "norulerclick" : 0, "numinlets" : 5, "numoutlets" : 6, "outlettype" : [ "float", "float", "float", "float", "list", "" ], "patching_rect" : [ 252.0, 320.0, 264.0, 73.0 ], "ruler" : 0, "setmode" : 4, "style" : "", "voffset" : 1.0, "vticks" : 0, "vzoom" : 0.5 } } , { "box" : { "id" : "obj-13", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 2, "outlettype" : [ "float", "bang" ], "patching_rect" : [ 252.0, 289.0, 148.0, 22.0 ], "style" : "", "text" : "buffer~ amps @samps 13" } } , { "box" : { "id" : "obj-12", "linecount" : 24, "maxclass" : "comment", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 532.0, 73.0, 238.0, 328.0 ], "style" : "", "text" : "Where a Fourier analysis breaks a signal into an orthonormal basis set of linearly spaced sine waves, this Haar analysis breaks a signal into an orthornormal basis of logarithmically spaced square waves. \n\nThe advantages are that this can be fairly easily done in the time domain, resynthesis can perfectly reconstruct the original, the number of bins is more manageable and more naturally spaced. \n\nThe main disadvantage, and the reason why this analysis/resynthesis method is rarely used, is that most transformations in the encoded domain add aliasing artifacts. Which is not surprising: each encoded band is a kind of bandpass filter by sampling rate decimation.\n\nNevertheless it serves as a simple introduction to wavelets, and has some nice crunchy distortion when that is needed." } } , { "box" : { "id" : "obj-7", "maxclass" : "newobj", "numinlets" : 3, "numoutlets" : 3, "outlettype" : [ "signal", "signal", "signal" ], "patcher" : { "fileversion" : 1, "appversion" : { "major" : 7, "minor" : 3, "revision" : 4, "architecture" : "x64", "modernui" : 1 } , "rect" : [ 805.0, 79.0, 601.0, 270.0 ], "bglocked" : 0, "openinpresentation" : 0, "default_fontsize" : 12.0, "default_fontface" : 0, "default_fontname" : "Arial", "gridonopen" : 1, "gridsize" : [ 15.0, 15.0 ], "gridsnaponopen" : 1, "objectsnaponopen" : 1, "statusbarvisible" : 2, "toolbarvisible" : 1, "lefttoolbarpinned" : 0, "toptoolbarpinned" : 0, "righttoolbarpinned" : 0, "bottomtoolbarpinned" : 0, "toolbars_unpinned_last_save" : 0, "tallnewobj" : 0, "boxanimatetime" : 200, "enablehscroll" : 1, "enablevscroll" : 1, "devicewidth" : 0.0, "description" : "", "digest" : "", "tags" : "", "style" : "", "subpatcher_template" : "", "boxes" : [ { "box" : { "id" : "obj-20", "maxclass" : "newobj", "numinlets" : 2, "numoutlets" : 2, "outlettype" : [ "", "" ], "patching_rect" : [ 70.0, 140.0, 69.0, 22.0 ], "style" : "", "text" : "peek amps" } } , { "box" : { "id" : "obj-19", "maxclass" : "newobj", "numinlets" : 0, "numoutlets" : 2, "outlettype" : [ "", "" ], "patching_rect" : [ 146.0, 140.0, 74.0, 22.0 ], "style" : "", "text" : "buffer amps" } } , { "box" : { "id" : "obj-18", "maxclass" : "newobj", "numinlets" : 2, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 50.0, 178.0, 39.0, 22.0 ], "style" : "", "text" : "*" } } , { "box" : { "id" : "obj-14", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 239.0, 211.0, 171.0, 22.0 ], "style" : "", "text" : "out 2 @comment frame_index" } } , { "box" : { "id" : "obj-15", "maxclass" : "newobj", "numinlets" : 0, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 239.0, 14.0, 164.0, 22.0 ], "style" : "", "text" : "in 2 @comment frame_index" } } , { "box" : { "id" : "obj-5", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 437.0, 211.0, 121.0, 22.0 ], "style" : "", "text" : "out 3 @comment bin" } } , { "box" : { "id" : "obj-1", "maxclass" : "newobj", "numinlets" : 0, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 50.0, 14.0, 147.0, 22.0 ], "style" : "", "text" : "in 1 @comment encoding" } } , { "box" : { "id" : "obj-2", "maxclass" : "newobj", "numinlets" : 0, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 437.0, 14.0, 114.0, 22.0 ], "style" : "", "text" : "in 3 @comment bin" } } , { "box" : { "id" : "obj-4", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 50.0, 211.0, 154.0, 22.0 ], "style" : "", "text" : "out 1 @comment encoding" } } ], "lines" : [ { "patchline" : { "destination" : [ "obj-18", 0 ], "source" : [ "obj-1", 0 ] } } , { "patchline" : { "destination" : [ "obj-14", 0 ], "source" : [ "obj-15", 0 ] } } , { "patchline" : { "destination" : [ "obj-4", 0 ], "source" : [ "obj-18", 0 ] } } , { "patchline" : { "destination" : [ "obj-20", 0 ], "order" : 1, "source" : [ "obj-2", 0 ] } } , { "patchline" : { "destination" : [ "obj-5", 0 ], "order" : 0, "source" : [ "obj-2", 0 ] } } , { "patchline" : { "destination" : [ "obj-18", 1 ], "source" : [ "obj-20", 0 ] } } ] } , "patching_rect" : [ 26.0, 289.0, 199.0, 22.0 ], "style" : "", "text" : "gen~ @title haar_filter" } } , { "box" : { "id" : "obj-4", "maxclass" : "comment", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 532.0, 580.0, 233.0, 20.0 ], "style" : "", "text" : "https://en.wikipedia.org/wiki/Haar_wavelet" } } , { "box" : { "fontname" : "Arial Italic", "fontsize" : 24.0, "id" : "obj-3", "maxclass" : "comment", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 26.0, 16.0, 379.0, 33.0 ], "style" : "", "text" : "Haar wavelet analysis/resynthesis" } } , { "box" : { "id" : "obj-26", "maxclass" : "newobj", "numinlets" : 2, "numoutlets" : 1, "outlettype" : [ "signal" ], "patcher" : { "fileversion" : 1, "appversion" : { "major" : 7, "minor" : 3, "revision" : 4, "architecture" : "x64", "modernui" : 1 } , "rect" : [ 80.0, 81.0, 769.0, 664.0 ], "bglocked" : 0, "openinpresentation" : 0, "default_fontsize" : 12.0, "default_fontface" : 0, "default_fontname" : "Arial", "gridonopen" : 1, "gridsize" : [ 15.0, 15.0 ], "gridsnaponopen" : 1, "objectsnaponopen" : 1, "statusbarvisible" : 2, "toolbarvisible" : 1, "lefttoolbarpinned" : 0, "toptoolbarpinned" : 0, "righttoolbarpinned" : 0, "bottomtoolbarpinned" : 0, "toolbars_unpinned_last_save" : 0, "tallnewobj" : 0, "boxanimatetime" : 200, "enablehscroll" : 1, "enablevscroll" : 1, "devicewidth" : 0.0, "description" : "", "digest" : "", "tags" : "", "style" : "", "subpatcher_template" : "", "boxes" : [ { "box" : { "id" : "obj-19", "linecount" : 18, "maxclass" : "comment", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 560.0, 101.0, 197.0, 248.0 ], "style" : "", "text" : "Here the wavelet domain is encoded into an audio signal using a fractal structure. The highest bin data occurs every 2 samples, the next highest occurs every 4 samples, the next every 8 samples, etc. up to the lowest bin and DC coefficient alternating every `framesize/2` samples. For example, if there are 4 bins plus DC (bin 0), framesize is 16, and the ordering within each frame is as follows:\n4342434143424340\n\nThe reason for using this schema is that it reduces the buffering needed during encoding." } } , { "box" : { "id" : "obj-12", "maxclass" : "newobj", "numinlets" : 0, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 526.0, 69.0, 164.0, 22.0 ], "style" : "", "text" : "in 2 @comment frame_index" } } , { "box" : { "code" : "// use a delay line to look into the history of the OWT signal\r\nDelay d(4096*2);\r\n// write the wavelet frame sequence in:\r\nd.write(in1); \r\n\r\n// the current index in the wavelet frame signal\r\ni = in2; \r\n// the length of each frame\r\nframesize = pow(2,int(bins));\r\n// the delay since of the start of the last complete frame\r\nframestart = framesize + i; \r\n\r\n// This could be optimized further\r\n\r\n// a variable to store the result:\r\ns = 0;\r\n// accumulate each bin in turn:\r\nlen = 1;\r\nwhile (len <= framesize) {\r\n\tlen2 = len*2;\r\n\t// compute the index into the frame for this bin:\r\n\toffset = len-1;\r\n\tquantized = int(i/len2) * len2;\r\n\tidx = quantized + offset;\r\n\t// convert this to a delay read index:\r\n\tv = d.read(framestart - idx, interp=\"none\");\r\n\t// convolve with squarewave\r\n\tv = floor(i/len) % 2 ? v : -v;\r\n\t// add to result\r\n\ts += v;\r\n\t// move to next bin:\r\n\tlen = len2;\r\n}\r\nout1 = s;", "fontface" : 0, "fontname" : "Arial", "fontsize" : 12.0, "id" : "obj-5", "maxclass" : "codebox", "numinlets" : 2, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 33.0, 101.0, 512.0, 498.0 ], "style" : "" } } , { "box" : { "id" : "obj-29", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 33.0, 618.0, 189.0, 22.0 ], "style" : "", "text" : "out 1 @comment decoded_signal" } } , { "box" : { "id" : "obj-17", "linecount" : 4, "maxclass" : "comment", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 236.0, 17.0, 186.0, 60.0 ], "style" : "", "text" : "12 bins (plus DC) requires 4096 samples; and at 44.1kHz sampling rate the lowest bin is at 10.7666Hz" } } , { "box" : { "id" : "obj-7", "maxclass" : "newobj", "numinlets" : 0, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 33.0, 17.0, 196.0, 22.0 ], "style" : "", "text" : "param bins 12 @min 1 @max 12" } } , { "box" : { "id" : "obj-1", "maxclass" : "newobj", "numinlets" : 0, "numoutlets" : 1, "outlettype" : [ "" ], "patching_rect" : [ 33.0, 69.0, 182.0, 22.0 ], "style" : "", "text" : "in 1 @comment encoded_signal" } } ], "lines" : [ { "patchline" : { "destination" : [ "obj-5", 0 ], "source" : [ "obj-1", 0 ] } } , { "patchline" : { "color" : [ 0.65, 0.65, 0.65, 0.9 ], "destination" : [ "obj-5", 1 ], "source" : [ "obj-12", 0 ] } } , { "patchline" : { "destination" : [ "obj-29", 0 ], "source" : [ "obj-5", 0 ] } } ] } , "patching_rect" : [ 26.0, 536.0, 199.0, 22.0 ], "style" : "", "text" : "gen~ @title haar_decode @bins 12" } } , { "box" : { "id" : "obj-22", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 3, "outlettype" : [ "signal", "signal", "signal" ], "patcher" : { "fileversion" : 1, "appversion" : { "major" : 7, "minor" : 3, "revision" : 4, "architecture" : "x64", "modernui" : 1 } , "rect" : [ 167.0, 79.0, 916.0, 787.0 ], "bglocked" : 0, "openinpresentation" : 0, "default_fontsize" : 12.0, "default_fontface" : 0, "default_fontname" : "Arial", "gridonopen" : 1, "gridsize" : [ 15.0, 15.0 ], "gridsnaponopen" : 1, "objectsnaponopen" : 1, "statusbarvisible" : 2, "toolbarvisible" : 1, "lefttoolbarpinned" : 0, "toptoolbarpinned" : 0, "righttoolbarpinned" : 0, "bottomtoolbarpinned" : 0, "toolbars_unpinned_last_save" : 0, "tallnewobj" : 0, "boxanimatetime" : 200, "enablehscroll" : 1, "enablevscroll" : 1, "devicewidth" : 0.0, "description" : "", "digest" : "", "tags" : "", "style" : "", "subpatcher_template" : "", "boxes" : [ { "box" : { "id" : "obj-3", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 538.0, 745.0, 121.0, 22.0 ], "style" : "", "text" : "out 3 @comment bin" } } , { "box" : { "id" : "obj-2", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 19.0, 745.0, 189.0, 22.0 ], "style" : "", "text" : "out 1 @comment encoded_signal" } } , { "box" : { "id" : "obj-16", "linecount" : 19, "maxclass" : "comment", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 570.0, 307.0, 250.0, 261.0 ], "style" : "", "text" : "Here the wavelet domain is encoded into an audio signal using a fractal structure. The highest bin data occurs every 2 samples, the next highest occurs every 4 samples, the next every 8 samples, etc. up to the lowest bin and DC coefficient alternating every `framesize/2` samples. \n\nFor example, if there are 4 bins plus DC (bin 0), framesize is 16, and the ordering within each frame is as follows:\n\n4342434143424340\n\nA reason for using this schema is that it reduces the buffering needed during encoding, and the regularity has some advantages for temporal processing in this domain." } } , { "box" : { "id" : "obj-19", "maxclass" : "newobj", "numinlets" : 1, "numoutlets" : 0, "patching_rect" : [ 278.5, 745.0, 171.0, 22.0 ], "style" : "", "text" : "out 2 @comment frame_index" } } , { "box" : { "code" : "// the number of bins in the analysis\r\n// 12 bins (plus DC remainder) requires 4096 samples\r\n// at 44.1kHz sampling rate the lowest bin is at 10.7666Hz\r\nParam bins(12,min=1,max=12);\r\n// storage to buffer the input\r\nData source(4096);\r\n// storage to encode the analysis\r\nData analysis(4096);\r\n// pre-computed mapping of frame_index to bin no.\r\nData encoding(4096);\r\n// the current index in the wavelet frame signal\r\nHistory index;\r\n// loadbang:\r\nHistory once(1);\r\n// how many samples per analysis frame:\r\nframesize = pow(2,int(bins));\r\n// compute the encoding:\r\nif (once || change(bins)) {\r\n\tonce = 0;\r\n\t// store the encoding:\r\n\tfor (i=0; i