Skip to content

Commit

Permalink
Changed randomtimbre to work better
Browse files Browse the repository at this point in the history
  • Loading branch information
@nameiwillforget
nameiwillforget committed Apr 4, 2022
1 parent 06baf3c commit ad663d0
Showing 1 changed file with 98 additions and 62 deletions.
160 changes: 98 additions & 62 deletions patches/justguess.opat
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@
(:doc "")
(:info
(:created "2020/11/16 8:22:03")
(:modified "2022/03/30 11:46:42")
(:modified "2022/04/04 1:31:40")
(:by "om-sharp")
(:version 1.05))
(:window (:size (1218 791)) (:position (308 83)))
Expand Down Expand Up @@ -304,6 +304,11 @@
(:type :standard)
(:name "DATA")
(:value nil)
(:reactive nil))
(:input
(:type :optional)
(:name "more")
(:value nil)
(:reactive nil)))
(:outputs (:output (:name "out") (:reactive nil)))
(:id 9))
Expand Down Expand Up @@ -1600,7 +1605,7 @@
(:output (:name "SELF") (:reactive nil))
(:output (:name "CONTENTS") (:reactive nil))
(:output (:name "output-mode") (:reactive nil)))
(:window (:size (500 500)) (:position (128 173)))
(:window (:size (960 998)) (:position (0 45)))
(:edition-params (:output-mode :text-list))
(:value
(:object
Expand Down Expand Up @@ -1708,6 +1713,61 @@
"The box below is a simple Csound orchestra file with three different instruments: 1 a plucked string, 2 an oscilator, 3 a Wurlitzer electric piano emulator . The box to the right contains four wave forms for the oscilator: 1 sine waves,2 sawtooth waves, 3 cube waves, 4 pulse waves.
")
(:id 25))
(:comment
(:x 643)
(:y 307)
(:w 418)
(:h 68)
(:fgcolor nil)
(:bgcolor nil)
(:border nil)
(:roundness nil)
(:text-font nil)
(:align nil)
(:text
"To randomize the timbre, connect the first and second input of the split box under \"randomtimbre\" to the second and fourth input of the \"instrument0\" box.")
(:id 26))
(:comment
(:x 246)
(:y 74)
(:w 214)
(:h 48)
(:fgcolor nil)
(:bgcolor nil)
(:border nil)
(:roundness nil)
(:text-font nil)
(:align nil)
(:text "This RNG gives the pitch of the bass note in midicents.")
(:id 27))
(:box
(:type :function)
(:reference split)
(:group-id nil)
(:name "split")
(:x 396)
(:y 308)
(:w 68)
(:h 36)
(:color nil)
(:border nil)
(:roundness nil)
(:text-font nil)
(:align nil)
(:icon :left)
(:lock nil)
(:lambda nil)
(:reactive nil)
(:inputs
(:input
(:type :standard)
(:name "LIST")
(:value nil)
(:reactive nil)))
(:outputs
(:output (:name "out") (:reactive nil))
(:output (:name "out1") (:reactive nil)))
(:id 28))
(:box
(:type :abstraction)
(:reference
Expand Down Expand Up @@ -1991,41 +2051,44 @@
(:value 1)
(:id 9))
(:box
(:type :io)
(:reference
(:out (:type omout) (:name "out") (:index 1) (:doc "")))
(:type :function)
(:reference list)
(:group-id nil)
(:name "out")
(:x 39)
(:y 269)
(:w 45)
(:h 42)
(:color
(:color-or-nil
(:color (:color 1.0 1.0 1.0 0.0))
(:t-or-nil t)))
(:border 0)
(:roundness 0)
(:name "list")
(:x 84)
(:y 273)
(:w 59)
(:h 36)
(:color nil)
(:border nil)
(:roundness nil)
(:text-font nil)
(:align :center)
(:icon :top)
(:align nil)
(:icon :left)
(:lock nil)
(:lambda nil)
(:reactive nil)
(:inputs
(:input
(:type :standard)
(:name "out-value")
(:type :optional)
(:name "x")
(:value nil)
(:reactive nil))
(:input
(:type :optional)
(:name "x")
(:value nil)
(:reactive nil)))
(:outputs)
(:outputs (:output (:name "out") (:reactive nil)))
(:id 10))
(:box
(:type :io)
(:reference
(:out (:type omout) (:name "out") (:index 2) (:doc "")))
(:out (:type omout) (:name "out") (:index 1) (:doc "")))
(:group-id nil)
(:name "out")
(:x 135)
(:y 271)
(:x 86)
(:y 314)
(:w 45)
(:h 42)
(:color
Expand All @@ -2051,10 +2114,10 @@
(:connection
(:from (:box 0 :out 0))
(:to (:box 10 :in 0))
(:attributes (:color nil :style nil :modif (0 -0.45))))
(:attributes (:color nil :style nil :modif (0 -69/181))))
(:connection (:from (:box 1 :out 0)) (:to (:box 0 :in 0)))
(:connection (:from (:box 2 :out 0)) (:to (:box 0 :in 1)))
(:connection (:from (:box 3 :out 0)) (:to (:box 11 :in 0)))
(:connection (:from (:box 3 :out 0)) (:to (:box 10 :in 1)))
(:connection (:from (:box 4 :out 0)) (:to (:box 3 :in 0)))
(:connection (:from (:box 5 :out 0)) (:to (:box 4 :in 1)))
(:connection
Expand All @@ -2066,11 +2129,12 @@
(:connection
(:from (:box 9 :out 0))
(:to (:box 3 :in 2))
(:attributes (:color nil :style nil :modif (0 23/70)))))))
(:attributes (:color nil :style nil :modif (0 23/70))))
(:connection (:from (:box 10 :out 0)) (:to (:box 11 :in 0))))))
(:group-id nil)
(:name "randomtimbre")
(:x 366)
(:y 314)
(:x 355)
(:y 273)
(:w 150)
(:h 33)
(:color nil)
Expand All @@ -2084,40 +2148,11 @@
(:lambda nil)
(:reactive nil)
(:inputs)
(:outputs
(:output (:name "out") (:reactive nil))
(:output (:name "out") (:reactive nil)))
(:id 26))
(:comment
(:x 643)
(:y 307)
(:w 379)
(:h 68)
(:fgcolor nil)
(:bgcolor nil)
(:border nil)
(:roundness nil)
(:text-font nil)
(:align nil)
(:text
"To randomize the timbre, connect the first and second input of \"randomtimbre\" to the second and fourth input of the \"instrument0\" box.")
(:id 27))
(:comment
(:x 246)
(:y 74)
(:w 214)
(:h 48)
(:fgcolor nil)
(:bgcolor nil)
(:border nil)
(:roundness nil)
(:text-font nil)
(:align nil)
(:text "This RNG gives the pitch of the bass note in midicents.")
(:id 28)))
(:outputs (:output (:name "out") (:reactive nil)))
(:id 29)))
(:connections
(:connection (:from (:box 1 :out 0)) (:to (:box 0 :in 0)))
(:connection (:from (:box 2 :out 0)) (:to (:box 9 :in 1)))
(:connection (:from (:box 2 :out 0)) (:to (:box 9 :in 2)))
(:connection (:from (:box 3 :out 0)) (:to (:box 15 :in 1)))
(:connection (:from (:box 4 :out 0)) (:to (:box 2 :in 0)))
(:connection
Expand All @@ -2138,4 +2173,5 @@
(:attributes (:color nil :style nil :modif (0 -0.27277225))))
(:connection (:from (:box 15 :out 0)) (:to (:box 11 :in 1)))
(:connection (:from (:box 23 :out 0)) (:to (:box 1 :in 0)))
(:connection (:from (:box 24 :out 0)) (:to (:box 9 :in 0)))))
(:connection (:from (:box 24 :out 1)) (:to (:box 9 :in 1)))
(:connection (:from (:box 29 :out 0)) (:to (:box 28 :in 0)))))

0 comments on commit ad663d0

Please sign in to comment.