nx;outbuf=outbuf->nx){
430 | if((outbuf->all||outbuf->tr==tr)&&outbuf->bn!=prb){printf("\n");prb=outbuf->bn;}
431 | if(outbuf->all&&outbuf->tr!=tr)printf("# ");
432 | if(outbuf->all||outbuf->tr==tr)printf("%s",outbuf->l);
433 | }
434 | printf("\n");
435 | }
436 |
437 | printf("# Successfully parsed\n");
438 | printf("# Duration = %g seconds\n",ert/1000000);
439 | return 0;
440 | }
441 |
--------------------------------------------------------------------------------
/overtone/tools/midiconverter/midiasciiconversion.html:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 | midi <-> ascii conversion
5 |
6 |
7 |
8 |
9 | midi <-> ascii conversion - instructions
10 |
11 |
12 | dictionary
13 | "crotchet" (UK English) = "quarter note" (US English). And "bar" = "measure".
14 |
15 | ascii file format
16 | Perhaps the easiest way to understand this is to look at examples
17 | generated by using mid2asc on midi files.
18 | Each non-blank line is either a comment (starts with '#'), or an event.
19 | The first item on an event line is the time the event occurs and can be determined in one
20 | of five ways:
21 |
22 | | (i) | BA+CR | Bar number+Crotchet within bar |
23 | | (ii) | CR | Crotchet number from the very start |
24 | | (iii) | DT | Delta time from previous event - native midi format |
25 | | (iv) | FOL[+/-crotchets] | Time from end of previous note/rest on same track |
26 | | (v) | SIM[+crotchets] | Time from start of previous note/rest on same track |
27 |
28 | In case (iii), the time is in units of 'ticks', in the other four
29 | cases the time is in units of crotchets using fractional notation,
30 | e.g., 3+5/6. The denominator must divide the overall division set at
31 | the start of the file (e.g., 384). Further time descriptions can
32 | occur in brackets after the first one and are ignored by asc2mid.
33 | They are just output by mid2asc to help to see where you are, and it
34 | is OK to edit the first time description even if this becomes
35 | inconsistent with subsequent the bracketed ones.
36 |
37 | On the line there must be a track number between 0 and 15 specified by "TR <number>", and
38 | a channel number between 1 and 16 specified by "CH <number>".
39 | All numbers are either decimal or hexadecimal when preceeded by "&" or "0x".
40 |
41 |
42 | After that you can either write (i) a generic midi event, (ii) a
43 | generic meta event, (iii) a generic sysex event, or (iv) an event
44 | which has been given a name. Most common events have a name: NT (play
45 | a note), Time signature, Channel volume, Instrument, End of track,
46 | Tempo, Key, Text. For example,
47 | (i)
ST &A0 &3C &64
48 | (ii)
Meta Event type &7F 0 0 119 14 0
(don't put in length, asc2mid counts the data bytes.)
49 | (iii)
Sysex Event &F7 0 1 2 3
(don't put in length, asc2mid counts the data bytes.)
50 | (iv)
Channel volume 100
51 | Time signature 4/4, clocks/mtick 96, crotchets/32ndnote 8
52 | NT C'' 3+1/2 von=80
53 | Turn on C two octaves above middle C, lasting 3+1/2 crotchets, with velocity 80
54 | (asc2mid will insert the corresponding note-off event at the right time).
55 | NT Bb-- on
56 | Turn on Bb one-and-a-bit octaves below middle C with velocity
57 | given by most recent von on same track.
58 | NT R 3
59 | Insert a rest of 3 crotchets on this track (this doesn't actually write
60 | any midi events. Its only effect is on the next FOL or SIM).
61 |
62 | The instrument numbers go from 1 to 128. It is up to the user to put in an "End track" at
63 | the end of every track.
64 |
65 | mid2asc
66 |
67 | Usage:
mid2asc [-c] [-f,-r] [-s] midifile > textfile
68 | The -c, -f and -r flags affect how the timing of the event lines is specified.
69 | The default (none of -c, -f or -r) outputs BA+CR type timings (item
70 | (i) in above ascii file format description). There is a slight complication in
71 | this case, because the time signature affects the meaning of bar
72 | number, and the time signature can change at any time on any track,
73 | and should affect all tracks. This shouldn't cause any trouble, but
74 | to guide the eye when the time signature changes on some track,
75 | mid2asc outputs a comment line on every track. By the way, bar numbers
76 | start from 1 in keeping with usual conventions, but all other timing
77 | stuff starts from 0.
78 | -c mode outputs pure CR timings (crotchet number from very start - item (ii) in
79 | above ascii file format description).
80 | -r mode outputs DT (delta time) timings (ticks from previous event - item (iii) in
81 | above ascii file format description).
82 | -f mode outputs FOL, SIM or SIM+number timings (relative to end or start of previous note - items (iv), (v) in above ascii file format description).
83 | -s causes tracks to be output separately.
84 | asc2mid
85 | Usage:
asc2mid textfile > midifile
86 |
87 | Makes a midi file when given an ascii file in the format described
88 | above. It requires all lines corresponding to a given track to be in
89 | chronological order. (It's possible to drop this restriction, if all
90 | events are specified by the CR method, by presorting the lines.) Lines
91 | from different tracks can be separated or interleaved in any way.
92 |
93 | Other stuff
94 | The midi file format has slight redundancies so the representation
95 | is ambiguous. For example events occuring at the same time can
96 | sometimes be swapped; using running st mode is a matter of choice;
97 | using 0x8* or 0x9* for voff when velocity=0x40 is a matter of choice;
98 | there is allowed to be any junk after the end of the tracks. This
99 | means that applying mid2asc then asc2mid won't necessarily get you
100 | back to where you started. However, the choices asc2mid and mid2asc
101 | make are meant to be 'stable', so applying asc2mid, mid2asc then
102 | asc2mid should be the same as applying asc2mid. Also mid2asc asc2mid
103 | mid2asc should be the same as mid2asc.
104 |
Back up a level
105 |
106 |
107 |
--------------------------------------------------------------------------------
/tidal/awesome.tidal:
--------------------------------------------------------------------------------
1 | -- swing.tidal
2 | -- (c) 2017 by Milan Gruner
3 |
4 | bps (90/60)
5 |
6 | -- plain awesome
7 | d1 $ slow 2 $ stack [
8 | density 2 $ sound (samples "[bd:3(3,8), sn:3(2,8,6)]" "0 1 1 3 2")
9 | # delay "0.8"
10 | # pan (scale 0.25 0.75 rand)
11 | # shape (scale 0.2 0.3 sine1),
12 | every 4 (density 4) $ sound "arpy(5,8,2)"
13 | # sustain "2"
14 | # attack "0.3"
15 | # n "1 2 3 7 8 6 3 4 4 4 4"
16 | # shape "0.6",
17 | every 2 (density 2) $ sound (samples "hh(14,16,4) hh" (irand 13))
18 | # shape (scale 0.2 0.6 sine1)
19 | # sustain sine1
20 | ]
21 |
22 | d1 $ stack [
23 | every 4 (density 2) $ sound "[kd:2 (5,6,1), sn:6 (5,6,3), hh 12 (5,6,2)]"
24 | # shape (scale 0.2 0.6 saw),
25 | sound "bass:6(5,6)" # n "5 7 3 5 8 5 9 1" # shape (scale 0.2 0.8 saw1)
26 | ]
27 |
28 | d2 $ stack [
29 | every 4 (0.25 <~) $ sound "hh*12" # shape "0.8" # attack (scale 0.01 0.2 sine1),
30 | every 3 (density 1) $ sound "bass:6(3,3,0)"
31 | # n "3 1 3 1 5 1 "
32 | # shape "0.9"
33 | ]
34 |
35 | d2 silence
36 |
37 | hush
38 |
--------------------------------------------------------------------------------
/tidal/bjorklund.tidal:
--------------------------------------------------------------------------------
1 | -- bjorklund.tidal
2 | -- (c) 2017 by Milan Gruner
3 |
4 | bps (210/60)
5 |
6 | hush
7 |
8 | d1 $ e 5 9 $ sound "bd:3 sn:2 hh hh" # shape "0.4"
9 | d2 $ sound "bd:3(4,8)"
10 |
11 | d1 $ e 5 17 2 $ sound "bd [sn*2, hh]"
12 |
13 | d1 $ sound "sn:3([13 6 3]/2,8)"
14 |
15 | d1 $ sound "[bd(3,8) , sn(4,9) , hh(5,11)]"
16 |
17 | -- try them out here:
18 | d1 $ slow 1 $ sound "sn:1(3,4,1)?"
19 | d2 $ slow 1 $ sound "bd:2(3,4,2)"
20 |
21 | d1 $ sound (samples "bd*2 sn bd sn" "3 2 3 1")
22 |
23 | -- awesomely animated hihat drill
24 | d2 $ sound "hh*16 rd" # pan sine1 # shape (scale 0.2 0.6 sine1) # cutoff (scale 600 10000 sine1)
25 |
26 | d3 $ sound "[arpy*5, arpy*4] ~ arpy*2" # shape "0.2"
27 |
28 | d3 $ slow 1 $ sound (samples "sn(5,9)" "1 8 7 15 6 8") # shape (scale 0.2 0.3 sine1) # cutoff "500" # sustain "1.0 0.5 ~ 1" # resonance "0.2"
29 |
30 | d3 silence
31 |
32 | hush
33 |
34 | -- folk rhythms
35 | -- created by Bjorklund's algorithm
36 | -- originally intended for nuclear physics :D
37 | -- used with e function => e a b $
38 | -- or just drum(a,b) in rhythm
39 |
40 | -- special
41 | 4 11 Frank Zappa - Outside Now
42 | 5 11 Moussorgsky - Pictures at an Exhibition
43 | 7 8 bendir frame drum rhythm
44 | -- southern european
45 | 3 7 bulgarian ruchenitza
46 | 4 7 bulgarian ruchenitza
47 | 4 9 turkey aksak
48 | 3 5 2 persian or rumanian folk dance
49 | -- african
50 | 7 12 west african bell pattern
51 | 9 16 central african republic - rhythm necklace
52 | 11 24 14 central africa - aka pygmies rhythm necklace
53 | 13 24 5 another aka pygmies of the upper sangha rhythm necklace
54 | 5 12 south african venda clapping pattern
55 | -- arab
56 | 5 6 arab York-Samai
57 | 5 7 arab nawakhat
58 | 5 9 arab Agsag-Samai
59 | 2 5 persian khafif-e-ramal
60 | -- latin
61 | 5 8 cuban cinquillo
62 | 3 8 cuban tresillo
63 | 5 16 brazil bossa nova
64 | 3 4 cumbia (colombia)
65 | 7 16 14 brazil samba
66 |
--------------------------------------------------------------------------------
/tidal/drumulous.tidal:
--------------------------------------------------------------------------------
1 | -- drumulous.tidal
2 | -- (c) 2017 by Milan Gruner
3 |
4 | bps (120/60)
5 | hush
6 | d1 silence
7 | d2 silence
8 |
9 | d1 $ sound (samples "[bd*7 bd kd hh, sn sn hh*2 sn*8 sn] " "0 0 0 1 0 2 0") # shape "0.7" # pan (scale 0.25 0.75 sine1)
10 |
11 | d1 $ slow 1 $ sound "[kd:2(10,9,2) sn:7(4,9,3) hh(15, 18, 2)]"
12 | # shape (scale 0.3 0.7 sine1)
13 | # pan (scale 0.25 0.75 sine1)
14 | # sustain (scale 1 3 saw1)
15 |
16 | d1 $ stack [
17 | every 4 (density 0.25) $ sound "bd(7,8,2)",
18 | every 4 (e 15 20) $ sound "sn",
19 | sound "sn(20,24,5)"
20 | ]
21 |
22 | d2 $ slow 1 $ sound (samples "arpy(7,9,2)" (irand 16))
23 | # shape (scale 0.2 0.4 sine1)
24 | # sustain (scale 0.1 0.8 sine1)
25 | -- # hpf "600 1200 1800 100 200"
26 |
27 | d2 silence
28 |
--------------------------------------------------------------------------------
/tidal/dubbalicious.tidal:
--------------------------------------------------------------------------------
1 | -- dubbalicious.tidal
2 | -- (c) 2017 Milan Gruner
3 |
4 | bps (120/60)
5 |
6 | hush
7 |
8 | d1 $ stack [
9 | every 2 (0.5 <~) $ slowcat [
10 | sound "~ sn*14 ~ sn ~ bd sn*2" # speed (rand),
11 | sound "bd*16 ~" # speed sine1,
12 | sound "sn:3*8" # speed (rand)
13 | ],
14 | every 3 (density 0.5) $ sound "hh*8" # shape (scale 0.2 0.7 sine1),
15 | sound "bd:5(4,11)?" # shape "0.7" # pan sine1,
16 | every 4 (density 0.5) $ sound (samples "arpy(6,12,3)" (irand 6)) # sustain "0.4" # shape (scale 0.2 0.6 sine1)
17 | ]
18 |
19 | -- crazy hihat animation
20 | d1 $ stack [
21 | every 4 (density 0.5) $ slowcat [
22 | sound (samples "[bd:2(3,8), sn:3(3,8,2), hh:1*8]" "1") # shape tri1 # pan (scale 0.25 0.75 saw1),
23 | density 2 $ sound (samples "[hh*16, sn:3*2 bd:4*2] hh*16 hh*8" "4 5 2 6 4 7 2") # shape (scale 0.2 0.4 sine1) # speed (scale 0.2 0.6 sine1)
24 | ],
25 | every 2 (0.5 ~>) $ sound "hh:8(8,12)" # shape "0.7" # pan sine1 # speed (scale 0.2 3 saw1) # resonance "2",
26 | sound "bd sn bd sn"
27 | ]
28 |
29 | d1 $ slow 2 $ sound "bd ~ hh bd ~ sn:3 ~ ~ bd*4 ~ hh ~ sn*2 ~ hh" # delay "0"
30 |
31 | -- quirky half-step rhythm
32 | d1 $ stack [
33 | slow 2 $ slowcat [
34 | sound (samples "[lbass:6(7,8,6)?, lsn:7(1,8,3), lkd:7(3,8,1)]" "2 3 3 1 3 2 6")
35 | # shape "0.8 0.2 0.6 0.3"
36 | # shape (scale 0.4 0.4 tri1)
37 | # sustain "0.6",
38 | sound (samples "[lbass:6(2,8,6)?, lsn:7(3,8,1), lkd:7(5,8,3)]" "4 3 1 3 1 4 6 8 7 3")
39 | # shape "0.2 0.6 0.3 0.4"
40 | # shape (scale 0.4 0.7 sine1)
41 | # sustain "0.6"
42 | ],
43 | slow 4 $ sound (samples "[lhh:7(12,16,4)]" (irand 19))
44 | # shape "0.4"
45 | # speed (scale 0.1 2 sine1)
46 | # sustain "0.7",
47 | d1 $ slow 2 $ sound "lhh:7(11,16,2)" # sustain "0.7" # delay "0.3" # pan (scale 0.05 0.95 sine1)
48 | d2 $ slow 2 $ sound "latmo:4"
49 | ]
50 |
51 | d1 silence
52 | hush
53 |
54 | -- fuckaaa rhythm (best!)
55 | d1 $ slow 2 $ stack [
56 | density 2 $ sound (samples "[bd(3,8), sn(2,8,6)]" "0 1 1 3 2")
57 | # delay "0.8"
58 | # pan (scale 0.25 0.75 rand)
59 | # shape (scale 0.3 0.4 sine1),
60 | every 4 (density 4) $ sound (samples "bass1(4,8,2)" (irand 20))
61 | # sustain "0.8"
62 | # shape "0.4",
63 | every 8 (density 4) $ sound (samples "hh(14,16,4) hh" (irand 16))
64 | # shape (scale 0.2 0.4 sine1)
65 | ]
66 |
67 | hush
68 |
69 | -- quirky melody+drill combination
70 | d2 $ slow 4 $ sound (samples "sn*12 casio*7 sn cp bd*14" "1 3 4 7 8 3") # speed (scale 0.5 2 rand)
71 | d2 silence
72 |
--------------------------------------------------------------------------------
/tidal/experiments.tidal:
--------------------------------------------------------------------------------
1 | -- experiments.tidal
2 | -- (c) 2017 by Milan Gruner
3 |
4 | hush
5 |
6 | -- set cycles per second
7 | cps 1
8 | -- set tempo of 120 BPM
9 | bps (140/60)
10 |
11 | d1 $ sound "arpy:5(7,5,2)" # up (run 5) # shape "0.8 0.2 0.1 0.7"
12 |
13 | d1 $ sound "sn:3*64" # shape tri1 # pan sine1 -- # speed (run 8)
14 |
15 | d1 $ sound "bd*16 sn*8" # pan sine1 # speed (density 2.5 $ tri1)
16 |
17 | -- crazy sweeping rhythm
18 | d2 $ stack [
19 | sound "bd*2 cp sn:2*8 bd:3*6" # speed (scale 7 8 $ tri1) # pan sine1,
20 | sound "hh*32" # cutoff (scale 500 1220 $ slow 2 $ sine1) # resonance "0.7"
21 | ]
22 | -- sound "arpy(6,8) . [sn*5? cp:1*10]" # speed (scale 2 2 $ sine1) # delay "0.5 0.8 0.2 1.0"
23 |
24 | -- multi bar pattern
25 | d1 $ slowcat [
26 | sound "cp*2 sn*3" # vowel "[a e i o e]" # pan sine1,
27 | sound "cp*2 sn*3" # vowel "[u u a o e]" # pan sine1 # shape (scale 0.3 0.7 sine1),
28 | sound "cp*2 sn*3" # vowel "[o i i i e]" # pan sine1,
29 | sound (samples "drum*4" "0 1 2 3 4 4") # shape (scale 0.3 0.7 sine1)
30 | ]
31 |
32 | -- multi sound pattern
33 | d2 $ stack [
34 | --sound "arpy*8" # speed "0.5 1.0 0.5 1.0",
35 | d2 $ sound "arpy(5,6,12)" # speed rand # shape rand
36 | ]
37 |
38 | d1 silence
39 |
40 | -- time shifting/ shuffling
41 | d1 $ stack [
42 | every 3 (0.25 <~) $ sound "bd*2 sn:3*2 hh sn",
43 | every 3 (0.25 ~>) $ sound "bd sn:3 hh sn*2",
44 | every 6 (0.5 ~>) $ sound "sn:3*2 sn hh bd"
45 | ]
46 |
47 | d3 $ sound (samples "bd*8?" "0 1 1 2 4*3 3") # speed "43 3 50 1 50 1 4 50" # pan sine1
48 |
49 | -- random melody
50 | d2 $ s "arpy*8?" # n (irand 37) # delay "0.8" # shape sine1
51 |
52 | d2 $ s "arpy(7,8,2)" # n "37 30 27 18 19 22 27 37 35" # delay "0.8" # shape sine1
53 |
54 | hush
55 |
--------------------------------------------------------------------------------
/tidal/samba_for_the_salsa.tidal:
--------------------------------------------------------------------------------
1 | -- swing.tidal
2 | -- (c) 2017 by Milan Gruner
3 |
4 | bps (140/60)
5 |
6 | # samba
7 | 7 16 14
8 |
9 | d1 $ slowcat [
10 | stack [
11 | sound "lbd(7,16,14)" # shape "0.7",
12 | sound "lhh(12,16,14)" # shape "0.3",
13 | sound "arpy(3,16,14)" # shape "0.5"
14 | ],
15 | stack [
16 | sound "lbd(7,16,14)?" # shape "0.7",
17 | sound "lhh(12,16,14)?" # shape "0.3",
18 | sound "arpy(8,16,14)" # shape "0.5"
19 | ]
20 | ]
21 |
22 | -- just for reference
23 | d1 $ slow 2 $ stack [
24 | density 2 $ sound (samples "[bd:3(3,8), sn:3(2,8,6)]" "0 1 1 3 2")
25 | # delay "0.8"
26 | # pan (scale 0.25 0.75 rand)
27 | # shape (scale 0.2 0.3 sine1),
28 | every 4 (density 4) $ sound "arpy(5,8,2)"
29 | # sustain "2"
30 | # attack "0.3"
31 | # n "1 2 3 7 8 6 3 4 4 4 4"
32 | # shape "0.6",
33 | every 2 (density 2) $ sound (samples "hh(14,16,4) hh" (irand 13))
34 | # shape (scale 0.2 0.6 sine1)
35 | # sustain sine1
36 | ]
37 |
--------------------------------------------------------------------------------
/tidal/striation.tidal:
--------------------------------------------------------------------------------
1 | -- striation.tidal
2 | -- (c) 2017 by Milan Gruner
3 | -- inspired by kindohm (Mike Hodnik)
4 |
5 | bps (180/60)
6 |
7 | sound "lkd lcp [~ lkd] lcp",
8 | sound "lhh*8",
9 |
10 | d1 $ slow 2 $ slowcat [
11 | sound "amen:1",
12 | sound "amen:5",
13 | sound "[amen:4 amen:2]",
14 | sound "[amen:3, amen:6]"
15 | ]
16 |
17 | # shape "0.7"
18 | # sustain "0.0"
19 |
20 | sound "[amen:4, amen:2] amen:5 amen:1"
21 |
22 | d1 $ stack [
23 | every 3 (0.25 ~>)
24 | $ within (0.25, 0.75) (density 2)
25 | $ within (0.75, 1) (|+| speed "1.25")
26 | $ degradeBy 1
27 | $ slow 16
28 | $ striate 128
29 | $ sound "amen:2" -- :146 is max
30 | |+| delay "0.4"
31 | ]
32 | |+| delayfeedback "0.4"
33 | |+| delaytime "0.48"
34 |
35 | hush
36 |
--------------------------------------------------------------------------------
/tidal/test.tidal:
--------------------------------------------------------------------------------
1 | d1 $ sound "bd sn"
2 |
--------------------------------------------------------------------------------
/tidal/tutorial.tidal:
--------------------------------------------------------------------------------
1 | -- tutorial.tidal
2 | -- (c) 2017 by Milan Gruner
3 | -- Lots of random sounds! :D
4 |
5 | bps (120/60)
6 |
7 | hush
8 |
9 | d1 $ sound "bd:3 sn:2 bd:2 [bd sn:3 sn:3 bd:3]"
10 | d2 $ sound "hh hh hh hh"
11 | d3
12 | $ sound "arpy(6,8)"
13 | # speed "[1 0.5, 1.5 2 3 4 7 2 8 10 12]"
14 | # shape "0.8"
15 | # resonance "0.9"
16 | # attack "0 1 0.5 0.2 1"
17 | d3
18 | $ sound "arpy*3 cp"
19 | # speed "[1 0.5, 1.5 2 3 4]"
20 |
21 | d1 silence
22 |
23 | d1 $ sound "[bd sn sn, hh hh hh hh] bd sn bd"
24 | d2 $ sound "[bd bd] [bd [sn sn], sn], sn bd]"
25 |
26 | d2 $ slow 2 $ sound "arpy*12" # up "2 7 4 3 1 8 9 10 4 5 6 7"
27 |
28 | d1 $ sound "bd(3,8) sn(5,8,2)" # up "4 6 8 12"
29 |
30 | hush
31 |
32 | d1 $ sound "bd bd . sn sn sn . bd sn bd sn"
33 |
34 | d1 $ sound "[bd bd bd, [sn sn] cp, arpy [arpy arpy] arpy arpy, odx]"
35 |
36 | d1 $ sound "bd bd:4*2 cp sn"
37 | d2 $ sound "arpy*10 hh arpy*10 cp sn" # speed "[1 0.5, 1.5 2 3 4]"
38 |
39 | d1 $ density 1 $ sound "cp? bd:2*15 sn/2 bd:2? cp*5"
40 | d2 $ slow 2 $ rev (sound "[bd:2*15 sn:3*3? cp cp?]/2")
41 |
42 | d1 $ every 4 (density 4) $ sound "bd*2 [bd [sn sn*2 sn] sn]"
43 |
44 | d1 $ sound "bd*15 cp sn arpy*4 . cp cp" # gain "0.8" # delay "0.5" # shape "0.3"
45 |
--------------------------------------------------------------------------------
/visuals/.gitignore:
--------------------------------------------------------------------------------
1 | dist/
2 | .stack-work/
3 | TAGS
4 | *.cabal
5 |
--------------------------------------------------------------------------------
/visuals/HelloHylogen.hs:
--------------------------------------------------------------------------------
1 | -- HelloHylogen.hs
2 | -- (c) 2017 by Milan Gruner
3 | -- Adapted from Hylogen example code
4 |
5 | module HelloHylogen where
6 | import Hylogen.WithHylide
7 |
8 | output :: Program
9 | output = toProgram color
10 |
11 | color :: Vec4
12 | color = vec4(a*0.7, a*0.2, a*0.3, 1)
13 | where
14 | k = 40
15 | f = (*k) . sin . cos . tan . (/k)
16 | a = sum [
17 | cos(x_ uvN * f time + x_ mouse),
18 | sin(y_ uvN * f time + y_ mouse),
19 | atan(x_ uvN * f time + x_ mouse),
20 | tanh(y_ uvN * f time + y_ mouse)]
21 |
--------------------------------------------------------------------------------
/visuals/Poop.hs:
--------------------------------------------------------------------------------
1 | {-# LANGUAGE FlexibleInstances #-}
2 | {-# LANGUAGE FlexibleContexts #-}
3 | {-# LANGUAGE GADTs #-}
4 | {-# LANGUAGE RankNTypes #-}
5 |
6 | module Poop where
7 | import Hylogen.WithHylide
8 |
9 | rot :: Vec1 -> Vec2 -> Vec2
10 | rot phi a = vec2 ( cos phi * (x_ a)
11 | + sin phi * (y_ a)
12 | , (-1) * sin phi * (x_ a)
13 | + cos phi * (y_ a)
14 | )
15 |
16 | rep :: forall n. Veccable n => Vec n -> Vec n -> Vec n
17 | rep c p = mod_ p c - 0.5 * c
18 |
19 | mirrorX v = vec2 (abs (x_ v), y_ v)
20 | mirrorY v = vec2 (x_ v, abs(y_ v))
21 |
22 | output = toProgram $ vec4 (r, g, b, 0.01) + bb
23 | where
24 | r = v
25 | & rep 2
26 | & (*0.1)
27 | & (/(x_ bb))
28 | & negate
29 | g = v
30 | & rep 2
31 | & (*0.01)
32 | & (/(x_ bb))
33 | & negate
34 | b = v
35 | & rep 2
36 | & (*0.1)
37 | & (/(x_ bb))
38 | & negate
39 | v = (sin (atan ((y_ uvN' / x_ uvN' - x_ audio * len uvN')) / x_ uvN' - w_ audio)) + z_ audio
40 | uvN' = uvN
41 | & mirrorX
42 | & mirrorY
43 | & (rot (pi/2))
44 | -- & (\x -> x - rep (copy $ w_ audio) x)
45 | & (^*(y_ audio * 5))
46 | & (+(negate (mouse)))
47 | bb = texture2D backBuffer bbN
48 | bbN = uvN
49 | -- & (\x -> x - rep (copy $ w_ audio) x)
50 | & (*1.01)
51 | & mirrorX
52 | & mirrorY
53 | & rot (pi/2)
54 | & (\x -> x * 0.5 + 0.5)
55 |
--------------------------------------------------------------------------------
/visuals/Regenbogenkotze.hs:
--------------------------------------------------------------------------------
1 | -- Regenbogenkotze.hs
2 | -- (c) 2017 by Milan Gruner
3 | -- adapted from: https://github.com/sleexyz/hylogen-fun/blob/master/CruelRainbow.hs
4 |
5 | {-# LANGUAGE GADTs #-}
6 | {-# LANGUAGE RankNTypes #-}
7 | {-# LANGUAGE FlexibleContexts #-}
8 |
9 | module Regenbogenkotze where
10 |
11 | import Util
12 | import Spirangle (spirangle)
13 |
14 | output = toProgram $ vec4 (0, 0, 0, 0)
15 | & const (vec4 (v, v, v, 1) )
16 | & mix 0.1 bb
17 |
18 | bb = bbqF (texture2D backBuffer) uvN
19 |
20 | bbqF x = x
21 | & lmap (view norm)
22 | & lmap (rot (w_ audio * 100))
23 | & lmap (*(x_ audio & copy))
24 | & rgbF 0.1
25 |
26 | v = vqF vq uvN
27 |
28 | vqF x = x
29 | -- & lmap (mirrorX)
30 |
31 | beaty = beat
32 |
33 | vq uv = (1 - (sin (beaty)) * x_ (uv * 10) + cos (y_ uv * copy time))
34 | & (* copy (x_ audio))
35 |
--------------------------------------------------------------------------------
/visuals/Spirangle.hs:
--------------------------------------------------------------------------------
1 | -- Spirangle.hs
2 | -- copied from https://github.com/sleexyz/hylogen-fun/blob/master/Spirangle.hs
3 |
4 | {-# LANGUAGE GADTs #-}
5 | {-# LANGUAGE RankNTypes #-}
6 | {-# LANGUAGE FlexibleContexts #-}
7 |
8 | module Spirangle where
9 |
10 | import Util
11 |
12 |
13 |
14 | output = toProgram (spirangle osc1)
15 |
16 | spirangle draw = rgba where
17 | rgba = (line)
18 | & (over (b2a bb))
19 | & (clamp 0 1)
20 |
21 | bb = q (texture2D backBuffer) uvN
22 |
23 | q x = x
24 | & lmap (view norm)
25 | & lmap (rot ((negate 2 * pi /3) + muchless sin time ))
26 | & lmap (*1.1)
27 | & rmap (clamp 0 1)
28 |
29 | mask :: (Veccable n) => Vec n -> Vec n
30 | mask x = (x `gt` 0) ? (0, 1)
31 |
32 | gate :: (Veccable n) => Vec n -> Vec n -> Vec n -> Vec n
33 | gate s e x = ((x `geq` s) * (x `lt` e)) ? (1, 0)
34 |
35 | line :: Vec4
36 | line = vec4 (v, v, v, 1)
37 | v = 1
38 | & (*(gate (-0.35) (-0.33) (y_ uvN)))
39 | & (*(gate (-0.55) (0.65) (x_ uvN)))
40 | & (*draw)
41 |
--------------------------------------------------------------------------------
/visuals/Util.hs:
--------------------------------------------------------------------------------
1 | -- Util.hs
2 | -- copied from https://github.com/sleexyz/hylogen-fun/blob/master/Util.hs
3 |
4 | {-# LANGUAGE RankNTypes #-}
5 | {-# LANGUAGE TypeFamilies #-}
6 | {-# LANGUAGE GADTs #-}
7 |
8 | module Util (
9 | module Hylogen.WithHylide,
10 | module Data.Profunctor,
11 | module Util,
12 | ) where
13 |
14 | import Hylogen.WithHylide hiding (uv)
15 | import Data.Profunctor
16 | import Hylogen.Expr
17 |
18 |
19 | type Optic p s t a b = p a b -> p s t
20 | type Optic' p a b = Optic p a b a b
21 | type Iso s t a b = forall p. (Profunctor p) => Optic p s t a b
22 | type Iso' a b = Iso a b a b
23 | type Fold r s t a b = Optic (Forget r) s t a b
24 | type Getter s t a b = Fold a s t a b
25 | view :: forall s t a b. Getter s t a b -> s -> a
26 | view l = runForget (l (Forget id))
27 |
28 | type Image = Vec2 -> Vec4
29 |
30 | (?) :: (ToGLSLType a) => Booly -> (Expr a, Expr a) -> Expr a
31 | (?) c (a, b) = sel c a b
32 |
33 |
34 | bw :: Vec1 -> Vec4
35 | bw v = vec4 (v, v, v, 1)
36 |
37 | rot :: Vec1 -> Vec2 -> Vec2
38 | rot phi a = vec2 ( cos phi * (x_ a)
39 | + sin phi * (y_ a)
40 | , (-1) * sin phi * (x_ a)
41 | + cos phi * (y_ a)
42 | )
43 |
44 | over :: Vec4 -> Vec4 -> Vec4
45 | over x y = mix a x' y'
46 | where
47 | x' = clamp 0 1 x
48 | y' = clamp 0 1 y
49 | a = 1 - w_ x'
50 |
51 | less :: (Floating a) => Optic' (->) a a
52 | less = dimap (id) (*0.1)
53 |
54 | muchless :: (Floating a) => Optic' (->) a a
55 | muchless = dimap (id) (*0.01)
56 |
57 | norm :: (Floating a) => Iso' a a
58 | norm = dimap (\x -> x * 0.5 + 0.5) (\x -> x * 2 - 1)
59 |
60 | hsv :: Optic' (->) (Vec4) (Vec4)
61 | hsv = dimap rgb2hsv hsv2rgb
62 |
63 | rep :: forall n. Veccable n => Vec n -> Vec n -> Vec n
64 | rep c p = mod_ p c - 0.5 * c
65 |
66 | -- rgbF :: Vec1 -> (Vec2 -> Vec4) -> (Vec2 -> Vec4)
67 | rgbF :: Vec1 -> Optic' (->) Vec2 Vec4
68 | rgbF offset q pos = vec4 (r, g, b, a)
69 | where
70 | r = q (pos + copy offset) & x_
71 | g = q pos & y_
72 | b = q (pos - copy offset) & z_
73 | a = q pos & w_
74 |
75 | phi uv = atan (y_ uv/x_ uv)
76 |
77 | scale :: Floating a => a -> Iso' a a
78 | scale s = dimap (*s) (/s)
79 |
80 | mirrorX :: Vec2 -> Vec2
81 | mirrorX v = vec2 (abs $ x_ v, y_ v)
82 |
83 |
84 | mirrorY :: Vec2 -> Vec2
85 | mirrorY v = vec2 (x_ v, abs $ y_ v)
86 |
87 | wiggle :: Vec2 -> Vec2
88 | wiggle = rot (cos (time * 0.8) * 0.1)
89 |
90 | desat = hsv $ modY (*0.9)
91 |
92 | polar :: Iso' Vec2 Vec2
93 | polar = dimap c2p p2c where
94 | c2p :: Vec2 -> Vec2
95 | c2p v = vec2 (len v, phi v)
96 | p2c :: Vec2 -> Vec2
97 | p2c v = x_ v *^ vec2 (cos (y_ v), sin (y_ v))
98 |
99 |
100 | -- fixme: make polymorphic
101 | modX :: (Vec1 -> Vec1) -> (Vec4 -> Vec4)
102 | modX f v = vec4 (f (x_ v), y_ v, z_ v, w_ v)
103 | modY :: (Vec1 -> Vec1) -> (Vec4 -> Vec4)
104 | modY f v = vec4 (x_ v, f (y_ v), z_ v, w_ v)
105 | modZ :: (Vec1 -> Vec1) -> (Vec4 -> Vec4)
106 | modZ f v = vec4 (x_ v, y_ v, f (z_ v), w_ v)
107 | modW :: (Vec1 -> Vec1) -> (Vec4 -> Vec4)
108 | modW f v = vec4 (x_ v, y_ v, z_ v, f (w_ v))
109 |
110 | beat' :: Vec1
111 | beat' = 2 * pi * beat
112 |
113 | rand :: Vec1 -> Vec1
114 | rand x = x
115 | & sin
116 | & (*43758.543123)
117 | & fract
118 |
119 | rand2 :: Vec2 -> Vec2
120 | rand2 x = fract(sin(x <.> vec2(12.9898, 4.1414))) *^ 43758.5453
121 |
122 | b2a :: Vec4 -> Vec4
123 | b2a x = vec4 (xyz_ x, x_ x)
124 |
125 | gate :: (Veccable n) => Vec n -> Vec n -> Vec n -> Vec n
126 | gate s e x = ((x `geq` s) * (x `lt` e)) ? (1, 0)
127 |
128 | diff :: Floating a => (a -> a) -> (a -> a)
129 | diff f x = (f (x - delta) - f (x + delta))/(delta * 2) where
130 | delta = 0.00001
131 |
132 |
133 | grad :: (Vec2 -> Vec1) -> (Vec2 -> Vec2)
134 | grad f x = vec2 (dx, dy) where
135 | dx = f (vec2 (x_ x - delta, y_ x)) - f (vec2 (x_ x + delta, y_ x))/delta
136 | dy = f (vec2 (x_ x, y_ x - delta)) - f (vec2 (x_ x, y_ x - delta))/delta
137 | delta = 1
138 |
139 | bpf pos delta = hsv (modX (clamp (pos - delta) (pos + delta)))
140 |
--------------------------------------------------------------------------------
/visuals/package.yaml:
--------------------------------------------------------------------------------
1 | name: algorithmuss-visuals
2 | source-dirs: ./
3 | dependencies:
4 | - base
5 | - hylide
6 | - hylogen
7 | - vector-space
8 | - profunctors
9 | - lens
10 | library: {}
11 |
--------------------------------------------------------------------------------
/visuals/stack.yaml:
--------------------------------------------------------------------------------
1 | flags: {}
2 | extra-package-dbs: []
3 | packages:
4 | - '.'
5 | extra-deps:
6 | - hylide-0.1.5.0
7 | - hylogen-0.1.5.0
8 | resolver: lts-7.5
9 |
--------------------------------------------------------------------------------