kpof/kof_sphere.pd

#N canvas 46 74 965 545 10;
#X obj 61 72 cnv 15 198 31 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 65 76 tgl 15 1 /kof/\$1/state /kof/\$1/state on/off 17 7 0 10
-4034 -1 -1 1 1;
#N canvas 983 163 618 355 storage_&_osc 0;
#X obj 39 221 ds_reg \$2 /kof/\$1/fadetime;
#X obj 369 221 osc_bi \$2 /kof/\$1/fadetime;
#X obj 39 251 ds_reg \$2 /kof/\$1/state;
#X obj 369 251 osc_bi \$2 /kof/\$1/state;
#X obj 39 201 ds_reg \$2 /kof/\$1/media;
#X obj 369 201 osc_bi \$2 /kof/\$1/media;
#X obj 39 111 ds_reg \$2 /kof/\$1/pitch;
#X obj 369 111 osc_bi \$2 /kof/\$1/pitch;
#X obj 39 131 ds_reg \$2 /kof/\$1/yaw;
#X obj 369 131 osc_bi \$2 /kof/\$1/yaw;
#X obj 39 151 ds_reg \$2 /kof/\$1/fov;
#X obj 369 151 osc_bi \$2 /kof/\$1/fov;
#X obj 39 281 ds_reg \$2 /kof/\$1/alpha;
#X obj 369 281 osc_bi \$2 /kof/\$1/alpha;
#X restore 278 77 pd storage_&_osc;
#X obj 14 282 cnv 15 360 60 empty empty creation_arguments: 3 8 0 12
-191407 -1 0;
#X text 19 301 1st: module ID \, needs to be unique \; 2nd: storage
domain;
#N canvas 769 181 450 300 init 0;
#X obj 98 76 loadbang;
#X obj 98 98 list append \$1;
#X obj 173 74 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 98 121 \; /kof/\$1/yaw 0 \; /kof/\$1/pitch 0 \; /kof/\$1/fov
200 \; /kof/\$1/fadetime 0 \; /kof/\$1/alpha 0.5 \; /kof/\$1/state
1;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X restore 278 56 pd init;
#X text 34 356 TODO;
#X text 30 379 inversion corners top/bottom;
#X text 34 394 gestion film/image;
#X text 34 410 liste medias Cream;
#X floatatom 561 347 5 0 0 0 - - -, f 5;
#X obj 477 96 pofvisible 1;
#X floatatom 608 230 5 0 0 0 - - -, f 5;
#X obj 477 498 pofsphere 600 50;
#X floatatom 556 391 5 0 0 0 - - -, f 5;
#X obj 477 349 pofrotate x;
#X obj 477 389 pofrotate y;
#X obj 542 66 r /kof/\$1/state;
#N canvas 5 75 450 300 alpha 0;
#X obj 139 159 line;
#X obj 139 135 pack f f;
#X obj 192 115 r /kof/\$1/fadetime;
#X obj 139 181 outlet;
#X obj 139 80 r /kof/\$1/alpha;
#X connect 0 0 3 0;
#X connect 1 0 0 0;
#X connect 2 0 1 1;
#X connect 4 0 1 0;
#X restore 570 154 pd alpha;
#X obj 540 258 r /kof/\$1/pitch;
#X obj 632 320 r /kof/\$1/yaw;
#X obj 594 182 r /kof/\$1/fov;
#X obj 62 106 cnv 15 50 95 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 160 80 bng 15 250 50 0 /kof/\$1/media/openpanel empty open 17
7 0 10 -262144 -1 -1;
#X obj 77 131 vsl 15 60 0 1 0 0 /kof/\$1/alpha /kof/\$1/alpha alpha1
-10 -9 0 10 -262144 -1 -1 2950 0;
#X obj 137 131 vsl 15 60 -50 90 0 0 /kof/\$1/pitch /kof/\$1/pitch pitch
-10 -9 0 10 -262144 -1 -1 2107 0;
#X obj 183 131 vsl 15 60 -180 180 0 0 /kof/\$1/yaw /kof/\$1/yaw yaw
-10 -9 0 10 -262144 -1 -1 2950 0;
#X obj 227 131 vsl 15 60 0 1000 0 0 /kof/\$1/fov /kof/\$1/fov fov -10
-9 0 10 -262144 -1 -1 1180 0;
#X obj 477 232 poftranslate 0 0 200;
#X obj 750 258 pofimage /home/titi/work/media/textures/spherical/courtyard-lowres.jpg
tex;
#X obj 477 177 pofcolor 1 1 1 1;
#X obj 477 64 inlet;
#X obj 660 100 openpanel;
#X obj 660 80 symbol;
#X obj 793 211 symbol;
#X msg 793 233 set \$1;
#X obj 660 60 r /kof/\$1/media/openpanel;
#X obj 660 145 s /kof/\$1/media;
#X obj 795 182 r /kof/\$1/media;
#X obj 540 301 +;
#X obj 568 302 t b f;
#X obj 632 365 +;
#X obj 660 366 t b f;
#X obj 594 206 Line1 100;
#X obj 540 325 Line1 100;
#X obj 632 386 Line1 100;
#N canvas 10 75 433 416 get_relative_path 0;
#X obj 155 67 pofutil;
#X msg 155 43 dirbaseext \$1;
#X obj 155 87 route dirbaseext;
#X obj 155 115 list split 1;
#X obj 155 210 pofutil;
#X obj 155 230 route dirbaseext;
#X obj 155 255 unpack s s s;
#X msg 155 186 dirbaseext \$1;
#N canvas 490 325 450 300 strip_last_slash 0;
#X obj 89 36 inlet;
#X obj 89 214 outlet;
#X obj 89 68 list fromsymbol;
#X obj 89 95 t a a;
#X obj 89 169 list split;
#X obj 116 118 list length;
#X obj 116 138 - 1;
#X obj 89 190 list tosymbol;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X connect 4 0 7 0;
#X connect 5 0 6 0;
#X connect 6 0 4 1;
#X connect 7 0 1 0;
#X restore 155 155 pd strip_last_slash;
#X obj 189 309 pack s s s;
#X obj 214 285 unpack s s;
#X obj 155 21 inlet fullpath;
#X msg 189 331 list \$1/\$2.\$3;
#X obj 189 354 outlet dir/base.name;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 8 0;
#X connect 3 1 10 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 1 9 0;
#X connect 7 0 4 0;
#X connect 8 0 7 0;
#X connect 9 0 12 0;
#X connect 10 0 9 1;
#X connect 10 1 9 2;
#X connect 11 0 1 0;
#X connect 12 0 13 0;
#X restore 660 122 pd get_relative_path;
#X obj 477 443 kof_source;
#X obj 534 422 r /kof/\$1/media;
#X obj 534 468 pofsphere 600 50;
#X obj 661 343 r /kof/\$1/yaw;
#X obj 568 279 r /kof/\$2/pitch;
#X connect 10 0 15 1;
#X connect 11 0 30 0;
#X connect 12 0 28 3;
#X connect 14 0 16 1;
#X connect 15 0 16 0;
#X connect 16 0 47 0;
#X connect 17 0 11 0;
#X connect 18 0 30 4;
#X connect 19 0 39 0;
#X connect 20 0 41 0;
#X connect 21 0 43 0;
#X connect 28 0 15 0;
#X connect 30 0 28 0;
#X connect 31 0 11 0;
#X connect 32 0 46 0;
#X connect 33 0 32 0;
#X connect 34 0 35 0;
#X connect 35 0 29 0;
#X connect 36 0 33 0;
#X connect 39 0 44 0;
#X connect 40 0 39 0;
#X connect 40 1 39 1;
#X connect 41 0 45 0;
#X connect 42 0 41 0;
#X connect 42 1 41 1;
#X connect 43 0 28 3;
#X connect 44 0 15 1;
#X connect 45 0 16 1;
#X connect 46 0 37 0;
#X connect 47 0 13 0;
#X connect 47 1 49 0;
#X connect 48 0 47 1;
#X connect 50 0 42 0;
#X connect 51 0 40 0;
#X coords 0 -1 1 1 200 150 1 60 55;