Skip to content

Commit

Permalink
Merge pull request #276 from Prawnsushi/master
Browse files Browse the repository at this point in the history 
prawnsushi.gmic
  • Loading branch information
@dtschump
dtschump committed Jul 4, 2023
2 parents 99a7b0c + 28fefcc commit 698759b
Showing 1 changed file with 100 additions and 33 deletions.
133 changes: 100 additions & 33 deletions include/prawnsushi.gmic
View file
Original file line number Diff line number Diff line change
Expand Up @@ -41,12 +41,14 @@
#@gui _<b>Degradations</b>
#-------------------------

#@gui Sloppy Mess : fx_sloppymess, fx_sloppymess_preview(0)*
#@gui Sloppy Mess : fx_sloppymess, fx_sloppymess_preview(0)
#@gui : note = note("<span color="#EE5500"><small><b>Slices:</b></small></span>")
#@gui : Angle = int(0,0,360)
#@gui : Width (px) = int(1,1,5000)
#@gui : Axis = choice("X-Axis","Y-Axis")
#@gui : Mirror Axis = choice("X-Axis","Y-Axis")
#@gui : Mirror Selection Interval (0:Off, -1:Random) = int(-1,-1,50)
#@gui : Invert Mirror Selection = bool(0,0,1)
#@gui : sep = separator()
#@gui : note = note("<span color="#EE5500"><small><b>Rotation:</b></small></span>")
#@gui : Range Clockwise = int(35,0,90)
Expand All @@ -58,19 +60,21 @@
#@gui : Deform = int(3,0,20)
#@gui : sep = separator()
#@gui : Iterations = int(1,1,20)
#@gui : Blending = choice(3,"add","alpha","and","average","blue","burn","darken","difference","divide","dodge",\
# "edges","exclusion","freeze","grainextract","grainmerge","green","hardlight","hardmix","hue","interpolation",\
# "lchlightness","lighten","lightness","linearburn","linearlight","luminance","multiply","negation","or","overlay",\
# "pinlight","red","reflect","saturation","screen","seamless","seamless_mixed","shapeareamax","shapeareamax0",\
# "shapeareamin","shapeareamin0","shapeaverage","shapeaverage0","shapemedian","shapemedian0","shapemin","shapemin0",\
# "shapemax","shapemax0","shapeprevalent","softburn","softdodge","softlight","stamp","subtract","value","vividlight",\
# "xor")
#@gui : Blending = choice(3,"Add","Alpha","And","Average","Blue","Burn","Darken","Difference","Divide","Dodge",\
# "Edges","Exclusion","Freeze","Grainextract","Grainmerge","Green","Hardlight","Hardmix","Hue","Interpolation",\
# "Lchlightness","Lighten","Lightness","Linearburn","Linearlight","Luminance","Multiply","Negation","Or","Overlay",\
# "Pinlight","Red","Reflect","Saturation","Screen","Seamless","Seamless_mixed","Shapeareamax","Shapeareamax0",\
# "Shapeareamin","Shapeareamin0","Shapeaverage","Shapeaverage0","Shapemedian","Shapemedian0","Shapemin","Shapemin0",\
# "Shapemax","Shapemax0","Shapeprevalent","Softburn","Softdodge","Softlight","Stamp","Subtract","Value","Vividlight",\
# "Xor")
#@gui : Strength = float(100,0,100)
#@gui : sep = separator()
#@gui : note = note("<small>Author: <i><a href="http://prawnsushi.free.fr">Prawnsushi</i></a>.      \
# Latest Update: <i>2023/14/06</i>.</small>")
fx_sloppymess : skip "${1=0},${2=1},${3=0},${4=0},${5=35},${6=-35},${7=2},${8=0},${9=0},${10=3},${11=1},${12=3},${13=100}"
arg0 $12,\
# Latest Update: <i>2023/28/06</i>.</small>")
fx_sloppymess : skip "${1=0},${2=1},${3=0},${4=0},${5=-1},${6=0},${7=35},${8=-35},${9=2},${10=0},${11=0},${12=3},${13=1},${14=3},${15=100}"

