;;; 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