Hello,
after all the discussion about looping samplers etc., I have made a small abstraction patch that does pitchshifting. It uses susloop~ and the higher math externals, and I don't know if standard Pd has all those installed. Left input takes the sound, right input transposion in halftones. It is designed for a sample rate of 44100 Hz, but you can change that with a little editing.
So, yet another thing, anyone should have patched in Pd accomplished ;)
"Prisons are needed only to provide the illusion that courts and police are effective. They're a kind of job insurance." (Leto II. in: Frank Herbert, God Emperor of Dune) http://thomas.dergrossebruder.org/
#N canvas 0 0 720 590 10; #X obj 82 -88 inlet~; #X obj 211 -86 inlet; #N canvas 0 0 450 300 (subpatch) 0; #X array $0tmp 441 float 3; #A 0 -0.106185 -0.0540063 -0.0127022 0.00920458 0.0229685 0.0235601 0.0147748 0.00255383 -0.0117477 -0.029018 -0.0371065 -0.0266764 -0.01163 0.00659637 0.0260445 0.0403555 0.0533875 0.0748204 0.0984184 0.117513 0.134454 0.13526 0.128132 0.123279 0.111551 0.0994809 0.0909294 0.0883182 0.0926241 0.103257 0.112716 0.101809 0.07467 0.0439283 0.0164779 0.0092127 0.0168655 0.017182 0.00235639 -0.0272021 -0.0600168 -0.0754001 -0.0680977 -0.0499543 -0.0432302 -0.05446 -0.0741609 -0.094762 -0.0968289 -0.0785967 -0.0595343 -0.0499472 -0.0617646 -0.100479 -0.149678 -0.189083 -0.202568 -0.167854 -0.0882873 0.00740555 0.0845767 0.11538 0.101615 0.0744742 0.0817364 0.1338 0.206899 0.254833 0.236094 0.167538 0.08074 0.0198523 -0.00280562 -0.0120124 -0.0236579 -0.0517252 -0.0704733 -0.0591173 -0.0393743 -0.0451914 -0.0982264 -0.191212 -0.269186 -0.260506 -0.157968 -0.0155224 0.0911387 0.113726 0.0511649 -0.039854 -0.0914126 -0.0970605 -0.0803092 -0.0737249 -0.0957617 -0.136014 -0.168719 -0.187146 -0.206249 -0.234923 -0.271748 -0.2811 -0.244203 -0.170868 -0.0834151 -0.025433 -0.00844547 -0.0127093 -0.00674823 0.0305237 0.0906344 0.155294 0.20376 0.229389 0.239999 0.239013 0.220275 0.175407 0.100855 0.0100861 -0.0690658 -0.128416 -0.152928 -0.135361 -0.0946446 -0.0293252 0.0490696 0.114369 0.152064 0.165204 0.159164 0.142318 0.137906 0.135107 0.121815 0.0955453 0.0549795 0.0167241 -0.0127754 -0.0350254 -0.0563476 -0.0797106 -0.0998407 -0.105706 -0.0908465 -0.0709783 -0.0733562 -0.10018 -0.140021 -0.181301 -0.189799 -0.162353 -0.127477 -0.100925 -0.0888683 -0.0839598 -0.0659234 -0.0266852 0.0163485 0.0421273 0.0339047 -6.10472e-05 -0.0366404 -0.0618875 -0.0608451 -0.0432504 -0.0258021 -0.0111588 -0.00198996 0.00105282 -0.000670925 -0.00724899 -0.0297588 -0.0506442 -0.0520071 -0.0323661 0.0141226 0.0637442 0.0923898 0.0834509 0.0421003 -0.0125075 -0.0611397 -0.0841938 -0.0911498 -0.0975763 -0.110685 -0.128677 -0.136929 -0.118983 -0.0801784 -0.0260838 0.0304572 0.0779609 0.129853 0.188008 0.250583 0.30175 0.319952 0.287545 0.218294 0.145099 0.0824345 0.051274 0.0412449 0.0286728 0.00957864 -0.0142652 -0.0388964 -0.0533098 -0.0601829 -0.0796644 -0.116504 -0.163175 -0.200724 -0.208881 -0.186465 -0.149207 -0.120672 -0.105924 -0.0922226 -0.0724974 -0.0310834 0.0185317 0.0466577 0.0359373 -0.0175125 -0.0784202 -0.122241 -0.127245 -0.103617 -0.0820542 -0.0735199 -0.0852412 -0.100446 -0.106204 -0.0928356 -0.0626394 -0.0190402 0.0279718 0.0707685 0.108599 0.126559 0.116771 0.0824798 0.047526 0.0442733 0.0971365 0.189006 0.284083 0.340769 0.320015 0.2321 0.109329 -0.00862364 -0.0872149 -0.113936 -0.108625 -0.100036 -0.0911644 -0.0897672 -0.109259 -0.132274 -0.150958 -0.16057 -0.13862 -0.0820216 -0.00889063 0.0446131 0.0597059 0.0161767 -0.0818247 -0.186849 -0.252405 -0.243975 -0.179601 -0.0987114 -0.0347199 -0.0124737 -0.0332652 -0.063301 -0.0662516 -0.0426823 -0.00311688 0.0384701 0.0585248 0.0538086 0.0453903 0.0540694 0.0807298 0.116936 0.166183 0.21663 0.257736 0.27761 0.275063 0.266489 0.238224 0.195982 0.156571 0.112494 0.0641594 0.025199 -0.0124958 -0.0482873 -0.0650496 -0.0672974 -0.0626503 -0.0538243 -0.0462175 -0.0475489 -0.0506245 -0.0572374 -0.0605118 -0.0505367 -0.0198358 0.0172896 0.0331306 0.0325506 0.00335849 -0.0241708 -0.0403517 -0.0286639 0.0141044 0.0670042 0.0893014 0.0659154 -0.000491504 -0.0666533 -0.0911129 -0.0699635 -0.0266203 -0.00147532 -0.00602521 -0.0363886 -0.0561931 -0.0470731 -0.028675 -0.0167346 -0.0351032 -0.0744 -0.10853 -0.114029 -0.0857576 -0.0369682 0.0073663 0.0251372 0.025268 0.00791814 -0.00504764 0.00802984 0.0435246 0.093765 0.128757 0.124143 0.0746776 0.00582725 -0.0476502 -0.0582382 -0.0289716 0.00326688 0.0136055 -0.010659 -0.0513357 -0.0756168 -0.069207 -0.0440092 -0.0272129 -0.0360193 -0.0746693 -0.11858 -0.140717 -0.129394 -0.0818656 -0.0118205 0.0575994 0.100652 0.106613 0.075463 0.0193142 -0.0343591 -0.0612631 -0.0590145 -0.0442295 -0.0276095 -0.0242553 -0.0375354 -0.0481698 -0.0456472 -0.0321041 -0.015884 0.0022113 0.0157819 0.0235444 0.0269887 0.0216165 -3.19887e-05 -0.0359117 -0.0584469 -0.0590698 -0.0304863 0.0260463 0.0766921 0.100343 0.0886767 0.0551359 0.0195422 -0.00435408 -0.00843406 -0.00407349 -0.00432001 -0.0179798 -0.0417099 -0.0722238 -0.111829 -0.142817 -0.148316 -0.132697 -0.0880971 -0.0162963 0.0483932 0.092435 0.12059 0.139396 0.153085 0.171113 0.187986 0.168779 0.119137 0.0507633 -0.0224157 -0.0699934 -0.0931914 -0.0954058 -0.0921856 -0.0977115 -0.10631 -0.111141 -0.103924 -0.0887811 -0.0716376; #X coords 0 1 441 -1 200 140 1; #X restore 5 66 graph; #X obj 119 -25 metro 10; #X obj 212 212 outlet~; #X obj 298 -83 loadbang; #X obj 83 23 tabwrite~ $0tmp; #X obj 212 173 tabread4~ $0tmp; #X text 79 -105 sound in; #X text 13 217 made for samplerate: 44100; #X text 210 -105 pitch; #X obj 212 139 susloop~; #X msg 277 100 44100; #X msg 326 100 0; #X msg 363 100 441; #X obj 212 100 * 44100; #X obj 212 -16 / 12; #X obj 212 55 exp; #X obj 249 -16 log; #X msg 249 -40 2; #X obj 212 25 *; #X connect 0 0 6 0; #X connect 1 0 16 0; #X connect 3 0 6 0; #X connect 3 0 11 0; #X connect 5 0 3 0; #X connect 5 0 12 0; #X connect 5 0 13 0; #X connect 5 0 14 0; #X connect 5 0 19 0; #X connect 7 0 4 0; #X connect 11 0 7 0; #X connect 12 0 11 0; #X connect 13 0 11 1; #X connect 14 0 11 2; #X connect 15 0 11 0; #X connect 16 0 20 0; #X connect 17 0 15 0; #X connect 18 0 20 1; #X connect 19 0 18 0; #X connect 20 0 17 0;