Combinator Jukebox

[SuicideJunkie]

I have made a Jukebox!
Jump to latest, useful version in this thread: viewtopic.php?f=193&t=61306#p370811


Original prototype below
------

When a green signal of 1 comes in from the bottom right, the song will be loaded from the combinators on the left and start playing! When the green signal goes to zero, the clock resets.
I'm not the best at this, so it is not super optimized. If anyone cares to improve it, please do so, and let me know so I can make mine better too!

The blueprint I've attached is what I've been using to play (an off-key) Twinkle Twinkle Little Star whenever a rocket is launched at my base.
You get one note per signal (with Fish and Green being reserved for Clock and Play respectively), so tunes can be quite long although you'll need multiple constant combinators on the left side for longer tunes.

I hope people with more musical talent will take advantage of this to write or translate better songs and post them.
With two or more copies of the system, more instruments and chords can be used as well.

Jukebox.png (519.54 KiB) Viewed 5357 times

blueprint string

Code: Select all

0eNrVWl2S2jgQvosesyZryT8Y12Srks3TPuQCqSmXbASoxn8lyyTUlA+QW+Rse5KVbAwyg8AiZjL7MgWy9Fnd36fuVjPPIE5rUjKacxA+A5oUeQXCr8+gouscp3KM70oCQkA5yYAFcpzJb5hRvskIp8ksKbKY5pgXDDQWoPmSfAchbKyrGEuS0CVh5wHQCICSFWuGswzHKZlVJcFPRIVwmkcLkJxTTklnVPtlF+V1FouZIby0FQuURSWWFrl8vzTpvWeBHQhnjnjFkjKSdA+RBYTXOCvSKCYbvKVisVixh4zEs2ULU8nRFWUVj17YtaWM12LksKFuxozgZCMtqoiEGb9uzQjJ5UJhUIlZa1AI/v3xU8wsal7WN+whKcqdsKbOebRiRRbRXMCAkLOaNO3jPO9c0hoK5Z9uG4rn6VL40RaTKUtqytvvqHkUy5F2PhpOh2J6I8VxQia6ok09n2gUn0fUSSmVB45jefp8R3BTEkFWuw3w8cvnG9jaM2/GiBkhzjhCHFNCnD0d770hIe5vIgQN+fjz5rNjRAYyIwMijftdU/e7qvuncPgwWDP8bbai1a+FM5WPdxf40L1axwQjy1PHeqcqt4Z+d2V2OUuJZ8agN+44eaZ8evc9Tndm94/7suteZnfxgkIN1+7pxBOVnImVl7TgjtOCfzC+j1YXlTDzOynAoRD880JY0ZQTpqkCdRzaXYVQy7jp2FfKQB0IVEBc+0opqANBCohnK8WgCYijgPhHENcIxFVA5kcQzwjEU0CCI4hvBOIrIIsjyNwIZK6AQHhECYxQAhUFHVEWRigLFUXVm20E81GFURQHzXT7SYVRNAfNlPu3CqOoDppp97MKo+hOZiyTQmQ+LhbNTfPSzO0Lb/hGCu9h5nl4eJ1Cz7+SCwKNwwPD4N+V1XZzp2gPp4j2cIpoj6aI9miKaI/gBNFeAbk92qNJon0wRbAPpoj1/iSh3p8k0ruTBHp3kjjvTBXm0eVKWJcFFsZZoG+/2L8zCdzvBjphoghOLxX6C+aYe6zuKgPhOKplrDZom9pm2f5V2qb6u+ugX/rwFrqlhs25sSTCm0i0/3cc/vUGOFxcaRJAsybCVQnAK60re6RG0OVfWnQNXKgpNft3HmRxgyqUHzb68t1+cWqbo31yWKSNtsLtc2u0xWlNIlpFJeWC6ZZQmT8r8SETTujjZl5w0n62jeg+Q5dYPtxJmeJdjJOnaFuktTRQcHYYW6dFjNN01+9MfC6+RWWR7spNke+HGzlO2AsTN2Jq+wCEK5xWYnk7VORRhssjolyZkarCa+ldcJZ/4w6+7mbnv1LL8bY7nWk7cVwX93LOhsZnWHNGXbPbYNfkh1NeBpUjWe/P4+E++PgLHVmNwZ5R4jqUmc4oRRplrksZqNehcxKcPtz+k542H7XH3KyoMGxLn70EiDqy9UCo/AuBBVIcE2EU+Kd+InHxXYxshaI6nwdzhAK4sOeoaf4DPeUKSQ==

