[PD] font-chooser pidip

Wed Aug 18 10:43:43 CEST 2004

Hi,

I have maked a pd patch (a utility) in order to comfortably choose a font for make titles in pidip.

The text is fanny animated (I have created this utility in order to make some animated buttons 
that I have then inserted in a larger patch).

I hope that someone wants to spend one moment in order to see it 
for tell me that what must be improved in the programming
(i am new in pd-pdp-pidip).

It require 
external "playlist" by Yves Degoyon - http://ydegoyon.free.fr/software.html 
external "mergefilename" by Thomas Musil - http://pd.iem.at/iemlib/

The file is "choose-font-01.pd" (6.8K)

thanks for the time and (if there are) for the comments

--
Lazzaro
-------------- next part --------------
#N canvas 283 0 661 623 10;
#X obj 371 501 pdp_xv;
#X obj 550 26 loadbang;
#X obj 551 51 s loadbang;
#X obj 371 435 r loadbang;
#N canvas 413 55 564 528 testo 0;
#X obj 21 7 inlet video;
#X obj 72 476 outlet video;
#X msg 312 402 antialias 1;
#X floatatom 118 209 5 0 0 0 - - -;
#X floatatom 213 211 5 0 0 0 - - -;
#X floatatom 194 273 5 0 0 0 - - -;
#X floatatom 212 293 5 0 0 0 - - -;
#X floatatom 232 313 5 0 0 0 - - -;
#X obj 72 402 pdp_text -----------------;
#X floatatom 319 211 5 0 0 0 - - -;
#N canvas 485 124 450 300 tremor01 0;
#X obj 115 26 inlet metro;
#X obj 123 178 outlet xcoord;
#X obj 264 178 line;
#X floatatom 267 232 5 0 0 0 - - -;
#X msg 305 119 500;
#X obj 126 79 random 12;
#X obj 138 119 + 54;
#X connect 0 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 2 1;
#X connect 5 0 6 0;
#X connect 6 0 2 0;
#X connect 6 0 4 0;
#X restore 118 179 pd tremor01;
#N canvas 524 380 450 300 tremor02 0;
#X obj 115 26 inlet metro;
#X obj 126 79 random 10;
#X obj 122 230 outlet ycoord;
#X obj 158 188 line;
#X msg 199 154 500;
#X obj 138 119 + 16;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X connect 5 0 4 0;
#X restore 213 181 pd tremor02;
#N canvas 524 380 450 300 tremor03 0;
#X obj 115 26 inlet metro;
#X obj 115 228 outlet rotation;
#X floatatom 162 150 5 0 0 0 - - -;
#X floatatom 164 198 5 0 0 0 - - -;
#X obj 164 177 / 100;
#X obj 126 79 random 8;
#X obj 138 119 - 6;
#X obj 263 202 line;
#X msg 277 132 500;
#X connect 0 0 5 0;
#X connect 2 0 4 0;
#X connect 3 0 7 0;
#X connect 4 0 3 0;
#X connect 4 0 8 0;
#X connect 5 0 6 0;
#X connect 6 0 2 0;
#X connect 7 0 1 0;
#X connect 8 0 7 1;
#X restore 318 179 pd tremor03;
#X obj 330 118 r metro;
#X msg 245 253 250;
#X obj 249 119 r loadbang;
#X msg 13 401 clear;
#X obj 109 7 inlet messaggi;
#N canvas 45 165 337 433 format-text 0;
#X obj 78 42 inlet string;
#X obj 89 398 outlet message;
#X obj 181 87 r loadbang;
#X msg 155 263 clear;
#X obj -15 240 symbol;
#X msg -15 296 text test 20 20;
#X msg -15 266 set text \$1 20 20;
#X obj 127 166 symbol;
#X obj 128 190 trigger b s b;
#X obj 192 223 delay 10;
#X msg 196 112 test;
#X connect 0 0 7 0;
#X connect 2 0 10 0;
#X connect 3 0 1 0;
#X connect 4 0 6 0;
#X connect 5 0 1 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 3 0;
#X connect 8 1 4 0;
#X connect 8 2 9 0;
#X connect 9 0 5 0;
#X connect 10 0 7 0;
#X restore 414 283 pd format-text;
#X obj 461 19 inlet text;
#X text 271 255 <<--color white;
#X connect 0 0 8 0;
#X connect 2 0 8 0;
#X connect 3 0 8 2;
#X connect 4 0 8 3;
#X connect 5 0 8 4;
#X connect 6 0 8 5;
#X connect 7 0 8 6;
#X connect 8 0 1 0;
#X connect 9 0 8 7;
#X connect 10 0 3 0;
#X connect 11 0 4 0;
#X connect 12 0 9 0;
#X connect 13 0 10 0;
#X connect 13 0 11 0;
#X connect 13 0 12 0;
#X connect 14 0 7 0;
#X connect 14 0 6 0;
#X connect 14 0 5 0;
#X connect 15 0 2 0;
#X connect 15 0 14 0;
#X connect 16 0 8 0;
#X connect 17 0 8 0;
#X connect 18 0 8 0;
#X connect 19 0 18 0;
#X restore 131 416 pd testo;
#N canvas 201 57 614 483 fontchoser 0;
#X obj 7 -12 playlist ttf 400 300 {Helvetica 16 bold} #457782 yellow
black red;
#X obj 445 328 outlet;
#X obj 419 76 vsl 15 128 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 1921 1;
#X obj 419 -38 r loadbang;
#N canvas 229 149 622 547 format-message 0;
#X obj 124 11 inlet;
#X obj 384 490 outlet;
#X obj 175 174 symbol;
#X msg 89 392 set \$1;
#X msg 89 425 Dragon.ttf;
#X obj 150 328 mergefilename;
#X msg 173 222 symbol /;
#X floatatom 208 426 5 0 0 0 - - -;
#X obj 33 31 r loadbang;
#X msg 457 300 symbol font;
#X obj 150 304 pack s s 20;
#X obj 326 366 pack s s;
#X msg 420 440 font Dragon.ttf/19.21;
#X msg 326 401 set \$1 \$2;
#X obj 482 250 r loadbang;
#X msg 398 265 bang;
#X obj 468 387 delay 10;
#X msg 468 349 bang;
#X msg 190 139 bang;
#X obj 359 96 inlet number;
#X msg 34 89 Dragon.ttf;
#X text 118 91 <-- default font;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 10 0;
#X connect 2 0 15 0;
#X connect 3 0 4 0;
#X connect 5 0 11 1;
#X connect 6 0 10 1;
#X connect 8 0 6 0;
#X connect 8 0 20 0;
#X connect 9 0 11 0;
#X connect 9 0 17 0;
#X connect 10 0 5 0;
#X connect 11 0 13 0;
#X connect 12 0 1 0;
#X connect 13 0 12 0;
#X connect 14 0 9 0;
#X connect 15 0 9 0;
#X connect 16 0 12 0;
#X connect 17 0 16 0;
#X connect 18 0 2 0;
#X connect 19 0 7 0;
#X connect 19 0 10 2;
#X connect 19 0 18 0;
#X connect 20 0 2 0;
#X connect 20 0 18 0;
#X restore 388 298 pd format-message;
#X floatatom 419 273 5 0 0 0 - - -;
#N canvas 371 359 450 300 tremordim 0;
#X obj 264 178 line;
#X floatatom 267 232 5 0 0 0 - - -;
#X msg 305 119 500;
#X obj 126 79 random 20;
#X obj 138 119 + 8;
#X obj 222 4 r metro;
#X obj 116 13 inlet;
#X obj 157 49 spigot;
#X obj 267 268 outlet dim;
#X connect 0 0 1 0;
#X connect 1 0 8 0;
#X connect 2 0 0 1;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X connect 4 0 2 0;
#X connect 5 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 3 0;
#X restore 419 35 pd tremordim;
#X obj 419 -6 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X text 438 -5 <<--start/stop dim-rand;
#X text 441 125 <<-- text dimension;
#X msg 7 -115 location /usr/lib/X11/fonts/TTF;
#X text 7 -98 (it would have to be the default);
#X text 239 -115 <<-- first set the font path;
#X obj 95 -69 openpanel;
#X msg 198 -71 bang;
#X msg 7 -69 location \$1;
#X text 242 -71 <<-- or find it;
#X connect 0 1 4 0;
#X connect 2 0 4 1;
#X connect 2 0 5 0;
#X connect 3 0 7 0;
#X connect 4 0 1 0;
#X connect 6 0 2 0;
#X connect 7 0 6 0;
#X connect 10 0 0 0;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 15 0 0 0;
#X restore 84 63 pd fontchoser;
#X msg 371 470 posdim 100 40 120 40;
#X text 184 65 <<-- clic here for choose your font;
#N canvas 37 139 390 381 blackscreen 0;
#X obj 191 308 outlet video;
#X obj 171 218 pdp_noise;
#X msg 204 184 type grey;
#X msg 110 117 bang;
#X obj 75 178 s metro;
#X obj 224 118 r loadbang;
#X obj 110 67 r loadbang;
#X msg 159 115 stop;
#X obj 110 143 metro 70;
#X msg 219 150 dim 120 40;
#X obj 171 244 pdp_gain;
#X msg 241 246 0;
#X obj 43 10 inlet start;
#X obj 260 11 inlet stop;
#X connect 1 0 10 0;
#X connect 2 0 1 0;
#X connect 3 0 8 0;
#X connect 5 0 2 0;
#X connect 5 0 9 0;
#X connect 5 0 11 0;
#X connect 6 0 3 0;
#X connect 7 0 8 0;
#X connect 8 0 1 0;
#X connect 8 0 4 0;
#X connect 9 0 1 0;
#X connect 10 0 0 0;
#X connect 11 0 10 1;
#X connect 12 0 3 0;
#X connect 13 0 7 0;
#X restore 296 349 pd blackscreen;
#X msg 385 254 start;
#X msg 389 281 stop;
#X text 438 266 <<-- start/stop video;
#X obj 437 -31 cnv 15 200 20 empty empty font-chooser 20 12 0 14 -233017
-66577 0;
#X obj 35 515 cnv 15 280 20 empty empty Lazzaro_Nicol??_Ciccolella
20 12 0 14 -233017 -66577 0;
#X obj 26 536 cnv 15 250 20 empty empty ciccolix at tiscalinet.it 20 12
0 14 -233017 -66577 0;
#X msg 204 135 play;
#X text 243 134 <<-- here type your text (4-5 letters);
#X connect 1 0 2 0;
#X connect 3 0 6 0;
#X connect 4 0 0 0;
#X connect 5 0 4 1;
#X connect 6 0 0 0;
#X connect 8 0 4 0;
#X connect 9 0 8 0;
#X connect 10 0 8 1;
#X connect 15 0 4 2;