#------------------------------
#gimp mathmap plugin expression
#warps one image with another
#images must be same size
nsc=user_float("nsc",0,6);
img=user_image("img");
sb=user_float("sb",-3,3);
p=origVal(xy,img);
origValXY(x+(x*p[0]*sin(t))/nsc,y+(y*p[1]*cos(t))/nsc)/p*sb
#------------------------------
#------------------------------
#gimp mathmap plugin expression
#warps one image with another
#images must be same size
#completely muddled & tangled, but works in a way:
base_size = user_float("Base size adj",0,6);
warp_size = user_float("Warp size adj",0,6);
warp_img = user_image("Warp image");
warp_back = user_float("Warp feed",-3.0,3.0);
warp_r_adj = user_float("Warp R adj",0.0,3.0);
warp_g_adj = user_float("Warp G adj",0.0,3.0);
warp_b_adj = user_float("Warp B adj",0.0,3.0);
warp_a_adj = user_float("Warp A adj",0.0,3.0);
out_r_adj = user_float("Output R adj",0.0,3.0);
out_g_adj = user_float("Output G adj",0.0,3.0);
out_b_adj = user_float("Output B adj",0.0,3.0);
out_a_adj = user_float("Output A adj",0.0,3.0);
#warp_px = origVal(xy,warp_img);
#w_rgba=rgba:[
# warp_px[0]*warp_r_adj,warp_px[1]*warp_g_adj,
# warp_px[2]*warp_b_adj,warp_px[3]*warp_a_adj];
#
#out_x = x + (x * (w_rgba[0]+w_rgba[1]) * sin(t)) * base_size;
#out_y = y + (y * (w_rgba[2]+w_rgba[3]) * cos(t)) * base_size;
#
#out_px = origValXY(out_x, out_y) + warp_px * warp_back;
b_rgba=origValXY(x,y);
warp_x = x + (x * (b_rgba[0]*warp_r_adj+b_rgba[1]*warp_g_adj) ) *
warp_size;
warp_y = y + (y * (b_rgba[2]*warp_b_adj+b_rgba[3]*warp_a_adj) ) *
warp_size;
warp_px = origVal(xy:[warp_x,warp_y],warp_img);
w_rgba=rgba:[
warp_px[0]*warp_r_adj,warp_px[1]*warp_g_adj,
warp_px[2]*warp_b_adj,warp_px[3]*warp_a_adj];
xxx=x+x*(warp_px[0]+warp_px[1])*base_size;
yyy=y+y*(warp_px[2]+warp_px[3])*base_size;
out_px = origValXY(xxx,yyy) + w_rgba * warp_back;
out_r = red(out_px) * out_r_adj;
out_g = green(out_px) * out_g_adj;
out_b = blue(out_px) * out_b_adj;
rgbColor(out_r, out_g, out_b)
#------------------------------
_______________________________________________
NetBehaviour mailing list
[email protected]
http://www.netbehaviour.org/mailman/listinfo/netbehaviour