Detailed explanation:
Song Constants: High bits of the signal = timing. Low bits = pitch.
Clock adds Green and multiplies by Green, so 0=reset and 1=Play
The clock is bitshifted up to the same position as the timing bits to simplify the memory cell.
Memory cell forgets each note as the clock passes it, and on that last cycle before getting dropped, the note is passed on to the output.
Output block filters out the timing bits, leaving only the pitch bits, and combines them all down to Green signal.
Green signal then gets played on the speaker.

Jukebox_labels2.png (606.92 KiB) Viewed 5357 times

[/spoiler]
See the latest here:

[johnwhile]

Wow, nice, to create the music you have used some tools to convert MIDI file to bits or you have done all manualy ?
it is very interesting now to try to optimize, reduce the bits and use more speakers... i will try

[SuicideJunkie]

I plugged in numbers manually, using the top left bit shifter so that timing and pitch could be typed in separately. I did a terrible job on the tune, but it works as a proof of concept.

I should also note that a serious jukebox would use a "Green > 0" => "1xGreen" combinator on the play button, and a set of "Green = X" filters to decide which of multiple tunes to load into the memory cell.

[johnwhile]

Hi, now i understand your system, is not so simple
I'm working in this way:

idea to encode

Like you i will use one signal to encode 3 different pitch, 1 time and 1 note position.
One constant combinator can contain 18 signals but with the note's position number you can chain 2048/18 = 113 constant combinators for a total of 2048 notes. But the hard work is write manually all these numbers....

[SuicideJunkie]

How do you plan to actually get durations out of a speaker? As I understand it, the speakers play a fixed strum/ding/plink/etc sample, and if the signal is still present, they repeat it.
IE: DingDingDingDing, not Diiiiiiiiiinnnnnng.

Chords in one signal is a good addition; when the timing activates it, you can have three parallel mask & bitshift paths to send pitches to three separate speakers.
I had tried to think of a way to have it be Pitch bits, Speaker bits, Timing bits, but I couldn't see a way to break up the speaker bits from the pitch and then bring them back together because they're the same signal and would just add together.

To extend that idea in a different direction:
A couple bits can be reserved for paging... instead of being wired into a speaker, they'd be wired into a loader for another bank of constants and would also trigger a clock reset. That would allow for very long tunes. Even more so if the page loaders are specific to the signal type. If the low bits were set it would also play the final note, but if the pitch bits cover 1-63, a 64 would load page 2, 128 would load page 3, 192 would load page 4, etc, and 512 and up would be timing bits within the page.

I'm also thinking that the clock can be removed, by doing Memory Cell ---> {EACH} > 0 => 1x {EACH} ---> {EACH} * -512 ----> Memory Cell.
IE: Subtract 1 from the timing bits of all signals in the memory cell. Then play them when they reach time=0 rather than time < clock.
Not entirely sure if the combinators will do that; I'll have to test it after work. It will free up the fish signal for another note. It will also need plenty of bits reserved for timing, but multi-page tunes would no longer be limited by the clock overflowing, and spending more bits on chords instead of timing would be more affordable.

---

Actually, I think I may have just seen what you mean for your Time value.
The fish clock signal would tick once, and release the first note. Then a secondary clock would count down from 2^N. When it hits zero, it increments the fish clock by one, releasing the second note and that note definition would add to the secondary clock so it counts down towards zero again. Repeat until done.
You can't hold the note as such, but you can delay the start of the next one arbitrarily long.
That would be completely compatible with the paging idea, and I think would make the songs potentially play for years with enough constant combinators.

[johnwhile]

True... after some test with a clock where are no way to make a continuous sound, one note have its fixed time of execution. So, is not necessary indixing the notes, just sort notes by time: store only pitch (or more pitch) and time of execution.

To chain more constant combinators and avoid sum of signals require some combinators to select the correct input....

