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 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240
|
#N canvas 55 51 885 613 10;
#X declare -lib Gem;
#X text 13 145 [gemglutwindow] uses GLUT (the openGL Utility Toolkit)
to create windows.;
#X obj 441 515 print unknown.message;
#X obj 367 515 route bang;
#X obj 367 558 bng 15 250 50 0 empty empty render! 17 7 0 10 -262144
-4034 -1;
#X obj 648 560 print info;
#X obj 424 537 s \$0-info;
#X text 485 537 feedback about the window;
#X obj 648 514 r \$0-info;
#X obj 648 537 spigot;
#X obj 695 539 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 407 45 cnv 15 470 25 empty empty empty 20 12 0 14 -4034 -66577
0;
#X obj 407 75 cnv 15 470 25 empty empty empty 20 12 0 14 -4034 -66577
0;
#X obj 407 105 cnv 15 470 25 empty empty empty 20 12 0 14 -4034 -66577
0;
#X obj 407 135 cnv 15 470 25 empty empty empty 20 12 0 14 -4034 -66577
0;
#X obj 407 165 cnv 15 470 25 empty empty empty 20 12 0 14 -260097 -66577
0;
#X obj 407 195 cnv 15 470 25 empty empty empty 20 12 0 14 -4034 -66577
0;
#X obj 407 225 cnv 15 470 25 empty empty empty 20 12 0 14 -4034 -66577
0;
#X obj 407 255 cnv 15 470 25 empty empty empty 20 12 0 14 -4034 -66577
0;
#X obj 407 285 cnv 15 470 25 empty empty empty 20 12 0 14 -4034 -66577
0;
#X obj 407 315 cnv 15 470 25 empty empty empty 20 12 0 14 -260097 -66577
0;
#X obj 367 386 t a;
#X obj 407 345 cnv 15 470 25 empty empty empty 20 12 0 14 -4034 -66577
0;
#X msg 411 48 create;
#X msg 411 78 bang;
#X msg 411 108 destroy;
#X text 515 79 clear window \, activate openGL-context \, and send
render-bang;
#X text 515 110 destroy the window;
#X text 515 49 create the window;
#X text 515 139 single-buffered(1) or double-buffered(2) rendering
;
#X msg 411 138 buffer 2;
#X msg 411 168 FSAA \$1;
#X text 515 169 Full Screen Antia Aliasing mode;
#X msg 411 198 title foo;
#X text 515 199 title of the window;
#X msg 411 228 dimen 640 460;
#X text 515 229 change dimension of the window;
#X msg 411 258 offset 100 100;
#X text 515 259 change position of the window;
#X text 515 319 turn on/off window borders;
#X text 515 349 (don't) show cursor when it's on the window;
#X obj 407 395 cnv 15 470 25 empty empty empty 20 12 0 14 -258113 -66577
0;
#X text 465 17 standard messages;
#X msg 421 399 blurb;
#X text 515 400 some random unknown message;
#X obj 407 425 cnv 15 470 25 empty empty empty 20 12 0 14 -257985 -66577
0;
#X text 47 51 [gemglutwindow];
#X text 18 79 part of Gem;
#X obj 38 553 declare -lib Gem;
#X text 24 529 last updated for Gem-0.94;
#X msg 411 348 cursor \$1;
#X obj 500 350 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 411 318 border \$1;
#X obj 500 320 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 500 290 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 515 289 switch fullscreen mode on/off;
#X msg 411 288 fullscreen \$1;
#X obj 235 348 metro 100;
#X obj 235 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 43 209 cnv 15 100 50 empty empty empty 20 12 0 14 -260097 -66577
0;
#N canvas 348 141 312 657 keyboard 0;
#X obj 54 265 r \$0-info;
#X obj 54 286 route keyboard;
#X obj 54 307 list split 1;
#X obj 54 328 list trim;
#X obj 54 349 route keyname key;
#X obj 54 400 unpack s f;
#X symbolatom 54 421 10 0 0 0 - - -;
#X floatatom 116 421 5 0 0 0 - - -;
#X floatatom 187 421 5 0 0 0 - - -;
#X obj 154 400 unpack;
#X floatatom 154 421 5 0 0 0 - - -;
#X msg 54 582;
#X obj 18 127 cnv 15 100 100 empty empty empty 20 12 0 14 -154295 -66577
0;
#X obj 128 127 cnv 15 100 100 empty empty empty 20 12 0 14 -155048
-66577 0;
#X obj 238 127 cnv 15 40 100 empty empty empty 20 12 0 14 -223782 -66577
0;
#X text 38 129 keystroke;
#X text 146 129 keyname;
#X text 247 128 key;
#X text 34 153 <a>;
#X text 34 171 <LeftShift>;
#X text 34 189 <A>;
#X text 34 207 <ä>;
#X msg 154 189 A;
#X text 244 189 65;
#X text 17 139 ===========================================;
#X text 17 23 While Gem tries to provide a consistent platform-independent
interface \, the values returned by [gemkeyboard] and [gemkeyname]
might depend on the actual window toolkit., f 43;
#X text 125 264 <- from [gem*window];
#N canvas 5 51 450 300 record 0;
#X obj 244 15 r \$0-info;
#X obj 244 66 route keyboard;
#X obj 244 87 list split 1;
#X obj 244 108 list trim;
#X msg 244 221 add2 \$1;
#X msg 300 221 set;
#X obj 300 200 loadbang;
#X text 315 14 <- from [gem*window];
#X obj 244 129 route keyname;
#X obj 244 152 unpack s f;
#X obj 244 200 spigot;
#X obj 301 179 == 0;
#X obj 244 244 t a;
#X obj 244 267 outlet;
#X obj 100 100 f;
#X obj 185 117 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 100 118 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 244 40 spigot;
#X connect 0 0 17 0;
#X connect 1 0 2 0;
#X connect 2 1 3 0;
#X connect 3 0 8 0;
#X connect 4 0 12 0;
#X connect 5 0 12 0;
#X connect 6 0 5 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 1 11 0;
#X connect 10 0 4 0;
#X connect 11 0 10 1;
#X connect 12 0 13 0;
#X connect 15 0 5 0;
#X connect 16 0 17 1;
#X connect 17 0 1 0;
#X coords 0 -1 1 1 100 33 1 100 100;
#X restore 54 543 pd record keyup;
#X msg 154 153 a;
#X msg 154 207 ä;
#X msg 154 171 <unknown>;
#X text 244 153 97;
#X text 244 171 112;
#X text 244 207 228;
#X text 10 102 values returned by [gemglutwindow];
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 9 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 9 0 10 0;
#X connect 9 1 8 0;
#X connect 27 0 11 0;
#X restore 58 224 pd keyboard;
#X obj 363 459 cnv 15 100 50 empty empty empty 20 12 0 14 -260097 -66577
0;
#X obj 367 472 gemglutwindow;
#X text 765 319 (NOT IMPLEMENTED);
#X text 765 169 (NOT IMPLEMENTED);
#N canvas 60 208 572 395 specific 0;
#X obj 88 303 outlet;
#X msg 88 40 offset \$1 \$1;
#X floatatom 88 21 5 0 0 0 - - -;
#X floatatom 128 61 5 0 0 0 - - -;
#X msg 128 80 dimen \$1 \$1;
#X text 201 46 change window dimension/position on the fly;
#X msg 288 97 menu;
#X obj 289 127 r \$0-info;
#X obj 289 150 route menu;
#X floatatom 289 243 5 0 0 0 - - -;
#X obj 289 264 i;
#X msg 289 290 addMenu \$1 File 0 \, addMenu \$1 Gem 2 \, addMenu \$1
Quit 1;
#X obj 289 176 route new float;
#X floatatom 416 212 5 0 0 1 menu - -;
#X text 326 242 ID of the newly created menu;
#X text 320 271 add entries to the new menu, f 62;
#X text 625 290 addMenu <menuid> <title> <value>;
#X text 510 212 <- selected menu;
#X text 336 96 <- create a new right-click menu;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X connect 6 0 0 0;
#X connect 7 0 8 0;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 0 0;
#X connect 12 0 9 0;
#X connect 12 1 13 0;
#X restore 421 429 pd specific messages;
#X connect 2 0 3 0;
#X connect 2 1 5 0;
#X connect 7 0 8 0;
#X connect 8 0 4 0;
#X connect 9 0 8 1;
#X connect 20 0 61 0;
#X connect 22 0 20 0;
#X connect 23 0 20 0;
#X connect 24 0 20 0;
#X connect 29 0 20 0;
#X connect 30 0 20 0;
#X connect 32 0 20 0;
#X connect 34 0 20 0;
#X connect 36 0 20 0;
#X connect 42 0 61 0;
#X connect 49 0 20 0;
#X connect 50 0 49 0;
#X connect 51 0 20 0;
#X connect 52 0 51 0;
#X connect 53 0 55 0;
#X connect 55 0 20 0;
#X connect 56 0 20 0;
#X connect 57 0 56 0;
#X connect 61 0 2 0;
#X connect 61 1 1 0;
#X connect 64 0 61 0;
|