#N canvas 310 132 566 428 10;
#X declare -lib iemmatrix;
#X obj 462 336 matrix;
#X text 332 335 see also help for;
#X text 129 20 [mtx_diegg];
#X obj 103 227 mtx_print;
#X msg 103 130 bang;
#X msg 136 157 1 2 3 4 5;
#X obj 300 130 mtx_rand 4;
#X msg 300 108 bang;
#X obj 300 158 t a a;
#X obj 347 159 mtx_print org;
#X text 294 258 diagonal of the matrix;
#X text 276 88 get the turned diagonal of a matrix;
#X obj 300 231 print dieggonal;
#X text 93 252 turned diagonal-matrix;
#X text 30 89 create a turned diagonal matrix;
#X obj 300 197 mtx_diegg;
#X obj 103 201 mtx_diegg 7 9 8;
#X text 58 299 "turned" means rotated by -90deg:;
#X text 90 339 1 0 0;
#X text 90 353 0 2 0;
#X text 90 366 0 0 3;
#X text 200 353 0 2 0;
#X text 200 339 0 0 1;
#X text 200 366 3 0 0;
#X text 148 353 ==>;
#N canvas 460 154 494 171 META 0;
#X text 12 105 AUTHOR IOhannes m zmoelnig;
#X text 12 85 OUTLET_0 matrix;
#X text 12 125 HELP_PATCH_AUTHORS IOhannes m zmölnig;
#X text 12 25 LICENSE GPL-2+;
#X text 12 65 INLET_0 matrix;
#X text 12 5 KEYWORDS control matrix;
#X text 12 45 DESCRIPTION create a turned diagonal matrix;
#X obj 16 147 declare -lib iemmatrix;
#X restore 511 10 pd META;
#X obj 462 366 mtx_diag;
#X connect 4 0 16 0;
#X connect 5 0 16 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 15 0;
#X connect 8 1 9 0;
#X connect 15 0 12 0;
#X connect 16 0 3 0;