[johnwhile]

After various versions I came to the conclusion that your system is the simplest. In this version I used a different method to filter the notes and i increase the song lenght.

scheme

TimeAndOnePitch

Code: Select all

0eNrtXFtvq0YQ/i+81j7aGxdbaaW0p5dzHto85K2KELY39upwE+C0VuT/3gVis7EhsMvESXXykgQwH8vM7Hwz367zaC3CLU8zERfW/NESyyTOrfnfj1Yu1nEQlueKXcqtuSUKHlkTKw6i8mjFl2LFs+kyiRYiDooks/YTS8Qr/q81x/tJL0CQiWIT8UIs2zHI/m5i8bgQheD1iKqDnR9vowXP5EOOUOWYiyAuVKCJlSa5vDeJyxFIvKkzsXbyly0fsRIZX9bXyKS8vciS0F/wTfAg5L3yhnsRFjzrsMSDyIqtPHMcQP2JKSqHv0y2pSlxjzG6MLCK4SjW0AEhCgglRxCqBUIVEOYdQZgWCFNAHHYEsbVAbAXEQ0cQRwvEUUBmjWFdLRBX9Q5pjOJpoXgqCmusMtNCmT2LlMYsGGnBXKswbmMYrBe3P6swsybmsF7k/qLAENQYGOvF7mcVhjQWxnrR+6sKYyu20Yvf31QYV7GNXgT/rsJ4im30YvgPNTkgxTbe/q66Esd1csxLMFz+WGecx2oOFqs6c4psuRVFdYjl3ftyICdpmvRk/PNEzT7ZOqm6gfXl5ZU4Dv1eZHnhD7YLD5ab0jQ5L2H8A6nIPDOxkpRnQT0K6+pK3ppsi3SrDb7XsS+u3EE6r9MOg1NNXqQX5UUPgBc9AFrENgAtKiDmtIhdAFpUQMxpUXmdEbRIIViRQpAiAeFEAkKJCIIRVRRzQvQg6FCJlRFsqKKYk6ESLSO4UEUZR4VEycrlsT2MKdlLzdVZ3kYHlmSDEvcT5DiKvK3NdSDGqnqQY0yDrBrj3PrJgBp3PAyTf2rkdOdX3vDvsyTyRSyBrPl9EOZcjzrRucWfqDTjq9NPD3SPbeaeE151XtE9qiUPPkInHvrRpHh54Nmu2Ih4/YKXimzb6aQWo7OXp4xzcozxmZMm3WXRS2XTKRLpcLfTWCEKwnAaBlF67mbSOLnNrYcHHd36al7VMP1ZvJ+YussirpngQi9TWFKCAEpLSkE0FxtCdKEeAygvGUIA9SVTtCjzApMpYpR5hckYhPDCHAjhhXkgwosNU2XaiiQ1osy0FU1qRJ1pq6KUeaVpuyDCiz0DEV4cBCK8OAwZV5vesHrFMxde6HctvLg9FcSsw+AzM+HlQvyoZhjzFQkCIb2gdyO92BDSC4WQXijIigSE9EIgpBcQVvQgOBGEEVWdwpwQVZQRyosLory4IMqL/cbKi/dyG9nSNram7jJeTZp78mbaS1VAvEfthfV0lzMdaWaw/7CZ/+jbijP4nYozfQoB6pl1zlCxZtZTatl6D+pSLjDREXPohcUcPEbMORPK3C4bUDP5Bl+mPHXU5XXj+tRxIQpUR1lcN69QXQQh37gEQr5xKYR84zoeQJWKAIpUBFCjgpSoCKJEBVkbBFkaBBFsEER9iiDKUwRRnZoLNZgNrF6YuVSDv+89Mr2rPXaXzW0zteZCdKi2RG+s1kAsZSh6wAi1BoIJPQAeRB8s+MGCHyxoyIIDusX2jO2Y9fj4bXt88k57/OE7KioO1dtS8dzDBA30sKvTpuMLt+lkTJveuakCe1pRPa2DGn/q2nHyGlqjh061RpPy7tYwdttDrkf4JX27p7Gnr1O2+m+mXbsTxYVKYmKvW7rfvlrd/kW3aEc9pvfOVb1uibgluXTkMTL0Gwt6iwFTrOVPkAl60ofpuApg1eDwdCAimp25u4uInM7AaHc4Hehw3a8S1km4Syc2av5uO747eDcmK3a+MDFMWvTCSetLe9Jiz7PWDwYx/FU3ac20ktLQyKMmqYb+H1LN17NUc/XmqYaQoamGIM1UM1DqI9pSH33qY9g7Efro87l3/ednA7feaM6+0/nU644u2Y80sl+aJessiKJgEfJpnvLgG28xf2P81+o1bl7e2n1VXX56TnlaerdilwO5+A9BuOW+yP1UFNJr1aQoGSSXf0Ty/ett8fKxScGrv5Ge7VnLIqu007OhpGGwWwTLb/5DEm7Lt5OZ6nhuHSYL2c7tnrYTTKyg7K78NAl36SaJd0/zuDzPs7OX3MiPVheOt1enktiPgvTwtvWdEc/zYF3aVsaXnNrVfxyYK//hYGKFwYJLr1i3IuLX8eqvmN9UVptYssfOa4XAcwn2qIMo2+//AzZgzUE=

