initial commit
This commit is contained in:
commit
a722a9eef8
121
COPYING
Normal file
121
COPYING
Normal file
@ -0,0 +1,121 @@
|
||||
Creative Commons Legal Code
|
||||
|
||||
CC0 1.0 Universal
|
||||
|
||||
CREATIVE COMMONS CORPORATION IS NOT A LAW FIRM AND DOES NOT PROVIDE
|
||||
LEGAL SERVICES. DISTRIBUTION OF THIS DOCUMENT DOES NOT CREATE AN
|
||||
ATTORNEY-CLIENT RELATIONSHIP. CREATIVE COMMONS PROVIDES THIS
|
||||
INFORMATION ON AN "AS-IS" BASIS. CREATIVE COMMONS MAKES NO WARRANTIES
|
||||
REGARDING THE USE OF THIS DOCUMENT OR THE INFORMATION OR WORKS
|
||||
PROVIDED HEREUNDER, AND DISCLAIMS LIABILITY FOR DAMAGES RESULTING FROM
|
||||
THE USE OF THIS DOCUMENT OR THE INFORMATION OR WORKS PROVIDED
|
||||
HEREUNDER.
|
||||
|
||||
Statement of Purpose
|
||||
|
||||
The laws of most jurisdictions throughout the world automatically confer
|
||||
exclusive Copyright and Related Rights (defined below) upon the creator
|
||||
and subsequent owner(s) (each and all, an "owner") of an original work of
|
||||
authorship and/or a database (each, a "Work").
|
||||
|
||||
Certain owners wish to permanently relinquish those rights to a Work for
|
||||
the purpose of contributing to a commons of creative, cultural and
|
||||
scientific works ("Commons") that the public can reliably and without fear
|
||||
of later claims of infringement build upon, modify, incorporate in other
|
||||
works, reuse and redistribute as freely as possible in any form whatsoever
|
||||
and for any purposes, including without limitation commercial purposes.
|
||||
These owners may contribute to the Commons to promote the ideal of a free
|
||||
culture and the further production of creative, cultural and scientific
|
||||
works, or to gain reputation or greater distribution for their Work in
|
||||
part through the use and efforts of others.
|
||||
|
||||
For these and/or other purposes and motivations, and without any
|
||||
expectation of additional consideration or compensation, the person
|
||||
associating CC0 with a Work (the "Affirmer"), to the extent that he or she
|
||||
is an owner of Copyright and Related Rights in the Work, voluntarily
|
||||
elects to apply CC0 to the Work and publicly distribute the Work under its
|
||||
terms, with knowledge of his or her Copyright and Related Rights in the
|
||||
Work and the meaning and intended legal effect of CC0 on those rights.
|
||||
|
||||
1. Copyright and Related Rights. A Work made available under CC0 may be
|
||||
protected by copyright and related or neighboring rights ("Copyright and
|
||||
Related Rights"). Copyright and Related Rights include, but are not
|
||||
limited to, the following:
|
||||
|
||||
i. the right to reproduce, adapt, distribute, perform, display,
|
||||
communicate, and translate a Work;
|
||||
ii. moral rights retained by the original author(s) and/or performer(s);
|
||||
iii. publicity and privacy rights pertaining to a person's image or
|
||||
likeness depicted in a Work;
|
||||
iv. rights protecting against unfair competition in regards to a Work,
|
||||
subject to the limitations in paragraph 4(a), below;
|
||||
v. rights protecting the extraction, dissemination, use and reuse of data
|
||||
in a Work;
|
||||
vi. database rights (such as those arising under Directive 96/9/EC of the
|
||||
European Parliament and of the Council of 11 March 1996 on the legal
|
||||
protection of databases, and under any national implementation
|
||||
thereof, including any amended or successor version of such
|
||||
directive); and
|
||||
vii. other similar, equivalent or corresponding rights throughout the
|
||||
world based on applicable law or treaty, and any national
|
||||
implementations thereof.
|
||||
|
||||
2. Waiver. To the greatest extent permitted by, but not in contravention
|
||||
of, applicable law, Affirmer hereby overtly, fully, permanently,
|
||||
irrevocably and unconditionally waives, abandons, and surrenders all of
|
||||
Affirmer's Copyright and Related Rights and associated claims and causes
|
||||
of action, whether now known or unknown (including existing as well as
|
||||
future claims and causes of action), in the Work (i) in all territories
|
||||
worldwide, (ii) for the maximum duration provided by applicable law or
|
||||
treaty (including future time extensions), (iii) in any current or future
|
||||
medium and for any number of copies, and (iv) for any purpose whatsoever,
|
||||
including without limitation commercial, advertising or promotional
|
||||
purposes (the "Waiver"). Affirmer makes the Waiver for the benefit of each
|
||||
member of the public at large and to the detriment of Affirmer's heirs and
|
||||
successors, fully intending that such Waiver shall not be subject to
|
||||
revocation, rescission, cancellation, termination, or any other legal or
|
||||
equitable action to disrupt the quiet enjoyment of the Work by the public
|
||||
as contemplated by Affirmer's express Statement of Purpose.
|
||||
|
||||
3. Public License Fallback. Should any part of the Waiver for any reason
|
||||
be judged legally invalid or ineffective under applicable law, then the
|
||||
Waiver shall be preserved to the maximum extent permitted taking into
|
||||
account Affirmer's express Statement of Purpose. In addition, to the
|
||||
extent the Waiver is so judged Affirmer hereby grants to each affected
|
||||
person a royalty-free, non transferable, non sublicensable, non exclusive,
|
||||
irrevocable and unconditional license to exercise Affirmer's Copyright and
|
||||
Related Rights in the Work (i) in all territories worldwide, (ii) for the
|
||||
maximum duration provided by applicable law or treaty (including future
|
||||
time extensions), (iii) in any current or future medium and for any number
|
||||
of copies, and (iv) for any purpose whatsoever, including without
|
||||
limitation commercial, advertising or promotional purposes (the
|
||||
"License"). The License shall be deemed effective as of the date CC0 was
|
||||
applied by Affirmer to the Work. Should any part of the License for any
|
||||
reason be judged legally invalid or ineffective under applicable law, such
|
||||
partial invalidity or ineffectiveness shall not invalidate the remainder
|
||||
of the License, and in such case Affirmer hereby affirms that he or she
|
||||
will not (i) exercise any of his or her remaining Copyright and Related
|
||||
Rights in the Work or (ii) assert any associated claims and causes of
|
||||
action with respect to the Work, in either case contrary to Affirmer's
|
||||
express Statement of Purpose.
|
||||
|
||||
4. Limitations and Disclaimers.
|
||||
|
||||
a. No trademark or patent rights held by Affirmer are waived, abandoned,
|
||||
surrendered, licensed or otherwise affected by this document.
|
||||
b. Affirmer offers the Work as-is and makes no representations or
|
||||
warranties of any kind concerning the Work, express, implied,
|
||||
statutory or otherwise, including without limitation warranties of
|
||||
title, merchantability, fitness for a particular purpose, non
|
||||
infringement, or the absence of latent or other defects, accuracy, or
|
||||
the present or absence of errors, whether or not discoverable, all to
|
||||
the greatest extent permissible under applicable law.
|
||||
c. Affirmer disclaims responsibility for clearing rights of other persons
|
||||
that may apply to the Work or any use thereof, including without
|
||||
limitation any person's Copyright and Related Rights in the Work.
|
||||
Further, Affirmer disclaims responsibility for obtaining any necessary
|
||||
consents, permissions or other rights required for any use of the
|
||||
Work.
|
||||
d. Affirmer understands and acknowledges that Creative Commons is not a
|
||||
party to this document and has no duty or obligation with respect to
|
||||
this CC0 or use of the Work.
|
||||
41
Makefile
Normal file
41
Makefile
Normal file
@ -0,0 +1,41 @@
|
||||
# arngment - random music generator
|
||||
#
|
||||
# Written in 2020 by Lucas
|
||||
#
|
||||
# To the extent possible under law, the author(s) have dedicated all
|
||||
# copyright and related and neighboring rights to this software to the
|
||||
# public domain worldwide. This software is distributed without any
|
||||
# warranty.
|
||||
#
|
||||
# You should have received a copy of the CC0 Public Domain Dedication
|
||||
# along with this software. If not, see
|
||||
# <http://creativecommons.org/publicdomain/zero/1.0/>.
|
||||
.POSIX:
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .c .o
|
||||
|
||||
P = arngment
|
||||
V = 0.0
|
||||
|
||||
LDLIBS = -lm
|
||||
|
||||
HDR = err.h note.h synth.h
|
||||
OBJ = err.o main.o note.o synth.o
|
||||
SRC = ${OBJ:.o=.c}
|
||||
DIST_FILES = COPYING Makefile ${HDR} ${SRC}
|
||||
|
||||
all: arngment
|
||||
|
||||
arngment: ${OBJ}
|
||||
${CC} ${LDFLAGS} -o $@ ${OBJ} ${LDLIBS}
|
||||
|
||||
${OBJ}: ${HDR}
|
||||
|
||||
play: all
|
||||
./arngment ${ARNGMENT_ARGS} | aucat -e s16 -h raw -i -
|
||||
|
||||
clean:
|
||||
rm -f arngment ${OBJ} ${P}-${V}.tgz
|
||||
|
||||
dist: clean
|
||||
pax -ws '@^@${P}-${V}/@' ${DIST_FILES} | gzip >${P}-${V}.tgz
|
||||
86
err.c
Normal file
86
err.c
Normal file
@ -0,0 +1,86 @@
|
||||
/*
|
||||
* orcawm - XCB window manager
|
||||
*
|
||||
* Written in 2020 by Lucas
|
||||
*
|
||||
* To the extent possible under law, the author(s) have dedicated all
|
||||
* copyright and related and neighboring rights to this software to the
|
||||
* public domain worldwide. This software is distributed without any
|
||||
* warranty.
|
||||
*
|
||||
* You should have received a copy of the CC0 Public Domain Dedication
|
||||
* along with this software. If not, see
|
||||
* <http://creativecommons.org/publicdomain/zero/1.0/>.
|
||||
*/
|
||||
|
||||
#include <errno.h>
|
||||
#include <stdarg.h>
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
|
||||
#include "err.h"
|
||||
|
||||
void
|
||||
err(int eval, const char *fmt, ...)
|
||||
{
|
||||
va_list ap;
|
||||
int saved_errno = errno;
|
||||
|
||||
fprintf(stderr, "%s: ", __progname);
|
||||
if (fmt != NULL) {
|
||||
va_start(ap, fmt);
|
||||
vfprintf(stderr, fmt, ap);
|
||||
va_end(ap);
|
||||
fprintf(stderr, ": ");
|
||||
}
|
||||
fprintf(stderr, "%s\n", strerror(saved_errno));
|
||||
|
||||
exit(eval);
|
||||
}
|
||||
|
||||
void
|
||||
errx(int eval, const char *fmt, ...)
|
||||
{
|
||||
va_list ap;
|
||||
|
||||
fprintf(stderr, "%s: ", __progname);
|
||||
if (fmt != NULL) {
|
||||
va_start(ap, fmt);
|
||||
vfprintf(stderr, fmt, ap);
|
||||
va_end(ap);
|
||||
}
|
||||
fprintf(stderr, "\n");
|
||||
|
||||
exit(eval);
|
||||
}
|
||||
|
||||
void
|
||||
warn(const char *fmt, ...)
|
||||
{
|
||||
va_list ap;
|
||||
int saved_errno = errno;
|
||||
|
||||
fprintf(stderr, "%s: ", __progname);
|
||||
if (fmt != NULL) {
|
||||
va_start(ap, fmt);
|
||||
vfprintf(stderr, fmt, ap);
|
||||
va_end(ap);
|
||||
fprintf(stderr, ": ");
|
||||
}
|
||||
fprintf(stderr, "%s\n", strerror(saved_errno));
|
||||
}
|
||||
|
||||
void
|
||||
warnx(const char *fmt, ...)
|
||||
{
|
||||
va_list ap;
|
||||
|
||||
fprintf(stderr, "%s: ", __progname);
|
||||
if (fmt != NULL) {
|
||||
va_start(ap, fmt);
|
||||
vfprintf(stderr, fmt, ap);
|
||||
va_end(ap);
|
||||
}
|
||||
fprintf(stderr, "\n");
|
||||
}
|
||||
21
err.h
Normal file
21
err.h
Normal file
@ -0,0 +1,21 @@
|
||||
/*
|
||||
* orcawm - XCB window manager
|
||||
*
|
||||
* Written in 2020 by Lucas
|
||||
*
|
||||
* To the extent possible under law, the author(s) have dedicated all
|
||||
* copyright and related and neighboring rights to this software to the
|
||||
* public domain worldwide. This software is distributed without any
|
||||
* warranty.
|
||||
*
|
||||
* You should have received a copy of the CC0 Public Domain Dedication
|
||||
* along with this software. If not, see
|
||||
* <http://creativecommons.org/publicdomain/zero/1.0/>.
|
||||
*/
|
||||
|
||||
extern const char *__progname;
|
||||
|
||||
void err(int, const char *, ...);
|
||||
void errx(int, const char *, ...);
|
||||
void warn(const char *, ...);
|
||||
void warnx(const char *, ...);
|
||||
96
main.c
Normal file
96
main.c
Normal file
@ -0,0 +1,96 @@
|
||||
/*
|
||||
* arngment - random music generator
|
||||
*
|
||||
* Written in 2020 by Lucas
|
||||
*
|
||||
* To the extent possible under law, the author(s) have dedicated all
|
||||
* copyright and related and neighboring rights to this software to the
|
||||
* public domain worldwide. This software is distributed without any
|
||||
* warranty.
|
||||
*
|
||||
* You should have received a copy of the CC0 Public Domain Dedication
|
||||
* along with this software. If not, see
|
||||
* <http://creativecommons.org/publicdomain/zero/1.0/>.
|
||||
*/
|
||||
|
||||
#include <limits.h>
|
||||
#include <stdio.h>
|
||||
#include <stdint.h>
|
||||
#include <stdlib.h>
|
||||
#include <unistd.h>
|
||||
|
||||
#include "err.h"
|
||||
#include "note.h"
|
||||
#include "synth.h"
|
||||
|
||||
#define nelems(_a) (sizeof(_a) / sizeof((_a)[0]))
|
||||
|
||||
#define GAIN 1.4
|
||||
#define RATE 48000
|
||||
|
||||
static void
|
||||
usage(void)
|
||||
{
|
||||
fprintf(stderr, "Usage: %s base_note\n", __progname);
|
||||
exit(1);
|
||||
}
|
||||
|
||||
int
|
||||
main(int argc, char *argv[])
|
||||
{
|
||||
int16_t buf[RATE];
|
||||
int scale[] = {
|
||||
0, 2, 3, 5, 7, 8, 10, 12,
|
||||
0, 2, 3, 5, 7, 8, 10, 12,
|
||||
12, 14, 15, 17, 19, 20, 22, 24,
|
||||
};
|
||||
struct note base_note, note;
|
||||
double l, r, t;
|
||||
size_t i;
|
||||
uint32_t k;
|
||||
int ch;
|
||||
|
||||
while ((ch = getopt(argc, argv, "")) != -1)
|
||||
switch (ch) {
|
||||
default:
|
||||
usage();
|
||||
}
|
||||
argc -= optind;
|
||||
argv += optind;
|
||||
|
||||
if (argc != 1)
|
||||
usage();
|
||||
if (!note_parse(&base_note, argv[0]))
|
||||
errx(1, "Invalid note %s", argv[0]);
|
||||
|
||||
for (;;) {
|
||||
k = arc4random_uniform(nelems(scale));
|
||||
note = base_note;
|
||||
note.offset += scale[k];
|
||||
for (i = 0; i < RATE / 2; i += 2) {
|
||||
t = i / (double)RATE;
|
||||
l = synth_distortion(GAIN,
|
||||
synth_sinewave(t, note_pitch(note)));
|
||||
r = synth_distortion(GAIN,
|
||||
synth_trianglewave(t, note_pitch(note)));
|
||||
buf[i] = l * INT16_MAX;
|
||||
buf[i + 1] = r * INT16_MAX;
|
||||
}
|
||||
|
||||
k = arc4random_uniform(nelems(scale));
|
||||
note = base_note;
|
||||
note.offset += scale[k];
|
||||
for (; i < RATE; i += 2) {
|
||||
t = i / (double)RATE;
|
||||
l = synth_distortion(GAIN,
|
||||
synth_sinewave(t, note_pitch(note)));
|
||||
r = synth_distortion(GAIN,
|
||||
synth_trianglewave(t, note_pitch(note)));
|
||||
buf[i] = l * INT16_MAX;
|
||||
buf[i + 1] = r * INT16_MAX;
|
||||
}
|
||||
fwrite(buf, sizeof(buf[0]), RATE, stdout);
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
65
note.c
Normal file
65
note.c
Normal file
@ -0,0 +1,65 @@
|
||||
/*
|
||||
* arngment - random music generator
|
||||
*
|
||||
* Written in 2020 by Lucas
|
||||
*
|
||||
* To the extent possible under law, the author(s) have dedicated all
|
||||
* copyright and related and neighboring rights to this software to the
|
||||
* public domain worldwide. This software is distributed without any
|
||||
* warranty.
|
||||
*
|
||||
* You should have received a copy of the CC0 Public Domain Dedication
|
||||
* along with this software. If not, see
|
||||
* <http://creativecommons.org/publicdomain/zero/1.0/>.
|
||||
*/
|
||||
|
||||
#include <math.h>
|
||||
|
||||
#include "note.h"
|
||||
|
||||
static int
|
||||
midi(struct note n)
|
||||
{
|
||||
/* C0 is MIDI note 12 */
|
||||
return 12 * (n.octave + 1) + n.offset + n.accident;
|
||||
}
|
||||
|
||||
double
|
||||
note_pitch(struct note n)
|
||||
{
|
||||
int m = midi(n);
|
||||
return 440.0 * pow(2.0, (m - 69) / 12.0);
|
||||
}
|
||||
|
||||
int
|
||||
note_parse(struct note *note, const char *s)
|
||||
{
|
||||
/* Semitones from C, starting at A */
|
||||
static int offsets[] = {9, 11, 0, 2, 4, 5, 7};
|
||||
struct note n;
|
||||
|
||||
if (*s < 'A' || *s > 'G')
|
||||
return 0;
|
||||
n.offset = offsets[*s - 'A'];
|
||||
s++;
|
||||
|
||||
if (*s == 'b') {
|
||||
n.accident = ACCIDENT_FLAT;
|
||||
s++;
|
||||
} else if (*s == '#') {
|
||||
n.accident = ACCIDENT_SHARP;
|
||||
s++;
|
||||
} else
|
||||
n.accident = ACCIDENT_NATURAL;
|
||||
|
||||
if (*s < '0' || *s > '9')
|
||||
return 0;
|
||||
n.octave = *s - '0';
|
||||
s++;
|
||||
|
||||
if (*s != '\0')
|
||||
return 0;
|
||||
*note = n;
|
||||
|
||||
return 1;
|
||||
}
|
||||
27
note.h
Normal file
27
note.h
Normal file
@ -0,0 +1,27 @@
|
||||
/*
|
||||
* arngment - random music generator
|
||||
*
|
||||
* Written in 2020 by Lucas
|
||||
*
|
||||
* To the extent possible under law, the author(s) have dedicated all
|
||||
* copyright and related and neighboring rights to this software to the
|
||||
* public domain worldwide. This software is distributed without any
|
||||
* warranty.
|
||||
*
|
||||
* You should have received a copy of the CC0 Public Domain Dedication
|
||||
* along with this software. If not, see
|
||||
* <http://creativecommons.org/publicdomain/zero/1.0/>.
|
||||
*/
|
||||
|
||||
struct note {
|
||||
int offset;
|
||||
enum {
|
||||
ACCIDENT_FLAT = -1,
|
||||
ACCIDENT_NATURAL,
|
||||
ACCIDENT_SHARP,
|
||||
} accident;
|
||||
int octave;
|
||||
};
|
||||
|
||||
double note_pitch(struct note);
|
||||
int note_parse(struct note *, const char *);
|
||||
38
synth.c
Normal file
38
synth.c
Normal file
@ -0,0 +1,38 @@
|
||||
/*
|
||||
* arngment - random music generator
|
||||
*
|
||||
* Written in 2020 by Lucas
|
||||
*
|
||||
* To the extent possible under law, the author(s) have dedicated all
|
||||
* copyright and related and neighboring rights to this software to the
|
||||
* public domain worldwide. This software is distributed without any
|
||||
* warranty.
|
||||
*
|
||||
* You should have received a copy of the CC0 Public Domain Dedication
|
||||
* along with this software. If not, see
|
||||
* <http://creativecommons.org/publicdomain/zero/1.0/>.
|
||||
*/
|
||||
|
||||
#include <math.h>
|
||||
|
||||
#define CLAMP(x, a, b) ((x) < (a) ? (a) : (x) > (b) ? (b) : (x))
|
||||
|
||||
double
|
||||
synth_distortion(double gain, double x)
|
||||
{
|
||||
double xg = CLAMP(x * gain, -1.0, 1.0);
|
||||
return (x + xg) / 2.0;
|
||||
}
|
||||
|
||||
double
|
||||
synth_sinewave(double t, double a)
|
||||
{
|
||||
return sin(2.0 * M_PI * t * a);
|
||||
}
|
||||
|
||||
double
|
||||
synth_trianglewave(double t, double a)
|
||||
{
|
||||
double x = t * a;
|
||||
return 2.0 * fabs(2.0 * (x - floor(0.5 + x))) - 1.0;
|
||||
}
|
||||
18
synth.h
Normal file
18
synth.h
Normal file
@ -0,0 +1,18 @@
|
||||
/*
|
||||
* arngment - random music generator
|
||||
*
|
||||
* Written in 2020 by Lucas
|
||||
*
|
||||
* To the extent possible under law, the author(s) have dedicated all
|
||||
* copyright and related and neighboring rights to this software to the
|
||||
* public domain worldwide. This software is distributed without any
|
||||
* warranty.
|
||||
*
|
||||
* You should have received a copy of the CC0 Public Domain Dedication
|
||||
* along with this software. If not, see
|
||||
* <http://creativecommons.org/publicdomain/zero/1.0/>.
|
||||
*/
|
||||
|
||||
double synth_distortion(double, double);
|
||||
double synth_sinewave(double, double);
|
||||
double synth_trianglewave(double, double);
|
||||
Loading…
Reference in New Issue
Block a user