File: snd15.scm

package info (click to toggle)
snd 19.1-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 52,736 kB
  • sloc: ansic: 390,251; lisp: 242,546; ruby: 71,383; sh: 3,284; fortran: 2,342; csh: 1,259; cpp: 294; makefile: 287; python: 47
file content (66 lines) | stat: -rw-r--r-- 2,500 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
(define vct-multiply! float-vector-multiply!)
(define vct-scale! float-vector-scale!)
(define vct-abs! float-vector-abs!)
(define vct-add! float-vector-add!)
(define vct-subtract! float-vector-subtract!)
(define vct-offset! float-vector-offset!)
(define vct-peak float-vector-peak)
(define vct-peak-and-location float-vector-peak-and-location)
(define vct-move! float-vector-move!)
(define vct-subseq float-vector-subseq)
(define vct->string float-vector->string)
(define vct* float-vector*)
(define vct+ float-vector+)
(define vct-max float-vector-max)
(define vct-min float-vector-min)
(define vct-ref float-vector-ref)
(define vct-set! float-vector-set!)
(define region->vct region->float-vector)
(define mix-vct mix-float-vector)
(define transform->vct transform->float-vector)
(define vct->channel float-vector->channel)
(define channel->vct channel->float-vector)
(define smooth-vct smooth-float-vector)
(define vct-polynomial float-vector-polynomial)
(define mix->vct mix->float-vector)
(define pan-mix-vct pan-mix-float-vector)
(define vct-size float-vector-size)
(define vct-copy copy)
(define vct-fill! fill!)
(define vct float-vector)
(define vct-length length)
(define vct-reverse! reverse!)  ; slight difference: no optional length arg (use subvector)
(define vct->list vector->list)
(define (list->vct x) (apply float-vector x))
(define make-vct make-float-vector)
(define (vector->vct v) (copy v (make-float-vector (length v))))
(define (vct->vector v) (copy v (make-vector (length v))))
(define vct? float-vector?)


(define data-format sample-type)
(define mus-sound-data-format mus-sound-sample-type)
(define mus-data-format-name mus-sample-type-name)
(define mus-data-format->string mus-sample-type->string)
(define default-output-data-format (dilambda 
				    (lambda () *default-output-sample-type*)
				    (lambda (val) (set! *default-output-sample-type* val))))


(define* (if-cursor-follows-play-it-stays-where-play-stopped (enable #t))
  (set! *with-tracking-cursor* (and enable :track-and-stay)))

(define* (find-channel func (beg 0) snd chn edpos) 
  (scan-channel func beg #f snd chn edpos))

(define scan-chan scan-channel)

(define* (map-chan proc beg end origin snd chn edpos) 
  (map-channel proc beg (- (+ end 1) beg) snd chn edpos origin))

(define multiply-arrays float-vector-multiply!)
(define mus-sound-frames mus-sound-framples)
(define region-frames region-framples)
(define selection-frames selection-framples)
(define transform-frames transform-framples)