;;; translation of new-effects.scm to gtk/xg

(unless (provided? 'gtk4)
  (error 'gtk-error "gtk-effects.scm only works in gtk4"))

(provide 'snd-gtk-effects.scm)
(require snd-gtk snd-gtk-effects-utils.scm snd-xm-enved.scm snd-moog.scm snd-rubber.scm snd-dsp.scm)

(with-let (sublet *gtk*)
  
  (define (scale-envelope e scl)
    (if (null? e)
	()
	(cons (car e) 
	      (cons (* scl (cadr e))
		    (scale-envelope (cddr e) scl)))))
      
  (define (plausible-mark-samples)
    ;; find two marks in the current channel (in or nearest to current window)
    (let* ((snd (selected-sound))
	   (chn (selected-channel))
	   (ms (sort! (map mark-sample (marks snd chn)) <)))
      (if (< (length ms) 2)
	  (error 'no-such-mark (list "mark-related action requires two marks"))
	  (if (= (length ms) 2)
	      ms
	      (let ((favor (let ((lw (left-sample snd chn))
				 (rw (right-sample snd chn))
				 (cw (cursor snd chn)))
			    (if (>= rw cw lw)
				cw
				(* .5 (+ lw rw))))))
		;; favor is the point we center the search on
		(let centered-points ((points ms))
		  (if (= (length points) 2)
		      points
		      (let ((p1 (car points))
			    (p2 (cadr points))
			    (p3 (caddr points)))
			(if (< (abs (- p1 favor)) (abs (- p3 favor)))
			    (list p1 p2)
			    (centered-points (cdr points)))))))))))
  
  (define map-chan-over-target-with-sync
    ;; target: 'marks -> beg=closest marked sample, dur=samples to next mark
    ;;         'sound -> beg=0, dur=all samples in sound
    ;;         'selection -> beg=selection-position, dur=selection-framples
    ;;         'cursor -> beg=cursor, dur=samples to end of sound
    ;; decay is how long to run the effect past the end of the sound
    (lambda (func target origin decay)
      (cond ((and (eq? target 'selection)
		  (not (selection?)))
	     (snd-print ";no selection"))
	    ((and (eq? target 'sound)
		  (null? (sounds)))
	     (snd-print ";no sound"))
	    ((and (eq? target 'marks)
		  (or (null? (sounds))
		      (< (length (marks (selected-sound) (selected-channel))) 2)))
	     (snd-print ";no marks"))
	    (else
	     (let ((snc (sync))
		   (ms (and (eq? target 'marks)
			    (plausible-mark-samples))))
	       (let ((beg (case target
			    ((sound) 0)
			    ((selection) (selection-position))
			    ((cursor) (cursor (selected-sound) (selected-channel)))
			    (else (car ms))))
		     (overlap (if decay
				  (floor (* (srate) decay))
				  0)))
		 (apply for-each
			(lambda (snd chn)
			  (if (= (sync snd) snc)
			      (let ((end (case target 
					   ((sound cursor) (- (framples snd chn) 1))
					   ((selection)    (+ (selection-position) (selection-framples)))
					   (else           (cadr ms)))))
				(map-channel (func (- end beg)) beg (+ end overlap 1) snd chn #f
					     (format #f "~A ~A ~A" 
						     (origin target (- end beg))
						     (if (eq? target 'sound) 0 beg)
						     (and (not (eq? target 'sound)) (- (+ end 1) beg)))))))
			(if (> snc 0) 
			    (all-chans) 
			    (list (list (selected-sound)) 
				  (list (selected-channel)))))))))))
  
  
  (define (add-target mainform target-callback truncate-callback)
    ;; add a set of 3 radio buttons at the bottom of the main section for choice between sound, selection, between-marks
    ;;   target-callback should take one arg, a symbol: 'sound, 'selection, 'marks, and apply the effect accordingly (upon "DoIt")
    ;;   truncate-callback (if any) takes one arg: boolean representing toggle state (#t = on)
    (let (;(sep (gtk_separator_new GTK_ORIENTATION_HORIZONTAL))
	  (rc (gtk_box_new GTK_ORIENTATION_HORIZONTAL 0)))
      (gtk_box_pack_start (GTK_BOX mainform) rc)
      (gtk_widget_show rc)
      
      (let ((group #f))
	(for-each
	 (lambda (name type on)
	   (let ((button (gtk_radio_button_new_with_label group name)))
	     (set! group (gtk_radio_button_get_group (GTK_RADIO_BUTTON button)))
	     (gtk_box_pack_start (GTK_BOX rc) button)
	     (gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON button) on)
	     (gtk_widget_show button)
	     (g_signal_connect button "clicked" (lambda (w d) (target-callback type)) #f)))
	 '("entire sound" "selection" "between marks")
	 '(sound selection marks)
	 '(#t #f #f)))
      
      (when truncate-callback
	(let ((button (gtk_check_button_new_with_label "truncate at end")))
	  (let ((sep (gtk_separator_new GTK_ORIENTATION_HORIZONTAL)))
	    (gtk_box_pack_start (GTK_BOX rc) sep)
	    (gtk_widget_show sep))
	  (gtk_box_pack_start (GTK_BOX rc) button)
	  (gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON button) #t)
	  (gtk_widget_show button)
	  (g_signal_connect button "clicked" (lambda (w d) (truncate-callback (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON w)))) #f)))))
  
  (define (effect-framples target)
    (case target 
      ((sound)     (- (framples) 1))
      ((selection) (selection-framples))
      (else        (+ 1 (abs (apply - (plausible-mark-samples)))))))
  
  (define (sensitize-target dialog target)
    (gtk_widget_set_sensitive 
     (GTK_WIDGET (g_object_get_data (G_OBJECT dialog) "ok-button")) 
     (effect-target-ok target)))

  (define (init-xe-envelope e)
    (set! (xe-envelope e) (list 0.0 1.0 1.0 1.0)))

  
;;; *******************************
;;;                              **
;;; BEGIN PARAMETRIZED EFFECTS   **
;;;                              **
;;; *******************************
  
;;; AMPLITUDE EFFECTS
;;;
  
  (define effects-list ()) ; menu labels are updated to show current settings
  
  (define effects-menu (add-to-main-menu "Effects" (lambda () (update-label effects-list)))) ; an int
  (format *stderr* "effects: ~A, ~A, ~A~%" effects-menu (main-menu effects-menu) (GTK_IS_MENU_ITEM (main-menu effects-menu)))
  
  (define* (effects-squelch-channel amp gate-size snd chn no-silence)
    (let ((squelcher (let ((f0 (make-moving-average gate-size))
			   (f1 (make-moving-average gate-size :initial-element 1.0)))
		       (if no-silence
			   (lambda (y)
			     (let ((val (* y (moving-average f1 (ceiling (- (moving-average f0 (* y y)) amp))))))
			       (and (not (zero? val)) val)))
			   (lambda (y)
			     (* y (moving-average f1 (ceiling (- (moving-average f0 (* y y)) amp)))))))))
      (map-channel squelcher
		   0 #f snd chn #f
		   (format #f "effects-squelch-channel ~A ~A" amp gate-size))))
  
  (let ((amp-menu-list ())
	(amp-menu (gtk_menu_item_new_with_label "Amplitude Effects"))
	(amp-cascade (gtk_menu_new)))
    (gtk_menu_shell_append (GTK_MENU_SHELL (gtk_menu_item_get_submenu (GTK_MENU_ITEM (main-menu effects-menu)))) amp-menu)
    (gtk_widget_show amp-menu)
    (gtk_menu_item_set_submenu (GTK_MENU_ITEM amp-menu) amp-cascade)
    (g_signal_connect amp-menu "activate" (lambda (w d) (update-label amp-menu-list)) #f)
    
    ;; -------- Gain (gain set by gain-amount)

    (let ((child (gtk_menu_item_new_with_label "Gain"))
	  (gain-amount 1.0)
	  (gain-dialog #f)
	  (gain-target 'sound)
	  (gain-envelope #f))
      
      (gtk_menu_shell_append (GTK_MENU_SHELL amp-cascade) child)
      (gtk_widget_show child)
      (g_signal_connect child "activate" 
			(lambda (w d) 
			  (unless gain-dialog
			    (let ((initial-gain-amount 1.0)
				  (sliders ()))
			      (set! gain-dialog
				    (make-effect-dialog
				     "Gain"
				     
				     (lambda (w data) 
				       ;; Gain scales amplitude by gain amount.
				       (let ((with-env (and (not (equal? (xe-envelope gain-envelope) '(0.0 1.0 1.0 1.0)))
							    (scale-envelope (xe-envelope gain-envelope) gain-amount))))
					 (case gain-target 
					   ((sound)
					    (if with-env
						(env-sound with-env)
						(scale-by gain-amount)))
					   ((selection)
					    (if (selection?)
						(if with-env
						    (env-selection with-env)
						    (scale-selection-by gain-amount))
						(snd-print "no selection")))
					   (else 
					    (let ((pts (plausible-mark-samples)))
					      (if pts
						  (if with-env
						      (env-sound with-env (car pts) (- (cadr pts) (car pts)))
						      (scale-by gain-amount (car pts) (- (cadr pts) (car pts))))))))))
				     
				     (lambda (w data)
				       (help-dialog 
					"Gain"
					"Move the slider to change the gain scaling amount."))
				     
				     (lambda (w data)
				       (set! gain-amount initial-gain-amount)
				       (init-xe-envelope gain-envelope)
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (car sliders)) gain-amount)
				       )
				     
				     (lambda () 
				       (effect-target-ok gain-target))))
			      
			      (set! sliders
				    (add-sliders gain-dialog
						 (list (list "gain" 0.0 initial-gain-amount 5.0
							     (lambda (w data)
							       (set! gain-amount (gtk_adjustment_get_value (GTK_ADJUSTMENT w))))
							     100)))))
			    (gtk_widget_show gain-dialog)
			    (set! gain-envelope (xe-create-enved "gain" 
								 (gtk_dialog_get_content_area (GTK_DIALOG gain-dialog))
								 #f
								 '(0.0 1.0 0.0 1.0)))
			    (init-xe-envelope gain-envelope)
			    (add-target (gtk_dialog_get_content_area (GTK_DIALOG gain-dialog)) 
					(lambda (target) 
					  (set! gain-target target)
					  (sensitize-target gain-dialog target))
					#f))
			  (activate-dialog gain-dialog))
			#f)
      
      (set! amp-menu-list (cons (lambda ()
				  (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Gain (~1,2F)"  gain-amount)))
				amp-menu-list)))
  
    ;; -------- Normalize
    
    (let ((child (gtk_menu_item_new_with_label "Normalize")))
      (gtk_menu_shell_append (GTK_MENU_SHELL amp-cascade) child)
      (gtk_widget_show child)
      (let ((normalize-amount 1.0)
	    (normalize-dialog #f)
	    (normalize-target 'sound))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless normalize-dialog
			      (let ((initial-normalize-amount 1.0)
				    (sliders ()))
				(set! normalize-dialog 
				      (make-effect-dialog 
				       "Normalize"
				       
				       (lambda (w data) 
					 (case normalize-target 
					   ((sound) 
					    (scale-to normalize-amount))
					   ((selection)
					    (if (selection?)
						(scale-selection-to normalize-amount)
						(snd-print "no selection")))
					   (else
					    (let ((pts (plausible-mark-samples)))
					      (if pts
						  (scale-to normalize-amount (car pts) (- (cadr pts) (car pts))))))))
				       
				       (lambda (w data)
					 (help-dialog 
					  "Normalize"
					  "Normalize scales amplitude to the normalize amount. Move the slider to change the scaling amount."))
				       
				       (lambda (w data)
					 (set! normalize-amount initial-normalize-amount)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (car sliders)) normalize-amount)
					 )
				       
				       (lambda () 
					 (effect-target-ok normalize-target))))
				
				(set! sliders
				      (add-sliders normalize-dialog
						   (list (list "normalize" 0.0 initial-normalize-amount 1.1
							       (lambda (w data)
								 (set! normalize-amount (gtk_adjustment_get_value (GTK_ADJUSTMENT w))))
							       100))))
				(add-target (gtk_dialog_get_content_area (GTK_DIALOG normalize-dialog)) 
					    (lambda (target) 
					      (set! normalize-target target)
					      (sensitize-target normalize-dialog target))
					    #f)))
			    (activate-dialog normalize-dialog))
			  #f)
	(set! amp-menu-list (cons (lambda ()
				    (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Normalize (~1,2F)"  normalize-amount)))
				  amp-menu-list))))
    
    ;; -------- Gate (gate set by gate-amount)
    
    (let ((gate-amount 0.01)
	  (gate-dialog #f)
	  (gate-size 128)
	  (omit-silence #f))
      
      (let ((child (gtk_menu_item_new_with_label "Gate")))
	(gtk_menu_shell_append (GTK_MENU_SHELL amp-cascade) child)
	(gtk_widget_show child)
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless gate-dialog
			      ;; if gate-dialog doesn't exist, create it
			      (let ((initial-gate-amount 0.01)
				    (sliders ()))
				(set! gate-dialog
				      (make-effect-dialog 
				       "Gate"
				       
				       (lambda (w data)
					 (let ((snc (sync)))
					   (if (> snc 0)
					       (apply map
						      (lambda (snd chn)
							(if (= (sync snd) snc)
							    (effects-squelch-channel (* gate-amount gate-amount) gate-size snd chn omit-silence)))
						      (all-chans))
					       (effects-squelch-channel (* gate-amount gate-amount) gate-size (selected-sound) (selected-channel) omit-silence))))
				       
				       (lambda (w data)
					 (help-dialog "Gate"
						      "Move the slider to change the gate intensity. Higher values gate more of the sound."))
				       
				       (lambda (w data)
					 (set! gate-amount initial-gate-amount)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (car sliders)) gate-amount)
					 )))
				
				(set! sliders
				      (add-sliders gate-dialog
						   (list (list "gate" 0.0 initial-gate-amount 0.1
							       (lambda (w data)
								 (set! gate-amount (gtk_adjustment_get_value (GTK_ADJUSTMENT w))))
							       1000))))
				;; now add a toggle button setting omit-silence 
				(let ((toggle (gtk_check_button_new_with_label "Omit silence")))
				  (gtk_box_pack_start (GTK_BOX (gtk_dialog_get_content_area (GTK_DIALOG gate-dialog))) toggle)
				  (gtk_widget_show toggle)
				  (gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON toggle) omit-silence)
				  (g_signal_connect toggle "clicked" (lambda (w d) (set! omit-silence (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON toggle)))) #f))))
			    (activate-dialog gate-dialog))
			  #f)
	(set! amp-menu-list (cons (lambda ()
				    (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Gate (~1,3F)"  gate-amount)))
				  amp-menu-list)))))
  
;;; DELAY EFFECTS
;;;
  
  (let ((delay-menu-list ())
	(delay-menu (gtk_menu_item_new_with_label "Delay Effects"))
	(delay-cascade (gtk_menu_new)))
    (gtk_menu_shell_append (GTK_MENU_SHELL (gtk_menu_item_get_submenu (GTK_MENU_ITEM (main-menu effects-menu)))) delay-menu)
    (gtk_widget_show delay-menu)
    (gtk_menu_item_set_submenu (GTK_MENU_ITEM delay-menu) delay-cascade)
    (g_signal_connect delay-menu "activate" (lambda (w d) (update-label delay-menu-list)) #f)
    
    ;; -------- Echo (controlled by delay-time and echo-amount)
    
    (let ((child (gtk_menu_item_new_with_label "Echo")))
      (gtk_menu_shell_append (GTK_MENU_SHELL delay-cascade) child)
      (gtk_widget_show child)
      (let ((delay-time .5) ; i.e. delay between echoes
	  (echo-amount .2)
	  (echo-dialog #f)
	  (echo-target 'sound)
	  (echo-truncate #t))
	;; echo-decay? -- using (* 4 delay-time) currently
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless echo-dialog
			      (let ((initial-delay-time 0.5)
				    (initial-echo-amount 0.2)
				    (sliders ()))
				(set! echo-dialog 
				      (make-effect-dialog 
				       "Echo"
				       
				       (lambda (w data)
					 (map-chan-over-target-with-sync 
					  (lambda (cutoff) 
					    (let ((del (make-delay (round (* delay-time (srate)))))
						  (genv (make-env (list 0.0 1.0 cutoff 1.0 (+ cutoff 1) 0.0 (+ cutoff 100) 0.0) :length (+ cutoff 100))))
					      (lambda (inval)
						(+ inval
						   (delay del
							  (* echo-amount (+ (tap del) (* (env genv) inval))))))))
					  echo-target
					  (lambda (target input-samps) 
					    (format #f "effects-echo ~A ~A ~A" 
						    (and (not (eq? target 'sound)) input-samps)
						    delay-time echo-amount))
					  (and (not echo-truncate) 
					       (* 4 delay-time))))
				       
				       (lambda (w data)
					 (help-dialog "Echo"
						      "The sliders change the delay time and echo amount."))
				       
				       (lambda (w data)   
					 (set! delay-time initial-delay-time)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (car sliders)) delay-time)
					 (set! echo-amount initial-echo-amount)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (cadr sliders)) echo-amount)
					 )
				       
				       (lambda () 
					 (effect-target-ok echo-target))))
				
				(set! sliders
				      (add-sliders echo-dialog
						   (list (list "delay time" 0.0 initial-delay-time 2.0
							       (lambda (w data)
								 (set! delay-time (gtk_adjustment_get_value (GTK_ADJUSTMENT (car sliders)))))
							       100)
							 (list "echo amount" 0.0 initial-echo-amount 1.0
							       (lambda (w data)
								 (set! echo-amount (gtk_adjustment_get_value (GTK_ADJUSTMENT (cadr sliders)))))
							       100))))
				(add-target (gtk_dialog_get_content_area (GTK_DIALOG echo-dialog)) 
					    (lambda (target) 
					      (set! echo-target target)
					      (sensitize-target echo-dialog target))
					    (lambda (truncate) 
					      (set! echo-truncate truncate)))))
			    (activate-dialog echo-dialog))
			  #f)
	(set! delay-menu-list (cons (lambda ()
				      (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Echo (~1,2F ~1,2F)" delay-time echo-amount)))
				    delay-menu-list))))
    
    ;; -------- Filtered echo
    
    (let ((child (gtk_menu_item_new_with_label "Filtered echo")))
      (gtk_menu_shell_append (GTK_MENU_SHELL delay-cascade) child)
      (gtk_widget_show child)
      (let ((flecho-scaler 0.5)
	    (flecho-delay 0.9)
	    (flecho-dialog #f)
	    (flecho-target 'sound)
	    (flecho-truncate #t))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless flecho-dialog
			      (let ((initial-flecho-scaler 0.5)
				    (initial-flecho-delay 0.9)
				    (sliders ()))
				(set! flecho-dialog 
				      (make-effect-dialog 
				       "Filtered echo"
				       
				       (lambda (w data)
					 (map-chan-over-target-with-sync
					  (lambda (input-samps) 
					    (let ((flt (make-fir-filter :order 4 
									:xcoeffs #r(.125 .25 .25 .125)))
						  (del (make-delay (round (* flecho-delay (srate)))))
						  (genv (make-env (list 0.0 1.0 input-samps 1.0 (+ input-samps 1) 0.0 (+ input-samps 100) 0.0) 
								  :length (+ input-samps 100))))
					      (lambda (inval)
						(+ inval 
						   (delay del 
							  (fir-filter flt (* flecho-scaler 
									     (+ (tap del) 
										(* (env genv) inval)))))))))
					  flecho-target 
					  (lambda (target input-samps) 
					    (format #f "effects-flecho ~A ~A ~A"
						    flecho-scaler flecho-delay
						    (and (not (eq? target 'sound)) input-samps)))
					  (and (not flecho-truncate) 
					       (* 4 flecho-delay))))
				       
				       (lambda (w data)
					 (help-dialog "Filtered echo"
						      "Move the sliders to set the filter scaler and the delay time in seconds."))
				       
				       (lambda (w data)
					 (set! flecho-scaler initial-flecho-scaler)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (car sliders)) flecho-scaler)
					 (set! flecho-delay initial-flecho-delay)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (cadr sliders)) flecho-delay)
					 )
				       
				       (lambda () 
					 (effect-target-ok flecho-target))))
				
				(set! sliders
				      (add-sliders flecho-dialog
						   (list (list "filter scaler" 0.0 initial-flecho-scaler 1.0
							       (lambda (w data)
								 (set! flecho-scaler (gtk_adjustment_get_value (GTK_ADJUSTMENT (car sliders)))))
							       100)
							 (list "delay time (secs)" 0.0 initial-flecho-delay 3.0
							       (lambda (w data)
								 (set! flecho-delay (gtk_adjustment_get_value (GTK_ADJUSTMENT (cadr sliders)))))
							       100))))
				(add-target (gtk_dialog_get_content_area (GTK_DIALOG flecho-dialog)) 
					    (lambda (target) 
					      (set! flecho-target target)
					      (sensitize-target flecho-dialog target))
					    (lambda (truncate) 
					      (set! flecho-truncate truncate)))))
			    (activate-dialog flecho-dialog))
			  #f)
	(set! delay-menu-list (cons (lambda ()
				      (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Filtered echo (~1,2F ~1,2F)" flecho-scaler flecho-delay)))
				    delay-menu-list))))
    
    ;; -------- Modulated echo
    
    (let ((child (gtk_menu_item_new_with_label "Modulated echo"))
	  (zecho-scaler 0.5)
	  (zecho-delay 0.75)
	  (zecho-freq 6)
	  (zecho-amp 10.0)
	  (zecho-dialog #f)
	  (zecho-target 'sound)
	  (zecho-truncate #t)
      
	  (zecho-1
	   (lambda (scaler secs frq amp cutoff)
	     (let ((os (make-oscil frq))
		   (del (let ((len (round (* secs (srate)))))
			  (make-delay len :max-size (round (+ len amp 1)))))
		   (genv (make-env (list 0.0 1.0 cutoff 1.0 (+ cutoff 1) 0.0 (+ cutoff 100) 0.0) :length (+ cutoff 100))))
	       (lambda (inval)
		 (+ inval 
		    (delay del 
			   (* scaler (+ (tap del) (* (env genv) inval)))
			   (* amp (oscil os)))))))))
      
      (gtk_menu_shell_append (GTK_MENU_SHELL delay-cascade) child)
      (gtk_widget_show child)
      (g_signal_connect child "activate"
			(lambda (w d) 
			  (unless zecho-dialog
			    (let ((initial-zecho-scaler 0.5)
				  (initial-zecho-delay 0.75)
				  (initial-zecho-freq 6)
				  (initial-zecho-amp 10.0)
				  (sliders ()))
			      (set! zecho-dialog 
				    (make-effect-dialog 
				     "Modulated echo"
				     
				     (lambda (w data)
				       (map-chan-over-target-with-sync
					(lambda (input-samps)
					  (zecho-1 zecho-scaler zecho-delay zecho-freq zecho-amp input-samps)) 
					zecho-target
					(lambda (target input-samps) 
					  (format #f "effects-zecho ~A ~A ~A ~A ~A"
						  zecho-scaler zecho-delay zecho-freq zecho-amp
						  (and (not (eq? target 'sound)) input-samps)))
					(and (not zecho-truncate)
					     (* 4 zecho-delay))))
				     
				     (lambda (w data)
				       (help-dialog "Modulated echo"
						    "Move the sliders to set the echo scaler, the delay time in seconds, 
the modulation frequency, and the echo amplitude."))
				     
				     (lambda (w data)
				       (set! zecho-scaler initial-zecho-scaler)
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 0)) zecho-scaler)
				       (set! zecho-delay initial-zecho-delay)
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 1)) zecho-delay)
				       (set! zecho-freq initial-zecho-freq)
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 2)) zecho-freq)
				       (set! zecho-amp initial-zecho-amp)
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 3)) zecho-amp)
				       )
				     
				     (lambda () 
				       (effect-target-ok zecho-target))))
			      
			      (set! sliders
				    (add-sliders zecho-dialog
						 (list (list "echo scaler" 0.0 initial-zecho-scaler 1.0
							     (lambda (w data)
							       (set! zecho-scaler (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							     100)
						       (list "delay time (secs)" 0.0 initial-zecho-delay 3.0
							     (lambda (w data)
							       (set! zecho-delay (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 1)))))
							     100)
						       (list "modulation frequency" 0.0 initial-zecho-freq 100.0
							     (lambda (w data)
							       (set! zecho-freq (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 2)))))
							     100)
						       (list "modulation amplitude" 0.0 initial-zecho-amp 100.0
							     (lambda (w data)
							       (set! zecho-amp (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 3)))))
							     100))))
			      (add-target (gtk_dialog_get_content_area (GTK_DIALOG zecho-dialog)) 
					  (lambda (target) 
					    (set! zecho-target target)
					    (sensitize-target zecho-dialog target))
					  (lambda (truncate) 
					    (set! zecho-truncate truncate)))))
			  (activate-dialog zecho-dialog))
			#f)
      
      (set! delay-menu-list (cons (lambda ()
				    (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Modulated echo (~1,2F ~1,2F ~1,2F ~1,2F)" 
								zecho-scaler zecho-delay zecho-freq zecho-amp)))
				  delay-menu-list)))
    )
  
  
;;; FILTERS
;;;
  
  (define* (effects-comb-filter scaler size beg dur snd chn)
    (let ((delay-line (make-float-vector size))
	  (delay-loc 0))
      (lambda (x)
	(let ((result (delay-line delay-loc)))
	  (set! (delay-line delay-loc) (+ x (* scaler result)))
	  (set! delay-loc (+ 1 delay-loc))
	  (if (= delay-loc size) (set! delay-loc 0))
	  result))))
  
  (let ((filter-menu-list ())
	(filter-cascade (gtk_menu_new)))
    (let ((filter-menu (gtk_menu_item_new_with_label "Filter Effects")))
      (gtk_menu_shell_append (GTK_MENU_SHELL (gtk_menu_item_get_submenu (GTK_MENU_ITEM (main-menu effects-menu)))) filter-menu)
      (gtk_widget_show filter-menu)
      (gtk_menu_item_set_submenu (GTK_MENU_ITEM filter-menu) filter-cascade)
      (g_signal_connect filter-menu "activate" (lambda (w d) (update-label filter-menu-list)) #f))
    
    ;; -------- Butterworth band-pass filter
    
    (let ((child (gtk_menu_item_new_with_label "Band-pass filter")))
      (gtk_menu_shell_append (GTK_MENU_SHELL filter-cascade) child)
      (gtk_widget_show child)
      (let ((band-pass-freq 1000)
	    (band-pass-bw 100)
	    (band-pass-dialog #f)
	    (band-pass-target 'sound))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless band-pass-dialog
			      (let ((initial-band-pass-freq 1000)
				    (initial-band-pass-bw 100)
				    (sliders ()))
				(set! band-pass-dialog 
				      (make-effect-dialog 
				       "Band-pass filter"
				       
				       (lambda (w data) 
					 (let ((flt (make-butter-band-pass band-pass-freq band-pass-bw)))
					   (case band-pass-target 
					     ((sound)
					      (filter-sound flt #f #f #f #f (format #f "effects-bbp ~A ~A 0 #f" band-pass-freq band-pass-bw)))
					     ((selection)
					      (filter-selection flt))
					     (else 
					      (let ((ms (plausible-mark-samples)))
						(let ((bg (car ms))
						      (nd (- (+ (cadr ms) 1) (car ms))))
						  (clm-channel flt bg nd #f #f #f #f 
							       (format #f "effects-bbp ~A ~A ~A ~A" band-pass-freq band-pass-bw bg nd))))))))
				       
				       (lambda (w data)
					 (help-dialog "Band-pass filter"
						      "Butterworth band-pass filter. Move the sliders to change the center frequency and bandwidth."))
				       
				       (lambda (w data)
					 (set! band-pass-freq initial-band-pass-freq)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 0)) (scale-log->linear 20 band-pass-freq 22050))
					 (set! band-pass-bw initial-band-pass-bw)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 1)) band-pass-bw)
					 )
				       
				       (lambda () 
					 (effect-target-ok band-pass-target))))
				
				(set! sliders
				      (add-sliders band-pass-dialog
						   (list (list "center frequency" 20 initial-band-pass-freq 22050
							       (lambda (w data)
								 (set! band-pass-freq (scale-linear->log 20 
													 (gtk_adjustment_get_value (GTK_ADJUSTMENT (car sliders)))
													 22050)))
							       1 'log)
							 (list "bandwidth" 0 initial-band-pass-bw 1000
							       (lambda (w data)
								 (set! band-pass-bw (gtk_adjustment_get_value (GTK_ADJUSTMENT (cadr sliders)))))
							       1))))
				(add-target (gtk_dialog_get_content_area (GTK_DIALOG band-pass-dialog)) 
					    (lambda (target) 
					      (set! band-pass-target target)
					      (sensitize-target band-pass-dialog target))
					    #f)))
			    (activate-dialog band-pass-dialog))
			  #f)
	(set! filter-menu-list (cons (lambda ()
				       (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Band-pass filter (~,2F ~D)" band-pass-freq band-pass-bw)))
				     filter-menu-list))))
    
    ;; -------- Butterworth band-reject (notch) filter
    
    (let ((child (gtk_menu_item_new_with_label "Band-reject filter")))
      (gtk_menu_shell_append (GTK_MENU_SHELL filter-cascade) child)
      (gtk_widget_show child)
      (let ((notch-freq 100)
	    (notch-bw 100)
	    (notch-dialog #f)
	    (notch-target 'sound))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless notch-dialog
			      (let ((initial-notch-freq 100)
				    (initial-notch-bw 100)
				    (sliders ()))
				(set! notch-dialog 
				      (make-effect-dialog 
				       "Band-reject filter"
				       
				       (lambda (w data) 
					 (let ((flt (make-butter-band-reject notch-freq notch-bw)))
					   (case notch-target 
					     ((sound)     (filter-sound flt #f #f #f #f (format #f "effects-bbr ~A ~A 0 #f" notch-freq notch-bw)))
					     ((selection) (filter-selection flt))
					     (else (let ((ms (plausible-mark-samples)))
						     (let ((bg (car ms))
							   (nd (- (+ (cadr ms) 1) (car ms))))
						       (clm-channel flt bg nd #f #f #f #f 
								    (format #f "effects-bbr ~A ~A ~A ~A" notch-freq notch-bw bg nd))))))))
				       
				       (lambda (w data)
					 (help-dialog "Band-reject filter"
						      "Butterworth band-reject filter. Move the sliders to change the center frequency and bandwidth."))
				       
				       (lambda (w data)
					 (set! notch-freq initial-notch-freq)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 0)) (scale-log->linear 20 notch-freq 22050))
					 (set! notch-bw initial-notch-bw)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 1)) notch-bw)
					 )
				       
				       (lambda () 
					 (effect-target-ok notch-target))))
				
				(set! sliders
				      (add-sliders notch-dialog
						   (list (list "center frequency" 20 initial-notch-freq 22050
							       (lambda (w data)
								 (set! notch-freq (scale-linear->log 20 (gtk_adjustment_get_value (GTK_ADJUSTMENT (car sliders))) 22050)))
							       1 'log)
							 (list "bandwidth" 0 initial-notch-bw 1000
							       (lambda (w data)
								 (set! notch-bw (gtk_adjustment_get_value (GTK_ADJUSTMENT (cadr sliders)))))
							       1))))
				(add-target (gtk_dialog_get_content_area (GTK_DIALOG notch-dialog)) 
					    (lambda (target) 
					      (set! notch-target target)
					      (sensitize-target notch-dialog target))
					    #f)))
			    (activate-dialog notch-dialog))
			  #f)
	(set! filter-menu-list (cons (lambda ()
				       (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Band-reject filter (~,2F ~D)" notch-freq notch-bw)))
				     filter-menu-list))))
    
    ;; -------- Butterworth high-pass filter
    
    (let ((child (gtk_menu_item_new_with_label "High-pass filter")))
      (gtk_menu_shell_append (GTK_MENU_SHELL filter-cascade) child)
      (gtk_widget_show child)
      (let ((high-pass-freq 100)
	    (high-pass-dialog #f)
	    (high-pass-target 'sound))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless high-pass-dialog
			      (let ((initial-high-pass-freq 100)
				    (sliders ()))
				(set! high-pass-dialog 
				      (make-effect-dialog 
				       "High-pass filter"
				       
				       (lambda (w data) 
					 (let ((flt (make-butter-high-pass high-pass-freq)))
					   (case high-pass-target 
					     ((sound)     (filter-sound flt #f #f #f #f (format #f "effects-bhp ~A 0 #f" high-pass-freq)))
					     ((selection) (filter-selection flt))
					     (else (let ((ms (plausible-mark-samples)))
						     (let ((bg (car ms))
							   (nd (- (+ (cadr ms) 1) (car ms))))
						       (clm-channel flt bg nd #f #f #f #f 
								    (format #f "effects-bhp ~A ~A ~A" high-pass-freq bg nd))))))))
				       
				       (lambda (w data)
					 (help-dialog "High-pass filter"
						      "Butterworth high-pass filter. Move the slider to change the high-pass cutoff frequency."))
				       
				       (lambda (w data)
					 (set! high-pass-freq initial-high-pass-freq)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 0)) (scale-log->linear 20 high-pass-freq 22050))
					 )
				       
				       (lambda () 
					 (effect-target-ok high-pass-target))))
				
				(set! sliders
				      (add-sliders high-pass-dialog
						   (list (list "high-pass cutoff frequency" 20 initial-high-pass-freq 22050
							       (lambda (w data)
								 (set! high-pass-freq
								       (scale-linear->log 20 (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0))) 22050)))
							       1 'log))))
				(add-target (gtk_dialog_get_content_area (GTK_DIALOG high-pass-dialog)) 
					    (lambda (target) 
					      (set! high-pass-target target)
					      (sensitize-target high-pass-dialog target))
					    #f)))
			    (activate-dialog high-pass-dialog))
			  #f)
	(set! filter-menu-list (cons (lambda ()
				       (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "High-pass filter (~,2F)" high-pass-freq)))
				     filter-menu-list))))
    
    ;; -------- Butterworth low-pass filter
    
    (let ((child (gtk_menu_item_new_with_label "Low-pass filter")))
      (gtk_menu_shell_append (GTK_MENU_SHELL filter-cascade) child)
      (gtk_widget_show child)
      (let ((low-pass-freq 1000)
	    (low-pass-dialog #f)
	    (low-pass-target 'sound))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless low-pass-dialog
			      (let ((initial-low-pass-freq 1000)
				    (sliders ()))
				(sete! low-pass-dialog 
				       (make-effect-dialog 
					"Low-pass filter"
					
					(lambda (w data) 
					  (let ((flt (make-butter-low-pass low-pass-freq)))
					    (case low-pass-target 
					      ((sound)	    (filter-sound flt #f #f #f #f (format #f "effects-blp ~A 0 #f" low-pass-freq)))
					      ((selection) (filter-selection flt))
					      (else (let ((ms (plausible-mark-samples)))
						      (let ((bg (car ms))
							    (nd (- (+ (cadr ms) 1) (car ms))))
							(clm-channel flt bg nd #f #f #f #f 
								     (format #f "effects-blp ~A ~A ~A" low-pass-freq bg nd))))))))
					
					(lambda (w data)
					  (help-dialog "Low-pass filter"
						       "Butterworth low-pass filter. Move the slider to change the low-pass cutoff frequency."))
					
					(lambda (w data)
					  (set! low-pass-freq initial-low-pass-freq)
					  (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 0)) (scale-log->linear 20 low-pass-freq 22050))
					  )
					
					(lambda () 
					  (effect-target-ok low-pass-target))))
				
				(set! sliders
				      (add-sliders low-pass-dialog
						   (list (list "low-pass cutoff frequency" 20 initial-low-pass-freq 22050
							       (lambda (w data)
								 (set! low-pass-freq 
								       (scale-linear->log 20 (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0))) 22050)))
							       1 'log))))
				(add-target (gtk_dialog_get_content_area (GTK_DIALOG low-pass-dialog)) 
					    (lambda (target) 
					      (set! low-pass-target target)
					      (sensitize-target low-pass-dialog target))
					    #f)))
			    (activate-dialog low-pass-dialog))
			  #f)
	(set! filter-menu-list (cons (lambda ()
				       (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Low-pass filter (~,2F)" low-pass-freq)))
				     filter-menu-list))))
    
    ;; -------- Comb filter
    
    (let ((child (gtk_menu_item_new_with_label "Comb filter")))
      (gtk_menu_shell_append (GTK_MENU_SHELL filter-cascade) child)
      (gtk_widget_show child)
      (let ((comb-scaler 0.1)
	    (comb-size 50)
	    (comb-dialog #f)
	    (comb-target 'sound))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless comb-dialog
			      (let ((initial-comb-scaler 0.1)
				    (initial-comb-size 50)
				    (sliders ()))
				(set! comb-dialog 
				      (make-effect-dialog 
				       "Comb filter"
				       
				       (lambda (w data) 
					 (map-chan-over-target-with-sync
					  (lambda (ignored) 
					    (effects-comb-filter comb-scaler comb-size)) 
					  comb-target 
					  (lambda (target samps)
					    (format #f "effects-comb-filter ~A ~A" comb-scaler comb-size))
					  #f))
				       
				       (lambda (w data)
					 (help-dialog "Comb filter"
						      "Move the sliders to change the comb scaler and size."))
				       
				       (lambda (w data)
					 (set! comb-scaler initial-comb-scaler)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 0)) comb-scaler)
					 (set! comb-size initial-comb-size)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 1)) comb-size)
					 )
				       
				       (lambda () 
					 (effect-target-ok comb-target))))
				
				(set! sliders
				      (add-sliders comb-dialog
						   (list (list "scaler" 0.0 initial-comb-scaler 1.0
							       (lambda (w data)
								 (set! comb-scaler (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							       100)
							 (list "size" 0 initial-comb-size 100
							       (lambda (w data)
								 (set! comb-size (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							       1))))
				(add-target (gtk_dialog_get_content_area (GTK_DIALOG comb-dialog)) 
					    (lambda (target) 
					      (set! comb-target target)
					      (sensitize-target comb-dialog target))
					    #f)))
			    (activate-dialog comb-dialog))
			  #f)
	(set! filter-menu-list (cons (lambda ()
				       (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Comb filter (~1,2F ~D)" comb-scaler comb-size)))
				     filter-menu-list))))
    
    ;; -------- Comb-chord filter
    
    (let ((child (gtk_menu_item_new_with_label "Comb chord filter"))
	  (new-comb-chord-scaler 0.95)
	  (new-comb-chord-size 60)
	  (new-comb-chord-amp 0.3)
	  (new-comb-chord-interval-one 0.75)
	  (new-comb-chord-interval-two 1.20)
	  (new-comb-chord-dialog #f)
	  (new-comb-chord-target 'sound)
      
	  (new-comb-chord
	   (lambda (scaler size amp interval-one interval-two)
	     ;; Comb chord filter: create chords by using filters at harmonically related sizes.
	     (let ((cs (make-comb-bank (vector (make-comb scaler size)
					       (make-comb scaler (* size interval-one))
					       (make-comb scaler (* size interval-two))))))
	       (lambda (x)
		 (* amp (comb-bank cs x)))))))
      
      (gtk_menu_shell_append (GTK_MENU_SHELL filter-cascade) child)
      (gtk_widget_show child)
      (g_signal_connect child "activate"
			(lambda (w d) 
			  (unless new-comb-chord-dialog
			    (let ((initial-new-comb-chord-scaler 0.95)
				  (initial-new-comb-chord-size 60)
				  (initial-new-comb-chord-amp 0.3)
				  (initial-new-comb-chord-interval-one 0.75)
				  (initial-new-comb-chord-interval-two 1.20)
				  (sliders ()))
			      (set! new-comb-chord-dialog
				    (make-effect-dialog 
				     "Comb chord filter"
				     
				     (lambda (w data)
				       (map-chan-over-target-with-sync
					(lambda (ignored)
					  (new-comb-chord new-comb-chord-scaler new-comb-chord-size new-comb-chord-amp
							  new-comb-chord-interval-one new-comb-chord-interval-two))
					new-comb-chord-target
					(lambda (target samps)
					  (format #f "effects-comb-chord ~A ~A ~A ~A ~A" 
						  new-comb-chord-scaler new-comb-chord-size new-comb-chord-amp
						  new-comb-chord-interval-one new-comb-chord-interval-two))
					#f))
				     
				     (lambda (w data)
				       (help-dialog "Comb chord filter"
						    "Creates chords by using filters at harmonically related sizes.
Move the sliders to set the comb chord parameters."))
				     
				     (lambda (w data)
				       (set! new-comb-chord-scaler initial-new-comb-chord-scaler)
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 0)) new-comb-chord-scaler)
				       (set! new-comb-chord-size initial-new-comb-chord-size)
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 1)) new-comb-chord-size)
				       (set! new-comb-chord-amp initial-new-comb-chord-amp)
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 2)) new-comb-chord-amp)
				       (set! new-comb-chord-interval-one initial-new-comb-chord-interval-one)
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 3)) new-comb-chord-interval-one)
				       (set! new-comb-chord-interval-two initial-new-comb-chord-interval-two)
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 4)) new-comb-chord-interval-two)
				       )
				     
				     (lambda () 
				       (effect-target-ok new-comb-chord-target))))
			      
			      (set! sliders
				    (add-sliders new-comb-chord-dialog
						 (list (list "chord scaler" 0.0 initial-new-comb-chord-scaler 1.0
							     (lambda (w data)
							       (set! new-comb-chord-scaler (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							     100)
						       (list "chord size" 0 initial-new-comb-chord-size 100
							     (lambda (w data)
							       (set! new-comb-chord-size (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 1)))))
							     1)
						       (list "amplitude" 0.0 initial-new-comb-chord-amp 1.0
							     (lambda (w data)
							       (set! new-comb-chord-amp (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 2)))))
							     100)
						       (list "interval one" 0.0 initial-new-comb-chord-interval-one 2.0
							     (lambda (w data)
							       (set! new-comb-chord-interval-one (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 4)))))
							     100)
						       (list "interval two" 0.0 initial-new-comb-chord-interval-two 2.0
							     (lambda (w data)
							       (set! new-comb-chord-interval-two (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 4)))))
							     100))))
			      (add-target (gtk_dialog_get_content_area (GTK_DIALOG new-comb-chord-dialog))
					  (lambda (target) 
					    (set! new-comb-chord-target target)
					    (sensitize-target new-comb-chord-dialog target))
					  #f)))
			  (activate-dialog new-comb-chord-dialog))
			#f)
      (set! filter-menu-list (cons (lambda ()
				     (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Comb chord filter (~1,2F ~D ~1,2F ~1,2F ~1,2F)"  
								 new-comb-chord-scaler new-comb-chord-size new-comb-chord-amp 
								 new-comb-chord-interval-one new-comb-chord-interval-two)))
				   filter-menu-list)))
    
    ;; -------- Moog filter
    
    (let ((child (gtk_menu_item_new_with_label "Moog filter"))
	  (moog-cutoff-frequency 10000)
	  (moog-resonance 0.5)
	  (moog-dialog #f)
	  (moog-target 'sound)
      
	  (moog (lambda (freq Q)
		  (let ((gen (make-moog-filter freq Q)))
		    (lambda (inval)
		      (moog-filter gen inval))))))
      
      (gtk_menu_shell_append (GTK_MENU_SHELL filter-cascade) child)
      (gtk_widget_show child)
      (g_signal_connect child "activate"
			(lambda (w d) 
			  (unless moog-dialog
			    (let ((initial-moog-cutoff-frequency 10000)
				  (initial-moog-resonance 0.5)
				  (sliders ()))
			      (set! moog-dialog 
				    (make-effect-dialog
				     "Moog filter"
				     
				     (lambda (w data)
				       (map-chan-over-target-with-sync
					(lambda (ignored) (moog moog-cutoff-frequency moog-resonance)) 
					moog-target 
					(lambda (target samps)
					  (format #f "effects-moog-filter ~A ~A" moog-cutoff-frequency moog-resonance))
					#f))
				     
				     (lambda (w data)
				       (help-dialog "Moog filter"
						    "Moog-style 4-pole lowpass filter with 24db/oct rolloff and variable resonance.
Move the sliders to set the filter cutoff frequency and resonance."))
				     
				     (lambda (w data)
				       (set! moog-cutoff-frequency initial-moog-cutoff-frequency)
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (car sliders)) (scale-log->linear 20 moog-cutoff-frequency 22050))
				       (set! moog-resonance initial-moog-resonance)
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (cadr sliders)) moog-resonance)
				       )
				     
				     (lambda () 
				       (effect-target-ok moog-target))))
			      
			      (set! sliders
				    (add-sliders moog-dialog
						 (list (list "cutoff frequency" 20 initial-moog-cutoff-frequency 22050
							     (lambda (w data)
							       (set! moog-cutoff-frequency (scale-linear->log 20 (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0))) 22050)))
							     1 'log)
						       (list "resonance" 0.0 initial-moog-resonance 1.0
							     (lambda (w data)
							       (set! moog-resonance (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 1)))))
							     100))))
			      (add-target (gtk_dialog_get_content_area (GTK_DIALOG moog-dialog))
					  (lambda (target) 
					    (set! moog-target target)
					    (sensitize-target moog-dialog target))
					  #f)))
			  (activate-dialog moog-dialog))
			#f)
      (set! filter-menu-list (cons (lambda ()
				     (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Moog filter (~,2F ~1,2F)" moog-cutoff-frequency moog-resonance)))
				   filter-menu-list)))
    )
  
  
;;; FREQUENCY EFFECTS
  
  (let ((freq-menu-list ())
	(freq-menu (gtk_menu_item_new_with_label "Frequency Effects"))
	(freq-cascade (gtk_menu_new)))
    (gtk_menu_shell_append (GTK_MENU_SHELL (gtk_menu_item_get_submenu (GTK_MENU_ITEM (main-menu effects-menu)))) freq-menu)
    (gtk_widget_show freq-menu)
    (gtk_menu_item_set_submenu (GTK_MENU_ITEM freq-menu) freq-cascade)
    (g_signal_connect freq-menu "activate" (lambda (w d) (update-label freq-menu-list)) #f)
    
    ;; -------- Sample rate conversion (resample)
    
    (let ((child (gtk_menu_item_new_with_label "Sample rate conversion")))
      (gtk_menu_shell_append (GTK_MENU_SHELL freq-cascade) child)
      (gtk_widget_show child)
      (let ((src-amount 0.0)
	    (src-dialog #f)
	    (src-target 'sound))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless src-dialog
			      (let ((initial-src-amount 0.0)
				    (sliders ()))
				(set! src-dialog
				      (make-effect-dialog
				       "Sample rate conversion"
				       
				       (lambda (w data) 
					 (case src-target 
					   ((sound)   
					    (src-sound src-amount))
					   ((selection) 
					    (if (selection?)
						(src-selection src-amount)
						(snd-print "no selection")))
					   (else (snd-print "can't apply src between marks yet"))))
				       
				       (lambda (w data)
					 (help-dialog "Sample rate conversion"
						      "Move the slider to change the sample rate.
Values greater than 1.0 speed up file play, negative values reverse it."))
				       
				       (lambda (w data)
					 (set! src-amount initial-src-amount)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (car sliders)) src-amount))
				       
				       (lambda () 
					 (effect-target-ok src-target))))
				
				(set! sliders
				      (add-sliders src-dialog
						   (list (list "sample rate" -2.0 initial-src-amount 2.0
							       (lambda (w data)
								 (set! src-amount (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							       100)))))
			      (add-target (gtk_dialog_get_content_area (GTK_DIALOG src-dialog)) 
					  (lambda (target) 
					    (set! src-target target)
					    (sensitize-target src-dialog target))
					  #f))
			    (activate-dialog src-dialog))
			  #f)
	(set! freq-menu-list (cons (lambda ()
				     (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Sample rate scaling (~1,2F)" src-amount)))
				   freq-menu-list))))
    
    ;; -------- Time and pitch scaling by granular synthesis and sampling rate conversion
    
    (let ((child (gtk_menu_item_new_with_label "Time/pitch scaling")))
      (gtk_menu_shell_append (GTK_MENU_SHELL freq-cascade) child)
      (gtk_widget_show child)
      (let ((time-scale 1.0)
	    (hop-size 0.05)
	    (segment-length 0.15)
	    (ramp-scale 0.5)
	    (pitch-scale 1.0)
	    (expsrc-dialog #f)
	    (expsrc-target 'sound))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless expsrc-dialog
			      (let ((initial-time-scale 1.0)
				    (initial-hop-size 0.05)
				    (initial-segment-length 0.15)
				    (initial-ramp-scale 0.5)
				    (initial-pitch-scale 1.0)
				    (sliders ()))
				(set! expsrc-dialog 
				      (make-effect-dialog
				       "Time/pitch scaling"
				       
				       (lambda (w data) 
					 (let ((snd (selected-sound)))
					   (save-controls snd)
					   (reset-controls snd)
					   (set! (speed-control snd) pitch-scale)
					   (let ((new-time (* pitch-scale time-scale)))
					     (if (not (= new-time 1.0))
						 (begin
						   (set! (expand-control? snd) #t)
						   (set! (expand-control snd) new-time)
						   (set! (expand-control-hop snd) hop-size)
						   (set! (expand-control-length snd) segment-length)
						   (set! (expand-control-ramp snd) ramp-scale))))
					   (if (eq? expsrc-target 'marks)
					       (let ((ms (plausible-mark-samples)))
						 (apply-controls snd 0 (car ms) (- (+ (cadr ms) 1) (car ms))))
					       (apply-controls snd (if (eq? expsrc-target 'sound) 0 2)))
					   (restore-controls snd)))
				       
				       (lambda (w data)
					 (help-dialog "Time/pitch scaling"
						      "Move the sliders to change the time/pitch scaling parameters."))
				       
				       (lambda (w data)
					 (set! time-scale initial-time-scale)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 0)) time-scale)
					 (set! hop-size initial-hop-size)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 1)) hop-size)
					 (set! segment-length initial-segment-length)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 2)) segment-length)
					 (set! ramp-scale initial-ramp-scale)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 3)) ramp-scale)
					 (set! pitch-scale initial-pitch-scale)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 4)) pitch-scale)
					 )
				       
				       (lambda () 
					 (effect-target-ok expsrc-target))))
				
				(set! sliders
				      (add-sliders expsrc-dialog
						   (list (list "time scale" 0.0 initial-time-scale 5.0
							       (lambda (w data)
								 (set! time-scale (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							       100)
							 (list "hop size" 0.0 initial-hop-size 1.0
							       (lambda (w data)
								 (set! hop-size (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 1)))))
							       100)
							 (list "segment length" 0.0 initial-segment-length 0.5
							       (lambda (w data)
								 (set! segment-length (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 2)))))
							       100)
							 (list "ramp scale" 0.0 initial-ramp-scale 0.5
							       (lambda (w data)
								 (set! ramp-scale (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 3)))))
							       1000)
							 (list "pitch scale" 0.0 initial-pitch-scale 5.0
							       (lambda (w data)
								 (set! pitch-scale (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 4)))))
							       100))))
				(add-target (gtk_dialog_get_content_area (GTK_DIALOG expsrc-dialog)) 
					    (lambda (target) 
					      (set! expsrc-target target)
					      (sensitize-target expsrc-dialog target))
					    #f)))
			    (activate-dialog expsrc-dialog))
			  #f)
	(set! freq-menu-list (cons (lambda ()
				     (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Time/pitch scaling (~1,2F ~1,2F)" time-scale pitch-scale)))
				   freq-menu-list))))
    
;;; -------- Time-varying sample rate conversion (resample)
;;; (KSM)
    
    (let ((child (gtk_menu_item_new_with_label "Src-timevar"))
	  (src-timevar-scale 1.0)
	  (src-timevar-dialog #f)
	  (src-timevar-target 'sound)
	  (src-timevar-envelope #f))
      
      (gtk_menu_shell_append (GTK_MENU_SHELL freq-cascade) child)
      (gtk_widget_show child)
      (g_signal_connect child "activate"
			(lambda (w d) 
			  (unless src-timevar-dialog
			    (let ((initial-src-timevar-scale 1.0)
				  (sliders ()))
			      (set! src-timevar-dialog
				    (make-effect-dialog 
				     "Src-Timevar"
				     
				     (lambda (w data) 
				       (let ((env (scale-envelope (xe-envelope src-timevar-envelope)
								  src-timevar-scale)))
					 (case src-timevar-target
					   ((sound)
					    (src-sound env))
					   ((selection)
					    (if (selection-member? (selected-sound))
						(src-selection env)
						(display "no selection")))
					   (else (let ((pts (plausible-mark-samples)))
						   (if pts
						       (let* ((beg (car pts))
							      (len (- (cadr pts) beg)))
							 (src-channel (make-env env :length len) beg len (selected-sound)))))))))
				     
				     (lambda (w data)
				       (help-dialog 
					"Src-Timevar"
					"Move the slider to change the src-timevar scaling amount."))
				     
				     (lambda (w data)
				       (set! src-timevar-amount initial-src-timevar-scale)
				       (init-xe-envelope src-timevar-envelope) 
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (car sliders)) src-timevar-scale)
				       )
				     
				     (lambda () 
				       (effect-target-ok src-timevar-target))))
			      
			      (set! sliders
				    (add-sliders src-timevar-dialog
						 (list (list "Resample factor" 0.0 initial-src-timevar-scale 10.0
							     (lambda (w data)
							       (set! src-timevar-scale (gtk_adjustment_get_value (GTK_ADJUSTMENT w))))
							     100)))))
			    (gtk_widget_show src-timevar-dialog)
			    (set! src-timevar-envelope (xe-create-enved "src-timevar" 
									(gtk_dialog_get_content_area (GTK_DIALOG src-timevar-dialog))
									#f
									'(0.0 1.0 0.0 1.0)))
			    (init-xe-envelope src-timevar-envelope)
			    (add-target (gtk_dialog_get_content_area (GTK_DIALOG src-timevar-dialog)) 
					(lambda (target) 
					  (set! src-timevar-target target)
					  (sensitize-target src-timevar-dialog target))
					#f))
			  (activate-dialog src-timevar-dialog))
			#f)
      (set! freq-menu-list (cons (lambda ()
				   (gtk_menu_item_set_label (GTK_MENU_ITEM child) "Src-Timevar"))
				 freq-menu-list)))
    )
  
;;; MODULATION EFFECTS
  
  (let ((mod-menu-list ())
	(mod-menu (gtk_menu_item_new_with_label "Modulation Effects"))
	(mod-cascade (gtk_menu_new)))
    (gtk_menu_shell_append (GTK_MENU_SHELL (gtk_menu_item_get_submenu (GTK_MENU_ITEM (main-menu effects-menu)))) mod-menu)
    (gtk_widget_show mod-menu)
    (gtk_menu_item_set_submenu (GTK_MENU_ITEM mod-menu) mod-cascade)
    (g_signal_connect mod-menu "activate" (lambda (w d) (update-label mod-menu-list)) #f)
    
    ;; -------- Amplitude modulation
    
    (let ((child (gtk_menu_item_new_with_label "Amplitude modulation"))
	  (am-effect-amount 100.0)
	  (am-effect-dialog #f)
	  (am-effect-target 'sound)
	  (am-effect-envelope #f))
      
      (define am-effect
	(lambda (freq)
	  (let* ((os (make-oscil freq))
		 (need-env (not (equal? (xe-envelope am-effect-envelope) '(0.0 1.0 1.0 1.0))))
		 (e (and need-env (make-env (xe-envelope am-effect-envelope) :length (effect-framples am-effect-target)))))
	    (if need-env
		(lambda (inval)
		  (amplitude-modulate 1.0 inval (* (env e) (oscil os))))
		(lambda (inval)
		  (amplitude-modulate 1.0 inval (oscil os)))))))
      
      (gtk_menu_shell_append (GTK_MENU_SHELL mod-cascade) child)
      (gtk_widget_show child)
      (g_signal_connect child "activate"
			(lambda (w d) 
			  (unless am-effect-dialog
			    (let ((initial-am-effect-amount 100.0)
				  (sliders ()))
			      (set! am-effect-dialog
				    (make-effect-dialog
				     "Amplitude modulation"
				     
				     (lambda (w data) 
				       (map-chan-over-target-with-sync
					(lambda (ignored) 
					  (am-effect am-effect-amount)) 
					am-effect-target 
					(lambda (target samps)
					  (format #f "effects-am ~A ~A" am-effect-amount
						  (let ((e (and (not (equal? (xe-envelope am-effect-envelope) '(0.0 1.0 1.0 1.0)))
								(xe-envelope am-effect-envelope))))
						    (and e (format #f "'~A" e)))))
					#f))
				     
				     (lambda (w data)
				       (help-dialog "Amplitude modulation"
						    "Move the slider to change the modulation amount."))
				     
				     (lambda (w data)
				       (set! am-effect-amount initial-am-effect-amount)
				       (init-xe-envelope am-effect-envelope)
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (car sliders)) am-effect-amount)
				       )
				     
				     (lambda () 
				       (effect-target-ok am-effect-target))))
			      
			      (set! sliders
				    (add-sliders am-effect-dialog
						 (list (list "amplitude modulation" 0.0 initial-am-effect-amount 1000.0
							     (lambda (w data)
							       (set! am-effect-amount (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							     1)))))
			    (gtk_widget_show am-effect-dialog)
			    (set! am-effect-envelope (xe-create-enved "am" 
								      (gtk_dialog_get_content_area (GTK_DIALOG am-effect-dialog))
								      #f
								      '(0.0 1.0 0.0 1.0)))
			    (init-xe-envelope am-effect-envelope)
			    (add-target (gtk_dialog_get_content_area (GTK_DIALOG am-effect-dialog))
					(lambda (target) 
					  (set! am-effect-target target)
					  (sensitize-target am-effect-dialog target))
					#f))
			  (activate-dialog am-effect-dialog))
			#f)
      (set! mod-menu-list (cons (lambda ()
				  (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Amplitude modulation (~1,2F)"  am-effect-amount)))
				mod-menu-list)))
    
    ;; -------- Ring modulation
    
    (let ((child (gtk_menu_item_new_with_label "Ring modulation"))
	  (rm-frequency 100)
	  (rm-radians 100)
	  (rm-dialog #f)
	  (rm-target 'sound)
	  (rm-envelope #f))
      
      (define rm-effect ; avoid collision with examp.scm
	(lambda (freq gliss-env)
	  (let ((need-env (and rm-envelope (not (equal? (xe-envelope rm-envelope) '(0.0 1.0 1.0 1.0))))))
	    (let ((os (make-oscil freq))
		  (e (and need-env (make-env (xe-envelope rm-envelope) :length (effect-framples rm-target))))
		  (genv (make-env :envelope gliss-env :length (framples))))
	      (if need-env
		  (lambda (inval)
		    (* inval (env e) (oscil os (env genv))))
		  (lambda (inval)
		    (* inval (oscil os (env genv)))))))))
	
      (gtk_menu_shell_append (GTK_MENU_SHELL mod-cascade) child)
      (gtk_widget_show child)
      (g_signal_connect child "activate"
			(lambda (w d) 
			  (unless rm-dialog
			    (let ((initial-rm-frequency 100)
				  (initial-rm-radians 100)
				  (sliders ()))
			      (set! rm-dialog
				    (make-effect-dialog
				     "Ring modulation"
				     
				     (lambda (w data)
				       (map-chan-over-target-with-sync
					(lambda (ignored) 
					  (rm-effect rm-frequency (list 0 0 1 (hz->radians rm-radians)))) 
					rm-target 
					(lambda (target samps)
					  (format #f "effects-rm ~A ~A" rm-frequency
						  (let ((e (and (not (equal? (xe-envelope rm-envelope) '(0.0 1.0 1.0 1.0)))
								(xe-envelope rm-envelope))))
						    (and e (format #f "'~A" e)))))
					#f))
				     
				     (lambda (w data)
				       (help-dialog "Ring modulation"
						    "Move the slider to change the ring modulation parameters."))
				     
				     (lambda (w data)
				       (set! rm-frequency initial-rm-frequency)
				       (init-xe-envelope rm-envelope)
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (car sliders)) rm-frequency)
				       (set! rm-radians initial-rm-radians)
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (cadr sliders)) rm-radians))
				     
				     (lambda () 
				       (effect-target-ok rm-target))))
			      
			      (set! sliders
				    (add-sliders rm-dialog
						 (list 
						  (list "modulation frequency" 0 initial-rm-frequency 1000
							(lambda (w data)
							  (set! rm-frequency (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							1)
						  (list "modulation radians" 0 initial-rm-radians 360
							(lambda (w data)
							  (set! rm-radians (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 1)))))
							1)))))
			    (gtk_widget_show rm-dialog)
			    (set! rm-envelope (xe-create-enved "rm frequency" 
							       (gtk_dialog_get_content_area (GTK_DIALOG rm-dialog))
							       #f
							       '(0.0 1.0 0.0 1.0)))
			    (init-xe-envelope rm-envelope)
			    (add-target (gtk_dialog_get_content_area (GTK_DIALOG rm-dialog))
					(lambda (target) 
					  (set! rm-target target)
					  (sensitize-target rm-dialog target))
					#f))
			  (activate-dialog rm-dialog))
			#f)
      (set! mod-menu-list (cons (lambda ()
				  (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Ring modulation (~D ~D)" rm-frequency rm-radians)))
				mod-menu-list)))
    )
  
  
;;; REVERBS
  
  (define* (effects-cnv snd0-1 amp snd chn)
    (let* ((snd0 (if (sound? snd0-1) snd0-1 (car (sounds))))
	   (flt-len (framples snd0))
	   (total-len (+ flt-len (framples snd chn)))
	   (cnv (make-convolve :filter (channel->float-vector 0 flt-len snd0)
			       :input (make-sampler 0 snd chn)))
	   (out-data (make-float-vector total-len)))
      (do ((i 0 (+ i 1)))
	  ((= i total-len))
	(set! (out-data i) (convolve cnv)))
      (float-vector-scale! out-data amp)
      (let ((max-samp (float-vector-peak out-data)))
	(float-vector->channel out-data 0 total-len snd chn #f (format #f "effects-cnv ~A ~A" snd0 amp))
	(if (> max-samp 1.0) (set! (y-bounds snd chn) (list (- max-samp) max-samp)))
	max-samp)))
  
  (define (effects-jc-reverb input-samps volume)
    (let ((allpass1 (make-all-pass -0.700 0.700 1051))
	  (allpass2 (make-all-pass -0.700 0.700  337))
	  (allpass3 (make-all-pass -0.700 0.700  113))
	  (comb1 (make-comb 0.742 4799))
	  (comb2 (make-comb 0.733 4999))
	  (comb3 (make-comb 0.715 5399))
	  (comb4 (make-comb 0.697 5801))
	  (outdel1 (make-delay (round (* .013 (srate)))))
	  (e (make-env '(0 1 1 0) :scaler volume :base 0.0 :length input-samps)))
      (let ((combs (make-comb-bank (vector comb1 comb2 comb3 comb4)))
	    (allpasses (make-all-pass-bank (vector allpass1 allpass2 allpass3))))
	(lambda (inval)
	  (+ inval
	     (* volume (delay outdel1 (comb-bank combs (all-pass-bank allpasses (* (env e) inval))))))))))
  
  (let ((reverb-menu-list ())
	(reverb-menu (gtk_menu_item_new_with_label "Reverberation"))
	(reverb-cascade (gtk_menu_new)))
    (gtk_menu_shell_append (GTK_MENU_SHELL (gtk_menu_item_get_submenu (GTK_MENU_ITEM (main-menu effects-menu)))) reverb-menu)
    (gtk_widget_show reverb-menu)
    (gtk_menu_item_set_submenu (GTK_MENU_ITEM reverb-menu) reverb-cascade)
    (g_signal_connect reverb-menu "activate" (lambda (w d) (update-label reverb-menu-list)) #f)
    
    ;; -------- Reverb from Michael McNabb's Nrev 
    
    (let ((child (gtk_menu_item_new_with_label "McNabb reverb")))
      (gtk_menu_shell_append (GTK_MENU_SHELL reverb-cascade) child)
      (gtk_widget_show child)
      (let ((reverb-amount 0.1)
	    (reverb-filter 0.5)
	    (reverb-feedback 1.09)
	    (reverb-dialog #f)
	    (reverb-target 'sound))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    ;; add reverb-control-decay (with ramp?) and reverb-truncate
			    (unless reverb-dialog
			      (let ((initial-reverb-amount 0.1)
				    (initial-reverb-filter 0.5)
				    (initial-reverb-feedback 1.09)
				    (sliders ()))
				(set! reverb-dialog 
				      (make-effect-dialog 
				       "McNabb reverb"
				       
				       (lambda (w data)
					 (let ((snd (selected-sound)))
					   (save-controls snd)
					   (reset-controls snd)
					   (set! (reverb-control? snd) #t)
					   (set! (reverb-control-scale snd) reverb-amount)
					   (set! (reverb-control-lowpass snd) reverb-filter)
					   (set! (reverb-control-feedback snd) reverb-feedback)
					   (if (eq? reverb-target 'marks)
					       (let ((ms (plausible-mark-samples)))
						 (apply-controls snd 0 (car ms) (- (+ (cadr ms) 1) (car ms))))
					       (apply-controls snd (if (eq? reverb-target 'sound) 0 2)))
					   (restore-controls snd)))
				       
				       (lambda (w data)
					 (help-dialog "McNabb reverb"
						      "Reverberator from Michael McNabb.
Adds reverberation scaled by reverb amount, lowpass filtering, and feedback. Move the sliders to change the reverb parameters."))
				       
				       (lambda (w data)
					 (set! reverb-amount initial-reverb-amount)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (car sliders)) reverb-amount)
					 (set! reverb-filter initial-reverb-filter)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (cadr sliders)) reverb-filter)
					 (set! reverb-feedback initial-reverb-feedback)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (caddr sliders)) reverb-feedback)
					 )
				       
				       (lambda () 
					 (effect-target-ok reverb-target))))
				
				(set! sliders
				      (add-sliders reverb-dialog
						   (list (list "reverb amount" 0.0 initial-reverb-amount 1.0
							       (lambda (w data)
								 (set! reverb-amount (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							       100)
							 (list "reverb filter" 0.0 initial-reverb-filter 1.0
							       (lambda (w data)
								 (set! reverb-filter (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 1)))))
							       100)
							 (list "reverb feedback" 0.0 initial-reverb-feedback 1.25
							       (lambda (w data)
								 (set! reverb-feedback (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 2)))))
							       100))))
				(add-target (gtk_dialog_get_content_area (GTK_DIALOG reverb-dialog)) 
					    (lambda (target) 
					      (set! reverb-target target)
					      (sensitize-target reverb-dialog target))
					    #f)))
			    (activate-dialog reverb-dialog))
			  #f)
	(set! reverb-menu-list (cons (lambda ()
				       (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "McNabb reverb (~1,2F ~1,2F ~1,2F)" reverb-amount reverb-filter reverb-feedback)))
				     reverb-menu-list))))
    
    ;; -------- Chowning reverb
    
    (let ((child (gtk_menu_item_new_with_label "Chowning reverb")))
      (gtk_menu_shell_append (GTK_MENU_SHELL reverb-cascade) child)
      (gtk_widget_show child)
      (let ((jc-reverb-decay 2.0)
	    (jc-reverb-volume 0.1)
	    (jc-reverb-dialog #f)
	    (jc-reverb-target 'sound)
	    (jc-reverb-truncate #t))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless jc-reverb-dialog
			      (let ((initial-jc-reverb-decay 2.0)
				    (initial-jc-reverb-volume 0.1)
				    (sliders ()))
				(set! jc-reverb-dialog
				      (make-effect-dialog
				       "Chowning reverb"
				       
				       (lambda (w data) 
					 (map-chan-over-target-with-sync
					  (lambda (samps) (effects-jc-reverb samps jc-reverb-volume))
					  jc-reverb-target 
					  (lambda (target samps) 
					    (format #f "effects-jc-reverb ~A" jc-reverb-volume))
					  (and (not jc-reverb-truncate) jc-reverb-decay)))
				       
				       (lambda (w data)
					 (help-dialog "Chowning reverb"
						      "Nice reverb from John Chowning. Move the sliders to set the reverb parameters."))
				       
				       (lambda (w data)
					 (set! jc-reverb-decay initial-jc-reverb-decay)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 0)) jc-reverb-decay)
					 (set! jc-reverb-volume initial-jc-reverb-volume)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 1)) jc-reverb-volume)
					 )
				       
				       (lambda () 
					 (effect-target-ok jc-reverb-target))))
				
				(set! sliders
				      (add-sliders jc-reverb-dialog
						   (list (list "decay duration" 0.0 initial-jc-reverb-decay 10.0
							       (lambda (w data)
								 (set! jc-reverb-decay (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							       100)
							 (list "reverb volume" 0.0 initial-jc-reverb-volume 1.0
							       (lambda (w data)
								 (set! jc-reverb-volume (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 1)))))
							       100))))
				(add-target (gtk_dialog_get_content_area (GTK_DIALOG jc-reverb-dialog)) 
					    (lambda (target) 
					      (set! jc-reverb-target target)
					      (sensitize-target jc-reverb-dialog target))
					    (lambda (truncate) 
					      (set! jc-reverb-truncate truncate)))))
			    (activate-dialog jc-reverb-dialog))
			  #f)
	(set! reverb-menu-list (cons (lambda ()
				       (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Chowning reverb (~1,2F ~1,2F)" jc-reverb-decay jc-reverb-volume)))
				     reverb-menu-list))))
    
    ;; -------- Convolution
    
    (let ((child (gtk_menu_item_new_with_label "Convolution")))
      (gtk_menu_shell_append (GTK_MENU_SHELL reverb-cascade) child)
      (gtk_widget_show child)
      (let ((convolve-sound-one 0)
	    (convolve-sound-two 1)
	    (convolve-amp 0.01)
	    (convolve-dialog #f))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless convolve-dialog
			      (let ((initial-convolve-sound-one 0)
				    (initial-convolve-sound-two 1)
				    (initial-convolve-amp 0.01)
				    (sliders ()))
				(set! convolve-dialog
				      (make-effect-dialog
				       "Convolution"
				       
				       (lambda (w data)
					 (effects-cnv convolve-sound-one convolve-amp convolve-sound-two))
				       
				       (lambda (w data)
					 (help-dialog "Convolution"
						      "Very simple convolution. Move the sliders to set the numbers of the soundfiles
to be convolved and the amount for the amplitude scaler.  Output will be scaled to floating-point values, resulting
in very large (but not clipped) amplitudes. Use the Normalize amplitude effect to rescale the output.
The convolution data file typically defines a natural reverberation source, and the output from this effect
can provide very striking reverb effects. You can find convolution data files on sites listed at
http://www.bright.net/~dlphilp/linux_csound.html under Impulse Response Data."))
				       (lambda (w data)
					 (set! convolve-sound-one initial-convolve-sound-one)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 0)) convolve-sound-one)
					 (set! convolve-sound-two initial-convolve-sound-two)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 1)) convolve-sound-two)
					 (set! convolve-amp initial-convolve-amp)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 2)) convolve-amp)
					 )))
				
				(set! sliders
				      (add-sliders convolve-dialog
						   (list (list "impulse response file" 0 initial-convolve-sound-one 24
							       (lambda (w data)
								 (set! convolve-sound-one (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							       1)
							 (list "sound file" 0 initial-convolve-sound-two 24
							       (lambda (w data)
								 (set! convolve-sound-two (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 1)))))
							       1)
							 (list "amplitude" 0.0 initial-convolve-amp 0.10
							       (lambda (w data)
								 (set! convolve-amp (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 2)))))
							       1000))))))
			    (activate-dialog convolve-dialog))
			  #f)
	(set! reverb-menu-list (cons (lambda ()
				       (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Convolution (~D ~D ~1,2F)" convolve-sound-one convolve-sound-two convolve-amp)))
				     reverb-menu-list)))))
    
    
;;; VARIOUS AND MISCELLANEOUS
  
  (define effects-hello-dentist 
    (let ((+documentation+ "(hello-dentist frq amp snd chn) varies the sampling rate randomly, making a voice sound quavery: (hello-dentist 40.0 .1)"))
      (lambda* (frq amp beg dur snd chn)
	(let ((rn (make-rand-interp :frequency frq :amplitude amp))
	      (len (or dur (- (framples snd chn) beg)))
	      (rd (make-src :srate 1.0 
			    :input (let ((sf (make-sampler beg snd chn)))
				     (lambda (dir) 
				       (read-sample-with-direction sf dir))))))
	  (map-channel
	   (lambda (y)
	     (src rd (rand-interp rn)))
	   beg len snd chn #f (format #f "effects-hello-dentist ~A ~A ~A ~A" frq amp beg (and (not (= len (framples snd chn))) len)))))))
  
  
  (define* (effects-fp sr osamp osfrq beg dur snd chn)
    (let ((os (make-oscil osfrq))
	  (len (framples snd chn))
	  (s (make-src :srate sr 
		       :input (let ((sf (make-sampler beg snd chn)))
				(lambda (dir) 
				  (read-sample-with-direction sf dir))))))
      (map-channel
       (lambda (y)
	 (src s (* osamp (oscil os))))
       beg len snd chn #f (format #f "effects-fp ~A ~A ~A ~A ~A" sr osamp osfrq beg (and (not (= len (framples snd chn))) len)))))
  
  
  (define* (effects-position-sound mono-snd pos snd chn)
    (let ((len (framples mono-snd))
	  (reader1 (make-sampler 0 mono-snd)))
      (if (number? pos)
	  (map-channel (lambda (y)
			 (+ y (* pos (read-sample reader1))))
		       0 len snd chn #f
		       (format #f "effects-position-sound ~A ~A" mono-snd pos))
	  (let ((e1f (let ((e1 (make-env pos :length len)))
		       (if (eqv? chn 1)
			   (lambda (y)
			     (+ y (* (env e1) (read-sample reader1))))
			   (lambda (y)
			     (+ y (* (- 1.0 (env e1)) (read-sample reader1))))))))
	    (map-channel e1f 0 len snd chn #f (format #f "effects-position-sound ~A '~A" mono-snd pos))))))

  
#|
  (define* (effects-flange amount speed time beg dur snd chn)
    (let ((ri (make-rand-interp :frequency speed :amplitude amount))
	  (del (let ((len (round (* time (srate snd)))))
		 (make-delay len :max-size (round (+ len amount 1))))))
      (map-channel (lambda (inval)
		     (* .75 (+ inval
			       (delay del
				      inval
				      (rand-interp ri)))))
		   beg dur snd chn #f (format #f "effects-flange ~A ~A ~A ~A ~A"
					      amount speed time beg (and (number? dur) (not (= dur (framples snd chn))) dur)))))
|#
  
  (define (effects-cross-synthesis cross-snd amp fftsize r)
    ;; cross-snd is the index of the other sound (as opposed to the map-channel sound)
    (let ((freq-inc (/ fftsize 2)))
      (let ((fdr #f)
	    (fdi (make-float-vector fftsize))
	    (spectr (make-float-vector freq-inc))
	    (inctr 0)
	    (ctr freq-inc)
	    (radius (- 1.0 (/ r fftsize)))
	    (bin (/ (srate) fftsize))
	    (formants (make-vector freq-inc)))
	(do ((i 0 (+ 1 i)))
	    ((= i freq-inc))
	  (set! (formants i) (make-formant (* i bin) radius)))
	(set! formants (make-formant-bank formants spectr))
	(lambda (inval)
	  (if (= ctr freq-inc)
	      (begin
		(set! fdr (channel->float-vector inctr fftsize cross-snd 0))
		(set! inctr (+ inctr freq-inc))
		(spectrum fdr fdi #f 2)
		(float-vector-subtract! fdr spectr)
		(float-vector-scale! fdr (/ 1.0 freq-inc))
		(set! ctr 0)))
	  (set! ctr (+ ctr 1))
	  (float-vector-add! spectr fdr)
	  (* amp (formant-bank formants inval))))))
  
  (let ((misc-menu-list ())
	(misc-cascade (gtk_menu_new)))
    (let ((misc-menu (gtk_menu_item_new_with_label "Various")))
      (gtk_menu_shell_append (GTK_MENU_SHELL (gtk_menu_item_get_submenu (GTK_MENU_ITEM (main-menu effects-menu)))) misc-menu)
      (gtk_widget_show misc-menu)
      (gtk_menu_item_set_submenu (GTK_MENU_ITEM misc-menu) misc-cascade)
      (g_signal_connect misc-menu "activate" (lambda (w d) (update-label misc-menu-list)) #f))
    
    ;; -------- Place sound
    
    (let ((child (gtk_menu_item_new_with_label "Place sound"))
	  (mono-snd 0)
	  (stereo-snd 1)
	  (pan-pos 45)
	  (place-sound-dialog #f)
	  (place-sound-target 'sound)
	  (place-sound-envelope #f)

	  (place-sound 
	   (lambda (mono-snd stereo-snd pan-env)
	     ;; (place-sound mono-snd stereo-snd pan-env) mixes a mono sound into a stereo sound, splitting
	     ;; it into two copies whose amplitudes depend on the envelope 'pan-env'.  If 'pan-env' is 
	     ;; a number, the sound is split such that 0 is all in channel 0 and 90 is all in channel 1.
	     (if (number? pan-env)
		 (let ((pos (/ pan-env 90.0)))
		   (effects-position-sound mono-snd pos stereo-snd 1)
		   (effects-position-sound mono-snd (- 1.0 pos) stereo-snd 0))
		 (begin
		   (effects-position-sound mono-snd pan-env stereo-snd 1)
		   (effects-position-sound mono-snd pan-env stereo-snd 0))))))
      
      (gtk_menu_shell_append (GTK_MENU_SHELL misc-cascade) child)
      (gtk_widget_show child)
      (g_signal_connect child "activate"
			(lambda (w d) 
			  (unless place-sound-dialog
			    (let ((initial-mono-snd 0)
				  (initial-stereo-snd 1)
				  (initial-pan-pos 45)
				  (sliders ()))
			      (set! place-sound-dialog 
				    (make-effect-dialog
				     "Place sound"
				     
				     (lambda (w data)
				       (let ((e (xe-envelope place-sound-envelope)))
					 (place-sound mono-snd stereo-snd (if (not (equal? e '(0.0 1.0 1.0 1.0))) e pan-pos))))
				     
				     (lambda (w data)
				       (help-dialog "Place sound"
						    "Mixes mono sound into stereo sound field."))
				     
				     (lambda (w data)
				       (set! mono-snd initial-mono-snd)
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 0)) mono-snd)
				       (set! stereo-snd initial-stereo-snd)
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 1)) stereo-snd)
				       (set! pan-pos initial-pan-pos)
				       (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 2)) pan-pos))
				     
				     (lambda () 
				       (effect-target-ok place-sound-target))))
			      
			      (set! sliders
				    (add-sliders place-sound-dialog
						 (list (list "mono sound" 0 initial-mono-snd 50
							     (lambda (w data)
							       (set! mono-snd (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							     1)
						       (list "stereo sound" 0 initial-stereo-snd 50
							     (lambda (w data)
							       (set! stereo-snd (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 1)))))
							     1)
						       (list "pan position" 0 initial-pan-pos 90
							     (lambda (w data)
							       (set! pan-pos (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 2)))))
							     1)))))
			    (gtk_widget_show place-sound-dialog)
			    (set! place-sound-envelope (xe-create-enved "panning" 
									(gtk_dialog_get_content_area (GTK_DIALOG place-sound-dialog))
									#f
									'(0.0 1.0 0.0 1.0)))
			    (init-xe-envelope place-sound-envelope))
			  (activate-dialog place-sound-dialog))
			#f)
      (set! misc-menu-list (cons (lambda ()
				   (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Place sound (~D ~D ~D)" mono-snd stereo-snd pan-pos)))
				 misc-menu-list)))
    
    ;; -------- Insert silence (at cursor, silence-amount in secs)
    
    (let ((child (gtk_menu_item_new_with_label "Add silence")))
      (gtk_menu_shell_append (GTK_MENU_SHELL misc-cascade) child)
      (gtk_widget_show child)
      (let ((silence-amount 1.0)
	    (silence-dialog #f))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless silence-dialog
			      (let ((initial-silence-amount 1.0)
				    (sliders ()))
				(set! silence-dialog
				      (make-effect-dialog
				       "Add silence"
				       
				       (lambda (w data)
					 (insert-silence (cursor) (floor (* (srate) silence-amount))))
				       
				       (lambda (w data)
					 (help-dialog "Add silence"
						      "Move the slider to change the number of seconds of silence added at the cursor position."))
				       
				       (lambda (w data)
					 (set! silence-amount initial-silence-amount)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (car sliders)) silence-amount)
					 )))
				
				(set! sliders
				      (add-sliders silence-dialog
						   (list (list "silence" 0.0 initial-silence-amount 5.0
							       (lambda (w data)
								 (set! silence-amount (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							       100))))))
			    (activate-dialog silence-dialog))
			  #f)
	(set! misc-menu-list (cons (lambda ()
				     (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Add silence (~1,2F)" silence-amount)))
				   misc-menu-list))))
    
;;; -------- Contrast (brightness control)
;;;
    
    (let ((child (gtk_menu_item_new_with_label "Contrast enhancement")))
      (gtk_menu_shell_append (GTK_MENU_SHELL misc-cascade) child)
      (gtk_widget_show child)
      (let ((contrast-amount 1.0)
	    (contrast-dialog #f)
	    (contrast-target 'sound))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless contrast-dialog
			      (let ((initial-contrast-amount 1.0)
				    (sliders ()))
				(set! contrast-dialog
				      (make-effect-dialog
				       "Contrast enhancement"
				       
				       (lambda (w data) 
					 (let ((peak (maxamp))
					       (snd (selected-sound)))
					   (save-controls snd)
					   (reset-controls snd)
					   (set! (contrast-control? snd) #t)
					   (set! (contrast-control snd) contrast-amount)
					   (set! (contrast-control-amp snd) (/ 1.0 peak))
					   (set! (amp-control snd) peak)
					   (if (eq? contrast-target 'marks)
					       (let ((ms (plausible-mark-samples)))
						 (apply-controls snd 0 (car ms) (- (+ (cadr ms) 1) (car ms))))
					       (apply-controls snd (if (eq? contrast-target 'sound) 0 2)))
					   (restore-controls snd)))
				       
				       (lambda (w data)
					 (help-dialog "Contrast enhancement"
						      "Move the slider to change the contrast intensity."))
				       
				       (lambda (w data)
					 (set! contrast-amount initial-contrast-amount)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (car sliders)) contrast-amount)
					 )
				       
				       (lambda () 
					 (effect-target-ok contrast-target))))
				
				(set! sliders
				      (add-sliders contrast-dialog
						   (list (list "contrast enhancement" 0.0 initial-contrast-amount 10.0
							       (lambda (w data)
								 (set! contrast-amount (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							       100))))
				(add-target (gtk_dialog_get_content_area (GTK_DIALOG contrast-dialog))
					    (lambda (target) 
					      (set! contrast-target target)
					      (sensitize-target contrast-dialog target))
					    #f)))
			    (activate-dialog contrast-dialog))
			  #f)
	(set! misc-menu-list (cons (lambda ()
				     (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Contrast enhancement (~1,2F)" contrast-amount)))
				   misc-menu-list))))
    
    ;; -------- Cross synthesis
    
    (let ((child (gtk_menu_item_new_with_label "Cross synthesis")))
      (gtk_menu_shell_append (GTK_MENU_SHELL misc-cascade) child)
      (gtk_widget_show child)
      (let ((cross-synth-sound 1)
	    (cross-synth-amp .5)
	    (cross-synth-fft-size 128)
	    (cross-synth-radius 6.0)
	    (cross-synth-dialog #f)
	    (cross-synth-target 'sound))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless cross-synth-dialog
			      (let ((initial-cross-synth-sound 1)
				    (initial-cross-synth-amp .5)
				    (initial-cross-synth-fft-size 128)
				    (initial-cross-synth-radius 6.0)
				    (sliders ()))
				(set! cross-synth-dialog
				      (make-effect-dialog
				       "Cross synthesis"
				       
				       (lambda (w data)
					 (map-chan-over-target-with-sync
					  (lambda (ignored) 
					    (effects-cross-synthesis cross-synth-sound cross-synth-amp cross-synth-fft-size cross-synth-radius))
					  cross-synth-target 
					  (lambda (target samps)
					    (format #f "effects-cross-synthesis ~A ~A ~A ~A"
						    cross-synth-sound cross-synth-amp cross-synth-fft-size cross-synth-radius))
					  #f))
				       
				       (lambda (w data)
					 (help-dialog "Cross synthesis"
						      "The sliders set the number of the soundfile to be cross-synthesized, 
the synthesis amplitude, the FFT size, and the radius value."))
				       
				       (lambda (w data)
					 (set! cross-synth-sound initial-cross-synth-sound)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 0)) cross-synth-sound)
					 (set! cross-synth-amp initial-cross-synth-amp)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 1)) cross-synth-amp)
					 (set! cross-synth-fft-size initial-cross-synth-fft-size)
					 (set! cross-synth-radius initial-cross-synth-radius)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (sliders 2)) cross-synth-radius)
					 )
				       
				       (lambda () 
					 (effect-target-ok cross-synth-target))))
				
				(set! sliders
				      (add-sliders cross-synth-dialog
						   (list (list "input sound" 0 initial-cross-synth-sound 20
							       (lambda (w data)
								 (set! cross-synth-sound (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							       1)
							 (list "amplitude" 0.0 initial-cross-synth-amp 1.0
							       (lambda (w data)
								 (set! cross-synth-amp (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 1)))))
							       100)
							 (list "radius" 0.0 initial-cross-synth-radius 360.0
							       (lambda (w data)
								 (set! cross-synth-radius (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 2)))))
							       100))))
				(add-target (gtk_dialog_get_content_area (GTK_DIALOG cross-synth-dialog)) 
					    (lambda (target) 
					      (set! cross-synth-target target)
					      (sensitize-target cross-synth-dialog target))
					    #f)))
			    (activate-dialog cross-synth-dialog))
			  #f)
	(set! misc-menu-list (cons (lambda ()
				     (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Cross synthesis (~D ~1,2F ~D ~1,2F)" 
								 cross-synth-sound cross-synth-amp cross-synth-fft-size cross-synth-radius)))
				   misc-menu-list))))
      
    ;; -------- Flange and phasing
    
    (let ((child (gtk_menu_item_new_with_label "Flange")))
      (gtk_menu_shell_append (GTK_MENU_SHELL misc-cascade) child)
      (gtk_widget_show child)
      (let ((flange-speed 2.0)
	    (flange-amount 5.0)
	    (flange-time 0.001)
	    (flange-dialog #f)
	    (flange-target 'sound))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless flange-dialog
			      (let ((initial-flange-speed 2.0)
				    (initial-flange-amount 5.0)
				    (initial-flange-time 0.001)
				    (sliders ()))
				(set! flange-dialog
				      (make-effect-dialog
				       "Flange"
				       
				       (lambda (w data)
					 (map-chan-over-target-with-sync 
					  (lambda (ignored)
					    (let ((ri (make-rand-interp :frequency flange-speed :amplitude flange-amount))
						  (del (let ((len (round (* flange-time (srate)))))
							 (make-delay len :max-size (round (+ len flange-amount 1))))))
					      (lambda (inval)
						(* .75 (+ inval
							  (delay del
								 inval
								 (rand-interp ri)))))))
					  flange-target 
					  (lambda (target samps) 
					    (format #f "effects-flange ~A ~A ~A" flange-amount flange-speed flange-time))
					  #f))
				       
				       (lambda (w data)
					 (help-dialog "Flange"
						      "Move the sliders to change the flange speed, amount, and time"))
				       
				       (lambda (w data)
					 (set! flange-speed initial-flange-speed)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (car sliders)) flange-speed)
					 (set! flange-amount initial-flange-amount)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (cadr sliders)) flange-amount)
					 (set! flange-time initial-flange-time)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (caddr sliders)) flange-time)
					 )
				       
				       (lambda () 
					 (effect-target-ok flange-target))))
				
				(set! sliders
				      (add-sliders flange-dialog
						   (list (list "flange speed" 0.0 initial-flange-speed 100.0
							       (lambda (w data)
								 (set! flange-speed (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							       10)
							 (list "flange amount" 0.0 initial-flange-amount 100.0
							       (lambda (w data)
								 (set! flange-amount (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 1)))))
							       10)
							 ;; flange time ought to use a non-linear scale (similar to amp in control panel)
							 (list "flange time" 0.0 initial-flange-time 1.0
							       (lambda (w data)
								 (set! flange-time (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 2)))))
							       100))))
				(add-target (gtk_dialog_get_content_area (GTK_DIALOG flange-dialog)) 
					    (lambda (target) 
					      (set! flange-target target)
					      (sensitize-target flange-dialog target))
					    #f)))
			    (activate-dialog flange-dialog))
			  #f)
	(set! misc-menu-list (cons (lambda ()
				     (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Flange (~1,2F ~1,2F ~1,3F)" flange-speed flange-amount flange-time)))
				   misc-menu-list))))
    
    ;; -------- Randomize phase
    
    (let ((child (gtk_menu_item_new_with_label "Randomize phase")))
      (gtk_menu_shell_append (GTK_MENU_SHELL misc-cascade) child)
      (gtk_widget_show child)
      (let ((random-phase-amp-scaler 3.14)
	    (random-phase-dialog #f))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless random-phase-dialog
			      (let ((initial-random-phase-amp-scaler 3.14)
				    (sliders ()))
				(set! random-phase-dialog
				      (make-effect-dialog
				       "Randomize phase"
				       
				       (lambda (w data)
					 (rotate-phase (lambda (x) (random random-phase-amp-scaler))))
				       
				       (lambda (w data)
					 (help-dialog "Randomize phase"
						      "Move the slider to change the randomization amplitude scaler."))
				       
				       (lambda (w data)
					 (set! random-phase-amp-scaler initial-random-phase-amp-scaler)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (car sliders)) random-phase-amp-scaler)
					 )))
				
				(set! sliders
				      (add-sliders random-phase-dialog
						   (list (list "amplitude scaler" 0.0 initial-random-phase-amp-scaler 100.0
							       (lambda (w data)
								 (set! random-phase-amp-scaler (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							       100))))))
			    (activate-dialog random-phase-dialog))
			  #f)
	(set! misc-menu-list (cons (lambda ()
				     (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Randomize phase (~1,2F)"  random-phase-amp-scaler)))
				   misc-menu-list))))
    
    ;; -------- Robotize
    
    (let ((child (gtk_menu_item_new_with_label "Robotize")))
      (gtk_menu_shell_append (GTK_MENU_SHELL misc-cascade) child)
      (gtk_widget_show child)
      (let ((samp-rate 1.0)
	    (osc-amp 0.3)
	    (osc-freq 20)
	    (robotize-dialog #f)
	    (robotize-target 'sound))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless robotize-dialog
			      (let ((initial-samp-rate 1.0)
				    (initial-osc-amp 0.3)
				    (initial-osc-freq 20)
				    (sliders ()))
				(set! robotize-dialog
				      (make-effect-dialog
				       "Robotize"
				       
				       (lambda (w data)
					 (let ((ms (and (eq? robotize-target 'marks)
							(plausible-mark-samples))))
					   (effects-fp samp-rate osc-amp osc-freq
						       (case robotize-target 
							 ((sound)     (values 0 (framples)))
							 ((selection) (values (selection-position) (selection-framples)))
							 (else        (values (car ms) (- (cadr ms) (car ms))))))))
				       (lambda (w data)
					 (help-dialog "Robotize"
						      "Move the sliders to set the sample rate, oscillator amplitude, and oscillator frequency."))
				       
				       (lambda (w data)
					 (set! samp-rate initial-samp-rate)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (car sliders)) samp-rate)
					 (set! osc-amp initial-osc-amp)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (cadr sliders)) osc-amp)
					 (set! osc-freq initial-osc-freq)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (caddr sliders)) osc-freq)
					 )
				       
				       (lambda () 
					 (effect-target-ok robotize-target))))
				
				(set! sliders
				      (add-sliders robotize-dialog
						   (list (list "sample rate" 0.0 initial-samp-rate 2.0
							       (lambda (w data)
								 (set! samp-rate (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							       100)
							 (list "oscillator amplitude" 0.0 initial-osc-amp 1.0
							       (lambda (w data)
								 (set! osc-amp (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 1)))))
							       100)
							 (list "oscillator frequency" 0.0 initial-osc-freq 60
							       (lambda (w data)
								 (set! osc-freq (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 2)))))
							       100))))
				(add-target (gtk_dialog_get_content_area (GTK_DIALOG robotize-dialog)) 
					    (lambda (target) 
					      (set! robotize-target target)
					      (sensitize-target robotize-dialog target))
					    #f)))
			    (activate-dialog robotize-dialog))
			  #f)
	(set! misc-menu-list (cons (lambda ()
				     (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Robotize (~1,2F ~1,2F ~1,2F)" samp-rate osc-amp osc-freq)))
				   misc-menu-list))))
    
    ;; -------- Rubber sound
    
    (let ((child (gtk_menu_item_new_with_label "Rubber sound")))
      (gtk_menu_shell_append (GTK_MENU_SHELL misc-cascade) child)
      (gtk_widget_show child)
      (let ((rubber-factor 1.0)
	    (rubber-dialog #f)
	    (rubber-target 'sound))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless rubber-dialog
			      (let ((initial-rubber-factor 1.0)
				    (sliders ()))
				(set! rubber-dialog
				      (make-effect-dialog
				       "Rubber sound"
				       
				       (lambda (w data) 
					 (rubber-sound rubber-factor))
				       
				       (lambda (w data)
					 (help-dialog "Rubber sound"
						      "Stretches or contracts the time of a sound. Move the slider to change the stretch factor."))
				       
				       (lambda (w data)
					 (set! rubber-factor initial-rubber-factor)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (car sliders)) rubber-factor)
					 )
				       
				       (lambda () 
					 (effect-target-ok rubber-target))))
				
				(set! sliders
				      (add-sliders rubber-dialog
						   (list (list "stretch factor" 0.0 initial-rubber-factor 5.0
							       (lambda (w data)
								 (set! rubber-factor (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							       100))))
				(add-target (gtk_dialog_get_content_area (GTK_DIALOG rubber-dialog)) 
					    (lambda (target) 
					      (set! rubber-target target)
					      (sensitize-target rubber-dialog target))
					    #f)))
			    (activate-dialog rubber-dialog))
			  #f)
	(set! misc-menu-list (cons (lambda ()
				     (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Rubber sound (~1,2F)"  rubber-factor)))
				   misc-menu-list))))
      
    ;; -------- Wobble
    
    (let ((child (gtk_menu_item_new_with_label "Wobble")))
      (gtk_menu_shell_append (GTK_MENU_SHELL misc-cascade) child)
      (gtk_widget_show child)
      (let ((wobble-frequency 50)
	    (wobble-amplitude 0.5)
	    (wobble-dialog #f)
	    (wobble-target 'sound))
	(g_signal_connect child "activate"
			  (lambda (w d) 
			    (unless wobble-dialog
			      (let ((initial-wobble-frequency 50)
				    (initial-wobble-amplitude 0.5)
				    (sliders ()))
				(set! wobble-dialog
				      (make-effect-dialog
				       "Wobble"
				       
				       (lambda (w data)
					 (let ((ms (and (eq? wobble-target 'marks)
							(plausible-mark-samples))))
					   (effects-hello-dentist wobble-frequency wobble-amplitude
								  (case wobble-target
								    ((sound)     (values 0 (framples)))
								    ((selection) (values (selection-position) (selection-framples)))
								    (else        (values (car ms) (- (cadr ms) (car ms))))))))
				       (lambda (w data)
					 (help-dialog "Wobble"
						      "Move the sliders to set the wobble frequency and amplitude."))
				       
				       (lambda (w data)
					 (set! wobble-frequency initial-wobble-frequency)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (car sliders)) wobble-frequency)
					 (set! wobble-amplitude initial-wobble-amplitude)
					 (gtk_adjustment_set_value (GTK_ADJUSTMENT (cadr sliders)) wobble-amplitude)
					 )
				       
				       (lambda () 
					 (effect-target-ok wobble-target))))
				
				(set! sliders
				      (add-sliders wobble-dialog
						   (list (list "wobble frequency" 0 initial-wobble-frequency 100
							       (lambda (w data)
								 (set! wobble-frequency (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 0)))))
							       100)
							 (list "wobble amplitude" 0.0 initial-wobble-amplitude 1.0
							       (lambda (w data)
								 (set! wobble-amplitude (gtk_adjustment_get_value (GTK_ADJUSTMENT (sliders 1)))))
							       100))))
				(add-target (gtk_dialog_get_content_area (GTK_DIALOG wobble-dialog)) 
					    (lambda (target) 
					      (set! wobble-target target)
					      (sensitize-target wobble-dialog target))
					    #f)))
			    (activate-dialog wobble-dialog))
			  #f)
	(set! misc-menu-list (cons (lambda ()
				     (gtk_menu_item_set_label (GTK_MENU_ITEM child) (format #f "Wobble (~1,2F ~1,2F)" wobble-frequency wobble-amplitude)))
				   misc-menu-list))))
    )
  
;;;
;;; END PARAMETRIZED EFFECTS
;;;
  
  (add-to-menu effects-menu #f #f)
  (add-to-menu effects-menu "Octave-down" (lambda () (down-oct 2)))
  (add-to-menu effects-menu "Remove clicks"
	       (lambda ()
		 (let remove-click ((loc 0))
		   (define (find-click loc) 
		     (let ((reader (make-sampler loc))
			   (mmax (make-moving-max 10))
			   (samp0 0.0000)
			   (samp1 0.0000)
			   (samp2 0.0000)
			   (len (framples))
			   (local-max 0.0))
		       (call-with-exit
			(lambda (return)
			  (do ((ctr loc (+ ctr 1)))
			      ((= ctr len) #f)
			    (set! samp0 samp1)
			    (set! samp1 samp2)
			    (set! samp2 (next-sample reader))
			    (set! local-max (max 0.1 (moving-max mmax samp0)))
			    (if (and (> (abs (- samp0 samp1)) local-max)
				     (> (abs (- samp1 samp2)) local-max)
				     (< (abs (- samp0 samp2)) (/ local-max 2)))
				(return (- ctr 1))))))))
		   (let ((click (find-click loc)))
		     (if click
			 (begin
			   (smooth-sound (- click 2) 4)
			   (remove-click (+ click 2))))))))

  (define* (effects-remove-dc snd chn)
    (let ((len (framples snd chn)))
      (do ((data (make-float-vector len))
	   (reader (make-sampler 0 snd chn))
	   (lastx 0.0)
	   (lasty 0.0)
	   (i 0 (+ i 1)))
	  ((= i len)
	   (float-vector->channel data 0 len snd chn current-edit-position "effects-remove-dc")) 
	(let ((inval (next-sample reader)))
	  (set! lasty (- (+ inval (* 0.999 lasty)) lastx))
	  (set! lastx inval)
	  (float-vector-set! data i lasty)))))
  
  (add-to-menu effects-menu "Remove DC" effects-remove-dc)
  (add-to-menu effects-menu "Spiker" spike)
  
  (define* (effects-compand snd chn)
    (let ((tbl (float-vector -1.000 -0.960 -0.900 -0.820 -0.720 -0.600 -0.450 -0.250
			     0.000 0.250 0.450 0.600 0.720 0.820 0.900 0.960 1.000)))
      (let ((len (framples snd chn)))
	(let ((reader (make-sampler 0 snd chn))
	      (data (make-float-vector len)))
	  (do ((i 0 (+ i 1)))
	      ((= i len))
	    (float-vector-set! data i (array-interp tbl (+ 8.0 (* 8.0 (next-sample reader))) 17)))
	  (float-vector->channel data 0 len snd chn current-edit-position "effects-compand")))))
  
  (add-to-menu effects-menu "Compand" effects-compand)
  
  (add-to-menu effects-menu "Invert" (lambda () (scale-by -1)))
  (add-to-menu effects-menu "Reverse" reverse-sound)
  (add-to-menu effects-menu "Null phase" zero-phase)
  
  ) ; *gtk*
