blob: 5ab60075a76f20ce02745bce73df5c209deb0143 (
plain)
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
|
;;; Emacs, format this using -*-scheme-*- mode.
;;;
;;; Copyright 2010 Free Software Foundation, Inc.
;;;
;;; This file is part of GNU Radio
;;;
;;; GNU Radio is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3, or (at your option)
;;; any later version.
;;;
;;; GNU Radio is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;
;;; This example waveform outputs a signal to an audio_alsa_sink
;;; that sounds like North American dial tone.
(use-modules (gnuradio audio_alsa))
(define-waveform (dial-tone cmd-line-args)
(vars
(sample-rate 48000)
(ampl 0.1))
(blocks
(src0 (gr:sig-source-f sample-rate gr:GR-SIN-WAVE 350 ampl))
(src1 (gr:sig-source-f sample-rate gr:GR-SIN-WAVE 440 ampl))
(sink (gr:audio-alsa-sink sample-rate "plughw:0,0"))
)
(connections
(src0 (list sink 0)) ; src0 to left input
(src1 (list sink 1)))) ; src1 to right input
|