https://soundcloud.com/john-while/twink ... e-factorio

[SuicideJunkie]

Jukebox Mk2!

This has three "tunes" pre-loaded.
Make your selection using the bottom-most constant combinator, setting fish = 1, 2, or 3.
Then give the inserter arm an iron plate 'coin' to begin the song!

#1 is johnwhile's rendition of Twinkle Twinkle, with alternating instruments.
#2 is a rapid note-sweep, which also then loads up #1 as a finisher.
#3 is the song that never ends (in its entirety)

JukeboxThatNeverEnds_Labels.png (696.19 KiB) Viewed 5181 times

Blueprint String

Code: Select all

0eNrtXW1z47YR/isdfmylDt4Jeq43kzZtk0svaZMmbdO50VAybHMskRqS8p3nRv+9oGRJC0oUhTV0yqX+krNF8xGwC+zLswvkYzSeLsy8zPI6uvoYZZMir6Kr/36Mquw2T6fNZ/Xj3ERXUVabWTSI8nTW/JaWWX03M3U2GU6K2TjL07ooo+UgyvJr8yG6ostBL0bzXXWa14cR2PLdIDJ5ndWZWQ9p9cvjKF/Mxqa0X3EUaBDNi8q+W+TN91u8oRpEj/Yfab/iOivNZP2MDZrX67KYjsbmLn3I7Lv2hZtsWpuyQxQPWVkv7CfbAaz/YvjXZviTYtHIUkuaKE2THol0QX0FoWJNNVMEiMYH6msAlRDBk5jQLRT3gnoDoaTSTGq2hRJeUN8AKEpIwqQAM5ReWH9zsLhFSshuXMoL662DpajSXOzGFXthfetgWTUmcbxbENoL6zuIRamglLHdHBMvrL87WIJwptQOixIvsH84YEpJYdW5A/Nb9t87YAmLpQTSp34L/wcIxqhOVALET/2W/j8dMCGpFgyMTCzfrZ7n+dqwVA0kbf5zWxqTQ/uVXT/tYPA7t68vwWcbG8c8bVx8dhv3I5QDZ1yzmCukkfvJwZKECArsiZ+y/+VgxYpJBfTjp+t/QyxBmIgJsE1+du4/DhbTSoskQdq5nx0sKXSSiD4757rc90VxbfLh5M5UtQOmrU3hus/QuWBZWRyAkiTmTAPZ6xOgqtqY6QEsbo05k0mPnWtjFWV6a4Z2t9w7YDKJpQLC7zB0Llpdpnk1L8p6ODZTd3DaAlqh9dk6F+8mrephN6hqDBX0qh02zwU1H+alqapjuFwLQqjuM38u7sL+bXlbWozrfUQllF2ECtpAn8U8nqaTexcw5lLHYOraz6jSDiPKPY2oPLsRJY6xonbHCKQJpQCJJ5zRWCENKANISkquwGLxM58cRok0lgRsYL81IhwbJWicgO3mZzslhEqUIpoqZIioABQTCeHQqPhFiDFUH6FCyVgjA0QNoARnksexQMaHCYSyW1IyICvP8PALiGV9nw0QY2x0+EeAJa3D0iTR2ODwTxBLcUUSsHM8Y8Mv4dahinAtBdYs/hli2WDBGkVgEf3W/F8AVsyIDYDpLvOjyte6uiGrneEkKyeLrD5qfMV2UNdmkll3ctz28t97Wd8nzJF9dp1tJ3GTlVU9OllM6+muZbFyDyuXYYc5T8vVMK+iP9iXikU9X3jAmgdTPtZ3WX67xp4/jla6GN2UxWyU5RYsuqrLhVl2qKE013tKEA0rclA/fKVO1q0/0aEh2UPq7CnpiUixqloe1soO53mKMenkrpFdZRqY0U491C6HYm6sdlajil6/RujnSe1Lr02QuKue7YR+SFtxh8iVr8jji4tcXUjijHZK/LCGVIfMY1+Z64vLnLgy/92nEjnxFLnuELn2DLw3El8GDLVh/EGRQTaMO7D8BIw3ODKwhnGGQIbUML6QyFgaxhXYIBpy5TEyenZIcmTY7LDjyHj5jcPzYiNlhxGn2BjZ4cIZNjp2WHCOjYsd/hsdETvMt8TGwg7nrWAUjCa7QR4T41lujeY7kg6zm+DMLvP5bt3KBihppwPuc8Y6Btu86OeXh2qTI7CTcoTzR6Pa9dOvXmGyhRX60lf/R/1yp8wpjhF7ccwvjvnFMb845hfH3MMSdBpehjO8Xq6Z7qVvLVfd9s3NOjrqu7uYI8qR5B67KLnHPj9yjzIsu0d3BOw4ux2aqR1IaSOseTE1B1RENyqiG9rjpJH3rCBx/HFjPI4+j9vtEmyPfO4SHD++GUTPXpE9z/tG1mkJvFlX0tLL2eLc7Y7ZC3SH1A10fxuekOrYFsi1v+NZ52VxW6azWTqemmE1N+m9OSBjcTzO3Sh2K94w9oi07NGr1eOn72o+tkpdhdcbTzZ6SKcLM8qq0TyrbdqwMjSNt6rsDzMrhM3SzovarH4mXomFOrCGrayckcyn6eM4ndyPHorpopmgXRvbz26nxTidTh83I7M/F+9H1uQ8zu+K/OnjZfO5KfemeGf/dPUgurpJp5V9ffVRkY9m6XyH2Lw5M1WV3jbSjQ7qf8f5VouxlfZKZ/taR9m8Pssg2pZmn8gedK7nlgOOT6u1Ue253uWvab1L9HqPfy3rPUGW8ujlahxMaiJaBMoX3375aRiUdnGJ9ngaedo+ZARZa7qgHhT/THRwoi1kFFljvaAOmk7sC2mhXdjeywF7+F2e+NUM1YlaZDgum4ZkKp1WIcAihWHrGUdNkSzP1Y8YoBORhmhCBH1P+P5DoQO0HioRoOkQNFfj2w0TFaDRkLIQPYZUhGgvpIqE6CyEba/PaCqkCQvRT8iIDtFKyFiQLkIGe7Tx9QQGO7PxJQWmNZad/cpplhVoepaTLlMscPTs2byNIInC+ptOEppJ1CzP5nB0AIejA/gbUMLA+xsA8oxW9zhEk3scwN+A6TzD3/AQ7oaH8DYsiLNhQXwNCeFqIAre0+gQfiaBrhzvZxwYvJ/RsG3+GdVrjj+PxLt4aebd/8vXJvhyqemQKbaK+J7L/yNyUx775Zan0qUs9ipfbmhi8umKly11nPxeQ1cvWyzra7SyUPXNwzFJ3MNst1l0po4/5/K5S6P1fbqH5jh1aWmvpaUut7QAE/u0w1vc/OVXDfPc/zw5UUm4RkmGCYTdc7Vl+n7YHMV2jlwqz8tT7EPwetzX/7Z3SDo38H3dd9rzwNnvooQQMelrfWvPYG59SRuE9V0C0jqhXKZ5tpi1UTi2+w3GrSRA2EoCRK1BGBISImYNErIGiVhJiIg1SLwaJFolfbHqvv24yao7h14k4QkRTlAWMigf8rVDCRMkWQA7QTnH0tOwE5RLLD8NO0G5xvYLv3V4IuzVSbATVKBPxH/nnj1HcgawE1QILEcNO0GFwnLU3zs1BLQF/sE5sY7mDeDlQ5Khz7zDu3skoO897fBPztF5tCWGN/bIGM1Rw8t6ZILmqOE9PYqgOeqfnbIR3iQz3s5MknYqQk+LcjlFH7Ch/9/na1Zu8Wii0UXwcIZrjKYX7Yumn+GlB+jeUI67Feg8yZ/DMvonf7HSz0r+4PvI5A/aOnTyB0HwyR/0s/jKBwlQ+HhJIF8SyEskkGGqFBxXDT9b8getFD7567eVpyR/0FLhkz90sfjtYRB86geqq/jMD4DgEz9gvPF5H2UB0j76i8r68EdGf+wqruKzviRM1kcJbAbCp30uDj7vc6aFz/ueVTOmPQUx2U4Def/ZuMPm3fsE2qYA2jq9qc6bFm7vCd0/OkCFSmTCFXl+WXpVMfXLDnXY0iPvuriKKz8/zPGJSm89eQELhbi+tEMl24PTxlXn6UmL81OWUM9QeF+dEzprDZWd2KDPPQvd67XZ2ccSRC/b1dp14AyjEXBdcSCViL4bG/mJx414gmo2oJdsNiC/wO4U5mvRT2RgBTl8/3rHKTB2EAN5nIkFaxnrrkB2dScdII3m07RecTVnPkZ+eMPtHf7nuOs7xY7ezfLKlLXpPNLH3U0mjh+0ndnVMSpuRkA64P6C0qTXo7t0HQPVdkzV9mDp6TI4dc160qPr1SZOmq0nV9oqdHNs4LE/9cHRgG4tmneD9ZCuwP8oaRBN07Gxo47eLO7NuPjwm7f3zH76YGe1jjp0zJimCYntZv4fQk8U5A==

