[Fluxus] commits

[Dave Griffiths]

Hi all,

Some commits from me:

F4 : executes highlighted s expression - useful for reevaluation of
functions by just going to the start or the end (I tend to do this anyway
while livecoding to check my parens still match up).

...

(shader-source) : use this to embed GLSL in your scheme scripts, eg:

(with-state
  (shader-source "
    void main()
    {
       gl_Position = gl_ModelViewProjectionMatrix*gl_Vertex;
    }
    "
    "
    void main()
    {
       gl_FragColor = vec4(0,0,1,1);
    }
    ")
  (build-cube))

This means that the shader gets compiled each time (shader-source) is
called, so it's slower than (shader) but it doesn't seem to make much
difference here. Looks kind of nuts though :)

...

fluxa : I've been bombarding this with randomly generated code to show up
crash bugs, of which there were quite a few. These are now fixed, and it's
possible to run synth networks like this! :

(mul (adsr (pink 83.77258) (pow 50.830490000000005 (adsr (klip 0.37474
(formant (add (moogbp 0.03488 (sine (pink 593.464)) 0.45523) (crush (pow
(klip 0.6328 (pink (tri (distort (crush 0.88397 0.9700400000000001
(distort (div 957.03384 (crush (crush 0.5532 (tri 524.28084) (sine (klip
(pow 590.1928300000001 762.7941000000001) 0.45570000000000005))) (sub
893.01593 226.24983000000003) 0.24364000000000002)) 0.29281)) (pink
412.85802))))) 161.36413000000002) 0.8118000000000001 0.63107)) (adsr
(crush 0.5276500000000001 (squ 91.34582) (mooglp 0.6463300000000001
0.9934000000000001 (mooghp 0.09077 (formant 0.7040700000000001
0.5303300000000001 (pow 746.1118500000001 973.4093300000001)) (moogbp (sub
865.9227300000001 805.26341) 0.38897000000000004 0.6597700000000001))))
(adsr 0.056530000000000004 (div 803.84761 542.4655300000001) 0.01421 (tri
(mul (formant (add (tri 76.8275) (mul 927.13917 757.8967))
0.23737000000000003 (mooglp (white 370.42672000000005) (pink
795.0024500000001) (sine (adsr 0.55332 0.8155600000000001 0.002 (mooghp
0.41184000000000004 0.9208400000000001 0.14027))))) (crush 0.77685 0.67381
(moogbp (pink (mooghp 0.24912 0.19428 0.15968000000000002)) 0.88909 (pow
(pow 132.98705 157.02783000000002) 301.74473)))))) (mooghp (tri 921.11936)
(mul 566.4128900000001 172.99246000000002) (klip 0.37215000000000004 (adsr
(sine 373.97574000000003) 0.38969000000000004 (moogbp 0.36010000000000003
0.7542200000000001 (squ (pow (add 747.2399 488.6317) 798.0419700000001)))
(moogbp (pink 951.4666000000001) 0.64719 0.37126000000000003)))) (squ
227.09825)) (squ (add 267.53436000000005 (mul 907.3563300000001
669.19424))))) (saw 335.79513000000003) (klip 0.42222000000000004 0.6499)
0.43561000000000005)) (add (mul 435.49835 (squ 14.191510000000001))
661.7731) (squ (formant 0.29610000000000003 (sine (moogbp
0.13398000000000002 0.6456400000000001 0.6173700000000001)) (tri (pow
(mooghp 0.81303 (div (saw 190.07364) (mooglp 0.41789000000000004 (formant
0.05024000000000001 (tri (mooghp 0.87277 (add 143.76084 (saw (sub (div
544.19379 (crush 0.58721 (klip (crush (sine (crush 0.12391 0.66822 (mooghp
(tri 905.4122400000001) 0.9486300000000001 (sine (sub (add (mooghp (klip
(white 689.13013) 0.17708000000000002) (saw (moogbp 0.79925
0.23928000000000002 0.03195)) (tri 569.62707)) (mul (mooglp (pow
832.5991100000001 171.29468000000003) 0.45538000000000006
0.29562000000000005) (sub (saw 206.48301) 293.33601000000004))) (saw (saw
86.24266))))))) 0.91346 0.6117) 0.31738000000000005) (mooglp (pink
921.6810100000001) 0.044550000000000006 (distort 0.8150000000000001
0.7224100000000001)))) (add 366.43883000000005 281.521))))
0.18705000000000002)) (squ 490.01947)) (sub (adsr (adsr 0.8968200000000001
(pow 613.2055600000001 (mul (mul 260.73545 375.42385) 610.6073700000001))
0.81571 0.39420000000000005) 0.79581 (moogbp 0.25268 0.9753700000000001
0.9659900000000001) 0.09594000000000001) 27.46505))) (distort
0.48850000000000005 (mul (formant 0.29410000000000003 (mooghp 0.80649 (mul
662.4246 (squ (pink 822.2883800000001))) 0.41418000000000005) (mooglp
(distort 0.24880000000000002 0.8908) 0.18025000000000002 (white
289.85693000000003))) (add (distort (moogbp (sine (mooglp
0.44636000000000003 (mul 924.13282 (pink 523.31613)) 0.9387900000000001))
0.8857400000000001 (sub 67.37582 769.67151)) 0.9783200000000001)
285.29251000000005)))) 878.2546800000001))))) 511.34618000000006)