Changeset 515 for ocaml-remix
- Timestamp:
- 10/29/07 20:13:53 (1 year ago)
- Files:
-
- ocaml-remix/trunk/continuous_sound_test.ml (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
ocaml-remix/trunk/continuous_sound_test.ml
r514 r515 9 9 let envelope2 = Note.from_envelope 10 10 (Envelope.adsr (s 0.8) (s 0.2) (s 0.2) 0.9 (s 0.3));; 11 let envelope3 = Note.from_envelope 12 (Envelope.adsr (s 0.85) (s 0.3) (s 0.3) 0.9 (s 0.2));; 11 13 12 14 let continuous = (Time.Seconds 0.0, Time.Forever);; … … 23 25 Layer.add_note env_layer2 24 26 (NoteUtil.repeat (Time.Seconds 0.8) envelope2) continuous;; 25 Layer.add_transparency env_layer2 (Transparency.constant 0.5) continuous;; 27 Layer.add_transparency env_layer2 (Transparency.constant 0.33) continuous;; 28 29 let env_layer3 = Layer.empty ();; 30 Layer.add_note env_layer3 31 (NoteUtil.repeat (Time.Seconds 0.85) envelope3) continuous;; 32 Layer.add_transparency env_layer3 (Transparency.constant 0.5) continuous;; 26 33 27 34 let track = Track.empty ();; 35 Track.add_layer track env_layer3;; 28 36 Track.add_layer track env_layer2;; 29 37 Track.add_layer track env_layer;;