Perl code to generate the necessary constants from notes

Usage note:
First parameter is the tempo in game ticks per minimum length note.
Second parameter is a string of notes to play.
- Note letters should be followed by + or - for changing octaves, # for sharp, @ for flat, underscores for delays.
- A number at the very end will provide a load-tune signal.

EG:

Code: Select all

>perl jukeboxtune.pl 5 g-_a_b_c___b___a___c___b_________g-_a_b@_b___a___g-___f-___e-_________c_d_e@___e___d_e_d_c_e_e_d_d_c_d_____a_e_d_d_c_e_d_d_c_c_b_e_b_a3

Gives signal values for one iteration of the song that never ends, with a load-tune-3 at the end. Currently it only sets notes for the lead guitar.

Code: Select all

use strict;
use warnings;

my $speed = $ARGV[0] || 10;
my $tune = $ARGV[1];

my %notes = (a=>5, b=>7, c=>8, d=>9, e=>11, f=>12, g=>14);

my @signals = (0..9,'A'..'Z',1..4,1..9,1..7,1..7);

my $time = $speed;
while ($tune =~ s/([abcdefg])([#@+-]*)([_]*)//i)
{
        my $note = $notes{lc($1)}; $note+=11;
        my $mod = $2;
        my $len = $3;
        $note += 11 while $mod =~ s/[+]//;
        $note -= 11 while $mod =~ s/[-]//;
        $note += 1 while $mod =~ s/[#]//;
        $note -= 1 while $mod =~ s/[@]//;

        printf "Note %3d time %5d value = %10d (Sig %1s)\n", $note, $time, $note + ($time << 18), shift @signals;
        $time += $speed * (1+length($len));
}
if ($tune =~ /([0-9]+)/)
{
        $time -= 4;
        my $load = $1;
        $load = $load << 12;
        printf "Tune Load: %2d time %5d value = %10d\n", $load, $time, $load+($time << 18);
}