├── .gitignore ├── README ├── android └── GuitarTuner │ ├── .classpath │ ├── .project │ ├── AndroidManifest.xml │ ├── proguard.cfg │ ├── project.properties │ ├── res │ ├── drawable-hdpi │ │ └── ic_launcher.png │ ├── drawable-ldpi │ │ └── ic_launcher.png │ ├── drawable-mdpi │ │ └── ic_launcher.png │ ├── layout │ │ └── main.xml │ ├── raw │ │ └── tuner.zip │ └── values │ │ └── strings.xml │ └── src │ └── com │ └── noisepages │ └── nettoyeur │ └── guitartuner │ ├── GuitarTunerActivity.java │ └── PitchView.java ├── ios └── GuitarTuner │ ├── GuitarTuner.xcodeproj │ ├── project.pbxproj │ └── project.xcworkspace │ │ └── contents.xcworkspacedata │ ├── GuitarTuner │ ├── GTAppDelegate.h │ ├── GTAppDelegate.m │ ├── GTViewController.h │ ├── GTViewController.m │ ├── GuitarTuner-Info.plist │ ├── GuitarTuner-Prefix.pch │ ├── PitchView.h │ ├── PitchView.m │ ├── en.lproj │ │ ├── GTViewController.xib │ │ └── InfoPlist.strings │ └── main.m │ └── tuner.pd ├── patches ├── fig2-10.pd ├── fig2-11.pd ├── fig2-12.pd ├── fig2-15.pd ├── fig2-18.pd ├── fig2-19.pd ├── fig2-20.pd └── tuner.pd └── scenes ├── Moogarina.rj ├── 10b-keyboard.pd ├── 4frank.jpg ├── 4lopsynth.pd ├── Info.plist ├── _main-orig.pd ├── _main.pd ├── bd.txt ├── cp.txt ├── follower.pd ├── g_showimage2.pd ├── grid-test.pd ├── hh.txt ├── image.jpg ├── image.jpg-orig ├── list-l2s.pd ├── lookup.pd ├── m_grid2touch.pd ├── mode-ionian.pd ├── mode-select.pd ├── moogadrum.pd ├── moogarina.jpg ├── moogarina_blow.pd ├── netrec.pd ├── ocarina-input.pd ├── oh.txt ├── pat │ ├── 2step-1.txt │ ├── 2step-2.txt │ ├── drumbass-1.txt │ ├── drumbass-2.txt │ ├── drumbass-3.txt │ ├── drumbass-4.txt │ ├── dubstep-1.txt │ ├── dubstep-2.txt │ ├── dubstep-3-rushy.txt │ ├── leavehome.txt │ ├── pattern.txt │ ├── prodigy.txt │ ├── simple-hiphop-doublebass.txt │ ├── simple-hiphop-offbeat.txt │ ├── simple-hiphop.txt │ └── test.txt ├── pref.txt ├── preferences.gif ├── rj │ ├── OVERVIEW.pd │ ├── a.txt │ ├── a_breath.pd │ ├── c.txt │ ├── c_adsr-help.pd │ ├── c_adsr.pd │ ├── c_adsrj-help.pd │ ├── c_adsrj.pd │ ├── c_cpfade-help.pd │ ├── c_cpfade.pd │ ├── c_ead-help.pd │ ├── c_ead.pd │ ├── c_lfo-help.pd │ ├── c_lfo.pd │ ├── c_madsr-help.pd │ ├── c_madsr.pd │ ├── c_madsrj-help.pd │ ├── c_madsrj.pd │ ├── c_mphasor-help.pd │ ├── c_mphasor.pd │ ├── c_multimetro-help.pd │ ├── c_multimetro.pd │ ├── c_xfade-help.pd │ ├── c_xfade.pd │ ├── dontcommitme.pd │ ├── e.txt │ ├── e_alias-help.pd │ ├── e_alias.pd │ ├── e_apdist-help.pd │ ├── e_apdist.pd │ ├── e_beequad-help.pd │ ├── e_beequad.pd │ ├── e_bitcrusher-help.pd │ ├── e_bitcrusher.pd │ ├── e_chorus-help.pd │ ├── e_chorus.pd │ ├── e_chorusr-help.pd │ ├── e_chorusr.pd │ ├── e_dubdel-help.pd │ ├── e_dubdel.pd │ ├── e_dynproc-help.pd │ ├── e_dynproc.pd │ ├── e_fbdelay-help.pd │ ├── e_fbdelay.pd │ ├── e_fbdelay2.pd │ ├── e_freqshift-help.pd │ ├── e_freqshift.pd │ ├── e_graindelread-help.pd │ ├── e_graindelread.pd │ ├── e_lop2-help.pd │ ├── e_lop2.pd │ ├── e_lop4-help.pd │ ├── e_lop4.pd │ ├── e_pan-help.pd │ ├── e_pan.pd │ ├── e_phaser-help.pd │ ├── e_phaser.pd │ ├── e_pingpong-help.pd │ ├── e_pingpong.pd │ ├── e_pitchshift-help.pd │ ├── e_pitchshift.pd │ ├── e_platereverb-help.pd │ ├── e_platereverb.pd │ ├── e_repeater-help.pd │ ├── e_repeater-help2.pd │ ├── e_repeater.pd │ ├── e_reslop-help.pd │ ├── e_reslop.pd │ ├── e_resonzq-help.pd │ ├── e_resonzq.pd │ ├── e_reverb-help.pd │ ├── e_reverb.pd │ ├── e_scompress-help.pd │ ├── e_scompress.pd │ ├── e_softclip-help.pd │ ├── e_softclip.pd │ ├── e_tremolo-help.pd │ ├── e_tremolo.pd │ ├── e_vocoder-help.pd │ ├── e_vocoder.pd │ ├── g.txt │ ├── g_hradio-help.pd │ ├── g_hradio.pd │ ├── g_hsl-help.pd │ ├── g_hsl.pd │ ├── g_hsl4-help.pd │ ├── g_hsl4.pd │ ├── g_nbx-help.pd │ ├── g_nbx.pd │ ├── g_nhsl-help.pd │ ├── g_nhsl.pd │ ├── g_showimage-help.pd │ ├── g_showimage.pd │ ├── g_showtext-help.pd │ ├── g_showtext.pd │ ├── g_tgl-help.pd │ ├── g_tgl.pd │ ├── m.txt │ ├── m_autoscale-help.pd │ ├── m_autoscale.pd │ ├── m_bpm2ms-help.pd │ ├── m_bpm2ms.pd │ ├── m_keyfollow-help.pd │ ├── m_keyfollow.pd │ ├── m_majorscale-help.pd │ ├── m_majorscale.pd │ ├── m_scale-help.pd │ ├── m_scale.pd │ ├── m_speedlimit-help.pd │ ├── m_speedlimit.pd │ ├── m_touch2grid-help.pd │ ├── m_touch2grid.pd │ ├── prophet.pd │ ├── prophetosc.pd │ ├── s.txt │ ├── s_blsaw-help.pd │ ├── s_blsaw.pd │ ├── s_blsquare-help.pd │ ├── s_blsquare.pd │ ├── s_buzz-help.pd │ ├── s_buzz.pd │ ├── s_drumelectro-help.pd │ ├── s_drumelectro.pd │ ├── s_fm4-help.pd │ ├── s_fm4.pd │ ├── s_fmoscil-help.pd │ ├── s_fmoscil.pd │ ├── s_fplaytable.pd │ ├── s_fplaytable2.pd │ ├── s_guitar-help.pd │ ├── s_guitar.pd │ ├── s_looper-help.pd │ ├── s_looper.pd │ ├── s_osc-help.pd │ ├── s_osc.pd │ ├── s_pinknoise-help.pd │ ├── s_pinknoise.pd │ ├── s_playtable-help.pd │ ├── s_playtable.pd │ ├── s_playtable2-help.pd │ ├── s_playtable2.pd │ ├── s_rhodey-help.pd │ ├── s_rhodey.pd │ ├── u.txt │ ├── u_bandpass1-help.pd │ ├── u_bandpass1.pd │ ├── u_bandpass1q-help.pd │ ├── u_bandpass1q.pd │ ├── u_bandpass2-help.pd │ ├── u_bandpass2.pd │ ├── u_bandpass2q-help.pd │ ├── u_bandpass2q.pd │ ├── u_cocollect-help.pd │ ├── u_cocollect.pd │ ├── u_collect-help.pd │ ├── u_collect.pd │ ├── u_dispatch-help.pd │ ├── u_dispatch.pd │ ├── u_fade-help.pd │ ├── u_fade.pd │ ├── u_follower.pd │ ├── u_highpass-help.pd │ ├── u_highpass.pd │ ├── u_highpassq-help.pd │ ├── u_highpassq.pd │ ├── u_listdrip-help.pd │ ├── u_listdrip.pd │ ├── u_listfilter-help.pd │ ├── u_listfilter.pd │ ├── u_listmap-help.pd │ ├── u_listmap.pd │ ├── u_listnth-help.pd │ ├── u_listnth.pd │ ├── u_listreduce-help.pd │ ├── u_listreduce.pd │ ├── u_listser-help.pd │ ├── u_listser.pd │ ├── u_loader-help.pd │ ├── u_loader.pd │ ├── u_loadmeter-help.pd │ ├── u_loadmeter.pd │ ├── u_lowpass-help.pd │ ├── u_lowpass.pd │ ├── u_lowpassq-help.pd │ ├── u_lowpassq.pd │ ├── u_makepoly-help.pd │ ├── u_makepoly.pd │ ├── u_record-help.pd │ ├── u_record.pd │ ├── u_samplebank-help.pd │ ├── u_samplebank.pd │ ├── u_samplebank2-help.pd │ ├── u_samplebank2.pd │ ├── u_sigm-help.pd │ ├── u_sigm.pd │ ├── u_spinner-help.pd │ ├── u_spinner.pd │ ├── u_splicetrans-help.pd │ ├── u_splicetrans.pd │ ├── u_sssad.pd │ ├── u_stereo-help.pd │ ├── u_stereo.pd │ └── u_wqrec.pd ├── rj_image.pd ├── rj_text.pd ├── sd.txt ├── simple-synth.pd └── thumb.jpg └── WorldQuantizer.rj ├── Info.plist ├── _main.pd ├── accelerate.pd ├── alternate.pd ├── balance.pd ├── bus.pd ├── ctrl.pd ├── drumsynth.pd ├── fbdelay.pd ├── image.jpg ├── lrtc.pd ├── mono.pd ├── phase.pd ├── phasespigot.pd ├── quant.pd ├── randrythm.pd ├── readseq.pd ├── return.pd ├── routelivein.pd ├── samplelooper.pd ├── sequence.pd ├── sfile.pd ├── snippetplayer.pd └── touch.pd /.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.so 3 | *.class 4 | *.pyc 5 | build/* 6 | *.mode1v3 7 | *.pbxuser 8 | *.perspective 9 | *.perspectivev3 10 | *.mode1v3 11 | *.mode2v3 12 | .DS_Store 13 | *.swp 14 | android/GuitarTuner/bin/ 15 | android/GuitarTuner/gen/ 16 | ios/GuitarTuner/GuitarTuner.xcodeproj/xcuserdata 17 | ios/GuitarTuner/GuitarTuner.xcodeproj/project.xcworkspace/xcuserdata 18 | -------------------------------------------------------------------------------- /README: -------------------------------------------------------------------------------- 1 | Supporting materials for "Making Musical Apps" by Peter Brinkmann 2 | 3 | Useful links 4 | * libpd at GitHub: https://github.com/libpd 5 | * libpd community site: http://libpd.cc/ (still under construction) 6 | * Get the ebook: http://shop.oreilly.com/product/0636920022503.do 7 | * Get a printed copy: http://www.amazon.com/dp/1449314902 8 | * Author's blog: http://nettoyeur.noisepages.com/ 9 | * Author's twitter feed: https://twitter.com/nettoyeurny 10 | * MIDI over Bluetooth for Android: https://github.com/nettoyeurny/btmidi 11 | 12 | Sample patches 13 | 14 | The patches directory contains some sample patches from Chapter 2 of the 15 | book. 16 | 17 | Sample projects 18 | 19 | The sample projects for Android and iOS are set up with the assumption 20 | that this repository has been cloned into the same parent directory as 21 | pd-for-android and pd-for-ios. For example, you can clone them all into 22 | your Documents directory. 23 | 24 | When importing the sample project for Android into Eclipse, make sure to 25 | select "Import -> General -> Existing Projects into Workspace". If you 26 | see spurious errors, have Eclipse clean and rebuilt your workspace. 27 | 28 | RjDj scenes 29 | 30 | The scenes directory contains sample RjDj scenes, used with generous 31 | permission from Frank Barknecht and Roman Haefeli. 32 | 33 | -------------------------------------------------------------------------------- /android/GuitarTuner/.classpath: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | -------------------------------------------------------------------------------- /android/GuitarTuner/.project: -------------------------------------------------------------------------------- 1 | 2 | 3 | GuitarTuner 4 | 5 | 6 | 7 | 8 | 9 | com.android.ide.eclipse.adt.ResourceManagerBuilder 10 | 11 | 12 | 13 | 14 | com.android.ide.eclipse.adt.PreCompilerBuilder 15 | 16 | 17 | 18 | 19 | org.eclipse.jdt.core.javabuilder 20 | 21 | 22 | 23 | 24 | com.android.ide.eclipse.adt.ApkBuilder 25 | 26 | 27 | 28 | 29 | 30 | com.android.ide.eclipse.adt.AndroidNature 31 | org.eclipse.jdt.core.javanature 32 | 33 | 34 | -------------------------------------------------------------------------------- /android/GuitarTuner/AndroidManifest.xml: -------------------------------------------------------------------------------- 1 | 2 | 6 | 7 | 8 | 9 | 10 | 11 | 15 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | -------------------------------------------------------------------------------- /android/GuitarTuner/proguard.cfg: -------------------------------------------------------------------------------- 1 | -optimizationpasses 5 2 | -dontusemixedcaseclassnames 3 | -dontskipnonpubliclibraryclasses 4 | -dontpreverify 5 | -verbose 6 | -optimizations !code/simplification/arithmetic,!field/*,!class/merging/* 7 | 8 | -keep public class * extends android.app.Activity 9 | -keep public class * extends android.app.Application 10 | -keep public class * extends android.app.Service 11 | -keep public class * extends android.content.BroadcastReceiver 12 | -keep public class * extends android.content.ContentProvider 13 | -keep public class * extends android.app.backup.BackupAgentHelper 14 | -keep public class * extends android.preference.Preference 15 | -keep public class com.android.vending.licensing.ILicensingService 16 | 17 | -keepclasseswithmembernames class * { 18 | native ; 19 | } 20 | 21 | -keepclasseswithmembers class * { 22 | public (android.content.Context, android.util.AttributeSet); 23 | } 24 | 25 | -keepclasseswithmembers class * { 26 | public (android.content.Context, android.util.AttributeSet, int); 27 | } 28 | 29 | -keepclassmembers class * extends android.app.Activity { 30 | public void *(android.view.View); 31 | } 32 | 33 | -keepclassmembers enum * { 34 | public static **[] values(); 35 | public static ** valueOf(java.lang.String); 36 | } 37 | 38 | -keep class * implements android.os.Parcelable { 39 | public static final android.os.Parcelable$Creator *; 40 | } 41 | -------------------------------------------------------------------------------- /android/GuitarTuner/project.properties: -------------------------------------------------------------------------------- 1 | # This file is automatically generated by Android Tools. 2 | # Do not modify this file -- YOUR CHANGES WILL BE ERASED! 3 | # 4 | # This file must be checked in Version Control Systems. 5 | # 6 | # To customize properties used by the Ant build system use, 7 | # "ant.properties", and override values to adapt the script to your 8 | # project structure. 9 | 10 | # Project target. 11 | target=android-10 12 | android.library.reference.1=../../../pd-for-android/PdCore 13 | -------------------------------------------------------------------------------- /android/GuitarTuner/res/drawable-hdpi/ic_launcher.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nettoyeurny/Making-Musical-Apps/291dcef6eca078a416d51f821d44e1a4214110eb/android/GuitarTuner/res/drawable-hdpi/ic_launcher.png -------------------------------------------------------------------------------- /android/GuitarTuner/res/drawable-ldpi/ic_launcher.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nettoyeurny/Making-Musical-Apps/291dcef6eca078a416d51f821d44e1a4214110eb/android/GuitarTuner/res/drawable-ldpi/ic_launcher.png -------------------------------------------------------------------------------- /android/GuitarTuner/res/drawable-mdpi/ic_launcher.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nettoyeurny/Making-Musical-Apps/291dcef6eca078a416d51f821d44e1a4214110eb/android/GuitarTuner/res/drawable-mdpi/ic_launcher.png -------------------------------------------------------------------------------- /android/GuitarTuner/res/raw/tuner.zip: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nettoyeurny/Making-Musical-Apps/291dcef6eca078a416d51f821d44e1a4214110eb/android/GuitarTuner/res/raw/tuner.zip -------------------------------------------------------------------------------- /android/GuitarTuner/res/values/strings.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | Hello World, GuitarTunerActivity! 5 | GuitarTuner 6 | 7 | -------------------------------------------------------------------------------- /android/GuitarTuner/src/com/noisepages/nettoyeur/guitartuner/PitchView.java: -------------------------------------------------------------------------------- 1 | /** 2 | * Sample code for "Making Musical Apps" by Peter Brinkmann 3 | * http://shop.oreilly.com/product/0636920022503.do 4 | */ 5 | 6 | package com.noisepages.nettoyeur.guitartuner; 7 | 8 | import android.content.Context; 9 | import android.graphics.Canvas; 10 | import android.graphics.Color; 11 | import android.graphics.Paint; 12 | import android.util.AttributeSet; 13 | import android.view.View; 14 | 15 | public class PitchView extends View { 16 | 17 | private float centerPitch, currentPitch; 18 | private int width, height; 19 | private final Paint paint = new Paint(); 20 | 21 | public PitchView(Context context) { 22 | super(context); 23 | } 24 | 25 | public PitchView(Context context, AttributeSet attrs) { 26 | super(context, attrs); 27 | } 28 | 29 | public PitchView(Context context, AttributeSet attrs, int defStyle) { 30 | super(context, attrs, defStyle); 31 | } 32 | 33 | public void setCenterPitch(float centerPitch) { 34 | this.centerPitch = centerPitch; 35 | invalidate(); 36 | } 37 | 38 | public void setCurrentPitch(float currentPitch) { 39 | this.currentPitch = currentPitch; 40 | invalidate(); 41 | } 42 | 43 | @Override 44 | protected void onSizeChanged(int w, int h, int oldw, int oldh) { 45 | super.onSizeChanged(w, h, oldw, oldh); 46 | width = w; 47 | height = h; 48 | } 49 | 50 | @Override 51 | protected void onDraw(Canvas canvas) { 52 | float halfWidth = width / 2; 53 | paint.setStrokeWidth(6.0f); 54 | paint.setColor(Color.GREEN); 55 | canvas.drawLine(halfWidth, 0, halfWidth, height, paint); 56 | 57 | float dx = (currentPitch - centerPitch) / 2; 58 | if (-1 < dx && dx < 1) { 59 | paint.setStrokeWidth(2.0f); 60 | paint.setColor(Color.BLUE); 61 | } else { 62 | paint.setStrokeWidth(8.0f); 63 | paint.setColor(Color.RED); 64 | dx = (dx < 0) ? -1 : 1; 65 | } 66 | double phi = dx * Math.PI / 4; 67 | canvas.drawLine(halfWidth, height, 68 | halfWidth + (float)Math.sin(phi) * height * 0.9f, 69 | height - (float)Math.cos(phi) * height * 0.9f, paint); 70 | } 71 | } -------------------------------------------------------------------------------- /ios/GuitarTuner/GuitarTuner.xcodeproj/project.xcworkspace/contents.xcworkspacedata: -------------------------------------------------------------------------------- 1 | 2 | 4 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /ios/GuitarTuner/GuitarTuner/GTAppDelegate.h: -------------------------------------------------------------------------------- 1 | // 2 | // GTAppDelegate.h 3 | // GuitarTuner 4 | // 5 | 6 | #import 7 | #import "PdAudioController.h" 8 | 9 | @class GTViewController; 10 | 11 | @interface GTAppDelegate : UIResponder 12 | 13 | @property (strong, nonatomic) UIWindow *window; 14 | @property (strong, nonatomic) GTViewController *viewController; 15 | 16 | @property (strong, nonatomic, readonly) PdAudioController *audioController; 17 | 18 | @end 19 | -------------------------------------------------------------------------------- /ios/GuitarTuner/GuitarTuner/GTViewController.h: -------------------------------------------------------------------------------- 1 | // 2 | // GTViewController.h 3 | // GuitarTuner 4 | // 5 | 6 | #import 7 | 8 | #import "PdDispatcher.h" 9 | #import "PitchView.h" 10 | 11 | @interface GTViewController : UIViewController { 12 | PdDispatcher *dispatcher; 13 | void *patch; 14 | } 15 | 16 | @property (strong, nonatomic) IBOutlet UILabel *pitchLabel; 17 | @property (strong, nonatomic) IBOutlet PitchView *pitchView; 18 | 19 | - (IBAction)playE:(id)sender; 20 | - (IBAction)playA:(id)sender; 21 | - (IBAction)playD:(id)sender; 22 | - (IBAction)playG:(id)sender; 23 | - (IBAction)playB:(id)sender; 24 | - (IBAction)playE2:(id)sender; 25 | 26 | - (void)receiveFloat:(float)value fromSource:(NSString *)source; 27 | 28 | @end 29 | -------------------------------------------------------------------------------- /ios/GuitarTuner/GuitarTuner/GuitarTuner-Info.plist: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | CFBundleDevelopmentRegion 6 | en 7 | CFBundleDisplayName 8 | ${PRODUCT_NAME} 9 | CFBundleExecutable 10 | ${EXECUTABLE_NAME} 11 | CFBundleIconFiles 12 | 13 | CFBundleIdentifier 14 | com.noisepages.nettoyeur.${PRODUCT_NAME:rfc1034identifier} 15 | CFBundleInfoDictionaryVersion 16 | 6.0 17 | CFBundleName 18 | ${PRODUCT_NAME} 19 | CFBundlePackageType 20 | APPL 21 | CFBundleShortVersionString 22 | 1.0 23 | CFBundleSignature 24 | ???? 25 | CFBundleVersion 26 | 1.0 27 | LSRequiresIPhoneOS 28 | 29 | UIRequiredDeviceCapabilities 30 | 31 | armv7 32 | 33 | UISupportedInterfaceOrientations 34 | 35 | UIInterfaceOrientationPortrait 36 | 37 | 38 | 39 | -------------------------------------------------------------------------------- /ios/GuitarTuner/GuitarTuner/GuitarTuner-Prefix.pch: -------------------------------------------------------------------------------- 1 | // 2 | // Prefix header for all source files of the 'GuitarTuner' target in the 'GuitarTuner' project 3 | // 4 | 5 | #import 6 | 7 | #ifndef __IPHONE_4_0 8 | #warning "This project uses features only available in iOS SDK 4.0 and later." 9 | #endif 10 | 11 | #ifdef __OBJC__ 12 | #import 13 | #import 14 | #endif 15 | -------------------------------------------------------------------------------- /ios/GuitarTuner/GuitarTuner/PitchView.h: -------------------------------------------------------------------------------- 1 | // 2 | // PitchView.h 3 | // GuitarTuner 4 | // 5 | 6 | @interface PitchView : UIView { } 7 | 8 | @property(nonatomic) float centerPitch; 9 | @property(nonatomic) float currentPitch; 10 | 11 | @end 12 | -------------------------------------------------------------------------------- /ios/GuitarTuner/GuitarTuner/PitchView.m: -------------------------------------------------------------------------------- 1 | // 2 | // PitchView.m 3 | // GuitarTuner 4 | // 5 | 6 | #import 7 | #import "PitchView.h" 8 | 9 | @implementation PitchView 10 | 11 | @synthesize centerPitch = _centerPitch; 12 | @synthesize currentPitch = _currentPitch; 13 | 14 | - (id)initWithFrame:(CGRect)frame 15 | { 16 | self = [super initWithFrame:frame]; 17 | if (self) { 18 | // Initialization code 19 | } 20 | return self; 21 | } 22 | 23 | -(void)setCenterPitch:(float)centerPitch { 24 | _centerPitch = centerPitch; 25 | [self setNeedsDisplay]; 26 | } 27 | 28 | -(void)setCurrentPitch:(float)currentPitch { 29 | _currentPitch = currentPitch; 30 | [self setNeedsDisplay]; 31 | } 32 | 33 | -(void)drawRect:(CGRect)rect { 34 | float halfWidth = self.frame.size.width / 2; 35 | float height = self.frame.size.height; 36 | 37 | CGContextRef context = UIGraphicsGetCurrentContext(); 38 | 39 | CGContextSetLineWidth(context, 6.0); 40 | CGContextSetStrokeColorWithColor(context, [UIColor greenColor].CGColor); 41 | CGContextMoveToPoint(context, halfWidth, 0); 42 | CGContextAddLineToPoint(context, halfWidth, height); 43 | CGContextStrokePath(context); 44 | 45 | float dx = (self.currentPitch - self.centerPitch) / 2; 46 | if (-1 < dx && dx < 1) { 47 | CGContextSetLineWidth(context, 2.0); 48 | CGContextSetStrokeColorWithColor(context, [UIColor blueColor].CGColor); 49 | } else { 50 | CGContextSetLineWidth(context, 8.0); 51 | CGContextSetStrokeColorWithColor(context, [UIColor redColor].CGColor); 52 | dx = (dx < 0) ? -1 : 1; 53 | } 54 | float phi = dx * M_PI_4; 55 | CGContextMoveToPoint(context, halfWidth, height); 56 | CGContextAddLineToPoint(context, halfWidth + sin(phi) * height * 0.9, 57 | height - cos(phi) * height * 0.9); 58 | CGContextStrokePath(context); 59 | } 60 | 61 | @end 62 | -------------------------------------------------------------------------------- /ios/GuitarTuner/GuitarTuner/en.lproj/InfoPlist.strings: -------------------------------------------------------------------------------- 1 | /* Localized versions of Info.plist keys */ 2 | 3 | -------------------------------------------------------------------------------- /ios/GuitarTuner/GuitarTuner/main.m: -------------------------------------------------------------------------------- 1 | // 2 | // main.m 3 | // GuitarTuner 4 | // 5 | 6 | #import 7 | 8 | #import "GTAppDelegate.h" 9 | 10 | int main(int argc, char *argv[]) 11 | { 12 | @autoreleasepool { 13 | return UIApplicationMain(argc, argv, nil, NSStringFromClass([GTAppDelegate class])); 14 | } 15 | } 16 | -------------------------------------------------------------------------------- /ios/GuitarTuner/tuner.pd: -------------------------------------------------------------------------------- 1 | #N canvas 584 146 450 300 10; 2 | #X obj 354 125 adc~; 3 | #X floatatom 354 169 5 0 0 1 s:pitch - pitch; 4 | #X obj 49 25 bng 15 250 50 0 empty trigger r:trigger 17 7 0 10 -262144 5 | -1 -1; 6 | #X msg 49 45 1 10 \, 0 1000 10; 7 | #X obj 49 67 vline~; 8 | #X obj 49 89 *~; 9 | #X obj 49 111 dac~; 10 | #X floatatom 192 22 5 0 0 1 r:midinote midinote -; 11 | #X obj 192 41 mtof; 12 | #X obj 192 63 osc~ 220; 13 | #X obj 354 147 fiddle~ 2048; 14 | #X connect 0 0 10 0; 15 | #X connect 2 0 3 0; 16 | #X connect 3 0 4 0; 17 | #X connect 4 0 5 0; 18 | #X connect 5 0 6 0; 19 | #X connect 5 0 6 1; 20 | #X connect 7 0 8 0; 21 | #X connect 8 0 9 0; 22 | #X connect 9 0 5 1; 23 | #X connect 10 0 1 0; 24 | -------------------------------------------------------------------------------- /patches/fig2-10.pd: -------------------------------------------------------------------------------- 1 | #N canvas 251 345 286 213 10; 2 | #X obj 38 52 adc~; 3 | #X obj 78 94 *~; 4 | #X obj 78 121 *~ 0.1; 5 | #X obj 72 159 dac~; 6 | #X obj 116 53 osc~ 220; 7 | #X text 159 99 Ring modulator; 8 | #X connect 0 0 1 0; 9 | #X connect 0 1 1 0; 10 | #X connect 1 0 2 0; 11 | #X connect 2 0 3 0; 12 | #X connect 2 0 3 1; 13 | #X connect 4 0 1 1; 14 | -------------------------------------------------------------------------------- /patches/fig2-11.pd: -------------------------------------------------------------------------------- 1 | #N canvas 251 345 336 200 10; 2 | #X obj 38 52 adc~; 3 | #X obj 78 94 *~; 4 | #X obj 78 121 *~ 0.1; 5 | #X obj 72 159 dac~; 6 | #X obj 116 53 osc~ 220; 7 | #X floatatom 116 22 5 0 0 0 - - -; 8 | #X text 159 99 Adjustable ring modulator; 9 | #X connect 0 0 1 0; 10 | #X connect 0 1 1 0; 11 | #X connect 1 0 2 0; 12 | #X connect 2 0 3 0; 13 | #X connect 2 0 3 1; 14 | #X connect 4 0 1 1; 15 | #X connect 5 0 4 0; 16 | -------------------------------------------------------------------------------- /patches/fig2-12.pd: -------------------------------------------------------------------------------- 1 | #N canvas 251 345 301 298 10; 2 | #X obj 45 129 adc~; 3 | #X obj 85 171 *~; 4 | #X obj 85 198 *~ 0.1; 5 | #X obj 79 236 dac~; 6 | #X obj 123 130 osc~ 220; 7 | #X floatatom 123 61 5 0 0 0 - - -; 8 | #X obj 123 80 mtof; 9 | #X floatatom 123 102 5 0 0 0 - - -; 10 | #X text 42 28 Improved adjustable ring modulator; 11 | #X connect 0 0 1 0; 12 | #X connect 0 1 1 0; 13 | #X connect 1 0 2 0; 14 | #X connect 2 0 3 0; 15 | #X connect 2 0 3 1; 16 | #X connect 4 0 1 1; 17 | #X connect 5 0 6 0; 18 | #X connect 6 0 7 0; 19 | #X connect 7 0 4 0; 20 | -------------------------------------------------------------------------------- /patches/fig2-15.pd: -------------------------------------------------------------------------------- 1 | #N canvas 251 345 388 281 10; 2 | #X obj 45 129 adc~; 3 | #X obj 85 171 *~; 4 | #X obj 85 198 *~ 0.1; 5 | #X obj 79 236 dac~; 6 | #X obj 123 130 osc~ 220; 7 | #X floatatom 123 61 5 0 0 1 r:midinote midinote -; 8 | #X obj 123 80 mtof; 9 | #X floatatom 123 102 5 0 0 0 - - -; 10 | #X floatatom 264 24 5 0 0 1 s:midinote - midinote; 11 | #X text 16 16 Using send and receive symbols; 12 | #X connect 0 0 1 0; 13 | #X connect 0 1 1 0; 14 | #X connect 1 0 2 0; 15 | #X connect 2 0 3 0; 16 | #X connect 2 0 3 1; 17 | #X connect 4 0 1 1; 18 | #X connect 5 0 6 0; 19 | #X connect 6 0 7 0; 20 | #X connect 7 0 4 0; 21 | -------------------------------------------------------------------------------- /patches/fig2-18.pd: -------------------------------------------------------------------------------- 1 | #N canvas 251 345 388 281 10; 2 | #X obj 116 189 *~; 3 | #X obj 116 216 *~ 0.1; 4 | #X obj 110 254 dac~; 5 | #X obj 154 148 osc~ 220; 6 | #X floatatom 154 79 5 0 0 1 r:midinote midinote -; 7 | #X obj 154 98 mtof; 8 | #X floatatom 154 120 5 0 0 0 - - -; 9 | #X floatatom 156 44 5 0 0 1 s:midinote - midinote; 10 | #X text 16 16 Simple synthesizer; 11 | #X obj 48 43 bng 15 250 50 0 empty empty trigger 17 7 0 10 -262144 12 | -1 -1; 13 | #X msg 48 78 1 10 \, 0 500 10; 14 | #X obj 48 100 vline~; 15 | #X connect 0 0 1 0; 16 | #X connect 1 0 2 0; 17 | #X connect 1 0 2 1; 18 | #X connect 3 0 0 1; 19 | #X connect 4 0 5 0; 20 | #X connect 5 0 6 0; 21 | #X connect 6 0 3 0; 22 | #X connect 9 0 10 0; 23 | #X connect 10 0 11 0; 24 | #X connect 11 0 0 0; 25 | -------------------------------------------------------------------------------- /patches/fig2-19.pd: -------------------------------------------------------------------------------- 1 | #N canvas 251 345 207 266 10; 2 | #X obj 87 145 *~; 3 | #X obj 87 172 *~ 0.1; 4 | #X obj 81 210 dac~; 5 | #X obj 27 48 bng 15 250 50 0 empty empty trigger 17 7 0 10 -262144 6 | -1 -1; 7 | #X msg 27 76 1 10 \, 0 500 10; 8 | #X obj 27 98 vline~; 9 | #X text 16 16 Simple percussion; 10 | #X obj 125 104 noise~; 11 | #X connect 0 0 1 0; 12 | #X connect 1 0 2 0; 13 | #X connect 1 0 2 1; 14 | #X connect 3 0 4 0; 15 | #X connect 4 0 5 0; 16 | #X connect 5 0 0 0; 17 | #X connect 7 0 0 1; 18 | -------------------------------------------------------------------------------- /patches/fig2-20.pd: -------------------------------------------------------------------------------- 1 | #N canvas 251 345 267 376 10; 2 | #X obj 120 258 *~; 3 | #X obj 120 285 *~ 0.1; 4 | #X obj 114 323 dac~; 5 | #X obj 158 217 osc~ 220; 6 | #X obj 158 167 mtof; 7 | #X floatatom 158 189 5 0 0 0 - - -; 8 | #X obj 43 170 vline~; 9 | #X msg 43 148 \$1 10 \, 0 500 10; 10 | #X obj 90 48 notein 1; 11 | #X obj 43 120 / 127; 12 | #X text 16 16 Simple MIDI synthesizer; 13 | #X connect 0 0 1 0; 14 | #X connect 1 0 2 0; 15 | #X connect 1 0 2 1; 16 | #X connect 3 0 0 1; 17 | #X connect 4 0 5 0; 18 | #X connect 5 0 3 0; 19 | #X connect 6 0 0 0; 20 | #X connect 7 0 6 0; 21 | #X connect 8 0 4 0; 22 | #X connect 8 1 9 0; 23 | #X connect 9 0 7 0; 24 | -------------------------------------------------------------------------------- /patches/tuner.pd: -------------------------------------------------------------------------------- 1 | #N canvas 584 146 488 226 10; 2 | #X obj 354 125 adc~; 3 | #X floatatom 354 169 5 0 0 1 s:pitch - pitch; 4 | #X obj 49 25 bng 15 250 50 0 empty trigger r:trigger 17 7 0 10 -262144 5 | -1 -1; 6 | #X msg 49 45 1 10 \, 0 1000 10; 7 | #X obj 49 67 vline~; 8 | #X obj 49 89 *~; 9 | #X obj 49 111 dac~; 10 | #X floatatom 192 22 5 0 0 1 r:midinote midinote -; 11 | #X obj 192 41 mtof; 12 | #X obj 192 63 osc~ 220; 13 | #X obj 354 147 fiddle~ 2048; 14 | #X text 46 153 Guitar tuner patch for libpd sample projects; 15 | #X connect 0 0 10 0; 16 | #X connect 2 0 3 0; 17 | #X connect 3 0 4 0; 18 | #X connect 4 0 5 0; 19 | #X connect 5 0 6 0; 20 | #X connect 5 0 6 1; 21 | #X connect 7 0 8 0; 22 | #X connect 8 0 9 0; 23 | #X connect 9 0 5 1; 24 | #X connect 10 0 1 0; 25 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/4frank.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nettoyeurny/Making-Musical-Apps/291dcef6eca078a416d51f821d44e1a4214110eb/scenes/Moogarina.rj/4frank.jpg -------------------------------------------------------------------------------- /scenes/Moogarina.rj/4lopsynth.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 0 395 315 10; 2 | #N canvas 271 219 843 507 a-synth 0; 3 | #X obj 288 196 m_keyfollow; 4 | #X floatatom 362 134 5 0 0 2 key_fl. - -; 5 | #X obj 145 137 mtof; 6 | #X floatatom 145 84 5 0 0 2 pitch - -; 7 | #X obj 291 116 mtof; 8 | #X floatatom 291 83 5 0 0 2 filter-pitch - -; 9 | #X obj 146 252 e_lop4 1000 4; 10 | #X floatatom 253 253 5 0 0 2 Q - -; 11 | #X obj 146 439 soundoutput; 12 | #X obj 147 405 e_chorusr \$0; 13 | #X msg 247 409 freq 0.8 \, mod 1.3; 14 | #X obj 247 389 loadbang; 15 | #X obj 77 250 env~; 16 | #X obj 77 273 - 100; 17 | #X obj 78 297 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; 18 | #X obj 396 189 makenote 80 500; 19 | #X obj 380 241 c_adsrj \$0; 20 | #X obj 147 297 *~ 0.4; 21 | #X obj 148 344 *~; 22 | #X obj 145 194 s_osc \$0 square; 23 | #X floatatom 494 162 5 0 0 0 - - -; 24 | #X msg 612 145 A 10 \, D 10 \, S 80 \, R 300; 25 | #X obj 291 176 * 1; 26 | #X obj 551 351 t b a; 27 | #X obj 551 321 + 0.5; 28 | #X obj 551 238 c_madsrj 1 80 100 60 200; 29 | #X obj 612 113 loadbang; 30 | #X msg 443 421 pwmdepth 30 \, pwmfreq 1; 31 | #X obj 551 296 line 0 50; 32 | #X obj 443 394 loadbang; 33 | #X text 136 28 This will disappear from here.; 34 | #X connect 0 0 6 1; 35 | #X connect 1 0 0 2; 36 | #X connect 2 0 0 1; 37 | #X connect 2 0 19 0; 38 | #X connect 3 0 15 0; 39 | #X connect 3 0 2 0; 40 | #X connect 4 0 22 0; 41 | #X connect 5 0 4 0; 42 | #X connect 6 0 17 0; 43 | #X connect 6 0 12 0; 44 | #X connect 7 0 6 2; 45 | #X connect 9 0 8 0; 46 | #X connect 9 1 8 1; 47 | #X connect 10 0 9 1; 48 | #X connect 11 0 10 0; 49 | #X connect 12 0 13 0; 50 | #X connect 13 0 14 0; 51 | #X connect 15 1 16 0; 52 | #X connect 15 1 25 0; 53 | #X connect 16 0 18 1; 54 | #X connect 17 0 18 0; 55 | #X connect 18 0 9 0; 56 | #X connect 19 0 6 0; 57 | #X connect 20 0 15 2; 58 | #X connect 21 0 16 1; 59 | #X connect 21 0 25 1; 60 | #X connect 22 0 0 0; 61 | #X connect 23 0 22 0; 62 | #X connect 23 1 22 1; 63 | #X connect 24 0 23 0; 64 | #X connect 25 0 28 0; 65 | #X connect 26 0 21 0; 66 | #X connect 27 0 19 1; 67 | #X connect 28 0 24 0; 68 | #X connect 29 0 27 0; 69 | #X restore 83 57 pd a-synth; 70 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/Info.plist: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | info 6 | 7 | author 8 | Frank Barknecht 9 | description 10 | Play a synth with your iThing. Change the pitch with your fingers on the four reddish buttons. We are using Ocarina fingerings, just like in that other software you already have. :) 11 | Cover based on "Ocarina face" by chidorian / Ishikawa Ken. License: Attribution-Share Alike 2.0 Generic 12 | name 13 | Moogarina 14 | category 15 | Feel 16 | 17 | installLocation 18 | Moogarina.rj 19 | 20 | 21 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/bd.txt: -------------------------------------------------------------------------------- 1 | 1.03333 2 | 0 3 | 0 4 | 0 5 | 0.993326 6 | 0.779994 7 | 0.193332 8 | 0.993326 9 | 0 10 | 0 11 | 0 12 | 0 13 | 0.979993 14 | 0 15 | 0 16 | 0 17 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/cp.txt: -------------------------------------------------------------------------------- 1 | 0 2 | 0 3 | 0 4 | 0 5 | 0 6 | 0 7 | 0.586662 8 | 0 9 | 0 10 | 0 11 | 0 12 | 0 13 | 0.799994 14 | 0 15 | 0 16 | 0 17 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/follower.pd: -------------------------------------------------------------------------------- 1 | #N canvas 604 67 820 589 10; 2 | #X obj 359 199 +; 3 | #X text 445 199 long-term loudness; 4 | #X obj 142 64 inlet; 5 | #X text 177 36 input; 6 | #X obj 391 200 * 0.94; 7 | #X obj 358 222 * 0.06; 8 | #X obj 362 268 outlet; 9 | #X connect 0 0 4 0; 10 | #X connect 0 0 5 0; 11 | #X connect 2 0 0 0; 12 | #X connect 4 0 0 1; 13 | #X connect 5 0 6 0; 14 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/g_showimage2.pd: -------------------------------------------------------------------------------- 1 | #N canvas 235 103 646 378 10; 2 | #X msg 72 204 move 500 500; 3 | #X obj 72 45 inlet; 4 | #X obj 72 169 select 0 1; 5 | #X obj 189 202 list append \$2 \$3; 6 | #X msg 189 231 move \$1 \$2; 7 | #X obj 398 60 inlet; 8 | #X obj 398 90 u_dispatch \$0 pos; 9 | #X obj 305 173 r \$0-pos; 10 | #X obj 398 115 u_dispatch \$0 show; 11 | #X obj 119 43 r \$0-show; 12 | #X obj 119 114 f; 13 | #X obj 135 68 loadbang; 14 | #X msg 135 91 0; 15 | #X obj 398 135 u_dispatch \$0 move; 16 | #X obj 189 149 r \$0-move; 17 | #X obj 189 172 t b a; 18 | #X obj 442 60 u_dispatch g_showimage-\$1; 19 | #X obj 72 295 outlet; 20 | #X connect 0 0 17 0; 21 | #X connect 1 0 2 0; 22 | #X connect 2 0 0 0; 23 | #X connect 2 1 3 0; 24 | #X connect 3 0 4 0; 25 | #X connect 4 0 17 0; 26 | #X connect 5 0 6 0; 27 | #X connect 6 0 8 0; 28 | #X connect 7 0 3 1; 29 | #X connect 8 0 13 0; 30 | #X connect 9 0 10 0; 31 | #X connect 10 0 2 0; 32 | #X connect 11 0 12 0; 33 | #X connect 12 0 10 0; 34 | #X connect 14 0 15 0; 35 | #X connect 15 0 3 0; 36 | #X connect 15 1 3 1; 37 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/grid-test.pd: -------------------------------------------------------------------------------- 1 | #N canvas 217 34 751 445 10; 2 | #X obj 159 291 m_touch2grid xxxxx 10 10; 3 | #N canvas 702 456 450 300 grid2touch 0; 4 | #X obj 56 67 inlet; 5 | #X obj 278 69 inlet; 6 | #X obj 278 94 unpack 0 0; 7 | #X obj 77 168 /; 8 | #X obj 77 145 swap 320; 9 | #X obj 56 195 *; 10 | #X obj 56 218 outlet; 11 | #X obj 145 65 inlet; 12 | #X obj 166 166 /; 13 | #X obj 145 193 *; 14 | #X obj 145 216 outlet; 15 | #X obj 166 143 swap 320; 16 | #X connect 0 0 5 0; 17 | #X connect 1 0 2 0; 18 | #X connect 2 0 4 0; 19 | #X connect 2 1 11 0; 20 | #X connect 3 0 5 1; 21 | #X connect 4 0 3 0; 22 | #X connect 4 1 3 1; 23 | #X connect 5 0 6 0; 24 | #X connect 7 0 9 0; 25 | #X connect 8 0 9 1; 26 | #X connect 9 0 10 0; 27 | #X connect 11 0 8 0; 28 | #X connect 11 1 8 1; 29 | #X restore 159 333 pd grid2touch; 30 | #X floatatom 159 363 5 0 0 0 - - -; 31 | #X floatatom 247 365 5 0 0 0 - - -; 32 | #X text 265 334 gives uppper left corner of a grid element; 33 | #X msg 350 250 10 10; 34 | #X floatatom 159 123 5 0 320 0 - - -; 35 | #X obj 162 104 hsl 128 15 0 319 0 0 empty empty empty -2 -8 0 10 -262144 36 | -1 -1 900 1; 37 | #X floatatom 241 260 5 0 320 0 - - -; 38 | #X obj 241 125 vsl 15 128 319 0 0 0 empty empty empty 0 -9 0 10 -262144 39 | -1 -1 10300 1; 40 | #X msg 334 292 div \$1 \$2; 41 | #X msg 504 127 320 2; 42 | #X obj 506 153 /; 43 | #X floatatom 537 174 5 0 0 0 - - -; 44 | #X connect 0 0 1 0; 45 | #X connect 0 1 1 1; 46 | #X connect 1 0 2 0; 47 | #X connect 1 1 3 0; 48 | #X connect 5 0 1 2; 49 | #X connect 5 0 10 0; 50 | #X connect 6 0 0 0; 51 | #X connect 7 0 6 0; 52 | #X connect 8 0 0 1; 53 | #X connect 9 0 8 0; 54 | #X connect 10 0 0 2; 55 | #X connect 11 0 12 0; 56 | #X connect 12 0 13 0; 57 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/hh.txt: -------------------------------------------------------------------------------- 1 | 0.779994 2 | 0.84666 3 | 0.773328 4 | 0.633329 5 | 0.726662 6 | 0.88666 7 | 0.899993 8 | 0.833327 9 | 0.653329 10 | 0.626662 11 | 0.699995 12 | 0.833327 13 | 0.86666 14 | 0.833327 15 | 0.706662 16 | 0.466663 17 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/image.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nettoyeurny/Making-Musical-Apps/291dcef6eca078a416d51f821d44e1a4214110eb/scenes/Moogarina.rj/image.jpg -------------------------------------------------------------------------------- /scenes/Moogarina.rj/image.jpg-orig: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nettoyeurny/Making-Musical-Apps/291dcef6eca078a416d51f821d44e1a4214110eb/scenes/Moogarina.rj/image.jpg-orig -------------------------------------------------------------------------------- /scenes/Moogarina.rj/list-l2s.pd: -------------------------------------------------------------------------------- 1 | #N canvas 424 382 729 381 10; 2 | #X msg 327 196 set %s; 3 | #X obj 235 244 t a; 4 | #X obj 118 252 makefilename %s; 5 | #X obj 96 62 t b a b; 6 | #X obj 96 283 symbol; 7 | #X msg 142 22 a b c d 1 2; 8 | #X obj 118 158 route symbol float; 9 | #X obj 118 186 symbol; 10 | #X obj 96 21 inlet; 11 | #X obj 96 313 outlet; 12 | #X obj 395 192 makefilename 1%s%%s; 13 | #X obj 395 165 symbol \$1; 14 | #X msg 405 123 bang; 15 | #X obj 395 89 loadbang; 16 | #X msg 395 228 set set \, adddollsym \$1; 17 | #X msg 235 265 set \$1%s; 18 | #X obj 447 124 inlet; 19 | #X obj 178 190 makefilename %g; 20 | #X obj 118 123 u_listdrip; 21 | #X connect 0 0 2 0; 22 | #X connect 1 0 15 0; 23 | #X connect 2 0 1 0; 24 | #X connect 2 0 4 1; 25 | #X connect 3 0 4 0; 26 | #X connect 3 1 18 0; 27 | #X connect 3 2 0 0; 28 | #X connect 4 0 9 0; 29 | #X connect 5 0 3 0; 30 | #X connect 6 0 7 0; 31 | #X connect 6 1 17 0; 32 | #X connect 7 0 2 0; 33 | #X connect 8 0 3 0; 34 | #X connect 10 0 14 0; 35 | #X connect 11 0 10 0; 36 | #X connect 12 0 11 0; 37 | #X connect 13 0 11 0; 38 | #X connect 14 0 15 0; 39 | #X connect 15 0 2 0; 40 | #X connect 16 0 11 0; 41 | #X connect 17 0 2 0; 42 | #X connect 18 0 6 0; 43 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/lookup.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 0 894 640 10; 2 | #X obj 206 149 random 100; 3 | #X obj 206 123 t b a; 4 | #X obj 206 203 <; 5 | #X obj 260 178 tabread \$1; 6 | #X obj 206 229 select 1; 7 | #X obj 206 97 inlet; 8 | #X obj 279 96 inlet; 9 | #X text 278 76 seed; 10 | #X msg 279 118 seed \$1; 11 | #X obj 206 257 outlet; 12 | #X obj 206 177 / 100; 13 | #X connect 0 0 10 0; 14 | #X connect 1 0 0 0; 15 | #X connect 1 1 3 0; 16 | #X connect 2 0 4 0; 17 | #X connect 3 0 2 1; 18 | #X connect 4 0 9 0; 19 | #X connect 5 0 1 0; 20 | #X connect 6 0 8 0; 21 | #X connect 8 0 0 0; 22 | #X connect 10 0 2 0; 23 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/m_grid2touch.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 0 640 442 10; 2 | #X obj 56 67 inlet; 3 | #X obj 278 69 inlet; 4 | #X obj 278 94 unpack 0 0; 5 | #X obj 77 168 /; 6 | #X obj 77 145 swap 320; 7 | #X obj 56 195 *; 8 | #X obj 56 218 outlet; 9 | #X obj 145 65 inlet; 10 | #X obj 166 166 /; 11 | #X obj 145 193 *; 12 | #X obj 145 216 outlet; 13 | #X obj 166 143 swap 320; 14 | #X obj 333 39 loadbang; 15 | #X obj 333 69 list append \$1 \$2; 16 | #X connect 0 0 5 0; 17 | #X connect 1 0 2 0; 18 | #X connect 2 0 4 0; 19 | #X connect 2 1 11 0; 20 | #X connect 3 0 5 1; 21 | #X connect 4 0 3 0; 22 | #X connect 4 1 3 1; 23 | #X connect 5 0 6 0; 24 | #X connect 7 0 9 0; 25 | #X connect 8 0 9 1; 26 | #X connect 9 0 10 0; 27 | #X connect 11 0 8 0; 28 | #X connect 11 1 8 1; 29 | #X connect 12 0 13 0; 30 | #X connect 13 0 2 0; 31 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/mode-ionian.pd: -------------------------------------------------------------------------------- 1 | #N canvas 400 364 667 377 10; 2 | #X obj 45 304 outlet; 3 | #X obj 45 41 inlet; 4 | #X obj 293 45 inlet; 5 | #X obj 45 260 + \$1; 6 | #X text 41 18 major step; 7 | #X obj 289 237 s \$0-scale; 8 | #X obj 289 261 table \$0-scale 16; 9 | #X text 293 24 root note; 10 | #X obj 289 151 loadbang; 11 | #X obj 289 214 list prepend 0; 12 | #X msg 289 174 -5 -4 -3 -2 -1 0 2 4 5 6 7 8 9 10 11 12; 13 | #X obj 45 175 tabread \$0-scale; 14 | #X obj 179 41 inlet; 15 | #X text 178 18 scale; 16 | #X connect 1 0 11 0; 17 | #X connect 2 0 3 1; 18 | #X connect 3 0 0 0; 19 | #X connect 8 0 10 0; 20 | #X connect 9 0 5 0; 21 | #X connect 10 0 9 0; 22 | #X connect 11 0 3 0; 23 | #X connect 12 0 9 0; 24 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/moogarina.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nettoyeurny/Making-Musical-Apps/291dcef6eca078a416d51f821d44e1a4214110eb/scenes/Moogarina.rj/moogarina.jpg -------------------------------------------------------------------------------- /scenes/Moogarina.rj/moogarina_blow.pd: -------------------------------------------------------------------------------- 1 | #N canvas 381 185 692 418 10; 2 | #X obj 63 44 osc~ 400; 3 | #X obj 160 48 adc~; 4 | #X obj 160 71 env~; 5 | #X obj 72 101 *~; 6 | #X obj 71 182 dac~; 7 | #X obj 161 114 clip 0 30; 8 | #X obj 162 134 / 30; 9 | #X obj 215 67 * -1; 10 | #X obj 215 88 + 100; 11 | #X obj 160 94 +; 12 | #X msg 214 46 70; 13 | #X floatatom 178 211 5 0 0 0 - - -; 14 | #X obj 161 157 follower; 15 | #X obj 214 24 loadbang; 16 | #X text 210 3 threshold (between 0 and 100); 17 | #X connect 0 0 3 0; 18 | #X connect 1 0 2 0; 19 | #X connect 2 0 9 0; 20 | #X connect 3 0 4 0; 21 | #X connect 5 0 6 0; 22 | #X connect 6 0 12 0; 23 | #X connect 7 0 8 0; 24 | #X connect 7 0 9 1; 25 | #X connect 8 0 5 2; 26 | #X connect 8 0 6 1; 27 | #X connect 9 0 5 0; 28 | #X connect 10 0 7 0; 29 | #X connect 12 0 11 0; 30 | #X connect 12 0 3 1; 31 | #X connect 13 0 10 0; 32 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/netrec.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 0 450 300 10; 2 | #X obj 271 211 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 3 | 1; 4 | #X obj 169 212 show; 5 | #X msg 170 235 up 1 30 197; 6 | #X obj 111 233 print; 7 | #X obj 169 178 netreceive 6000 1; 8 | #X connect 1 0 2 0; 9 | #X connect 4 0 1 0; 10 | #X connect 4 0 3 0; 11 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/oh.txt: -------------------------------------------------------------------------------- 1 | 0 2 | 0 3 | 0 4 | 0.806661 5 | 0 6 | 0 7 | 0 8 | 0 9 | 0.379997 10 | 0 11 | 0 12 | 0 13 | 0.759994 14 | 0 15 | 0 16 | 0 17 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/pat/2step-1.txt: -------------------------------------------------------------------------------- 1 | length 32 2 | bpm 140 3 | swing 0.66 4 | 1 _ 2 _ 3 _ 4 _ 5 _ 6 _ 7 _ 8 _ 9 _ A _ B _ C _ D _ E _ F _ 0 _ 5 | _ _ o h _ _ h _ h _ h _ _ o h _ _ h h _ _ _ o h _ _ h o _ _ h h 6 | _ _ _ _ S _ _ _ _ _ _ _ S _ _ _ _ _ _ _ S _ _ _ _ _ _ _ S 7 | B _ _ _ _ _ _ B _ _ B _ _ _ _ _ _ _ _ _ _ _ _ _ _ B 8 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/pat/2step-2.txt: -------------------------------------------------------------------------------- 1 | length 32 2 | bpm 140 3 | swing 0.66 4 | 1 _ 2 _ 3 _ 4 _ 5 _ 6 _ 7 _ 8 _ 9 _ A _ B _ C _ D _ E _ F _ 0 5 | o h o _ _ _ h _ _ h o _ _ _ h _ o h o _ _ _ h _ h o h _ _ _ h h 6 | _ _ _ _ S _ _ _ _ _ _ _ S _ _ _ _ _ _ _ S _ _ _ _ _ _ _ S 7 | B _ _ _ _ _ B B _ _ _ _ _ _ _ _ _ _ B _ _ _ _ _ _ _ _ _ _ b 8 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/pat/drumbass-1.txt: -------------------------------------------------------------------------------- 1 | length 16 2 | bpm 180 3 | 1 _ 2 _ 3 _ 4 _ 5 _ 6 _ 7 _ 8 _ 4 | h _ h _ h _ h _ h _ h _ h _ h _ 5 | _ _ _ _ S _ _ _ _ _ _ _ S 6 | B _ _ _ _ _ _ _ _ _ B 7 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/pat/drumbass-2.txt: -------------------------------------------------------------------------------- 1 | length 16 2 | bpm 190 3 | 1 _ 2 _ 3 _ 4 _ 5 _ 6 _ 7 _ 8 _ 4 | h _ h _ h _ h _ h _ h _ h _ h 5 | _ _ S _ _ _ _ _ _ _ S 6 | B _ _ _ _ _ B 7 | _ _ _ _ _ _ _ _ _ _ _ _ c _ 8 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/pat/drumbass-3.txt: -------------------------------------------------------------------------------- 1 | length 16 2 | bpm 180 3 | 1 _ 2 _ 3 _ 4 _ 5 _ 6 _ 7 _ 8 _ 4 | h _ h _ h _ h _ h _ h _ h _ h 5 | _ _ _ _ S _ _ _ _ _ S 6 | B _ _ _ _ _ B 7 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/pat/drumbass-4.txt: -------------------------------------------------------------------------------- 1 | length 16 2 | bpm 180 3 | 1 _ 2 _ 3 _ 4 _ 5 _ 6 _ 7 _ 8 _ 4 | h _ h _ h _ h _ h _ h _ h _ h _ 5 | _ _ _ _ S _ _ _ _ _ S _ _ s _ s 6 | B _ _ _ _ _ B 7 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/pat/dubstep-1.txt: -------------------------------------------------------------------------------- 1 | length 16 2 | bpm 140 3 | 1 _ 2 _ 3 _ 4 _ 5 _ 6 _ 7 _ 8 _ 4 | _ _ h h _ h h _ _ _ _ _ _ _ 5 | _ _ _ _ _ _ _ _ S 6 | B _ _ _ _ _ _ _ _ _ _ _ _ b 7 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/pat/dubstep-2.txt: -------------------------------------------------------------------------------- 1 | length 16 2 | bpm 140 3 | 1 _ 2 _ 3 _ 4 _ 5 _ 6 _ 7 _ 8 _ 4 | _ _ H _ H h _ h _ _ H 5 | _ _ _ _ _ _ _ _ S 6 | B _ _ B _ _ B 7 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/pat/dubstep-3-rushy.txt: -------------------------------------------------------------------------------- 1 | length 16 2 | bpm 140 3 | 1 _ 2 _ 3 _ 4 _ 5 _ 6 _ 7 _ 8 _ 4 | H _ _ H _ _ H _ _ _ _ 5 | _ _ _ _ _ _ _ _ S 6 | B _ _ _ _ _ _ _ _ _ B b B b B b 7 | _ _ _ _ _ _ _ _ _ _ c _ _ C _ _ 8 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/pat/leavehome.txt: -------------------------------------------------------------------------------- 1 | length 16 2 | bpm 125 3 | 1 _ 2 _ 3 _ 4 _ 5 _ 6 _ 7 _ 8 _ 4 | H h H h H h H h H h H h H h H h 5 | _ _ _ _ S _ s s _ s s _ S _ 6 | B 7 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/pat/pattern.txt: -------------------------------------------------------------------------------- 1 | length 16 2 | bpm 120 3 | 1 _ 2 _ 3 _ 4 _ 5 _ 6 _ 7 _ 8 _ 4 | h _ h _ h _ h _ h _ h _ h _ h _ 5 | _ _ _ _ S _ _ _ _ _ _ _ S _ _ _ 6 | B _ _ _ _ _ _ _ _ _ B _ _ _ _ _ 7 | _ _ _ _ _ _ C _ _ _ _ _ c _ _ _ 8 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/pat/prodigy.txt: -------------------------------------------------------------------------------- 1 | length 16 2 | bpm 160 3 | 1 _ 2 _ 3 _ 4 _ 5 _ 6 _ 7 _ 8 _ 4 | _ _ _ _ _ _ h _ h _ h 5 | _ _ _ _ S _ _ s _ s _ _ S 6 | B _ _ _ _ _ _ _ _ _ _ b 7 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/pat/simple-hiphop-doublebass.txt: -------------------------------------------------------------------------------- 1 | length 8 2 | bpm 120 3 | 1 _ 2 _ 3 _ 4 _ 4 | h _ h _ h _ h _ 5 | _ _ _ _ S _ _ 6 | B _ B 7 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/pat/simple-hiphop-offbeat.txt: -------------------------------------------------------------------------------- 1 | length 8 2 | bpm 120 3 | 1 _ 2 _ 3 _ 4 _ 4 | h _ h _ h _ h _ 5 | _ _ _ _ S _ _ 6 | B _ _ _ _ _ _ b 7 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/pat/simple-hiphop.txt: -------------------------------------------------------------------------------- 1 | length 8 2 | bpm 120 3 | 1 _ 2 _ 3 _ 4 _ 4 | h _ h _ h _ h _ 5 | _ _ _ _ S _ _ s 6 | B 7 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/pat/test.txt: -------------------------------------------------------------------------------- 1 | length 16 2 | bpm 120 3 | 1 _ 2 _ 3 _ 4 _ 5 _ 6 _ 7 _ 8 _ 4 | h _ h _ h _ h _ h _ h _ h _ h _ 5 | _ _ _ _ S _ _ _ _ _ _ _ S _ _ _ 6 | B _ _ _ _ _ _ _ _ _ B _ _ _ _ _ 7 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/pref.txt: -------------------------------------------------------------------------------- 1 | Scale: 2 | x = 4 3 | y = 3 4 | 5 | Root: 6 | x = 4 7 | y = 5 8 | 9 | Prefs button grids: 44, 45, 54, 55 10 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/preferences.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nettoyeurny/Making-Musical-Apps/291dcef6eca078a416d51f821d44e1a4214110eb/scenes/Moogarina.rj/preferences.gif -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/a.txt: -------------------------------------------------------------------------------- 1 | a_breath - breath controller that analyses the mic input volume 2 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/a_breath.pd: -------------------------------------------------------------------------------- 1 | #N canvas 71 72 1107 644 10; 2 | #X obj 215 128 * -1; 3 | #X obj 215 149 + 100; 4 | #X obj 162 155 +; 5 | #X text 406 342 latency (0= no smoothing \, 0.99= very smoothed \, 6 | 1=infinite); 7 | #X obj 162 350 outlet; 8 | #X obj 162 30 inlet~; 9 | #X obj 407 151 inlet; 10 | #X obj 466 125 loadbang; 11 | #X obj 215 104 r \$0-threshold; 12 | #X obj 230 275 r \$0-latency; 13 | #X text 406 307 threshold (0=no minimum energy threshold \, 100=high 14 | threshold); 15 | #X msg 229 294 latency \$1; 16 | #X msg 466 150 threshold 70 \, latency 0.8; 17 | #X obj 162 182 / 30; 18 | #X obj 162 53 env~ 256 128; 19 | #X obj 162 208 * 2; 20 | #X msg 201 242 gain 10; 21 | #X obj 201 222 loadbang; 22 | #X obj 162 267 u_sigm; 23 | #X obj 162 319 u_follower; 24 | #X obj 407 208 u_dispatch \$0 threshold; 25 | #X obj 407 229 u_dispatch \$0 latency; 26 | #X obj 465 179 u_loader a_breath-\$1 \$0; 27 | #X connect 0 0 1 0; 28 | #X connect 0 0 2 1; 29 | #X connect 1 0 13 1; 30 | #X connect 2 0 13 0; 31 | #X connect 5 0 14 0; 32 | #X connect 6 0 20 0; 33 | #X connect 7 0 12 0; 34 | #X connect 8 0 0 0; 35 | #X connect 9 0 11 0; 36 | #X connect 11 0 19 1; 37 | #X connect 12 0 20 0; 38 | #X connect 13 0 15 0; 39 | #X connect 14 0 2 0; 40 | #X connect 15 0 18 0; 41 | #X connect 16 0 18 1; 42 | #X connect 17 0 16 0; 43 | #X connect 18 0 19 0; 44 | #X connect 19 0 4 0; 45 | #X connect 20 0 21 0; 46 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/c.txt: -------------------------------------------------------------------------------- 1 | c_adsr - ADSR envelope generator 2 | c_adsrj - ADSR envelope generator with GUI and preset 3 | 1 4 | c_cpfade - constant power crossfader 5 | c_ead - exponential attack/decay envelope 6 | c_lfo - message rate LFO with various waveforms 7 | c_madsr - ADSR envelope generator for messages 8 | c_madsrj - ADSR envelope generator for messages with GUI and preset 9 | 1 10 | c_mphasor - message phasor for LFO generation 11 | c_multimetro - multi-period metro with builtin counter 12 | c_xfade - linear crossfader 13 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/c_adsr-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 256 30 668 776 10; 2 | #X text 51 13 c_adsr: ADSR ENVELOPE; 3 | #X text 85 151 When you send this patch a positive trigger it schedules 4 | a line~ to do an attack and decay \, and if zero \, it starts the release 5 | ramp.; 6 | #X text 86 204 Negative triggers cause the output to jump to zero and 7 | then attack (instead of attacking from the current location).; 8 | #X obj 196 357 / 127; 9 | #N canvas 0 0 450 300 (subpatch) 0; 10 | #X array \$0-adsr 44100 float 2; 11 | #X coords 0 1 44100 -1 200 140 1; 12 | #X restore 118 558 graph; 13 | #X obj 119 513 tabwrite~ \$0-adsr; 14 | #X obj 87 292 t a b; 15 | #X msg 87 270 80; 16 | #X obj 87 335 makenote 100 400; 17 | #X obj 196 383 t a a; 18 | #X floatatom 141 311 5 0 0 2 velocity - -; 19 | #X floatatom 256 290 5 0 0 1 A - -; 20 | #X floatatom 286 315 5 0 0 1 D - -; 21 | #X floatatom 316 343 5 0 0 1 S(%) - -; 22 | #X floatatom 347 368 5 0 0 1 R - -; 23 | #X text 85 46 This is the classical Miller S. Puckette linear ADSR 24 | envelope \, but with vline~ instead of line~ inside for a bit of extra 25 | timing accuracy.; 26 | #X text 86 102 Arguments: peak level \, attack time \, decay time \, 27 | sustain level \, release time. A \, D \, and R are in msec and S is 28 | in percent!; 29 | #N canvas 0 0 450 300 (subpatch) 0; 30 | #X array \$0-adsr-quartic 44100 float 2; 31 | #X coords 0 1 44100 -1 200 140 1; 32 | #X restore 347 558 graph; 33 | #X obj 347 518 tabwrite~ \$0-adsr-quartic; 34 | #X obj 119 449 t b b; 35 | #X obj 345 465 *~; 36 | #X obj 346 494 *~; 37 | #X obj 196 411 c_adsr 1 80 100 80 200; 38 | #X text 385 473 simple curved envelope; 39 | #X connect 3 0 9 0; 40 | #X connect 6 0 8 0; 41 | #X connect 6 1 19 0; 42 | #X connect 7 0 6 0; 43 | #X connect 8 1 3 0; 44 | #X connect 9 0 22 0; 45 | #X connect 9 1 22 1; 46 | #X connect 10 0 8 1; 47 | #X connect 11 0 22 2; 48 | #X connect 12 0 22 3; 49 | #X connect 13 0 22 4; 50 | #X connect 14 0 22 5; 51 | #X connect 19 0 5 0; 52 | #X connect 19 1 18 0; 53 | #X connect 20 0 21 0; 54 | #X connect 20 0 21 1; 55 | #X connect 21 0 18 0; 56 | #X connect 22 0 5 0; 57 | #X connect 22 0 20 0; 58 | #X connect 22 0 20 1; 59 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/c_adsrj-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 282 52 718 684 10; 2 | #N canvas 0 0 450 300 (subpatch) 0; 3 | #X array \$0-adsr 44100 float 2; 4 | #X coords 0 1 44100 -1 200 140 1; 5 | #X restore 118 488 graph; 6 | #X obj 119 443 tabwrite~ \$0-adsr; 7 | #X obj 87 232 t a b; 8 | #X msg 87 210 80; 9 | #X obj 87 275 makenote 100 400; 10 | #X floatatom 141 251 5 0 0 2 velocity - -; 11 | #X floatatom 349 218 5 0 0 1 A - -; 12 | #X floatatom 413 218 5 0 0 1 D - -; 13 | #X floatatom 475 218 5 0 0 1 S(%) - -; 14 | #X floatatom 547 218 5 0 0 1 R - -; 15 | #X msg 349 237 A \$1; 16 | #X msg 413 237 D \$1; 17 | #X msg 475 238 S \$1; 18 | #X msg 547 238 R \$1; 19 | #X text 51 13 c_adsrj: ADSR ENVELOPE with GUI and state saving; 20 | #X floatatom 153 316 5 0 0 0 - - -; 21 | #X text 475 336 Remote control; 22 | #X obj 478 453 s RJ_SCENE_LOAD; 23 | #X obj 196 351 c_adsrj myadsr; 24 | #X text 85 46 This is a variation on the classical Miller S. Puckette 25 | linear ADSR envelope which has a GUI included and is rj-save enabled. 26 | ; 27 | #X text 86 102 Arguments: NAME \, attack time \, decay time \, sustain 28 | level \, release time. A \, D \, and R are in msec and S is in percent! 29 | ; 30 | #X obj 478 406 list prepend c_adsrj-myadsr; 31 | #X obj 478 430 list trim; 32 | #X msg 478 362 A 50 \, D 80 \, S 70 \, R 300; 33 | #X text 378 568 Also see; 34 | #X obj 448 566 c_adsr 1 20 30 90 300; 35 | #X text 86 152 Trigger input is taken to be a number specifiying midi 36 | velocity (0-127) which will also set the peak level.; 37 | #X connect 2 0 4 0; 38 | #X connect 2 1 1 0; 39 | #X connect 3 0 2 0; 40 | #X connect 4 1 15 0; 41 | #X connect 4 1 18 0; 42 | #X connect 5 0 4 1; 43 | #X connect 6 0 10 0; 44 | #X connect 7 0 11 0; 45 | #X connect 8 0 12 0; 46 | #X connect 9 0 13 0; 47 | #X connect 10 0 18 1; 48 | #X connect 11 0 18 1; 49 | #X connect 12 0 18 1; 50 | #X connect 13 0 18 1; 51 | #X connect 18 0 1 0; 52 | #X connect 21 0 22 0; 53 | #X connect 22 0 17 0; 54 | #X connect 23 0 21 0; 55 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/c_adsrj.pd: -------------------------------------------------------------------------------- 1 | #N canvas 255 130 736 454 10; 2 | #X obj 101 204 inlet; 3 | #X obj 101 254 t a a; 4 | #X obj 128 284 abs; 5 | #X obj 101 229 / 127; 6 | #X obj 451 59 inlet; 7 | #X obj 451 84 u_dispatch \$0 A; 8 | #X obj 451 109 u_dispatch \$0 D; 9 | #X obj 451 134 u_dispatch \$0 S; 10 | #X obj 451 159 u_dispatch \$0 R; 11 | #X obj 508 59 u_loader c_adsrj-\$1 \$0; 12 | #X obj 106 132 nbx 3 14 -1e+37 1e+37 0 0 \$0-A \$0-A A 0 -8 1 10 -262144 13 | -1 -1 151 256; 14 | #X obj 155 282 r \$0-A; 15 | #X obj 183 301 r \$0-D; 16 | #X obj 210 326 r \$0-S; 17 | #X obj 238 348 r \$0-R; 18 | #X obj 101 407 outlet~; 19 | #X obj 142 132 nbx 3 14 -1e+37 1e+37 0 0 \$0-D \$0-D D 0 -8 1 10 -262144 20 | -1 -1 53 256; 21 | #X obj 178 132 nbx 3 14 -1e+37 1e+37 0 0 \$0-S \$0-S S 0 -8 1 10 -262144 22 | -1 -1 41 256; 23 | #X obj 214 132 nbx 4 14 -1e+37 1e+37 0 0 \$0-R \$0-R R 0 -8 1 10 -262144 24 | -1 -1 74 256; 25 | #X obj 101 377 c_adsr 1 \$2 \$3 \$4 \$5; 26 | #X connect 0 0 3 0; 27 | #X connect 1 0 19 0; 28 | #X connect 1 1 2 0; 29 | #X connect 2 0 19 1; 30 | #X connect 3 0 1 0; 31 | #X connect 4 0 5 0; 32 | #X connect 5 0 6 0; 33 | #X connect 6 0 7 0; 34 | #X connect 7 0 8 0; 35 | #X connect 11 0 19 2; 36 | #X connect 12 0 19 3; 37 | #X connect 13 0 19 4; 38 | #X connect 14 0 19 5; 39 | #X connect 19 0 15 0; 40 | #X coords 0 -1 1 1 160 50 1 100 100; 41 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/c_cpfade-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 249 145 739 584 10; 2 | #X text 160 170 signal 2; 3 | #X floatatom 204 238 5 0 0 0 - - -; 4 | #X obj 207 215 hsl 128 15 0 1 0 0 empty empty crossfader_0-1 -2 -8 5 | 1 10 -262144 -1 -1 6700 1; 6 | #X obj 78 467 *~ 0.5; 7 | #X text 120 141 signal 1; 8 | #X obj 118 189 osc~ 800; 9 | #X obj 78 160 osc~ 400; 10 | #X obj 197 429 vu 15 120 empty empty -1 -8 0 8 -66577 -1 1 0; 11 | #X obj 196 380 env~; 12 | #X obj 196 405 - 100; 13 | #X text 24 34 c_cpfade; 14 | #X text 75 75 Crossfades two signals according to a sine-based transfer 15 | function so that the loudness of the result is constant.; 16 | #X obj 245 357 c_xfade; 17 | #X obj 79 511 soundoutput; 18 | #X obj 246 429 vu 15 120 empty empty -1 -8 0 8 -66577 -1 1 0; 19 | #X obj 245 380 env~; 20 | #X obj 245 405 - 100; 21 | #X text 152 337 arg1: 0-1; 22 | #X text 105 36 - constant power crossfade; 23 | #X obj 78 317 c_cpfade 0.5; 24 | #X text 291 307 The normal xfade has a little "hole in middle" \, but 25 | it's cheaper; 26 | #X connect 1 0 12 2; 27 | #X connect 1 0 19 2; 28 | #X connect 2 0 1 0; 29 | #X connect 3 0 13 0; 30 | #X connect 3 0 13 1; 31 | #X connect 5 0 12 1; 32 | #X connect 5 0 19 1; 33 | #X connect 6 0 12 0; 34 | #X connect 6 0 19 0; 35 | #X connect 8 0 9 0; 36 | #X connect 9 0 7 0; 37 | #X connect 12 0 15 0; 38 | #X connect 15 0 16 0; 39 | #X connect 16 0 14 0; 40 | #X connect 19 0 3 0; 41 | #X connect 19 0 8 0; 42 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/c_cpfade.pd: -------------------------------------------------------------------------------- 1 | #N canvas 230 196 698 477 10; 2 | #X obj 183 233 pack 0 50; 3 | #X obj 166 295 *~; 4 | #X obj 72 231 pack 0 50; 5 | #X obj 55 293 *~; 6 | #X obj 183 259 line~; 7 | #X obj 72 256 line~; 8 | #X obj 248 128 * 1.5708; 9 | #X obj 55 24 inlet~; 10 | #X obj 165 24 inlet~; 11 | #X obj 56 362 outlet~; 12 | #X obj 248 23 inlet; 13 | #X obj 292 22 loadbang; 14 | #X obj 292 67 f \$1; 15 | #X obj 72 202 cos; 16 | #X obj 183 198 sin; 17 | #X obj 338 71 atan; 18 | #X msg 338 45 1; 19 | #X obj 338 96 * 2; 20 | #X obj 292 46 t b b; 21 | #X text 319 128 * M_PI/2; 22 | #X connect 0 0 4 0; 23 | #X connect 1 0 9 0; 24 | #X connect 2 0 5 0; 25 | #X connect 3 0 9 0; 26 | #X connect 4 0 1 1; 27 | #X connect 5 0 3 1; 28 | #X connect 6 0 13 0; 29 | #X connect 6 0 14 0; 30 | #X connect 7 0 3 0; 31 | #X connect 8 0 1 0; 32 | #X connect 10 0 6 0; 33 | #X connect 11 0 18 0; 34 | #X connect 12 0 6 0; 35 | #X connect 13 0 2 0; 36 | #X connect 14 0 0 0; 37 | #X connect 15 0 17 0; 38 | #X connect 16 0 15 0; 39 | #X connect 17 0 6 1; 40 | #X connect 18 0 12 0; 41 | #X connect 18 1 16 0; 42 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/c_ead.pd: -------------------------------------------------------------------------------- 1 | #N canvas 417 112 606 616 10; 2 | #X obj 281 314 vline~; 3 | #X obj 158 65 max 0.1; 4 | #X obj 258 65 max 0.1; 5 | #X text 156 22 attack (ms); 6 | #X text 256 22 decay (ms); 7 | #X text 86 22 trigger; 8 | #X obj 87 45 inlet; 9 | #X obj 158 45 inlet; 10 | #X obj 258 45 inlet; 11 | #X obj 144 467 outlet~; 12 | #X obj 87 65 b; 13 | #X obj 87 308 vline~; 14 | #X obj 87 215 pack 3 4; 15 | #X text 129 283 attack; 16 | #X text 317 285 decay; 17 | #X msg 87 261 1 \, 0 \$1 0 \, 1 0 \$1; 18 | #X msg 281 261 0 \, 1 0 \$1 \, 0 \$2 \$1; 19 | #X obj 87 195 f 3; 20 | #X obj 251 127 f \$1; 21 | #X obj 251 102 loadbang; 22 | #X obj 251 153 select 0; 23 | #X obj 325 101 loadbang; 24 | #X obj 325 152 select 0; 25 | #X obj 325 126 f \$2; 26 | #X msg 21 261 1; 27 | #X obj 21 239 loadbang; 28 | #X obj 62 337 sig~ 1; 29 | #X obj 61 410 -~; 30 | #X obj 78 387 *~; 31 | #X obj 78 366 *~; 32 | #X obj 280 392 *~; 33 | #X obj 281 369 *~; 34 | #X connect 0 0 31 0; 35 | #X connect 0 0 31 1; 36 | #X connect 1 0 17 1; 37 | #X connect 2 0 12 1; 38 | #X connect 6 0 10 0; 39 | #X connect 7 0 1 0; 40 | #X connect 8 0 2 0; 41 | #X connect 10 0 17 0; 42 | #X connect 11 0 29 0; 43 | #X connect 11 0 29 1; 44 | #X connect 12 0 16 0; 45 | #X connect 12 0 15 0; 46 | #X connect 15 0 11 0; 47 | #X connect 16 0 0 0; 48 | #X connect 17 0 12 0; 49 | #X connect 18 0 20 0; 50 | #X connect 19 0 18 0; 51 | #X connect 20 1 17 1; 52 | #X connect 21 0 23 0; 53 | #X connect 22 1 12 1; 54 | #X connect 23 0 22 0; 55 | #X connect 24 0 11 0; 56 | #X connect 25 0 24 0; 57 | #X connect 26 0 27 0; 58 | #X connect 27 0 9 0; 59 | #X connect 28 0 27 1; 60 | #X connect 29 0 28 0; 61 | #X connect 29 0 28 1; 62 | #X connect 30 0 9 0; 63 | #X connect 31 0 30 0; 64 | #X connect 31 0 30 1; 65 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/c_lfo-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 407 341 739 541 10; 2 | #X obj 185 221 g_tgl on; 3 | #X obj 114 416 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144 4 | -1 -1 5715 1; 5 | #X msg 212 271 waveform sine; 6 | #X msg 212 317 waveform saw; 7 | #X msg 212 294 waveform tri; 8 | #X obj 185 190 g_nbx freq; 9 | #X obj 111 459 timer; 10 | #X obj 111 436 t b b; 11 | #X floatatom 111 482 5 0 0 0 - - -; 12 | #X floatatom 111 196 5 0 0 0 freq - -; 13 | #X obj 185 128 g_hsl phase 0 1; 14 | #X obj 185 159 g_nbx updates; 15 | #X text 37 29 c_lfo - message rate LFO with various waveforms; 16 | #X text 332 131 set phase; 17 | #X text 316 295 select waveform; 18 | #X floatatom 127 393 5 0 0 0 - - -; 19 | #X text 281 163 set update period in msec (default: 10); 20 | #X text 258 414 all waves oscillate between 0 and 1; 21 | #X text 106 56 Arguments:; 22 | #X obj 50 408 print; 23 | #X obj 467 368 c_lfo MYLFO2 1 50 sine; 24 | #X text 316 320 <= default; 25 | #X obj 470 390 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144 26 | -1 -1 8798 1; 27 | #X obj 618 335 g_tgl on; 28 | #X floatatom 465 329 5 0 0 0 - - -; 29 | #X obj 465 348 / 100; 30 | #X text 269 188 set lfo frequency. if freq = 0 \, the lfo will be turned 31 | off \, frequencies not 0 will turn it on.; 32 | #X text 273 227 manually switch on/off; 33 | #X text 135 79 ; 34 | #X obj 111 366 c_lfo MYLFO; 35 | #X connect 0 0 29 1; 36 | #X connect 1 0 7 0; 37 | #X connect 2 0 29 1; 38 | #X connect 3 0 29 1; 39 | #X connect 4 0 29 1; 40 | #X connect 5 0 0 0; 41 | #X connect 6 0 8 0; 42 | #X connect 7 0 6 0; 43 | #X connect 7 1 6 1; 44 | #X connect 9 0 29 0; 45 | #X connect 10 0 11 0; 46 | #X connect 11 0 5 0; 47 | #X connect 20 0 22 0; 48 | #X connect 23 0 20 1; 49 | #X connect 24 0 25 0; 50 | #X connect 25 0 20 0; 51 | #X connect 29 0 1 0; 52 | #X connect 29 0 15 0; 53 | #X connect 29 0 19 0; 54 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/c_madsr-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 256 30 612 631 10; 2 | #X text 86 214 Negative triggers cause the output to jump to zero and 3 | then attack (instead of attacking from the current location).; 4 | #X obj 236 357 / 127; 5 | #X obj 127 292 t a b; 6 | #X msg 127 270 80; 7 | #X obj 127 335 makenote 100 400; 8 | #X obj 236 383 t a a; 9 | #X floatatom 181 311 5 0 0 2 velocity - -; 10 | #X floatatom 299 290 5 0 0 1 A - -; 11 | #X floatatom 330 315 5 0 0 1 D - -; 12 | #X floatatom 362 343 5 0 0 1 S(%) - -; 13 | #X floatatom 394 368 5 0 0 1 R - -; 14 | #X text 86 112 Arguments: peak level \, attack time \, decay time \, 15 | sustain level \, release time. A \, D \, and R are in msec and S is 16 | in percent!; 17 | #X text 51 13 c_madsr: ADSR ENVELOPE FOR MESSAGES; 18 | #X text 85 161 When you send this patch a positive trigger it schedules 19 | messages to do an attack and decay \, and if zero \, it starts the 20 | release ramp.; 21 | #X text 85 46 This is a generator for message rate ADSR envelopes following 22 | the classical Miller S. Puckette linear ADSR envelope design.; 23 | #X text 93 93 It is designed to be used with an additional; 24 | #X obj 412 92 line; 25 | #X text 448 92 object.; 26 | #N canvas 0 0 450 300 collect 0; 27 | #X obj 195 37 inlet; 28 | #X obj 41 37 inlet; 29 | #X obj 41 187 outlet; 30 | #X msg 195 74 set; 31 | #X obj 41 99 list trim; 32 | #X obj 41 74 list prepend add; 33 | #X connect 0 0 3 0; 34 | #X connect 1 0 5 0; 35 | #X connect 3 0 2 0; 36 | #X connect 4 0 2 0; 37 | #X connect 5 0 4 0; 38 | #X restore 92 494 pd collect; 39 | #X msg 92 521; 40 | #X msg 170 492 reset; 41 | #X obj 236 439 line 0 10; 42 | #X obj 239 474 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144 43 | -1 -1 0 1; 44 | #X obj 236 411 c_madsr 1 80 100 60 200; 45 | #X connect 1 0 5 0; 46 | #X connect 2 0 4 0; 47 | #X connect 2 1 18 1; 48 | #X connect 3 0 2 0; 49 | #X connect 4 1 1 0; 50 | #X connect 5 0 23 0; 51 | #X connect 5 1 23 1; 52 | #X connect 6 0 4 1; 53 | #X connect 7 0 23 2; 54 | #X connect 8 0 23 3; 55 | #X connect 9 0 23 4; 56 | #X connect 10 0 23 5; 57 | #X connect 18 0 19 0; 58 | #X connect 20 0 18 1; 59 | #X connect 21 0 22 0; 60 | #X connect 23 0 18 0; 61 | #X connect 23 0 21 0; 62 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/c_madsrj-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 0 777 653 10; 2 | #X obj 87 232 t a b; 3 | #X msg 87 210 80; 4 | #X obj 87 275 makenote 100 400; 5 | #X floatatom 141 251 5 0 0 2 velocity - -; 6 | #X floatatom 349 218 5 0 0 1 A - -; 7 | #X floatatom 413 218 5 0 0 1 D - -; 8 | #X floatatom 475 218 5 0 0 1 S(%) - -; 9 | #X floatatom 547 218 5 0 0 1 R - -; 10 | #X msg 349 237 A \$1; 11 | #X msg 413 237 D \$1; 12 | #X msg 475 238 S \$1; 13 | #X msg 547 238 R \$1; 14 | #X floatatom 153 316 5 0 0 0 - - -; 15 | #X text 475 336 Remote control; 16 | #X obj 478 453 s RJ_SCENE_LOAD; 17 | #X text 86 102 Arguments: NAME \, attack time \, decay time \, sustain 18 | level \, release time. A \, D \, and R are in msec and S is in percent! 19 | ; 20 | #X obj 478 430 list trim; 21 | #X msg 478 362 A 50 \, D 80 \, S 70 \, R 300; 22 | #X text 378 508 Also see; 23 | #X text 86 152 Trigger input is taken to be a number specifiying midi 24 | velocity (0-127) which will also set the peak level.; 25 | #X obj 196 351 c_madsrj myadsr; 26 | #X obj 448 506 c_madsr 1 20 30 90 300; 27 | #X text 51 13 c_madsrj: ADSR ENVELOPE for messages with GUI and state 28 | saving; 29 | #X text 84 46 This is a variation on the c_madsr ADSR envelope which 30 | has a GUI included and is rj-save enabled.; 31 | #X obj 478 406 list prepend c_madsrj-myadsr; 32 | #X text 83 83 It is designed to be used with an additional; 33 | #X obj 402 82 line; 34 | #X text 438 82 object.; 35 | #X obj 196 422 line; 36 | #X obj 199 453 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144 37 | -1 -1 0 1; 38 | #X connect 0 0 2 0; 39 | #X connect 1 0 0 0; 40 | #X connect 2 1 12 0; 41 | #X connect 2 1 20 0; 42 | #X connect 3 0 2 1; 43 | #X connect 4 0 8 0; 44 | #X connect 5 0 9 0; 45 | #X connect 6 0 10 0; 46 | #X connect 7 0 11 0; 47 | #X connect 8 0 20 1; 48 | #X connect 9 0 20 1; 49 | #X connect 10 0 20 1; 50 | #X connect 11 0 20 1; 51 | #X connect 16 0 14 0; 52 | #X connect 17 0 24 0; 53 | #X connect 20 0 28 0; 54 | #X connect 24 0 16 0; 55 | #X connect 28 0 29 0; 56 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/c_madsrj.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 0 839 663 10; 2 | #X obj 101 204 inlet; 3 | #X obj 101 254 t a a; 4 | #X obj 129 284 abs; 5 | #X obj 101 229 / 127; 6 | #X obj 451 59 inlet; 7 | #X obj 451 84 u_dispatch \$0 A; 8 | #X obj 451 109 u_dispatch \$0 D; 9 | #X obj 451 134 u_dispatch \$0 S; 10 | #X obj 451 159 u_dispatch \$0 R; 11 | #X obj 106 132 nbx 3 14 -1e+37 1e+37 0 0 \$0-A \$0-A A 0 -8 1 10 -262144 12 | -1 -1 0 256; 13 | #X obj 158 282 r \$0-A; 14 | #X obj 187 301 r \$0-D; 15 | #X obj 216 326 r \$0-S; 16 | #X obj 245 348 r \$0-R; 17 | #X obj 142 132 nbx 3 14 -1e+37 1e+37 0 0 \$0-D \$0-D D 0 -8 1 10 -262144 18 | -1 -1 0 256; 19 | #X obj 178 132 nbx 3 14 -1e+37 1e+37 0 0 \$0-S \$0-S S 0 -8 1 10 -262144 20 | -1 -1 0 256; 21 | #X obj 214 132 nbx 4 14 -1e+37 1e+37 0 0 \$0-R \$0-R R 0 -8 1 10 -262144 22 | -1 -1 0 256; 23 | #X obj 101 377 c_madsr 1 \$2 \$3 \$4 \$5; 24 | #X obj 508 59 u_loader c_madsrj-\$1 \$0; 25 | #X obj 101 407 outlet; 26 | #X connect 0 0 3 0; 27 | #X connect 1 0 17 0; 28 | #X connect 1 1 2 0; 29 | #X connect 2 0 17 1; 30 | #X connect 3 0 1 0; 31 | #X connect 4 0 5 0; 32 | #X connect 5 0 6 0; 33 | #X connect 6 0 7 0; 34 | #X connect 7 0 8 0; 35 | #X connect 10 0 17 2; 36 | #X connect 11 0 17 3; 37 | #X connect 12 0 17 4; 38 | #X connect 13 0 17 5; 39 | #X connect 17 0 19 0; 40 | #X coords 0 -1 1 1 160 50 1 100 100; 41 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/c_xfade-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 386 259 738 465 10; 2 | #X obj 232 201 hsl 128 15 0 1 0 0 empty empty 0-1 -2 -8 1 10 -262144 3 | -1 -1 0 1; 4 | #X obj 229 252 pack 0 10; 5 | #X obj 150 182 osc~ 440; 6 | #X obj 173 232 noise~; 7 | #X obj 151 374 soundoutput; 8 | #X floatatom 229 230 5 0 0 0 - - -; 9 | #X obj 151 313 c_xfade; 10 | #X text 84 24 c_xfade; 11 | #X text 110 52 Linear crossfader. 0 to last inlet gives left signal 12 | \, 1 gives only right signal. Values in between get interpolated linearly. 13 | ; 14 | #X text 109 111 A list of two or three numbers in last inlet can be 15 | used to set interpolation time and delay - internally this is connected 16 | to [vline~]; 17 | #X obj 395 196 hsl 128 15 0 1 0 0 empty empty 0-1 -2 -8 1 10 -262144 18 | -1 -1 0 1; 19 | #X floatatom 392 224 5 0 0 0 - - -; 20 | #X obj 392 253 pack 0 200 500; 21 | #X text 508 252 third number is predelay; 22 | #X connect 0 0 5 0; 23 | #X connect 1 0 6 2; 24 | #X connect 2 0 6 0; 25 | #X connect 3 0 6 1; 26 | #X connect 5 0 1 0; 27 | #X connect 6 0 4 0; 28 | #X connect 6 0 4 1; 29 | #X connect 10 0 11 0; 30 | #X connect 11 0 12 0; 31 | #X connect 12 0 6 2; 32 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/c_xfade.pd: -------------------------------------------------------------------------------- 1 | #N canvas 230 196 783 283 10; 2 | #X obj 76 87 inlet~; 3 | #X obj 142 87 inlet~; 4 | #X obj 77 198 outlet~; 5 | #X obj 201 87 inlet; 6 | #X obj 201 127 vline~; 7 | #X obj 141 136 -~; 8 | #X obj 141 156 *~; 9 | #X text 371 150 (1-x)*a + x*b; 10 | #X text 371 167 = a - x*a + x*b; 11 | #X text 371 184 = a + x*(b - a); 12 | #X text 366 119 x: fade factor (0-1); 13 | #X text 366 90 a: sig from inlet~ 0; 14 | #X text 339 50 Linear crossfade according to the following calculation: 15 | ; 16 | #X text 367 104 b: sig from inlet~ 1; 17 | #X connect 0 0 5 1; 18 | #X connect 0 0 2 0; 19 | #X connect 1 0 5 0; 20 | #X connect 3 0 4 0; 21 | #X connect 4 0 6 1; 22 | #X connect 5 0 6 0; 23 | #X connect 6 0 2 0; 24 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e.txt: -------------------------------------------------------------------------------- 1 | e_alias - downsample to alias a signal 2 | e_apdist - distort with a modulated allpass filter 3 | e_bitcrusher - reduce bit depth of a signal 4 | e_beequad - biquad filter with settable coeff. interpolation time 5 | e_chorus - chorus effect 6 | e_chorusr - chorus effect after roland 7 | e_dynproc - dynamics processor: compressor noisegate limiter expander 8 | e_dubdel - beat synchronized pingpong or dub delay 9 | e_fbdelay - feedback delay line 10 | e_fbdelay2 - feedback delay line (stereo) 11 | e_freqshift - frequency shifter 12 | e_graindelread - granular delay reader 13 | e_lop2 - 2-pole resonant lowpass filter 14 | e_lop4 - 4-pole resonant lowpass filter 15 | e_pan - stereo panning (constant power) 16 | e_phaser - Phaser effect 17 | e_pingpong - Pingpong delay line 18 | e_pitchshift - pitch shifter 19 | e_platereverb - Griesinger style plate reverb 20 | e_repeater - repeat chunks of incoming signal 21 | e_reslop - resonant lowpass filter 22 | e_resonzq - 2-pole resonant bandpass filter 23 | e_reverb - simple reverb 24 | e_scompress - compressor with sidechain (can be used without as well) 25 | e_softclip - tube-like distortion (tanh) 26 | e_tremolo - simple tremolo 27 | e_vocoder - FFT vocoder 28 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_alias-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 0 709 451 10; 2 | #X obj 162 219 osc~ 220; 3 | #X obj 161 242 *~ 0.5; 4 | #X floatatom 256 196 5 0 0 0 - - -; 5 | #X obj 161 346 soundoutput; 6 | #X obj 161 278 e_alias name 4; 7 | #X msg 256 215 alias \$1; 8 | #X text 152 42 distort by reducing the sample rate to generate aliasing 9 | ; 10 | #X text 145 85 Args: ; 11 | #X text 146 113 Inlet0~: signal to distort; 12 | #X text 147 137 Inlet1: alias ; 13 | #X obj 303 340 tabwrite~ \$0-scope; 14 | #N canvas 0 0 450 300 (subpatch) 0; 15 | #X array \$0-scope 441 float 2; 16 | #X coords 0 1 441 -1 200 140 1; 17 | #X restore 446 188 graph; 18 | #X obj 303 318 metro 100; 19 | #X obj 303 299 tgl 15 0 empty empty scope 17 7 1 10 -262144 -1 -1 0 20 | 1; 21 | #X obj 72 41 e_alias; 22 | #X msg 268 256 dry \$1; 23 | #X floatatom 268 239 5 0 0 1 dry_wet - -; 24 | #X text 203 156 dry (default 0=full wet); 25 | #X connect 0 0 1 0; 26 | #X connect 1 0 4 0; 27 | #X connect 2 0 5 0; 28 | #X connect 4 0 3 0; 29 | #X connect 4 0 3 1; 30 | #X connect 4 0 10 0; 31 | #X connect 5 0 4 1; 32 | #X connect 12 0 10 0; 33 | #X connect 13 0 12 0; 34 | #X connect 15 0 4 1; 35 | #X connect 16 0 15 0; 36 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_alias.pd: -------------------------------------------------------------------------------- 1 | #N canvas 513 326 767 536 10; 2 | #X obj 193 76 inlet~; 3 | #X obj 195 491 outlet~; 4 | #X obj 253 360 phasor~; 5 | #X obj 194 389 samphold~; 6 | #X obj 253 107 samplerate~; 7 | #X obj 253 74 loadbang; 8 | #X floatatom 305 452 10 0 0 0 - - -; 9 | #X msg 325 73 bang; 10 | #X obj 411 70 inlet; 11 | #X obj 267 291 t b a; 12 | #X obj 253 327 / 1; 13 | #X obj 279 184 loadbang; 14 | #X msg 267 259 1; 15 | #X obj 267 236 moses 1; 16 | #X obj 267 209 f \$2; 17 | #X obj 267 164 r \$0-alias; 18 | #X obj 294 326 r \$0-freq; 19 | #X obj 195 461 c_xfade; 20 | #X msg 241 439 \$1 10; 21 | #X obj 241 418 r \$0-dry; 22 | #X obj 411 98 u_dispatch \$0 alias; 23 | #X obj 411 119 u_dispatch \$0 freq; 24 | #X obj 411 142 u_dispatch \$0 dry; 25 | #X obj 467 71 u_loader e_alias-\$1 \$0; 26 | #X connect 0 0 3 0; 27 | #X connect 0 0 17 1; 28 | #X connect 2 0 3 1; 29 | #X connect 3 0 17 0; 30 | #X connect 4 0 10 0; 31 | #X connect 5 0 4 0; 32 | #X connect 7 0 4 0; 33 | #X connect 8 0 20 0; 34 | #X connect 9 0 10 0; 35 | #X connect 9 1 10 1; 36 | #X connect 10 0 6 0; 37 | #X connect 10 0 2 0; 38 | #X connect 11 0 14 0; 39 | #X connect 12 0 9 0; 40 | #X connect 13 0 12 0; 41 | #X connect 13 1 9 0; 42 | #X connect 14 0 13 0; 43 | #X connect 15 0 14 0; 44 | #X connect 16 0 2 0; 45 | #X connect 17 0 1 0; 46 | #X connect 18 0 17 2; 47 | #X connect 19 0 18 0; 48 | #X connect 20 0 21 0; 49 | #X connect 21 0 22 0; 50 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_apdist-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 216 127 777 627 10; 2 | #X obj 147 247 openpanel; 3 | #X msg 147 225 bang; 4 | #X obj 319 191 hsl 128 15 0 127 0 0 empty empty lop 20 7 1 10 -262144 5 | -1 -1 1100 1; 6 | #X obj 318 263 hsl 128 15 0 500 0 0 empty empty drive 20 7 1 10 -262144 7 | -1 -1 4700 1; 8 | #X obj 318 342 hsl 128 15 0 127 0 0 empty empty dry 20 7 1 10 -262144 9 | -1 -1 7200 1; 10 | #X obj 315 364 / 127; 11 | #X msg 315 302 drive \$1; 12 | #X msg 315 389 dry \$1; 13 | #X text 467 262 0 ... inf; 14 | #X text 467 342 0 ... 1 \, default: dry = 0 i.e. full wet; 15 | #X text 468 190 low pass frequency; 16 | #X msg 316 234 lop \$1; 17 | #X obj 316 213 mtof; 18 | #N canvas 0 0 450 300 playsamp 0; 19 | #X obj 109 170 readsf~; 20 | #X obj 155 194 spigot 1; 21 | #X obj 109 113 symbol; 22 | #X msg 109 137 open \$1 \, 1; 23 | #X obj 156 216 b; 24 | #X obj 217 80 inlet; 25 | #X obj 109 66 inlet; 26 | #X obj 109 251 outlet~; 27 | #X connect 0 0 7 0; 28 | #X connect 0 1 1 0; 29 | #X connect 1 0 4 0; 30 | #X connect 2 0 3 0; 31 | #X connect 3 0 0 0; 32 | #X connect 4 0 2 0; 33 | #X connect 5 0 1 1; 34 | #X connect 6 0 2 0; 35 | #X restore 147 327 pd playsamp; 36 | #X obj 221 294 tgl 15 0 empty empty loop 17 7 1 10 -262144 -1 -1 0 37 | 1; 38 | #X msg 163 270 bang; 39 | #X text 193 223 open wav; 40 | #X text 206 270 play again; 41 | #X floatatom 315 283 5 0 0 0 - - -; 42 | #X text 192 24 "Coefficient Modulated Allpass Filter as Distortion 43 | Effect"; 44 | #X text 197 43 as in the DAFx 2008 paper by Jussi Pekonen; 45 | #X text 198 68 See: http://www.acoustics.hut.fi/~jpekonen/Papers/dafx08/ 46 | ; 47 | #X obj 148 412 e_apdist name; 48 | #X obj 147 503 soundoutput; 49 | #X text 107 23 e_apdist; 50 | #X text 115 129 Inlet0~: signal to distort; 51 | #X text 115 107 Arguments: ; 52 | #X text 115 148 Inlet1: methods inlet \, see below; 53 | #X connect 0 0 13 0; 54 | #X connect 1 0 0 0; 55 | #X connect 2 0 12 0; 56 | #X connect 3 0 18 0; 57 | #X connect 4 0 5 0; 58 | #X connect 5 0 7 0; 59 | #X connect 6 0 22 1; 60 | #X connect 7 0 22 1; 61 | #X connect 11 0 22 1; 62 | #X connect 12 0 11 0; 63 | #X connect 13 0 22 0; 64 | #X connect 14 0 13 1; 65 | #X connect 15 0 13 0; 66 | #X connect 18 0 6 0; 67 | #X connect 22 0 23 0; 68 | #X connect 22 0 23 1; 69 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_apdist.pd: -------------------------------------------------------------------------------- 1 | #N canvas 379 201 611 396 10; 2 | #N canvas 0 0 732 603 apdist 0; 3 | #X obj 92 329 rpole~; 4 | #X obj 92 304 rzero_rev~; 5 | #X obj 92 59 inlet~; 6 | #X obj 92 354 outlet~; 7 | #X obj 158 121 lop~ 500; 8 | #X obj 159 262 clip~ -0.9999 0.9999; 9 | #X obj 211 62 inlet; 10 | #X obj 274 61 inlet; 11 | #X obj 274 160 pack 0 10; 12 | #X obj 274 182 line~; 13 | #X obj 158 234 *~; 14 | #X text 211 40 lop; 15 | #X text 274 41 drive; 16 | #X connect 0 0 3 0; 17 | #X connect 1 0 0 0; 18 | #X connect 2 0 1 0; 19 | #X connect 2 0 4 0; 20 | #X connect 4 0 10 0; 21 | #X connect 5 0 0 1; 22 | #X connect 5 0 1 1; 23 | #X connect 6 0 4 1; 24 | #X connect 7 0 8 0; 25 | #X connect 8 0 9 0; 26 | #X connect 9 0 10 1; 27 | #X connect 10 0 5 0; 28 | #X restore 83 175 pd apdist; 29 | #X obj 83 83 inlet~; 30 | #X obj 81 282 outlet~; 31 | #X obj 300 71 inlet; 32 | #X text 53 43 apdist: all pass distortion; 33 | #X obj 300 97 u_dispatch \$0 lop; 34 | #X obj 300 118 u_dispatch \$0 drive; 35 | #X obj 300 140 u_dispatch \$0 dry; 36 | #X obj 82 250 c_xfade; 37 | #X obj 359 71 u_loader e_apdist-\$1 \$0; 38 | #X obj 113 125 r \$0-lop; 39 | #X obj 143 152 r \$0-drive; 40 | #X obj 128 206 r \$0-dry; 41 | #X obj 128 226 pack 0 10; 42 | #X connect 0 0 8 0; 43 | #X connect 1 0 0 0; 44 | #X connect 1 0 8 1; 45 | #X connect 3 0 5 0; 46 | #X connect 5 0 6 0; 47 | #X connect 6 0 7 0; 48 | #X connect 8 0 2 0; 49 | #X connect 10 0 0 1; 50 | #X connect 11 0 0 2; 51 | #X connect 12 0 13 0; 52 | #X connect 13 0 8 2; 53 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_bitcrusher-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 250 119 894 548 10; 2 | #X obj 211 262 osc~ 220; 3 | #X obj 210 429 soundoutput; 4 | #X text 195 116 Inlet0~: signal to distort; 5 | #X obj 352 423 tabwrite~ \$0-scope; 6 | #N canvas 0 0 450 300 (subpatch) 0; 7 | #X array \$0-scope 441 float 2; 8 | #X coords 0 1 441 -1 200 140 1; 9 | #X restore 536 269 graph; 10 | #X obj 352 401 metro 100; 11 | #X obj 352 382 tgl 15 0 empty empty scope 17 7 1 10 -262144 -1 -1 1 12 | 1; 13 | #X msg 368 337 dry \$1; 14 | #X floatatom 368 290 5 0 0 1 dry_wet - -; 15 | #X text 252 159 dry (default 0=full wet); 16 | #X text 196 47 distort by reducing the bitdepth of a signal to generate 17 | aliasing; 18 | #X msg 354 254 depth \$1; 19 | #X floatatom 354 226 5 0 0 1 depth_(min=1) - -; 20 | #X text 196 140 Inlet1: depth ; 21 | #X obj 210 361 e_bitcrusher bc1000 4; 22 | #X text 194 88 Args: ; 23 | #X obj 368 311 / 100; 24 | #X obj 210 315 *~ 0.5; 25 | #X obj 266 314 / 100; 26 | #X floatatom 266 293 5 0 0 0 - - -; 27 | #X obj 48 49 e_bitcrusher ; 28 | #X connect 0 0 17 0; 29 | #X connect 5 0 3 0; 30 | #X connect 6 0 5 0; 31 | #X connect 7 0 14 1; 32 | #X connect 8 0 16 0; 33 | #X connect 11 0 14 1; 34 | #X connect 12 0 11 0; 35 | #X connect 14 0 1 0; 36 | #X connect 14 0 1 1; 37 | #X connect 14 0 3 0; 38 | #X connect 16 0 7 0; 39 | #X connect 17 0 14 0; 40 | #X connect 18 0 17 1; 41 | #X connect 19 0 18 0; 42 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_bitcrusher.pd: -------------------------------------------------------------------------------- 1 | #N canvas 169 102 564 498 10; 2 | #X obj 258 43 inlet; 3 | #X obj 72 45 inlet~; 4 | #X obj 77 376 outlet~; 5 | #N canvas 104 358 564 411 guts 0; 6 | #X obj 72 24 inlet~; 7 | #X obj 70 294 outlet~; 8 | #X obj 130 26 inlet; 9 | #X obj 221 138 /; 10 | #X msg 221 116 1 \$1; 11 | #X obj 71 162 *~; 12 | #X obj 130 137 line~; 13 | #X obj 71 264 *~; 14 | #X obj 89 192 wrap~; 15 | #X obj 71 223 -~; 16 | #X obj 130 114 pack 0 20; 17 | #X obj 221 191 line~; 18 | #X obj 221 168 pack 0 20; 19 | #X obj 130 54 max 1; 20 | #X connect 0 0 5 0; 21 | #X connect 2 0 13 0; 22 | #X connect 3 0 12 0; 23 | #X connect 4 0 3 0; 24 | #X connect 5 0 8 0; 25 | #X connect 5 0 9 0; 26 | #X connect 6 0 5 1; 27 | #X connect 7 0 1 0; 28 | #X connect 8 0 9 1; 29 | #X connect 9 0 7 0; 30 | #X connect 10 0 6 0; 31 | #X connect 11 0 7 1; 32 | #X connect 12 0 11 0; 33 | #X connect 13 0 4 0; 34 | #X connect 13 0 10 0; 35 | #X restore 76 260 pd guts; 36 | #X obj 74 133 hip~ 4; 37 | #X msg 142 308 \$1 10; 38 | #X obj 142 287 r \$0-dry; 39 | #X obj 309 43 u_loader e_bitcrusher-\$1 \$0; 40 | #X obj 258 94 u_dispatch \$0 dry; 41 | #X obj 75 303 hip~ 4; 42 | #X obj 76 329 c_xfade; 43 | #X obj 122 149 loadbang; 44 | #X msg 122 220 128; 45 | #X obj 258 69 u_dispatch \$0 depth; 46 | #X obj 134 261 r \$0-depth; 47 | #X obj 122 197 select 0; 48 | #X obj 122 174 f \$2; 49 | #X connect 0 0 13 0; 50 | #X connect 1 0 4 0; 51 | #X connect 1 0 10 1; 52 | #X connect 3 0 9 0; 53 | #X connect 4 0 3 0; 54 | #X connect 5 0 10 2; 55 | #X connect 6 0 5 0; 56 | #X connect 9 0 10 0; 57 | #X connect 10 0 2 0; 58 | #X connect 11 0 16 0; 59 | #X connect 12 0 3 1; 60 | #X connect 13 0 8 0; 61 | #X connect 14 0 3 1; 62 | #X connect 15 0 12 0; 63 | #X connect 15 1 3 1; 64 | #X connect 16 0 15 0; 65 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_chorus-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 406 231 594 419 10; 2 | #X msg 242 248 help; 3 | #X msg 296 187 mod \$1; 4 | #X msg 230 186 freq \$1; 5 | #X text 45 34 e_chorus; 6 | #X text 63 62 a simple stereo chorus effect; 7 | #X obj 296 164 / 100; 8 | #X floatatom 296 144 5 0 0 2 mod - -; 9 | #X obj 230 164 / 100; 10 | #X floatatom 230 144 5 0 0 2 freq - -; 11 | #X obj 115 297 soundoutput; 12 | #X obj 114 248 e_chorus mychorus; 13 | #X floatatom 115 144 5 0 0 2 pitch - -; 14 | #N canvas 0 0 690 655 guitar 0; 15 | #X obj 132 187 vline~; 16 | #X obj 150 209 noise~; 17 | #X obj 131 311 *~; 18 | #X msg 132 162 0.8 10 \, 0 20 10; 19 | #X msg 274 296 delayfreq \$1; 20 | #X obj 274 255 mtof; 21 | #X obj 132 77 inlet; 22 | #X obj 130 426 outlet~; 23 | #X obj 299 332 loadbang; 24 | #X obj 150 238 bp~ 3000 7; 25 | #X obj 164 266 bp~ 5107 10; 26 | #X obj 132 99 t b a; 27 | #X obj 130 397 e_fbdelay guitar 2000; 28 | #X text 316 76 Karplus-Strong pluck; 29 | #X msg 299 357 feedback 0.99999 \, lpfreq 3200; 30 | #X connect 0 0 2 0; 31 | #X connect 1 0 9 0; 32 | #X connect 1 0 10 0; 33 | #X connect 2 0 12 0; 34 | #X connect 3 0 0 0; 35 | #X connect 4 0 12 2; 36 | #X connect 5 0 4 0; 37 | #X connect 6 0 11 0; 38 | #X connect 8 0 14 0; 39 | #X connect 9 0 2 1; 40 | #X connect 10 0 2 1; 41 | #X connect 11 0 3 0; 42 | #X connect 11 1 5 0; 43 | #X connect 12 0 7 0; 44 | #X connect 14 0 12 2; 45 | #X restore 115 161 pd guitar; 46 | #X msg 369 186 freq 0.8 \, mod 1.3; 47 | #X obj 369 166 loadbang; 48 | #X connect 0 0 10 1; 49 | #X connect 1 0 10 1; 50 | #X connect 2 0 10 1; 51 | #X connect 5 0 1 0; 52 | #X connect 6 0 5 0; 53 | #X connect 7 0 2 0; 54 | #X connect 8 0 7 0; 55 | #X connect 10 0 9 0; 56 | #X connect 10 1 9 1; 57 | #X connect 11 0 12 0; 58 | #X connect 12 0 10 0; 59 | #X connect 13 0 10 1; 60 | #X connect 14 0 13 0; 61 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_chorusr-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 343 144 621 479 10; 2 | #X msg 257 266 help; 3 | #X msg 308 204 mod \$1; 4 | #X msg 242 203 freq \$1; 5 | #X obj 308 181 / 100; 6 | #X floatatom 308 161 5 0 0 2 mod - -; 7 | #X obj 242 181 / 100; 8 | #X floatatom 242 161 5 0 0 2 freq - -; 9 | #X obj 120 314 soundoutput; 10 | #X floatatom 120 161 5 0 0 2 pitch - -; 11 | #N canvas 0 0 690 655 guitar 0; 12 | #X obj 132 187 vline~; 13 | #X obj 150 209 noise~; 14 | #X obj 131 311 *~; 15 | #X msg 132 162 0.8 10 \, 0 20 10; 16 | #X msg 274 296 delayfreq \$1; 17 | #X obj 274 255 mtof; 18 | #X obj 132 77 inlet; 19 | #X obj 130 426 outlet~; 20 | #X obj 299 332 loadbang; 21 | #X obj 150 238 bp~ 3000 7; 22 | #X obj 164 266 bp~ 5107 10; 23 | #X obj 132 99 t b a; 24 | #X text 316 76 Karplus-Strong pluck; 25 | #X msg 299 357 feedback 0.99999 \, lpfreq 3200; 26 | #X obj 130 397 e_fbdelay guitar 2000; 27 | #X connect 0 0 2 0; 28 | #X connect 1 0 9 0; 29 | #X connect 1 0 10 0; 30 | #X connect 2 0 14 0; 31 | #X connect 3 0 0 0; 32 | #X connect 4 0 14 2; 33 | #X connect 5 0 4 0; 34 | #X connect 6 0 11 0; 35 | #X connect 8 0 13 0; 36 | #X connect 9 0 2 1; 37 | #X connect 10 0 2 1; 38 | #X connect 11 0 3 0; 39 | #X connect 11 1 5 0; 40 | #X connect 13 0 14 2; 41 | #X connect 14 0 7 0; 42 | #X restore 120 178 pd guitar; 43 | #X msg 374 203 freq 0.8 \, mod 1.3; 44 | #X obj 374 183 loadbang; 45 | #X text 91 68 another simple stereo chorus. This is a Roland design 46 | with delays driven by frequency dividers at 1 \, 1/2 \, 1/4 \, 1/8 47 | times the base chorus frequency instead of phase shifters.; 48 | #X obj 119 265 e_chorusr mychorus; 49 | #X text 67 46 e_chorusr; 50 | #X connect 0 0 13 1; 51 | #X connect 1 0 13 1; 52 | #X connect 2 0 13 1; 53 | #X connect 3 0 1 0; 54 | #X connect 4 0 3 0; 55 | #X connect 5 0 2 0; 56 | #X connect 6 0 5 0; 57 | #X connect 8 0 9 0; 58 | #X connect 9 0 13 0; 59 | #X connect 10 0 13 1; 60 | #X connect 11 0 10 0; 61 | #X connect 13 0 7 0; 62 | #X connect 13 1 7 1; 63 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_fbdelay2.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 22 450 300 10; 2 | #X obj 73 59 inlet~; 3 | #X obj 131 59 inlet~; 4 | #X obj 201 61 inlet~; 5 | #X obj 262 66 inlet; 6 | #X obj 35 199 outlet~; 7 | #X obj 189 194 outlet~; 8 | #X obj 36 130 e_fbdelay \$1-1 \$2; 9 | #X obj 190 129 e_fbdelay \$1-2 \$2; 10 | #X connect 0 0 6 0; 11 | #X connect 1 0 7 0; 12 | #X connect 2 0 7 1; 13 | #X connect 2 0 6 1; 14 | #X connect 3 0 7 2; 15 | #X connect 3 0 6 2; 16 | #X connect 6 0 4 0; 17 | #X connect 7 0 5 0; 18 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_freqshift-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 196 66 492 362 10; 2 | #X obj 85 144 osc~ 220; 3 | #X floatatom 197 140 5 0 0 0 - - -; 4 | #X obj 84 214 *~ 0.1; 5 | #X floatatom 84 123 5 0 0 0 - - -; 6 | #X obj 68 254 soundoutput; 7 | #X obj 84 182 e_freqshift; 8 | #X msg 254 155 freq \$1; 9 | #X floatatom 255 134 5 0 0 0 - - -; 10 | #X text 29 25 e_freqshift: shift all frequencies by a certain amount 11 | ; 12 | #X text 30 53 This effect distroys the harmonic structure of a tone 13 | \, if you want to keep that use pitchshift.; 14 | #X text 252 113 shift amount in Hz; 15 | #X connect 0 0 5 0; 16 | #X connect 1 0 5 1; 17 | #X connect 2 0 4 0; 18 | #X connect 2 0 4 1; 19 | #X connect 3 0 0 0; 20 | #X connect 5 0 2 0; 21 | #X connect 6 0 5 1; 22 | #X connect 7 0 6 0; 23 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_freqshift.pd: -------------------------------------------------------------------------------- 1 | #N canvas 632 156 696 455 10; 2 | #X obj 131 103 phasor~; 3 | #X obj 131 156 cos~; 4 | #X obj 177 154 cos~; 5 | #X obj 44 56 inlet~; 6 | #X obj 113 207 *~; 7 | #X obj 45 257 outlet~; 8 | #X obj 206 55 inlet; 9 | #X obj 45 205 *~; 10 | #N canvas 0 22 588 330 hilbert 0; 11 | #X obj 105 92 biquad~ 0.83774 -0.06338 0.06338 -0.83774 1; 12 | #X obj 105 66 biquad~ 1.94632 -0.94657 0.94657 -1.94632 1; 13 | #X obj 86 149 biquad~ -0.02569 0.260502 -0.260502 0.02569 1; 14 | #X obj 86 175 biquad~ 1.8685 -0.870686 0.870686 -1.8685 1; 15 | #X obj 86 39 inlet~; 16 | #X obj 105 121 outlet~; 17 | #X obj 86 202 outlet~; 18 | #X obj 502 39 inlet; 19 | #X text 461 13 bang to clear; 20 | #X text 80 16 signal in; 21 | #X msg 502 112 clear; 22 | #X connect 0 0 5 0; 23 | #X connect 1 0 0 0; 24 | #X connect 2 0 3 0; 25 | #X connect 3 0 6 0; 26 | #X connect 4 0 1 0; 27 | #X connect 4 0 2 0; 28 | #X connect 7 0 10 0; 29 | #X connect 10 0 1 0; 30 | #X connect 10 0 0 0; 31 | #X connect 10 0 2 0; 32 | #X connect 10 0 3 0; 33 | #X restore 44 128 pd hilbert; 34 | #X obj 177 134 +~ 0.25; 35 | #X obj 294 74 u_loader e_freqshift-\$1 \$0; 36 | #X obj 206 75 route float; 37 | #X obj 132 54 r \$0-freq; 38 | #X obj 280 101 u_dispatch \$0 freq; 39 | #X connect 0 0 1 0; 40 | #X connect 0 0 9 0; 41 | #X connect 1 0 7 1; 42 | #X connect 2 0 4 1; 43 | #X connect 3 0 8 0; 44 | #X connect 4 0 5 0; 45 | #X connect 6 0 11 0; 46 | #X connect 7 0 5 0; 47 | #X connect 8 0 7 0; 48 | #X connect 8 1 4 0; 49 | #X connect 9 0 2 0; 50 | #X connect 11 0 0 0; 51 | #X connect 11 1 13 0; 52 | #X connect 12 0 0 0; 53 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_lop2-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 345 214 519 438 10; 2 | #X obj 149 121 noise~; 3 | #X obj 149 251 soundoutput; 4 | #X obj 215 138 mtof; 5 | #X floatatom 215 117 5 0 0 2 pitch - -; 6 | #X floatatom 264 118 5 0 0 2 Q - -; 7 | #X obj 148 218 *~ 0.2; 8 | #X obj 149 176 e_lop2 1000 2; 9 | #X text 92 60 2-pole resonant lowpass filter with Q inlet; 10 | #X text 59 34 e_lop2; 11 | #X text 259 174 args: ; 12 | #X connect 0 0 6 0; 13 | #X connect 2 0 6 1; 14 | #X connect 3 0 2 0; 15 | #X connect 4 0 6 2; 16 | #X connect 5 0 1 0; 17 | #X connect 5 0 1 1; 18 | #X connect 6 0 5 0; 19 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_lop2.pd: -------------------------------------------------------------------------------- 1 | #N canvas 458 362 450 300 10; 2 | #X obj 137 59 inlet~; 3 | #X obj 136 240 outlet~; 4 | #X obj 203 56 inlet; 5 | #X obj 325 55 inlet; 6 | #X obj 251 95 loadbang; 7 | #X obj 203 169 u_lowpassq; 8 | #X obj 325 139 f \$2; 9 | #X obj 203 140 f \$1; 10 | #X obj 251 117 t b b; 11 | #X obj 136 204 e_beequad; 12 | #X connect 0 0 9 0; 13 | #X connect 2 0 7 0; 14 | #X connect 3 0 6 0; 15 | #X connect 4 0 8 0; 16 | #X connect 5 0 9 1; 17 | #X connect 6 0 5 1; 18 | #X connect 7 0 5 0; 19 | #X connect 8 0 7 0; 20 | #X connect 8 1 6 0; 21 | #X connect 9 0 1 0; 22 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_lop4-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 345 214 519 438 10; 2 | #X text 59 37 e_lop4; 3 | #X text 92 61 4-pole resonant lowpass filter with Q inlet; 4 | #X obj 149 121 noise~; 5 | #X obj 149 251 soundoutput; 6 | #X obj 215 138 mtof; 7 | #X floatatom 215 117 5 0 0 2 pitch - -; 8 | #X floatatom 264 118 5 0 0 2 Q - -; 9 | #X obj 148 218 *~ 0.2; 10 | #X obj 149 176 e_lop4 1000 2; 11 | #X connect 2 0 8 0; 12 | #X connect 4 0 8 1; 13 | #X connect 5 0 4 0; 14 | #X connect 6 0 8 2; 15 | #X connect 7 0 3 0; 16 | #X connect 7 0 3 1; 17 | #X connect 8 0 7 0; 18 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_lop4.pd: -------------------------------------------------------------------------------- 1 | #N canvas 458 362 450 300 10; 2 | #X obj 130 59 inlet~; 3 | #X obj 129 260 outlet~; 4 | #X obj 203 56 inlet; 5 | #X obj 325 55 inlet; 6 | #X obj 251 95 loadbang; 7 | #X obj 203 169 u_lowpassq; 8 | #X obj 325 139 f \$2; 9 | #X obj 203 140 f \$1; 10 | #X obj 251 117 t b b; 11 | #X obj 129 204 e_beequad; 12 | #X obj 129 226 e_beequad; 13 | #X connect 0 0 9 0; 14 | #X connect 2 0 7 0; 15 | #X connect 3 0 6 0; 16 | #X connect 4 0 8 0; 17 | #X connect 5 0 9 1; 18 | #X connect 5 0 10 1; 19 | #X connect 6 0 5 1; 20 | #X connect 7 0 5 0; 21 | #X connect 8 0 7 0; 22 | #X connect 8 1 6 0; 23 | #X connect 9 0 10 0; 24 | #X connect 10 0 1 0; 25 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_pan-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 349 98 577 536 10; 2 | #X obj 116 245 noise~; 3 | #X floatatom 171 275 8 0 0 0 - - -; 4 | #X obj 171 245 / 127; 5 | #X obj 174 220 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 6 | -1 -1 6500 1; 7 | #X text 177 202 L < < < M > > > R; 8 | #X text 260 238 controller value; 9 | #X obj 115 275 *~ 0.3; 10 | #X obj 115 343 soundoutput; 11 | #X text 91 23 Constant power panner (cosine law); 12 | #X text 64 110 Inlets: 1) signal to pan; 13 | #X text 121 132 2) panning position (0 = left \, 1 = right). Default 14 | is center (0.5); 15 | #X text 65 63 Argument: panning position (0 = left \, 1 = right). Default 16 | with empty argument is center (i.e. 0.5); 17 | #X obj 39 23 e_pan; 18 | #X obj 63 321 env~; 19 | #X obj 63 343 - 100; 20 | #X obj 64 367 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; 21 | #X obj 226 321 env~; 22 | #X obj 226 343 - 100; 23 | #X obj 227 365 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; 24 | #X obj 115 305 e_pan; 25 | #X connect 0 0 6 0; 26 | #X connect 1 0 19 1; 27 | #X connect 2 0 1 0; 28 | #X connect 3 0 2 0; 29 | #X connect 6 0 19 0; 30 | #X connect 13 0 14 0; 31 | #X connect 14 0 15 0; 32 | #X connect 16 0 17 0; 33 | #X connect 17 0 18 0; 34 | #X connect 19 0 7 0; 35 | #X connect 19 0 13 0; 36 | #X connect 19 1 7 1; 37 | #X connect 19 1 16 0; 38 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_pan.pd: -------------------------------------------------------------------------------- 1 | #N canvas 405 232 567 432 10; 2 | #X text 190 183 * ~M_PI/2; 3 | #X obj 117 175 * 1.5708; 4 | #X obj 117 60 inlet; 5 | #X obj 38 62 inlet~; 6 | #X obj 39 351 outlet~; 7 | #X obj 130 355 outlet~; 8 | #X obj 58 207 cos; 9 | #X obj 147 209 sin; 10 | #X msg 168 132 0.5; 11 | #X obj 201 133 f \$1; 12 | #N canvas 0 0 715 450 check-arg 0; 13 | #X obj 179 184 makefilename $%d-EMPTY; 14 | #X obj 52 185 symbol \$1-EMPTY; 15 | #X msg 69 156 bang; 16 | #X obj 52 217 select DUMMY; 17 | #X obj 52 39 loadbang; 18 | #X obj 52 62 t b b; 19 | #X obj 179 157 1; 20 | #X obj 52 294 outlet; 21 | #X text 182 85 Using an idiom by IOhannes; 22 | #X msg 133 250 1; 23 | #X msg 52 246 0; 24 | #X text 182 247 Output 0 if no \$1 argument present \, and 1 if \$1 25 | is present even if it's 0!; 26 | #X connect 0 0 3 1; 27 | #X connect 1 0 3 0; 28 | #X connect 2 0 1 0; 29 | #X connect 3 0 10 0; 30 | #X connect 3 1 9 0; 31 | #X connect 4 0 5 0; 32 | #X connect 5 0 1 0; 33 | #X connect 5 1 6 0; 34 | #X connect 6 0 0 0; 35 | #X connect 9 0 7 0; 36 | #X connect 10 0 7 0; 37 | #X restore 168 59 pd check-arg; 38 | #X obj 168 85 select 0 1; 39 | #X obj 130 324 *~; 40 | #X obj 39 320 *~; 41 | #X obj 147 293 line~; 42 | #X obj 147 267 pack 0 10; 43 | #X obj 58 296 line~; 44 | #X obj 58 270 pack 0 10; 45 | #X connect 1 0 6 0; 46 | #X connect 1 0 7 0; 47 | #X connect 2 0 1 0; 48 | #X connect 3 0 12 0; 49 | #X connect 3 0 13 0; 50 | #X connect 6 0 17 0; 51 | #X connect 7 0 15 0; 52 | #X connect 8 0 1 0; 53 | #X connect 9 0 1 0; 54 | #X connect 10 0 11 0; 55 | #X connect 11 0 8 0; 56 | #X connect 11 1 9 0; 57 | #X connect 12 0 5 0; 58 | #X connect 13 0 4 0; 59 | #X connect 14 0 12 1; 60 | #X connect 15 0 14 0; 61 | #X connect 16 0 13 1; 62 | #X connect 17 0 16 0; 63 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_phaser-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 406 84 718 570 10; 2 | #N canvas 0 0 660 424 chord 0; 3 | #X obj 92 97 -~ 0.5; 4 | #X obj 92 146 clip~ -0.5 0.5; 5 | #X obj 92 169 cos~; 6 | #X obj 91 252 hip~ 5; 7 | #X obj 91 315 outlet~; 8 | #X obj 92 122 *~ 3; 9 | #X obj 92 74 phasor~ 220; 10 | #X obj 221 97 -~ 0.5; 11 | #X obj 221 146 clip~ -0.5 0.5; 12 | #X obj 221 169 cos~; 13 | #X obj 221 122 *~ 3; 14 | #X obj 356 100 -~ 0.5; 15 | #X obj 356 149 clip~ -0.5 0.5; 16 | #X obj 356 172 cos~; 17 | #X obj 356 125 *~ 3; 18 | #X obj 221 74 phasor~ 251; 19 | #X obj 356 77 phasor~ 281; 20 | #X text 147 32 test sound for phaser; 21 | #X obj 91 285 *~ 0.2; 22 | #X msg 430 26 0; 23 | #X connect 0 0 5 0; 24 | #X connect 1 0 2 0; 25 | #X connect 2 0 3 0; 26 | #X connect 3 0 18 0; 27 | #X connect 5 0 1 0; 28 | #X connect 6 0 0 0; 29 | #X connect 7 0 10 0; 30 | #X connect 8 0 9 0; 31 | #X connect 9 0 3 0; 32 | #X connect 10 0 8 0; 33 | #X connect 11 0 14 0; 34 | #X connect 12 0 13 0; 35 | #X connect 13 0 3 0; 36 | #X connect 14 0 12 0; 37 | #X connect 15 0 7 0; 38 | #X connect 16 0 11 0; 39 | #X connect 18 0 4 0; 40 | #X connect 19 0 16 1; 41 | #X connect 19 0 15 1; 42 | #X connect 19 0 6 1; 43 | #X restore 119 105 pd chord; 44 | #X obj 119 350 soundoutput; 45 | #X msg 199 145 freq \$1; 46 | #X obj 199 123 / 100; 47 | #X obj 202 103 hsl 128 15 0 127 0 0 empty empty frequency -2 -8 1 10 48 | -262144 -1 -1 0 1; 49 | #X msg 342 145 freq \$1; 50 | #X obj 342 123 / 100; 51 | #X obj 345 103 hsl 128 15 0 127 0 0 empty empty frequency -2 -8 1 10 52 | -262144 -1 -1 0 1; 53 | #X obj 390 199 / 100; 54 | #X obj 393 179 hsl 128 15 0 127 0 0 empty empty depth -2 -8 1 10 -262144 55 | -1 -1 0 1; 56 | #X msg 390 221 depth \$1; 57 | #X obj 118 288 e_phaser ph0; 58 | #X obj 261 289 e_phaser ph1; 59 | #X connect 0 0 11 0; 60 | #X connect 0 0 12 0; 61 | #X connect 2 0 11 1; 62 | #X connect 3 0 2 0; 63 | #X connect 4 0 3 0; 64 | #X connect 5 0 12 1; 65 | #X connect 6 0 5 0; 66 | #X connect 7 0 6 0; 67 | #X connect 8 0 10 0; 68 | #X connect 9 0 8 0; 69 | #X connect 10 0 11 1; 70 | #X connect 10 0 12 1; 71 | #X connect 11 0 1 0; 72 | #X connect 12 0 1 1; 73 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_phaser.pd: -------------------------------------------------------------------------------- 1 | #N canvas 270 214 868 518 10; 2 | #X obj 74 38 inlet~; 3 | #X obj 414 28 inlet; 4 | #X obj 96 127 rpole~; 5 | #X obj 96 102 rzero_rev~; 6 | #X obj 96 176 rpole~; 7 | #X obj 96 151 rzero_rev~; 8 | #X obj 96 224 rpole~; 9 | #X obj 96 199 rzero_rev~; 10 | #X obj 96 273 rpole~; 11 | #X obj 96 248 rzero_rev~; 12 | #X obj 73 303 +~; 13 | #X obj 72 331 outlet~; 14 | #X obj 528 30 u_loader e_phaser-\$1 \$0; 15 | #X obj 414 62 u_dispatch \$0 freq; 16 | #X obj 403 180 r \$0-freq; 17 | #X obj 403 211 phasor~ 0.3; 18 | #X text 339 129 replacement for: expr~ 1 - 0.03 - 0.6*abs($v1-0.5)*abs($v1-0.5) 19 | ; 20 | #X obj 345 211 sig~ 1; 21 | #X obj 345 237 -~; 22 | #X obj 346 281 min~; 23 | #X floatatom 484 178 5 0 0 0 - - -; 24 | #X obj 346 306 *~; 25 | #X obj 270 360 -~; 26 | #X obj 271 330 sig~ 0.97; 27 | #X obj 414 84 u_dispatch \$0 depth; 28 | #X obj 406 300 line~; 29 | #X obj 489 250 loadbang; 30 | #X obj 489 271 f 0.6; 31 | #X obj 346 333 *~; 32 | #X obj 406 245 r \$0-depth; 33 | #X obj 406 271 pack 0 10; 34 | #X connect 0 0 3 0; 35 | #X connect 0 0 10 0; 36 | #X connect 1 0 13 0; 37 | #X connect 2 0 5 0; 38 | #X connect 3 0 2 0; 39 | #X connect 4 0 7 0; 40 | #X connect 5 0 4 0; 41 | #X connect 6 0 9 0; 42 | #X connect 7 0 6 0; 43 | #X connect 8 0 10 1; 44 | #X connect 9 0 8 0; 45 | #X connect 10 0 11 0; 46 | #X connect 13 0 24 0; 47 | #X connect 14 0 15 0; 48 | #X connect 15 0 19 1; 49 | #X connect 15 0 18 1; 50 | #X connect 17 0 18 0; 51 | #X connect 18 0 19 0; 52 | #X connect 19 0 21 0; 53 | #X connect 19 0 21 1; 54 | #X connect 20 0 15 0; 55 | #X connect 21 0 28 0; 56 | #X connect 22 0 3 1; 57 | #X connect 22 0 2 1; 58 | #X connect 22 0 5 1; 59 | #X connect 22 0 4 1; 60 | #X connect 22 0 7 1; 61 | #X connect 22 0 6 1; 62 | #X connect 22 0 9 1; 63 | #X connect 22 0 8 1; 64 | #X connect 23 0 22 0; 65 | #X connect 25 0 28 1; 66 | #X connect 26 0 27 0; 67 | #X connect 27 0 25 0; 68 | #X connect 28 0 22 1; 69 | #X connect 29 0 30 0; 70 | #X connect 30 0 25 0; 71 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_pitchshift-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 579 259 581 342 10; 2 | #X obj 77 120 e_pitchshift; 3 | #X obj 77 91 osc~ 220; 4 | #X obj 76 150 *~ 0.1; 5 | #X msg 178 96 pitch \$1; 6 | #X floatatom 178 75 5 0 0 0 - - -; 7 | #X obj 60 190 soundoutput; 8 | #X text 221 75 desired pitch shift in semitones; 9 | #X text 29 18 pitchshift: shift pitch of incoming signal; 10 | #X connect 0 0 2 0; 11 | #X connect 1 0 0 0; 12 | #X connect 2 0 5 0; 13 | #X connect 2 0 5 1; 14 | #X connect 3 0 0 1; 15 | #X connect 4 0 3 0; 16 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_repeater-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 519 243 750 420 10; 2 | #X floatatom 205 61 5 0 0 0 - - -; 3 | #X msg 202 108 feedback 1; 4 | #X obj 206 39 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 5 | -1; 6 | #X text 28 19 Repeat a chunk of the incoming signal.; 7 | #X text 385 114 feedback level. If 1 the chunk gets repeated endlessly. 8 | ; 9 | #X msg 201 135 dry 1; 10 | #X msg 252 136 dry 0.5; 11 | #X msg 314 136 dry 0; 12 | #X text 394 140 dry signal (1) - wet signal (0); 13 | #X msg 245 174 num 4; 14 | #X msg 198 174 num 0; 15 | #X msg 292 174 num 16; 16 | #X msg 284 109 feedback 0.9; 17 | #X text 381 176 number of repetitions (default (0) is endless); 18 | #X obj 47 102 soundinput; 19 | #X obj 61 257 soundoutput; 20 | #X text 248 60 length of the chunk repeated in ms triggers new recording. 21 | ; 22 | #X obj 74 165 e_repeater repea; 23 | #X connect 0 0 17 1; 24 | #X connect 1 0 17 1; 25 | #X connect 2 0 0 0; 26 | #X connect 5 0 17 1; 27 | #X connect 6 0 17 1; 28 | #X connect 7 0 17 1; 29 | #X connect 9 0 17 1; 30 | #X connect 10 0 17 1; 31 | #X connect 11 0 17 1; 32 | #X connect 12 0 17 1; 33 | #X connect 14 0 17 0; 34 | #X connect 17 0 15 0; 35 | #X connect 17 0 15 1; 36 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_repeater-help2.pd: -------------------------------------------------------------------------------- 1 | #N canvas 519 243 750 420 10; 2 | #X floatatom 205 61 5 0 0 0 - - -; 3 | #X msg 202 108 feedback 1; 4 | #X obj 206 39 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 5 | -1; 6 | #X text 28 19 Repeat a chunk of the incoming signal.; 7 | #X text 385 114 feedback level. If 1 the chunk gets repeated endlessly. 8 | ; 9 | #X msg 201 135 dry 1; 10 | #X msg 252 136 dry 0.5; 11 | #X msg 314 136 dry 0; 12 | #X text 394 140 dry signal (1) - wet signal (0); 13 | #X msg 245 174 num 4; 14 | #X msg 198 174 num 0; 15 | #X msg 292 174 num 16; 16 | #X msg 284 109 feedback 0.9; 17 | #X text 381 176 number of repetitions (default (0) is endless); 18 | #X obj 47 102 soundinput; 19 | #X obj 61 257 soundoutput; 20 | #X text 248 60 length of the chunk repeated in ms triggers new recording. 21 | ; 22 | #X obj 74 165 e_repeater repea; 23 | #X obj 305 290 s_looper xxx; 24 | #X msg 303 254 open; 25 | #X msg 345 253 play; 26 | #X msg 405 252 loop \$1; 27 | #X obj 405 232 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 28 | 1; 29 | #X connect 0 0 17 1; 30 | #X connect 1 0 17 1; 31 | #X connect 2 0 0 0; 32 | #X connect 5 0 17 1; 33 | #X connect 6 0 17 1; 34 | #X connect 7 0 17 1; 35 | #X connect 9 0 17 1; 36 | #X connect 10 0 17 1; 37 | #X connect 11 0 17 1; 38 | #X connect 12 0 17 1; 39 | #X connect 14 0 17 0; 40 | #X connect 17 0 15 0; 41 | #X connect 17 0 15 1; 42 | #X connect 18 0 17 0; 43 | #X connect 18 1 17 0; 44 | #X connect 19 0 18 0; 45 | #X connect 20 0 18 0; 46 | #X connect 21 0 18 0; 47 | #X connect 22 0 21 0; 48 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_repeater.pd: -------------------------------------------------------------------------------- 1 | #N canvas 690 187 673 411 10; 2 | #X obj 86 41 inlet~; 3 | #X obj 70 411 outlet~; 4 | #X obj 394 101 inlet; 5 | #X obj 452 45 loadbang; 6 | #X msg 452 70 freq 0.8 \, mod 1.8; 7 | #X floatatom 253 61 5 0 0 0 - - -; 8 | #X obj 148 186 *~; 9 | #X obj 166 162 vline~; 10 | #X msg 167 139 1 10 \, 0 10 \$1; 11 | #X msg 254 37 250; 12 | #X obj 254 348 *~; 13 | #X obj 272 323 vline~; 14 | #X obj 453 98 u_loader e_repeater-\$1 \$0; 15 | #X obj 70 390 c_xfade; 16 | #X msg 115 368 \$1 10; 17 | #X obj 116 347 r \$0-dry; 18 | #X obj 393 170 u_dispatch \$0 dry; 19 | #X obj 393 191 u_dispatch \$0 float; 20 | #X obj 285 36 r \$0-float; 21 | #X obj 393 128 u_dispatch \$0 feedback; 22 | #X obj 339 79 r \$0-feedback; 23 | #X obj 273 162 pack 200 1; 24 | #X obj 254 375 delwrite~ \$0-del 1000; 25 | #X obj 252 195 delread~ \$0-del; 26 | #X msg 273 299 0 \, \$2 10 \$1; 27 | #X obj 339 98 min 1; 28 | #X obj 340 118 max 0; 29 | #X obj 394 149 u_dispatch \$0 num; 30 | #X msg 450 371 0 10; 31 | #X obj 405 258 * 0; 32 | #X obj 423 217 r \$0-num; 33 | #X obj 450 351 del; 34 | #X obj 450 329 t b f; 35 | #X obj 405 278 moses 1; 36 | #X obj 264 87 t f f; 37 | #X obj 422 237 - 1; 38 | #X connect 0 0 6 0; 39 | #X connect 0 0 13 1; 40 | #X connect 2 0 19 0; 41 | #X connect 3 0 4 0; 42 | #X connect 4 0 19 0; 43 | #X connect 5 0 8 0; 44 | #X connect 5 0 23 0; 45 | #X connect 5 0 34 0; 46 | #X connect 6 0 13 0; 47 | #X connect 6 0 22 0; 48 | #X connect 7 0 6 1; 49 | #X connect 8 0 7 0; 50 | #X connect 9 0 5 0; 51 | #X connect 10 0 22 0; 52 | #X connect 11 0 10 1; 53 | #X connect 13 0 1 0; 54 | #X connect 14 0 13 2; 55 | #X connect 15 0 14 0; 56 | #X connect 16 0 17 0; 57 | #X connect 18 0 5 0; 58 | #X connect 19 0 27 0; 59 | #X connect 20 0 25 0; 60 | #X connect 21 0 24 0; 61 | #X connect 23 0 13 0; 62 | #X connect 23 0 10 0; 63 | #X connect 24 0 11 0; 64 | #X connect 25 0 26 0; 65 | #X connect 26 0 21 1; 66 | #X connect 27 0 16 0; 67 | #X connect 28 0 11 0; 68 | #X connect 29 0 33 0; 69 | #X connect 30 0 35 0; 70 | #X connect 31 0 28 0; 71 | #X connect 32 0 31 0; 72 | #X connect 32 1 31 1; 73 | #X connect 33 1 32 0; 74 | #X connect 34 0 29 0; 75 | #X connect 34 1 21 0; 76 | #X connect 35 0 29 1; 77 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_reslop-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 66 126 1037 545 10; 2 | #X obj 132 187 vline~; 3 | #X obj 150 209 noise~; 4 | #X obj 131 231 *~; 5 | #X obj 129 454 soundoutput; 6 | #X obj 375 153 vsl 15 100 0 100 0 0 empty empty q_(peakiness) 0 -9 7 | 1 10 -262144 -1 -1 0 1; 8 | #X obj 132 134 bng 24 250 50 0 empty empty empty 17 7 0 10 -4034 -1 9 | -1; 10 | #X msg 132 162 0.8 10 \, 0 20 10; 11 | #X floatatom 392 283 5 0 0 0 - - -; 12 | #X obj 260 152 vsl 15 128 0 100 0 0 empty empty lowpass_frequency 0 13 | -9 1 10 -262144 -1 -1 0 1; 14 | #X obj 260 293 mtof; 15 | #X floatatom 274 316 8 0 0 0 - - -; 16 | #X obj 132 84 r \$0-trigger; 17 | #X obj 132 108 bang; 18 | #X obj 453 277 hsl 50 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144 19 | -1 -1 0 1; 20 | #X floatatom 450 297 5 0 0 0 - - -; 21 | #X msg 450 314 dry \$1; 22 | #X text 451 334 default is dry=0 i.e. fully wet; 23 | #X obj 130 397 e_reslop mylop 2000; 24 | #X msg 260 344 freq \$1; 25 | #X text 35 39 Resonant lowpass filter.; 26 | #X text 25 13 e_reslop; 27 | #X text 35 54 use as: e_reslop ; 28 | #X msg 374 313 q \$1; 29 | #X connect 0 0 2 0; 30 | #X connect 1 0 2 1; 31 | #X connect 2 0 17 0; 32 | #X connect 4 0 22 0; 33 | #X connect 4 0 7 0; 34 | #X connect 5 0 6 0; 35 | #X connect 6 0 0 0; 36 | #X connect 8 0 9 0; 37 | #X connect 9 0 18 0; 38 | #X connect 9 0 10 0; 39 | #X connect 11 0 12 0; 40 | #X connect 12 0 5 0; 41 | #X connect 13 0 14 0; 42 | #X connect 14 0 15 0; 43 | #X connect 15 0 17 1; 44 | #X connect 17 0 3 0; 45 | #X connect 17 0 3 1; 46 | #X connect 18 0 17 1; 47 | #X connect 22 0 17 1; 48 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_reslop.pd: -------------------------------------------------------------------------------- 1 | #N canvas 588 25 852 486 10; 2 | #X obj 117 40 inlet~; 3 | #X obj 97 440 outlet~; 4 | #X obj 542 66 inlet; 5 | #X obj 98 418 c_xfade; 6 | #X msg 143 396 \$1 10; 7 | #X obj 144 375 r \$0-dry; 8 | #X obj 542 135 u_dispatch \$0 dry; 9 | #X obj 542 91 u_dispatch \$0 freq; 10 | #X obj 308 62 r \$0-freq; 11 | #X obj 204 132 vcf~ 10; 12 | #X obj 277 252 * 1; 13 | #X obj 261 219 * 1; 14 | #X obj 290 280 * 1; 15 | #X obj 593 66 u_loader e_reslop-\$1 \$0; 16 | #X obj 542 112 u_dispatch \$0 q; 17 | #X obj 383 61 r \$0-q; 18 | #X obj 209 244 lop~ \$2; 19 | #X obj 221 278 lop~ \$2; 20 | #X obj 237 312 lop~ \$2; 21 | #X obj 227 109 sig~ \$2; 22 | #X connect 0 0 3 1; 23 | #X connect 0 0 9 0; 24 | #X connect 2 0 7 0; 25 | #X connect 3 0 1 0; 26 | #X connect 4 0 3 2; 27 | #X connect 5 0 4 0; 28 | #X connect 7 0 14 0; 29 | #X connect 8 0 10 0; 30 | #X connect 8 0 11 0; 31 | #X connect 8 0 12 0; 32 | #X connect 8 0 19 0; 33 | #X connect 9 0 16 0; 34 | #X connect 10 0 17 1; 35 | #X connect 11 0 16 1; 36 | #X connect 12 0 18 1; 37 | #X connect 14 0 6 0; 38 | #X connect 15 0 9 2; 39 | #X connect 16 0 17 0; 40 | #X connect 17 0 18 0; 41 | #X connect 18 0 3 0; 42 | #X connect 19 0 9 1; 43 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_reverb-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 613 84 667 495 10; 2 | #X obj 56 225 osc~ 220; 3 | #X obj 56 257 *~; 4 | #X obj 56 291 e_reverb rev1; 5 | #X msg 263 236 amp \$1; 6 | #X msg 335 237 hall \$1; 7 | #X msg 260 426 freq \$1; 8 | #X msg 372 427 damp \$1; 9 | #X obj 264 111 vsl 15 100 0 100 0 0 empty empty amplitude 0 -9 0 10 10 | -262144 -1 -1 0 1; 11 | #X floatatom 264 217 5 0 0 0 - - -; 12 | #X obj 335 112 vsl 15 100 0 100 0 0 empty empty hall_(room_size) 0 13 | -9 0 10 -262144 -1 -1 0 1; 14 | #X floatatom 335 218 5 0 0 0 - - -; 15 | #X obj 261 300 vsl 15 100 0 5000 0 0 empty empty filter_freq 0 -9 0 16 | 10 -262144 -1 -1 0 1; 17 | #X floatatom 261 406 5 0 0 0 - - -; 18 | #X obj 372 301 vsl 15 100 0 100 0 0 empty empty damping 0 -9 0 10 -262144 19 | -1 -1 0 1; 20 | #X floatatom 372 407 5 0 0 0 - - -; 21 | #X text 53 36 Simple and cheap reverb module; 22 | #X obj 121 225 vline~; 23 | #X msg 121 200 1 5 \, 0 100 5; 24 | #X obj 56 347 soundoutput; 25 | #X connect 0 0 1 0; 26 | #X connect 1 0 2 0; 27 | #X connect 2 0 18 0; 28 | #X connect 2 1 18 1; 29 | #X connect 3 0 2 1; 30 | #X connect 4 0 2 1; 31 | #X connect 5 0 2 1; 32 | #X connect 6 0 2 1; 33 | #X connect 7 0 8 0; 34 | #X connect 8 0 3 0; 35 | #X connect 9 0 10 0; 36 | #X connect 10 0 4 0; 37 | #X connect 11 0 12 0; 38 | #X connect 12 0 5 0; 39 | #X connect 13 0 14 0; 40 | #X connect 14 0 6 0; 41 | #X connect 16 0 1 1; 42 | #X connect 17 0 16 0; 43 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_softclip-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 277 61 759 541 10; 2 | #X obj 87 241 s_guitar myguit; 3 | #X obj 223 283 osc~; 4 | #X msg 365 289 drive \$1; 5 | #N canvas 0 0 450 300 (subpatch) 0; 6 | #X array \$0-scope 441 float 2; 7 | #X coords 0 1 441 -1 200 140 1; 8 | #X restore 485 289 graph; 9 | #X obj 318 425 tabwrite~ \$0-scope; 10 | #X obj 335 375 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 11 | 1; 12 | #X obj 223 251 mtof; 13 | #X floatatom 223 230 5 0 0 0 - - -; 14 | #X obj 185 407 soundoutput; 15 | #X obj 335 397 metro 100; 16 | #X obj 261 303 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 17 | 1; 18 | #X obj 223 302 *~ 0; 19 | #X floatatom 87 194 5 0 0 0 - - -; 20 | #X obj 342 209 hsl 128 15 0 1 0 0 empty empty wet____________dry 5 21 | 6 1 10 -262144 -1 -1 0 1; 22 | #X msg 339 237 dry \$1; 23 | #X obj 223 324 e_softclip mydist; 24 | #X text 109 15 e_softclip; 25 | #X text 159 44 Clips incoming signal with a tanh-based waveshaper. 26 | ; 27 | #X text 157 68 Args: NAME; 28 | #X text 158 86 Inlet0~: signal to clip; 29 | #X text 158 107 Inlet1: dry 0...1: dry/wet factor. 0 (default) is complete 30 | wet.; 31 | #X text 155 144 Inlet1: drive: additional amplification; 32 | #X obj 87 213 mtof; 33 | #X floatatom 365 265 5 0 0 0 - - -; 34 | #X obj 189 185 loadbang; 35 | #X msg 189 208 feedback 0.98; 36 | #X connect 0 0 15 0; 37 | #X connect 1 0 11 0; 38 | #X connect 2 0 15 1; 39 | #X connect 5 0 9 0; 40 | #X connect 6 0 1 0; 41 | #X connect 7 0 6 0; 42 | #X connect 9 0 4 0; 43 | #X connect 10 0 11 1; 44 | #X connect 11 0 15 0; 45 | #X connect 12 0 22 0; 46 | #X connect 13 0 14 0; 47 | #X connect 14 0 15 1; 48 | #X connect 15 0 4 0; 49 | #X connect 15 0 8 0; 50 | #X connect 15 0 8 1; 51 | #X connect 22 0 0 0; 52 | #X connect 23 0 2 0; 53 | #X connect 24 0 25 0; 54 | #X connect 25 0 0 1; 55 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_tremolo-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 22 629 347 10; 2 | #X obj 157 118 e_tremolo mtrem; 3 | #X obj 158 78 osc~ 440; 4 | #X obj 156 159 soundoutput; 5 | #X msg 268 74 freq 10; 6 | #X msg 277 95 dry 0.5; 7 | #X text 372 58 a simple tremolo effect; 8 | #X text 39 10 e_tremolo inlets: inlet 0: input signal inlet 9 | 1: message ; 10 | #X connect 0 0 2 0; 11 | #X connect 0 0 2 1; 12 | #X connect 1 0 0 0; 13 | #X connect 3 0 0 1; 14 | #X connect 4 0 0 1; 15 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/e_tremolo.pd: -------------------------------------------------------------------------------- 1 | #N canvas 584 77 708 543 10; 2 | #X obj 328 95 inlet; 3 | #X obj 386 39 loadbang; 4 | #X obj 327 143 u_dispatch \$0 dry; 5 | #X obj 387 92 u_loader e_tremolo-\$1 \$0; 6 | #X obj 327 122 u_dispatch \$0 freq; 7 | #X obj 135 177 +~ 1; 8 | #X obj 135 204 *~ 0.5; 9 | #X obj 112 236 *~; 10 | #X obj 116 69 inlet~; 11 | #X obj 135 153 osc~ 5; 12 | #X obj 112 301 outlet~; 13 | #X obj 188 126 r \$0-freq; 14 | #X obj 31 184 *~; 15 | #X obj 49 165 r 0$-dry; 16 | #X text 281 204 Simple tremolo TODO: add depth param; 17 | #X msg 386 64 freq 5 \, dry 0; 18 | #X connect 0 0 4 0; 19 | #X connect 1 0 15 0; 20 | #X connect 5 0 6 0; 21 | #X connect 6 0 7 1; 22 | #X connect 7 0 10 0; 23 | #X connect 8 0 7 0; 24 | #X connect 8 0 12 0; 25 | #X connect 9 0 5 0; 26 | #X connect 11 0 9 0; 27 | #X connect 12 0 10 0; 28 | #X connect 13 0 12 1; 29 | #X connect 15 0 4 0; 30 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/g.txt: -------------------------------------------------------------------------------- 1 | g_hradio - tagged horizontal radio button GUI 2 | g_hsl - tagged horizontal slider GUI 3 | g_hsl4 - four tagged horizontal sliders 4 | 1 5 | g_nbx - tagged number box GUI 6 | g_nhsl - tagged horizontal slider with number box 7 | g_tgl - tagged toggle GUI 8 | 9 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/g_hradio-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 268 152 760 481 10; 2 | #N canvas 0 0 450 300 show 0; 3 | #X obj 41 39 inlet; 4 | #X obj 186 36 inlet; 5 | #X obj 41 124 outlet; 6 | #X msg 186 76 set; 7 | #X obj 41 59 list prepend set; 8 | #X obj 41 83 list trim; 9 | #X connect 0 0 4 0; 10 | #X connect 1 0 3 0; 11 | #X connect 3 0 2 0; 12 | #X connect 4 0 5 0; 13 | #X connect 5 0 2 0; 14 | #X restore 123 314 pd show; 15 | #X msg 123 336 junk; 16 | #X floatatom 123 141 5 0 0 0 - - -; 17 | #X obj 123 241 g_hradio octave; 18 | #X text 280 243 "g_hradio octave"; 19 | #X text 281 275 "g_hradio three 3"; 20 | #X msg 123 182 octave \$1; 21 | #X obj 123 271 g_hradio three 3; 22 | #X floatatom 209 142 5 0 0 0 - - -; 23 | #X msg 209 183 three \$1; 24 | #X text 79 32 g_hradio - tagged horizontal radio button GUI; 25 | #X text 105 70 Sends messages tagged with the first argument.; 26 | #X floatatom 324 183 5 0 0 0 - - -; 27 | #X text 373 185 Non-matching messages are passed along.; 28 | #X msg 324 203 symbol junk; 29 | #X text 119 100 Arguments: ; 30 | #X connect 0 0 1 0; 31 | #X connect 2 0 6 0; 32 | #X connect 3 0 7 0; 33 | #X connect 6 0 3 0; 34 | #X connect 7 0 0 0; 35 | #X connect 8 0 9 0; 36 | #X connect 9 0 3 0; 37 | #X connect 12 0 3 0; 38 | #X connect 14 0 3 0; 39 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/g_hradio.pd: -------------------------------------------------------------------------------- 1 | #N canvas 371 286 578 491 10; 2 | #X obj 70 22 inlet; 3 | #X obj 102 107 route \$1; 4 | #X obj 102 86 list trim; 5 | #X msg 102 134 set \$1; 6 | #X obj 70 340 outlet; 7 | #X obj 102 282 list prepend \$1; 8 | #X obj 102 302 list trim; 9 | #X obj 102 205 hradio 15 1 0 8 \$0-out \$0-in \$1 20 8 1 10 -262144 10 | -258113 -1 1; 11 | #X obj 295 22 loadbang; 12 | #X obj 295 51 f \$2; 13 | #X msg 295 167 number \$1; 14 | #X obj 295 139 clip 1 8; 15 | #X obj 295 78 select 0; 16 | #X msg 295 101 8; 17 | #X obj 102 254 r \$0-out; 18 | #X obj 295 190 s \$0-in; 19 | #X obj 102 155 s \$0-in; 20 | #X connect 0 0 2 0; 21 | #X connect 0 0 4 0; 22 | #X connect 1 0 3 0; 23 | #X connect 2 0 1 0; 24 | #X connect 3 0 16 0; 25 | #X connect 5 0 6 0; 26 | #X connect 6 0 4 0; 27 | #X connect 8 0 9 0; 28 | #X connect 9 0 12 0; 29 | #X connect 10 0 15 0; 30 | #X connect 11 0 10 0; 31 | #X connect 12 0 13 0; 32 | #X connect 12 1 11 0; 33 | #X connect 13 0 11 0; 34 | #X connect 14 0 5 0; 35 | #X coords 0 -1 1 1 137 25 2 100 200; 36 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/g_hsl-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 268 152 635 456 10; 2 | #N canvas 0 0 450 300 show 0; 3 | #X obj 41 39 inlet; 4 | #X obj 186 36 inlet; 5 | #X obj 41 124 outlet; 6 | #X msg 186 76 set; 7 | #X obj 41 59 list prepend set; 8 | #X obj 41 83 list trim; 9 | #X connect 0 0 4 0; 10 | #X connect 1 0 3 0; 11 | #X connect 3 0 2 0; 12 | #X connect 4 0 5 0; 13 | #X connect 5 0 2 0; 14 | #X restore 113 344 pd show; 15 | #X msg 113 366 abc 4; 16 | #X floatatom 113 176 5 0 0 0 - - -; 17 | #X msg 113 217 hsl \$1; 18 | #X obj 113 269 g_hsl gain 0 1; 19 | #X floatatom 181 176 5 0 0 0 - - -; 20 | #X msg 181 217 gain \$1; 21 | #X obj 181 195 / 100; 22 | #X floatatom 251 176 5 0 0 0 - - -; 23 | #X msg 251 217 abc \$1; 24 | #X text 266 250 "g_hsl hsl 0 127"; 25 | #X text 266 269 "g_hsl gain 0 1"; 26 | #X obj 113 239 g_hsl hsl 0 127; 27 | #X text 105 70 Sends messages tagged with the first argument.; 28 | #X text 79 32 g_hsl - tagged horizontal slider GUI; 29 | #X text 119 100 Arguments: ; 30 | #X connect 0 0 1 0; 31 | #X connect 2 0 3 0; 32 | #X connect 3 0 12 0; 33 | #X connect 4 0 0 0; 34 | #X connect 5 0 7 0; 35 | #X connect 6 0 12 0; 36 | #X connect 7 0 6 0; 37 | #X connect 8 0 9 0; 38 | #X connect 9 0 12 0; 39 | #X connect 12 0 4 0; 40 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/g_hsl.pd: -------------------------------------------------------------------------------- 1 | #N canvas 371 286 578 491 10; 2 | #X obj 105 205 hsl 128 15 0 1 0 0 \$0-out \$0-in \$1_\$2-\$3 20 8 1 3 | 10 -262144 -86277 -1 3300 1; 4 | #X obj 102 254 m_scale 0 1 \$2 \$3; 5 | #X obj 102 131 m_scale \$2 \$3 0 1; 6 | #X obj 70 22 inlet; 7 | #X obj 102 107 route \$1; 8 | #X obj 102 86 list trim; 9 | #X msg 102 154 set \$1; 10 | #X obj 70 340 outlet; 11 | #X obj 102 282 list prepend \$1; 12 | #X obj 102 302 list trim; 13 | #X obj 102 178 s \$0-in; 14 | #X obj 102 233 r \$0-out; 15 | #X connect 1 0 8 0; 16 | #X connect 2 0 6 0; 17 | #X connect 3 0 5 0; 18 | #X connect 3 0 7 0; 19 | #X connect 4 0 2 0; 20 | #X connect 5 0 4 0; 21 | #X connect 6 0 10 0; 22 | #X connect 8 0 9 0; 23 | #X connect 9 0 7 0; 24 | #X connect 11 0 1 0; 25 | #X coords 0 -1 1 1 137 25 2 100 200; 26 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/g_hsl4-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 371 284 617 572 10; 2 | #X obj 111 252 g_hsl4 slider 0 127; 3 | #X text 260 273 "g_hsl4 slider 0 127"; 4 | #X obj 111 200 list prepend slider; 5 | #X obj 111 223 list trim; 6 | #X floatatom 111 153 5 0 0 0 - - -; 7 | #X floatatom 159 153 5 0 0 0 - - -; 8 | #X floatatom 207 152 5 0 0 0 - - -; 9 | #X floatatom 255 152 5 0 0 0 - - -; 10 | #N canvas 0 0 450 300 pak4 0; 11 | #X obj 143 51 inlet; 12 | #X obj 91 51 inlet; 13 | #X obj 141 72 t b f; 14 | #X obj 191 51 inlet; 15 | #X obj 189 72 t b f; 16 | #X obj 238 50 inlet; 17 | #X obj 236 71 t b f; 18 | #X obj 148 222 outlet; 19 | #X obj 148 179 pack 0 0 0 0; 20 | #X connect 0 0 2 0; 21 | #X connect 1 0 8 0; 22 | #X connect 2 0 8 0; 23 | #X connect 2 1 8 1; 24 | #X connect 3 0 4 0; 25 | #X connect 4 0 8 0; 26 | #X connect 4 1 8 2; 27 | #X connect 5 0 6 0; 28 | #X connect 6 0 8 0; 29 | #X connect 6 1 8 3; 30 | #X connect 8 0 7 0; 31 | #X restore 111 177 pd pak4 -------------; 32 | #N canvas 0 0 450 300 show 0; 33 | #X obj 168 156 list prepend set; 34 | #X obj 168 185 list trim; 35 | #X obj 168 215 outlet; 36 | #X obj 168 124 inlet; 37 | #X connect 0 0 1 0; 38 | #X connect 1 0 2 0; 39 | #X connect 3 0 0 0; 40 | #X restore 111 347 pd show; 41 | #X text 106 91 Arguments: ; 42 | #X text 106 53 Sends and shows 4-element lists tagged with the first 43 | argument.; 44 | #X text 65 24 g_hsl4 - four tagged horizontal sliders; 45 | #X obj 272 341 g_hsl4 xxx 0 1; 46 | #X text 424 371 "g_hsl4 xxx 0 1"; 47 | #N canvas 0 0 450 300 show 0; 48 | #X obj 168 156 list prepend set; 49 | #X obj 168 185 list trim; 50 | #X obj 168 215 outlet; 51 | #X obj 168 124 inlet; 52 | #X connect 0 0 1 0; 53 | #X connect 1 0 2 0; 54 | #X connect 3 0 0 0; 55 | #X restore 272 427 pd show; 56 | #X msg 272 455; 57 | #X msg 111 375; 58 | #X text 107 115 All sliders have the same range.; 59 | #X connect 0 0 9 0; 60 | #X connect 0 0 13 0; 61 | #X connect 2 0 3 0; 62 | #X connect 3 0 0 0; 63 | #X connect 4 0 8 0; 64 | #X connect 5 0 8 1; 65 | #X connect 6 0 8 2; 66 | #X connect 7 0 8 3; 67 | #X connect 8 0 2 0; 68 | #X connect 9 0 17 0; 69 | #X connect 13 0 15 0; 70 | #X connect 15 0 16 0; 71 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/g_nbx-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 268 152 643 448 10; 2 | #X text 117 232 "g_nbx A"; 3 | #X obj 189 256 g_nbx D; 4 | #X obj 189 286 g_nbx S; 5 | #X obj 189 316 g_nbx R; 6 | #X obj 189 226 g_nbx A; 7 | #X text 117 266 "g_nbx D"; 8 | #N canvas 0 0 450 300 show 0; 9 | #X obj 41 39 inlet; 10 | #X obj 186 36 inlet; 11 | #X obj 41 124 outlet; 12 | #X msg 186 76 set; 13 | #X obj 41 59 list prepend set; 14 | #X obj 41 83 list trim; 15 | #X connect 0 0 4 0; 16 | #X connect 1 0 3 0; 17 | #X connect 3 0 2 0; 18 | #X connect 4 0 5 0; 19 | #X connect 5 0 2 0; 20 | #X restore 189 346 pd show; 21 | #X text 105 70 Sends messages tagged with the first argument.; 22 | #X text 79 32 g_nbx - tagged number box GUI; 23 | #X text 119 100 Arguments: ; 24 | #X msg 189 164 S \$1; 25 | #X floatatom 189 145 5 0 0 0 - - -; 26 | #X msg 245 164 unused \$1; 27 | #X floatatom 245 145 5 0 0 0 - - -; 28 | #X msg 189 368; 29 | #X text 115 324 "g_nbx R"; 30 | #X text 116 295 "g_nbx S"; 31 | #X connect 1 0 2 0; 32 | #X connect 2 0 3 0; 33 | #X connect 3 0 6 0; 34 | #X connect 4 0 1 0; 35 | #X connect 6 0 14 0; 36 | #X connect 10 0 4 0; 37 | #X connect 11 0 10 0; 38 | #X connect 12 0 4 0; 39 | #X connect 13 0 12 0; 40 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/g_nbx.pd: -------------------------------------------------------------------------------- 1 | #N canvas 371 286 578 491 10; 2 | #X obj 70 22 inlet; 3 | #X obj 102 107 route \$1; 4 | #X obj 102 86 list trim; 5 | #X msg 102 134 set \$1; 6 | #X obj 70 340 outlet; 7 | #X obj 102 282 list prepend \$1; 8 | #X obj 102 302 list trim; 9 | #X obj 102 207 nbx 3 14 -1e+37 1e+37 0 0 \$0-out \$0-in \$1 35 8 1 10 | 10 -262144 -86277 -1 1 256; 11 | #X obj 102 155 s \$0-in; 12 | #X obj 102 259 r \$0-out; 13 | #X connect 0 0 2 0; 14 | #X connect 0 0 4 0; 15 | #X connect 1 0 3 0; 16 | #X connect 2 0 1 0; 17 | #X connect 3 0 8 0; 18 | #X connect 5 0 6 0; 19 | #X connect 6 0 4 0; 20 | #X connect 9 0 5 0; 21 | #X coords 0 -1 1 1 67 25 2 100 200; 22 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/g_nhsl-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 0 618 498 10; 2 | #N canvas 0 0 450 300 show 0; 3 | #X obj 41 39 inlet; 4 | #X obj 186 36 inlet; 5 | #X obj 41 124 outlet; 6 | #X msg 186 76 set; 7 | #X obj 41 59 list prepend set; 8 | #X obj 41 83 list trim; 9 | #X connect 0 0 4 0; 10 | #X connect 1 0 3 0; 11 | #X connect 3 0 2 0; 12 | #X connect 4 0 5 0; 13 | #X connect 5 0 2 0; 14 | #X restore 113 344 pd show; 15 | #X floatatom 113 176 5 0 0 0 - - -; 16 | #X msg 113 217 nhsl \$1; 17 | #X obj 113 269 g_nhsl gain 0 1; 18 | #X floatatom 181 176 5 0 0 0 - - -; 19 | #X msg 181 217 gain \$1; 20 | #X obj 181 195 / 100; 21 | #X floatatom 251 176 5 0 0 0 - - -; 22 | #X msg 251 217 abc \$1; 23 | #X text 266 250 "g_nhsl nhsl 0 127"; 24 | #X text 266 269 "g_nhsl gain 0 1"; 25 | #X obj 113 239 g_nhsl nhsl 0 127; 26 | #X text 105 70 Sends messages tagged with the first argument.; 27 | #X text 119 100 Arguments: ; 28 | #X text 79 32 g_nhsl - tagged horizontal slider GUI with number box 29 | ; 30 | #X msg 113 366; 31 | #X connect 0 0 15 0; 32 | #X connect 1 0 2 0; 33 | #X connect 2 0 11 0; 34 | #X connect 3 0 0 0; 35 | #X connect 4 0 6 0; 36 | #X connect 5 0 11 0; 37 | #X connect 6 0 5 0; 38 | #X connect 7 0 8 0; 39 | #X connect 8 0 11 0; 40 | #X connect 11 0 3 0; 41 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/g_nhsl.pd: -------------------------------------------------------------------------------- 1 | #N canvas 371 286 578 491 10; 2 | #X obj 105 205 hsl 80 15 0 1 0 0 \$0-out \$0-in \$1_\$2-\$3 10 8 1 3 | 10 -262144 -86277 -1 0 1; 4 | #X obj 102 254 m_scale 0 1 \$2 \$3; 5 | #X obj 102 131 m_scale \$2 \$3 0 1; 6 | #X obj 70 22 inlet; 7 | #X obj 102 107 route \$1; 8 | #X obj 102 86 list trim; 9 | #X msg 102 154 set \$1; 10 | #X obj 70 360 outlet; 11 | #X obj 102 302 list prepend \$1; 12 | #X obj 102 322 list trim; 13 | #X obj 102 178 s \$0-in; 14 | #X obj 102 233 r \$0-out; 15 | #X msg 291 175 set \$1; 16 | #X msg 292 274 set \$1; 17 | #X obj 189 205 nbx 4 14 -1e+37 1e+37 0 0 \$0-out-num \$0-in empty 0 18 | -8 0 10 -262144 -86277 -1 0 256; 19 | #X obj 292 252 m_scale 0 1 \$2 \$3; 20 | #X obj 291 156 m_scale \$2 \$3 0 1; 21 | #X obj 115 278 r \$0-out-num; 22 | #X connect 0 0 15 0; 23 | #X connect 1 0 8 0; 24 | #X connect 2 0 6 0; 25 | #X connect 3 0 5 0; 26 | #X connect 3 0 7 0; 27 | #X connect 4 0 2 0; 28 | #X connect 5 0 4 0; 29 | #X connect 6 0 10 0; 30 | #X connect 8 0 9 0; 31 | #X connect 9 0 7 0; 32 | #X connect 11 0 1 0; 33 | #X connect 12 0 0 0; 34 | #X connect 13 0 14 0; 35 | #X connect 14 0 16 0; 36 | #X connect 15 0 13 0; 37 | #X connect 16 0 12 0; 38 | #X connect 17 0 8 0; 39 | #X coords 0 -1 1 1 137 25 2 100 200; 40 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/g_showimage-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 268 205 724 399 10; 2 | #X obj 128 230 g_showimage some.jpg 200 100; 3 | #X obj 128 185 tgl 15 0 empty empty show/hide 17 7 1 10 -262144 -1 4 | -1 0 1; 5 | #X msg 321 116 pos \$1 \$2; 6 | #X floatatom 321 70 5 0 0 0 - - -; 7 | #X floatatom 367 69 5 0 0 0 - - -; 8 | #N canvas 0 0 450 300 pack 0; 9 | #X obj 110 108 inlet; 10 | #X obj 153 107 inlet; 11 | #X obj 153 133 t b a; 12 | #X obj 110 168 pack 0 0; 13 | #X obj 110 194 outlet; 14 | #X connect 0 0 3 0; 15 | #X connect 1 0 2 0; 16 | #X connect 2 0 3 0; 17 | #X connect 2 1 3 1; 18 | #X connect 3 0 4 0; 19 | #X restore 321 92 pd pack; 20 | #X text 403 116 set default position; 21 | #X floatatom 337 140 5 0 0 0 - - -; 22 | #X floatatom 383 139 5 0 0 0 - - -; 23 | #N canvas 0 0 450 300 pack 0; 24 | #X obj 110 108 inlet; 25 | #X obj 153 107 inlet; 26 | #X obj 153 133 t b a; 27 | #X obj 110 168 pack 0 0; 28 | #X obj 110 194 outlet; 29 | #X connect 0 0 3 0; 30 | #X connect 1 0 2 0; 31 | #X connect 2 0 3 0; 32 | #X connect 2 1 3 1; 33 | #X connect 3 0 4 0; 34 | #X restore 337 162 pd pack; 35 | #X msg 337 186 move \$1 \$2; 36 | #X text 419 186 set default position and show; 37 | #X obj 342 229 g_tgl show; 38 | #X msg 425 235 show \$1; 39 | #X text 490 236 show and hide (like 1st inlet; 40 | #X text 53 31 g_showimage - show an image on the touchscreen; 41 | #X connect 1 0 0 0; 42 | #X connect 2 0 0 1; 43 | #X connect 3 0 5 0; 44 | #X connect 4 0 5 1; 45 | #X connect 5 0 2 0; 46 | #X connect 7 0 9 0; 47 | #X connect 8 0 9 1; 48 | #X connect 9 0 10 0; 49 | #X connect 10 0 0 1; 50 | #X connect 12 0 0 1; 51 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/g_showimage.pd: -------------------------------------------------------------------------------- 1 | #N canvas 235 103 646 378 10; 2 | #X obj 72 295 rj_image \$1; 3 | #X msg 72 204 move 500 500; 4 | #X obj 72 45 inlet; 5 | #X obj 72 169 select 0 1; 6 | #X obj 189 202 list append \$2 \$3; 7 | #X msg 189 231 move \$1 \$2; 8 | #X obj 398 60 inlet; 9 | #X obj 398 90 u_dispatch \$0 pos; 10 | #X obj 305 173 r \$0-pos; 11 | #X obj 398 115 u_dispatch \$0 show; 12 | #X obj 119 43 r \$0-show; 13 | #X obj 119 114 f; 14 | #X obj 135 68 loadbang; 15 | #X msg 135 91 0; 16 | #X obj 398 135 u_dispatch \$0 move; 17 | #X obj 189 149 r \$0-move; 18 | #X obj 189 172 t b a; 19 | #X obj 442 60 u_dispatch g_showimage-\$1; 20 | #X connect 1 0 0 0; 21 | #X connect 2 0 3 0; 22 | #X connect 3 0 1 0; 23 | #X connect 3 1 4 0; 24 | #X connect 4 0 5 0; 25 | #X connect 5 0 0 0; 26 | #X connect 6 0 7 0; 27 | #X connect 7 0 9 0; 28 | #X connect 8 0 4 1; 29 | #X connect 9 0 14 0; 30 | #X connect 10 0 11 0; 31 | #X connect 11 0 3 0; 32 | #X connect 12 0 13 0; 33 | #X connect 13 0 11 0; 34 | #X connect 15 0 16 0; 35 | #X connect 16 0 4 0; 36 | #X connect 16 1 4 1; 37 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/g_showtext-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 268 205 730 452 10; 2 | #X obj 135 335 tgl 15 0 empty empty show/hide 17 7 1 10 -262144 -1 3 | -1 0 1; 4 | #X msg 321 136 pos \$1 \$2; 5 | #X floatatom 321 90 5 0 0 0 - - -; 6 | #X floatatom 367 89 5 0 0 0 - - -; 7 | #N canvas 0 0 450 300 pack 0; 8 | #X obj 110 108 inlet; 9 | #X obj 153 107 inlet; 10 | #X obj 153 133 t b a; 11 | #X obj 110 168 pack 0 0; 12 | #X obj 110 194 outlet; 13 | #X connect 0 0 3 0; 14 | #X connect 1 0 2 0; 15 | #X connect 2 0 3 0; 16 | #X connect 2 1 3 1; 17 | #X connect 3 0 4 0; 18 | #X restore 321 112 pd pack; 19 | #X text 403 136 set default position; 20 | #X floatatom 337 160 5 0 0 0 - - -; 21 | #X floatatom 383 159 5 0 0 0 - - -; 22 | #N canvas 0 0 450 300 pack 0; 23 | #X obj 110 108 inlet; 24 | #X obj 153 107 inlet; 25 | #X obj 153 133 t b a; 26 | #X obj 110 168 pack 0 0; 27 | #X obj 110 194 outlet; 28 | #X connect 0 0 3 0; 29 | #X connect 1 0 2 0; 30 | #X connect 2 0 3 0; 31 | #X connect 2 1 3 1; 32 | #X connect 3 0 4 0; 33 | #X restore 337 182 pd pack; 34 | #X msg 337 206 move \$1 \$2; 35 | #X text 419 206 set default position and show; 36 | #X obj 342 249 g_tgl show; 37 | #X msg 425 255 show \$1; 38 | #X text 490 256 show and hide (like 1st inlet; 39 | #X text 42 19 g_showtext - show a list as text on the touchscreen; 40 | #X obj 135 379 g_showtext sometext 200 100; 41 | #X msg 352 356 text any list will be converted to 1 symbol; 42 | #X msg 344 333 text \$1; 43 | #X symbolatom 344 316 10 0 0 0 - - -; 44 | #X obj 342 283 g_nbx size; 45 | #X text 425 286 text size; 46 | #X text 73 47 convenience wrapper around [rj_image]; 47 | #X connect 0 0 15 0; 48 | #X connect 1 0 15 1; 49 | #X connect 2 0 4 0; 50 | #X connect 3 0 4 1; 51 | #X connect 4 0 1 0; 52 | #X connect 6 0 8 0; 53 | #X connect 7 0 8 1; 54 | #X connect 8 0 9 0; 55 | #X connect 9 0 15 1; 56 | #X connect 11 0 19 0; 57 | #X connect 16 0 15 1; 58 | #X connect 17 0 15 1; 59 | #X connect 18 0 17 0; 60 | #X connect 19 0 15 1; 61 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/g_tgl-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 268 152 760 481 10; 2 | #N canvas 0 0 450 300 show 0; 3 | #X obj 41 39 inlet; 4 | #X obj 186 36 inlet; 5 | #X obj 41 124 outlet; 6 | #X msg 186 76 set; 7 | #X obj 41 59 list prepend set; 8 | #X obj 41 83 list trim; 9 | #X connect 0 0 4 0; 10 | #X connect 1 0 3 0; 11 | #X connect 3 0 2 0; 12 | #X connect 4 0 5 0; 13 | #X connect 5 0 2 0; 14 | #X restore 153 328 pd show; 15 | #X obj 153 206 g_tgl sine; 16 | #X text 236 211 "g_tgl sine"; 17 | #X text 241 241 "g_tgl saw"; 18 | #X text 242 269 "g_tgl square"; 19 | #X obj 153 236 g_tgl saw; 20 | #X obj 153 265 g_tgl square; 21 | #X obj 153 295 g_tgl tri; 22 | #X text 246 299 "g_tgl tri"; 23 | #X text 105 70 Sends messages tagged with the first argument.; 24 | #X text 119 100 Arguments: ; 25 | #X obj 153 134 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 26 | 1; 27 | #X msg 153 153 square \$1; 28 | #X text 79 32 g_tgl - tagged toggle GUI; 29 | #X msg 247 153 passthrough; 30 | #X msg 153 350; 31 | #X connect 0 0 15 0; 32 | #X connect 1 0 5 0; 33 | #X connect 5 0 6 0; 34 | #X connect 6 0 7 0; 35 | #X connect 7 0 0 0; 36 | #X connect 11 0 12 0; 37 | #X connect 12 0 1 0; 38 | #X connect 14 0 1 0; 39 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/g_tgl.pd: -------------------------------------------------------------------------------- 1 | #N canvas 371 286 578 491 10; 2 | #X obj 70 22 inlet; 3 | #X obj 102 107 route \$1; 4 | #X obj 102 86 list trim; 5 | #X msg 102 134 set \$1; 6 | #X obj 70 340 outlet; 7 | #X obj 102 282 list prepend \$1; 8 | #X obj 102 302 list trim; 9 | #X obj 102 205 tgl 15 0 \$0-out \$0-in \$1 17 7 1 10 -262144 -86277 10 | -1 1 1; 11 | #X obj 102 159 s \$0-in; 12 | #X obj 102 258 r \$0-out; 13 | #X connect 0 0 2 0; 14 | #X connect 0 0 4 0; 15 | #X connect 1 0 3 0; 16 | #X connect 2 0 1 0; 17 | #X connect 3 0 8 0; 18 | #X connect 5 0 6 0; 19 | #X connect 6 0 4 0; 20 | #X connect 9 0 5 0; 21 | #X coords 0 -1 1 1 67 25 2 100 200; 22 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/m.txt: -------------------------------------------------------------------------------- 1 | m_autoscale - scale numbers with a dynamically detected input range 2 | m_bpm2ms - convert between BPM frequency and periods in milliseconds 3 | m_keyfollow - apply keyboard following to filter frequencies 4 | m_majorscale - map numbers to a major scale 5 | m_scale - scale ranges 6 | m_speedlimit - impose upper limit on message speed 7 | m_touch2grid - map x y coordinates to a lower resolution grid 8 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/m_autoscale-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 285 96 919 623 10; 2 | #X floatatom 137 398 5 0 0 0 - - -; 3 | #X msg 268 437 dump; 4 | #X floatatom 137 537 5 0 0 0 - - -; 5 | #X obj 140 569 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 6 | -1 -1 3077 1; 7 | #X obj 211 491 unpack 0 0; 8 | #X floatatom 211 517 5 0 0 0 - - -; 9 | #X floatatom 278 517 5 0 0 0 - - -; 10 | #X text 291 489 input range; 11 | #X msg 264 276 reset; 12 | #X text 33 13 m_autoscale:; 13 | #X text 82 108 Arguments:; 14 | #X text 110 123 15 | ; 16 | #X text 79 161 Inlets:; 17 | #X obj 411 343 m_scale; 18 | #X text 115 180 1) number to scale; 19 | #X obj 211 251 tgl 15 0 empty empty autoscaling 17 7 1 10 -262144 -1 20 | -1 0 1; 21 | #X text 115 202 2) various messages \, see below:; 22 | #X text 298 249 switch input range detection on/off; 23 | #X text 322 276 reset input range to tiny rsp. huge; 24 | #X text 366 302 set output range; 25 | #X text 373 324 set output range and mapping.; 26 | #X text 316 439 dump current input range to 2nd outlet; 27 | #X obj 137 458 m_autoscale; 28 | #X msg 267 384 input 0 100; 29 | #X text 364 385 set input range; 30 | #X msg 268 408 input 0 100 \, 0; 31 | #X text 382 408 set input range and switch off autoscaling in one message. 32 | ; 33 | #X msg 266 323 output 0 127 4; 34 | #X msg 266 302 output 0 100; 35 | #X text 81 47 Scale a range of numbers to another range. The input 36 | range is dynamically chosen from the minimum and maximum input values. 37 | ; 38 | #X text 372 343 See; 39 | #X text 481 345 for possible mappings.; 40 | #X connect 0 0 22 0; 41 | #X connect 1 0 22 1; 42 | #X connect 2 0 3 0; 43 | #X connect 4 0 5 0; 44 | #X connect 4 1 6 0; 45 | #X connect 8 0 22 1; 46 | #X connect 15 0 22 1; 47 | #X connect 22 0 2 0; 48 | #X connect 22 1 4 0; 49 | #X connect 23 0 22 1; 50 | #X connect 25 0 22 1; 51 | #X connect 27 0 22 1; 52 | #X connect 28 0 22 1; 53 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/m_bpm2ms-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 233 267 744 433 10; 2 | #X obj 132 161 m_bpm2ms; 3 | #X floatatom 132 137 5 0 0 1 BPM - -; 4 | #X floatatom 132 191 5 0 0 1 Period_in_milliseconds - -; 5 | #X msg 132 111 120; 6 | #X obj 132 246 t a a; 7 | #X obj 132 296 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 8 | -1 -1; 9 | #X obj 132 273 metro; 10 | #X msg 83 246 stop; 11 | #X obj 42 36 m_bpm2ms; 12 | #X obj 446 198 m_bpm2ms; 13 | #X floatatom 446 178 5 0 0 1 Period_in_milliseconds - -; 14 | #X floatatom 446 220 5 0 0 1 BPM - -; 15 | #X text 117 32 convert between a frequeny specified as BPM (beats per 16 | minute) to a period in milliseconds (and back).; 17 | #X text 440 149 Works both ways:; 18 | #X connect 0 0 2 0; 19 | #X connect 0 0 10 0; 20 | #X connect 1 0 0 0; 21 | #X connect 2 0 4 0; 22 | #X connect 3 0 1 0; 23 | #X connect 4 0 6 0; 24 | #X connect 4 1 6 1; 25 | #X connect 6 0 5 0; 26 | #X connect 7 0 6 0; 27 | #X connect 9 0 11 0; 28 | #X connect 10 0 9 0; 29 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/m_bpm2ms.pd: -------------------------------------------------------------------------------- 1 | #N canvas 403 503 450 300 10; 2 | #X obj 93 50 inlet; 3 | #X obj 93 102 swap 60000; 4 | #X obj 93 131 /; 5 | #X obj 93 182 outlet; 6 | #X connect 0 0 1 0; 7 | #X connect 1 0 2 0; 8 | #X connect 1 1 2 1; 9 | #X connect 2 0 3 0; 10 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/m_keyfollow.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 0 832 610 10; 2 | #X obj 152 385 * 1; 3 | #X obj 372 121 / 100; 4 | #X obj 287 249 t b a; 5 | #X obj 372 167 t b a; 6 | #X obj 152 85 inlet; 7 | #X obj 372 83 inlet; 8 | #X obj 287 81 inlet; 9 | #X text 283 56 key freq; 10 | #X text 150 53 filter freq; 11 | #X obj 152 417 outlet; 12 | #X text 368 58 key following percent; 13 | #X obj 386 321 pow; 14 | #X obj 386 297 / 261; 15 | #X msg 319 317 1; 16 | #X obj 319 272 moses 0.01; 17 | #X text 433 298 midi C; 18 | #X obj 287 212 f; 19 | #X connect 0 0 9 0; 20 | #X connect 1 0 3 0; 21 | #X connect 2 0 0 0; 22 | #X connect 2 1 14 0; 23 | #X connect 3 0 16 0; 24 | #X connect 3 1 11 1; 25 | #X connect 4 0 0 0; 26 | #X connect 5 0 1 0; 27 | #X connect 6 0 16 0; 28 | #X connect 11 0 0 1; 29 | #X connect 12 0 11 0; 30 | #X connect 13 0 0 1; 31 | #X connect 14 0 13 0; 32 | #X connect 14 1 12 0; 33 | #X connect 16 0 2 0; 34 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/m_majorscale.pd: -------------------------------------------------------------------------------- 1 | #N canvas 467 358 603 399 10; 2 | #X obj 45 81 t a a; 3 | #X obj 110 146 * 12; 4 | #X obj 45 237 +; 5 | #X obj 45 304 outlet; 6 | #X obj 45 41 inlet; 7 | #X obj 289 191 loadbang; 8 | #X obj 293 45 inlet; 9 | #X obj 45 260 + \$1; 10 | #X text 293 24 base note; 11 | #X text 41 18 major step; 12 | #X obj 289 237 s \$0-major; 13 | #X obj 45 175 tabread \$0-major; 14 | #X floatatom 57 146 5 0 0 0 - - -; 15 | #X msg 289 214 0 0 2 4 5 7 9 11; 16 | #X obj 289 261 table \$0-major 7; 17 | #X obj 45 120 mod 7; 18 | #X obj 110 120 div 7; 19 | #X connect 0 0 15 0; 20 | #X connect 0 1 16 0; 21 | #X connect 1 0 2 1; 22 | #X connect 2 0 7 0; 23 | #X connect 4 0 0 0; 24 | #X connect 5 0 13 0; 25 | #X connect 6 0 7 1; 26 | #X connect 7 0 3 0; 27 | #X connect 11 0 2 0; 28 | #X connect 13 0 10 0; 29 | #X connect 15 0 11 0; 30 | #X connect 15 0 12 0; 31 | #X connect 16 0 1 0; 32 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/m_speedlimit-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 357 235 570 396 10; 2 | #X obj 128 264 t b b; 3 | #X obj 128 298 timer; 4 | #X floatatom 128 325 5 0 0 0 - - -; 5 | #X obj 128 130 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 6 | 1; 7 | #X floatatom 188 130 5 0 0 0 - - -; 8 | #X obj 128 354 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 9 | -1 -1; 10 | #X floatatom 237 167 5 0 0 1 limit(ms) - -; 11 | #X obj 128 192 m_speedlimit 150; 12 | #X text 37 9 m_speedlimit; 13 | #X text 73 95 Works for any data that can be stored in [list].; 14 | #X obj 128 155 metro 100; 15 | #X text 73 34 Impose a limit on the speed of messages.; 16 | #X text 73 58 Fast changing values are mapped to slower changing values 17 | by dropping everything for the limit duration.; 18 | #X connect 0 0 1 0; 19 | #X connect 0 1 1 1; 20 | #X connect 1 0 2 0; 21 | #X connect 2 0 5 0; 22 | #X connect 3 0 10 0; 23 | #X connect 4 0 10 1; 24 | #X connect 6 0 7 1; 25 | #X connect 7 0 0 0; 26 | #X connect 10 0 7 0; 27 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/m_speedlimit.pd: -------------------------------------------------------------------------------- 1 | #N canvas 384 34 782 432 10; 2 | #X obj 245 86 inlet; 3 | #X obj 115 249 metro 100; 4 | #X obj 115 69 inlet; 5 | #N canvas 0 0 720 312 activity-monitor 0; 6 | #X obj 108 74 inlet; 7 | #X obj 108 103 b; 8 | #X obj 108 160 delay 100; 9 | #X obj 168 73 inlet; 10 | #X obj 108 198 outlet; 11 | #X text 198 132 if no activity for X msec \, then bang outlet; 12 | #X connect 0 0 1 0; 13 | #X connect 1 0 2 0; 14 | #X connect 2 0 4 0; 15 | #X connect 3 0 2 1; 16 | #X restore 161 192 pd activity-monitor; 17 | #X msg 161 218 0; 18 | #X msg 115 218 1; 19 | #X obj 115 288 list append; 20 | #X text 291 87 speed limit (ms); 21 | #X obj 115 315 outlet; 22 | #X obj 115 126 spigot 1; 23 | #X obj 183 126 == 0; 24 | #X obj 115 93 t a b a; 25 | #X text 359 220 1) store data; 26 | #X text 339 190 If data comes in:; 27 | #X text 360 240 2) start activity monitor; 28 | #X obj 420 55 loadbang; 29 | #X obj 420 80 f \$1; 30 | #X obj 420 108 select 0; 31 | #X msg 420 130 100; 32 | #X obj 245 160 f; 33 | #X text 359 282 4) block system; 34 | #X text 341 315 While blocked \, incoming data is sampled at metro 35 | rate as long as there's activity.; 36 | #X text 340 361 If there's no activity for a metro period \, stop the 37 | metro and unblock the system to accept new data.; 38 | #X text 359 261 3) start metro and output data; 39 | #X connect 0 0 19 0; 40 | #X connect 1 0 6 0; 41 | #X connect 2 0 11 0; 42 | #X connect 3 0 4 0; 43 | #X connect 4 0 1 0; 44 | #X connect 4 0 10 0; 45 | #X connect 5 0 1 0; 46 | #X connect 5 0 10 0; 47 | #X connect 6 0 8 0; 48 | #X connect 9 0 5 0; 49 | #X connect 10 0 9 1; 50 | #X connect 11 0 9 0; 51 | #X connect 11 1 3 0; 52 | #X connect 11 2 6 1; 53 | #X connect 15 0 16 0; 54 | #X connect 16 0 17 0; 55 | #X connect 17 0 18 0; 56 | #X connect 17 1 19 0; 57 | #X connect 18 0 19 0; 58 | #X connect 19 0 3 1; 59 | #X connect 19 0 1 1; 60 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/m_touch2grid.pd: -------------------------------------------------------------------------------- 1 | #N canvas 291 28 895 506 10; 2 | #X obj 102 107 inlet; 3 | #X obj 102 458 outlet; 4 | #X obj 257 109 inlet; 5 | #X obj 239 460 outlet; 6 | #X obj 427 105 inlet; 7 | #X obj 480 104 u_loader m_touch2grid-\$1 \$0; 8 | #X obj 427 166 u_dispatch \$0 xdiv; 9 | #X obj 427 187 u_dispatch \$0 ydiv; 10 | #X obj 702 158 loadbang; 11 | #X obj 150 180 r \$0-xdiv; 12 | #X obj 305 182 r \$0-ydiv; 13 | #X msg 702 224 xdiv \$1 \, ydiv \$2; 14 | #X obj 447 136 r \$0-init; 15 | #X obj 702 245 s \$0-init; 16 | #X obj 305 219 f \$3; 17 | #X obj 702 195 pack \$2 \$3; 18 | #X obj 427 206 u_dispatch \$0 div; 19 | #X obj 631 157 r \$0-div; 20 | #X obj 257 319 int; 21 | #X obj 102 321 int; 22 | #X obj 305 266 / 320; 23 | #X obj 257 294 *; 24 | #X obj 150 266 / 320; 25 | #X obj 102 294 *; 26 | #X obj 150 219 f \$2; 27 | #X obj 327 437 +; 28 | #X obj 345 389 *; 29 | #X obj 327 460 outlet; 30 | #X obj 257 340 t a a; 31 | #X obj 427 227 u_dispatch \$0 xmax; 32 | #X obj 427 248 u_dispatch \$0 ymax; 33 | #X obj 343 240 t b a; 34 | #X obj 343 218 r \$0-ymax; 35 | #X obj 187 239 t b a; 36 | #X obj 187 218 r \$0-xmax; 37 | #X text 536 390 0 1 2 3; 38 | #X text 535 408 4 5 6 7; 39 | #X text 535 427 8 9 10 11; 40 | #X text 620 406 for a 4x3 grid; 41 | #X text 383 460 index (0=upper left \, xdiv*ydiv-1 = lower right); 42 | #X obj 102 346 t a b a; 43 | #X obj 239 435 f; 44 | #X connect 0 0 23 0; 45 | #X connect 2 0 21 0; 46 | #X connect 4 0 6 0; 47 | #X connect 6 0 7 0; 48 | #X connect 7 0 16 0; 49 | #X connect 8 0 15 0; 50 | #X connect 9 0 24 0; 51 | #X connect 10 0 14 0; 52 | #X connect 11 0 13 0; 53 | #X connect 12 0 6 0; 54 | #X connect 14 0 20 0; 55 | #X connect 15 0 11 0; 56 | #X connect 16 0 29 0; 57 | #X connect 17 0 11 0; 58 | #X connect 18 0 28 0; 59 | #X connect 19 0 40 0; 60 | #X connect 20 0 21 1; 61 | #X connect 21 0 18 0; 62 | #X connect 22 0 23 1; 63 | #X connect 23 0 19 0; 64 | #X connect 24 0 22 0; 65 | #X connect 24 0 26 1; 66 | #X connect 25 0 27 0; 67 | #X connect 26 0 25 1; 68 | #X connect 28 0 41 1; 69 | #X connect 28 1 26 0; 70 | #X connect 29 0 30 0; 71 | #X connect 31 0 20 0; 72 | #X connect 31 1 20 1; 73 | #X connect 32 0 31 0; 74 | #X connect 33 0 22 0; 75 | #X connect 33 1 22 1; 76 | #X connect 34 0 33 0; 77 | #X connect 40 0 1 0; 78 | #X connect 40 1 41 0; 79 | #X connect 40 2 25 0; 80 | #X connect 41 0 3 0; 81 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/s.txt: -------------------------------------------------------------------------------- 1 | s_blsaw - bandlimited saw wave 2 | s_blsquare - bandlimited square wave with PWM 3 | s_buzz - buzz harmonics generator 4 | s_drumelectro - electronic drums 5 | s_fmoscil - simple 2-operator FM 6 | s_fm4 - simple 4-operator FM unfinished! 7 | s_fplaytable - fast sample player for tables 8 | s_fplaytable2 - fast sample player for tables (stereo) 9 | s_guitar - karplus strong guitar 10 | s_looper - sample player with builtin sample loader 11 | s_pinknoise - pinkish noise source 12 | s_playtable - sample player for tables with resampling 13 | s_playtable2 - sample player for tables with resampling (stereo) 14 | s_rhodey - FM emulation of rhodes e-piano 15 | s_osc - multi-waveform oscillator: sine saw square triangle 16 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/s_blsaw-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 371 298 534 487 10; 2 | #X floatatom 156 208 5 0 0 0 - - -; 3 | #X floatatom 264 209 5 0 0 0 - - -; 4 | #X obj 156 227 s_blsaw; 5 | #X obj 264 227 phasor~; 6 | #X obj 194 179 mtof; 7 | #X floatatom 194 161 5 0 0 0 - - -; 8 | #X obj 264 268 soundoutput; 9 | #X obj 156 269 soundoutput; 10 | #X obj 80 39 s_blsaw; 11 | #X text 98 71 s_blsaw generates a bandlimited sawtooth wave similar 12 | to the Pd builtin phasor~; 13 | #X text 326 226 this is aliased; 14 | #X text 44 227 less aliasing:; 15 | #X text 99 113 inlet 0: signal or float to set frequency in Hz; 16 | #X text 98 134 inlet 1: float to set phase (0-1); 17 | #X connect 0 0 2 0; 18 | #X connect 1 0 3 0; 19 | #X connect 2 0 7 0; 20 | #X connect 2 0 7 1; 21 | #X connect 3 0 6 0; 22 | #X connect 3 0 6 1; 23 | #X connect 4 0 0 0; 24 | #X connect 4 0 1 0; 25 | #X connect 5 0 4 0; 26 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/s_blsaw.pd: -------------------------------------------------------------------------------- 1 | #N canvas 291 44 343 388 10; 2 | #X obj 65 62 inlet~; 3 | #X obj 66 174 outlet~; 4 | #X obj 111 62 inlet; 5 | #X obj 65 129 phasor~; 6 | #X obj 65 150 u_splicetrans; 7 | #X connect 0 0 3 0; 8 | #X connect 0 0 4 1; 9 | #X connect 2 0 3 1; 10 | #X connect 3 0 4 0; 11 | #X connect 4 0 1 0; 12 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/s_blsquare-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 328 78 667 583 10; 2 | #X obj 107 386 s_blsquare; 3 | #X obj 107 259 mtof; 4 | #X floatatom 107 239 5 0 0 0 - - -; 5 | #X obj 108 441 soundoutput; 6 | #X obj 52 35 s_blsquare; 7 | #X floatatom 258 224 5 0 0 2 pwm_freq - -; 8 | #X floatatom 194 387 5 0 0 1 phase_(0...1) - -; 9 | #X obj 258 243 osc~ 0.5; 10 | #X obj 140 322 pack 0 10; 11 | #X obj 140 300 / 100; 12 | #X floatatom 140 282 5 0 0 0 - - -; 13 | #X obj 259 303 +~ 0.5; 14 | #X obj 259 275 *~ 0.1; 15 | #X obj 259 338 *~ 1; 16 | #X obj 304 338 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 17 | 1; 18 | #X text 325 303 it's best to modulate around 0.5; 19 | #X obj 345 242 / 100; 20 | #X floatatom 345 224 5 0 0 2 depth - -; 21 | #X text 97 90 Inlet 0: signal or float for frequency; 22 | #X text 96 114 Inlet 1: signal or float for pulse width - 0.5 is a 23 | 50/50 square wave; 24 | #X text 95 149 Inlet 2: float to set phase (0...1); 25 | #X obj 140 343 line~; 26 | #X text 153 33 bandlimited square wave with audio input for PWM.; 27 | #X connect 0 0 3 0; 28 | #X connect 0 0 3 1; 29 | #X connect 1 0 0 0; 30 | #X connect 2 0 1 0; 31 | #X connect 5 0 7 0; 32 | #X connect 6 0 0 2; 33 | #X connect 7 0 12 0; 34 | #X connect 8 0 21 0; 35 | #X connect 9 0 8 0; 36 | #X connect 10 0 9 0; 37 | #X connect 11 0 13 0; 38 | #X connect 12 0 11 0; 39 | #X connect 13 0 0 1; 40 | #X connect 14 0 13 1; 41 | #X connect 16 0 12 1; 42 | #X connect 17 0 16 0; 43 | #X connect 21 0 0 1; 44 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/s_blsquare.pd: -------------------------------------------------------------------------------- 1 | #N canvas 473 354 450 300 10; 2 | #X obj 80 43 inlet~; 3 | #X obj 81 91 phasor~; 4 | #X obj 265 52 inlet~; 5 | #X obj 335 53 inlet; 6 | #X text 262 31 pwm~; 7 | #X text 78 23 freq~; 8 | #X text 335 35 phase; 9 | #N canvas 525 283 512 505 sigment 0; 10 | #X obj 71 154 wrap~; 11 | #X obj 71 216 -~ 0.5; 12 | #X obj 71 132 -~; 13 | #X obj 70 52 inlet~; 14 | #X text 70 34 phasor~; 15 | #X obj 70 277 outlet~; 16 | #X text 261 29 phase; 17 | #X obj 259 50 inlet~; 18 | #X obj 70 184 u_splicetrans; 19 | #X obj 159 51 inlet~; 20 | #X obj 70 253 *~ -1; 21 | #X text 161 32 freq~; 22 | #X connect 0 0 8 0; 23 | #X connect 1 0 10 0; 24 | #X connect 2 0 0 0; 25 | #X connect 3 0 2 0; 26 | #X connect 7 0 2 1; 27 | #X connect 8 0 1 0; 28 | #X connect 9 0 8 1; 29 | #X connect 10 0 5 0; 30 | #X restore 82 154 pd sigment -1; 31 | #N canvas 525 283 508 458 sigment 0; 32 | #X obj 71 154 wrap~; 33 | #X obj 71 216 -~ 0.5; 34 | #X obj 71 132 -~; 35 | #X obj 70 52 inlet~; 36 | #X text 70 34 phasor~; 37 | #X obj 70 277 outlet~; 38 | #X text 261 29 phase; 39 | #X obj 259 50 inlet~; 40 | #X obj 70 184 u_splicetrans; 41 | #X obj 159 51 inlet~; 42 | #X text 161 32 freq~; 43 | #X connect 0 0 8 0; 44 | #X connect 1 0 5 0; 45 | #X connect 2 0 0 0; 46 | #X connect 3 0 2 0; 47 | #X connect 7 0 2 1; 48 | #X connect 8 0 1 0; 49 | #X connect 9 0 8 1; 50 | #X restore 185 154 pd sigment 1; 51 | #X obj 81 214 outlet~; 52 | #X connect 0 0 1 0; 53 | #X connect 0 0 7 1; 54 | #X connect 0 0 8 1; 55 | #X connect 1 0 7 0; 56 | #X connect 1 0 8 0; 57 | #X connect 2 0 8 2; 58 | #X connect 3 0 1 1; 59 | #X connect 7 0 9 0; 60 | #X connect 8 0 9 0; 61 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/s_buzz-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 274 60 646 649 10; 2 | #X floatatom 111 66 5 0 0 0 - - -; 3 | #X obj 151 332 tabwrite~ \$0-scope; 4 | #N canvas 0 0 450 300 (subpatch) 0; 5 | #X array \$0-scope 2205 float 0; 6 | #X coords 0 1 2204 -1 200 140 1; 7 | #X restore 288 210 graph; 8 | #X obj 151 265 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 9 | 1; 10 | #X obj 111 93 mtof; 11 | #X obj 194 64 hsl 128 15 0 0.9 0 0 empty empty empty -2 -8 0 10 -262144 12 | -1 -1 6300 1; 13 | #X obj 191 94 moses 1; 14 | #X text 206 45 Harmonicity-Env; 15 | #X text 252 95 don't go equal or over 1!; 16 | #X floatatom 199 118 5 0 0 0 - - -; 17 | #X obj 191 189 line~; 18 | #X obj 191 165 pack 0 100; 19 | #X msg 164 308 bang; 20 | #X obj 151 286 metro 100; 21 | #X text 87 498 out = sqrt[(1-a^2)(1+a^2)] * [sin(x) / (1+a^2 - 2a*cos(x))] 22 | ; 23 | #X text 85 545 cf: James A. Moorer: "Synthesis of Complex Audio Spectra" 24 | and Dodge/Jerse: "Computer Music" page 163f; 25 | #X obj 111 228 s_buzz; 26 | #X obj 68 374 soundoutput; 27 | #X connect 0 0 4 0; 28 | #X connect 3 0 13 0; 29 | #X connect 4 0 16 0; 30 | #X connect 5 0 6 0; 31 | #X connect 6 0 9 0; 32 | #X connect 6 0 11 0; 33 | #X connect 10 0 16 1; 34 | #X connect 11 0 10 0; 35 | #X connect 12 0 1 0; 36 | #X connect 13 0 1 0; 37 | #X connect 16 0 1 0; 38 | #X connect 16 0 17 0; 39 | #X connect 16 0 17 1; 40 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/s_fplaytable.pd: -------------------------------------------------------------------------------- 1 | #N canvas 155 209 450 300 10; 2 | #X obj 123 55 inlet; 3 | #X obj 124 166 tabplay~; 4 | #X msg 123 115 set \$1 \, bang; 5 | #X obj 124 220 outlet~; 6 | #X obj 201 219 outlet; 7 | #X obj 123 85 symbol; 8 | #X obj 262 56 inlet; 9 | #X obj 261 77 route loop; 10 | #X obj 221 169 spigot \$1; 11 | #X connect 0 0 5 0; 12 | #X connect 1 0 3 0; 13 | #X connect 1 1 4 0; 14 | #X connect 1 1 8 0; 15 | #X connect 2 0 1 0; 16 | #X connect 5 0 2 0; 17 | #X connect 6 0 7 0; 18 | #X connect 7 0 8 1; 19 | #X connect 8 0 5 0; 20 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/s_fplaytable2.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 22 450 300 10; 2 | #X obj 85 207 outlet~; 3 | #X obj 218 215 outlet~; 4 | #X obj 88 29 inlet; 5 | #X obj 86 141 makefilename %s-1; 6 | #X obj 219 142 makefilename %s-2; 7 | #X obj 85 113 symbol; 8 | #X obj 217 117 symbol; 9 | #X obj 245 34 inlet; 10 | #X obj 323 218 outlet; 11 | #X obj 86 162 s_fplaytable \$1; 12 | #X obj 218 163 s_fplaytable \$1; 13 | #X connect 2 0 5 0; 14 | #X connect 2 0 6 0; 15 | #X connect 3 0 9 0; 16 | #X connect 4 0 10 0; 17 | #X connect 5 0 3 0; 18 | #X connect 6 0 4 0; 19 | #X connect 7 0 9 1; 20 | #X connect 7 0 10 1; 21 | #X connect 9 0 0 0; 22 | #X connect 10 0 1 0; 23 | #X connect 10 1 8 0; 24 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/s_guitar-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 185 305 935 524 10; 2 | #X msg 334 175 pitch \$1; 3 | #X floatatom 308 126 5 0 0 0 - - -; 4 | #X obj 218 296 soundoutput; 5 | #X msg 218 178 bang; 6 | #X floatatom 442 156 5 0 100 0 - - -; 7 | #X obj 442 176 / 100; 8 | #X msg 442 198 feedback \$1; 9 | #X floatatom 577 153 5 0 0 0 - - -; 10 | #X obj 577 173 mtof; 11 | #X msg 577 202 lpfreq \$1; 12 | #X floatatom 613 174 5 0 0 0 - - -; 13 | #X obj 308 149 t b a; 14 | #X msg 541 279 pickuppos \$1; 15 | #X msg 438 280 pluckpos \$1; 16 | #X floatatom 438 238 5 0 0 0 - - -; 17 | #X obj 438 258 / 100; 18 | #X floatatom 541 238 5 0 0 0 - - -; 19 | #X obj 541 258 / 100; 20 | #X obj 150 242 env~; 21 | #X obj 150 267 - 100; 22 | #X obj 151 292 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; 23 | #X obj 308 73 random 12; 24 | #X obj 308 8 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1 25 | ; 26 | #X obj 384 72 random 2; 27 | #X obj 308 53 t b b; 28 | #X obj 385 101 * 12; 29 | #X obj 308 100 + 40; 30 | #X obj 345 102 +; 31 | #X obj 308 28 metro 250; 32 | #X obj 218 203 s_guitar myguitar; 33 | #X text 29 20 s_guitar; 34 | #X text 31 48 Karplus Strong Guitar; 35 | #X text 28 70 This isn't finished yet!; 36 | #X floatatom 134 128 5 0 0 0 - - -; 37 | #X obj 134 167 mtof; 38 | #X connect 0 0 29 1; 39 | #X connect 1 0 11 0; 40 | #X connect 3 0 29 0; 41 | #X connect 4 0 5 0; 42 | #X connect 5 0 6 0; 43 | #X connect 6 0 29 1; 44 | #X connect 7 0 8 0; 45 | #X connect 8 0 9 0; 46 | #X connect 8 0 10 0; 47 | #X connect 9 0 29 1; 48 | #X connect 11 0 29 0; 49 | #X connect 11 1 0 0; 50 | #X connect 12 0 29 1; 51 | #X connect 13 0 29 1; 52 | #X connect 14 0 15 0; 53 | #X connect 15 0 13 0; 54 | #X connect 16 0 17 0; 55 | #X connect 17 0 12 0; 56 | #X connect 18 0 19 0; 57 | #X connect 19 0 20 0; 58 | #X connect 21 0 27 0; 59 | #X connect 22 0 28 0; 60 | #X connect 23 0 25 0; 61 | #X connect 24 0 21 0; 62 | #X connect 24 1 23 0; 63 | #X connect 25 0 27 1; 64 | #X connect 26 0 1 0; 65 | #X connect 27 0 26 0; 66 | #X connect 28 0 24 0; 67 | #X connect 29 0 18 0; 68 | #X connect 29 0 2 0; 69 | #X connect 29 0 2 1; 70 | #X connect 33 0 34 0; 71 | #X connect 34 0 29 0; 72 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/s_pinknoise-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 369 183 560 601 10; 2 | #X obj 117 277 env~; 3 | #X obj 117 301 - 100; 4 | #X obj 118 328 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; 5 | #N canvas 397 140 536 444 demux 0; 6 | #X obj 109 67 inlet~; 7 | #X obj 177 66 inlet~; 8 | #X obj 258 66 inlet; 9 | #X obj 107 373 outlet~; 10 | #X obj 108 309 *~ 1; 11 | #X obj 178 314 *~ 0; 12 | #X msg 258 122 1 0; 13 | #X msg 291 151 0 1; 14 | #X obj 258 90 select 0 1; 15 | #X obj 258 275 unpack 0 0; 16 | #X connect 0 0 4 0; 17 | #X connect 1 0 5 0; 18 | #X connect 2 0 8 0; 19 | #X connect 4 0 3 0; 20 | #X connect 5 0 3 0; 21 | #X connect 6 0 9 0; 22 | #X connect 7 0 9 0; 23 | #X connect 8 0 6 0; 24 | #X connect 8 1 7 0; 25 | #X connect 9 0 4 1; 26 | #X connect 9 1 5 1; 27 | #X restore 187 232 pd demux; 28 | #X obj 260 232 hradio 15 1 0 2 empty empty empty 0 -8 0 10 -262144 29 | -1 -1 0; 30 | #X obj 213 201 noise~; 31 | #X obj 187 138 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 32 | 1; 33 | #X obj 186 277 soundoutput; 34 | #X text 58 30 s_pinknoise - pinkish noise source; 35 | #X text 91 110 Can be switched on and off by sending 1 or 0 to its 36 | inlet.; 37 | #X text 92 70 Realised by filtering white noise with a rbj-filter from 38 | music--dsp.; 39 | #X obj 187 167 s_pinknoise; 40 | #X connect 0 0 1 0; 41 | #X connect 1 0 2 0; 42 | #X connect 3 0 0 0; 43 | #X connect 3 0 7 0; 44 | #X connect 3 0 7 1; 45 | #X connect 4 0 3 2; 46 | #X connect 5 0 3 1; 47 | #X connect 6 0 11 0; 48 | #X connect 11 0 3 0; 49 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/s_pinknoise.pd: -------------------------------------------------------------------------------- 1 | #N canvas 342 314 694 301 10; 2 | #N canvas 125 123 716 455 pink-rbj 0; 3 | #X obj 94 198 rpole~ 0.995728; 4 | #X obj 96 252 rpole~ 0.947906; 5 | #X obj 94 305 rpole~ 0.535675; 6 | #X obj 111 169 rzero~ 0.984436; 7 | #X obj 111 227 rzero~ 0.833923; 8 | #X obj 110 277 rzero~ 0.0756836; 9 | #X obj 93 383 outlet~; 10 | #X obj 111 142 noise~; 11 | #X text 166 359 normalization factor was found empirically; 12 | #X text 335 98 Zeroes:; 13 | #X obj 93 357 *~ 0.17; 14 | #X obj 609 111 switch~; 15 | #X obj 609 58 inlet; 16 | #X obj 483 215 select 0 1; 17 | #X msg 516 242 0.17; 18 | #X msg 483 243 0; 19 | #X obj 609 81 pipe 10; 20 | #X text 558 238 mute on switch; 21 | #X connect 0 0 4 0; 22 | #X connect 1 0 5 0; 23 | #X connect 2 0 10 0; 24 | #X connect 3 0 0 0; 25 | #X connect 4 0 1 0; 26 | #X connect 5 0 2 0; 27 | #X connect 7 0 3 0; 28 | #X connect 10 0 6 0; 29 | #X connect 12 0 16 0; 30 | #X connect 12 0 13 0; 31 | #X connect 13 0 15 0; 32 | #X connect 13 1 14 0; 33 | #X connect 14 0 10 1; 34 | #X connect 15 0 10 1; 35 | #X connect 16 0 11 0; 36 | #X restore 142 168 pd pink-rbj; 37 | #X obj 142 88 inlet; 38 | #X obj 156 117 loadbang; 39 | #X msg 156 137 1; 40 | #X obj 141 200 outlet~; 41 | #X connect 0 0 4 0; 42 | #X connect 1 0 0 0; 43 | #X connect 2 0 3 0; 44 | #X connect 3 0 0 0; 45 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/s_playtable2.pd: -------------------------------------------------------------------------------- 1 | #N canvas 178 182 795 594 10; 2 | #X obj 540 82 inlet; 3 | #X obj 169 57 inlet; 4 | #X obj 236 489 outlet~; 5 | #X text 162 19 IN: tablename gain transposition start(ms) duration(ms) 6 | loop(0/1); 7 | #X text 542 64 dispatcher (later); 8 | #X obj 547 481 outlet; 9 | #X text 468 513 bangs at end of duration \, if specified; 10 | #X obj 366 491 outlet~; 11 | #X obj 236 286 s_playtable; 12 | #X obj 367 290 s_playtable; 13 | #X obj 236 137 list split 1; 14 | #X obj 236 229 list append; 15 | #X obj 367 230 list append; 16 | #X msg 236 202 \$1-1; 17 | #X msg 367 208 \$1-2; 18 | #X obj 169 94 route bang; 19 | #X obj 169 223 t b b; 20 | #X connect 0 0 9 1; 21 | #X connect 0 0 8 1; 22 | #X connect 1 0 15 0; 23 | #X connect 8 0 2 0; 24 | #X connect 8 1 5 0; 25 | #X connect 9 0 7 0; 26 | #X connect 10 0 14 0; 27 | #X connect 10 0 13 0; 28 | #X connect 10 1 11 1; 29 | #X connect 10 1 12 1; 30 | #X connect 10 2 11 1; 31 | #X connect 10 2 12 1; 32 | #X connect 11 0 8 0; 33 | #X connect 12 0 9 0; 34 | #X connect 13 0 11 0; 35 | #X connect 14 0 12 0; 36 | #X connect 15 0 16 0; 37 | #X connect 15 1 10 0; 38 | #X connect 16 0 8 0; 39 | #X connect 16 1 9 0; 40 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u.txt: -------------------------------------------------------------------------------- 1 | u_bandpass1 - compute biquad coefficients for a bandpass filter (const skirt BW) 2 | u_bandpass1q - compute biquad coefficients for a bandpass filter (const skirt Q) 3 | u_bandpass2 - compute biquad coefficients for a bandpass filter (const peak BW) 4 | u_bandpass2q - compute biquad coefficients for a bandpass filter (const peak Q) 5 | u_cocollect - collect messages into a message and end each with a comma 6 | u_collect - collect messages into a message 7 | u_fade - remote fader control 8 | u_follower - follower for messages delivered at constant rate 9 | u_highpass - compute biquad coefficients for a resonant highpass filter (BW) 10 | u_highpassq - compute biquad coefficients for a resonant highpass filter (Q) 11 | u_listdrip - serialise a list immediatly (i.e. list-drip) 12 | u_listfilter - filter a list (i.e. list-filter) 13 | u_listmap - map an operation to each list element (i.e. list-map) 14 | u_listnth - output the nth element of a list (i.e. list-nth) 15 | u_listreduce - reduce a list in pairs (i.e. list-reduce) 16 | u_listser - serialise a list on demand (i.e. list-dripslow) 17 | u_loadmeter - show CPU load 18 | u_lowpass - compute biquad coefficients for a resonant lowpass filter (BW) 19 | u_lowpassq - compute biquad coefficients for a resonant lowpass filter (Q) 20 | u_makepoly - make midi-like instruments polyphonic 21 | u_record - record audio data into tables 22 | u_samplebank - load files into tables 23 | u_samplebank2 - load stereo files into tables 24 | u_sigm - sigmoid function for messaging squashing 25 | u_splicetrans - transition splicer for bandlimiting jumps in waveforms 26 | u_stereo - make stereo versions of effects 27 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_bandpass1-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 240 143 845 532 10; 2 | #X obj 423 224 mtof; 3 | #X floatatom 560 196 5 0 0 2 BW - -; 4 | #X floatatom 423 192 5 0 0 2 freq - -; 5 | #N canvas 0 0 450 300 show 0; 6 | #X obj 41 39 inlet; 7 | #X obj 186 36 inlet; 8 | #X obj 41 124 outlet; 9 | #X msg 186 76 set; 10 | #X obj 41 59 list prepend set; 11 | #X obj 41 83 list trim; 12 | #X connect 0 0 4 0; 13 | #X connect 1 0 3 0; 14 | #X connect 3 0 2 0; 15 | #X connect 4 0 5 0; 16 | #X connect 5 0 2 0; 17 | #X restore 423 294 pd show; 18 | #X msg 423 327 1.93842 -0.958266 0.0695157 0 -0.0695157; 19 | #X text 581 263 args: ; 20 | #X obj 209 187 noise~; 21 | #X obj 108 346 env~; 22 | #X obj 210 233 *~ 0.3; 23 | #X obj 170 302 e_beequad; 24 | #X obj 171 437 soundoutput; 25 | #X obj 171 404 c_xfade; 26 | #X msg 481 294 reset; 27 | #X obj 255 304 biquad~; 28 | #X obj 108 369 - 100; 29 | #X obj 109 393 vu 15 80 empty empty -1 -8 0 10 -66577 -1 0 0; 30 | #X obj 293 345 env~; 31 | #X obj 293 368 - 100; 32 | #X obj 294 392 vu 15 80 empty empty -1 -8 0 10 -66577 -1 0 0; 33 | #X obj 220 383 hsl 32 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144 34 | -1 -1 0 1; 35 | #X text 122 136 Both inlets are hot and trigger new coefficients.; 36 | #X obj 423 262 u_bandpass1 1000 100; 37 | #X text 120 48 Compute biquad coefficients for a bandpass filter with 38 | constant skirt gain \, peak gain specified by BW. Designed to be used 39 | with [biquad~] or [e_beequad]; 40 | #X text 121 95 A bandwidth of 100 is equivalent to one octave.; 41 | #X msg 466 225 bang; 42 | #X text 66 26 u_bandpass1; 43 | #X connect 0 0 21 0; 44 | #X connect 1 0 21 1; 45 | #X connect 2 0 0 0; 46 | #X connect 3 0 4 0; 47 | #X connect 6 0 8 0; 48 | #X connect 7 0 14 0; 49 | #X connect 8 0 9 0; 50 | #X connect 8 0 13 0; 51 | #X connect 9 0 7 0; 52 | #X connect 9 0 11 0; 53 | #X connect 11 0 10 0; 54 | #X connect 11 0 10 1; 55 | #X connect 12 0 3 1; 56 | #X connect 13 0 16 0; 57 | #X connect 13 0 11 1; 58 | #X connect 14 0 15 0; 59 | #X connect 16 0 17 0; 60 | #X connect 17 0 18 0; 61 | #X connect 19 0 11 2; 62 | #X connect 21 0 3 0; 63 | #X connect 21 0 9 1; 64 | #X connect 21 0 13 0; 65 | #X connect 24 0 21 0; 66 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_bandpass1q-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 240 143 845 532 10; 2 | #X obj 423 224 mtof; 3 | #X floatatom 553 196 5 0 0 2 Q - -; 4 | #X floatatom 423 192 5 0 0 2 freq - -; 5 | #N canvas 0 0 450 300 show 0; 6 | #X obj 41 39 inlet; 7 | #X obj 186 36 inlet; 8 | #X obj 41 124 outlet; 9 | #X msg 186 76 set; 10 | #X obj 41 59 list prepend set; 11 | #X obj 41 83 list trim; 12 | #X connect 0 0 4 0; 13 | #X connect 1 0 3 0; 14 | #X connect 3 0 2 0; 15 | #X connect 4 0 5 0; 16 | #X connect 5 0 2 0; 17 | #X restore 423 294 pd show; 18 | #X msg 423 327; 19 | #X obj 209 187 noise~; 20 | #X obj 108 346 env~; 21 | #X obj 210 233 *~ 0.3; 22 | #X obj 170 302 e_beequad; 23 | #X obj 171 437 soundoutput; 24 | #X obj 171 404 c_xfade; 25 | #X msg 481 294 reset; 26 | #X obj 255 304 biquad~; 27 | #X obj 108 369 - 100; 28 | #X obj 109 393 vu 15 80 empty empty -1 -8 0 10 -66577 -1 0 0; 29 | #X obj 293 345 env~; 30 | #X obj 293 368 - 100; 31 | #X obj 294 392 vu 15 80 empty empty -1 -8 0 10 -66577 -1 0 0; 32 | #X obj 220 383 hsl 32 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144 33 | -1 -1 0 1; 34 | #X text 122 136 Both inlets are hot and trigger new coefficients.; 35 | #X msg 466 225 bang; 36 | #X text 66 26 u_bandpass1q; 37 | #X text 120 48 Compute biquad coefficients for a bandpass filter with 38 | constant skirt gain \, peak gain specified by Q. Designed to be used 39 | with [biquad~] or [e_beequad]; 40 | #X obj 423 262 u_bandpass1q 1000 2; 41 | #X text 581 263 args: ; 42 | #X connect 0 0 23 0; 43 | #X connect 1 0 23 1; 44 | #X connect 2 0 0 0; 45 | #X connect 3 0 4 0; 46 | #X connect 5 0 7 0; 47 | #X connect 6 0 13 0; 48 | #X connect 7 0 8 0; 49 | #X connect 7 0 12 0; 50 | #X connect 8 0 6 0; 51 | #X connect 8 0 10 0; 52 | #X connect 10 0 9 0; 53 | #X connect 10 0 9 1; 54 | #X connect 11 0 3 1; 55 | #X connect 12 0 15 0; 56 | #X connect 12 0 10 1; 57 | #X connect 13 0 14 0; 58 | #X connect 15 0 16 0; 59 | #X connect 16 0 17 0; 60 | #X connect 18 0 10 2; 61 | #X connect 20 0 23 0; 62 | #X connect 23 0 3 0; 63 | #X connect 23 0 8 1; 64 | #X connect 23 0 12 0; 65 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_bandpass2-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 240 143 845 532 10; 2 | #X obj 423 224 mtof; 3 | #X floatatom 560 196 5 0 0 2 BW - -; 4 | #X floatatom 423 192 5 0 0 2 freq - -; 5 | #N canvas 0 0 450 300 show 0; 6 | #X obj 41 39 inlet; 7 | #X obj 186 36 inlet; 8 | #X obj 41 124 outlet; 9 | #X msg 186 76 set; 10 | #X obj 41 59 list prepend set; 11 | #X obj 41 83 list trim; 12 | #X connect 0 0 4 0; 13 | #X connect 1 0 3 0; 14 | #X connect 3 0 2 0; 15 | #X connect 4 0 5 0; 16 | #X connect 5 0 2 0; 17 | #X restore 423 294 pd show; 18 | #X msg 423 327; 19 | #X obj 209 187 noise~; 20 | #X obj 108 346 env~; 21 | #X obj 210 233 *~ 0.3; 22 | #X obj 170 302 e_beequad; 23 | #X obj 171 437 soundoutput; 24 | #X obj 171 404 c_xfade; 25 | #X msg 481 294 reset; 26 | #X obj 255 304 biquad~; 27 | #X obj 108 369 - 100; 28 | #X obj 109 393 vu 15 80 empty empty -1 -8 0 10 -66577 -1 0 0; 29 | #X obj 293 345 env~; 30 | #X obj 293 368 - 100; 31 | #X obj 294 392 vu 15 80 empty empty -1 -8 0 10 -66577 -1 0 0; 32 | #X obj 220 383 hsl 32 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144 33 | -1 -1 0 1; 34 | #X text 123 114 Both inlets are hot and trigger new coefficients.; 35 | #X msg 466 225 bang; 36 | #X text 66 26 u_bandpass2; 37 | #X text 120 48 Compute biquad coefficients for a bandpass filter with 38 | constant 0 dB peak gain and BW inlet. Designed to be used with [biquad~] 39 | or [e_beequad]; 40 | #X text 581 263 args: ; 41 | #X obj 423 262 u_bandpass2 1000 200; 42 | #X text 126 142 BW=100 per octave; 43 | #X connect 0 0 24 0; 44 | #X connect 1 0 24 1; 45 | #X connect 2 0 0 0; 46 | #X connect 3 0 4 0; 47 | #X connect 5 0 7 0; 48 | #X connect 6 0 13 0; 49 | #X connect 7 0 8 0; 50 | #X connect 7 0 12 0; 51 | #X connect 8 0 6 0; 52 | #X connect 8 0 10 0; 53 | #X connect 10 0 9 0; 54 | #X connect 10 0 9 1; 55 | #X connect 11 0 3 1; 56 | #X connect 12 0 15 0; 57 | #X connect 12 0 10 1; 58 | #X connect 13 0 14 0; 59 | #X connect 15 0 16 0; 60 | #X connect 16 0 17 0; 61 | #X connect 18 0 10 2; 62 | #X connect 20 0 24 0; 63 | #X connect 24 0 3 0; 64 | #X connect 24 0 8 1; 65 | #X connect 24 0 12 0; 66 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_bandpass2q-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 240 143 845 532 10; 2 | #X obj 423 224 mtof; 3 | #X floatatom 553 196 5 0 0 2 Q - -; 4 | #X floatatom 423 192 5 0 0 2 freq - -; 5 | #N canvas 0 0 450 300 show 0; 6 | #X obj 41 39 inlet; 7 | #X obj 186 36 inlet; 8 | #X obj 41 124 outlet; 9 | #X msg 186 76 set; 10 | #X obj 41 59 list prepend set; 11 | #X obj 41 83 list trim; 12 | #X connect 0 0 4 0; 13 | #X connect 1 0 3 0; 14 | #X connect 3 0 2 0; 15 | #X connect 4 0 5 0; 16 | #X connect 5 0 2 0; 17 | #X restore 423 294 pd show; 18 | #X msg 423 327; 19 | #X obj 209 187 noise~; 20 | #X obj 108 346 env~; 21 | #X obj 210 233 *~ 0.3; 22 | #X obj 170 302 e_beequad; 23 | #X obj 171 437 soundoutput; 24 | #X obj 171 404 c_xfade; 25 | #X msg 481 294 reset; 26 | #X obj 255 304 biquad~; 27 | #X obj 108 369 - 100; 28 | #X obj 109 393 vu 15 80 empty empty -1 -8 0 10 -66577 -1 0 0; 29 | #X obj 293 345 env~; 30 | #X obj 293 368 - 100; 31 | #X obj 294 392 vu 15 80 empty empty -1 -8 0 10 -66577 -1 0 0; 32 | #X obj 220 383 hsl 32 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144 33 | -1 -1 0 1; 34 | #X text 123 114 Both inlets are hot and trigger new coefficients.; 35 | #X msg 466 225 bang; 36 | #X text 581 263 args: ; 37 | #X text 66 26 u_bandpass2q; 38 | #X text 120 48 Compute biquad coefficients for a bandpass filter with 39 | constant 0 dB peak gain. Designed to be used with [biquad~] or [e_beequad] 40 | ; 41 | #X obj 423 262 u_bandpass2q 1000 2; 42 | #X connect 0 0 24 0; 43 | #X connect 1 0 24 1; 44 | #X connect 2 0 0 0; 45 | #X connect 3 0 4 0; 46 | #X connect 5 0 7 0; 47 | #X connect 6 0 13 0; 48 | #X connect 7 0 8 0; 49 | #X connect 7 0 12 0; 50 | #X connect 8 0 6 0; 51 | #X connect 8 0 10 0; 52 | #X connect 10 0 9 0; 53 | #X connect 10 0 9 1; 54 | #X connect 11 0 3 1; 55 | #X connect 12 0 15 0; 56 | #X connect 12 0 10 1; 57 | #X connect 13 0 14 0; 58 | #X connect 15 0 16 0; 59 | #X connect 16 0 17 0; 60 | #X connect 18 0 10 2; 61 | #X connect 20 0 24 0; 62 | #X connect 24 0 3 0; 63 | #X connect 24 0 8 1; 64 | #X connect 24 0 12 0; 65 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_cocollect-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 318 231 756 416 10; 2 | #X obj 96 198 u_collect; 3 | #X msg 96 237; 4 | #X obj 156 173 bng 15 250 50 0 empty empty clear 17 7 1 10 -262144 5 | -1 -1; 6 | #X floatatom 96 150 5 0 0 0 - - -; 7 | #X msg 322 240; 8 | #X obj 396 176 bng 15 250 50 0 empty empty clear 17 7 1 10 -262144 9 | -1 -1; 10 | #X floatatom 322 153 5 0 0 0 - - -; 11 | #X obj 322 201 u_cocollect; 12 | #X text 30 32 u_collect \, u_cocollect - collect messages into a message 13 | box; 14 | #X text 110 69 u_collect just collects messsages.; 15 | #X text 109 94 u_cocollect collects messsages and ends each with a 16 | comma.; 17 | #X obj 371 152 pack 1 2 3 4; 18 | #X floatatom 371 135 5 0 0 0 - - -; 19 | #X text 424 133 both also collect lists; 20 | #X connect 0 0 1 0; 21 | #X connect 2 0 0 1; 22 | #X connect 3 0 0 0; 23 | #X connect 5 0 7 1; 24 | #X connect 6 0 7 0; 25 | #X connect 7 0 4 0; 26 | #X connect 11 0 7 0; 27 | #X connect 12 0 11 0; 28 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_cocollect.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 0 450 300 10; 2 | #X obj 255 37 inlet; 3 | #X obj 49 20 inlet; 4 | #X obj 49 157 outlet; 5 | #X msg 255 74 set; 6 | #X obj 81 99 list trim; 7 | #X obj 81 74 list prepend add2; 8 | #X obj 49 44 t b a; 9 | #X msg 49 119 addcomma; 10 | #X connect 0 0 3 0; 11 | #X connect 1 0 6 0; 12 | #X connect 3 0 2 0; 13 | #X connect 4 0 2 0; 14 | #X connect 5 0 4 0; 15 | #X connect 6 0 7 0; 16 | #X connect 6 1 5 0; 17 | #X connect 7 0 2 0; 18 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_collect-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 318 231 756 416 10; 2 | #X obj 96 198 u_collect; 3 | #X msg 96 237; 4 | #X obj 156 173 bng 15 250 50 0 empty empty clear 17 7 1 10 -262144 5 | -1 -1; 6 | #X floatatom 96 150 5 0 0 0 - - -; 7 | #X msg 322 240; 8 | #X obj 396 176 bng 15 250 50 0 empty empty clear 17 7 1 10 -262144 9 | -1 -1; 10 | #X floatatom 322 153 5 0 0 0 - - -; 11 | #X obj 322 201 u_cocollect; 12 | #X text 30 32 u_collect \, u_cocollect - collect messages into a message 13 | box; 14 | #X text 110 69 u_collect just collects messsages.; 15 | #X text 109 94 u_cocollect collects messsages and ends each with a 16 | comma.; 17 | #X obj 371 152 pack 1 2 3 4; 18 | #X floatatom 371 135 5 0 0 0 - - -; 19 | #X text 424 133 both also collect lists; 20 | #X connect 0 0 1 0; 21 | #X connect 2 0 0 1; 22 | #X connect 3 0 0 0; 23 | #X connect 5 0 7 1; 24 | #X connect 6 0 7 0; 25 | #X connect 7 0 4 0; 26 | #X connect 11 0 7 0; 27 | #X connect 12 0 11 0; 28 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_collect.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 0 450 300 10; 2 | #X obj 195 37 inlet; 3 | #X obj 41 37 inlet; 4 | #X obj 41 144 outlet; 5 | #X msg 195 74 set; 6 | #X obj 41 99 list trim; 7 | #X obj 41 74 list prepend add2; 8 | #X connect 0 0 3 0; 9 | #X connect 1 0 5 0; 10 | #X connect 3 0 2 0; 11 | #X connect 4 0 2 0; 12 | #X connect 5 0 4 0; 13 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_dispatch-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 212 72 973 689 10; 2 | #X obj 121 172 inlet; 3 | #X floatatom 175 194 5 0 0 0 - - -; 4 | #X floatatom 383 334 5 0 0 0 - - -; 5 | #X floatatom 382 525 5 0 0 0 - - -; 6 | #X obj 382 504 r \$0-float; 7 | #X floatatom 272 193 5 0 0 0 - - -; 8 | #X floatatom 525 195 5 0 0 0 - - -; 9 | #X floatatom 382 624 5 0 0 0 - - -; 10 | #X floatatom 322 194 5 0 0 0 - - -; 11 | #X obj 383 383 t a b; 12 | #X obj 383 407 list prepend set; 13 | #X obj 383 429 list trim; 14 | #X msg 383 452 a b c d 93; 15 | #X obj 382 603 r \$0-prep; 16 | #X obj 525 217 list prepend prep; 17 | #X msg 175 215 attack \$1; 18 | #X obj 121 312 u_dispatch \$0 attack; 19 | #X obj 383 313 r \$0-attack; 20 | #X obj 383 360 r \$0-alist; 21 | #X obj 322 216 list prepend alist a b c d; 22 | #X text 84 23 [u_dispatch]; 23 | #X text 123 45 Wrapper around [route] that automatically sends incoming 24 | messages to a receiver called "\$1-\$2" \, if they start with \$2. 25 | ; 26 | #X text 125 94 Non-matching messages get passed on to the outlet.; 27 | #X text 124 114 Useful for dispatching of inlet-messages if you create 28 | chains of [u_dispatch] objects like below:; 29 | #X text 274 312 sends to this:; 30 | #X text 271 358 sends to this:; 31 | #X text 268 502 sends to this:; 32 | #X text 268 603 sends to this:; 33 | #X msg 476 271 help; 34 | #X obj 121 503 u_dispatch \$0 float; 35 | #X obj 121 600 u_dispatch \$0 prep; 36 | #X obj 121 359 u_dispatch \$0 alist; 37 | #X text 473 252 special method "help" to print all active u_dispatch 38 | targets; 39 | #X obj 121 630 u_dispatch \$0 bang; 40 | #X obj 258 630 r \$0-bang; 41 | #X msg 135 215 bang; 42 | #X obj 258 658 print BANG; 43 | #X obj 671 527 u_dispatch \$0 symbol; 44 | #X text 643 508 This does not work \, don't use it:; 45 | #X connect 0 0 16 0; 46 | #X connect 1 0 15 0; 47 | #X connect 4 0 3 0; 48 | #X connect 5 0 16 0; 49 | #X connect 6 0 14 0; 50 | #X connect 8 0 19 0; 51 | #X connect 9 0 10 0; 52 | #X connect 9 1 10 0; 53 | #X connect 10 0 11 0; 54 | #X connect 11 0 12 0; 55 | #X connect 13 0 7 0; 56 | #X connect 14 0 16 0; 57 | #X connect 15 0 16 0; 58 | #X connect 16 0 31 0; 59 | #X connect 17 0 2 0; 60 | #X connect 18 0 9 0; 61 | #X connect 19 0 16 0; 62 | #X connect 28 0 16 0; 63 | #X connect 29 0 30 0; 64 | #X connect 30 0 33 0; 65 | #X connect 31 0 29 0; 66 | #X connect 34 0 36 0; 67 | #X connect 35 0 16 0; 68 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_dispatch.pd: -------------------------------------------------------------------------------- 1 | #N canvas 303 323 759 261 10; 2 | #X obj 131 28 inlet; 3 | #X obj 182 185 outlet; 4 | #X obj 131 122 route \$2; 5 | #X obj 131 155 s \$1-\$2; 6 | #X obj 131 98 list trim; 7 | #X obj 273 121 select help; 8 | #X obj 273 158 list append \$2; 9 | #X obj 273 182 list trim; 10 | #X obj 273 205 print dispatcher; 11 | #X obj 273 94 route symbol; 12 | #X obj 273 70 list; 13 | #X obj 470 104 u_sssad \$2 \$1; 14 | #X obj 470 131 s \$1-\$2; 15 | #X obj 544 73 r \$1-\$2; 16 | #X text 447 73 state saves:; 17 | #X connect 0 0 4 0; 18 | #X connect 0 0 10 0; 19 | #X connect 2 0 3 0; 20 | #X connect 2 1 1 0; 21 | #X connect 4 0 2 0; 22 | #X connect 5 0 6 0; 23 | #X connect 6 0 7 0; 24 | #X connect 7 0 8 0; 25 | #X connect 9 0 5 0; 26 | #X connect 10 0 9 0; 27 | #X connect 11 0 12 0; 28 | #X connect 13 0 11 1; 29 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_fade-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 279 168 450 300 10; 2 | #X text 14 21 Create a named fader \, useful for automatic mixing; 3 | #X obj 63 60 osc~ 220; 4 | #X obj 63 131 u_fade myfade 0.1; 5 | #X obj 39 199 soundoutput; 6 | #X msg 268 60 \; myfade 0 500; 7 | #X msg 269 111 \; myfade 0.3 500; 8 | #X connect 1 0 2 0; 9 | #X connect 2 0 3 0; 10 | #X connect 2 0 3 1; 11 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_fade.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 22 450 300 10; 2 | #X obj 80 26 inlet~; 3 | #X obj 77 230 outlet~; 4 | #X obj 77 206 *~; 5 | #X obj 145 143 line~; 6 | #X obj 144 28 inlet; 7 | #X obj 226 28 loadbang; 8 | #X obj 188 27 r \$1; 9 | #X obj 227 72 float \$2; 10 | #X msg 228 118 1; 11 | #X obj 227 95 sel 0; 12 | #X connect 0 0 2 0; 13 | #X connect 2 0 1 0; 14 | #X connect 3 0 2 1; 15 | #X connect 4 0 3 0; 16 | #X connect 5 0 7 0; 17 | #X connect 6 0 3 0; 18 | #X connect 7 0 9 0; 19 | #X connect 8 0 3 0; 20 | #X connect 9 0 8 0; 21 | #X connect 9 1 3 0; 22 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_follower.pd: -------------------------------------------------------------------------------- 1 | #N canvas 380 153 770 513 10; 2 | #X obj 75 216 +; 3 | #X obj 75 81 inlet; 4 | #X obj 108 217 * 0.94; 5 | #X obj 75 279 * 0.06; 6 | #X obj 75 308 outlet; 7 | #X obj 160 217 * -1; 8 | #X obj 160 248 + 1; 9 | #X text 311 252 latency (0= no latency \, 0.99= very smoothed \, 1=infinite) 10 | ; 11 | #X text 71 55 input message (should be updated at constant rate); 12 | #X obj 160 114 r \$0-latency; 13 | #X obj 316 136 inlet; 14 | #X obj 375 100 loadbang; 15 | #X msg 375 125 latency 0.8; 16 | #X text 311 289 u_follower is a simple smoother for messages provided 17 | at constant rate; 18 | #X obj 376 153 u_loader u_follower-\$1 \$0; 19 | #X obj 316 204 u_dispatch \$0 latency; 20 | #X connect 0 0 2 0; 21 | #X connect 0 0 3 0; 22 | #X connect 1 0 0 0; 23 | #X connect 2 0 0 1; 24 | #X connect 3 0 4 0; 25 | #X connect 5 0 6 0; 26 | #X connect 6 0 3 1; 27 | #X connect 9 0 5 0; 28 | #X connect 9 0 2 1; 29 | #X connect 10 0 15 0; 30 | #X connect 11 0 12 0; 31 | #X connect 12 0 15 0; 32 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_highpass-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 240 143 845 532 10; 2 | #X obj 423 224 mtof; 3 | #X floatatom 490 193 5 0 0 2 BW - -; 4 | #X floatatom 423 192 5 0 0 2 freq - -; 5 | #N canvas 0 0 450 300 show 0; 6 | #X obj 41 39 inlet; 7 | #X obj 186 36 inlet; 8 | #X obj 41 124 outlet; 9 | #X msg 186 76 set; 10 | #X obj 41 59 list prepend set; 11 | #X obj 41 83 list trim; 12 | #X connect 0 0 4 0; 13 | #X connect 1 0 3 0; 14 | #X connect 3 0 2 0; 15 | #X connect 4 0 5 0; 16 | #X connect 5 0 2 0; 17 | #X restore 423 294 pd show; 18 | #X msg 423 327; 19 | #X text 513 265 args: ; 20 | #X obj 209 187 noise~; 21 | #X obj 108 346 env~; 22 | #X obj 210 233 *~ 0.3; 23 | #X obj 170 302 e_beequad; 24 | #X obj 171 437 soundoutput; 25 | #X obj 171 404 c_xfade; 26 | #X msg 481 294 reset; 27 | #X obj 255 304 biquad~; 28 | #X obj 108 369 - 100; 29 | #X obj 109 393 vu 15 80 empty empty -1 -8 0 10 -66577 -1 0 0; 30 | #X obj 293 345 env~; 31 | #X obj 293 368 - 100; 32 | #X obj 294 392 vu 15 80 empty empty -1 -8 0 10 -66577 -1 0 0; 33 | #X obj 220 383 hsl 32 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144 34 | -1 -1 0 1; 35 | #X text 122 136 Both inlets are hot and trigger new coefficients.; 36 | #X text 66 26 u_highpass; 37 | #X text 120 48 Compute biquad coefficients for a resonant highpass 38 | filter. Designed to be used with [biquad~] or [e_beequad]; 39 | #X text 120 91 u_highpass is controlled by a bandwidth which is expressed 40 | in octaves. A bandwidth of 100 is equivalent to one octave.; 41 | #X obj 423 262 u_highpass; 42 | #X connect 0 0 24 0; 43 | #X connect 1 0 24 1; 44 | #X connect 2 0 0 0; 45 | #X connect 3 0 4 0; 46 | #X connect 6 0 8 0; 47 | #X connect 7 0 14 0; 48 | #X connect 8 0 9 0; 49 | #X connect 8 0 13 0; 50 | #X connect 9 0 7 0; 51 | #X connect 9 0 11 0; 52 | #X connect 11 0 10 0; 53 | #X connect 11 0 10 1; 54 | #X connect 12 0 3 1; 55 | #X connect 13 0 16 0; 56 | #X connect 13 0 11 1; 57 | #X connect 14 0 15 0; 58 | #X connect 16 0 17 0; 59 | #X connect 17 0 18 0; 60 | #X connect 19 0 11 2; 61 | #X connect 24 0 3 0; 62 | #X connect 24 0 9 1; 63 | #X connect 24 0 13 0; 64 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_highpassq-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 240 143 845 532 10; 2 | #X obj 423 224 mtof; 3 | #X floatatom 497 193 5 0 0 2 Q - -; 4 | #X floatatom 423 192 5 0 0 2 freq - -; 5 | #N canvas 0 0 450 300 show 0; 6 | #X obj 41 39 inlet; 7 | #X obj 186 36 inlet; 8 | #X obj 41 124 outlet; 9 | #X msg 186 76 set; 10 | #X obj 41 59 list prepend set; 11 | #X obj 41 83 list trim; 12 | #X connect 0 0 4 0; 13 | #X connect 1 0 3 0; 14 | #X connect 3 0 2 0; 15 | #X connect 4 0 5 0; 16 | #X connect 5 0 2 0; 17 | #X restore 423 294 pd show; 18 | #X msg 423 327; 19 | #X text 513 265 args: ; 20 | #X obj 209 187 noise~; 21 | #X obj 108 346 env~; 22 | #X obj 210 233 *~ 0.3; 23 | #X obj 170 302 e_beequad; 24 | #X obj 171 437 soundoutput; 25 | #X obj 171 404 c_xfade; 26 | #X msg 481 294 reset; 27 | #X obj 255 304 biquad~; 28 | #X obj 108 369 - 100; 29 | #X obj 109 393 vu 15 80 empty empty -1 -8 0 10 -66577 -1 0 0; 30 | #X obj 293 345 env~; 31 | #X obj 293 368 - 100; 32 | #X obj 294 392 vu 15 80 empty empty -1 -8 0 10 -66577 -1 0 0; 33 | #X obj 220 383 hsl 32 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144 34 | -1 -1 0 1; 35 | #X text 121 129 Both inlets are hot and trigger new coefficients.; 36 | #X obj 423 262 u_highpassq; 37 | #X text 66 26 u_highpassq; 38 | #X text 120 48 Compute biquad coefficients for a resonant highpass 39 | filter with Q inlet. Designed to be used with [biquad~] or [e_beequad] 40 | ; 41 | #X text 120 101 u_highpassq is controlled by a Q quality factor.; 42 | #X connect 0 0 21 0; 43 | #X connect 1 0 21 1; 44 | #X connect 2 0 0 0; 45 | #X connect 3 0 4 0; 46 | #X connect 6 0 8 0; 47 | #X connect 7 0 14 0; 48 | #X connect 8 0 9 0; 49 | #X connect 8 0 13 0; 50 | #X connect 9 0 7 0; 51 | #X connect 9 0 11 0; 52 | #X connect 11 0 10 0; 53 | #X connect 11 0 10 1; 54 | #X connect 12 0 3 1; 55 | #X connect 13 0 16 0; 56 | #X connect 13 0 11 1; 57 | #X connect 14 0 15 0; 58 | #X connect 16 0 17 0; 59 | #X connect 17 0 18 0; 60 | #X connect 19 0 11 2; 61 | #X connect 21 0 3 0; 62 | #X connect 21 0 9 1; 63 | #X connect 21 0 13 0; 64 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_listdrip-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 416 338 580 479 10; 2 | #X obj 103 234 u_listdrip; 3 | #X text 56 45 u_listdrip; 4 | #X msg 103 153 1 2 3 4 5; 5 | #X obj 103 313 print LIST; 6 | #X obj 170 259 bng 15 250 50 0 empty empty end_of_list 17 7 1 10 -262144 7 | -1 -1; 8 | #X obj 61 345 u_cocollect; 9 | #X msg 61 368 1 \, 2 \, 3 \, 4 \, 5 \,; 10 | #X obj 103 177 t a b; 11 | #X msg 161 177 bang; 12 | #X msg 103 129 a b c d; 13 | #X text 94 70 Serialize a list immediatly (same as [list-drip] from 14 | the [list]-abs collection); 15 | #X connect 0 0 3 0; 16 | #X connect 0 0 5 0; 17 | #X connect 0 1 4 0; 18 | #X connect 2 0 7 0; 19 | #X connect 5 0 6 0; 20 | #X connect 7 0 0 0; 21 | #X connect 7 1 5 1; 22 | #X connect 8 0 0 0; 23 | #X connect 9 0 7 0; 24 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_listdrip.pd: -------------------------------------------------------------------------------- 1 | #N canvas 218 94 842 634 10; 2 | #X obj 63 84 t a a; 3 | #X obj 63 241 spigot; 4 | #X obj 102 149 bang; 5 | #X obj 102 168 1; 6 | #X obj 223 149 route bang; 7 | #X obj 183 150 bang; 8 | #X obj 183 169 0; 9 | #X obj 102 114 list split 2; 10 | #X obj 232 379 list split; 11 | #X obj 299 328 list length; 12 | #X obj 299 350 >> 1; 13 | #X obj 63 260 t a a a a; 14 | #X obj 63 446 list split; 15 | #X obj 130 398 list length; 16 | #X obj 130 423 >> 1; 17 | #X obj 31 19 inlet; 18 | #X obj 290 175 outlet; 19 | #X text 73 19 Copyright 2009 by Mathieu Bouchard; 20 | #X obj 31 53 t b a; 21 | #X obj 465 119 outlet; 22 | #X text 520 121 signal end of list; 23 | #X text 381 23 made compatible with [list-drip]: fbar 2009; 24 | #X connect 0 0 1 0; 25 | #X connect 0 1 7 0; 26 | #X connect 1 0 11 0; 27 | #X connect 2 0 3 0; 28 | #X connect 3 0 1 1; 29 | #X connect 4 1 16 0; 30 | #X connect 5 0 6 0; 31 | #X connect 6 0 1 1; 32 | #X connect 7 0 2 0; 33 | #X connect 7 2 4 0; 34 | #X connect 7 2 5 0; 35 | #X connect 8 0 0 0; 36 | #X connect 9 0 10 0; 37 | #X connect 10 0 8 1; 38 | #X connect 11 0 12 0; 39 | #X connect 11 1 13 0; 40 | #X connect 11 2 8 0; 41 | #X connect 11 3 9 0; 42 | #X connect 12 1 0 0; 43 | #X connect 13 0 14 0; 44 | #X connect 14 0 12 1; 45 | #X connect 15 0 18 0; 46 | #X connect 18 0 19 0; 47 | #X connect 18 1 0 0; 48 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_listfilter-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 367 75 578 673 10; 2 | #X obj 226 453 mod 2; 3 | #X obj 226 483 != 0; 4 | #X obj 274 454 mod 3; 5 | #X obj 274 483 != 0; 6 | #X obj 226 517 &&; 7 | #X obj 226 426 t a a; 8 | #N canvas 0 0 450 300 show 0; 9 | #X obj 129 107 list prepend set; 10 | #X obj 129 129 list trim; 11 | #X obj 129 79 inlet; 12 | #X obj 129 154 outlet; 13 | #X connect 0 0 1 0; 14 | #X connect 1 0 3 0; 15 | #X connect 2 0 0 0; 16 | #X restore 70 548 pd show; 17 | #X msg 70 574; 18 | #X text 62 27 [u_listfilter]; 19 | #X text 66 58 [u_listfilter] returns a sequence consisting of those 20 | items from the sequence for which the user-defined operation cross-connected 21 | to the rightmost in- and outlet is true.; 22 | #X text 66 112 Everything that is not 0 is considered a TRUE value. 23 | Internally [select 0] is used.; 24 | #X msg 70 213 0 1 2 3 4 5; 25 | #N canvas 0 0 450 300 show 0; 26 | #X obj 129 107 list prepend set; 27 | #X obj 129 129 list trim; 28 | #X obj 129 79 inlet; 29 | #X obj 129 154 outlet; 30 | #X connect 0 0 1 0; 31 | #X connect 1 0 3 0; 32 | #X connect 2 0 0 0; 33 | #X restore 70 306 pd show; 34 | #X msg 70 332; 35 | #X obj 167 266 >= 3; 36 | #X text 67 163 Examples:; 37 | #X text 217 266 remove values smaller than 3 from list; 38 | #X obj 160 212 t b a; 39 | #X floatatom 160 193 5 0 0 0 - - -; 40 | #X text 200 212 "bang" to [u_listfilter] will resend the last list; 41 | #X text 70 362 Calculate some small primes:; 42 | #X msg 70 387 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 43 | 23 24; 44 | #X msg 82 526 bang; 45 | #X msg 79 285 bang; 46 | #X obj 70 265 u_listfilter; 47 | #X obj 70 471 u_listfilter; 48 | #X connect 0 0 1 0; 49 | #X connect 1 0 4 0; 50 | #X connect 2 0 3 0; 51 | #X connect 3 0 4 1; 52 | #X connect 4 0 25 1; 53 | #X connect 5 0 0 0; 54 | #X connect 5 1 2 0; 55 | #X connect 6 0 7 0; 56 | #X connect 11 0 24 0; 57 | #X connect 12 0 13 0; 58 | #X connect 14 0 24 1; 59 | #X connect 17 0 24 0; 60 | #X connect 17 1 14 1; 61 | #X connect 18 0 17 0; 62 | #X connect 21 0 25 0; 63 | #X connect 22 0 6 0; 64 | #X connect 23 0 12 0; 65 | #X connect 24 0 12 0; 66 | #X connect 24 1 14 0; 67 | #X connect 25 0 6 0; 68 | #X connect 25 1 5 0; 69 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_listfilter.pd: -------------------------------------------------------------------------------- 1 | #N canvas 728 203 519 432 10; 2 | #X obj 86 33 inlet; 3 | #X obj 275 52 inlet; 4 | #X obj 151 352 outlet; 5 | #X obj 169 268 outlet; 6 | #X obj 326 250 list prepend; 7 | #X obj 405 220 t a; 8 | #X obj 86 58 route bang; 9 | #X obj 86 83 b; 10 | #X obj 151 84 t b a; 11 | #X obj 151 124 list; 12 | #X obj 275 111 select 0; 13 | #X obj 326 133 b; 14 | #X obj 326 209 list; 15 | #X obj 169 244 t a a; 16 | #X obj 151 317 list; 17 | #X obj 151 155 t b a b b b; 18 | #X obj 169 215 u_listdrip; 19 | #X connect 0 0 6 0; 20 | #X connect 1 0 10 0; 21 | #X connect 4 0 5 0; 22 | #X connect 4 0 14 1; 23 | #X connect 5 0 4 1; 24 | #X connect 6 0 7 0; 25 | #X connect 6 1 8 0; 26 | #X connect 7 0 9 0; 27 | #X connect 8 0 9 0; 28 | #X connect 8 1 9 1; 29 | #X connect 9 0 15 0; 30 | #X connect 10 1 11 0; 31 | #X connect 11 0 12 0; 32 | #X connect 12 0 4 0; 33 | #X connect 13 0 3 0; 34 | #X connect 13 1 12 1; 35 | #X connect 14 0 2 0; 36 | #X connect 15 0 14 0; 37 | #X connect 15 1 16 0; 38 | #X connect 15 2 14 1; 39 | #X connect 15 3 4 1; 40 | #X connect 15 4 12 1; 41 | #X connect 16 0 13 0; 42 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_listmap.pd: -------------------------------------------------------------------------------- 1 | #N canvas 470 232 489 423 10; 2 | #X obj 86 33 inlet; 3 | #X obj 275 52 inlet; 4 | #X obj 151 352 outlet; 5 | #X obj 170 248 outlet; 6 | #X obj 151 317 list; 7 | #X obj 275 215 list prepend; 8 | #X obj 354 185 t a; 9 | #X obj 151 155 t b a a b; 10 | #X obj 86 58 route bang; 11 | #X obj 86 83 b; 12 | #X obj 151 84 t b a; 13 | #X obj 151 124 list; 14 | #X obj 170 215 u_listdrip; 15 | #X connect 0 0 8 0; 16 | #X connect 1 0 5 0; 17 | #X connect 4 0 2 0; 18 | #X connect 5 0 6 0; 19 | #X connect 5 0 4 1; 20 | #X connect 6 0 5 1; 21 | #X connect 7 0 4 0; 22 | #X connect 7 1 12 0; 23 | #X connect 7 2 4 1; 24 | #X connect 7 3 5 1; 25 | #X connect 8 0 9 0; 26 | #X connect 8 1 10 0; 27 | #X connect 9 0 11 0; 28 | #X connect 10 0 11 0; 29 | #X connect 10 1 11 1; 30 | #X connect 11 0 7 0; 31 | #X connect 12 0 3 0; 32 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_listnth-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 0 789 629 10; 2 | #X floatatom 275 339 5 0 0 1 n - -; 3 | #X text 136 110 Inlets: 1) list to look up in; 4 | #X text 136 48 look up the nth element in a list. n has to be positive 5 | and is zero-based!; 6 | #X obj 215 392 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 7 | -1 -1; 8 | #X text 193 129 2) number giving position to filter. Zero-based \, 9 | positive.; 10 | #X msg 201 238 0 1 2 3 4 5 6; 11 | #X text 138 83 Argument: ; 12 | #X msg 223 300 a b c d e; 13 | #X msg 201 469; 14 | #X msg 149 395 bang; 15 | #X msg 218 266 list x y z; 16 | #X text 310 301 non-lists get converted to proper lists.; 17 | #X text 134 162 Note: negative postion numbers give no output \, lists 18 | longer than the index give a spurious 0 as result \, but also an error 19 | in the console: "$x: argument out of range".; 20 | #X obj 201 364 u_listnth 2; 21 | #X text 57 26 u_listnth; 22 | #X obj 201 425 list prepend set; 23 | #X obj 201 446 list trim; 24 | #X connect 0 0 13 1; 25 | #X connect 5 0 13 0; 26 | #X connect 7 0 13 0; 27 | #X connect 9 0 15 0; 28 | #X connect 10 0 13 0; 29 | #X connect 13 0 3 0; 30 | #X connect 13 0 15 0; 31 | #X connect 15 0 16 0; 32 | #X connect 16 0 8 0; 33 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_listnth.pd: -------------------------------------------------------------------------------- 1 | #N canvas 279 230 450 300 10; 2 | #X obj 116 86 list; 3 | #X msg 203 167 set \, adddollar \$1; 4 | #X obj 116 259 outlet; 5 | #X obj 116 57 inlet; 6 | #X obj 171 88 f \$1; 7 | #X obj 217 58 loadbang; 8 | #X obj 171 57 inlet; 9 | #X obj 171 111 moses; 10 | #X obj 203 133 + 1; 11 | #X msg 171 145 set; 12 | #X msg 116 227 \$1; 13 | #X connect 0 0 10 0; 14 | #X connect 1 0 10 0; 15 | #X connect 3 0 0 0; 16 | #X connect 4 0 7 0; 17 | #X connect 5 0 4 0; 18 | #X connect 6 0 4 0; 19 | #X connect 7 0 9 0; 20 | #X connect 7 1 8 0; 21 | #X connect 8 0 1 0; 22 | #X connect 9 0 10 0; 23 | #X connect 10 0 2 0; 24 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_listreduce.pd: -------------------------------------------------------------------------------- 1 | #N canvas 238 102 593 526 10; 2 | #X obj 86 33 inlet; 3 | #X obj 275 52 inlet; 4 | #X obj 151 352 outlet; 5 | #X obj 205 353 outlet; 6 | #X obj 86 58 route bang; 7 | #X obj 86 83 b; 8 | #X obj 151 84 t b a; 9 | #X obj 151 124 list; 10 | #X obj 151 233 list split 2; 11 | #X obj 151 155 t a b; 12 | #X obj 275 189 list append; 13 | #X text 53 386 [list-reduce]; 14 | #X text 55 423 [list-reduce] returns a single value constructed by 15 | calling the user-defined objects connected to the right outlet on the 16 | first two items of the sequence \, then on the result (if it comes 17 | in through the right inlet) and the next item \, and so on.; 18 | #X obj 275 124 list split 1; 19 | #X connect 0 0 4 0; 20 | #X connect 1 0 13 0; 21 | #X connect 4 0 5 0; 22 | #X connect 4 1 6 0; 23 | #X connect 5 0 7 0; 24 | #X connect 6 0 7 0; 25 | #X connect 6 1 7 1; 26 | #X connect 7 0 9 0; 27 | #X connect 8 0 3 0; 28 | #X connect 8 1 10 1; 29 | #X connect 8 2 2 0; 30 | #X connect 9 0 8 0; 31 | #X connect 9 1 10 1; 32 | #X connect 10 0 8 0; 33 | #X connect 13 0 10 0; 34 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_listser-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 346 237 562 384 10; 2 | #X obj 188 210 bng 15 250 50 0 empty empty end_of_list 17 7 1 10 -262144 3 | -1 -1; 4 | #X msg 188 159 1 2 3 4 5; 5 | #X msg 128 107 bang; 6 | #X floatatom 128 227 5 0 0 0 - - -; 7 | #X text 60 35 u_listser; 8 | #X text 262 157 list to serialize; 9 | #X obj 260 186 spigot; 10 | #X obj 314 185 tgl 15 0 empty empty loop 17 7 1 10 -262144 -1 -1 0 11 | 1; 12 | #X obj 128 185 u_listser; 13 | #X obj 128 247 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 14 | -1 -1; 15 | #X text 177 109 Output the next element of the list; 16 | #X text 90 62 serialize a list on demand. (same as [list-dripslow] 17 | from the [list]-abs collection); 18 | #X connect 1 0 8 1; 19 | #X connect 2 0 8 0; 20 | #X connect 3 0 9 0; 21 | #X connect 6 0 1 0; 22 | #X connect 7 0 6 1; 23 | #X connect 8 0 3 0; 24 | #X connect 8 1 0 0; 25 | #X connect 8 1 6 0; 26 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_listser.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 0 450 300 10; 2 | #N canvas 0 0 533 407 dripslow 0; 3 | #X obj 87 232 list split 1; 4 | #X obj 87 207 list append; 5 | #X obj 87 283 outlet; 6 | #X obj 87 83 inlet; 7 | #X obj 166 283 outlet; 8 | #X obj 161 81 inlet; 9 | #X obj 87 118 b; 10 | #X text 204 82 list; 11 | #X text 42 83 bang; 12 | #X text 210 283 EOL; 13 | #X text 28 282 element; 14 | #X obj 166 253 b; 15 | #X connect 0 0 2 0; 16 | #X connect 0 1 1 1; 17 | #X connect 0 2 11 0; 18 | #X connect 1 0 0 0; 19 | #X connect 3 0 6 0; 20 | #X connect 5 0 1 1; 21 | #X connect 6 0 1 0; 22 | #X connect 11 0 4 0; 23 | #X restore 149 136 pd dripslow; 24 | #X obj 149 199 outlet; 25 | #X obj 149 73 inlet; 26 | #X obj 223 199 outlet; 27 | #X obj 223 71 inlet; 28 | #X text 267 70 list; 29 | #X text 105 71 bang; 30 | #X text 276 200 EOL; 31 | #X text 94 198 element; 32 | #X connect 0 0 1 0; 33 | #X connect 0 1 3 0; 34 | #X connect 2 0 0 0; 35 | #X connect 4 0 0 1; 36 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_loader-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 341 323 756 361 10; 2 | #X text 134 100 Please see help for rjsave-ex:; 3 | #X obj 148 130 rjsave-ex rjload; 4 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_loader.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 0 797 492 10; 2 | #X obj 151 86 route persist; 3 | #X obj 151 117 list prepend \$1; 4 | #X obj 150 196 list trim; 5 | #X obj 150 222 route \$1; 6 | #X msg 150 328 setonly \$1; 7 | #X obj 150 248 t a a; 8 | #X obj 150 306 list; 9 | #X obj 150 174 r RJ_SCENE_LOAD; 10 | #X obj 151 144 s RJ_SCENE; 11 | #X obj 305 98 r RJ_SCENE_SAVE; 12 | #X obj 151 54 r \$2-SSSAD_ADMIN; 13 | #X obj 150 352 s \$2-SSSAD_ADMIN; 14 | #X obj 182 270 s \$2-SSSAD; 15 | #X obj 305 137 s \$2-SSSAD_ADMIN; 16 | #X msg 429 97 save; 17 | #X obj 429 71 inlet; 18 | #X obj 57 131 outlet; 19 | #X text 35 94 Store presets; 20 | #X connect 0 0 1 0; 21 | #X connect 0 0 16 0; 22 | #X connect 1 0 8 0; 23 | #X connect 2 0 3 0; 24 | #X connect 3 0 5 0; 25 | #X connect 4 0 11 0; 26 | #X connect 5 0 6 0; 27 | #X connect 5 1 12 0; 28 | #X connect 6 0 4 0; 29 | #X connect 7 0 2 0; 30 | #X connect 9 0 13 0; 31 | #X connect 10 0 0 0; 32 | #X connect 14 0 13 0; 33 | #X connect 15 0 14 0; 34 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_loadmeter-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 0 455 244 10; 2 | #X obj 90 110 u_loadmeter; 3 | #X text 61 27 u_loadmeter; 4 | #X text 84 51 Graphical CPU load meter.; 5 | #X text 83 77 Shows CPU load in percent.; 6 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_loadmeter.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 0 511 388 10; 2 | #X obj 296 156 cputime; 3 | #X obj 296 100 metro 1000; 4 | #X obj 296 128 t b b; 5 | #X obj 296 216 * 0.1; 6 | #X obj 296 185 int; 7 | #X text 356 62 <-- on/off; 8 | #X text 229 272 CPU load in percent; 9 | #X obj 296 16 inlet; 10 | #X obj 296 241 outlet; 11 | #X text 423 259 by Miller S. Puckette; 12 | #X floatatom 201 103 5 0 0 0 - - -; 13 | #X obj 184 103 tgl 14 0 \$0-on \$0-on empty 17 7 0 10 -262144 -1 -1 14 | 1 1; 15 | #X obj 296 65 r \$0-on; 16 | #X obj 296 39 s \$0-on; 17 | #X connect 0 0 4 0; 18 | #X connect 1 0 2 0; 19 | #X connect 2 0 0 0; 20 | #X connect 2 1 0 1; 21 | #X connect 3 0 8 0; 22 | #X connect 3 0 10 0; 23 | #X connect 4 0 3 0; 24 | #X connect 7 0 13 0; 25 | #X connect 12 0 1 0; 26 | #X coords 0 -1 1 1 140 20 1 100 100; 27 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_lowpass-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 240 143 845 532 10; 2 | #X obj 423 224 mtof; 3 | #X floatatom 483 193 5 0 0 2 BW - -; 4 | #X floatatom 423 192 5 0 0 2 freq - -; 5 | #N canvas 0 0 450 300 show 0; 6 | #X obj 41 39 inlet; 7 | #X obj 186 36 inlet; 8 | #X obj 41 124 outlet; 9 | #X msg 186 76 set; 10 | #X obj 41 59 list prepend set; 11 | #X obj 41 83 list trim; 12 | #X connect 0 0 4 0; 13 | #X connect 1 0 3 0; 14 | #X connect 3 0 2 0; 15 | #X connect 4 0 5 0; 16 | #X connect 5 0 2 0; 17 | #X restore 423 294 pd show; 18 | #X msg 423 327; 19 | #X obj 423 262 u_lowpass; 20 | #X text 513 265 args: ; 21 | #X text 120 91 u_lowpass is controlled by a bandwidth which is expressed 22 | in octaves. A bandwidth of 100 is equivalent to one octave.; 23 | #X obj 209 187 noise~; 24 | #X obj 108 346 env~; 25 | #X obj 210 233 *~ 0.3; 26 | #X obj 170 302 e_beequad; 27 | #X obj 171 437 soundoutput; 28 | #X text 66 26 u_lowpass; 29 | #X obj 171 404 c_xfade; 30 | #X text 120 48 Compute biquad coefficients for a resonant lowpass 31 | filter. Designed to be used with [biquad~] or [e_beequad]; 32 | #X msg 481 294 reset; 33 | #X obj 255 304 biquad~; 34 | #X obj 108 369 - 100; 35 | #X obj 109 393 vu 15 80 empty empty -1 -8 0 10 -66577 -1 0 0; 36 | #X obj 293 345 env~; 37 | #X obj 293 368 - 100; 38 | #X obj 294 392 vu 15 80 empty empty -1 -8 0 10 -66577 -1 0 0; 39 | #X obj 220 383 hsl 32 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144 40 | -1 -1 0 1; 41 | #X text 122 136 Both inlets are hot and trigger new coefficients.; 42 | #X connect 0 0 5 0; 43 | #X connect 1 0 5 1; 44 | #X connect 2 0 0 0; 45 | #X connect 3 0 4 0; 46 | #X connect 5 0 3 0; 47 | #X connect 5 0 11 1; 48 | #X connect 5 0 17 0; 49 | #X connect 8 0 10 0; 50 | #X connect 9 0 18 0; 51 | #X connect 10 0 11 0; 52 | #X connect 10 0 17 0; 53 | #X connect 11 0 9 0; 54 | #X connect 11 0 14 0; 55 | #X connect 14 0 12 0; 56 | #X connect 14 0 12 1; 57 | #X connect 16 0 3 1; 58 | #X connect 17 0 20 0; 59 | #X connect 17 0 14 1; 60 | #X connect 18 0 19 0; 61 | #X connect 20 0 21 0; 62 | #X connect 21 0 22 0; 63 | #X connect 23 0 14 2; 64 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_lowpassq-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 240 143 845 532 10; 2 | #X obj 423 224 mtof; 3 | #X floatatom 490 192 5 0 0 2 Q - -; 4 | #X floatatom 423 192 5 0 0 2 freq - -; 5 | #N canvas 0 0 450 300 show 0; 6 | #X obj 41 39 inlet; 7 | #X obj 186 36 inlet; 8 | #X obj 41 124 outlet; 9 | #X msg 186 76 set; 10 | #X obj 41 59 list prepend set; 11 | #X obj 41 83 list trim; 12 | #X connect 0 0 4 0; 13 | #X connect 1 0 3 0; 14 | #X connect 3 0 2 0; 15 | #X connect 4 0 5 0; 16 | #X connect 5 0 2 0; 17 | #X restore 423 294 pd show; 18 | #X msg 423 327; 19 | #X obj 209 187 noise~; 20 | #X obj 108 346 env~; 21 | #X obj 210 233 *~ 0.3; 22 | #X obj 170 302 e_beequad; 23 | #X obj 171 437 soundoutput; 24 | #X obj 171 404 c_xfade; 25 | #X msg 481 294 reset; 26 | #X obj 255 304 biquad~; 27 | #X obj 108 369 - 100; 28 | #X obj 109 393 vu 15 80 empty empty -1 -8 0 10 -66577 -1 0 0; 29 | #X obj 293 345 env~; 30 | #X obj 293 368 - 100; 31 | #X obj 294 392 vu 15 80 empty empty -1 -8 0 10 -66577 -1 0 0; 32 | #X obj 220 383 hsl 32 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144 33 | -1 -1 0 1; 34 | #X text 122 136 Both inlets are hot and trigger new coefficients.; 35 | #X obj 423 262 u_lowpassq; 36 | #X text 513 265 args: ; 37 | #X text 66 26 u_lowpassq; 38 | #X text 120 48 Compute biquad coefficients for a resonant lowpass 39 | filter with Q. Designed to be used with [biquad~] or [e_beequad]; 40 | #X text 120 91 u_lowpassq is controlled by a Q (resonance) parameter. 41 | ; 42 | #X connect 0 0 20 0; 43 | #X connect 1 0 20 1; 44 | #X connect 2 0 0 0; 45 | #X connect 3 0 4 0; 46 | #X connect 5 0 7 0; 47 | #X connect 6 0 13 0; 48 | #X connect 7 0 8 0; 49 | #X connect 7 0 12 0; 50 | #X connect 8 0 6 0; 51 | #X connect 8 0 10 0; 52 | #X connect 10 0 9 0; 53 | #X connect 10 0 9 1; 54 | #X connect 11 0 3 1; 55 | #X connect 12 0 15 0; 56 | #X connect 12 0 10 1; 57 | #X connect 13 0 14 0; 58 | #X connect 15 0 16 0; 59 | #X connect 16 0 17 0; 60 | #X connect 18 0 10 2; 61 | #X connect 20 0 3 0; 62 | #X connect 20 0 8 1; 63 | #X connect 20 0 12 0; 64 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_samplebank-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 238 97 769 616 10; 2 | #X declare -path .; 3 | #X floatatom 255 487 8 0 0 3 dur_in_smps - -; 4 | #X floatatom 181 487 8 0 0 3 dur_in_ms - -; 5 | #X msg 140 282 info; 6 | #X msg 106 213 open; 7 | #X msg 142 335 sr 44100 \, info; 8 | #X msg 141 360 sr 22050 \, info; 9 | #X obj 440 475 s_playtable; 10 | #X obj 440 517 soundoutput; 11 | #X msg 584 443 sr 44100; 12 | #X msg 585 420 sr 22050; 13 | #X symbolatom 106 487 10 0 0 3 table_name - -; 14 | #X msg 585 475 stop; 15 | #X text 148 212 load a sample with opendialog; 16 | #X text 308 246 load a sample by path; 17 | #X text 262 339 Change the file samplerate \, that is used to calculate 18 | the duration in milliseconds; 19 | #X text 315 580 s_playtable can be used to play tables in the samplebank. 20 | ; 21 | #X text 56 16 u_samplebank; 22 | #X text 68 101 Arguments:; 23 | #X msg 123 246 open file_not_found.wav; 24 | #X text 95 43 Utility patch to load sample files into Pd tables. Also 25 | calculates duration in milliseconds. Available in stereo as [u_samplebank2] 26 | as well.; 27 | #X text 202 275 output list containing: 28 | ; 29 | #X obj 106 437 unpack s f f f; 30 | #X floatatom 339 487 6 0 0 3 samplerate - -; 31 | #X text 108 120
32 | ; 33 | #X obj 440 423 symbol \$0-sample; 34 | #X obj 106 397 u_samplebank \$0-sample; 35 | #X msg 440 401 bang; 36 | #X obj 173 169 declare -path .; 37 | #X text 101 145 You can add paths to search for soundfiles using "declare". 38 | ; 39 | #X text 101 170 Just add; 40 | #X text 289 169 to your _main.pd patch.; 41 | #X connect 2 0 25 0; 42 | #X connect 3 0 25 0; 43 | #X connect 4 0 25 0; 44 | #X connect 5 0 25 0; 45 | #X connect 6 0 7 0; 46 | #X connect 6 0 7 1; 47 | #X connect 8 0 6 1; 48 | #X connect 9 0 6 1; 49 | #X connect 11 0 6 1; 50 | #X connect 18 0 25 0; 51 | #X connect 21 0 10 0; 52 | #X connect 21 1 1 0; 53 | #X connect 21 2 0 0; 54 | #X connect 21 3 22 0; 55 | #X connect 24 0 6 0; 56 | #X connect 25 0 21 0; 57 | #X connect 26 0 24 0; 58 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_samplebank.pd: -------------------------------------------------------------------------------- 1 | #N canvas 346 149 858 647 10; 2 | #X obj 514 93 table \$1; 3 | #X obj 405 304 openpanel; 4 | #X obj 405 452 soundfiler; 5 | #X obj 314 208 bng 20 250 50 0 empty empty open-sample 0 -6 1 10 -262144 6 | -1 -1; 7 | #X obj 67 54 inlet; 8 | #X obj 67 90 list trim; 9 | #X obj 405 371 symbol; 10 | #X obj 534 281 list append \$2; 11 | #X obj 534 304 select 0; 12 | #X obj 534 257 loadbang; 13 | #X obj 197 361 / 22.05; 14 | #X obj 260 361 / 1000; 15 | #X obj 260 340 r \$0-sr; 16 | #X obj 67 167 s \$0-sr; 17 | #X obj 197 323 t a a; 18 | #X obj 108 491 outlet; 19 | #X obj 472 304 list; 20 | #X obj 405 206 b; 21 | #X msg 405 426 read -resize \$1 \$2; 22 | #X msg 494 363 bang; 23 | #X obj 405 402 list append \$1; 24 | #X obj 405 486 s \$0-samples; 25 | #X obj 133 221 r \$0-samples; 26 | #X obj 197 302 f; 27 | #X obj 67 122 route sr info open; 28 | #X obj 108 383 symbol \$1; 29 | #X obj 405 165 route bang; 30 | #X obj 108 463 list; 31 | #X obj 108 251 t b a; 32 | #X obj 108 437 pack s 0 0 22050; 33 | #X obj 217 411 r \$0-sr; 34 | #X connect 1 0 6 0; 35 | #X connect 2 0 21 0; 36 | #X connect 3 0 1 0; 37 | #X connect 4 0 5 0; 38 | #X connect 5 0 24 0; 39 | #X connect 6 0 20 0; 40 | #X connect 7 0 8 0; 41 | #X connect 8 1 6 0; 42 | #X connect 9 0 7 0; 43 | #X connect 10 0 29 1; 44 | #X connect 11 0 10 1; 45 | #X connect 12 0 11 0; 46 | #X connect 14 0 10 0; 47 | #X connect 14 1 29 2; 48 | #X connect 16 0 6 0; 49 | #X connect 17 0 1 0; 50 | #X connect 18 0 2 0; 51 | #X connect 19 0 6 0; 52 | #X connect 20 0 18 0; 53 | #X connect 22 0 28 0; 54 | #X connect 23 0 14 0; 55 | #X connect 24 0 13 0; 56 | #X connect 24 1 28 0; 57 | #X connect 24 2 26 0; 58 | #X connect 25 0 29 0; 59 | #X connect 26 0 17 0; 60 | #X connect 26 1 16 0; 61 | #X connect 27 0 15 0; 62 | #X connect 28 0 25 0; 63 | #X connect 28 1 23 0; 64 | #X connect 29 0 27 0; 65 | #X connect 30 0 29 3; 66 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_samplebank2-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 238 97 781 672 10; 2 | #X declare -path .; 3 | #X floatatom 255 507 8 0 0 3 dur_in_smps - -; 4 | #X floatatom 181 507 8 0 0 3 dur_in_ms - -; 5 | #X msg 140 302 info; 6 | #X msg 106 233 open; 7 | #X msg 142 355 sr 44100 \, info; 8 | #X msg 141 380 sr 22050 \, info; 9 | #X obj 440 537 soundoutput; 10 | #X msg 584 463 sr 44100; 11 | #X msg 585 440 sr 22050; 12 | #X symbolatom 106 547 12 0 0 3 table_base_name - -; 13 | #X msg 585 495 stop; 14 | #X text 148 232 load a sample with opendialog; 15 | #X text 308 266 load a sample by path; 16 | #X text 262 359 Change the file samplerate \, that is used to calculate 17 | the duration in milliseconds; 18 | #X text 68 131 Arguments:; 19 | #X msg 123 266 open file_not_found.wav; 20 | #X text 202 295 output list containing:
21 | ; 22 | #X obj 106 457 unpack s f f f; 23 | #X floatatom 339 507 6 0 0 3 samplerate - -; 24 | #X text 108 150
25 | ; 26 | #X obj 440 443 symbol \$0-sample; 27 | #X msg 440 421 bang; 28 | #X text 56 16 u_samplebank2; 29 | #X text 95 43 Utility patch to load sample stereo files into Pd tables. 30 | Also calculates duration in milliseconds. Available in mono as [u_samplebank] 31 | as well.; 32 | #X obj 106 417 u_samplebank2 \$0-sample; 33 | #X text 95 92 Left channel will be in table "ARGUMENT-1" \, right channel 34 | is in table "ARGUMENT-2"; 35 | #X obj 440 495 s_playtable2; 36 | #X text 315 600 s_playtable2 can be used to play stereo samples in 37 | the samplebank.; 38 | #X obj 183 199 declare -path .; 39 | #X text 111 175 You can add paths to search for soundfiles using "declare". 40 | ; 41 | #X text 111 200 Just add; 42 | #X text 299 199 to your _main.pd patch.; 43 | #X connect 2 0 24 0; 44 | #X connect 3 0 24 0; 45 | #X connect 4 0 24 0; 46 | #X connect 5 0 24 0; 47 | #X connect 7 0 26 1; 48 | #X connect 8 0 26 1; 49 | #X connect 10 0 26 1; 50 | #X connect 15 0 24 0; 51 | #X connect 17 0 9 0; 52 | #X connect 17 1 1 0; 53 | #X connect 17 2 0 0; 54 | #X connect 17 3 18 0; 55 | #X connect 20 0 26 0; 56 | #X connect 21 0 20 0; 57 | #X connect 24 0 17 0; 58 | #X connect 26 0 6 0; 59 | #X connect 26 1 6 1; 60 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_samplebank2.pd: -------------------------------------------------------------------------------- 1 | #N canvas 346 149 858 647 10; 2 | #X obj 405 304 openpanel; 3 | #X obj 405 452 soundfiler; 4 | #X obj 314 208 bng 20 250 50 0 empty empty open-sample 0 -6 1 10 -262144 5 | -1 -1; 6 | #X obj 67 54 inlet; 7 | #X obj 67 90 list trim; 8 | #X obj 405 371 symbol; 9 | #X obj 534 281 list append \$2; 10 | #X obj 534 304 select 0; 11 | #X obj 534 257 loadbang; 12 | #X obj 197 361 / 22.05; 13 | #X obj 260 361 / 1000; 14 | #X obj 260 340 r \$0-sr; 15 | #X obj 67 167 s \$0-sr; 16 | #X obj 197 323 t a a; 17 | #X obj 108 491 outlet; 18 | #X obj 472 304 list; 19 | #X obj 405 206 b; 20 | #X msg 494 363 bang; 21 | #X obj 405 402 list append \$1; 22 | #X obj 405 486 s \$0-samples; 23 | #X obj 133 221 r \$0-samples; 24 | #X obj 197 302 f; 25 | #X obj 67 122 route sr info open; 26 | #X obj 108 383 symbol \$1; 27 | #X obj 405 165 route bang; 28 | #X obj 108 463 list; 29 | #X obj 108 251 t b a; 30 | #X obj 108 437 pack s 0 0 22050; 31 | #X obj 217 411 r \$0-sr; 32 | #X obj 514 93 table \$1-1; 33 | #X obj 514 115 table \$1-2; 34 | #X msg 405 426 read -resize \$1 \$2-1 \$2-2; 35 | #X connect 0 0 5 0; 36 | #X connect 1 0 19 0; 37 | #X connect 2 0 0 0; 38 | #X connect 3 0 4 0; 39 | #X connect 4 0 22 0; 40 | #X connect 5 0 18 0; 41 | #X connect 6 0 7 0; 42 | #X connect 7 1 5 0; 43 | #X connect 8 0 6 0; 44 | #X connect 9 0 27 1; 45 | #X connect 10 0 9 1; 46 | #X connect 11 0 10 0; 47 | #X connect 13 0 9 0; 48 | #X connect 13 1 27 2; 49 | #X connect 15 0 5 0; 50 | #X connect 16 0 0 0; 51 | #X connect 17 0 5 0; 52 | #X connect 18 0 31 0; 53 | #X connect 20 0 26 0; 54 | #X connect 21 0 13 0; 55 | #X connect 22 0 12 0; 56 | #X connect 22 1 26 0; 57 | #X connect 22 2 24 0; 58 | #X connect 23 0 27 0; 59 | #X connect 24 0 16 0; 60 | #X connect 24 1 15 0; 61 | #X connect 25 0 14 0; 62 | #X connect 26 0 23 0; 63 | #X connect 26 1 21 0; 64 | #X connect 27 0 25 0; 65 | #X connect 28 0 27 3; 66 | #X connect 31 0 1 0; 67 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_sigm-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 272 196 802 516 10; 2 | #X msg 255 284 gain \$1; 3 | #X floatatom 255 264 5 0 0 1 gain - -; 4 | #X floatatom 98 278 5 0 0 0 - - -; 5 | #X floatatom 99 377 5 0 0 0 - - -; 6 | #X obj 167 398 tabwrite \$0-sigm; 7 | #X obj 167 169 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 8 | -1 -1; 9 | #X obj 167 254 - 50; 10 | #X obj 167 276 / 5; 11 | #X obj 167 215 t a a; 12 | #N canvas 0 0 450 300 (subpatch) 0; 13 | #X array \$0-sigm 100 float 2; 14 | #X coords 0 1 99 -1 200 140 1; 15 | #X restore 314 327 graph; 16 | #X obj 223 149 t b a; 17 | #X obj 226 126 hsl 128 15 -2 2 0 0 empty empty gain_-2...2 -2 -8 0 18 | 10 -262144 -1 -1 4300 1; 19 | #X obj 167 323 u_sigm MYSIGM; 20 | #X text 322 281 default gain is 1; 21 | #X msg 376 109 1; 22 | #N canvas 0 0 450 300 count100 0; 23 | #X obj 171 145 until; 24 | #X msg 171 88 100; 25 | #X obj 171 173 f 0; 26 | #X obj 202 174 + 1; 27 | #X obj 214 144 0; 28 | #X obj 171 116 t a b; 29 | #X obj 170 198 outlet; 30 | #X obj 171 61 inlet; 31 | #X connect 0 0 2 0; 32 | #X connect 1 0 5 0; 33 | #X connect 2 0 3 0; 34 | #X connect 2 0 6 0; 35 | #X connect 3 0 2 1; 36 | #X connect 4 0 2 1; 37 | #X connect 5 0 0 0; 38 | #X connect 5 1 4 0; 39 | #X connect 7 0 1 0; 40 | #X restore 167 190 pd count100; 41 | #X text 107 46 u_sigm - sigmoid function; 42 | #X connect 0 0 12 1; 43 | #X connect 1 0 0 0; 44 | #X connect 2 0 12 0; 45 | #X connect 5 0 15 0; 46 | #X connect 6 0 7 0; 47 | #X connect 7 0 12 0; 48 | #X connect 8 0 6 0; 49 | #X connect 8 1 4 1; 50 | #X connect 10 0 15 0; 51 | #X connect 10 1 1 0; 52 | #X connect 11 0 10 0; 53 | #X connect 12 0 3 0; 54 | #X connect 12 0 4 0; 55 | #X connect 14 0 11 0; 56 | #X connect 15 0 8 0; 57 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_sigm.pd: -------------------------------------------------------------------------------- 1 | #N canvas 257 60 730 457 10; 2 | #X obj 270 202 exp; 3 | #X obj 230 250 /; 4 | #X obj 270 222 + 1; 5 | #X obj 230 118 inlet; 6 | #X obj 230 281 outlet; 7 | #X obj 230 141 t a a; 8 | #X obj 270 183 * -1; 9 | #X obj 270 164 * 1; 10 | #X msg 230 200 1; 11 | #X obj 361 174 inlet; 12 | #X obj 420 145 loadbang; 13 | #X msg 420 170 gain 1; 14 | #X obj 288 139 r \$0-gain; 15 | #X obj 421 198 u_loader u_sigm-\$1 \$0; 16 | #X obj 361 228 u_dispatch \$0 gain; 17 | #X connect 0 0 2 0; 18 | #X connect 1 0 4 0; 19 | #X connect 2 0 1 1; 20 | #X connect 3 0 5 0; 21 | #X connect 5 0 8 0; 22 | #X connect 5 1 7 0; 23 | #X connect 6 0 0 0; 24 | #X connect 7 0 6 0; 25 | #X connect 8 0 1 0; 26 | #X connect 9 0 14 0; 27 | #X connect 10 0 11 0; 28 | #X connect 11 0 14 0; 29 | #X connect 12 0 7 1; 30 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_spinner-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 313 273 798 373 10; 2 | #X msg 254 181 items a b c d e; 3 | #X obj 119 204 u_spinner letters; 4 | #X symbolatom 119 230 10 0 0 0 - - -; 5 | #X floatatom 119 182 5 0 0 0 - - -; 6 | #X text 376 154 how many steps to count before activating the next 7 | item; 8 | #X text 377 178 list of items to choose; 9 | #X floatatom 235 230 5 0 0 0 - - -; 10 | #X text 61 46 u_spinner - select items from a list by a scaled index 11 | ; 12 | #X text 97 74 Useful for building "spinner" GUIs; 13 | #X obj 122 130 hsl 200 15 0 200 0 0 empty empty 0-200 -2 -8 1 10 -262144 14 | -1 -1 12600 1; 15 | #X msg 235 155 resolution 20; 16 | #X connect 0 0 1 1; 17 | #X connect 1 0 2 0; 18 | #X connect 1 1 6 0; 19 | #X connect 3 0 1 0; 20 | #X connect 9 0 3 0; 21 | #X connect 10 0 1 1; 22 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_spinner.pd: -------------------------------------------------------------------------------- 1 | #N canvas 256 175 900 519 10; 2 | #X obj 83 29 inlet; 3 | #X obj 269 29 inlet; 4 | #X obj 342 29 u_loader u_spinner-\$1 \$0; 5 | #X obj 269 115 u_dispatch \$0 items; 6 | #X obj 142 322 r \$0-items; 7 | #N canvas 0 0 691 471 lookup 0; 8 | #X obj 332 168 list; 9 | #X msg 148 176 set \, adddollar \$1; 10 | #X obj 116 259 outlet; 11 | #X obj 357 139 inlet; 12 | #X obj 84 46 inlet; 13 | #X obj 116 120 moses; 14 | #X obj 148 142 + 1; 15 | #X msg 116 154 set; 16 | #X msg 116 227 \$4; 17 | #X obj 84 73 t b a; 18 | #X connect 0 0 8 0; 19 | #X connect 1 0 8 0; 20 | #X connect 3 0 0 1; 21 | #X connect 4 0 9 0; 22 | #X connect 5 0 7 0; 23 | #X connect 5 1 6 0; 24 | #X connect 6 0 1 0; 25 | #X connect 7 0 8 0; 26 | #X connect 8 0 2 0; 27 | #X connect 9 0 0 0; 28 | #X connect 9 1 5 0; 29 | #X restore 82 348 pd lookup; 30 | #X obj 82 235 +; 31 | #X obj 82 278 clip 0 7; 32 | #X obj 82 405 outlet; 33 | #X obj 82 371 list; 34 | #X obj 159 256 list length; 35 | #X obj 159 277 - 1; 36 | #X obj 159 231 r \$0-items; 37 | #X obj 269 90 u_dispatch \$0 resolution; 38 | #X text 452 90 how many steps to count before activating the next item 39 | ; 40 | #X text 453 114 list of items to choose; 41 | #X obj 122 80 r \$0-resolution; 42 | #X msg 297 62 resolution 10 \, items a b c d e; 43 | #X obj 83 102 div 10; 44 | #X obj 83 125 change; 45 | #X obj 83 152 t f f; 46 | #X obj 82 177 -; 47 | #X obj 230 408 outlet; 48 | #X obj 82 304 t a a; 49 | #X connect 0 0 18 0; 50 | #X connect 1 0 13 0; 51 | #X connect 4 0 5 1; 52 | #X connect 5 0 9 0; 53 | #X connect 6 0 7 0; 54 | #X connect 7 0 6 1; 55 | #X connect 7 0 23 0; 56 | #X connect 9 0 8 0; 57 | #X connect 10 0 11 0; 58 | #X connect 11 0 7 2; 59 | #X connect 12 0 10 0; 60 | #X connect 13 0 3 0; 61 | #X connect 16 0 18 1; 62 | #X connect 17 0 13 0; 63 | #X connect 18 0 19 0; 64 | #X connect 19 0 20 0; 65 | #X connect 20 0 21 1; 66 | #X connect 20 1 21 0; 67 | #X connect 21 0 6 0; 68 | #X connect 23 0 5 0; 69 | #X connect 23 1 22 0; 70 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_stereo-help.pd: -------------------------------------------------------------------------------- 1 | #N canvas 520 91 852 486 10; 2 | #X text 61 41 A quick way to convert a mono effect into a stereo effect. 3 | Works for effects with 1 audio in and 1 audio out.; 4 | #X obj 63 170 u_stereo e_alias ali1; 5 | #X obj 63 122 osc~ 220; 6 | #X msg 236 141 freq \$1; 7 | #X obj 63 246 soundoutput; 8 | #X obj 135 121 osc~ 280; 9 | #X floatatom 237 122 5 0 0 0 - - -; 10 | #X text 283 123 Parameters depend on the effect used; 11 | #X connect 1 0 4 0; 12 | #X connect 1 1 4 1; 13 | #X connect 2 0 1 0; 14 | #X connect 3 0 1 2; 15 | #X connect 5 0 1 1; 16 | #X connect 6 0 3 0; 17 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj/u_stereo.pd: -------------------------------------------------------------------------------- 1 | #N canvas 227 381 852 486 10; 2 | #X obj 101 107 inlet~; 3 | #X obj 102 287 outlet~; 4 | #X obj 368 104 inlet; 5 | #X obj 274 287 outlet~; 6 | #X obj 275 107 inlet~; 7 | #X text 61 41 A quick way to convert a mono effect into a stereo effect. 8 | Works for effects with 1 audio in and 1 audio out.; 9 | #X obj 102 253 \$1 \$2 \$3 \$4 \$5; 10 | #X obj 274 251 \$1 \$2 \$3 \$4 \$5; 11 | #X connect 0 0 6 0; 12 | #X connect 2 0 6 1; 13 | #X connect 2 0 7 1; 14 | #X connect 4 0 7 0; 15 | #X connect 6 0 1 0; 16 | #X connect 7 0 3 0; 17 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj_image.pd: -------------------------------------------------------------------------------- 1 | #N canvas 259 204 450 300 10; 2 | #X obj 122 89 inlet; 3 | #X text 133 129 dummy; 4 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/rj_text.pd: -------------------------------------------------------------------------------- 1 | #N canvas 259 204 450 300 10; 2 | #X obj 122 89 inlet; 3 | #X text 133 129 dummy; 4 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/sd.txt: -------------------------------------------------------------------------------- 1 | 0 2 | 0 3 | 0.993326 4 | -0.173332 5 | -0.166666 6 | 0 7 | 0 8 | 0.94666 9 | 0.94666 10 | 0 11 | 0 12 | 0.919993 13 | 0.919993 14 | 0.839994 15 | 0 16 | 0 17 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/simple-synth.pd: -------------------------------------------------------------------------------- 1 | #N canvas 150 79 687 456 10; 2 | #X obj 172 88 soundinput; 3 | #X obj 158 397 soundoutput; 4 | #X obj 164 317 e_beequad myfilter; 5 | #X obj 163 230 s_osc myoscillator square; 6 | #X obj 368 276 m_keyfollow; 7 | #X obj 163 202 mtof; 8 | #X floatatom 163 179 5 0 0 0 key_freq - -; 9 | #X floatatom 368 187 5 0 0 0 filter_freq - -; 10 | #X obj 368 208 mtof; 11 | #X floatatom 439 308 5 0 0 0 Q - -; 12 | #X text 492 310 resonance !!; 13 | #X floatatom 467 276 5 0 0 1 key_follow_amount - -; 14 | #X text 221 350 Ah \, better.; 15 | #X obj 162 349 *~ 0.2; 16 | #X obj 330 304 u_lowpassq; 17 | #X text 357 98 That's it!. Bye; 18 | #X connect 2 0 13 0; 19 | #X connect 3 0 2 0; 20 | #X connect 4 0 14 0; 21 | #X connect 5 0 3 0; 22 | #X connect 5 0 4 1; 23 | #X connect 6 0 5 0; 24 | #X connect 7 0 8 0; 25 | #X connect 8 0 4 0; 26 | #X connect 9 0 14 1; 27 | #X connect 11 0 4 2; 28 | #X connect 13 0 1 0; 29 | #X connect 13 0 1 1; 30 | #X connect 14 0 2 1; 31 | -------------------------------------------------------------------------------- /scenes/Moogarina.rj/thumb.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nettoyeurny/Making-Musical-Apps/291dcef6eca078a416d51f821d44e1a4214110eb/scenes/Moogarina.rj/thumb.jpg -------------------------------------------------------------------------------- /scenes/WorldQuantizer.rj/Info.plist: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | info 6 | 7 | author 8 | Roman Haefeli 9 | description 10 | Records percussive sounds from your environment and rearranges them to rhythmic pattern. Try clapping your hands or use a pencil as a drum stick. 11 | name 12 | WorldQuantizer 13 | category 14 | Sing 15 | 16 | 17 | 18 | -------------------------------------------------------------------------------- /scenes/WorldQuantizer.rj/alternate.pd: -------------------------------------------------------------------------------- 1 | #N canvas 398 275 286 300 10; 2 | #X obj 7 9 inlet; 3 | #X obj 7 203 outlet; 4 | #X obj 61 205 outlet; 5 | #X obj 7 34 t a b; 6 | #X obj 39 60 f; 7 | #X obj 39 82 mod 2; 8 | #X obj 7 145 list prepend; 9 | #X obj 106 74 + 1; 10 | #X obj 7 169 route 0 1 -1; 11 | #X obj 39 109 spigot 1; 12 | #X obj 182 34 inlet; 13 | #X msg 182 113 -1; 14 | #X obj 182 61 t a a; 15 | #X obj 182 89 sel 0; 16 | #X connect 0 0 3 0; 17 | #X connect 3 0 6 0; 18 | #X connect 3 1 4 0; 19 | #X connect 4 0 5 0; 20 | #X connect 5 0 7 0; 21 | #X connect 5 0 9 0; 22 | #X connect 6 0 8 0; 23 | #X connect 7 0 4 1; 24 | #X connect 8 0 1 0; 25 | #X connect 8 1 2 0; 26 | #X connect 8 2 1 0; 27 | #X connect 8 2 2 0; 28 | #X connect 9 0 6 1; 29 | #X connect 10 0 12 0; 30 | #X connect 11 0 6 1; 31 | #X connect 12 0 13 0; 32 | #X connect 12 1 9 1; 33 | #X connect 13 0 11 0; 34 | -------------------------------------------------------------------------------- /scenes/WorldQuantizer.rj/balance.pd: -------------------------------------------------------------------------------- 1 | #N canvas 278 224 422 352 10; 2 | #X obj 46 202 inlet~; 3 | #X obj 45 261 outlet~; 4 | #X obj 45 234 *~; 5 | #X obj 134 204 inlet~; 6 | #X obj 133 263 outlet~; 7 | #X obj 133 236 *~; 8 | #X obj 62 12 lrtc \$1 bal; 9 | #X obj 62 129 clip 0 1; 10 | #X obj 62 82 * -1; 11 | #X obj 62 104 + 2; 12 | #X obj 160 130 clip 0 1; 13 | #X obj 62 52 / 63; 14 | #X msg 62 152 \$1 20; 15 | #X obj 62 175 line~; 16 | #X msg 159 152 \$1 20; 17 | #X obj 159 175 line~; 18 | #X obj 157 10 loadbang; 19 | #X msg 157 32 63; 20 | #X connect 0 0 2 0; 21 | #X connect 2 0 1 0; 22 | #X connect 3 0 5 0; 23 | #X connect 5 0 4 0; 24 | #X connect 6 0 11 0; 25 | #X connect 7 0 12 0; 26 | #X connect 8 0 9 0; 27 | #X connect 9 0 7 0; 28 | #X connect 10 0 14 0; 29 | #X connect 11 0 8 0; 30 | #X connect 11 0 10 0; 31 | #X connect 12 0 13 0; 32 | #X connect 13 0 2 1; 33 | #X connect 14 0 15 0; 34 | #X connect 15 0 5 1; 35 | #X connect 16 0 17 0; 36 | #X connect 17 0 11 0; 37 | -------------------------------------------------------------------------------- /scenes/WorldQuantizer.rj/bus.pd: -------------------------------------------------------------------------------- 1 | #N canvas 494 440 450 300 10; 2 | #X obj 33 41 catch~ bus\$1L; 3 | #X obj 137 42 catch~ bus\$1R; 4 | #X obj 34 74 outlet~; 5 | #X obj 138 76 outlet~; 6 | #X connect 0 0 2 0; 7 | #X connect 1 0 3 0; 8 | -------------------------------------------------------------------------------- /scenes/WorldQuantizer.rj/ctrl.pd: -------------------------------------------------------------------------------- 1 | #N canvas 469 471 186 184 10; 2 | #X obj 22 134 s sequencer; 3 | #X obj 22 112 list trim; 4 | #X obj 22 91 list prepend \$1; 5 | #X obj 22 69 list prepend \$2; 6 | #X obj 22 45 inlet; 7 | #X connect 1 0 0 0; 8 | #X connect 2 0 1 0; 9 | #X connect 3 0 2 0; 10 | #X connect 4 0 3 0; 11 | -------------------------------------------------------------------------------- /scenes/WorldQuantizer.rj/drumsynth.pd: -------------------------------------------------------------------------------- 1 | #N canvas 100 198 628 518 10; 2 | #X obj 75 168 dd.bd; 3 | #X obj 69 126 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 4 | -1; 5 | #X obj 116 167 dd.hh; 6 | #X obj 120 115 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 7 | -1 -1; 8 | #X obj 158 167 dd.sn; 9 | #X obj 176 120 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 10 | -1 -1; 11 | #X obj 199 167 tr808.clap; 12 | #X obj 230 129 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 13 | -1 -1; 14 | #X obj 275 167 tr808.kick; 15 | #X obj 296 127 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 16 | -1 -1; 17 | #X obj 66 405 throw~ bus1L; 18 | #X obj 156 405 throw~ bus1R; 19 | #X obj 67 352 *~; 20 | #X obj 357 272 r sequencer; 21 | #X obj 357 294 route \$1; 22 | #X msg 356 370 set bus\$1L; 23 | #X msg 377 350 set bus\$1R; 24 | #X obj 357 313 route bus volume; 25 | #X obj 291 377 line~; 26 | #X obj 291 354 pack 1 20; 27 | #X obj 291 332 loadbang; 28 | #X connect 1 0 0 0; 29 | #X connect 3 0 2 0; 30 | #X connect 5 0 4 0; 31 | #X connect 7 0 6 0; 32 | #X connect 9 0 8 0; 33 | #X connect 12 0 10 0; 34 | #X connect 12 0 11 0; 35 | #X connect 13 0 14 0; 36 | #X connect 14 0 17 0; 37 | #X connect 19 0 18 0; 38 | #X connect 20 0 19 0; 39 | -------------------------------------------------------------------------------- /scenes/WorldQuantizer.rj/fbdelay.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 0 450 300 10; 2 | #N canvas 362 223 450 300 delay 0; 3 | #X obj 57 73 inlet~; 4 | #X obj 60 208 outlet~; 5 | #X obj 203 71 inlet~; 6 | #X obj 210 204 outlet~; 7 | #X obj 74 171 delread~ yoL 250; 8 | #X obj 226 159 delread~ yoR 250; 9 | #X obj 72 124 delwrite~ yoL 10050; 10 | #X obj 226 123 delwrite~ yoR 10050; 11 | #X obj 312 215 r tick(ms); 12 | #X obj 365 146 *~ 0.5; 13 | #X obj 113 147 *~ 0.5; 14 | #X obj 312 240 * 2.999; 15 | #X obj 374 241 * 3.001; 16 | #X connect 0 0 1 0; 17 | #X connect 0 0 6 0; 18 | #X connect 2 0 3 0; 19 | #X connect 2 0 7 0; 20 | #X connect 4 0 1 0; 21 | #X connect 4 0 9 0; 22 | #X connect 5 0 3 0; 23 | #X connect 5 0 10 0; 24 | #X connect 8 0 11 0; 25 | #X connect 8 0 12 0; 26 | #X connect 9 0 7 0; 27 | #X connect 10 0 6 0; 28 | #X connect 11 0 4 0; 29 | #X connect 12 0 5 0; 30 | #X restore 113 132 pd delay; 31 | -------------------------------------------------------------------------------- /scenes/WorldQuantizer.rj/image.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/nettoyeurny/Making-Musical-Apps/291dcef6eca078a416d51f821d44e1a4214110eb/scenes/WorldQuantizer.rj/image.jpg -------------------------------------------------------------------------------- /scenes/WorldQuantizer.rj/lrtc.pd: -------------------------------------------------------------------------------- 1 | #N canvas 565 195 138 123 10; 2 | #X obj 16 14 r sequencer; 3 | #X obj 16 37 route \$1; 4 | #X obj 16 60 route \$2; 5 | #X obj 16 82 outlet; 6 | #X connect 0 0 1 0; 7 | #X connect 1 0 2 0; 8 | #X connect 2 0 3 0; 9 | -------------------------------------------------------------------------------- /scenes/WorldQuantizer.rj/mono.pd: -------------------------------------------------------------------------------- 1 | #N canvas 404 299 354 210 10; 2 | #X obj 80 85 f; 3 | #X obj 80 106 pack f 0; 4 | #X obj 21 132 outlet; 5 | #X msg 98 63 \$1; 6 | #X obj 21 40 t a a b; 7 | #X obj 21 15 inlet; 8 | #X text 10 171 makes monophonic output from polyphonic input; 9 | #X connect 0 0 1 0; 10 | #X connect 1 0 2 0; 11 | #X connect 3 0 0 1; 12 | #X connect 4 0 2 0; 13 | #X connect 4 1 3 0; 14 | #X connect 4 2 0 0; 15 | #X connect 5 0 4 0; 16 | -------------------------------------------------------------------------------- /scenes/WorldQuantizer.rj/phase.pd: -------------------------------------------------------------------------------- 1 | #N canvas 873 543 224 136 10; 2 | #X obj 32 52 outlet; 3 | #X obj 123 27 inlet; 4 | #X obj 32 28 r \$1-analyse; 5 | #X obj 124 48 f \$1; 6 | #X obj 125 68 s \$2; 7 | #X connect 1 0 3 0; 8 | #X connect 2 0 0 0; 9 | #X connect 3 0 4 0; 10 | -------------------------------------------------------------------------------- /scenes/WorldQuantizer.rj/phasespigot.pd: -------------------------------------------------------------------------------- 1 | #N canvas 0 0 397 397 10; 2 | #X obj 129 61 mod; 3 | #X obj 129 81 sel 0; 4 | #X obj 129 104 f; 5 | #X obj 129 126 sel \$1; 6 | #X msg 129 148 1; 7 | #X msg 168 149 0; 8 | #X obj 129 172 change -1; 9 | #X obj 147 41 r ticks_per_bar; 10 | #X obj 173 83 r out; 11 | #X obj 129 -23 r tick; 12 | #X obj 129 0 pipe 50; 13 | #X obj 90 197 spigot; 14 | #X obj 31 -6 inlet; 15 | #X obj 37 253 outlet; 16 | #X obj 129 21 - \$2; 17 | #X text 30 284 phasespigot ; 18 | #X obj 285 175 loadbang; 19 | #X obj 284 198 s restore; 20 | #X connect 0 0 1 0; 21 | #X connect 1 0 2 0; 22 | #X connect 2 0 3 0; 23 | #X connect 3 0 4 0; 24 | #X connect 3 1 5 0; 25 | #X connect 4 0 6 0; 26 | #X connect 5 0 6 0; 27 | #X connect 6 0 11 1; 28 | #X connect 7 0 0 1; 29 | #X connect 8 0 2 1; 30 | #X connect 9 0 10 0; 31 | #X connect 10 0 14 0; 32 | #X connect 11 0 13 0; 33 | #X connect 12 0 11 0; 34 | #X connect 14 0 0 0; 35 | #X connect 16 0 17 0; 36 | -------------------------------------------------------------------------------- /scenes/WorldQuantizer.rj/quant.pd: -------------------------------------------------------------------------------- 1 | #N canvas 416 230 450 300 10; 2 | #X obj 36 42 r tick; 3 | #X obj 161 44 inlet; 4 | #X obj 36 262 outlet; 5 | #X obj 36 214 list append; 6 | #X obj 36 146 f; 7 | #X obj 36 191 sel 1; 8 | #X obj 161 66 t b a; 9 | #X obj 161 87 1; 10 | #X obj 36 237 t a b; 11 | #X obj 164 191 0; 12 | #X obj 36 123 sel 0; 13 | #X obj 36 96 mod \$1; 14 | #X text 134 244 quant ; 15 | #X obj 36 168 pipe 50; 16 | #X obj 36 71 - \$2; 17 | #X obj 237 43 inlet; 18 | #X obj 286 43 inlet; 19 | #X connect 0 0 14 0; 20 | #X connect 1 0 6 0; 21 | #X connect 3 0 8 0; 22 | #X connect 4 0 13 0; 23 | #X connect 5 0 3 0; 24 | #X connect 6 0 7 0; 25 | #X connect 6 1 3 1; 26 | #X connect 7 0 4 1; 27 | #X connect 8 0 2 0; 28 | #X connect 8 1 9 0; 29 | #X connect 9 0 4 1; 30 | #X connect 10 0 4 0; 31 | #X connect 11 0 10 0; 32 | #X connect 13 0 5 0; 33 | #X connect 14 0 11 0; 34 | #X connect 15 0 11 1; 35 | #X connect 16 0 14 1; 36 | -------------------------------------------------------------------------------- /scenes/WorldQuantizer.rj/return.pd: -------------------------------------------------------------------------------- 1 | #N canvas 430 294 450 300 10; 2 | #X obj 84 82 inlet~; 3 | #X obj 218 80 inlet~; 4 | #X obj 83 207 throw~ sumL; 5 | #X obj 218 200 throw~ sumR; 6 | #X connect 0 0 2 0; 7 | #X connect 1 0 3 0; 8 | -------------------------------------------------------------------------------- /scenes/WorldQuantizer.rj/routelivein.pd: -------------------------------------------------------------------------------- 1 | #N canvas 440 88 560 445 10; 2 | #X obj 22 -48 r tick; 3 | #X obj 22 37 mod; 4 | #X obj 22 57 sel 0; 5 | #X obj 22 80 f; 6 | #X obj 22 170 s \$0.phase; 7 | #X obj 22 102 sel \$1; 8 | #X msg 22 124 1; 9 | #X msg 61 125 0; 10 | #X obj 22 148 change -1; 11 | #X obj 40 16 r ticks_per_bar; 12 | #X obj 22 -25 pipe 50; 13 | #X obj 66 59 r out; 14 | #X obj 216 -20 r \$0.phase; 15 | #X obj 22 -3 - \$2; 16 | #X obj 216 57 \$3; 17 | #X obj 216 106 s audioin; 18 | #X obj 216 4 sel 1 0; 19 | #X msg 216 78 bus \$1 \, on; 20 | #X obj 216 26 del 0; 21 | #X msg 298 83 off; 22 | #X text 26 215 routelivein ; 23 | #X text 17 258 this activates audio live input on specified bus at 24 | appropriate phase; 25 | #X text 261 27 do it after others switched off; 26 | #X connect 0 0 10 0; 27 | #X connect 1 0 2 0; 28 | #X connect 2 0 3 0; 29 | #X connect 3 0 5 0; 30 | #X connect 5 0 6 0; 31 | #X connect 5 1 7 0; 32 | #X connect 6 0 8 0; 33 | #X connect 7 0 8 0; 34 | #X connect 8 0 4 0; 35 | #X connect 9 0 1 1; 36 | #X connect 10 0 13 0; 37 | #X connect 11 0 3 1; 38 | #X connect 12 0 16 0; 39 | #X connect 13 0 1 0; 40 | #X connect 14 0 17 0; 41 | #X connect 16 0 18 0; 42 | #X connect 16 1 19 0; 43 | #X connect 17 0 15 0; 44 | #X connect 18 0 14 0; 45 | #X connect 19 0 15 0; 46 | -------------------------------------------------------------------------------- /scenes/WorldQuantizer.rj/sequence.pd: -------------------------------------------------------------------------------- 1 | #N canvas 451 340 460 352 10; 2 | #X text 36 294 vs.2; 3 | #X text 36 308 1993/94 by Karlheinz 4 | Essl; 5 | #X obj 39 260 outlet; 6 | #X obj 180 258 outlet; 7 | #X obj 39 38 inlet; 8 | #X obj 173 37 inlet; 9 | #X obj 217 91 list-len; 10 | #X obj 39 139 f 0; 11 | #X obj 70 138 + 1; 12 | #X obj 99 138 mod 1; 13 | #X msg 55 109 0; 14 | #X obj 173 63 t b a a; 15 | #X obj 180 216 select; 16 | #X obj 217 193 - 1; 17 | #X obj 39 171 t a a; 18 | #N canvas 0 0 450 300 nth 0; 19 | #X obj 113 155 list-idx; 20 | #X obj 113 129 list; 21 | #X obj 113 101 t b a; 22 | #X obj 113 80 inlet; 23 | #X obj 157 79 inlet; 24 | #X obj 113 178 outlet; 25 | #X connect 0 0 5 0; 26 | #X connect 1 0 0 0; 27 | #X connect 2 0 1 0; 28 | #X connect 2 1 0 1; 29 | #X connect 3 0 2 0; 30 | #X connect 4 0 1 1; 31 | #X restore 39 215 pd nth; 32 | #X text 149 139 modulo-count up to list length; 33 | #X text 246 261 bang on last element; 34 | #X text 52 237 lookup element; 35 | #X connect 4 0 7 0; 36 | #X connect 5 0 11 0; 37 | #X connect 6 0 9 1; 38 | #X connect 6 0 13 0; 39 | #X connect 7 0 8 0; 40 | #X connect 7 0 14 0; 41 | #X connect 8 0 9 0; 42 | #X connect 9 0 7 1; 43 | #X connect 10 0 7 1; 44 | #X connect 11 0 10 0; 45 | #X connect 11 1 15 1; 46 | #X connect 11 2 6 0; 47 | #X connect 12 0 3 0; 48 | #X connect 13 0 12 1; 49 | #X connect 14 0 15 0; 50 | #X connect 14 1 12 0; 51 | #X connect 15 0 2 0; 52 | --------------------------------------------------------------------------------