changeset 4:79922c7f2475

Move something
author samer
date Fri, 05 Apr 2019 17:22:47 +0100
parents 15b93db27c04
children b67a33c44de7
files examples/gui/mouse.scm examples/misc/args examples/misc/meters.scm examples/misc/mouse.scm
diffstat 4 files changed, 18 insertions(+), 17 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/gui/mouse.scm	Fri Apr 05 17:22:47 2019 +0100
@@ -0,0 +1,8 @@
+(import "samer.core.util.swing.*")
+(import "samer.units.*")
+
+(define canvas (VCanvas.))
+(define mouse (MousePosition. canvas))
+(expose canvas "canvas")
+(expose)
+
--- a/examples/misc/args	Fri Apr 05 17:00:18 2019 +0100
+++ b/examples/misc/args	Fri Apr 05 17:22:47 2019 +0100
@@ -1,23 +1,23 @@
 #properties
-#Fri Apr 05 16:58:54 BST 2019
+#Fri Apr 05 17:21:40 BST 2019
 mouse.y.trace.map.minimum=-0.0
 ft.power.plotter.window.bounds=(323,142,512,118)
 mouse.x.trace.map.symmetric=false
 x.editor.plotter.window.bounds=(490,234,231,110)
 scaler.scale.meter.map.maximum=6370.513
-exposed.bounds=(48,23,286,705)
+exposed.bounds=(4,23,286,643)
 mouse.exposed.bounds=(448,59,223,119)
 ft.power.trace.map.minimum=0.001
 mouse.y.trace.map.maximum=400.0
-waveform.plotter.window.bounds=(336,23,513,108)
+waveform.plotter.window.bounds=(290,23,513,108)
 mouse.y.trace.window.bounds=(694,148,264,86)
-waveform.scaler.laplace.e.plotter.window.bounds=(4,22,1024,118)
+waveform.scaler.laplace.e.plotter.window.bounds=(4,23,1024,118)
 playlist.files='("/Users/samer/Music/Artists/Tunng/comments on the inner chorus/01-Hanged.mp3" "/Users/samer/Music/Artists/Tunng/comments on the inner chorus/02-Woodcat.mp3" "/Users/samer/Music/Artists/Tunng/comments on the inner chorus/03-The Wind Up Bird.mp3" "/Users/samer/Music/Artists/Tunng/comments on the inner chorus/04-Red And Green.mp3" "/Users/samer/Music/Artists/Tunng/comments on the inner chorus/05-Stories.mp3" "/Users/samer/Music/Artists/Tunng/comments on the inner chorus/06-Jenny Again.mp3" "/Users/samer/Music/Artists/Tunng/comments on the inner chorus/07-Man In The Box.mp3" "/Users/samer/Music/Artists/Tunng/comments on the inner chorus/08-Jay Down.mp3" "/Users/samer/Music/Artists/Tunng/comments on the inner chorus/09-It's just because we've got hair.mp3" "/Users/samer/Music/Artists/Tunng/comments on the inner chorus/10-Sweet William.mp3" "/Users/samer/Music/Artists/Tunng/comments on the inner chorus/11-Engine Room.mp3")
 scaler.scale.trace.window.bounds=(336,430,256,86)
 trace.bounds=(493,106,264,86)
 scaler.E=2895.934
 ft.power.trace.map.maximum=60.0
-ft.power.trace.window.bounds=(334,130,515,534)
+ft.power.trace.window.bounds=(289,130,515,534)
 mouse.x.trace.map.minimum=0.0
 waveform.scaler.scale=0.023
 scaler.output.plotter.window.bounds=(12,589,1020,118)
@@ -25,7 +25,7 @@
 mouse.y.trace.map.symmetric=false
 playlist.current=/Users/samer/Music/Onset_paper/UPFsamples/audio/RadioTarifa3.wav
 mouse.x.trace.window.bounds=(693,61,264,86)
-ft.power.image.window.bounds=(335,666,513,64)
+ft.power.image.window.bounds=(287,664,513,64)
 x1.plotter.window.bounds=(440,22,231,118)
 x1.editor.plotter.window.bounds=(419,160,289,121)
 ft.mag.plotter.window.bounds=(502,338,256,118)
--- a/examples/misc/meters.scm	Fri Apr 05 17:00:18 2019 +0100
+++ b/examples/misc/meters.scm	Fri Apr 05 17:22:47 2019 +0100
@@ -6,15 +6,16 @@
 
 (put "scale.meter" #t)
 (put "E.meter" #t)
-(put "regulated" #f)
+; (put "regulated" #f)
 (put "lineout.meter" #f)
 
 (tasks)
-(define f (linein (filesource) 1024 512))
+(define f (linein (linesrc (mono 11025)) 1024 512))
+; (define f (linein (filesource) 1024 512))
+; (set-playlist (ls "/Users/samer/audio/Music/bach-wtc-book1/Gould/11kmono"))
 (define x (norm f))
 (define y (ft-power (ft-vec x)))
 
-;(set-playlist (ls "/Users/samer/Music/Classical/Bach/The Well Tempered Clavier/Book I/Gould/11kmono"))
 (lineout (linesnk (mono 11025)) (get "LineIn"))
 (expose)
  
--- a/examples/misc/mouse.scm	Fri Apr 05 17:00:18 2019 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,8 +0,0 @@
-(import "samer.core.util.swing.*")
-(import "samer.units.*")
-
-(define canvas (VCanvas.))
-(define mouse (MousePosition. canvas))
-(expose canvas "canvas")
-(expose)
-