packages feed

hsc3-graphs 0.14 → 0.14.1

raw patch · 27 files changed

+196/−92 lines, 27 files

Files

Sound/SC3/Graph/F0_1_4Q6.hs view
@@ -31,7 +31,7 @@         src = mixFill 11 fn     in synthdef "risset" (out 0 (pan2 src pan 1)) -pattern :: P_Bind+pattern :: [P_Bind] pattern =   [(K_instr,pinstr' (Instr_Def risset False))   ,(K_id,1000)
+ Sound/SC3/Graph/F0_pkt_00.hs view
@@ -0,0 +1,18 @@+-- http://www.fredrikolofsson.com/f0blog/?q=node/490 (f0)+module Sound.SC3.Graph.F0_pkt_00 where++import Sound.SC3 {- hsc3 -}++pkt_00 :: UGen+pkt_00 =+    let sosc fr = sinOsc AR fr 0+        f0 = mce3 100 200 300 + sosc (mce3 0.11 0.22 0.33)+        ph0 = sosc (mce3 0.1 0.2 0.3) * 2 * pi+        a0 = 0.1 + sosc (mce3 0.01 0.02 0.03) * 0.05+        i = sinOsc AR f0 ph0 * a0+        w = sosc (sosc (sosc 0.13 * 5 + 6) * 8 + 50)+        s = splay i w 0.7 (sosc 1.2 * 0.6) True+    in out 0 (gVerb s 20 5 1 0.5 25 0 1 1 30)++main :: IO ()+main = audition pkt_00
+ Sound/SC3/Graph/F0_pkt_07.hs view
@@ -0,0 +1,27 @@+-- http://www.fredrikolofsson.com/f0blog/?q=node/490 (f0)+module Sound.SC3.Graph.F0_pkt_07 where++import Data.List {- base -}+import Sound.SC3 {- hsc3 -}++type T4 a = (a,a,a,a)++-- > param 6+param :: Fractional n => Int -> [T4 n]+param n =+    let f g z = take n (iterate g z)+    in zip4 (f (* 4) 2) (f (/ 2) (1/2)) (f (* 4) 1) (f (* 4) 2)++gen :: UGen -> T4 UGen -> UGen+gen f0 (m,f1,l,r) = sinOsc AR f0 0 * m + linExp (sinOsc AR f1 0) (-1) 1 l r++-- audition (pkt_07 12)+-- Sound.SC3.UGen.Dot.draw (pkt_07 6)+pkt_07 :: Int -> UGen+pkt_07 n =+    let c = foldl gen 1 (param n)+        o = sinOsc AR c 0 * 0.1+    in out 0 (gVerb (leakDC o 0.995) 16 8 0.75 0.5 15 1 0.7 0.5 16)++main :: IO ()+main = audition (pkt_07 6)
Sound/SC3/Graph/F0_sinusdeklinationen.hs view
@@ -20,7 +20,7 @@         s = sinOsc AR fre 0     in out b (pan2 s p e) -pattern :: Enum e => (Field,[e]) -> P_Bind+pattern :: Enum e => (Field,[e]) -> [P_Bind] pattern (c,z) =     case z of       [z0,z1,z2,z3] ->
+ Sound/SC3/Graph/JAR_1_4Qx.hs view
@@ -0,0 +1,15 @@+-- http://sccode.org/1-4Qx (jar)+module Sound.SC3.Graph.JAR_1_4Qx where++import Sound.SC3 {- hsc3 -}++tw :: UGen+tw =+    let l = lfCub+        f = l KR 9.1 0 * 100 + mce [200,300..500]+        g = l KR 9 0 + (l KR (1 / mce [2,3,5,7]) 0 * 0.5)+        h = l KR (1/2) 0 * 0.4 + 0.5+    in splay (l AR f 0 * (lag (g >* h) 0.1 / 2)) 1 1 0 True++main :: IO ()+main = audition (out 0 tw)
Sound/SC3/Graph/JMCC_default.hs view
@@ -5,7 +5,7 @@ import Sound.SC3.ID {- hsc3 -} import Sound.SC3.Lang.Pattern {- hsc3-lang -} -pattern :: P_Bind+pattern :: [P_Bind] pattern =     [(K_instr,psynth def)     ,(K_note,pxrand 'α' [0,1,5,7,9] inf)
Sound/SC3/Graph/NC_arpeggio.hs view
@@ -40,7 +40,7 @@ pinterp' :: (Fractional a) => P Int -> P a -> P a -> P a pinterp' n s e = join (pzipWith3 pinterp n s e) -arpeggio :: P_Bind+arpeggio :: [P_Bind] arpeggio =     [(K_instr,psynth analogarpeggio)     ,(K_dur
Sound/SC3/Graph/RD_crotale_sine.hs view
@@ -23,7 +23,7 @@             in pan2 o (sinOsc KR r2 r3) e'     in sum (zipWith (fn m) cf ca) * 0.1 -pattern :: P_Bind+pattern :: [P_Bind] pattern =     [(K_param "m",pwhitei 'α' 0 12 inf)     ,(K_dur,pxrand 'β' [1,2,3] inf)
Sound/SC3/Graph/RD_e_lamell_p.hs view
@@ -19,7 +19,7 @@         e = envGen AR 1 a 0 1 RemoveSynth e_d     in pan2 s l e -patterns :: [P_Bind]+patterns :: [[P_Bind]] patterns =     let i = psynth (synthdef "e-lamell" (out 0 e_lamell))     in [[(K_instr,i)
Sound/SC3/Graph/RD_fm_kltr_p.hs view
@@ -25,7 +25,7 @@       l = line KR p (p * r4) dt DoNothing   in out o (pan2 (sinOsc AR m 0) l e) -pattern :: P_Bind+pattern :: [P_Bind] pattern =     [(K_instr,psynth (synthdef "fm_kltr" fm_kltr))     ,(K_freq,fmap midiCPS 53)
+ Sound/SC3/Graph/RD_for_ann.hs view
@@ -0,0 +1,40 @@+-- http://musicweb.ucsd.edu/~tre/wordpress/?p=131 (rd)+module Sound.SC3.Graph.RD_for_ann where++import Sound.OSC {- hosc -}+import Sound.SC3 {- hsc3 -}++-- map sixth ["just","golden","equal"]+sixth :: Floating a => String -> a+sixth z =+    case z of+      "just" -> 8/5+      "golden" -> (sqrt 5 + 1) / 2+      "equal" -> 2 ** (8 / 12)+      _ -> 3/2++freq :: Double -> (Double,Double)+freq z =+    let n0 = 27.5+        n1 = n0 + (log z / log 2) * 12 * 12+    in (midiCPS n0,midiCPS n1)++for_ann :: Double -> Synthdef+for_ann z =+    let d = 33.6+        (f0,f1) = freq z+        k = constant+        f_e = Envelope [k f0,k f1] [d] [EnvExp] Nothing Nothing+        f = envGen AR 1 1 0 1 DoNothing f_e+        a_e = envLinen (d/4) (d/2) (d/4) 0.1+        a = envGen AR 1 1 0 1 RemoveSynth a_e+    in synthdef "for-ann" (out 0 (pan2 (sinOsc AR f 0 * a) 0 1))++score :: Double -> NRT+score z =+    let i = [d_recv (for_ann z),g_new [(1,AddToTail,0)]]+        s t = bundle t [s_new "for-ann" (-1) AddToTail 1 []]+    in NRT (bundle 0 i : map s [0,2.8 .. 669.2])++main :: IO ()+main = audition (score (sixth "just"))
Sound/SC3/Graph/RD_vla_addtn.hs view
@@ -126,7 +126,7 @@ plyr36 :: Synthdef plyr36 = synthdef "plyr36" (out 0 (vla_plyr 36)) -pattern :: P_Bind+pattern :: [P_Bind] pattern =     [(K_instr,pinstr "plyr36")     ,(K_param "loc",pwhite 'δ' (-1) 1 inf)
Sound/SC3/Graph/RD_vla_addtn_sharc.hs view
@@ -56,7 +56,7 @@ plyr36 :: Synthdef plyr36 = synthdef "plyr36" (out 0 (vla_plyr 36)) -pattern :: P_Bind+pattern :: [P_Bind] pattern =     [(K_instr,pinstr "plyr36")     ,(K_param "loc",pwhite 'δ' (-1) 1 inf)
gr/1-4Q6.hs view
@@ -30,7 +30,7 @@         src = mixFill 11 fn     in synthdef "risset" (out 0 (pan2 src pan 1)) -pattern :: P_Bind+pattern :: [P_Bind] pattern =   [(K_instr,pinstr' (Instr_Def risset False))   ,(K_id,1000)
gr/1-4QN.hs view
@@ -30,7 +30,7 @@         g = grainBuf 2 t (1 / l) b r p 2 0 (-1) 512     in synthdef "g" (out 0 (g * e)) -p1 :: P_Bind+p1 :: [P_Bind] p1 =     [(K_dur,pseq [4] inf)     ,(K_param "sdens",pseq [9000,1000,500] inf / 100)@@ -39,7 +39,7 @@     ,(K_param "rate",pwhite 'ε' (-10) 10 inf)     ,(K_param "pos",pwhite 'ζ' (-10) 10 inf)] -p2 :: P_Bind+p2 :: [P_Bind] p2 =     [(K_dur,pseq [4/3] inf)     ,(K_param "sdens",pseq [9000,1000,500,25] inf)
gr/ambient1.hs view
@@ -67,7 +67,7 @@ dur_p :: Fractional a => P a dur_p = prand 'β' [3,0.7,1,0.5] inf -pulse_p :: P_Bind+pulse_p :: [P_Bind] pulse_p =     [(K_instr,pinstr' pulse_i)     ,(K_dur,dur_p * 10)@@ -76,7 +76,7 @@     ,(K_param "attackTime",pwhite 'γ' 0 7 inf)     ,(K_param "delayTime",0.02)] -drone_p :: P_Bind+drone_p :: [P_Bind] drone_p =     [(K_instr,pinstr' drone_i)     ,(K_dur,dur_p)@@ -84,7 +84,7 @@     ,(K_amp,pwhite 'β' 0.03 0.08 inf * 0.7)     ,(K_param "phase",pwrand 'γ' [0,4.7123] [0.5,0.5] inf)] -bass_p :: P_Bind+bass_p :: [P_Bind] bass_p =     [(K_instr,pinstr' bass_i)     ,(K_dur,dur_p)
gr/arpeggio.hs view
@@ -39,7 +39,7 @@ pinterp' :: (Fractional a) => P Int -> P a -> P a -> P a pinterp' n s e = join (pzipWith3 pinterp n s e) -arpeggio :: P_Bind+arpeggio :: [P_Bind] arpeggio =     [(K_instr,psynth analogarpeggio)     ,(K_dur
gr/crotale-sine.hs view
@@ -22,7 +22,7 @@             in pan2 o (sinOsc KR r2 r3) e'     in sum (zipWith (fn m) cf ca) * 0.1 -pattern :: P_Bind+pattern :: [P_Bind] pattern =     [(K_param "m",pwhitei 'α' 0 12 inf)     ,(K_dur,pxrand 'β' [1,2,3] inf)
gr/default.hs view
@@ -4,7 +4,7 @@ import Sound.SC3.ID {- hsc3 -} import Sound.SC3.Lang.Pattern {- hsc3-lang -} -pattern :: P_Bind+pattern :: [P_Bind] pattern =     [(K_instr,psynth def)     ,(K_note,pxrand 'α' [0,1,5,7,9] inf)
gr/e-lamell-p.hs view
@@ -18,7 +18,7 @@         e = envGen AR 1 a 0 1 RemoveSynth e_d     in pan2 s l e -patterns :: [P_Bind]+patterns :: [[P_Bind]] patterns =     let i = psynth (synthdef "e-lamell" (out 0 e_lamell))     in [[(K_instr,i)
gr/fm-kltr-p.hs view
@@ -24,7 +24,7 @@       l = line KR p (p * r4) dt DoNothing   in out o (pan2 (sinOsc AR m 0) l e) -pattern :: P_Bind+pattern :: [P_Bind] pattern =     [(K_instr,psynth (synthdef "fm_kltr" fm_kltr))     ,(K_freq,fmap midiCPS 53)
gr/music-box.hs view
@@ -36,7 +36,7 @@                            in s * envGen AR 1 1 0 1 RemoveSynth e]     in offsetOut o (r * mce2 a a) -pattern :: P_Bind+pattern :: [P_Bind] pattern =     let o = prand 'ζ' [6,7] inf     in [(K_instr,psynth (synthdef "ping" ping))
gr/nokia.hs view
@@ -26,7 +26,7 @@         src = wrap2 (sinOsc AR fEnv 1 * (1 + distort')) 1     in out o (delayN (src * mce2 aEnv aEnv) 0.1 delay) -pattern :: Enum e => (Field,e) -> P_Bind+pattern :: Enum e => (Field,e) -> [P_Bind] pattern (f,z) =     let f_mul = prand 'α' [4,1,2,3,4,8] inf     in [(K_instr,pinstr "grain")
gr/sinusdeklinationen.hs view
@@ -19,7 +19,7 @@         s = sinOsc AR fre 0     in out b (pan2 s p e) -pattern :: Enum e => (Field,[e]) -> P_Bind+pattern :: Enum e => (Field,[e]) -> [P_Bind] pattern (c,z) =     case z of       [z0,z1,z2,z3] ->
gr/vla-addtn-sharc.hs view
@@ -55,7 +55,7 @@ plyr36 :: Synthdef plyr36 = synthdef "plyr36" (out 0 (vla_plyr 36)) -pattern :: P_Bind+pattern :: [P_Bind] pattern =     [(K_instr,pinstr "plyr36")     ,(K_param "loc",pwhite 'δ' (-1) 1 inf)
gr/vla-addtn.hs view
@@ -125,7 +125,7 @@ plyr36 :: Synthdef plyr36 = synthdef "plyr36" (out 0 (vla_plyr 36)) -pattern :: P_Bind+pattern :: [P_Bind] pattern =     [(K_instr,pinstr "plyr36")     ,(K_param "loc",pwhite 'δ' (-1) 1 inf)
hsc3-graphs.cabal view
@@ -1,5 +1,5 @@ Name:              hsc3-graphs-Version:           0.14+Version:           0.14.1 Synopsis:          Haskell SuperCollider Graphs Description:       hsc3-graphs provides a collection of illustrative                    unit generator graphs for hsc3.@@ -54,24 +54,27 @@                    Sound.SC3.Graph.AM_karplus_strong,                    Sound.SC3.Graph.AV_rm_octaver,                    Sound.SC3.Graph.F0_sinusdeklinationen,-                   Sound.SC3.Graph.F0_f0_tw0051,-                   Sound.SC3.Graph.F0_f0_tw0030,-                   Sound.SC3.Graph.F0_f0_tw0011,-                   Sound.SC3.Graph.F0_f0_tw0033,-                   Sound.SC3.Graph.F0_f0_2012_04_19,-                   Sound.SC3.Graph.F0_f0_tw0077,                    Sound.SC3.Graph.F0_1_4Q6,-                   Sound.SC3.Graph.F0_red_frik_m,-                   Sound.SC3.Graph.F0_pkt_26,+                   Sound.SC3.Graph.F0_buffer_display,+                   Sound.SC3.Graph.F0_f0_2012_04_19,+                   Sound.SC3.Graph.F0_f0_tw0011,+                   Sound.SC3.Graph.F0_f0_tw0014,                    Sound.SC3.Graph.F0_f0_tw0020,-                   Sound.SC3.Graph.F0_pkt_28,-                   Sound.SC3.Graph.F0_hansm,+                   Sound.SC3.Graph.F0_f0_tw0028,+                   Sound.SC3.Graph.F0_f0_tw0030,+                   Sound.SC3.Graph.F0_f0_tw0033,                    Sound.SC3.Graph.F0_f0_tw0045,                    Sound.SC3.Graph.F0_f0_tw0049,-                   Sound.SC3.Graph.F0_f0_tw0014,+                   Sound.SC3.Graph.F0_f0_tw0051,+                   Sound.SC3.Graph.F0_f0_tw0077,                    Sound.SC3.Graph.F0_f0_tw0084,-                   Sound.SC3.Graph.F0_buffer_display,-                   Sound.SC3.Graph.F0_f0_tw0028,+                   Sound.SC3.Graph.F0_hansm,+                   Sound.SC3.Graph.F0_pkt_00,+                   Sound.SC3.Graph.F0_pkt_07,+                   Sound.SC3.Graph.F0_pkt_26,+                   Sound.SC3.Graph.F0_pkt_28,+                   Sound.SC3.Graph.F0_red_frik_m,+                   Sound.SC3.Graph.JAR_1_4Qx,                    Sound.SC3.Graph.JJ_bohlen_pierce_140,                    Sound.SC3.Graph.JL_dark_sea_horns_hp,                    Sound.SC3.Graph.JL_pwm_crossfade,@@ -183,74 +186,75 @@                    Sound.SC3.Graph.PC_thx,                    Sound.SC3.Graph.PJ_forest_sounds_m,                    Sound.SC3.Graph.RB_hh_808,+                   Sound.SC3.Graph.RD_adso,                    Sound.SC3.Graph.RD_bs_070705_m,-                   Sound.SC3.Graph.RD_scritto,                    Sound.SC3.Graph.RD_ccomb_m,-                   Sound.SC3.Graph.RD_adso,-                   Sound.SC3.Graph.RD_lg_timed_m,-                   Sound.SC3.Graph.RD_three_cpsw_m,-                   Sound.SC3.Graph.RD_vlc_distrtn_m,-                   Sound.SC3.Graph.RD_implosion_m,-                   Sound.SC3.Graph.RD_discretion_m,-                   Sound.SC3.Graph.RD_diffraction_m,-                   Sound.SC3.Graph.RD_e_lamell_p,-                   Sound.SC3.Graph.RD_tgb_m,-                   Sound.SC3.Graph.RD_discretion,-                   Sound.SC3.Graph.RD_s_chirp,-                   Sound.SC3.Graph.RD_vla_addtn_sharc,-                   Sound.SC3.Graph.RD_cut_outs_m,-                   Sound.SC3.Graph.RD_vla_addtn,+                   Sound.SC3.Graph.RD_cds_070701_m,+                   Sound.SC3.Graph.RD_chrd_m,                    Sound.SC3.Graph.RD_chrd_t,-                   Sound.SC3.Graph.RD_tr_out_m,+                   Sound.SC3.Graph.RD_cricket_m,+                   Sound.SC3.Graph.RD_crotale,                    Sound.SC3.Graph.RD_crotale_sine,-                   Sound.SC3.Graph.RD_fm_kltr_p,-                   Sound.SC3.Graph.RD_fm_kltr_m,-                   Sound.SC3.Graph.RD_rzblp_hp,-                   Sound.SC3.Graph.RD_mouse_clatter_m,-                   Sound.SC3.Graph.RD_xy_interference,-                   Sound.SC3.Graph.RD_waveset,-                   Sound.SC3.Graph.RD_cds_070701_m,+                   Sound.SC3.Graph.RD_cut_outs_m,+                   Sound.SC3.Graph.RD_diffraction_m,+                   Sound.SC3.Graph.RD_discretion,+                   Sound.SC3.Graph.RD_discretion_m,+                   Sound.SC3.Graph.RD_e_lamell,+                   Sound.SC3.Graph.RD_e_lamell_p,+                   Sound.SC3.Graph.RD_eggcrate,+                   Sound.SC3.Graph.RD_eggcrate_m,+                   Sound.SC3.Graph.RD_f_lets_m,                    Sound.SC3.Graph.RD_fb_090531,                    Sound.SC3.Graph.RD_fbl_fbf,-                   Sound.SC3.Graph.RD_k_ppr,-                   Sound.SC3.Graph.RD_tipnso,-                   Sound.SC3.Graph.RD_thb,-                   Sound.SC3.Graph.RD_nharm_m,-                   Sound.SC3.Graph.RD_wial_m,-                   Sound.SC3.Graph.RD_fwalk_m,-                   Sound.SC3.Graph.RD_trmlo_u,-                   Sound.SC3.Graph.RD_chrd_m,-                   Sound.SC3.Graph.RD_h_chatter_m,-                   Sound.SC3.Graph.RD_sosc_lp_m,                    Sound.SC3.Graph.RD_feedr_m,-                   Sound.SC3.Graph.RD_crotale,-                   Sound.SC3.Graph.RD_rzblp,-                   Sound.SC3.Graph.RD_cricket_m,-                   Sound.SC3.Graph.RD_tgr_rpr_m,                    Sound.SC3.Graph.RD_fm_iter,+                   Sound.SC3.Graph.RD_fm_kltr_m,+                   Sound.SC3.Graph.RD_fm_kltr_p,+                   Sound.SC3.Graph.RD_for_ann,+                   Sound.SC3.Graph.RD_fwalk_m,+                   Sound.SC3.Graph.RD_h_chatter_m,+                   Sound.SC3.Graph.RD_implosion_m,+                   Sound.SC3.Graph.RD_k_ppr,                    Sound.SC3.Graph.RD_k_ppr_m,                    Sound.SC3.Graph.RD_klink,-                   Sound.SC3.Graph.RD_f_lets_m,-                   Sound.SC3.Graph.RD_urandom,                    Sound.SC3.Graph.RD_lf_pulses,-                   Sound.SC3.Graph.RD_trkl_m,-                   Sound.SC3.Graph.RD_xy_interference_m,-                   Sound.SC3.Graph.RD_voscil_u,-                   Sound.SC3.Graph.RD_voscil,-                   Sound.SC3.Graph.RD_eggcrate_m,+                   Sound.SC3.Graph.RD_lg_timed_m,+                   Sound.SC3.Graph.RD_lin_sosc,+                   Sound.SC3.Graph.RD_lso_061101_m,+                   Sound.SC3.Graph.RD_mouse_clatter_m,+                   Sound.SC3.Graph.RD_nharm_m,+                   Sound.SC3.Graph.RD_nharm_p,+                   Sound.SC3.Graph.RD_pattern_buffer_m,+                   Sound.SC3.Graph.RD_rzblp,+                   Sound.SC3.Graph.RD_rzblp_hp,+                   Sound.SC3.Graph.RD_rzblp_m,                    Sound.SC3.Graph.RD_rzblp_u,-                   Sound.SC3.Graph.RD_shifting_pulses_m,+                   Sound.SC3.Graph.RD_s_chirp,+                   Sound.SC3.Graph.RD_scritto,                    Sound.SC3.Graph.RD_scritto_m,-                   Sound.SC3.Graph.RD_rzblp_m,-                   Sound.SC3.Graph.RD_eggcrate,-                   Sound.SC3.Graph.RD_tgrn,                    Sound.SC3.Graph.RD_seqr,-                   Sound.SC3.Graph.RD_pattern_buffer_m,-                   Sound.SC3.Graph.RD_nharm_p,+                   Sound.SC3.Graph.RD_shifting_pulses_m,+                   Sound.SC3.Graph.RD_sosc_lp_m,+                   Sound.SC3.Graph.RD_tgb_m,+                   Sound.SC3.Graph.RD_tgr_rpr_m,+                   Sound.SC3.Graph.RD_tgrn,+                   Sound.SC3.Graph.RD_thb,+                   Sound.SC3.Graph.RD_three_cpsw_m,+                   Sound.SC3.Graph.RD_tipnso,+                   Sound.SC3.Graph.RD_tr_out_m,+                   Sound.SC3.Graph.RD_trkl_m,                    Sound.SC3.Graph.RD_trmlo,-                   Sound.SC3.Graph.RD_lin_sosc,-                   Sound.SC3.Graph.RD_e_lamell,-                   Sound.SC3.Graph.RD_lso_061101_m,+                   Sound.SC3.Graph.RD_trmlo_u,+                   Sound.SC3.Graph.RD_urandom,+                   Sound.SC3.Graph.RD_vla_addtn,+                   Sound.SC3.Graph.RD_vla_addtn_sharc,+                   Sound.SC3.Graph.RD_vlc_distrtn_m,+                   Sound.SC3.Graph.RD_voscil,+                   Sound.SC3.Graph.RD_voscil_u,+                   Sound.SC3.Graph.RD_waveset,+                   Sound.SC3.Graph.RD_wial_m,+                   Sound.SC3.Graph.RD_xy_interference,+                   Sound.SC3.Graph.RD_xy_interference_m,                    Sound.SC3.Graph.SC_bottle_m,                    Sound.SC3.Graph.SP_insects_m,                    Sound.SC3.Graph.TM_drummer