Code: Select all
(setq last (snd-copy s))
(seq
(extract 0 (/ (get-duration 1) 3)(sound s))
(extract (- (get-duration 1) (/ (get-duration 1) 3)) (get-duration 1) (sound last)))Code: Select all
(setq last (snd-copy s))
(seq
(extract 0 (/ (get-duration 1) 3)(sound s))
(extract (- (get-duration 1) (/ (get-duration 1) 3)) (get-duration 1) (sound last)))Code: Select all
(setq beg-piece (snd-copy s))
(setq mid-piece (snd-copy s))
(setq last-piece (snd-copy s))
(seq
(extract 0 (/ (get-duration 1) 3) (sound beg-piece))
(extract (/ (get-duration 1) 3) (- (get-duration 1) (/ (get-duration 1) 3)) (sound mid-piece))
(extract (- (get-duration 1) (/ (get-duration 1) 3)) (get-duration 1) (sound last-piece)))Code: Select all
(sim
(at 0.0 (cue (extract (/ 2 3.0) 1.0 (cue s))))
(at (/ 3.0)(cue (extract (/ 3.0)(/ 2 3.0) (cue s))))
(at (/ 2 3.0)(cue (extract 0.0 (/ 3.0) (cue s)))))Code: Select all
(extract 0.0 1.0
(sim
(at 0.0 (cue (extract (/ 2 3.0) 1.0 (cue s))))
(at (/ 3.0)(cue (extract (/ 3.0)(/ 2 3.0) (cue s))))
(at (/ 2 3.0)(cue (extract-abs 0.0 2 (cue s))))
))