Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #@gui Cascading self glitching: fx_self_glitching_cascade, fx_self_glitching_cascade_preview(1)
- #@gui : note = note("Shifts images in a cascading fashion but computes values based on shifted and original images.")
- #@gui : note = note("<small>This filter many channel options and many operation options allowing for extremely-distorted images.</small>"), sep = separator()
- #@gui : 1. Shift channels = choice("RGB/sRGB","CMYK/CMY","HSV/HSV8","HSL/HSL8","HSI/HSI8","LCH/LCH8","Lab/Lab8","HCY/YCbCr","YIQ/YIQ8","YUV/YUV8","Bayer/INT24","XYZ/XYZ8")
- #@gui : 2. Alt choice = bool(0)
- #@gui : 3. Process Alpha = bool(0)
- #@gui : 4,5. Zeroth shift = point(50,50,0,1,255,255,255,175)
- #@gui : 6. Boundary = choice(3,"Zero","Nearest","Periodic","Mirror")
- #@gui : sep = separator()
- #@gui : 7. Iterations = int(3,1,32)
- #@gui : sep = separator()
- #@gui : 8. Power = float(0,-5,5)
- #@gui : 9. Bias = float(0,-256,256)
- #@gui : 10. Negation = bool(0)
- #@gui : 11. Operator = choice("Add","Multiply","Bitwise And","Bitwise Or","Bitwise Xor","Power","Reverse Power","Modulo","Reverse Modulo","Divide","Reverse Divide","Subtract","Reverse Subtract","Left Bitwise Shift","Reverse LBS","Right Bitwise Shift","Reverse RBS","Left Bitwise Rotation","Reverse LBR","Right Bitwise Rotation","Reverse RBR","Average","Round","Reverse Round","Sine","Reverse Sine","Cosine","Reverse Cosine","Tangent","Reverse Tangent (CPU-intensive)","Cosecant","Reverse Cosecant","Secant","Reverse Secant","Cotangent","Reverse Cotangent","Variance","Difference","Minimum","Maximum","Interference (Add)","Reverse Interference (Add)","Interference (Multiply)","Interference (Divide)","Reverse Interference (Div)","Interference (Subtract)","Reverse Interference (Subt)","Interference (Rev Subt)","Reverse Interference (Rev Subt)","Interference (Difference)","Reverse Interference (Diff)","Interference (Variance)")
- #@gui : 12. Post-Shift Multiplier = float(1,0,10)
- #@gui : 13. Post-Shift Modulo = int(256,1,1024)
- #@gui : 14. Post-Shift Addition = int(0,-1024,1024)
- #@gui : 15,16. Shift target = point(55,55,0,1,255,0,0,175)
- #@gui : 17. Target for final (rather than first) shift = bool(0)
- #@gui : 18,19. Cascade centre point = point(45,45,0,1,0,255,0,175)
- #@gui : 20. Shift randomness = float(0.75,0,4)
- #@gui : 21. Boundary = choice(3,"Zero","Nearest","Periodic","Mirror")
- #@gui : sep = separator(), 22. Run on channel(s) = choice("All","RGBA [all]","RGB [all]","RGB [red]","RGB [green]","RGB [blue]","RGBA [alpha]","Linear RGB [all]","Linear RGB [red]","Linear RGB [green]","Linear RGB [blue]","YCbCr [luminance]","YCbCr [blue-red chrominances]","YCbCr [blue chrominance]","YCbCr [red chrominance]","YCbCr [green chrominance]","Lab [lightness]","Lab [ab-chrominances]","Lab [a-chrominance]","Lab [b-chrominance]","Lch [ch-chrominances]","Lch [c-chrominance]","Lch [h-chrominance]","HSV [hue]","HSV [saturation]","HSV [value]","HSI [intensity]","HSL [lightness]","CMYK [cyan]","CMYK [magenta]","CMYK [yellow]","CMYK [key]","YIQ [luma]","YIQ [chromas]")
- # #@gui : sep = separator(), 23. Preview type = choice("Full","Forward horizontal","Forward vertical","Backward horizontal","Backward vertical","Duplicate top","Duplicate left","Duplicate bottom","Duplicate right","Duplicate horizontal","Duplicate vertical","Checkered","Checkered inverse"), Preview split = point(50,50,0,0,200,200,200,0,10,0)
- #@gui : sep = separator(), note = note("<small>Original author: <i><a href="https://goo.gl/Ryf7Cv">David Tschumperlé</a></i>; extended by some nobody who calls themselves 'Joan Rake' or something.<p>Latest update: <i>2018/08/24</i>.</small>")
- fx_self_glitching_cascade :
- shift {$4-50}%,{$5-50}%,0,0,$6,0
- repeat $7
- repeat $! l[$>] if {!$3} split_opacity fi l[0]
- if {$2}
- if {$1==0} rgb2srgb
- elif {$1==1} rgb2cmy
- elif {$1==2} rgb2hsv8
- elif {$1==3} rgb2hsl8
- elif {$1==4} rgb2hsi8
- elif {$1==5} rgb2lch8
- elif {$1==6} rgb2lab8
- elif {$1==7} rgb2ycbcr
- elif {$1==8} rgb2yiq8
- elif {$1==9} rgb2yuv8
- elif {$1==10} rgb2int
- elif {$1==11} rgb2xyz8
- fi else
- if {$1==1} rgb2cmyk
- elif {$1==2} rgb2hsv
- elif {$1==3} rgb2hsl
- elif {$1==4} rgb2hsi
- elif {$1==5} rgb2lch
- elif {$1==6} rgb2lab
- elif {$1==7} rgb2hcy
- elif {$1==8} rgb2yiq
- elif {$1==9} rgb2yuv
- elif {$1==10} rgb2bayer 0
- elif {$1==11} rgb2xyz
- fi fi
- f "init(
- const stype = $17?$7:1;
- shift = (([w,h]-1)*([$18,$19]-[$15,$16]+(2*(u-0.5)*sqrt((($18-$15)^2)+(($19-$16)^2))*($20^3)))/stype)%;
- const sign = $10?-1:1;
- const boundary = $21;
- );
- val = sign*((2^$8)*j(shift) + $9);
- (($11==0?(val + i):
- $11==1?(val * i):
- $11==2?(val & i):
- $11==3?(val | i):
- $11==4?xor(val,i):
- $11==5?(val^i):
- $11==6?(i^val):
- $11==7?(val%i):
- $11==8?(i%val):
- $11==9?(val / i):
- $11==10?(i / val):
- $11==11?(i - val):
- $11==12?(val - i):
- $11==13?(val << i):
- $11==14?(i << val):
- $11==15?(val >> i):
- $11==16?(i >> val):
- $11==17?for(n=0,n<(i%32),n++,rol(val)):
- $11==18?for(n=0,n<(val%32),n++,rol(i)):
- $11==19?for(n=0,n<(i%32),n++,ror(val)):
- $11==20?for(n=0,n<(val%32),n++,ror(i)):
- $11==21?avg(i,val):
- $11==22?round(val,i,0):
- $11==23?round(i,val,0):
- $11==24?i*sin(val*2*pi/$13):
- $11==25?val*sin(i*2*pi/$13):
- $11==26?sign*i*cos(val*2*pi/$13):
- $11==27?sign*val*cos(i*2*pi/$13):
- $11==28?i*tan(val*pi/$13):
- $11==29?val*tan(i*pi/$13):
- $11==30?i*sin($13/(val*2*pi)):
- $11==31?val*sin($13/(i*2*pi)):
- $11==32?sign*i*cos($13/(val*2*pi)):
- $11==33?sign*val*cos($13/(i*2*pi)):
- $11==34?i*tan($13/(val*pi)):
- $11==35?val*tan($13/(i*pi)):
- $11==36?$13*var(val,i):
- $11==37?abs(i - val):
- $11==38?min(i,val):
- $11==39?max(i,val):
- $11==40?0.005*i*(((j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$8))+val):
- $11==41?0.005*val*((j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$8)+i):
- $11==42?0.1*i*(j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$8)*val:
- $11==43?0.1*i*(j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$8)/val:
- $11==44?0.1*val*(j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$8)/i:
- $11==45?0.001*i*((j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$8)-val):
- $11==46?0.001*val*((j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$8)-i):
- $11==47?0.001*i*(val-(j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$8)):
- $11==48?0.001*val*(i-(j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$8)):
- $11==49?0.001*i*abs((j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$8)-val):
- $11==50?0.001*val*abs((j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$8)-i):
- $11==51?0.00001*$13*var(val,i,(j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$8))
- )*$12)%$13+$14;
- "
- if {$2}
- if {$1==0} srgb2rgb
- elif {$1==1} cmy2rgb
- elif {$1==2} hsv82rgb
- elif {$1==3} hsl82rgb
- elif {$1==4} hsi82rgb
- elif {$1==5} lch82rgb
- elif {$1==6} lab82rgb
- elif {$1==7} ycbcr2rgb
- elif {$1==8} yiq82rgb
- elif {$1==9} yuv82rgb
- elif {$1==10} int2rgb
- elif {$1==11} xyz82rgb
- fi else
- if {$1==1} cmyk2rgb
- elif {$1==2} hsv2rgb
- elif {$1==3} hsl2rgb
- elif {$1==4} hsi2rgb
- elif {$1==5} lch2rgb
- elif {$1==6} lab2rgb
- elif {$1==7} hcy2rgb
- elif {$1==8} yiq2rgb
- elif {$1==9} yuv2rgb
- elif {$1==10} bayer2rgb 0,0,0
- elif {$1==11} xyz2rgb
- fi fi
- endl a c endl done done
- fx_self_glitching_cascade_preview :
- index=0
- layers=l
- -repeat {max(0,$layers)}
- -fx_self_glitching_cascade $*
- #-ac[$index] "-fx_self_glitching_cascade $*",$22
- index={$index+1}
- -done
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement