all 3500 lines of indentation problems that i need to fix (used 2 different editors because geany can call gmic to launch gmic files directly with F5 if you configure it)
#@gui Underwoods : pr_underwoods, pr_underwoods_preview(1)
#@gui : sep = separator()
#@gui : note = note("<span color="#EE5500"><small><b>Light:</b></small></span>")
#@gui : Light = point(50,50,0,0,255,0,0,255,10)
#@gui : Light Rays Location = point(50,50,0,0,255,255,0,255,10)
#@gui : sep = separator()
#@gui : note = note("<small>Author: <i><a href="http://prawnsushi.free.fr">Prawnsushi</i></a>.\
# Latest Update: <i>2024/04/04</i>.</small>")
pr_underwoods:
foreach {
rm
tic
(100;40;40;20;0\
^0;30;20;10;0\
^0;0;0;0;0)
# sp
=> BG
r 1500,700,100%,100%,3
pr_deform 200,0,2,0,1,3
b 50
+plasma , #spread. 10
blend value,.15
# equalize.
c. 0,255
R:=w
.
X:=u(-100,200)
Y:=u(-100,0)
repeat $R {
T=$>
if $>==0||$>%100==1||$>==$R-1
repeat 2 {
fx_tree \
{v(8,12)},0,{u(-.1,.1)},{u(.3)},9.7,150,0,2.15,.8,-10,10,56,75,0,70,20,10,2,0,255,100,0,10,0,255,50,.4,.4
}
=>[0] Tree$T
=>[1] Tree1$T
l[Tree$T,Tree1$T] {
ap "pr_deform 2,0,4,2,1,3"
shift[Tree$T] {$T*u(0.5,1.5)},0,0,0,2
shift[Tree1$T] {-$T*u(0.5,1.5)},0,0,0,2
_X,_Y=$X,$Y
ap "light_relief {u(.5,.8)},.5,.5,{u(.04,.08)},.3,$_X%,$_Y%,.001,1.5,0,0"
}
ja. [Tree$T],0,1~,0,0,1
ja. [Tree1$T],0,1~,0,0,1
rm[Tree$T,Tree1$T]
if $>%50==1||$>==$R-1
[BG] shift. $>,0,0,0,3
blend[-1,-2] screen,.2
fi
if $>%200==1||$>==$R-1
+lightrays. 5,{$X+u(1,2)}%,{$Y+u(1,2)}%,1,255
repeat 5000 {
point. {u(100)}%,{u(100)}%,0,{u(.6,.9)},{u(100,255)}
}
dilate. 3
spread. 3 blur. 1
to_rgba. s. c rm. . a[-4--1] c
.,.,1,3,[120,60,20] blend[-1,-2] overlay,1
blend[-2,-1] screen,{u(.2,.5)}
fi
fi
}
keep.
# X,Y:=floor($X),floor($Y)
# to $X" "$Y
n 0,255
toc
d0
}
pr_underwoods_preview:
pr_underwoods $*
3500 lines? You’re crazy!