-+Y ;*** no audio sr = 100 kr = 100 ksmps = 1 nchnls = 1 giImg init 1 giOutImg init 2 giwidth,giheight,ibpp bmopen "fractal4.png",giImg, 1 ;*** you can use another image giElem init 7 giOutTab ftgen 1,0,256, -2, 1/4,1/4,1/4,.4,0,1,1, GLfps 40, .5 GLpanel "Example of imgConvolve", 512, 512 GLpanel_end FLpanel "This Panel contains a Slider Bank",400,180,530 FLscroll 400, 180 FLcolor -2 FLslidBnk "red@green@blue@matrix gain@matrix table@scale X@scale Y", giElem, giOutTab , 300,giElem*20, 80,10 ;***, 0, giMinMaxTab, giExpTab, -12, FLcolor -1 FLscroll_end FLpanel_end FLrun #include "OpenGL.h" tb0_init giOutTab gkTrig init 0 gi1 ftgen 20,0,256,19,1,1,0,1 gi10 ftgen 10,0,256,10,1 giMtrxTb1 ftgen 30,0,64, -2, 3,3, 0,0,0,0,1,0,0,0,0 giMtrxTb2 ftgen 31,0,64, -2, 3,3, 0,1,0,0,1,0,1,0,0 giMtrxTb3 ftgen 32,0,64, -2, 3,3, 0,0,-1,1,1,-1,0,.5,-.2 giMtrxTb4 ftgen 33,0,64, -2, 3,3, 0,.5,-.5,1,-.9,0,0,0,0 giMtrxTb5 ftgen 34,0,64, -2, 3,3, -1,-4,-1,-4,20,-3,-1,-4,-1 giMtrxTb6 ftgen 35,0,64, -2, 3,3, 0,-1,0,0,2,0,0,-1,0 GLinsert_i $GL_INIT glMatrixMode $GL_PROJECTION glLoadIdentity gluPerspective 30,.1,10 glMatrixMode $GL_MODELVIEW glLoadIdentity glClearColor 0,0,.2,1 glEnable $GL_DEPTH_TEST glEnable $GL_TEXTURE_2D glMaterial $GL_SPECULAR, 1,1,1,1 GLshininess 19 glShadeModel $GL_FLAT glColor 1,1,1,1 GLinsert_i $GL_NOT_VALID glClear $GL_COLOR_BUFFER_BIT + $GL_DEPTH_BUFFER_BIT GLinsert_i 1 ;/////////////////////////////////////////////////// instr 1 ;/////////////////////////////////////////////////// k2 oscili 1,.013456,gi1 k4 phasor .0211111 kred = tb0(k(0)) *4 kgreen = tb0(k(1)) *4 kblue = tb0(k(2)) *4 kgain = tb0(k(3)) *2 kmatrix = tb0(k(4)) *5 + giMtrxTb1 k3 = tb0(k(5)) *4 k3b = tb0(k(6)) *4 glLoadIdentity glTranslate 0,0,-1 glPushMatrix glRotate k2*360,0,0,1 gkTrig changed kred,kgreen,kblue, kgain, kmatrix kdummy imgGain giOutImg, gkTrig, kred,kgreen,kblue,1, giImg imgConvolve giOutImg, gkTrig, kgain, kmatrix, giOutImg itex img2GLtex gkTrig, giOutImg,1,1 glBindTexture itex GLtexSquare 1, 0+k3,1-k3b, 1-k3,1-k3b, 1-k3,0+k3b, k3+0,k3b+0 glPopMatrix GLinsert 1.1 endin i1 0 3600 1