#!/usr/bin/env gmic # File : distortion.gmic # Author : David Tschumperle # Entry point when run from CLI: go =>[^] Distortion e[] "" animate 50 # Main function go : v 0 nbf=50 sample cat repeat $nbf { e[] "\r > Frame "{$>+1}/$nbf +f[0] "const boundary = 3; const interpolation = 1; j( w/16*cos(2*pi*"$>/$nbf" + 0.5*sin(y/50)), h/16*sin(2*pi*"$>/$nbf" + 0.5*cos(x/30)))" } remove[0] # End of file.