comparison examples/misc/scope.scm @ 8:5e3cbbf173aa tip

Reorganise some more

-(load "props.scm")
-
-(import "samer.core.types.*")
-
-(push-properties "scope.props")
-(put "canvas.background" Color.black$)
-(put "canvas.foreground" (Color. 60 220 120))
-(put "trace.background" Color.black$)
-
-(define C (node "canvas" (Plotter.)))
-(expose C "canvas")
-(.exposeMaps C)
-
-(define (oscillator nm freq)
-	(define o (Oscillator. freq))
-	(VParameter. nm (.getFrequencyModel o))
-;	(Product. (Constant. 256.0) o)
-	o
-)
-
-(tasks)
-
-(define x (VDouble. "x"))
-(define y (VDouble. "y"))
-
-(addtasks
-	(GenerateDouble. x (oscillator "fx" 0.1))
-	(GenerateDouble. y (oscillator "fy" 0.1))
-	(SilkTask.
-		(let ((P (.getPen C)))
-			(.moveto P 0 0)
-			(lambda ()
-				(.activate P)
-				(.line (.abs P (.value$ x) (.value$ y)))
-				(.move P)
-			)
-		))
-)
-
-(expose)