1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125
|
#N canvas 68 110 477 406 10;
#X obj 5 2 cnv 15 450 20 empty empty logistic_sigmoid 2 11 1 18 -233017
-66577 0;
#X msg 422 3 pddp;
#X text 283 352 released under the GNU GPL;
#X floatatom 25 127 8 0 0 0 - - -;
#X floatatom 25 288 8 0 0 0 - - -;
#X obj 28 305 hsl 200 20 0 1 0 0 empty empty curved_output 22 11 1
12 -262144 -1 -1 0 1;
#X obj 28 101 hsl 200 20 0 1 0 0 empty empty raw_input 22 11 1 12 -261681
-1 -1 0 1;
#N canvas 273 69 474 407 draw_array 0;
#X msg 54 82 bang;
#X obj 54 133 until;
#X text 85 82 start;
#X obj 54 155 f;
#X obj 83 155 + 1;
#X obj 54 43 loadbang;
#X obj 54 210 trigger float float;
#X obj 127 157 select 0;
#X obj 53 343 tabwrite \$0-curve;
#X obj 139 53 trigger bang float;
#X obj 83 177 mod 200;
#X obj 54 287 / 200;
#X text 96 287 mapping output range: 0 to 1;
#N canvas 739 87 465 373 receive 0;
#X obj 253 33 receive \$0-y;
#X obj 253 57 moses;
#X obj 280 78 moses 201;
#X obj 331 99 bang;
#X msg 331 120 200;
#X obj 238 98 bang;
#X msg 238 119 0;
#X obj 91 56 moses;
#X obj 118 77 moses 201;
#X obj 169 98 bang;
#X msg 169 119 200;
#X obj 76 97 bang;
#X msg 76 118 0;
#X obj 91 32 receive \$0-x;
#X obj 118 169 / 200;
#X obj 280 170 / 200;
#X obj 118 249 send \$0-x-slider-receive;
#X obj 280 250 send \$0-y-slider-receive;
#X msg 281 193 1 \$1;
#X obj 280 221 -;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 1 1 2 0;
#X connect 2 0 15 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 4 0 15 0;
#X connect 5 0 6 0;
#X connect 6 0 15 0;
#X connect 7 0 11 0;
#X connect 7 1 8 0;
#X connect 8 0 14 0;
#X connect 8 1 9 0;
#X connect 9 0 10 0;
#X connect 10 0 14 0;
#X connect 11 0 12 0;
#X connect 12 0 14 0;
#X connect 13 0 7 0;
#X connect 14 0 16 0;
#X connect 15 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 17 0;
#X restore 265 348 pd receive from gcanvas;
#X obj 138 9 receive \$0-x-slider;
#X obj 54 108 cyclone/speedlim 100;
#X obj 53 313 logistic_sigmoid;
#X connect 0 0 15 0;
#X connect 1 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 6 0;
#X connect 4 0 10 0;
#X connect 5 0 0 0;
#X connect 6 0 11 0;
#X connect 6 1 8 1;
#X connect 7 0 1 1;
#X connect 9 0 0 0;
#X connect 9 1 16 1;
#X connect 10 0 3 1;
#X connect 10 0 7 0;
#X connect 11 0 16 0;
#X connect 14 0 9 0;
#X connect 15 0 1 0;
#X connect 16 0 8 0;
#X restore 377 71 pd draw_array;
#X text 16 351 (C) Copyright 2007 Free Software Foundation;
#X obj 25 217 logistic_sigmoid;
#X obj 139 167 hsl 50 15 0 1 0 1 \$0-x-slider \$0-x-slider-receive
x 5 9 0 11 -232576 -1 -1 2916 0;
#X floatatom 145 187 7 0 0 0 - - -;
#X text 17 39 This object curves the input range using a double-exponential
seat controlled by one parameter.;
#X text 15 71 (click in the gray area to play);
#N canvas 468 256 494 344 META 0;
#X text 12 155 HELP_PATCH_AUTHORS "pd meta" information added by Jonathan
Wilkes for Pd version 0.42.;
#X text 12 25 LICENSE GPL v2;
#X text 12 135 AUTHOR Cyrille Henry and Hans-Christoph Steiner;
#X text 12 115 OUTLET_0 float;
#X text 12 75 INLET_0 float;
#X text 12 5 KEYWORDS control abstraction;
#X text 12 45 DESCRIPTION curve the input range using a double-exponential
seat controlled by one parameter;
#X text 12 95 INLET_1 float;
#X restore 414 372 pd META;
#X obj 258 108 gcanvas 200 200;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-curve 200 float 0;
#X coords 0 1 199 0 200 200 1;
#X restore 258 108 graph;
#X obj 258 313 send \$0-x;
#X obj 400 312 send \$0-y;
#X connect 3 0 9 0;
#X connect 4 0 5 0;
#X connect 6 0 3 0;
#X connect 9 0 4 0;
#X connect 10 0 9 1;
#X connect 10 0 11 0;
#X connect 15 0 17 0;
#X connect 15 1 18 0;
|