Safe Haskell	Safe-Inferred

Csound.Tab

Contents

Fill table with numbers
(In)Harmonic series
Interpolants
- Equally spaced interpolants
Polynomials
Low level Csound definition.
Modify tables
- Handy shortcuts

Description

Creating Function Tables (Buffers)

Synopsis

Documentation

If you are not familliar with Csound's conventions you are pobably not aware of the fact that for efficiency reasons Csound requires that table size is equal to power of 2 or power of two plus one which stands for guard point (you do need guard point if your intention is to read the table once but you don't need the guard point if you read the table in many cycles, then the guard point is the the first point of your table).

data Tab Source

Csound f-tables. You can make a value of Tab with the function gen or use more higher level functions.

Instances

Eq Tab
Ord Tab
Show Tab
IfB Tab
CsdTuple Tab
Arg Tab
Val Tab

Fill table with numbers

doubles :: [Double] -> Tab Source

Table contains all provided values (table is extended to contain all values and to be of the power of 2 or the power of two plus one).

(In)Harmonic series

type PartialStrength = Double Source

type PartialNumber = Double Source

type PartialPhase = Double Source

type PartialDC = Double Source

sines :: [PartialStrength] -> Tab Source

Series of harmonic partials:

 sine = sines [1]

 saw = sines $ fmap (1 / ) [1 .. 10]

 square = sines $ fmap (1 / ) [1, 3 .. 11]

 triangle = sines $ zipWith (\a b -> a / (b ** 2)) (cycle [1, -1]) [1, 3 .. 11]

sines3 :: [(PartialNumber, PartialStrength, PartialPhase)] -> Tab Source

Specifies series of possibly inharmonic partials.

sines4 :: [(PartialNumber, PartialStrength, PartialPhase, PartialDC)] -> Tab Source

Specifies series of possibly inharmonic partials with direct current.

buzzes :: Double -> [Double] -> Tab Source

Generates values similar to the opcode buzz.

 buzzes numberOfHarmonics [lowestHarmonic, coefficientOfAttenuation]

With buzzes n [l, r] you get n harmonics from l that are attenuated by the factor of r on each step.

Interpolants

All funtions have the same shape of arguments:

 fun [a, n1, b, n2, c, ...]

where

a, b, c .. - are ordinate values
n1, n2 .. - are lengths of the segments relative to the total number of the points in the table

Csounders, Heads up! all segment lengths are relative to the total sum of the segments. You don't need to make the sum equal to the number of points in the table. Segment's lengths will be resized automatically. For example if we want to define a curve that rises to 1 over 25% of the table and then falls down to zero we can define it like this:

 segs [0, 0.25, 1, 0.75, 0]

or

 segs [0, 25, 1, 75, 0]

or

 segs [0, 1, 1, 3, 0]

all these expressions are equivalent.

consts :: [Double] -> Tab Source

Constant segments (sample and hold).

 consts [a, n1, b, n2, c, ...]

where

a, b, c .. - are ordinate values
n1, n2, ... are lengths of the segments relative to the total number of the points in the table

segs :: [Double] -> Tab Source

Segments of straight lines.

 segs [a, n1, b, n2, c, ...]

where

a, b, c .. - are ordinate values
n1, n2, ... are lengths of the segments relative to the total number of the points in the table

cubes :: [Double] -> Tab Source

Segments of cubic polynomials.

 cubes [a, n1, b, n2, c, ...]

where

a, b, c .. - are ordinate values
n1, n2, ... are lengths of the segments relative to the total number of the points in the table

exps :: [Double] -> Tab Source

Segments of the exponential curves.

 exps [a, n1, b, n2, c, ...]

where

a, b, c, ... are ordinate values
n1, n2, ... are lengths of the segments relative to the total number of the points in the table

splines :: [Double] -> Tab Source

Cubic spline curve.

 splines [a, n1, b, n2, c, ...]

where

a, b, c .. - are ordinate values
n1, n2, ... are lengths of the segments relative to the total number of the points in the table

Equally spaced interpolants

econsts :: [Double] -> Tab Source

Equally spaced constant segments.

 econsts [a, b, c, ...]

is the same as

 consts [a, 1, b, 1, c, ...]

esegs :: [Double] -> Tab Source

Equally spaced segments of straight lines.

 esegs [a, b, c, ...]

is the same as

 segs [a, 1, b, 1, c, ...]

ecubes :: [Double] -> Tab Source

Equally spaced segments of cubic polynomials.

 ecubes [a, b, c, ...]

is the same as

 cubes [a, 1, b, 1, c, ...]

eexps :: [Double] -> Tab Source

Equally spaced segments of exponential curves.

 eexps [a, b, c, ...]

is the same as

 exps [a, 1, b, 1, c, ...]

esplines :: [Double] -> Tab Source

Equally spaced spline curve.

 esplines [a, b, c, ...]

is the same as

 splines [a, 1, b, 1, c, ...]

Polynomials

polys :: Double -> Double -> [Double] -> Tab Source

Polynomials.

 polys xl xr [c0, c1, c2, ..]

where

xl, xr - left and right values of the interval over wich polynomial is defined
[c0, c1, c2, ...] -- coefficients of the polynomial

 c0 + c1 * x + c2 * x * x + ...

chebs1 :: Double -> Double -> [Double] -> Tab Source

Chebyshev polynomials of the first kind.

 polys xl xr [h0, h1, h2, ..]

where

xl, xr - left and right values of the interval over wich polynomial is defined
[h0, h1, h2, ...] -- relative strength of the partials

chebs2 :: Double -> Double -> [Double] -> Tab Source

Chebyshev polynomials of the second kind.

 polys xl xr [h0, h1, h2, ..]

where

xl, xr - left and right values of the interval over wich polynomial is defined
[h0, h1, h2, ...] -- relative strength of the partials

Low level Csound definition.

gen :: Int -> [Double] -> Tab Source

Creates a table of doubles (It's f-table in Csound). Arguments are:

identificator of the GEN routine
GEN routine arguments

All tables are created at 0 and memory is never released.

Modify tables

skipNorm :: Tab -> Tab Source

Skips normalization (sets table size to negative value)

setSize :: Int -> Tab -> Tab Source

Sets an absolute size value. As you can do it in the Csound files.

setDegree :: Int -> Tab -> Tab Source

Sets the relative size value. You can set the base value in the options (see tabResolution at CsdOptions, with tabResolution you can easily change table sizes for all your tables). Here zero means the base value. 1 is the base value multiplied by 2, 2 is the base value multiplied by 4 and so on. Negative values mean division by the specified degree.

guardPoint :: Tab -> Tab Source

Adds guard point to the table size (details of the interpolation schemes: you do need guard point if your intention is to read the table once but you don't need the guard point if you read table in many cycles, the guard point is the the first point of your table).

gp :: Tab -> Tab Source

Shortcut for guardPoint.