diff options
| author | Thomas White <taw@physics.org> | 2020-07-26 21:17:30 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2020-07-26 21:18:51 +0200 |
| commit | 7c093890069633f93d6641b9297af22aafd068d9 (patch) | |
| tree | a3bce0018085b577f95c269b9cfca272ab5ff03a /guile/starlet/effects.scm | |
| parent | 546cecd5c28517487ad659d336c90a4ac3484cf6 (diff) | |
Add effects
Diffstat (limited to 'guile/starlet/effects.scm')
| -rw-r--r-- | guile/starlet/effects.scm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/guile/starlet/effects.scm b/guile/starlet/effects.scm new file mode 100644 index 0000000..d908a52 --- /dev/null +++ b/guile/starlet/effects.scm @@ -0,0 +1,16 @@ +(define-module (starlet effects) + #:use-module (starlet base) + #:export (flash)) + + +(define pi (* 2 (acos 0))) + +(define (square-wave time hz) + (if (> (sin (* 2 pi hz time)) + 0) + 100 + 0)) + +(define (flash hz) + (lambda (time) + (square-wave time hz))) |