#N canvas 164 477 835 487 12;
#X msg 587 317 \; pd dsp 1;
#X obj 588 190 tgl 15 1 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 588 80 inlet~;
#X obj 587 293 loadbang;
#X obj 682 94 inlet~;
#X obj 587 163 tabwrite~ \$0-array1;
#X obj 681 139 tabwrite~ \$0-array2;
#X obj 587 238 array define \$0-array1 512;
#X obj 588 210 switch~ 512 1 1;
#X obj 587 262 array define \$0-array2 512;
#X obj 6 9 inlet;
#X obj 6 34 t b b;
#X obj 6 448 outlet;
#X obj 38 60 ofelia define \$0-osc \; local c = ofCanvas(this) \; local
args = c:getArgs() \; local xPos \, yPos \, size = args[1] \, args[2]
\, args[3] \; local arr1 = ofArray("\$0-array1") \; local arr2 = ofArray("\$0-array2")
\; \; function M.bang() \; ofPushMatrix() \; ofPushStyle() \; ofSetRectMode(OF_RECTMODE_CORNER)
\; ofSetColor(255) \; ofDrawRectangle(xPos \, yPos \, size \, size)
\; ofSetLineWidth(2) \; ofSetColor(100 \, 200 \, 255) \; local s =
size / 2 \; for i=1 \, arr1:getSize() - 1 do \; ofDrawLine(s - (-xPos
+ arr2[i] * s) \, s - (-yPos + arr1[i] * s) \, s - (-xPos + arr2[i
+ 1] * s) \, s - (-yPos + arr1[i + 1] * s)) \; end \; ofNoFill() \;
ofSetColor(0) \; ofDrawRectangle(xPos \, yPos \, size \, size) \; ofPopStyle()
\; ofPopMatrix() \; end \;;
#X f 75;
#X obj 654 56 metro 20;
#X obj 667 21 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X connect 1 0 8 0;
#X connect 2 0 5 0;
#X connect 3 0 0 0;
#X connect 4 0 6 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 11 1 13 0;
#X connect 14 0 5 0;
#X connect 14 0 6 0;
#X connect 15 0 14 0;