ang,wid,ax,__mir,inter,inv,rang_f,rang_b,bound,cx,cy,def,it,bl,str=$*
arg0 $bl,\
"add","alpha","and","average","blue","burn","darken","difference","divide","dodge","edges","exclusion","freeze",\
"grainextract","grainmerge","green","hardlight","hardmix","hue","interpolation","lchlightness","lighten",\
"lightness","linearburn","linearlight","luminance","multiply","negation","or","overlay","pinlight","red",\
Expand All @@ -79,45 +83,48 @@ arg0 $12,\
"shapemax0","shapeprevalent","softburn","softdodge","softlight","stamp","subtract","value","vividlight","xor"
blending_mode=${}
n 0,255
foreach {

foreach {
wi,he:=w,h
if $1>0&&$1!=360 rotate $1,0,3 fi

repeat $11
if $3==0 spins,dir,sli={w/$2},x,y else spins,dir,sli={h/$2},y,x fi
if $4==0 mir=x else mir=y fi

if $ang>0&&$ang!=360 rotate $ang,0,3 fi
if $ax==0 spins,dir,sli={w/$wid},x,y else spins,dir,sli={h/$wid},y,x fi
if $__mir==0 __mir=x else __mir=y fi
repeat $it
+s. $dir,$spins
repeat $spins {
l[{$>+1}] {
if $5||$6 rotate {u($5,$6)},0,$7,$8%,$9% fi
p={($>+1)%2}
if $p==0 mirror $mir fi
}
if $rang_f||$rang_b
repeat $spins { rotate[{$>+1}] {u($rang_f,$rang_b)},0,$bound,$cx%,$cy% }
fi
l[1--1] {
if $inv==1 flip=^ fi
if $inter>1
ap[${flip}0--1:$inter] "mirror $__mir"
elif $inter==-1
repeat 2 {
ap[${flip}0--1:{floor(u(1,20))}] "mirror $__mir"
}
fi
}

a[^0] $dir
+gradient_norm.
negate.
deform[^0] $10
blend[^0] edges,1
equalize.
blend $blending_mode,$13%
deform[^0] $def
blend[^0] edges,0.6
blend $blending_mode,$str%
done
}
if $1>0&&$1!=360
rotate. -$1,0,3
if $ang>0&&$ang!=360
rotate. -$ang,0,3
vx,vy={floor((w-$wi)/2)},{floor((h-$he)/2)}
vxb,vyb={$vx+$wi-1},{$vy+$he-1}
crop. $vx,$vy,$vxb,$vyb
fi
equalize
n 0,255

fx_sloppymess_preview :
fx_sloppymess $*

#-------------------------

#@gui _<b>Testing</b>
#@gui <i>Prawnsushi</i>
#-------------------------
Expand Down Expand Up @@ -434,9 +441,11 @@ u "{"$com"}""{"$origres"}""{"$procres"}""{"$dccires"}""{"$preset"}""{"$bst"}""{"
"{"$bri"}""{"$con"}""{"$gam"}""{"$hue"}""{"$sat"}""{"$preset"}"


#@gui Slice Stretch/Squeeze : fx_streeze, fx_streeze_preview(0)*
#@gui Slice Stretch-Squeeze : fx_streeze, fx_streeze_preview(1)+
#@gui : Iterations = int(10,1,100)
#@gui : note = note("<small>Do not set this higher than the smallest side of the image:</small>")
#@gui : Slices = int(100,5,1000)
#@gui : sep = separator()
#@gui : note = note("<span color="#EE5500"><small><b>Resizing:</b></small></span>")
#@gui : Outer Range A (Starting @0%) = int(20,0,100)
#@gui : Outer Range B (Ending @100%) = int(80,0,100)
Expand Down Expand Up @@ -472,6 +481,64 @@ fx_streeze: skip "${1=10},${2=20},${3=20},${4=80},${5=80},${6=20},${7=80},${8=12
fx_streeze_preview:
fx_streeze $*


#@gui Line Spam : fx_linespam, fx_linespam_preview(1)*
#@gui : Iterations = int(30,1,100)
#@gui : Line Base Thickness = float(3,0.01,50)
#@gui : Thickness Scaling = float(1.02,0.01,1.2)
#@gui : Line Opacity = float(0.8,0,1)
#@gui : Start X = float(-1,-100,100)
#@gui : Start Y = float(10,-100,100)
#@gui : End X = float(101,0,200)
#@gui : End Y = float(100,0,200)
#@gui : Deform = float(0,0,20)
#@gui : Style = choice(0,"A","B","C","D")
#@gui : Base Color = color(255,85,0,255)
#@gui : Color Variation = float(0,-10,10)
#@gui : Randomize Colors = bool(0,0,1)
#@gui : sep = separator()
#@gui : Antialiasing = bool(0,0,1)
#@gui : Amplitude = int(5,0,100)
#@gui : Edge Threshold (%) = int(10,0,100)
#@gui : Smoothness = float(0.8,0,5)
#@gui : sep = separator()
#@gui : Spam! = int(1,1,10)
#@gui : note = note("<small>Author: <i><a href="http://prawnsushi.free.fr">Prawnsushi</i></a>.\
# Latest Update: <i>2023/04/07</i>.</small>")

fx_linespam: skip "${1=30},${2=3},${3=1.02},${4=0.8},${5=-1},${6=10},${7=101},${8=100},${9=0},${10=0},${11=255,85,0,255},${12=0},${13=0},${14=0},${15=5},${16=10},${17=0.8},${18=1}"
to_rgba
fc 0,0,0,0
bthick=$2
repeat 4 {
repeat $-1 {
iter,thick,tscale,opac,sx,sy,ex,ey,def,style,colr,colg,colb,cola,cvar,rcol,aa,amp,edg,smoo,spam=$*
c={$>+1}
repeat $iter {
if $rcol==1
col={floor(u($colr-50,$colr+50))},{floor(u($colg-50,$colg+50))},{floor(u($colb-50,$colb+50))},255
else
col=$colr,$colg,$colb,255
fi
if $style==0 A,B={$>},{$<} elif $style==1 A,B={$<},{$>} elif $style==2 A,B={$<} else A,B={$>/2} fi
thickline. {$sx*$c+$bthick}%,{$A*$sy}%,{$B+$ex}%,{$ey-$A*$B}%,$thick,$opac,$col
thick*=$tscale
if {$colr+$cvar}<255&&{$colr+$cvar}>0 colr+=$cvar fi
if {$colg+$cvar}<255&&{$colg+$cvar}>0 colg+=$cvar fi
if {$colb+$cvar}<255&&{$colb+$cvar}>0 colb+=$cvar fi
}
}
if $def deform $def fi
rotate. 90,0,0
}
if $aa fx_smooth_antialias $amp,$edg,$smoo fi
n 0,255

fx_linespam_preview:
fx_linespam $*



# Local Variables:
# mode: sh
# End:
Expand Down

0 comments on commit 698759b

Please sign in to comment.