')):
+c==s_hvtable ? (write_nl(); write('\n')):
+c==m_table ? write(' '):
+c==n_table ? write(' '):
+c==e_table ? write('
\n'):
+c==s_blockquote ? (write_nl(); write('\n')):
+c==e_blockquote ? (write('\n \n')):
+c==s_detail_block ? (
+write_nl();
+write('\n');
+ny = y + 1;
+nc = j[1];
+nc!=e_detail_block?(
+j[1] = 0;
+ind_e = find(#1,e_detail_block,ny);
+nc==_' '?(
+ind_nl = find(#1,_'\n',ny);
+ind_nl<0 || ind_nl>ind_e?(ind_nl = ind_e);
+write(#1,y + 2,ind_nl - y - 2);
+copy(i[ny],0,ind_nl - y - 1,1,0);
+i[ind_nl]!=e_detail_block?(i[ind_nl] = 0);
+):write('Details:');
+write(' \n');
+)
+):
+c==e_detail_block ? (write_nl(); write(' \n')):
+c==s_code_block ? write(''):
+c==e_code_block ? write('
\n');
+c==s_shell ? (
+ind_e = find(#1,e_shell,y);
+run('_gmd2html_shell. ',y + 1,',',ind_e - 1);
+ref(get('_gmd_command',1024,1),str_com);
+write('$ ');
+len = find(str_com,0);
+write(str_com,len);
+write('
\n');
+copy(i[y],0,ind_e - y + 1,1,0);
+):
+c==s_hrule ? (write_nl(); write(''):
+c==s_bold_italic_u ? write(''):
+c==s_bold_a ? write(''):
+c==s_bold_u ? write(''):
+c==s_italic_a ? write(''):
+c==s_italic_u ? write(''):
+c==s_strikethrough? write(''):
+c==s_underline? write(''):
+c==s_monospace ? write(''):
+c==s_value_set ? write('{'):
+c==e_value_set ? write('} '):
+c==s_word_highlight ? write(''):
+c==s_url ? (
+ind_e = find(#1,e_url,y);
+write('');
+):
+c==e_url ? write(' '):
+c==s_page_link ? (
+ind_e = find(#1,e_page_link,y);
+run('_gmd2html_page_link. ',y + 1,',',ind_e - 1);
+ref(get('_gmd_link',1024,1),str_link);
+ref(get('_gmd_text',1024,1),str_text);
+write('');
+len = find(str_text,0);
+write(str_text,len);
+write(' '):
+write('\" target=\"_blank\">');
+):
+c==m_text_link ? (
+ind_e = find(#1,e_text_link,y);
+copy(i[y],0,ind_e - y + 1,1,0);
+write(' ');
+):
+c==s_img ? (
+ind_m = find(#1,m_img,y);
+ind_e = find(#1,e_img,ind_m);
+ind_d = find(#1,_'.',ind_e - 1,-1);
+is_video = 0;
+ind_d>ind_m?(
+ref(crop(#1,0,ind_d + 1,1,3),ext3);
+ref(crop(#1,0,ind_d + 1,1,4),ext4);
+is_video = ext3=='mp4' || ext3=='ogg' || ext4=='webm'
+);
+is_video?(
+write('');
+):(
+write('G'MIC '):
+c==s_whitespace ? write(' '):
+c==s_tab ? write(' ');
+);
+end(resize(#0,1,_write_off,1,1,0))"
+k[0] autocrop 0 => $fnm.html
+}
+if $embed_html
+section_title=${"arg "$embed_html",Reference,Tutorial,News"}
+foreach {
+nm={b} nm0=${nm$>}
+if ['${title$>}']!=0 title=${title$>} else title=$nm0 fi
+if isfile('../style.css') style="../style.css" else style="https://gmic.eu/style.css" fi
+i[0] ('""\n""\n" "\n" "$title" "\n" "\n" "\n" "\n\n" "\n" "\n\n" "\n" "\n\n""\n\n':y)
+('\n\n""\n\n"
"\n\n" "\n" "':y)
+a y => $nm.html
+}
+fi
+_gmd2html_section :
++rows. $1,$2 strvar {t} _gmd_name=${} rm.
+_gmd2html_page_link :
++rows. $1,$2
+if i==_'-'
+rows. 1,100% _gmd_text={t} strvar {t} varname=${}
+if ['$varname']=='index' varname=_index fi
+_gmd_link=https://gmic.eu/reference/$varname.html
+else
+basename {t} _gmd_text=${} strvar $_gmd_text varname=${}
+if ['$varname']=='index' varname=_index fi
+_gmd_link=$varname.html
+fi
+rm.
+_gmd2html_pipeline :
++rows. $1,$2
+_gmd_command={t} rm.
+strcasevar $_gmd_command
+_gmd_filename=img/${}.png
+is_output:=fsize(['$_gmd_filename'])
+if !isfile(['$_gmd_filename']) l[] {
+l[] {
+run $_gmd_command a x
+if !$!" || "($!==1" && "!h) is_output=0 fi
+onfail rm error[] "Command '"$_gmd_command"': "${}
+}
+if $!
+if !isdir('img') x "mkdir -p img" fi
+o. $_gmd_filename rm.
+fi
+} fi
+({'$_gmd_command'})
+_gmd_ascii2html.
+_gmd_command={t} rm.
+u $is_output
+_gmd2html_formula :
++rows. $1,$2 replace. {'\n'},{'" "'} j.. .,0,$1
+formula={/{t}} rm.
+strcasevar $formula varname=${}
+_gmd_filename=img/$varname.png
+if !isfile(['$_gmd_filename']) l[] {
+({'"\\documentclass[preview]{standalone}"\n"\\usepackage{amsmath,amssymb,amsfonts}"\n"\\pagestyle{empty}"\n"\\begin{document}"\n"\\begin{align*}"\n$formula\n"\\end{align*}"\n"\\end{document}"'})
+path_tmp=${-path_tmp}
+ot. ${path_tmp}$varname.tex rm.
+x "cd "$path_tmp"; rm -f "$varname".pdf; pdflatex -interaction=nonstopmode "$varname".tex >/dev/null"
+if isfile(['${path_tmp}$varname.pdf'])
+i ${path_tmp}$varname.pdf,800
+autocrop. lt. 128 r2dy. 20% n. 0,255 channels. -3,0
+if !isdir('img') x "mkdir -p img" fi
+o. $_gmd_filename
+fi
+rm
+} fi
+_gmd2html_shell :
+_gmd_shell. $*
+_gmd_ascii2html.
+_gmd2ascii_shell :
+_gmd_shell. $*
+_gmd_shell :
++rows. $1,$2 _gmd_command={t} rm.
+path_tmp=${-path_tmp}
+strcasevar $_gmd_command
+filename=$path_tmp${}.log
+x $_gmd_command" > "$filename" 2>&1"
+if isfile(['$filename']) it $filename else 0 fi
+autocrop. {'\n'}
+_gmd_ascii2html :
+foreach {
+.
+eval. ">
+begin("${-_gmd_write}${-_gmd_vt100}" spans = 0);
+c = i;
+c==_'&'?write('&'):
+c==_'\"'?write('"'):
+c==_'\''?write('''):
+c==_'<'?write('<'):
+c==_'>'?write('>'):
+c==_'\n'?write('');
+copy(i[y],0,size(vt100_b),1,0);
+++spans
+):same(C,vt100_c,size(vt100_c))?(
+write('');
+copy(i[y],0,size(vt100_c),1,0);
+++spans
+):
+same(C,vt100_g,size(vt100_g))?(
+write('');
+copy(i[y],0,size(vt100_g),1,0);
+++spans
+):
+same(C,vt100_i,size(vt100_i))?(
+write('');
+copy(i[y],0,size(vt100_i),1,0);
+++spans
+):
+same(C,vt100_m,size(vt100_m))?(
+write('');
+copy(i[y],0,size(vt100_m),1,0);
+++spans
+):
+same(C,vt100_n,size(vt100_n))?(
+repeat (spans,write(' '));
+copy(i[y],0,size(vt100_n),1,0);
+spans = 0
+):
+same(C,vt100_r,size(vt100_r))?(
+write('');
+copy(i[y],0,size(vt100_r),1,0);
+++spans
+):
+same(C,vt100_s,size(vt100_s))?(
+write('');
+copy(i[y],0,size(vt100_s),1,0);
+++spans
+):
+same(C,vt100_u,size(vt100_u))?(
+write('');
+copy(i[y],0,size(vt100_u),1,0);
+++spans
+):
+write(c)
+):write(c);
+"
+k[0] discard 0
+}
+#@cli gmd2ascii : _max_line_length>0,_indent_forced_newlines>=0 : (no arg)
+#@cli : Convert selected gmd-formatted text images to ascii format.
+#@cli : Default values: 'max_line_length=80' and 'indent_forced_newline=0'.
+gmd2ascii :
+is_arg=1 l[] { check "isint(${1=80}) && $1>0 && isint(${2=0}) && $2>=0" onfail is_arg=0 }
+max_line_length,indent_forced_newline=${1-2}
+if !$is_arg
+if !narg($_shell_cols) _shell_cols={${-shell_cols}-5} fi
+max_line_length,indent_newline=$_shell_cols,0 noarg
+fi
+use_vt100 parse_gmd
+foreach {
+nm={b} strvar $nm fnm=${}
+.
+eval. ">
+begin("${-_gmd_tokens}${-_gmd_write}${-_gmd_vt100}"
+is_blockquote = is_code_block = is_center = is_right = 0;
+ref(vector1024(),tmp);
+const nbcols = "${-shell_cols}";
+ref(vector(#nbcols,_' '),whiteline);
+);
+c = i;
+c==_'\n'?(
+is_blockquote ? write([vt100_n,'\n > ',vt100_m]):
+is_code_block ? write('\n '):
+write(c);
+is_center ? write(whiteline,nbcols/4):
+is_right ? write(whiteline,nbcols/2);
+):
+c>0?write(c):
+(
+isin(c,e_bold_a,e_bold_u,e_bold_italic_a,e_bold_italic_u,e_italic_a,e_italic_u,
+e_strikethrough,e_underline,e_url,e_page_link,e_formula) ? write(vt100_n):
+isin(c,e_bullet,e_subbullet,e_subsubbullet) ? write(_'\n'):
+isin(c,e_section,e_subsection,e_subsubsection,e_subsubsubsection) ? write([vt100_n,'\n\n']):
+c==s_section ? (write_nl(); write([_'\n',vt100_r,vt100_b,'# '])):
+c==s_subsection ? (write_nl(); write([_'\n',vt100_r,vt100_b,'## '])):
+c==s_subsubsection ? (write_nl(); write([_'\n',vt100_r,vt100_b,'### '])):
+c==s_subsubsubsection ? (write_nl(); write([_'\n',vt100_r,vt100_b,'#### '])):
+c==s_anchor ? (
+ind_e = find(#1,e_anchor,y);
+copy(i[y],0,ind_e - y + 1,1,0);
+):
+c==s_bullet ? write(' * '):
+c==s_subbullet ? write(' - '):
+c==s_subsubbullet ? write(' + '):
+c==s_center ? (write(whiteline,nbcols/4); is_center = 1):
+c==e_center ? (write(_'\n'); is_center = 0):
+c==s_right ? (write(whiteline,nbcols/2); is_right = 1):
+c==e_right ? (write(_'\n'); is_right = 0):
+c==s_tab ? write(whiteline,4):
+isin(c,s_table,s_htable,s_vtable,s_hvtable,n_table) ? (write_nl(); write([vt100_r,' | ',vt100_n])):
+c==m_table ? write([vt100_r,' | ',vt100_n]):
+c==s_blockquote ? (write([[' > '],vt100_m]); is_blockquote = 1):
+c==e_blockquote ? (write([vt100_n,'\n']); is_blockquote = 0):
+c==s_detail_block ? (
+ny = y + 1;
+nc = j[1];
+nc!=e_detail_block?(
+j[1] = 0;
+ind_e = find(#1,e_detail_block,ny);
+nc==_' '?(
+ind_nl = find(#1,_'\n',ny);
+ind_nl<0 || ind_nl>ind_e?(ind_nl = ind_e);
+write([vt100_c,vt100_b,'+ ']);
+write(#1,y + 2,ind_nl - y - 2);
+write([vt100_n,vt100_c,'\n\n']);
+copy(i[ny],0,ind_nl - y - 1,1,0);
+i[ind_nl]!=e_detail_block?(i[ind_nl] = 0);
+):write([vt100_c,vt100_b,'Details:',vt100_n,vt100_c,'\n\n']);
+)
+):
+c==e_detail_block ? write([vt100_n,'\n']):
+c==s_code_block ? (_write_off?write(_'\n'); write([[' '],vt100_c]); is_code_block = 1):
+c==e_code_block ? (write([vt100_n,'\n\n']); is_code_block = 0):
+c==s_shell ? (
+ind_e = find(#1,e_shell,y);
+run('_gmd2ascii_shell. ',y + 1,',',ind_e - 1);
+ref(get('_gmd_command',1024,1),str_com);
+write('$ ');
+len = find(str_com,0);
+write(str_com,len);
+write('\n\n');
+write(#-1,0,h(#-1));
+run('rm.');
+write(_'\n');
+copy(i[y],0,ind_e - y + 1,1,0);
+):
+c==s_hrule ? (write_nl(); write('+------------------------------+\n')):
+c==s_bold_italic_a ? write([vt100_m,vt100_b,vt100_i]):
+c==s_bold_italic_u ? write([vt100_b,vt100_i]):
+c==s_bold_a ? write([vt100_m,vt100_b]):
+c==s_bold_u ? write(vt100_b):
+c==s_italic_a ? write([vt100_m,vt100_i]):
+c==s_italic_u ? write(vt100_i):
+c==s_strikethrough? write(vt100_s):
+c==s_underline? write(vt100_u):
+c==s_monospace ? write([_'\47',vt100_c]):
+c==e_monospace ? write([vt100_n,_'\47']):
+c==s_value_set ? write([vt100_g,vt100_i,_'{']):
+c==e_value_set ? write([_'}',vt100_n]):
+c==s_word_highlight ? write([_'\47',vt100_g]):
+c==e_word_highlight ? write([vt100_n,_'\47']):
+isin(c,s_url,s_page_link,s_text_link) ? write(vt100_u):
+c==m_text_link ? (
+ind = find(#1,e_text_link,y);
+copy(i[y],0,ind - y + 1,1,0);
+write(vt100_n);
+):
+c==s_img ? (
+ind_m = find(#1,m_img,y);
+ind_e = find(#1,e_img,ind_m);
+write(vt100_u);
+write(#1,ind_m + 1,ind_e - ind_m -1);
+j[1]!=m_img?write([vt100_n,_' ',vt100_g,vt100_i,'[image: \'']):
+write([vt100_n,_' ',vt100_g,vt100_i,'[image]',vt100_n]);
+):
+c==m_img ? (
+ind = find(#1,e_img,y);
+copy(i[y],0,ind - y + 1,1,0);
+j[-1]!=s_img?write([['\']'],vt100_n]);
+):
+c==s_pipeline ? (
+ind = find(#1,e_pipeline);
+write([vt100_g,vt100_i,'[image]',vt100_n]);
+copy(i[y],0,ind - y + 1,1,0);
+):
+c==s_formula ? write(vt100_g);
+c==s_gmic ? (
+write([vt100_b,'G\47MIC',vt100_n]);
+):
+c==s_whitespace ? write(_' ');
+);
+end(resize(#0,1,_write_off,1,1,0))"
+k[0] discard 0
+_gmd2ascii_cut $max_line_length,$indent_forced_newline
+=> $fnm.txt
+}
+_gmd2ascii_cut :
+foreach {
+.
+eval ${-_gmd_write}"
+const N = max(8,$1);
+ref(vector(#$2+1,_' '),nl); nl[0] = _'\n';
+p = q = r = 0; l = 1;
+while (rN?(
+q - p<0.6*N?(q = r - 1);
+len = q - p + 1;
+write(#1,p,len);
+write(nl);
+p = r = ++q;
+l = size(nl) - 1;
+):(
+isin(i[r],_',',_' ')?(q = r);
+);
+++r; ++l;
+);
+ph(#0)?resize(#0,1,8 + l + 5*h(#0)/3,1,1,0);
+copy(i[#0,_write_off],_str,l);
+_write_off+=l;
+):(
+_write_off>=h(#0)?resize(#0,1,8 + 5*h(#0)/3,1,1,0);
+i[#0,_write_off++] = _str;
+)
+);
+write(ind,start,len) = (
+ref(len,_len);
+_write_off + _len>h(#0)?resize(#0,1,8 + _len + 5*h(#0)/3,1,1,0);
+copy(i[#0,_write_off],i[#ind,start],_len);
+_write_off+=_len;
+);
+write_nl() = (
+i[#0,_write_off -1 ]!=_'\n'?write(_'\n');
+);
+_write_off = 0;"
+#@cli parse_gui : _outputmode,_{ * | filter_name}
+#@cli : Parse selected filter definitions and generate info about filters in selected output mode.
+#@cli : 'outputmode' can be { gmicol | images | json | list | print | strings | update | zart }.\n
+#@cli : It is possible to define a custom output mode, by implementing the following commands
+#@cli : ('outputmode' must be replaced by the name of the custom user output mode):
+#@cli : . 'parse_gui_outputmode' : A command that outputs the parsing information with a custom format.
+#@cli : . 'parse_gui_parseparams_outputmode' (optional): A simple command that returns 0 or 1. It tells the parser whether parameters of matching filter must be analyzed (slower) or not.
+#@cli : . 'parse_gui_trigger_outputmode' (optional): A command that is called by the parser just before parsing the set of each matching filters.\n
+#@cli : Here is the list of global variables set by the parser, accessible in command 'parse_gui_outputmode':\n
+#@cli : '$_nb_filters': Number of matching filters.
+#@cli : '$_nongui' (stored as an image): All merged lines in the file that do not correspond to '#@gui' lines.\n
+#@cli : For each filter `\#F` ('F' in range `[0,$_nb_filters-1]`):
+#@cli : * '$_fF_name' : Filter name.
+#@cli : * '$_fF_path' : Full path.
+#@cli : * '$_fF_locale' : Filter locale (empty, if not specified).
+#@cli : * '$_fF_command' : Filter command.
+#@cli : * '$_fF_command_preview' : Filter preview command (empty, if not specified).
+#@cli : * '$_fF_zoom_factor' : Default zoom factor (empty, if not specified).
+#@cli : * '$_fF_preview_accuracy' : Preview accuracy (can be { 0=does not support zoom in/out | 1=support zoom in/out | 2=pixel-perfect }).
+#@cli : * '$_fF_input_mode' : Default preferred input mode (empty, if not specified).
+#@cli : * '$_fF_hide' : Path of filter hid by current filter (for localized filters, empty if not specified).
+#@cli : * '$_fF_nb_params' : Number of parameters.\n
+#@cli : For each parameter `\#P` of the filter \#F ('P' in range `[0,$_fF_nb_params-1]`):
+#@cli : * '$_fF_pP_name' : Parameter name.
+#@cli : * '$_fF_pP_type' : Parameter type.
+#@cli : * '$_fF_pP_responsivity' : Parameter responsivity (can be { 0 | 1 }).
+#@cli : * '$_fF_pP_visibility' : Parameter visibility.
+#@cli : * '$_fF_pP_propagation' : Propagation of the parameter visibility.
+#@cli : * '$_fF_pP_nb_args' : Number of parameter arguments.\n
+#@cli : For each argument `\#A` of the parameter \#P ('A' in range `[0,$_fF_pP_nb_args-1]`):
+#@cli : * '$_fF_pP_aA' : Argument value\n
+#@cli : Default parameters: 'filter_name=*' and 'output_format=print'.
+parse_gui : skip "${1=print},${2=*}"
+e[^-1] "Parse '#@gui' filters '$2' and output in '$1' mode."
+l[] {
+({'$$parse_gui_$1'}) rm
+onfail error[0--2] "Command 'parse_gui': Invalid output mode '$1'."
+}
+use_vt100
+if !$! l[] { it ${_path_rc}update$_version.gmic onfail } fi
+if !$! return fi
+y a y merge_multiline_comments
+e ""
+e "\r > Extract filter chunks."
+macros="
+is_blank(p) = ((_c=source[p])<=_' ' && _c!=_'\n');
+skip_blank(p) = (while (is_blank(p), ++p));
+clean(name) = (
+_l = find(name,0);
+_l>0?(
+_p = 0; while (1,
+_p = find(name,_'<',_p);
+_p<0 || _p>=_l?break();
+isin(name[_p+1],_'b',_'i') && name[_p+2]==_'>'?(
+copy(name[_p],name[_p+3],_l-_p-2);
+_l-=3;
+):name[_p+1]==_'/' && isin(name[_p+2],_'b',_'i') && name[_p+3]==_'>'?(
+copy(name[_p],name[_p+4],_l-_p-3);
+_l-=4;
+):++_p;
+);
+_p = 0; while (1, _p = find(name,_'/',_p); _p<0 || _p>=_l?break(); name[_p++] = _'-');
+);
+);"
+eval $macros"
+store_block(p,q,path,name,hide) = (
+run('+rows[0] ',p,',',q,' discard. -1 autocrop. 10 autocrop. 32 => \"',path,'/',name,'\"');
+hide[0]?run([40,45,50,44,123,39,34],hide,[34,39,125,41],' y. a[-2,-1] y');
+);
+ref(crop(),source);
+path = prev_path = name = prev_name = hide = prev_hide = vector1024();
+prev_p0 = p0 = p = 0;
+while (p0 && source[p - 1]==_'\n')?(
+p0 = p;
+p+=5;
+source[p]==_'_' && (l = find(source,_' ',++p))>=0?(p = l + 1);
+skip_blank(p);
+source[p]!=_':'?(
+hide[0] = 0;
+q = find(source,_':',p)%size(source);
+r = find(source,_'\n',p)%size(source);
+is_hide = q>r && (l=find(source,'hide(',p)%size(source))=0?y:-1"
+discard. -1 k[{^}]
+fi
+l { parse_gui_trigger_$1 onfail }
+nb_chunks=$! f=0
+repeat $nb_chunks { c=$> _f${f}_path={$>,f} if {$>,h} l[$>] {
+if crop(0,0,1,5)!='#@gui' # Non-gui : merge code and skip chunk
+autocrop {'\n'} store nongui$c 0 continue
+fi
+_f${f}_locale=
+_f${f}_command_preview=
+_f${f}_zoom_factor=
+_f${f}_preview_accuracy=
+_f${f}_input_mode=
+_f${f}_nb_params=0
+_f${f}_hide=
+if crop(0,0,1,6)=='#@gui_' _f${f}_locale={`crop(0,6,1,2)`} fi
+p:="find(#0,-2,h-1,0)"
+if $p>=0 +rows. {$p+1},100% _f${f}_hide={t} rm. fi
+eval $macros"
+ref(crop(),source);
+is_first = 1;
+p = 0;
+while (p0 && source[q - 1]==_'\n')?(
+p0 = p;
+p+=5;
+source[p]==_'_' && (l = find(source,_' ',++p))>=0?(p = l + 1);
+skip_blank(p);
+source[p]==_':'?(++p; skip_blank(p));
+r = find(source,_'\n',p)%size(source);
+run('+rows[0] ',p,',',r);
+source[r]==_'\n'?(i[#-1,h(#-1)-1] = is_first?0:_' ');
+copy(i[#0,p0],-1,min(r,size(source)-1)-p0+1,1,0); # Part to be discarded
+p = r + 1;
+is_first = 0;
+):++p
+)"
+a[^0] y discard.. -1
+autocrop[0] {'\n'} store[0] nongui$c
+s -,0
+f "max(_' ',i)"
+l[0] {
+_f${f}_preview_accuracy=0
+s -,{':'} autocrop {'" "'}
+_f${f}_name={`$macros" name=[['"{0,t}"'],0]; clean(name); name"`} rm[0]
+if $! l[0] {
+s -,{','} autocrop {'" "'}
+_f${f}_command={0,t}
+if $!>1 l[1] {
+s -,{'('}
+_f${f}_command_preview={0,t}
+if $!>1 l[1] {
+s +,{'+'} s +,{'*'}
+discard[0] {')'}
+_f${f}_zoom_factor={0,t}
+if $!>1" && "(i[0]==_'+'" || "i[0]==_'*') _f${f}_preview_accuracy:=i[0]==_'+'?1:2 fi
+} fi
+} fi
+rm
+} fi
+if $! _f${f}_input_mode={0,t} fi
+rm
+}
+e "\r > "$_vt100_c[#$f]$_vt100_n" "{`s=vector48(_'" "');copy(s,['${_f${f}_path}${_f${f}_name}']);s`}
+parseparams=1
+l[] { parseparams=${-parse_gui_parseparams_$1} onfail }
+if !$!" || "!$parseparams _f${f}_nb_params=0
+else
+eval $macros"
+ref(crop(),source);
+ref(vector256(),name);
+ref(vector256(),type);
+ref(vector65536(),argument);
+p = nb_params = 0;
+while (p "${_vt100_g}{`s=vector64(_'" "');copy(s,'"Parsing done!"');s`}$_vt100_n
+v + parse_gui_$1
+parse_gui_parseparams_print : u 0
+parse_gui_trigger_print : sort_list +,n
+parse_gui_print :
+e "\r"${_vt100_g}{`vector68(_'" "')`}$_vt100_n
+e " > "${_vt100_g}"List of matching filters:"$_vt100_n"\n\n"
+repeat $_nb_filters {
++e " [#"{1+$>}"] "${_f$>_path}${_f$>_name}
+}
+parse_gui_parseparams_images : u 1
+parse_gui_images :
+e " >> Generate output, in 'images' mode.\n"
+_preview_area_width,_preview_area_height=256
+if !narg($_input_image) sp landscape,800 store. _input_image fi
+repeat $_nb_filters { f=$> if '${_f${f}_locale}'==0
+command=${_f${f}_command_preview}
+if ['$command']==0 command=${_f${f}_command} fi
+pipeline=
+c=
+if s='$command';s!='_none_'&&s!='fx_whatsnew_preview'
+pipeline.=$command" "
+repeat ${_f${f}_nb_params} { p=$>
+type=${_f${f}_p${p}_type}
+arg0=${_f${f}_p${p}_a0}
+if s='$type';s=='file'||s=='filein'||s=='fileout'||s=='folder'||s=='value'
+if !${_f{$f}_p${p}_nb_args} pipeline.=$c\"\"
+else
+args= ac=
+repeat ${_f${f}_p${p}_nb_args} { a=$> args.=$ac${_f${f}_p${p}_a${a}} ac=, }
+s=\"
+if ['$args']==0 s=\" elif ['$args'][0]==_'\"' s= fi
+pipeline.=$c$s$args$s
+fi
+c=,
+elif s='$type';s=='text'
+val,off=0
+N=${_f${f}_p${p}_nb_args}
+l[] { if isint($arg0) val=$arg0 N-=1 off=1 fi onfail }
+args= ac=
+repeat $N { a=$> na:=$a+$off args.=$ac{/${_f${f}_p${p}_a${na}}} ac=, }
+s=\"
+if ['$args']==0 s=\" elif ['$args'][0]==_'\"' s= fi
+pipeline.=$c$s$args$s
+c=,
+elif s='$type';s=='float'||s=='int'
+pipeline.=$c$arg0 c=,
+elif s='$type';s=='button'
+pipeline.=${c}0 c=,
+elif s='$type';s=='bool'
+val=0
+if s='$arg0';s==1||s=='true' val=1 fi
+pipeline.=$c$val c=,
+elif s='$type';s=='choice'
+val=0
+l[] { if isint($arg0) val=$arg0 fi onfail }
+pipeline.=$c$val c=,
+elif s='$type';s=='color'
+if ${_f${f}_p${p}_nb_args}==1" && "['$arg0'][0]==_'#' # Convert colors specified as '#RRGGBB[AA]'
+l[] {
+('$arg0') autocrop. {'#'} s x,-2 _f${f}_p${p}_nb_args=$!
+repeat $! { a=$> hex2dec {$>,t} _f${f}_p${p}_a${a}=${} } rm
+}
+fi
+repeat ${_f${f}_p${p}_nb_args} { a=$> pipeline.=$c${_f${f}_p${p}_a${a}} c=, }
+elif s='$type';s=='point'
+pipeline.=$c$arg0,${_f${f}_p${p}_a1} c=,
+fi
+}
+fi
++e ${_vt100_c}" [#"{1+$>}"] "${_vt100_n}${_f${f}_name}": "${_vt100_g}$pipeline${_vt100_n}
+if ['$pipeline']!=0
+file_out=${_f${f}_name}.png
+l[] {
+$_input_image run $pipeline
+gui_merge_layers
+}
+fi
+if !$! $_input_image gui_no_preview , fi
+c. 0,255 r. 100%,100%,1,{min(s,4)} to_rgba.
+if {*} w. ${"fitscreen ."} fi
+o. $file_out rm.
+fi }
+e " >> "${_vt100_g}{`s=vector64(_'" "');copy(s,'"Output done!"');s`}$_vt100_n
+parse_gui_parseparams_thumbnails : u 1
+parse_gui_thumbnails :
+e " >> Generate output, in 'thumbnails' mode.\n"
+if !isdir('thumbnails') x "mkdir -p thumbnails" fi
+sp landscape r2dy 256 r 256,256,1,3,0,0,0.5,0.5 store img
+_preview_area_width,_preview_area_height=256
+repeat $_nb_filters { f=$>
+nb$f=${_f${f}_nb_params}
+}
+repeat $_nb_filters { f=$>
+command=${_f${f}_command_preview}
+if ['$command']==0 command=${_f${f}_command} fi
+pipeline=
+c=
+if s='$command';s!='_none_'&&s!='fx_whatsnew_preview'
+pipeline.=$command" "
+repeat ${_f${f}_nb_params} { p=$>
+type=${_f${f}_p${p}_type}
+arg0=${_f${f}_p${p}_a0}
+if s='$type';s=='file'||s=='filein'||s=='fileout'||s=='folder'||s=='value'
+if !${_f{$f}_p${p}_nb_args} pipeline.=$c\"\"
+else
+args= ac=
+repeat ${_f${f}_p${p}_nb_args} { a=$> args.=$ac${_f${f}_p${p}_a${a}} ac=, }
+s=\"
+if ['$args']==0 s=\" elif ['$args'][0]==_'\"' s= fi
+pipeline.=$c$s$args$s
+fi
+c=,
+elif s='$type';s=='text'
+val,off=0
+N=${_f${f}_p${p}_nb_args}
+l[] { if isint($arg0) val=$arg0 N-=1 off=1 fi onfail }
+args= ac=
+repeat $N { a=$> na:=$a+$off args.=$ac{/${_f${f}_p${p}_a${na}}} ac=, }
+s=\"
+if ['$args']==0 s=\" elif ['$args'][0]==_'\"' s= fi
+pipeline.=$c$s$args$s
+c=,
+elif s='$type';s=='float'||s=='int'
+pipeline.=$c$arg0 c=,
+elif s='$type';s=='button'
+pipeline.=${c}0 c=,
+elif s='$type';s=='bool'
+val=0
+if s='$arg0';s==1||s=='true' val=1 fi
+pipeline.=$c$val c=,
+elif s='$type';s=='choice'
+val=0
+l[] { if isint($arg0) val=$arg0 fi onfail }
+pipeline.=$c$val c=,
+elif s='$type';s=='color'
+if ${_f${f}_p${p}_nb_args}==1" && "['$arg0'][0]==_'#' # Convert colors specified as '#RRGGBB[AA]'
+l[] {
+('$arg0') autocrop. {'#'} s x,-2 _f${f}_p${p}_nb_args=$!
+repeat $! { a=$> hex2dec {$>,t} _f${f}_p${p}_a${a}=${} } rm
+}
+fi
+repeat ${_f${f}_p${p}_nb_args} { a=$> pipeline.=$c${_f${f}_p${p}_a${a}} c=, }
+elif s='$type';s=='point'
+pipeline.=$c$arg0,${_f${f}_p${p}_a1} c=,
+fi
+}
+fi
++e ${_vt100_c}" [#"{1+$>}"] "${_vt100_n}${_f${f}_name}": "${_vt100_g}$pipeline${_vt100_n}
+if ['$pipeline']!=0
+filename thumbnails/thumb.png,$f file_out=${}
+l[] {
+$img run $pipeline gui_merge_layers r2din 200,200,2
+onfail e "Error "$_vt100_r${}$_vt100_n"\n" rm
+}
+fi
+if !$! $img gui_no_preview , fi
+c. 0,255 r2din. 200,200,2 r. 100%,100%,1,{min(s,4)} to_rgba. r. 200,200,1,4,0,0,0.5,0.5
+if {*} w. ${"fitscreen ."} fi
+o. $file_out rm.
+}
+e " >> "${_vt100_g}{`s=vector64(_'" "');copy(s,'"Output done!"');s`}$_vt100_n
+parse_gui_parseparams_whatsnew : u 0
+parse_gui_whatsnew :
+e " >> Generate output, in 'whatsnew' mode.\n"
+l[] { if $_nb_filters
+1,1,1,1x$_nb_filters
+repeat $! { =>[$>] -${_f$>_path}${_f$>_name} f[$>] $> }
+sort_list +,n a x
+repeat w { n={0,i[$>]} ('${_f${n}_path}" "${_f${n}_name}\n') }
+rm[0]
+fi }
+y a y
+e "\r >> "${_vt100_g}{`s=vector64(_'" "');copy(s,'"Output done!"');s`}$_vt100_n
+parse_gui_parseparams_list : u 0
+parse_gui_list :
+e " >> Generate output, in 'list' mode.\n"
+('"*** List of filters in the G\47MIC plug-in ("$_nb_filters" filters, on "{date(0)}"/"{`v=date(1);sv=v2s(v);v<10?[_'0',sv]:[sv,0]`}"/"{`v=date(2);sv=v2s(v);v<10?[_'0',sv]:[sv,0]`}", "{`v=date(4);sv=v2s(v);v<10?[_'0',sv]:[sv,0]`}":"{`v=date(5);sv=v2s(v);v<10?[_'0',sv]:[sv,0]`}") ***\n\n"')
+('"* List of filters, sorted by path:\n\n"')
+l[] {
+1,1,1,1x$_nb_filters
+repeat $! { =>[$>] -${_f$>_path}${_f$>_name} f[$>] $> }
+sort_list +,n a x
+repeat w {
+n={0,i[$>]}
+('${_f${n}_path}${_f${n}_name}" (command: '"${_f${n}_command}"')\n"')
+}
+rm[0]
+}
+('"\n* List of filters, sorted alphabetically:\n\n"')
+l[] {
+1,1,1,1x$_nb_filters
+repeat $! { =>[$>] -${_f$>_name} f[$>] $> }
+sort_list +,n a x
+repeat w {
+n={0,i[$>]}
+('${_f${n}_name}" (in '"${_f${n}_path}"')\n"')
+}
+rm[0]
+}
+('"\n*** End of list ***\n"')
+y a y
+e "\r >> "${_vt100_g}{`s=vector64(_'" "');copy(s,'"Output done!"');s`}$_vt100_n
+parse_gui_parseparams_update : u 1
+parse_gui_update :
+e " >> Generate output, in 'update' mode.\n"
+path=/
+N:=$_nb_filters-1
+is_af:="date([1,2])==[4,1] && (date(4)%2)"
+repeat $_nb_filters { f=$>
+e "\r >> "$_vt100_c[#$f/$N]$_vt100_n" "{`s=vector48(_'" "');copy(s,['${_f${f}_path}${_f${f}_name}']);s`}
+if ;['$path']!=['${_f${f}_path}']
+command_path={`"
+src = ['"$path"'];
+dest = ['"${_f${f}_path}'"];
+ref(vector1024(),command);
+for (p = 0, p0 && src[p]!=_'/' && dest[p]!=_'/', --p);
+nb_levelup = 0;
+for (q = p + 1, q':'');
+copy(command[eoc + 3],dest[p],q-p);
+copy(command[eoc + 3 + q - p],is_italic?'\n':' \n');
+p = q + 1;
+); command"`}
+('$command_path\n')
+fi
+path=${_f${f}_path}
+if narg(${_f${f}_command_preview}) command_preview=,${_f${f}_command_preview} else command_preview= fi
+if narg(${_f${f}_locale}) locale=_${_f${f}_locale} else locale= fi
+if narg(${_f${f}_zoom_factor}) zoom_factor=(${_f${f}_zoom_factor}) else zoom_factor= fi
+if ${_f${f}_preview_accuracy}==1 preview_accuracy=+
+elif ${_f${f}_preview_accuracy}==2 preview_accuracy=*
+else preview_accuracy=
+fi
+if narg(${_f${f}_input_mode}) input_mode=" : "${_f${f}_input_mode} else input_mode= fi
+strcapitalize ${_f${f}_name} name=${}
+if ['${_f${f}_hide}']!=0 ('"#@gui"$locale" hide("${_f${f}_hide}")\n"') fi
+('"#@gui"$locale" "$name:${_f${f}_command}$command_preview$zoom_factor$preview_accuracy$input_mode\n')
+repeat ${_f${f}_nb_params} { p=$>
+responsivity,visibility=
+if !${_f${f}_p${p}_responsivity} responsivity=_ fi
+if narg(${_f${f}_p${p}_visibility}) visibility=_${_f${f}_p${p}_visibility}${_f${f}_p${p}_propagation} fi
+is_choice:=['${_f${f}_p${p}_type}']=='choice'
+is_color:=['${_f${f}_p${p}_type}']=='color'
+args= c=
+if $is_choice
+repeat ${_f${f}_p${p}_nb_args} { a=$>
+if $is_af straprilfool ${_f${f}_p${p}_a${a}}
+else strcapitalize ${_f${f}_p${p}_a${a}}
+fi
+args.=$c${} c=,
+}
+elif $is_color
+if inrange(${_f${f}_p${p}_nb_args},3,4)" && "inrange(${_f${f}_p${p}_a0},0,255)" && "inrange(${_f${f}_p${p}_a1},0,255)" && "inrange(${_f${f}_p${p}_a2},0,255)" && "(${_f${f}_p${p}_nb_args}==3" || "inrange(${_f${f}_p${p}_a3},0,255))
+args=#
+repeat ${_f${f}_p${p}_nb_args} { a=$>
+args.={`"tab = [ _'0',_'1',_'2',_'3',_'4',_'5',_'6',_'7',_'8',_'9',_'a',_'b',_'c',_'d',_'e',_'f' ];
+const v = "${_f${f}_p${p}_a${a}}"; [ tab[(v>>4)&15],tab[v&15] ]"`}
+}
+else repeat ${_f${f}_p${p}_nb_args} { a=$> args.=$c${_f${f}_p${p}_a${a}} c=, }
+fi
+else
+repeat ${_f${f}_p${p}_nb_args} { a=$> args.=$c${_f${f}_p${p}_a${a}} c=, }
+fi
+sep1,sep2={`"
+s = ['"{/$args}"'];
+size(s)?(
+find(s,_'(')<0 && find(s,_')')<0?[_'(',_',',_')']:
+find(s,_'{')<0 && find(s,_'}')<0?[_'{',_',',_'}']:
+[_'[',_',',_']']
+):[_'(',_',',_')'];
+"`}
+if s=['${_f${f}_p${p}_type}'];"s=='link' || s=='note' || s=='separator' || s=='value'" name=_
+else strcapitalize ${_f${f}_p${p}_name} name=${}
+fi
+('"#@gui"$locale" :"{/$name}=$responsivity${_f${f}_p${p}_type}{``$sep1}{``{/$args}}{``$sep2}$visibility\n')
+}
+}
+$_nongui y a y
+compress_gmic.
+i[0] ('"#@gmic"\n"#"\n"# File : update"$_version".gmic"\n"# ( G\47MIC command file )"\n"#"\n"# Description : Update file for G\47MIC commands and filters, ""for version "${strver" "$_version,$_prerelease}")."\n"# ( https://gmic.eu )"\n"#"\n"# License : CeCILL v2.1"\n"# ( https://cecill.info/licences/Licence_CeCILL_V2.1-en.html )"\n"#"\n"# Generated on : "{date(0)}"/"{`v=date(1);sv=v2s(v);v<10?[_'0',sv]:[sv,0]`}"/"{`v=date(2);sv=v2s(v);v<10?[_'0',sv]:[sv,0]`}", "{`v=date(4);sv=v2s(v);v<10?[_'0',sv]:[sv,0]`}":"{`v=date(5);sv=v2s(v);v<10?[_'0',sv]:[sv,0]`}\n"#"\n')
+('"\n# Local Variables:"\n"# mode: sh"\n"# End:"\n"#"\n"# (End of G\47MIC update file)"')
+y a y
+e "\r >> "${_vt100_g}{`s=vector64(_'" "');copy(s,'"Output done!"');s`}$_vt100_n
+straprilfool : skip "${1=}"
+if ['"$1"']==0 u "" return fi
+l[] {
+('{/"$1"}')
+f "(i<=_' ' || i==_'_') && i!=_'\n'?_' ':i"
+f "x%2?lowercase(i):uppercase(i)"
+f "c = lowercase(i);
+c==_'o'?_'0':
+c==_'i'?_'1':
+c==_'e'?_'3':
+c==_'a'?_'4':
+c==_'s'?_'5':
+c==_'t'?_'7':
+c==_'b'?_'8':
+i"
+u {t} rm
+}
+parse_gui_parseparams_json : u 1
+parse_gui_trigger_json :
+foreach {
+=> {`s=[['{n}'],0];p=find(s,_'/',size(s)-1,0);p>=0?(p=find(s,_'/',p-1,0);p>0?copy(s,s[p+1],size(s)-p));s`}
+}
+sort_list +,n
+parse_gui_json :
+e " >> Generate output, in 'json' mode.\n"
+('"{\n \"format_version\": \"gmic_json_1.0\",\n \"gmic_version\": \""${-strver}"\",\n \"categories\": [\n"')
+current_category=
+N:=$_nb_filters-1
+repeat $_nb_filters { f=$>
+e "\r >> "$_vt100_c[#$f/$N]$_vt100_n" "{`s=vector48(_'" "');copy(s,['${_f${f}_path}${_f${f}_name}']);s`}
+0 => {`s=['${_f${f}_path}'];s[0,size(s)-1]`} _parse_gui_json[] {b} path=${} rm.
+if ['$current_category']!=['$path']
+if ['$current_category']!=0 ('" ]\n },\n"') fi
+('" {\n"')
+('" \"name\": \""$path"\", \"filters\": [\n"')
+current_category=$path
+else
+if i[-1,2]==_'\n' z. 0,{w-2} fi
+('",\n"')
+fi
+_parse_gui_json[] ${_f${f}_name} fname=${}
+locale=en
+if narg(${_f${f}_locale}) locale=${_f${f}_locale} fi
+('" {\n \"name\": \""$fname"\", \"lang\": \""$locale"\", \"command\": \""${_f${f}_command}"\", ""\"command_preview\": \""${_f${f}_command_preview}"\", \"parameters\": [\n"')
+sepf={`$
+_parse_gui_json ${_f${f}_p{$p}_name} name={/${}}
+type=${_f${f}_p{$p}_type}
+nbargs=${_f${f}_p{$p}_nb_args}
+arg0= repeat $nbargs { ('${_f${f}_p${p}_a$>}') autocrop. {'\"'} _parse_gui_json {t} arg$>=${} rm. }
+sepp={`$ choices.=${c}"\""$>"\": \""${arg{$n+$a}}"\"" c=", " }
+('" { \"type\": \"choice\", \"name\": \""$name"\", \"default\": \""$default"\", \"pos\": \""$ppos"\", ""\"choices\": { "$choices" }"$visibility" }"$sepp\n')
+ppos+=1
+elif ['$type']=='color'
+if $nbargs==1" && "['$arg0'][0]==_'#' # Convert colors specified as '#RRGGBB[AA]'
+l[] { ('$arg0') autocrop. {'#'} s x,-2 nbargs=$! repeat $! { a=$> hex2dec {$>,t} arg$a=${} } rm }
+fi
+args= c= repeat $nbargs { a=$> args.=$c${arg$a} c="," }
+('" { \"type\": \"color\", \"name\": \""$name"\", \"default\": \""$args"\", \"pos\": ""\""$ppos"\""$visibility" }"$sepp\n')
+ppos+=$nbargs
+elif s=['$type'];s=='int'
+('" { \"type\": \"int\", \"name\": \""$name"\", \"default\": \""$arg0"\", \"min\": \""$arg1"\", ""\"max\": \""$arg2"\", \"pos\": \""$ppos"\""$visibility" }"$sepp\n')
+ppos+=1
+elif s=['$type'];s=='float'
+('" { \"type\": \"float\", \"name\": \""$name"\", \"default\": \""$arg0"\", \"min\": \""$arg1"\", ""\"max\": \""$arg2"\", \"pos\": \""$ppos"\""$visibility" }"$sepp\n')
+ppos+=1
+elif ['$type']=='file'" || "['$type']=='filein'" || "['$type']=='fileout'
+('" { \"type\": \"file\", \"name\": \""$name"\", \"default\": \""{/$arg0}"\", \"pos\": ""\""$ppos"\""$visibility" }"$sepp\n')
+ppos+=1
+elif ['$type']=='folder'
+('" { \"type\": \"folder\", \"name\": \""$name"\", \"default\": \""{/$arg0}"\", \"pos\": ""\""$ppos"\""$visibility" }"$sepp\n')
+ppos+=1
+elif ['$type']=='link'
+align=-1 name= url= n=0
+l[] { if isnum($arg0) align=$arg0 n+=1 fi onfail }
+if $nbargs-$n>1 name=${arg$n} url=${arg{$n+1}}
+else url,name=${arg$n}
+fi
+if $align==0 align=left elif $align==1 align=right else align=center fi
+('" { \"type\": \"link\", \"name\": \""$name"\", \"url\": \""{/$url}"\", \"align\": ""\""$align"\""$visibility" }"$sepp\n')
+elif ['$type']=='note'
+('" { \"type\": \"note\", \"text\": \""{/$arg0}"\""$visibility" }"$sepp\n')
+elif ['$type']=='point'
+('" { \"type\": \"point\", \"name\": \""$name"\", \"position\": \""$arg0,$arg1"\", \"pos\": ""\""$ppos"\""$visibility" }"$sepp\n')
+ppos+=2
+elif ['$type']=='separator'
+('" { \"type\": \"separator\""$visibility" }"$sepp\n')
+elif ['$type']=='text'
+('" { \"type\": \"text\", \"name\": \""$name"\", \"default\": \""{/$arg0}"\", \"pos\": ""\""$ppos"\""$visibility" }"$sepp\n')
+ppos+=1
+elif ['$type']=='value'
+('" { \"type\": \"value\", \"value\": \""{/$arg0}"\", \"pos\": \""$ppos"\""$visibility" }"$sepp\n')
+ppos+=1
+else
+('" { \"type\": \"unknown\", \"name\": \""$name"\""$visibility" }"$sepp\n')
+fi
+}
+('" ]\n }\n"')
+}
+if ['$current_category']!=0 ('" ]\n }\n"') fi
+('" ]\n}\n"')
+y a y html2utf8
+e "\r >> "${_vt100_g}{`s=vector64(_'" "');copy(s,'"Output done!"');s`}$_vt100_n
+_parse_gui_json :
+l[] {
+('{/"$*"}')
+replace_str "\\","\\\\"
+replace_str "\n","\\n"
+replace_str "\r","\\r"
+replace_str "\"","\\\""
+replace_str "&","&"
+replace_str " "," "
+replace_str. "",""
+replace_str. " ",""
+replace_str. "",""
+replace_str. " ",""
+replace_str. "",""
+replace_str. " ",""
+u {t} rm.
+onfail u ""
+}
+parse_gui_parseparams_gmicol : u 1
+parse_gui_trigger_gmicol :
+foreach {
+=> {`s=[['{n}'],0];p=find(s,_'/',size(s)-1,0);p>=0?(p=find(s,_'/',p-1,0);p>0?copy(s,s[p+1],size(s)-p));s`}
+}
+sort_list +,n
+parse_gui_gmicol :
+e " >> Generate output, in 'gmicol' mode.\n"
+('"\n""\n\n""\n"')
+current_category=
+N:=$_nb_filters-1
+repeat $_nb_filters { f=$>
+e "\r >> "$_vt100_c[#$f/$N]$_vt100_n" "{`s=vector48(_'" "');copy(s,['${_f${f}_path}${_f${f}_name}']);s`}
+0 => {`s=['${_f${f}_path}'];s[0,size(s)-1]`} ('{b}') _gmd_ascii2html. path={t} rm[-2,-1]
+if ['$current_category']!=['$path']
+if ['$current_category']!=0 ('"\n\n"') fi
+('"\n\n\n"')
+current_category=$path
+fi
+('${_f${f}_name}') _gmd_ascii2html. fname={t} rm.
+locale=en
+if narg(${_f${f}_locale}) locale=${_f${f}_locale} fi
+zoom_factor=
+if narg(${_f${f}_zoom_factor}) zoom_factor=" zoom_factor=\""${_f${f}_zoom_factor}"\"" fi
+zoom_accurate=
+if ${_f${f}_preview_accuracy}!=0 zoom_accurate=" preview_accuracy=\""${_f${f}_preview_accuracy}"\"" fi
+('"\n \n"" \n"')
+sepf={`$
+({'${_f${f}_p{$p}_name}'}) _gmd_ascii2html. name={t} rm.
+type=${_f${f}_p{$p}_type}
+nbargs=${_f${f}_p{$p}_nb_args}
+arg0= repeat $nbargs { ('${_f${f}_p${p}_a$>}') autocrop. {'\"'} _gmd_ascii2html. arg$>={/{t}} rm. }
+sepp={`$\n"')
+elif ['$type']=='button'
+if !$nbargs arg0=0.5 fi
+('" \n"')
+elif ['$type']=='choice'
+default=0 n=0 choices=
+l[] { if isnum($arg0)&&isint($arg0) default=$arg0 n+=1 fi onfail }
+('" \n"')
+repeat $nbargs-$n { a=$>
+choice=${arg{$n+$a}}
+('" - \n"')
+}
+('"
\n"')
+elif ['$type']=='color'
+if $nbargs==1" && "['$arg0'][0]==_'#' # Convert colors specified as '#RRGGBB[AA]'
+l[] { ('$arg0') autocrop. {'#'} s x,-2 nbargs=$! repeat $! { a=$> hex2dec {$>,t} arg$a=${} } rm }
+fi
+if $nbargs>3
+('" \n"')
+else
+('" \n"')
+fi
+elif s=['$type'];s=='int'
+('" "\n')
+elif s=['$type'];s=='float'
+('" "\n')
+elif ['$type']=='file'" || "['$type']=='filein'" || "['$type']=='fileout'
+('" \n"')
+elif ['$type']=='folder'
+('" \n"')
+elif ['$type']=='link'
+align=0 name= url= n=0
+l[] { if isnum($arg0) align=$arg0 n+=1 fi onfail }
+if $nbargs-$n>1 name=${arg$n} url=${arg{$n+1}}
+else url,name=${arg$n}
+fi
+('" \n"$arg0"\n "\n')
+elif ['$type']=='point'
+if narg($arg2) removable=" removable=\""$arg2"\"" else removable= fi
+if narg($arg3) burst=" burst=\""$arg3"\"" else burst= fi
+if narg($arg4) red=" red=\""$arg4"\"" else red= fi
+if narg($arg5) green=" green=\""$arg5"\"" else green= fi
+if narg($arg6) blue=" blue=\""$arg6"\"" else blue= fi
+if narg($arg7) alpha=" alpha=\""$arg7"\"" else alpha= fi
+if narg($arg8) radius=" radius=\""$arg8"\"" else radius= fi
+('" \n"')
+elif ['$type']=='separator'
+('" "')
+if ['${arg$n}']!=0
+if $multiline ('\n${arg$n}\n \n') else ('${arg$n}\n') fi
+else ('"\n"') fi
+elif ['$type']=='value'
+('" \n"')
+else
+('" \n"')
+fi
+}
+('" \n"')
+}
+if ['$current_category']!=0 ('"\n \n"') fi
+('"\n "')
+y a y html2utf8
+e "\r >> "${_vt100_g}{`s=vector64(_'" "');copy(s,'"Output done!"');s`}$_vt100_n
+parse_gui_strings :
+e " >> Generate output, in 'strings' mode.\n"
+N:=$_nb_filters-1
+repeat $_nb_filters { f=$>
+if !narg(${_f${f}_locale})" && "find(['${_f${f}_path}'],'Testing/')<0
+e "\r >> "$_vt100_c[#$f/$N]$_vt100_n" "{`s=vector48(_'" "');copy(s,['${_f${f}_path}${_f${f}_name}']);s`}
+_parse_gui_strings ${_f${f}_name}
+repeat ${_f${f}_nb_params} { p=$>
+type=${_f${f}_p${p}_type}
+if s=['$type'];s!='link'&&s!='note'&&s!='separator'&&s!='value' _parse_gui_strings ${_f${f}_p${p}_name} fi
+if ['$type']==['choice']
+repeat ${_f${f}_p${p}_nb_args} { a=$>
+arg=${_f${f}_p${p}_a${a}}
+l[] { if !isnum($arg) ({'$arg'}) discard. {'\"'} arg={t} rm. _parse_gui_strings $arg fi onfail }
+}
+fi
+}
+fi
+}
+sort_list +,N repeat $!-1 { i,ni={[$<,$<+1]} if ['{$i,n}']==['{$ni,n}'] +[$i,$ni] fi } sort_list -,i
+foreach { nm={n} ({'$nm" , "'}:y) k. => $nm }
+if $! y i[1--1] (10) a y else 0 fi
+_parse_gui_strings :
+str="$*"
+if size(['$str'])>2 l[] {
+if !isexpr($str)
+({'$str'}) replace_str. "---","-" replace_str. "--","-" str={t} rm.
+(1) => $str
+fi
+onfail } fi
+#@cli pass : _shared_state={ -1=status only | 0=non-shared (copy) | 1=shared | 2=adaptive } : (+)
+#@cli : Insert images from parent context of a custom command or a local environment.
+#@cli : Command selection (if any) stands for a selection of images in the parent context.
+#@cli : By default (adaptive shared state), selected images are inserted in a shared state if they do not belong
+#@cli : to the context (selection) of the current custom command or local environment as well.
+#@cli : Typical use of command 'pass' concerns the design of custom commands that take images as arguments.
+#@cli : This commands return the list of corresponding indices in the status.
+#@cli : Default value: 'shared_state=2'.
+#@cli : $ command "average : pass$""1 add[^-1] [-1] remove[-1] div 2" sample ? +mirror y +average[0] [1]
+#@cli plot : _plot_type,_vertex_type,_xmin,_xmax,_ymin,_ymax,_exit_on_anykey={ 0 | 1 } : 'formula',_resolution>=0,_plot_type,_vertex_type,_xmin,xmax,_ymin,_ymax,_exit_on_anykey={ 0 | 1 } : (+)
+#@cli : Display selected images or formula in an interactive viewer (use the instant display window [0] if opened).
+#@cli : 'plot_type' can be { 0=none | 1=lines | 2=splines | 3=bar }.
+#@cli : 'vertex_type' can be { 0=none | 1=points | 2,3=crosses | 4,5=circles | 6,7=squares }.
+#@cli : 'xmin', 'xmax', 'ymin', 'ymax' set the coordinates of the displayed xy-axes.
+#@cli : Default values: 'plot_type=1', 'vertex_type=1', 'xmin=xmax=ymin=ymax=0 (auto)' and 'exit_on_anykey=0'.
+#@cli p : eq. to 'print'.
+p :
+if $^<0 return fi
+_gmic_s0="$?" v + _print "",1,$[]
++p :
+_gmic_s0="$?" v + _print +,{$^>=0},$[]
+#@cli print
+#@cli : Print information on selected images, on the standard error ('stderr').
+#@cli : (eq. to 'p').
+#@cli : When invoked with a '+' prefix (i.e. '+print'), the command outputs on 'stdout' rather than on 'stderr'.
+print :
+if $^<0 return fi
+_gmic_s0="$?" v + _$0 "",1,$[]
++print :
+_gmic_s0="$?" v + _$0 +,{$^>=0},$[]
+_print_no_header :
+if $^<0 return fi
+_gmic_s0="$?" v + _print "",0,$[]
+_print : skip ${1=},${3=}
+if !$!
+if $2 e[0--5] "Print image []." fi
+is_change 0
+return
+fi
+nb_images=$!
+(${3--1}:y) => image_indices
+if $2
+if $nb_images<=6 $nb_images,1,1,1,x sel={^} rm. is_ellipsized=0
+else sel=0,1,2,{$nb_images-[3,2,1]} is_ellipsized=1
+fi
+log_title,sep=
+repeat narg($sel) {
+l_ind:=arg0($>,$sel)
+basename {$l_ind,n}
+basename={`"b = ['"{``${}}"']; size(b)>32?copy(b[32-3],[['...'],0]); b"`}
+log_title.=$sep$basename
+if $is_ellipsized" && "$>==2 sep=", (...) " else sep=", " fi
+}
+e[0--4] "Print image"$_gmic_s0" = '"$log_title"'."
+fi
+use_vt100 b,m,n=$_vt100_b,$_vt100_m,$_vt100_n
+repeat $nb_images {
+ind={image_indices,i[$>]}
+if {$>,!w}
+s_size="(0,0,0,0) [0b of "$_pixeltype"]."
+s_data="()."
+is_stats=0
+else
+s_buffer_size=${"strbuffer "{$>,whds*${-size_value}}}
+s_size=({$>,[w,h,d,s]})" ["$s_buffer_size" of "$_pixeltype"]."
+s_data=({$>,`"whds<=24?v2s(crop(),-1):(
+vals = vale = vector12();
+copy(vals,i[0],12); copy(vale,i[whds-12],12);
+string(#256,v2s(vals,-1),', ... ,',v2s(vale,-1));
+)"`}).
+im,iM,ia,id,xm,ym,zm,cm,xM,yM,zM,cM={$>,_[im,iM,ia,id,xm,ym,zm,cm,xM,yM,zM,cM]}
+s_stats=" "${_vt100_b}"min"$_vt100_n" = "$im", "${_vt100_b}"max"$_vt100_n" = "$iM", "${_vt100_b}"mean"$_vt100_n" = "$ia", "${_vt100_b}"std"$_vt100_n" = "$id", "${_vt100_b}"coords_min"$_vt100_n" = ("$xm,$ym,$zm,$cm"), "${_vt100_b}"coords_max"$_vt100_n" = ("$xM,$yM,$zM,$cM")."
+is_stats=1
+fi
+name={`"b = ['"{``{$>,n}}"']; size(b)>64?copy(b[64-3],[['...'],0]); b"`}
+$1e $m$b"["$ind"] = "'$name'$n:\n$b" size"$n" = "$s_size\n$b" data"$n" = "$s_data
+if $is_stats $1e $s_stats fi
+}
+rm[$nb_images--1]
+is_change 0
+#@cli random_pattern : _width>0,_height>0,_min_detail_level>=0
+#@cli : Insert a new RGB image of specified size at the end of the image list, rendered with a random pattern.
+#@cli : Default values: 'width=height=512' and 'min_detail_level=2'.
+#@cli : $ repeat 6 { random_pattern 256 }
++random_pattern : check "isint(${1=512}) && $1>0 && isint(${2=$1}) && $2>0 && ${3=2}>=0"
+e[^-1] "Generate a RGB image $1x$2, with a random pattern."
+m "rgb2rgb:"
+repeat 3 {
+do
+expr="z = [ "{u(20)}"*((x+0.5)/w-0.5), "{u(20)}"*((y+0.5)/h-0.5) + 0.5/h ]; "${-_random_pattern_expr}
+{round([$1,$2]*128/min($1,$2))},1,2,*$expr
+replace_infnan. 0 norm. n. 0,255 equalize. 256 c. 0,255
+cond=${"_random_pattern_check_image. $3"}
+if !$cond rm. fi
+while !$cond
+rm. $1,$2,1,2,*$expr
+replace_infnan. 0 norm. n. 0,255 equalize. 256 c. 0,255
+}
+a[-3--1] c
+${"arg0 "{int(u(6))%6}",ycbcr2rgb,hsi82rgb,hsl82rgb,hsv82rgb,lab82rgb,rgb2rgb"}.
+c. 0,255
+ac. "normalize_local {[u(2,15),u(2,max(w,h)/2)]}",${"arg0 "{int(u(4))%4}",lab_l,ycbcr_y,hsl_l,rgb"}
+ac. "*. '[{u([0.25,0.25,0.25],[2,2,2])}]'",${"arg "{1+int(u(6))%6}",lab,ycbcr,hsi,hsl,hsv,rgb"}
++equalize. 256 j.. .,0,0,0,0,{u(0.25,1)} rm. n. 0,255
+um rgb2rgb => random_pattern
+_random_pattern_expr : skip "${1=0},${2=0}"
+nl:=$2+1
+if (u<$1" && "$2>1)" || "$2>6
+r:=u
+if $r<0.75 u z
+else u [{_round(u([-1,-1],[1,1]),0.1)}]
+fi
+else
+p1,p2:=[$1,$1]+u([0.2,0.2])
+r:=u(27)
+if $r<1 u ccos(${$0\ $p1,$nl})
+elif $r<2 u csin(${$0\ $p1,$nl})
+elif $r<3 u ctan(${$0\ $p1,$nl})
+elif $r<4 u ccosh(${$0\ $p1,$nl})
+elif $r<5 u csinh(${$0\ $p1,$nl})
+elif $r<6 u ctanh(${$0\ $p1,$nl})
+elif $r<7 u cexp(${$0\ $p1,$nl})
+elif $r<8 u clog(${$0\ $p1,$nl})
+elif $r<9 u [cabs(${$0\ $p1,$nl}),0]
+elif $r<10 u [0,cabs(${$0\ $p1,$nl})]
+elif $r<11 u [carg(${$0\ $p1,$nl}),0]
+elif $r<12 u [0,carg(${$0\ $p1,$nl})]
+elif $r<13 u cconj(${$0\ $p1,$nl})
+elif $r<14 u (${$0\ $p1,$nl})+(${$0\ $p2,$nl})
+elif $r<15 u (${$0\ $p1,$nl})-(${$0\ $p2,$nl})
+elif $r<16 u ${$0\ $p1,$nl}**${$0\ $p2,$nl}
+elif $r<17 u ${$0\ $p1,$nl}//${$0\ $p2,$nl}
+elif $r<18 u (${$0\ $p1,$nl})^^0.5
+elif $r<19 u (${$0\ $p1,$nl})^^2
+elif $r<20 u (${$0\ $p1,$nl})^^3
+elif $r<21 u ${$0\ $p1,$nl}*${$0\ $p2,$nl}
+elif $r<22 u ${$0\ $p1,$nl}/(0.01+cabs(${$0\ $p2,$nl}))
+elif $r<23 u abs(${$0\ $p1,$nl})^0.5
+elif $r<24 u (${$0\ $p1,$nl})^2
+elif $r<25 u [(${$0\ $p1,$nl})[0],0]
+elif $r<26 u [0,(${$0\ $p1,$nl})[1]]
+else u (${$0\ $p1,$nl})^3
+fi
+fi
+_random_pattern_check_image :
+cond=1
++s. xy,4
+foreach[^0] {
+gradient_norm
+if ic<$1 cond=0 break fi
+}
+k[0] u $cond
+#@cli screen : _x0[%],_y0[%],_x1[%],_y1[%] : (+)
+#@cli : Take screenshot, optionally grabbed with specified coordinates, and insert it
+#@cli : at the end of the image list.
+#@cli select : feature_type,_X[%]>=0,_Y[%]>=0,_Z[%]>=0,_exit_on_anykey={ 0 | 1 },_is_deep_selection={ 0 | 1 } : (+)
+#@cli : Interactively select a feature from selected images (use the instant display window [0] if opened).
+#@cli : 'feature_type' can be { 0=point | 1=segment | 2=rectangle | 3=ellipse }.
+#@cli : Arguments 'X','Y','Z' determine the initial selection view, for 3D volumetric images.
+#@cli : The retrieved feature is returned as a 3D vector (if 'feature_type==0') or as a 6d vector
+#@cli : (if 'feature_type!=0') containing the feature coordinates.
+#@cli : Default values: 'X=Y=Z=(undefined)', 'exit_on_anykey=0' and 'is_deep_selection=0'.
+#@cli serialize : _datatype,_is_compressed={ 0 | 1 },_store_names={ 0 | 1 } : (+)
+#@cli : Serialize selected list of images into a single image, optionally in a compressed form.
+#@cli : 'datatype' can be { auto | uint8 | int8 | uint16 | int16 | uint32 | int32 | uint64 | int64 | float32 | float64 }.
+#@cli : Specify 'datatype' if all selected images have a range of values constrained to a particular datatype,
+#@cli : in order to minimize the memory footprint.
+#@cli : The resulting image has only integers values in [0,255] and can then be saved as a raw image of
+#@cli : unsigned chars (doing so will output a valid .cimg[z] or .gmz file).
+#@cli : If 'store_names' is set to '1', serialization uses the .gmz format to store data in memory
+#@cli : (otherwise the .cimg[z] format).
+#@cli : Default values: 'datatype=auto', 'is_compressed=1' and 'store_names=1'.
+#@cli : $ image.jpg +serialize uint8 +unserialize[-1]
+#@cli shape_circle : _size>=0
+#@cli : Input a 2D circle binary shape with specified size.
+#@cli : Default value: 'size=512'.
+#@cli : $ shape_circle ,
++shape_circle : check "${1=512}>=0"
+e[^-1] "Input a $1x$1 circle binary shape."
+ir:=round($1)
+if !$ir 0
+elif $ir<2 $ir,$ir,1,1,1
+else
+{int($ir/2)+($ir%2)},{int($ir/2)+($ir%2)} =. 1,100%,100%
+distance. 1 <=. {(i+0.4)/sqrt(2)}
++mirror. x
+if $ir>1" && "($ir%2) r. {w-1},100%,1,1,0,0,1 fi
+a[-2,-1] x +mirror. y
+if $ir>1" && "($ir%2) r. 100%,{h-1},1,1,0,0,0,1 fi
+a[-2,-1] y
+fi
+=> "[2D circle shape]"
+#@cli shape_cupid : _size>=0
+#@cli : Input a 2D cupid binary shape with specified size.
+#@cli : Default value: 'size=512'.
+#@cli : $ shape_cupid ,
++shape_cupid : check "${1=512}>=0"
+e[^-1] "Input a $1x$1 cupid binary shape."
+ir:=round($1)
+if !$ir 0
+else
+base642img[] "MiBzaG9ydCBsaXR0bGVfZW5kaWFuCjEgMjMwMSAxIDEgIzI2NDQKeJx1mOl3lEUWxm+n6aS7IUSQRQQEFA37FtkFVFAEBxHZEoKACwRQEUHU0fGM58y""Zxa9z5i9AFBAhAZKwg8qACMM6CDgZIIQ9Kx0CmAHqzq/u2yR80A91nue5daveWm5tb2moNBSSkAiptCoq9RqToa6p3NVmMtyli2pzecp1IHWUke6R30""wjyB9hfh0o97AMIw11D8kQ0mDXRga6VpLlWsoA10L6uQzpQ909XVy6u6hkulTp6lJkyamw1GhTGc33b2iGHHYR+RT8RVvIUReThKbI3+H/0wflGD512""kT+oa3EaRt0M7mlEanFZ4X2QqdTLiLX8flK+5i+rWn36eb0MYqOyErT7eBp8rX2gz8Ej9H3iGww3Y5vZRg/QztvaqMuox13tAvpAdMX3JO0J+CX3AuG""l904wytuvOFV9yLYF5wgG8Fy9xK6j1S4iWBvcBL23lLpXkH3kio3Bd1Tqt10sIdcczOkULtLws0Eu4GzwEypdbPJfxx8S3aC190i2aWPge+iu0idW4r""uJDfcMvARuek+Ajsa7tT24O9lB33zuE3b4rdY1mtrw3zGPFtTZbm+K9/Qv+mM1Re6iPFKl2mM1Qp9R1Yxd1NJX8FXYptCDK2Ef0m5yfitgtcy7qsNMy""i7iLY9IGsMW1Cvx5aylm94XGfYSgp0seF6w9aMyWLKt6HP76HbShFYCxaDCXCTYTvZqksYq4fp01KwA31dKjXE6ff6PthZ9uoyxrSL7AOr3KNyQD9gz""B+Tg2CFe1yOGHaTf4Plrrv8BNYRq7eZi1OUqSN+7zJPJfCDGpJu6tdNXzmDPqRh6aHPShn8MDHXQ5+Ti8bD0l3HyiXa4u3ddZxcpT2ed9PxUtHAX5RK""fA4Z/51UJXkmvJp+HYQ/Aa+BH2J8M3WCXKPfB+GPUzbgacYTxmNWNsGYHqSdmWb3vBn1jIcvop4IcZzKfKbKSdp1Td+2b9ajsyl/ClsC22H8/NrKoew""p+pLQt8x2kzSDeT6lz1N2ofWjDlsue8hJ+p/QBeZXR30ziaEy2ndXx7BmA3st9le1JWPzstmOoBPYX2WNXzHbfPOrwT6LuKzQSazT+dbGauqaTcxW6S""vUH/hVYZtDPNckbUewVZjtYeoNbEepqxzba8R/gvoCW4Q5iWLrQP3etoAYiMhlK8v60Yn2XW+7ZGUfZe+ZSPvyiJGIXKDOOdqVcXuJdr0hJ7CVYZvNG""r3DHFToa4xRRErN70O+P0d+hp81/QHfno2OEEdpDboE/V+rY5lpz0tMv8/YzEJHrIzXl3Wm6VM2TkvJD/RJ00tMn0afsDFbgn8uuokct/F/j/wZfDsV""nYZenNQROYYtlzi5ojmWf9Ri4B3ak2Nt9/P1BvFdT4xc1Wwr42NzHrFzhxgpT/p5W55+zDjk2Bj8i7RAPyHefX6EdRjoqqT/ftJC/QPzOMP8f2zQgf8""+2vkW+lpS7yXf60SyfKA/RU+3Nv2zIT+Vto4z2+5knSU60vq2O9mGEh1h+rsGPczG8lvrwyeM21Cbi2+tn38iHoaY3kWb5uqf6fNg0ztIb+pf6GOjfl""3/RhsCvd3m/nNibbDVv83m5nPiKsj3eib+9ejT6C2kHP0r6yf4ntfT9VvL22zzcMD4JvvuAfPZRB3zdCfnZ5rpYjAPfRheZHyH7QGFxrfbPN3j3mej8""W3GN1hdW22drbe+brH59/xN3ZTkUfpY1GCfpRtsvRVYXwosnvLh2bqWtRTwV3QVa8jzKGdJAeOdZvbp1FkKrjP/rbae1uGTQ9sumD3K3rPL1uhaUo5+""RwymwqP4f0+sRThfPP/B5t3bp+t+1nLApzJGt5I+U+D1ST4Jfsd4TCbC1fxj8rz+aPgcuA4co/usnjGmozIazDfcT39jhuvBZ8ENGpdnwI3oUfgVgk9""RvhgcqLuZv7hk0eYt6CzdQ2x4/IEz2tv3c341Bc/JfwyvyDn24QFazvmSDlYRcxnST6tZHy05XyroV2swHuqhTUMlrPOpmh46Q53Z2jp0mTpytHPoOn""t0rj4Rus39aoYOD03WJqGb+gTndkqoWjszJimh89QzWUOhMvZjj+eo/2VV5iVDxuovrLV0xuMW6yVOf2/anvU02IbUWuukhV6TGO2N6iVJ1YvSRM9Lm""BTSUql3P8stt4+7Uzr3j48Z8xhzlsk5wz3PfWjzcZF23EDXOn9OtSD2s8kPs889wNqPc89qTmxPw5ZCrMe5fzWFT6P/IcY2Lhe5a966Tx/nPnXP99e4""n4+fXHbSPyYnuHcFPjE56XIb/Eu4f93zP+3mWJu8zxn3GmUD/7PudePe55x7Ax74lLk3OTe9PSrn3dwkj9HWeQ38ksuDh83H8xtJ+xU3v4FfdQuMF+F""T7hbCw2avuI9Xci+sS/r/Fq9yb8ODtnl+Pdn+Knxqf4VX41OL/+Yk93f0+/kWxqcGfs14jLhPI969DnM/8+unOfW8TaymmB5LTG1J6m2UHUfMbeXsqM""bfr4Px+hD2Rj2BM3o7ugr/Hfjncj9u1DH2md7gQvbdMOsnxnnWp0Hvwn8W97VGHUP3x28BayiFPT3OHjwgqcOcAT7f6/nsLWHWoc/PQuex76SgfX6j3""m35T1JvHudCmHPH5z9JvXnEclj2WHsGYl8g5/G/p/fR/zL0Xmv/IM7DRaZ/QOey3x/izC2l/I/W3zGss0Wm96NzuHuVcmafxX+/rfEXqHsxazKFemKs""/Qj311Gc4Uuwhbn/xeUFzrxK7g1eH0I/j67mnnGaMofRY/BPcE/xdRxBP82ZeF0/Mv9j6BE6nJj5mG+G2cfjMpgz6iZno/c/jh5An3/hbPX+J9D90PW""cx2dt7TaVPujb+kfrw8/oXui7+pn1we9xPbTYfE+zz3WDe78zdm8tMn4Wn65w7+/3wke10Ph59pLOcO9zEXtH3Wj8Mrw93Ptcxacd55Ln5fC2ut54Jb""wV3PvXEKMtOYu8PQHP0Hzj19n30nWd8Trs8SS/RdlUzjTP6+Fh/cbafwcuugb+oDj3NdhCbrvVYHP2vlVgnHfLV2CU9fOl3V0qDbmPui/AJuxxcxmrI""cYv2v4yyOo+z9vvBrHj+Tn2plp4Kd8/w15Ww3hudZPpU5Zs5s15mRgu5k16gVjf4J6hTD/Jd8MY676y1vVlzvvIN64r8dhb1vCe2swbdDXvsULePavY""YwvAlbx91rLWVrgmvON6yATXm/MsLMvdAOI5zf4jrOQtvIc+3WF+VruBxHMz+5+wxg0iljvyrcGG+W4IeR2lwA1Fd6JNw5I4FHsnKXTDkziM+h4x3I1""/Efj9fVgMfsd+UES5Xdzni8Gd3PWLqH8774BivreV/aOI72/WNobFnGVFtG0j+04h7d0AFoEFnCke19HeIpfFG7UZ5bN4z0bx6897N9X0cuZhEzgN36""mkALNkiqX+Msn1I/WViYzPBNdTXuQdOc5lyljel8/x1hzN+/MZ0tOuk4wijWzA4J9K8D+lvf1PCf6ltLU0iPdvkO7Xngf/XIbw/r2H98r4fzD9eWf3Z""u5GVv4foPOEnDEgMjAgMSAxICMzOQp4nHNn8GWIYmBgSGfIZchkSGaIZzCAQj0gLxMoms5QBZQHAHyqBfY="
+decompress_rle. r. $ir,$ir,1,1,5 if $ir>480 b. 0.2% fi >=. 40%
+fi
+=> "[2D cupid shape]"
+#@cli shape_diamond : _size>=0
+#@cli : Input a 2D diamond binary shape with specified size.
+#@cli : Default value: 'size=512'.
+#@cli : $ shape_diamond ,
++shape_diamond : check "${1=512}>=0"
+e[^-1] "Input a $1x$1 diamond binary shape."
+ir:=round($1)
+if !$ir 0
+elif $ir<2 $ir,$ir,1,1,1
+else
+{int($ir/2)+($ir%2)},{int($ir/2)+($ir%2)} =. 1,100%,100%
+distance. 1,1 <=. {i/2}
++mirror. x
+if $ir>1" && "($ir%2) r. {w-1},100%,1,1,0,0,1 fi
+a[-2,-1] x +mirror. y
+if $ir>1" && "($ir%2) r. 100%,{h-1},1,1,0,0,0,1 fi
+a[-2,-1] y
+fi
+=> "[2D diamond shape]"
+#@cli shape_dragon : _size>=0,_recursion_level>=0,_angle
+#@cli : Input a 2D Dragon curve with specified size.
+#@cli : Default value: 'size=512', 'recursion_level=18' and 'angle=0'.
+#@cli : $ shape_dragon ,
++shape_dragon : check "${1=512}>=0 && ${2=18}>=0" skip "${3=0}"
+e[^-1] "Input a $1x$1 Dragon curve, with recursion level $2 and angle $3."
+ir:=round($1)
+if !$ir 0
+else l[] {
+(0,1^0,0) ind=1
+repeat $2 { +f "begin(C = I["$ind"]; R = rot(90°)); R*(I - C) + C" ind:=2*h a y }
+s c -.. {-2,ia} -. {ia} a c / {max(abs(im),abs(iM))}
+angle:=$3-atan2(i1,i0)*180/pi f. "begin(R = rot("$angle"°)); R*I"
+n 0,{$1-1} round $1,$1,1,1 eval.. "!x?polygon(#1,2,I(0,y),I(1,y),1,1); I" k.
+} fi
+=> "[2D dragon shape]"
+#@cli shape_fern : _size>=0,_density[%]>=0,_angle,0<=_opacity<=1,_type={ 0=Asplenium adiantum-nigrum | 1=Thelypteridaceae }
+#@cli : Input a 2D Barnsley fern with specified size.
+#@cli : Default value: 'size=512', 'density=50%', 'angle=30', 'opacity=0.3' and 'type=0'.
+#@cli : $ shape_fern ,
++shape_fern : check "${1=512}>=0 && ${2=50%}>=0 && isnum(${3=30}) && ${4=0.3}>=0 && $4<=1 && isnum(${5=0})"
+e[^-1] "Input a $1x$1 Barnsley fern, with density $2, angle $3 and opacity $4."
+ir:=round($1)
+if !$ir 0
+else l[] {
+N:=${"is_percent $2"}?$ir^2*$2:$2
+$N,1,1,2
+eval "
+if ($5==0,
+f1 = [ 0,0,0,0.16 ]; g1 = [ 0,0 ];
+f2 = [ 0.2,-0.26,0.23,0.22 ]; g2 = [ 0,1.6 ];
+f3 = [ -0.15,0.28,0.26,0.24 ]; g3 = [ 0,0.44 ];
+f4 = [ 0.85,0.04,-0.04,0.85 ]; g4 = [ 0,1.6 ],
+f1 = [ 0,0,0,0.25 ]; g1 = [ 0,-0.4 ];
+f2 = [ 0.035,-0.2,0.16,0.04 ]; g2 = [ -0.09,0.02 ];
+f3 = [ -0.04,0.2,0.16,0.04 ]; g3 = [ 0.12,0.07 ];
+f4 = [ 0.95,0.005,-0.005,0.93 ]; g4 = [ -0.002,0.5 ];
+);
+xy = [ 0,0 ];
+repeat ("$N",n,
+r = u(100);
+xy = r<=1?((f1*xy)+=g1):
+r<=8?((f2*xy)+=g2):
+r<=15?((f3*xy)+=g3):((f4*xy)+=g4);
+I[n] = xy
+)"
+permute xczy
+i.. 2,2,1,1,{"R=rot(-$3°); R[2] = -R[2]; R[3] = -R[3]; R"} m*
+repeat 2 { sh. $>,$>,0,0 -. {im} rm. } n 0,{$ir-1}
+pointcloud -$4 r $ir,$ir,1,1,0,0,0.5,0.5
+} fi
+=> "[2D Barnsley fern]"
+#@cli shape_gear : _size>=0,_nb_teeth>0,0<=_height_teeth<=100,0<=_offset_teeth<=100,0<=_inner_radius<=100
+#@cli : Input a 2D gear binary shape with specified size.
+#@cli : Default value: 'size=512', 'nb_teeth=12', 'height_teeth=20', 'offset_teeth=0' and 'inner_radius=40'.
+#@cli : $ shape_gear ,
++shape_gear : check "${1=512}>=0 && isint(${2=12}) && $2>0 && ${3=20}>=0 && $3<=100 && ${4=0}>=0 && $4<=100 &&
+${5=40}>=0 && $5<=100"
+e[^-1] "Input a $1x$1 gear binary shape with $2 teeth, teeth height $3, teeth offset $4 and inner radius $5."
+ir:=round($1)
+if !$ir 0
+else l[] {
+$ir,$ir
+polygon {"
+const nb_teeth = $2;
+const height_teeth = $3%;
+const offset_teeth = 2*$4%;
+ref(vector2048(),pts);
+for (i = 0, i "[2D gear shape]"
+#@cli shape_heart : _size>=0
+#@cli : Input a 2D heart binary shape with specified size.
+#@cli : Default value: 'size=512'.
+#@cli : $ shape_heart ,
++shape_heart : check "${1=512}>=0"
+e[^-1] "Input a $1x$1 heart binary shape."
+ir:=round($1)
+if !$ir 0
+else l[] {
+2048,1,1,1,"t = x*2*pi/w; 16*sin(t)^3"
+2048,1,1,1,"t = x*2*pi/w; 13*cos(t) - 5*cos(2*t) - 2*cos(3*t) - cos(4*t)"
+a c display_parametric $ir,$ir,1,0,0,0
+flood 50%,50%,0,0,0,1,0 ==. 0
+} fi
+=> "[2D heart shape]"
+#@cli shape_menger : _nb_iterations>=0
+#@cli : Input a 3D voxelized representation of the Menger sponge.
+#@cli : Default value: 'nb_iterations=3'.
+#@cli : $ shape_menger 4 surfels3d , color3d 200 m3d 3
++shape_menger : l[] { check "isint(${1=3}) && $1>=0" nbi=$1 onfail noarg nbi=3 }
+e[^-1] "Input a "$nbi"-iterated Menger sponge, as a 3D binary image."
+3,3,3,1,"norm([x,y,z]-1)>1" (1)
+repeat $nbi { r. {3*[w,h,d]},1,0,2 +ri[0] . *[-2,-1] }
+k. => "[3D Menger Sponge]"
+#@cli shape_mosely : _nb_iterations>=0
+#@cli : Input a 3D voxelized representation of the Mosely snowflake.
+#@cli : Default value: 'nb_iterations=3'.
+#@cli : $ shape_mosely 4 surfels3d , color3d 200 m3d 3
++shape_mosely : l[] { check "isint(${1=3}) && $1>=0" nbi=$1 onfail noarg nbi=3 }
+e[^-1] "Input a "$nbi"-iterated Mosely snowflake, as a 3D binary image."
+3,3,3,1,"norm1([x,y,z]-1)<=2" =. 0,1,1,1 (1)
+repeat $nbi { r. {3*[w,h,d]},1,0,2 +ri[0] . *[-2,-1] }
+k. => "[3D Mosely Snowflake]"
+#@cli shape_polygon : _size>=0,_nb_vertices>=3,_angle
+#@cli : Input a 2D polygonal binary shape with specified geometry.
+#@cli : Default value: 'size=512', 'nb_vertices=5' and 'angle=0'.
+#@cli : $ repeat 6 { shape_polygon 256,{3+$>} }
++shape_polygon : check "${1=512}>=0 && isint(${2=5}) && $2>=3" skip ${3=0}
+e[^-1] "Input a $1x$1 polygon binary shape, with $2 vertices and angle $3 deg."
+ir:=round($1)
+if !$ir 0
+else l[] {
+(0;{2*pi}) + {($3-90)*pi/180} r. 1,{$2+1},1,1,3 rows. 0,{h-2}
+ir2:=round($ir/2)
++sin. cos..
+a x n 0,{$ir-1} s x +.. {-2,0.5*($ir-im-iM)} +. {-1,0.5*($ir-im-iM)} a x
+$ir,$ir polygon. $2,{-2,^},1,1 rm..
+} fi
+=> "[2D $2-polygon Shape]"
+#@cli shape_snowflake : size>=0,0<=_nb_recursions<=6
+#@cli : Input a 2D snowflake binary shape with specified size.
+#@cli : Default values: 'size=512' and 'nb_recursions=5'.
+#@cli : $ repeat 6 { shape_snowflake 256,$> }
++shape_snowflake : check "${1=512}>=0 && isint(${2=5}) && $2>=0 && $2<=6"
+e[^-1] "Input a $1x$1 snowflake binary shape, with $2 recursions."
+ir:=round($1)
+if !$ir 0
+else l[] {
+$ir,$ir (0;120;240) *. {pi/180} +sin. cos.. a[-2,-1] c
+repeat $2 {
+1,{4*h},1,2
+f.. "
+p0 = I;
+p1 = I[(y+1)%h];
+t = (p1 - p0)/3;
+pm = (p0 + p1)/2 - 0.866*[ -t[1], t[0] ];
+k = 4*y;
+I[#-1,k++] = p0;
+I[#-1,k++] = p0 + t;
+I[#-1,k++] = pm;
+I[#-1,k] = p1 - t;
+"
+rm..
+}
+*. {0.5*$1} +. {$1/2} permute. cyzx polygon.. {h},{^},1,1 rm.
+} fi
+=> "[2D snowflake shape]"
+#@cli shape_star : _size>=0,_nb_branches>0,0<=_thickness<=1
+#@cli : Input a 2D star binary shape with specified size.
+#@cli : Default values: 'size=512', 'nb_branches=5' and 'thickness=0.38'.
+#@cli : $ repeat 9 { shape_star 256,{$>+2} }
++shape_star : check "${1=512}>=0 && ${2=5}>0 && ${3=0.5}>=0 && $3<=1"
+e[^-1] "Input a $1x$1 star binary shape, with $2 branches and thickness $3."
+ir:=round($1)
+if !$ir 0
+else l[] {
+star3d $2,$3 col3d 1 c3d n3d *3d $1,$1
+$1,$1 j3d. ..,50%,50%,0,1,2 rm..
+} fi
+=> "[2D star shape]"
+#@cli sh : eq. to 'shared'. : (+)
+#@cli shared : x0[%],x1[%],y[%],z[%],c[%] : y0[%],y1[%],z[%],c[%] : z0[%],z1[%],c[%] : c0[%],c1[%] : c0[%] : (no arg) : (+)
+#@cli : Insert shared buffers from (opt. points/rows/planes/channels of) selected images.
+#@cli : Shared buffers cannot be returned by a command, nor a local environment.
+#@cli : (eq. to 'sh').
+#@cli : $ image.jpg shared 1 blur[-1] 3 remove[-1]
+#@cli : $ image.jpg repeat s { shared 25%,75%,0,$> mirror[-1] x remove[-1] }
+#@cli : $$ https://gmic.eu/oldtutorial/_shared
+#@cli sp : eq. to 'sample'.
++sp : skip "${1=?}",${2=0}
+v + _sample[] "$1",${2--1} v -
+if !${} noarg fi
+#@cli sample : _name1={ ? | apples | balloons | barbara | boats | bottles | butterfly | cameraman | car | cat | cliff | chick | colorful | david | dog | duck | eagle | elephant | earth | flower | fruits | gmicky | gmicky_mahvin | gmicky_wilber | greece | gummy | house | inside | landscape | leaf | lena | leno | lion | mandrill | monalisa | monkey | parrots | pencils | peppers | portrait0 | portrait1 | portrait2 | portrait3 | portrait4 | portrait5 | portrait6 | portrait7 | portrait8 | portrait9 | roddy | rooster | rose | square | swan | teddy | tiger | tulips | wall | waterfall | zelda },_name2,...,_nameN,_width={ >=0 | 0 (auto) },_height = { >=0 | 0 (auto) } : (no arg)
+#@cli : Input a new sample RGB image (opt. with specified size).
+#@cli : (eq. to 'sp').\n
+#@cli : Argument 'name' can be replaced by an integer which serves as a sample index.
+#@cli : $ repeat 6 { sample }
++sample : skip "${1=?}",${2=0}
+v + _sample[] "$1",${2--1} v -
+if !${} noarg fi
+__sample :
+u apples,balloons,barbara,boats,bottles,butterfly,cameraman,car,cat,chick,cliff,colorful,david,dog,duck,eagle,elephant,earth,flower,fruits,gmicky,gmicky_mahvin,gmicky_wilber,greece,gummy,house,inside,landscape,leaf,lena,leno,lion,mandrill,monalisa,monkey,parrots,pencils,peppers,portrait0,portrait1,portrait2,portrait3,portrait4,portrait5,portrait6,portrait7,portrait8,portrait9,roddy,rooster,rose,square,swan,teddy,tiger,tulips,wall,waterfall,zelda
+_sample :
+l[] {
+if "$#>=3 && isnum($-2) && isint($-2) && $-2>=0 && isnum($-1) && isint($-1) && $-1>=0" # W and H specified.
+N:=$#-2 W=$-2 H=$-1
+elif "$#>=2 && isnum($-1) && isint($-1) && $-1>=0" # Only W specified.
+N:=$#-1 W=$-1 H=0
+else
+N=$# W,H=0
+fi
+onfail N=$# W,H=0
+}
+$=arg
+samples=${-__sample}
+M=${"arg2var _sp_name",$samples}
+is_arg=1
+repeat $N {
+arg=${arg{1+$>}} is_rand{1+$>}=0
+if ['$arg']=='?' arg:=round(u(1,$M)) is_rand{1+$>}=1
+elif !isnum($arg)" || "!isint($arg)
+repeat $M {
+name=${_sp_name{1+$>}}
+if '$name'!=0" && "'$name'==['$arg'] arg:=1+$> break fi
+}
+else arg:=($arg%$M)+1 fi
+if !isnum($arg)" || "!isint($arg) is_arg=0 break fi
+arg{1+$>}=$arg
+}
+if !$is_arg N=1 W=0 H=0 arg1:=round(u(1,$M)) fi
+repeat $N {
+name=${_sp_name${arg{1+$>}}}
+l[] {
+input_cached img/sample_$name.png
+onfail testimage2d {m=max($W,$H);m>0?m:400}
+}
+if $W>0" && "$H==0 r2dx. $W round.
+elif $W==0" && "$H>0 r2dy. $H round.
+elif $W>0" && "$H>0
+if w/$W>h/$H r2dy. $H else r2dx. $W fi
+r. $W,$H,1,100%,0,0,0.5,0.5 round.
+fi
+=> $name
+e[0--4] "Input sample image '"{n}"' (1 image "{w}x{h}x{d}x{s}")."
+}
++. 0 u $is_arg
+#@cli srand : value : (no arg) : (+)
+#@cli : Set random generator seed.
+#@cli : If no argument is specified, a random value is used as the random generator seed.
+#@cli store : _is_compressed={ 0 | 1 },variable_name1,_variable_name2,... : (+)
+#@cli : Store selected images into one or several named variables.
+#@cli : Selected images are transferred to the variables, and are so removed from the image list.
+#@cli : (except if the prepended variant of the command '+store[selection]' is used).
+#@cli : If a single variable name is specified, all images of the selection are assigned
+#@cli : to the named variable. Otherwise, there must be as many variable names as images
+#@cli : in the selection, and each selected image is assigned to each specified named variable.
+#@cli : Use command `input $variable_name` to bring the stored images back in the list.
+#@cli : Default value: 'is_compressed=0'.
+#@cli : $ sample eagle,earth store img1,img2 input $img2 $img1
+#@cli : $$
+#@cli testimage2d : _width>0,_height>0,_spectrum>0
+#@cli : Input a 2D synthetic image.
+#@cli : Default values: 'width=512', 'height=width' and 'spectrum=3'.
+#@cli : $ testimage2d 512
++testimage2d : check "${1=512}>0 && ${2=$1}>0 && ${3=3}>0"
+e[^-1] "Input 2D synthetic image of size $1x$2x$3."
+Dmax2:=0.15*min($1,$2)^2
+$1,$2,1,$3,"
+X = x - w/2;
+Y = y - h/2;
+a = atan2(Y,X);
+if (X^2 + Y^2<="$Dmax2",255*abs(cos(c+200*(x/w-0.5)*(y/h-0.5))),850*(a%(0.1*(c+1))))"
+polygon. 4,20%,20%,60%,20%,70%,70%,35%,45%,0.9,0,255,0
+torus3d {$1/7},{$1/20} r3d. 0,1,1,-80 col3d. 128,200,255
+j3d.. .,30%,70%,0,1,5,0,0 rm. round. 1
+=> "[2D test image]"
+#@cli um : eq. to 'uncommand'.
+#@cli uncommand : command_name[,_command_name2,...] : * : (+)
+#@cli : Discard definition of specified custom commands.
+#@cli : Set argument to '*' for discarding all existing custom commands.
+#@cli : (eq. to 'um').
+#@cli uniform_distribution : nb_levels>=1,spectrum>=1
+#@cli : Input set of uniformly distributed spectrum-d points in [0,1]^spectrum.
+#@cli : $ uniform_distribution 64,3 * 255 +distribution3d circles3d[-1] 10
++uniform_distribution : check "isint($1) && $1>0 && isint($2) && $2>0"
+e[^1] "Input set of $1 uniformly distributed $2-d points in [0,1]^$2."
+l[] {
+dim=$2
+(0;1^$1;0)
+repeat $dim {
+0
+eval "
+repeat (da_size(#0),s,
+V = I[#0,s];
+N = V[size(V) - 1];
+off = V[size(V) - 2];
+M = round(N^(1/$dim));
+n = ceil(N/M);
+k0 = 0;
+repeat (M,k,
+k1 = round(lerp(0,N,(k + 1)/M));
+m = k1 - k0;
+V[size(V) - 1] = m;
+V[size(V) - 2] = (n - m)/2;
+da_push(#-1,[ k + off,V ]);
+k0 = k1;
+);
+)"
+rv[0,-1] rm. dim-=1
+}
+r {[1,da_size(),1,s-2]},0 s c n 0,1 a c transpose
+}
+#@cli unserialize : : (+)
+#@cli : Recreate lists of images from serialized image buffers, obtained with command 'serialize'.
+#@cli up : eq. to 'update'.
+up :
+v + _update
+#@cli update
+#@cli : Update commands from the latest definition file on the G'MIC server.
+#@cli : (eq. to 'up').
+update :
+v + _$0
+_update :
+out=${_path_rc}update$_version.gmic
+e[0--3] "Update command definition file '"{/$out}"' from the G\47MIC server."
+l[] {
+i cimgz:https://gmic.eu/update$_version.gmic
+if h>7" && "same([{^}],'#@gmic',6) ot $out fi
+rm
+onfail error[0--3] "Command 'update' : Unreachable update file."
+}
+m $out
+update_deprecate : check "isint($1) && $1>0 && $1<999"
+e[^-1] "Deprecate filter updates for G'MIC version $1."
+l[] {
+file=${_path_rc}update$1.gmic
+i cimgz:"https://gmic.eu/update$1.gmic",uint8
++l. { s +,{'"UPDATE"" INFORMATION"'} is_deprecated:=$!>1 rm }
+if $is_deprecated
+e[0--4] " > Version $1 already deprecated -> Removing deprecation."
+off1:="ref(crop(),data); find(data,'\n#@gui !>> UPDATE"" INFORMATION >> UPDATE"" INFORMATION new version of the G\47MIC plug-in is available!\\n\\n\n\#@gui : You are strongly encouraged to upgrade your version,
+by visiting our Download page :\\n\\n\"}\n\#@gui : url = link{\"Visit G\47MIC Download Page\",\"https://gmic.eu/download.html\"}\n\#@gui : note = note{\"\\nOf course, your plug-in will continue to work, but please note that we
+won\47t be able\n\#@gui : to provide filter updates anymore for your current plug-in version.\\n\\n\n\#@gui : Best regards,\\n\\n The G\47MIC team. \"}\n\n"')
+y[1] a y
+o cimgz:$file,uint8
+_upload[] $file
+e[0--4] " > Done! Version $1 is now deprecated."
+fi
+rm
+}
+update_download_version : check "
+is_digit(c)=(c>=_'0' && c<=_'9');
+ver = ['${1=undefined}'];
+size(ver)==5 && is_digit(ver[0]) && ver[1]==_'.' && is_digit(ver[2]) && ver[3]==_'.' && is_digit(ver[4])"
+e[^-1] "Replace version number on G'MIC download page to '$1'."
+rm filename=$HOME/work/src/gmic/html/download.html it[] $filename
+eval "
+is_digit(c) = (c>=_'0' && c<=_'9');
+ver = ['$1'];
+ref(crop(),data);
+p = stop = N = 0;
+while (!stop,
+p = find(data,'?dwl=gmic_',p);
+p<0?(stop=1):(
+str = data[p + 10,5];
+is_digit(str[0]) && str[1]==_'.' && is_digit(str[2]) && str[3]=='.' && is_digit(str[4])?(
+copy(data[p + 10],ver,size(ver));
+++N;
+);
+++p;
+);
+);
+p = find(data,'/source/gmic_',0);
+p>0?(
+str = data[p + 13,5];
+is_digit(str[0]) && str[1]==_'.' && is_digit(str[2]) && str[3]=='.' && is_digit(str[4])?(
+copy(data[p + 13],ver,size(ver));
+++N;
+);
+);
+copy(i[0],data,size(data));
+echo(' -> ',N,' occurrences found.');
+"
+ot $filename
+update_instimg :
+sp gmicky,600
++l {
+r2dx 164
+0 t. "G'MIC-Qt for GIMP",0,0,96,1,1
+0 t. "(version "${-strver}")",0,0,64,1,1
+a[-2,-1] y,0.5 rows. -5,100%
+*. -1 n. 0,255 to_rgb. r2dx. {0,0.95*w}
+- 255 a y,0.5 + 255
+- 255 r 164,314,1,3,0,0,0.5,0.25 + 255
+o $HOME/work/src/gmic/resources/gmic_instimg.bmp
+rm
+}
+r2dx 55 - 255 r 55,55,1,3,0,0,0.5,0.5 + 255
+o $HOME/work/src/gmic/resources/gmic_instimg_small.bmp
+rm
+update_color_presets_html : check "isbool(${1=0})"
+use_vt100
+path_current=${-path_current} path_ok=$HOME/work/src/gmic/html/color_presets/
+if ['$path_current']!=['$path_ok']
+error[0--3] "Command 'update_color_presets_html: Command run from wrong path: '"$path_current"', ""should be '"$path_ok"'."
+fi
+if !$!
+files ../img/color_presets_sample* files=${}
+repeat narg($files) { arg0 $>,$files ${} }
+fi
+jpeg_quality=70
+thumb_width=180
+thumb_height=90
+categories=creative,picturefx,pixlsus,abigailgonzalez,alexjordan,berat,editingcorp,ericellerbrock,inavision,jtsemple,kylerholland,ohadperetz,shamoonabbasi,toddblankenship,youssefhossam,others,bw,instant_consumer,instant_pro,fujixtransiii,negative_color,negative_new,negative_old,print,colorslide
+category_names="Creative Pack","PictureFX","PIXLS.US","Abigail Gonzalez's CLUTs","Alex Jordan's CLUTs","Berat's CLUTs","EditingCorp","Eric Ellerbrock's CLUTs","InAvision's CLUTs","J.T. Semple's CLUTs","Kyler Holland's CLUTs","Ohad Peretz's CLUTs","Shamoon Abbasi's CLUTs","Todd Blankenship's CLUTs","Youssef Hossam's CLUTs","Others","Films: Black and White","Films: Instant [Consumer]","Films: Instant [Pro]","Films: Fuji XTrans III","Films: Negative [Color]","Films: Negative [New]","Films: Negative [Old]","Films: Print Films","Films: Slide [Color]"
+category_authors="RawTherapee","Marc Roovers","PIXLS.US contributors","Abigail Gonzalez","Alex Jordan","Berat","EditingCorp","Eric Ellerbrock","InAvision","J.T. Semple","Kyler Holland","Ohad Peretz","Shamoon Abbasi","Todd Blankenship","Youssef Hossam",0,"Pat David","Pat David","Pat David","Stuart Sowerby","Pat David","Pat David","Pat David","Juan Melara","Pat David"
+category_authors_url="https://rawpedia.rawtherapee.com/Film_Simulation","https://marcrphoto.wordpress.com/specials/698-2/","https://discuss.pixls.us/t/help-to-create-a-set-of-pixls-us-color-luts","https://www.abigailgonzalez.com/","https://freshluts.com/users/1","https://freshluts.com/users/10185","https://www.editingcorp.com/free-hand-picked-luts-for-cinematic-color-grading/","https://www.facebook.com/eric.ellerbrockom","https://freshluts.com/users/64078","https://freshluts.com/users/120","https://sellfy.com/p/SGnG/","https://freshluts.com/users/992","https://www.facebook.com/shamoon","https://freshluts.com/users/52679",0,"https://patdavid.net/2013/08/film-emulation-presets-in-gmic-gimp.html","https://patdavid.net/2013/08/film-emulation-presets-in-gmic-gimp.html","https://patdavid.net/2013/08/film-emulation-presets-in-gmic-gimp.html","http://blog.sowerby.me/fuji-film-simulation-profiles","https://patdavid.net/2013/08/film-emulation-presets-in-gmic-gimp.html","https://patdavid.net/2013/08/film-emulation-presets-in-gmic-gimp.html","https://patdavid.net/2013/08/film-emulation-presets-in-gmic-gimp.html","http://juanmelara.com.au/print-film-emulation-luts-for-download","https://patdavid.net/2013/08/film-emulation-presets-in-gmic-gimp.html"
+m "_thumb : frame 3%,3%,255 to_rgba drop_shadow 2,2,3 foreach { i[0] 100%,100%,1,3,245 blend alpha }"
+m "_title : ('\"$""*\"') replace_str. \"_\",\" \" replace_str. \"iii\",\"III\" f. \"(!y || j(0,-1)==32) &&
+i>=_'a' && i<=_'z'?uppercase(i):i\" u {t} rm."
+nb_presets=0
+repeat narg($categories) {
+category=${arg\ {1+$>},$categories}
+presets=${-_fx_cluts_$category}
+nb_presets+=narg({/$presets})
+}
+e "\n > Update 'Color Presets' pages, for "$!" image samples and "$nb_presets" presets."
+e $_vt100_g"\n * Prepare folder structure."$_vt100_n
+x "ln -fs "$HOME/work/src/gmic/html/header1.html" ."
+x "ln -fs "$HOME/work/src/gmic/html/footer.html" ."
+x "mkdir -p img"
+e $_vt100_g"\n * Generate thumbnails from samples.\n"$_vt100_n
+x "mkdir -p original"
+nb_samples=$!
+to_rgb repeat $nb_samples { l[$<] {
+=>[0] sample_{1+$<}
+basename={0,b} basename$<=$basename
+e " - "$basename
++r2dx $thumb_width
++to[0] "Reference",4,{0,h-28},20,2 frame. 1,1,0
+o. original/$basename.jpg,$jpeg_quality rm.
++_thumb[1] o. original/thumb_$basename.jpg,$jpeg_quality rm.
++r2dy[0] $thumb_height r. {h},{h},1,100%,0,0,0.5,0.5 _thumb.
+o. original/minithumb_$basename.jpg,$jpeg_quality rm.
+} }
+ind_preset=0
+repeat narg($categories) {
+category=${arg\ {1+$>},$categories}
+presets=${-_fx_cluts_$category}
+e $_vt100_g"\n * Category ""#"{1+$>}": "$_vt100_b$category"\n"$_vt100_n
+x "mkdir -p "$category
+x "mkdir -p "$category/clut
+repeat narg({/$presets}) {
+preset=${arg\ {1+$>},$presets}
+e " - "$preset
+clut $preset,64 to_rgb.
+s:=sqrt(w*h*d) +r. $s,$s,1,3,-1
+if iM<=255 *. 257 fi
+o. $category/clut/$preset.png
+rm.
++r3dx. 13
+o. $category/clut/$preset.cube
+x 0,"rm -f "$category/clut/$preset.zip
+x 0,"zip -j -9 "$category/clut/$preset.zip" "$category/clut/$preset.cube
+rm.
+repeat $nb_samples { l[{2*$>},{2*$>+1},-1] {
+basename={0,b}
+if !isfile(['{/$category/$basename/$preset.jpg}'])
+x "mkdir -p \""$category/$basename"\""
++map_clut[^-1] .
+_title $preset
+to.. ${},4,{-2,h-28},20,2 frame.. 1,1,0
+o.. $category/$basename/$preset.jpg,$jpeg_quality
+_thumb. o. $category/$basename/thumb_$preset.jpg,$jpeg_quality
+rm[-2,-1]
+fi
+} }
+rm.
+ind_preset+=1
+}
+x 0,"zip -rj9 "$category/${category}_cube.zip" "$category/clut/*.cube
+x 0,"zip -rj9 "$category/${category}_haldclut.zip" "$category/clut/*.png
+}
+rm[1--1:2]
+e "\n * Generate html code.\n"
+repeat narg($categories) {
+category=${arg\ {1+$>},$categories}
+arg {1+$>},$category_names
+category_name=${}
+presets=${-_fx_cluts_$category}
+x 0,"rm -f "$category/clut/"*.cube"
+repeat $nb_samples {
+width:=64+w#$> height:=64+h#$>
+basename={$>,b}
+e " - "$category_name" / "$basename
+('""\n""\n" "\n" G'MIC - GREYC's Magic for Image Computing: A Full-Featured Open-Source Framework for Image Processing ""- Color Presets "\n" "\n" "\n" "\n" "\n" "\n\n" "\n" "\n\n" "\n\n"
Among all features available in G'MIC , our Color Presets and ""Simulate Film filters are able to apply various pre-defined color CLUTs on your images ""(600+ color CLUTs available).
"\n"
Below, you can navigate through the different proposed presets and see how they modify the colors ""of some sample images."\n" You can also download each color preset separately as its corresponding ""HaldCLUT file (in .png format), to use it in "" other software that support this feature.
"\n\n"
Image credits: Sample images below have been borrowed from ""Patrick David , ""Chi King , ""Capri23auto ""and ivanovgood ,"\n" distributed a minima under ""CC-by-SA 2.0 .
"\n\n"
Disclaimer:
"\n\n""\n\n"
"\n\n" "\n\n"
"\n" Select category:"\n" \n"')
+repeat narg($categories) {
+_category=${arg\ {1+$>},$categories}
+arg {1+$>},$category_names
+_category_name=${}
+arg {1+$>},$category_authors_url
+if isnum(${}) _category_author_url_start= _category_author_url_end=
+else _category_author_url_start="" _category_author_url_end=" "
+fi
+arg {1+$>},$category_authors
+if isnum(${}) _category_author=""
+else _category_author=$_category_author_url_start${}$_category_author_url_end
+fi
+if narg($_category_author)
+_category_author="(by "$_category_author") "
+fi
+if ['$_category']==['$category']
+('" "$_category_name" "$_category_author""$_category_name" "$_category_author" \n"" "\n" Select sample image:"" \n"')
+else
+('" "\n"
"\n"
"\n\n')
+('" "\n\n"
"\n" "\n" "\n"
Reference Image
Reference Image \n"') fi
+('" "\n" "\n" "\n" "$title"
"\n\n"
"\n" Get the Full Pack ""${category_name}" ": ""[Download .png HaldCLUT Download .cube
"\n""\n\n"
"\n" "\n" "')
+a[$nb_samples--1] x ot. ${category}_$basename.html rm.
+}
+}
+rm
+category=${arg\ 1,$categories}
+x "ln -fs "${category}_$basename0.html" index.html"
+if $1
+e "\n * Transfer color presets on G'MIC server.\n"
+x "lftp sftp://"$GMIC_LOGIN":@ovh -e \"mirror -eRL . /home/"$GMIC_LOGIN"/www/gmic/color_presets ; quit\""
+fi
+e "\n > All done, for "$nb_presets" presets.\n"
+update_gallery_html : check "isbool(${1=0})"
+e[^-1] "Generate gallery pages for the G'MIC website."
+use_vt100
+path_current=${-path_current} path_ok=$HOME/work/src/gmic/html/gallery/
+if ['$path_current']!=['$path_ok']
+error[0--3] "Command 'update_gallery_html: Command run from wrong path: '"$path_current"', ""should be '"$path_ok"'."
+fi
+x "rm -rf img && mkdir -p img"
+categories=arrays,artistic,blackandwhite,colors,deformations,filtering,patterns,3dmeshes,stylization,codesamples
+nb_categories:=narg($categories)
+commands_arrays=_gallery_arrays,array,array_fade,array_mirror,frame_blur,frame_cube,frame_painting,img2ascii,imagegrid,rotate_tiles,vignette,tunnel
+commands_artistic=_gallery_artistic,boxfitting,cartoon,cubism,draw_whirl,fractalize,halftone,sketchbw,light_relief,mosaic,linify,polaroid,polygonize,poster_hope,rodilius,stencil,stained_glass
+commands_blackandwhite=_gallery_blackandwhite,pencilbw,old_photo,sepia
+commands_colors=_gallery_colors,solarize,hsv2rgb,match_rgb
+commands_deformations=_gallery_deformations,deform,map_sphere,seamcarve,spherize,twirl,warp_perspective,water,wave
+commands_filtering=_gallery_filtering,blur_angular,blur_linear,blur_radial,glow,smooth,bilateral,dog,deriche,distance,gradient_norm,normalize_local,sharpen,solidify
+commands_patterns=_gallery_patterns,tsp,chessboard,mandelbrot,maze_mask,plasma,shape_fern,shape_snowflake,sierpinski,syntexturize_matchpatch,truchet,turbulence,watermark_visible,weave
+commands_3dmeshes=_gallery_3dmeshes
+commands_stylization=_gallery_stylization
+commands_codesamples=_gallery_codesamples
+pics=apples,bottles,butterfly,car,cat,cliff,david,dog,duck,eagle,elephant,earth,flower,fruits,greece,gummy,inside,landscape,leaf,leno,lion,mandrill,monalisa,parrots,pencils,rooster,rose,square,teddy,tiger,wall,waterfall,zelda
+it[] $HOME/work/src/gmic/src/gmic_stdlib.gmic
+merge_multiline_comments. s -,10
+('\n') a[0--3] .,y rm. a y
+nb_cols=3
+repeat $nb_categories { ncat=$>
+category=${arg0\ $>,$categories}
+if isfile('{/$category.html}') continue fi
+e "\n * Process category '"$_vt100_b$category$_vt100_n"'."
+commands=${commands_$category}
+nb_commands:=narg($commands)
+col,nex=0
+repeat $nb_categories {
+cat=${arg0\ $>,$categories}
+if '$cat'=='$category' td_$cat=""
+else td_$cat=" "
+fi
+}
+html=""\n""\n" "\n" G'MIC - GREYC's Magic for Image Computing: A Full-Featured Open-Source Framework for Image ""Processing - Gallery "\n" "\n" "\n" "\n" "\n\n" "\n" "\n" "\n\n" "\n" "\n\n" "\n\n"
This gallery gives a quick overview of the kind of features and generic filters available in the ""G'MIC open-source image processing framework.
"\n"
All the images below have been processed by the CLI interface ""gmic note: to reproduce this, you may have to escape some characters, ""according to the type of shell you use! ).
"\n"
Remember, G'MIC lets you define your own image pipelines through""custom command files ."\n" Your custom filters can be easily added afterwards in the plug-in for ""GIMP or Krita .
"\n"
For more details, visit the tutorial pages as well as the ""technical reference to get a full documentation on this ""software.
"\n
+html_menu="
\n\n"
+html=${html}${html_menu}"
\n"
+repeat $nb_commands {
+command=${"arg "1+$>,$commands}
+is_stylization:=['$command']=='_gallery_stylization'
+e $_vt100_m" - Command '"$_vt100_b$command$_vt100_n"' ["{1+$>}/$nb_commands"]."
++l {
+s -,{'"#@cli "$command" :"'}
+if $!<2 s -,{'"#@cli "$command"\n"'} i[1] ('\n') a[-2,-1] y fi
+if $!<2 warn " ** Command '"$command"' not found! **"
+else
+k.
+eval "
+ref(crop(#-1),str);
+ind = 0;
+while ((ind = find(str,'\n#@cli ',ind))>=0,
+++ind;
+str[ind+6]!=_':' ? break() :
+str[ind+7]==_' ' && str[ind+8]==_'$' && str[ind+9]==_' '?(
+beg = ind + 10;
+end = find(str,_'\n',beg) - 1;
+ref(vector1024(0),com);
+run('+rows[0] ',beg,',',end);
+);
+)";
+rm[0]
+nb_examples=$!
+repeat $nb_examples {
+example$nex={$>,t}
+e $_vt100_g" $ "${example$nex}$_vt100_n
+sample=${"arg0 "{($nex+8*$ncat)%narg($pics)},$pics}
+is_codesample=0
+l[] {
+('${example$nex}') y
+is_input:="find(#-1,'image.jpg')>=0"
+if !$is_input" && find(#-1,'sample ')>=0"
+s +,{'"sample "'}
+if {0,crop()=='"sample "'" && "$!>1} l[1] {
+s +,{'" "'}
+if "find(#0,_',')==-1" sample={0,t} is_input=1 fi
+a y
+} fi
+a y
+fi
+replace_str. "image.jpg",""$sample".png "
+replace_str. "_output_mode=1",""
+l. {
+s +,{'" "'}
+repeat $! {
+if {$<,crop(0,0,1,5)=='_fps='||crop(0,0,1,7)=='_label='} rm[$<] fi
+}
+a y
+}
+l. {
+s +,{'" "'} repeat $! {
+if {$<,crop(0,0,1,8)=='https://'} l[$<] {
+if crop(0,0,1,24)=='https://gmic.eu/samples/'
+is_codesample=1
+basename_codesample={`crop(0,24,1,h-24)`}
+filename_codesample="../../resources/samples"/$basename_codesample
+url_codesample="https://gmic.eu/samples/"$basename_codesample
+if $1
+x "lftp sftp://"$GMIC_LOGIN":@ovh -e \"put -O /home/"$GMIC_LOGIN"/www/gmic/samples ""\\\""$filename_codesample"\\\"; quit\" >/dev/null" fi
+i[0] ('""')
+else i[0] ('" "')
+fi
+(' ') y a y
+} fi
+}
+a y
+}
+replaced_example$nex={t} rm
+}
+('${example$nex}') replace_str. "https://gmic.eu/samples/","../../resources/samples/" example$nex={t} rm.
+m "_run : _preview_area_width,_preview_area_height=450,300 "${example$nex}
+if $is_input sample_=${sample}_ else sample_= fi
+filename_original=img/${category}_${sample_}original_$nex.jpg
+filename_thumb_original=img/${category}_${sample_}thumb_original_$nex.jpg
+if "find(['"${example$nex}"'],' _fps=')>=0"
+filename_full=img/${category}_${sample_}full_$nex.gif
+filename_thumb=img/${category}_${sample_}thumb_$nex.gif
+_is_animated=1
+else
+filename_full=img/${category}_${sample_}full_$nex.jpg
+filename_thumb=img/${category}_${sample_}thumb_$nex.jpg
+_is_animated=0
+fi
+etime=
+_label=
+if !isfile('{/$filename_thumb}') l[] {
+if $is_input sp $sample,600 o image.jpg rm fi
+db3d m3d md3d f3d l3d sl3d ss3d 0.8 srand 512
+etime=$| _run etime={_round($|-$etime,0.01)}
+if $is_stylization
++l { _gallery o $filename_full,70 rm } k.
+_gallery
+width,height:=[w,h]
+else
+_gallery
+width,height:=[w,h]
+if $_is_animated o $filename_full,$_fps else o $filename_full,70 fi
+fi
+e "\r"$_vt100_g" $ "${example$nex}" (done in "$_vt100_n${etime}"s"$_vt100_g")."$_vt100_n
+crop 5,5,{w-6},{h-6}
+frame 3%,3%,255 rr2d 440,440,0,3 drop_shadow 2,2,2
+if $_is_animated rr2d 230,230,0,3 else rr2d 300,300,0,3 fi
+100%,100%,1,3,245 blend[^-1] .,alpha,1,1 rm.
+if $_is_animated o $filename_thumb,$_fps else o $filename_thumb,60 fi
+rm
+if $is_input
+image.jpg _gallery
+rr2d $width,$height,0,5 c 0,255
+to "Input",2%,2%,6%
+- 255 r $width,$height,1,3,0,0,0.5,0.5 + 255
+o $filename_original,60
+crop 5,5,{w-6},{h-6}
+frame 3%,3%,255 rr2d 440,440,0,3 drop_shadow 2,2,2
+if $_is_animated rr2d 230,230,0,3 else rr2d 300,300,0,3 fi
+100%,100%,1,3,245 blend[^-1] .,alpha,1,1 rm.
+o $filename_thumb_original,60
+rm
+fi
+} fi
+is_samesize=0
+l[] {
+$filename_full
+width,height:=round([w,h]*(max(w,h)<300?1.75:1))
+if isfile(['{/${filename}_original}']) $filename_original is_samesize:=w==w#0" && "h==h#0 fi
+rm
+}
+if !$is_samesize filename_original=$filename_full fi
+if !($col%$nb_cols) html=${html}" \n" fi
+if $nb_examples==1 counter=
+else counter=" "[{$>+1}/$nb_examples]" "
+fi
+html_etime=
+if narg($etime) html_etime="(generated in "${etime}"s) " fi
+html_codesample=
+if $is_codesample
+html_codesample="\n ""\n
\n"
+it[] $url_codesample html_codesample=${html_codesample}{t} rm.
+html_codesample=${html_codesample}"\n [ Source code ] \n" fi
+}
+fi
+rm
+}
+}
+if $col html=${html}"
\n"${html_menu}"
"\n" "\n" "
+('$html') ot. $category.html rm.
+}
+rm
+x "ln -fs artistic.html index.html"
+x "ln -fs "$HOME/work/src/gmic/html/header1.html" ."
+x "ln -fs "$HOME/work/src/gmic/html/footer.html" ."
+if $1
+e "\n * Transfer gallery on G'MIC server.\n"
+x "lftp sftp://"$GMIC_LOGIN":@ovh -e \"mirror -eRL . /home/"$GMIC_LOGIN"/www/gmic/gallery ; quit\""
+fi
+e " * All done!\n"
+_gallery :
+foreach {
+if ${-_is_mesh3d}
+r3d 1,1,0,-80 r3d 0,1,0,30
+animate3d 20,0,5,0,1.5,0 s z +rv[1--2]
+else
+if w>8192 z 0,8191 elif h>8192 rows 0,8191 fi
+n 0,255
+fi
+}
+if !$_is_animated
++__gallery
+if w>1024 r:=round(1024*100/w,0.1) r[^-1] $r%,$r%,1,100%,2 fi rm.
+fi
+foreach {
+if s==1 r {w},{h},1,3
+elif s==4 drgba
+else r {w},{h},1,3,0 fi
+if w<=h" && "h<256 r2dy 256,2 elif h<=w" && "w<256 r2dx 256,2 fi
+if w<=h" && "h>620 r2dy 620,2 elif h<=w" && "w>620 r2dx 620,2 fi
+if h<48 r 100%,48 fi
+if w<48 r 48,100% fi
+if $_is_animated" && "(w>480" || "h>480) rr2d 480,480,0,2 fi
+frame 1,1,0 frame 4,4,255
+}
+if $_is_animated
+- 255 r ${-max_wh},1,3,0,0,0.5,0.5 + 255
+else
+- 255 __gallery + 255
+if w<256 - 255 r 256,100%,1,100%,0,0,0.5,0.5 + 255 fi
+if h<256 - 255 r 100%,256,1,100%,0,0,0.5,0.5 + 255 fi
+fi
+__gallery :
+if $!==2 if w>h a y else a x fi
+else montage A
+fi
+update_gmicol :
+e[^-1] "Generate XML file and thumbnails for the G'MIC Online website."
+filename=$_path_rc/update$_version.gmic
+if !isfile('$filename') up fi
+rm it $filename
+m "parse_gui_trigger_gmicol : _update_gmicol $*"
+v + +parse_gui. gmicol v -
+um parse_gui_trigger_gmicol
+ot. gmicol.xml
+rm.
+m "parse_gui_trigger_thumbnails : _update_gmicol $*"
+v + w[] parse_gui thumbnails v -
+um parse_gui_trigger_thumbnails
+_update_gmicol :
+nmd 3,"About/♥ Support Us ! ♥","About/About G'MIC","About/Friends Hall of Fame","Arrays & Tiles/Annular Steiner Chain Round Tile","Arrays & Tiles/Array [Faded]","Arrays & Tiles/Array [Mirrored]","Arrays & Tiles/Array [Random Colors]","Arrays & Tiles/Array [Random]","Arrays & Tiles/Array [Regular]","Arrays & Tiles/Ascii Art","Arrays & Tiles/Chessboard","Arrays & Tiles/Dices","Arrays & Tiles/Grid [Cartesian]","Arrays & Tiles/Grid [Hexagonal]","Arrays & Tiles/Grid [Triangular]","Arrays & Tiles/Ministeck","Arrays & Tiles/Puzzle","Arrays & Tiles/Taquin","Arrays & Tiles/Tiled Isolation","Arrays & Tiles/Tiled Normalization","Arrays & Tiles/Tiled Parameterization","Arrays & Tiles/Tiled Random Shifts","Arrays & Tiles/Tiled Rotation","Artistic/Angoisse Anguish","Artistic/Aurora","Artistic/Blockism","Artistic/Bokeh","Artistic/Cartoon","Artistic/Circle Abstraction","Artistic/Color Abstraction Paint","Artistic/Colored Pencils","Artistic/Comic Book","Artistic/Cubism","Artistic/Cutout","Artistic/Diffusion Tensors","Artistic/Dream Smoothing","Artistic/Ellipsionism","Artistic/Felt Pen","Artistic/Finger Paint","Artistic/Fractalize","Artistic/Ghost","Artistic/Graphic Boost","Artistic/Graphic Novel","Artistic/Hard Sketch","Artistic/Highlight Bloom","Artistic/Hope Poster","Artistic/Hough Sketch","Artistic/Illustration Look","Artistic/Kuwahara","Artistic/Lylejk's Painting","Artistic/Make Squiggly","Artistic/Morphology Painting","Artistic/Paint With Brush","Artistic/Painting","Artistic/Pen Drawing","Artistic/Photoillustration","Artistic/Polygonize [Delaunay]","Artistic/Polygonize [Energy]","Artistic/Poster Edges","Artistic/Posterize","Artistic/Posterized Dithering","Artistic/Quadtree Variations","Artistic/Rodilius","Artistic/Sharp Abstract","Artistic/Simple Noise Canvas","Artistic/Skeletik","Artistic/Sketch","Artistic/Smooth Abstract","Artistic/Stylize","Artistic/Vector Painting","Artistic/Warhol","Artistic/Whirl Drawing","Black & White/B&W Stencil","Black & White/Black & White","Black & White/Charcoal","Black & White/Colorize [with Colormap]","Black & White/Colorize Lineart [Auto-Fill]","Black & White/Colorize Lineart [Smart Coloring]","Black & White/Desaturate Norm","Black & White/Dithering","Black & White/Emboss","Black & White/Engrave","Black & White/Freaky B&W","Black & White/Ink Wash","Black & White/Multi-Layer Etch","Black & White/Pencil","Black & White/Pencil Portrait","Black & White/Stamp","Black & White/Threshold Etch","Colors/Abstraction","Colors/Auto Balance","Colors/Basic Adjustments","Colors/Boost Chromaticity","Colors/Boost-Fade","Colors/Brightness","Colors/Channel Processing","Colors/CMYK Tone","Colors/Color Balance","Colors/Color Blindness","Colors/Color Grading","Colors/Color Presets","Colors/Color Temperature","Colors/Colormap","Colors/Contrast","Colors/Customize CLUT","Colors/Dark Sky","Colors/Equalize HSI-HSL-HSV","Colors/Equalize HSV","Colors/HSL Adjustment","Colors/HSV Select","Colors/Hue Lighten-Darken","Colors/LMS Adjustment","Colors/Local Contrast","Colors/Metallic Look","Colors/Mixer [CMYK]","Colors/Mixer [HSV]","Colors/Mixer [Lab]","Colors/Mixer [PCA]","Colors/Mixer [RGB]","Colors/Mixer [YCbCr]","Colors/Normalize Brightness","Colors/Retinex","Colors/Retro Fade","Colors/RGB Tone","Colors/Saturation EQ","Colors/Select-Replace Color","Colors/Selective Desaturation","Colors/Sepia","Colors/Simulate Film","Colors/Softlight","Colors/Specific Saturation","Colors/Temperature Balance","Colors/Tone Presets","Colors/Tune HSV Colors","Colors/User-Defined","Colors/Vintage Style","Colors/Zone System","Contours/Convolve","Contours/Curvature","Contours/Difference of Gaussians","Contours/Distance Transform","Contours/Edge","Contours/Edges","Contours/Edges Offsets","Contours/Gradient Norm","Contours/Gradient RGB","Contours/Isophotes","Contours/Laplacian","Contours/Local Orientation","Contours/Morphological Filter","Contours/Segmentation","Contours/Skeleton","Contours/Super-Pixels","Contours/Thin Edges","Deformations/Breaks","Deformations/Cartesian Transform","Deformations/Circle Transform","Deformations/Conformal Maps","Deformations/Continuous Droste","Deformations/Crease","Deformations/Distort Lens","Deformations/Drop Water","Deformations/Equirectangular to Nadir-Zenith","Deformations/Euclidean - Polar","Deformations/Fish-Eye","Deformations/Flower","Deformations/Kaleidoscope [Blended]","Deformations/Kaleidoscope [Polar]","Deformations/Kaleidoscope [Reptorian-Polar]","Deformations/Kaleidoscope [Symmetry]","Deformations/Logarithmic Distortion","Deformations/Moon2panorama","Deformations/Perspective","Deformations/Pixel Push","Deformations/Point Warp","Deformations/Polar Transform","Deformations/Quadrangle","Deformations/Raindrops","Deformations/Random","Deformations/Reflection","Deformations/Ripple","Deformations/Seamcarve","Deformations/Sinusoidal Water Distortion","Deformations/Sphere","Deformations/Spherize","Deformations/Square to Circle","Deformations/Stereographic Projection","Deformations/Symmetrize","Deformations/Textured Glass","Deformations/Twirl","Deformations/Water","Deformations/Wave","Deformations/Wind","Deformations/Zoom","Degradations/Add Grain","Degradations/Blur [Angular]","Degradations/Blur [Bloom]","Degradations/Blur [Depth-Of-Field]","Degradations/Blur [Gaussian]","Degradations/Blur [Glow]","Degradations/Blur [Linear]","Degradations/Blur [Multidirectional]","Degradations/Blur [Radial]","Degradations/Blur [Splinter]","Degradations/Chromatic Aberrations","Degradations/CRT Sub-Pixels","Degradations/Dirty","Degradations/Flip & Rotate Blocks","Degradations/Fragment Blur","Degradations/JPEG Artefacts","Degradations/Lomo","Degradations/Mess with Bits","Degradations/Noise [Additive]","Degradations/Noise [Perlin]","Degradations/Noise [Spread]","Degradations/Old-Movie Stripes","Degradations/Oldschool 8bits","Degradations/Pixel Sort","Degradations/Rain & Snow","Degradations/Random Shade Stripes","Degradations/Rebuild From Similar Blocks","Degradations/Scanlines","Degradations/Self Glitching","Degradations/Streak","Degradations/UltraWarp++++","Degradations/Visible Watermark","Degradations/Warp by Intensity","Details/Constrained Sharpen","Details/DCP Dehaze","Details/Details Equalizer","Details/Dynamic Range Increase","Details/Easy Skin Retouch","Details/Emboss-Relief","Details/Equalize Local Histograms","Details/Freaky Details","Details/High Pass","Details/Local Contrast Enhancement","Details/Local Normalization","Details/Local Processing","Details/Local Variance Normalization","Details/Magic Details","Details/Make Up","Details/Mighty Details","Details/Portrait Retouching","Details/Pyramid Processing","Details/Quick Tonemap","Details/Sharpen [Deblur]","Details/Sharpen [Gold-Meinel]","Details/Sharpen [Gradient]","Details/Sharpen [Hessian]","Details/Sharpen [Inverse Diffusion]","Details/Sharpen [Multiscale]","Details/Sharpen [Octave Sharpening]","Details/Sharpen [Richardson-Lucy]","Details/Sharpen [Shock Filters]","Details/Sharpen [Texture]","Details/Sharpen [Tones]","Details/Sharpen [Unsharp Mask]","Details/Sharpen [Whiten]","Details/Simple Local Contrast","Details/Spotify","Details/Texture","Details/Texture Enhance","Details/Tone Enhance","Details/Tone Mapping","Details/Tone Mapping [Fast]","Details/YAG Effect","Frames/Droste","Frames/Frame [Blur]","Frames/Frame [Cube]","Frames/Frame [Fuzzy]","Frames/Frame [Mirror]","Frames/Frame [Painting]","Frames/Frame [Pattern]","Frames/Frame [Regular]","Frames/Frame [Round]","Frames/Frame [Smooth]","Frames/Old Photograph","Frames/Polaroid","Frames/Tunnel","Frames/Vignette","Frequencies/Bandpass","Frequencies/Fourier Analysis","Frequencies/Fourier Transform","Frequencies/Fourier Watermark","Lights & Shadows/Burn","Lights & Shadows/Contrast Swiss Mask","Lights & Shadows/Dodge and Burn","Lights & Shadows/Drop Shadow","Lights & Shadows/Drop Shadow 3D","Lights & Shadows/Equalize Light","Lights & Shadows/Equalize Shadow","Lights & Shadows/Guided Light Rays","Lights & Shadows/Illuminate 2D Shape","Lights & Shadows/Light Glow","Lights & Shadows/Light Leaks","Lights & Shadows/Light Patch","Lights & Shadows/Light Rays","Lights & Shadows/Pop Shadows","Lights & Shadows/Relief Light","Lights & Shadows/Shadow Patch","Patterns/Bayer Filter","Patterns/Box Fitting","Patterns/Camouflage","Patterns/Canvas","Patterns/Canvas Texture","Patterns/Clouds","Patterns/Cracks","Patterns/Crystal","Patterns/Crystal Background","Patterns/Denim Texture","Patterns/Fibers","Patterns/Freqy Pattern","Patterns/Halftone","Patterns/Halftone Shapes","Patterns/Hearts","Patterns/Hedcut (Experimental)","Patterns/Lava","Patterns/Marble","Patterns/Maze","Patterns/Mineral Mosaic","Patterns/Mosaic","Patterns/Op Art","Patterns/Paper Texture","Patterns/Periodic Dots","Patterns/Plaid","Patterns/Polka Dots","Patterns/Random Color Ellipses","Patterns/Random Pattern","Patterns/Rays","Patterns/Reptile","Patterns/Resynthetize Texture [FFT]","Patterns/Resynthetize Texture [Patch-Based]","Patterns/Rorschach","Patterns/Satin","Patterns/Seamless Deco","Patterns/Seamless Turbulence","Patterns/Shock Waves","Patterns/Soft Random Shades","Patterns/Sponge","Patterns/Stained Glass","Patterns/Stars","Patterns/Stencil","Patterns/Strip","Patterns/Tetris","Patterns/Triangular Pattern","Patterns/Truchet","Patterns/Turbulent Halftone","Patterns/Voronoi","Patterns/Weave","Patterns/Whirls","Rendering/3D Blocks","Rendering/3D Colored Object","Rendering/3D Elevation","Rendering/3D Extrusion","Rendering/3D Image Object","Rendering/3D Lathing","Rendering/3D Random Objects","Rendering/Ball","Rendering/Circle Art","Rendering/Construction Material Texture","Rendering/Disco","Rendering/Equation Plot [Parametric]","Rendering/Equation Plot [Y=f(X)]","Rendering/Gradient [Corners]","Rendering/Gradient [Custom Shape]","Rendering/Gradient [from Line]","Rendering/Gradient [Linear]","Rendering/Gradient [Radial]","Rendering/Gradient [Random]","Rendering/Hair Locks","Rendering/Hypotrochoid","Rendering/Kitaoka Spin Illusion","Rendering/Lightning","Rendering/Lissajous","Rendering/Mandelbrot - Julia Sets","Rendering/Nebulous","Rendering/Neon Lightning","Rendering/Newton Fractal","Rendering/Plasma","Rendering/Popcorn Fractal","Rendering/Pseudorandom Noise","Rendering/Pythagoras Tree","Rendering/Quick Copyright","Rendering/Rainbow","Rendering/Shade Bobs","Rendering/Sine Curve","Rendering/Snowflake 2","Rendering/Spiral","Rendering/Spiral RGB","Rendering/Superformula","Rendering/Symmetric 2D Shape","Rendering/Thorn Fractal - Secant Sea","Rendering/Tree","Rendering/Turbulence","Rendering/Twisted Rays","Rendering/Wiremap","Repair/Anti Alias","Repair/Banding Denoise","Repair/Bayer Reconstruction","Repair/Clean Text","Repair/Compression Blur","Repair/Deinterlace","Repair/Deinterlace2x","Repair/Denoise","Repair/Denoise Smooth","Repair/Denoise Smooth Alt","Repair/Descreen","Repair/Despeckle","Repair/Iain Noise Reduction 2019","Repair/Iain's Fast Denoise","Repair/Inpaint [Holes]","Repair/Inpaint [Morphological]","Repair/Inpaint [Multi-Scale]","Repair/Inpaint [Patch-Based]","Repair/Inpaint [Transport-Diffusion]","Repair/JPEG Smooth","Repair/Local Similarity Mask","Repair/Moire Removal","Repair/Pixel Denoise","Repair/Recursive Median","Repair/Red-Eye Attenuation","Repair/Remove Hot Pixels","Repair/Repair Scanned Document","Repair/Smooth [Anisotropic]","Repair/Smooth [Antialias]","Repair/Smooth [Bilateral]","Repair/Smooth [Block PCA]","Repair/Smooth [Diffusion]","Repair/Smooth [Geometric-Median]","Repair/Smooth [Guided]","Repair/Smooth [IUWT]","Repair/Smooth [Mean-Curvature]","Repair/Smooth [Median]","Repair/Smooth [NL-Means]","Repair/Smooth [Patch-Based]","Repair/Smooth [Patch-PCA]","Repair/Smooth [Perona-Malik]","Repair/Smooth [Selective Gaussian]","Repair/Smooth [Skin]","Repair/Smooth [Thin Brush]","Repair/Smooth [Total Variation]","Repair/Smooth [Wavelets]","Repair/Smooth [Wiener]","Repair/Solidify","Repair/Unpurple","Repair/Unquantize [JPEG Smooth]","Repair/Unstrip","Repair/Upscale [DCCI2x]","Repair/Upscale [Diffusion]","Repair/Upscale [Edge]","Repair/Upscale [Scale2x]"
+k[${}]
+sort_list +,n
+update_reference_html : check "isbool(${1=0})"
+path_current=${-path_current} path_ok=$HOME/work/src/gmic/html/reference/
+if ['$path_current']!=['$path_ok']
+error[0--3] "Command 'update_reference_html: Command run from wrong path: '"$path_current"', ""should be '"$path_ok"'."
+fi
+x "rm -f *.pdf"
+rm
+e[^-1] "Generate reference documentation pages for the G'MIC website."
+it $HOME/work/src/gmic/src/gmic_stdlib.gmic
+a y
+x "mkdir -p img"
+_parse_cli_images_path="img/"
++parse_cli images
+parse_cli html
+rm
+x "ln -fs "$HOME/work/src/gmic/html/header1.html" ."
+x "ln -fs "$HOME/work/src/gmic/html/footer.html" ."
+x "cp -rf "$HOME/work/src/gmic-community/reference/images" ."
+reference html,$HOME/work/src/gmic-community/reference
+if $1
+e "\n > Transfer reference documentation on G'MIC server.\n"
+x "lftp sftp://"$GMIC_LOGIN":@ovh -e \"mirror -RL . /home/"$GMIC_LOGIN"/www/gmic/reference ; quit\""
+fi
+e "\n > All done.\n"
+update_tutorial_html : check "isbool(${1=0})"
+path_current=${-path_current} path_ok=$HOME/work/src/gmic/html/tutorial/
+if ['$path_current']!=['$path_ok']
+error[0--3] "Command 'update_tutorial_html: Command run from wrong path: '"$path_current"', ""should be '"$path_ok"'."
+fi
+rm
+e[^-1] "Generate tutorial pages for the G'MIC website."
+path_tutorial=$HOME/work/src/gmic-community/tutorial
+use_vt100
+e " > Build directory structure."
+x "ln -fs "$HOME/work/src/gmic/html/header1.html" ."
+x "ln -fs "$HOME/work/src/gmic/html/footer.html" ."
+x "mkdir -p images scripts"
+files 5,$path_tutorial/*
+l[] {
+({'${}'}:y) s -,{','}
+for $! {
+file={0,t} rm[0]
+basename $file basename=${} 0 => $basename ext={`lowercase(['{x}'])`} rm.
+if ['$basename']!='img'
+if isdir(['$file']) files 5,$file/* ({'${}'}:y) s. -,{','}
+elif s=['$ext'];s=='png'||s=='jpg'||s=='jpeg'||s=='gif'||s=='mp4'||s=='svg'||s=='webm'
+x "cp -f \""$file"\" images/"
+elif s=['$ext'];s=='gmic'||s=='py'
+x "cp -f \""$file"\" scripts/"
+elif s=['$ext'];s=='gmd'
+it[] $file
+ot. $basename rm.
+fi
+fi
+}
+}
+files 0,*.gmd files=${}
+repeat narg({/$files}) {
+arg0 $>,$files file=${}
+e " > Generate '"$_vt100_c$file$_vt100_n"'."
+t0=$|
+it $file
+replace_str. "../listmanip/",""
+replace_str. "../images/","images/"
+gmd2html 2
+ot {n} rm.
+t1=$|
+e "\r > Generate '"$_vt100_c$file$_vt100_n"' (done in "$_vt100_g{_round($t1-$t0,0.1)}"s"$_vt100_n")."
+}
+x "rm -f *.gmd"
+if $1
+e "\n > Transfer tutorial pages on G'MIC server.\n"
+x "lftp sftp://"$GMIC_LOGIN":@ovh -e \"mirror -RL . /home/"$GMIC_LOGIN"/www/gmic/tutorial ; quit\""
+fi
+e "\n > All done.\n"
+strings2ts : skip "${1=}"
+e[^-1] "Regenerate translation file by merging file '$1' and source/translated strings '$2/$3'."
+if narg($1) l[] {
+it "$1"
+lang={`"
+lang = vector256();
+p = find(#-1,'language=\"');
+p>=0?(
+p+=10;
+q = find(#-1,'\">',p);
+q>=0?copy(lang,i[p],q - p);
+); lang"`}
+e " > File '$1', detected language : "$lang.
+s -,10
+N0=0
+foreach {
+autocrop {'" "'}
+if s=crop();find(s,'')>=0" && "find(s,' ')>=0
+discard {''} discard {' '} src$N0={t}
+elif s=crop();find(s,'')>=0" && "find(s,' ')>=0
+discard {''} discard {' '} dest$N0={t}
+N0+=1
+fi
+}
+rm
+} else N0=0 lang=
+fi
+if $N0 e " > File '$1' contains "$N0" strings." fi
+l[] { it "$2" s -,10 N1=$! repeat $! { nsrc$>={$>,t} } rm }
+l[] { it "$3" replace_str " ;",";" s -,10 N2=$! repeat $! { ndest$>={$>,t} } rm }
+if $N1!=$N2 error[0--3] "Command 'strings2ts': Number of lines do not match in files '$2' and '$3'." fi
+e " > Files '$2' and '$3' contain "$N1" strings."
+l[] { repeat $N1 { ({'${ndest$>}'}) => ${nsrc$>} } y }
+repeat $N0 { rmn ${src$>} }
+if $N0 i[0] 0 l[0] { rm repeat $N0 { i ({'${dest$>}'}) => ${src$>} } y } fi
+foreach {
+src={n} dest={t}
+if lowercase(['$src'])==lowercase(['$dest']) rm fi
+}
+sort_list +,n
+e " > "$!" strings remain after cleaning/merging ("{$!-$N0}" new)."
+foreach {
+_strings2ts_src {n} src=${}
+_strings2ts_dest {t} dest=${}
+rm
+({'" "\n" "$src" "\n" "$dest" "\n" "\n\n'})
+}
+i[0] ({'""\n""\n""\n" "\n" FilterTextTranslator "\n\n'})
+({'" "\n" "\n'})
+y a y
+_strings2ts_src :
+({'"$*"'})
+replace_str. "°","°"
+replace_str. "à","à"
+replace_str. "&","&"
+replace_str. "<","<"
+replace_str. ">",">"
+replace_str. "\"","""
+replace_str. "'","'"
+u {t}
+rm.
+_strings2ts_dest :
+({'"$*"'}) html2utf8.
+replace_str. "°","°"
+replace_str. "à","à"
+replace_str. "&","&"
+replace_str. "<","<"
+replace_str. ">",">"
+replace_str. "\"","""
+replace_str. "'","'"
+u {t}
+rm.
+parse_gui_parseparams_zart : u 1
+parse_gui_trigger_zart :
+foreach {
+=> {`s=[['{n}'],0];p=find(s,_'/',size(s)-1,0);p>=0?(p=find(s,_'/',p-1,0);p>0?copy(s,s[p+1],size(s)-p));s`}
+}
+sort_list +,n
+parse_gui_zart :
+e " >> Generate output, in 'zart' mode.\n"
++e ""
++e "\n"
+current_group=
+N:=$_nb_filters-1
+repeat $_nb_filters { f=$>
+e "\r >> "$_vt100_c[#$f/$N]$_vt100_n" "{`s=vector48(_'" "');copy(s,['${_f${f}_path}${_f${f}_name}']);s`}
+0 => {`s=['${_f${f}_path}'];s[0,size(s)-1]`} path={b} rm.
+if ['$current_group']!=['$path']
+if ['$current_group']!=0 +e "\n" fi
++e ""
++e "\n"
+current_group=$path
+fi
+_parse_gui_zart[] ${_f${f}_name} fname=${}
++e ""
++e ""
++e " "${_f${f}_command_preview}" $""* "
+repeat ${_f${f}_nb_params} { p=$>
+_parse_gui_zart ${_f${f}_p{$p}_name} name=${}
+type=${_f${f}_p{$p}_type}
+nbargs=${_f${f}_p{$p}_nb_args}
+arg0= repeat $nbargs { ('${_f${f}_p${p}_a$>}') autocrop. {'\"'} _parse_gui_zart {t} arg$>=${} rm. }
+if ['$type']=='bool'
+if lowercase(['$arg0'])=='false' arg0=0 elif lowercase(['$arg0'])=='true' arg0=1 elif !isnum($arg0) arg0=0 fi
++e " \n"
+}
+if narg($current_group) +e " " fi
++e " "
+e "\r >> "${_vt100_g}{`s=vector64(_'" "');copy(s,'"Output done!"');s`}$_vt100_n
+_parse_gui_zart :
+l[] {
+('"$*"')
+replace_str "&","#amp;"
+replace_str. "&","&"
+replace_str. "<","<"
+replace_str. ">",">"
+replace_str. "\"","""
+replace_str "#amp;","&"
+u {t} rm.
+onfail u "" }
+html2utf8 :
+if h
+eval "
+ref(crop(),source);
+ref(vector8(),svalue);
+p = 0;
+while (1,
+p = p0 = find(source,'&#',p);
+p<0?break();
+p+=2;
+p>=size(source)?break();
+q = find(source,';',p);
+q>p && q<=p+8 && !isnan(val=s2v(source,p))?(
+copy(svalue,source[p],q-p); svalue[q-p] = 0;
+val = s2v(svalue,0,1);
+!isnan(val) && isint(val) && val>0?(
+val<=0x007f?(
+i[p0++] = val;
+):val<=0x07ff?(
+i[p0++] = (val>>6)|0xc0;
+i[p0++] = (val&0x3f)|0x80;
+):val<=0xffff?(
+i[p0++] = (val>>12)|0xe0;
+i[p0++] = ((val>>6)&0x3f)|0x80;
+i[p0++] = (val&0x3f)|0x80;
+):(
+i[p0++] = (val>>18)|0xf0;
+i[p0++] = ((val>>12)&0x3f)|0x80;
+i[p0++] = ((val>>6)&0x3f)|0x80;
+i[p0++] = (val&0x3f)|0x80;
+);
+copy(i[p0],-1,q-p0+1,1,0);
+p = q + 1;
+);
+);
+)"
+discard. -1
+fi
+utf82html :
+if h
+eval "
+write_seq() = ( copy(res[q],'&#'); q+=2; s = v2s(val); l = find(s,0); copy(res[q],s,l); q+=l; res[q++]=_';' );
+ref(vector(#4*wh),res);
+q = 0;
+repeat (wh,p,
+i = i[p];
+!(i&0x80)?(
+res[q++] = i;
+):(i&0xe0)==0xc0?(
+val = (i&0x1f)<<6; i = i[p + 1]; val|= (i&0x3f);
+write_seq();
+):(i&0xf0)==0xe0?(
+val = (i&0xf)<<12; i = i[p + 1]; val|= (i&0x3f)<<6; i = i[p + 2]; val|= (i&0x3f);
+write_seq();
+):(i&0xf8)==0xf0?(
+val = (i&0x7)<<18; i = i[p + 1]; val|= (i&0x3f)<<12; i = i[p + 2]; val|= (i&0x3f)<<6;
+i = i[p + 3]; val|= (i&0x3f);
+write_seq();
+);
+);
+store('res',res,1,q)"
+rm. $res
+fi
+_upload_filters_move :
+m "move_filter : skip \"${""2=}\" nmd 3,\"$""1\" ind=${}
+if $ind basename \"$""1\" =>[$ind] \"$""2\"/${}
+else v 0 e[0--4] \"Cannot move unknown filter '\"${_vt100_r}\"$""1\"${_vt100_n}\"'
+to '\"${_vt100_g}\"$""2\"${_vt100_n}\"'\" fi"
+sort_list +,n
+move_filter "Testing/Garagecoder/Anti Alias","Repair"
+move_filter "Testing/Garagecoder/Auto Balance","Colors"
+move_filter "Testing/Garagecoder/LMS Adjustment","Colors"
+move_filter "Testing/Garagecoder/Compression Blur","Repair"
+move_filter "Testing/Garagecoder/Emboss","Black & White"
+move_filter "Testing/Garagecoder/JPEG Smooth","Repair"
+move_filter "Testing/Garagecoder/Quick Tonemap","Details"
+move_filter "Testing/Garagecoder/Normalize Brightness","Colors"
+move_filter "Testing/Garagecoder/Sharpen [Gradient]","Details"
+move_filter "Testing/Garagecoder/Sharpen [Tones]","Details"
+move_filter "Testing/Garagecoder/Temperature Balance","Colors"
+move_filter "Testing/Garagecoder/Unquantize [JPEG Smooth]","Repair"
+move_filter "Testing/Garagecoder/Upscale [Edge]","Repair"
+move_filter "Testing/Garagecoder/Wiremap","Rendering"
+move_filter "Testing/Garagecoder/Smooth [Geometric-Median]","Repair"
+move_filter "Testing/Gmic Tutorials/Hedcut (Experimental)","Patterns"
+move_filter "Testing/Iain Fergusson/Easy Skin Retouch","Details"
+move_filter "Testing/Iain Fergusson/Moire Removal","Repair"
+move_filter "Testing/Iain Fergusson/Halftone Shapes","Patterns"
+move_filter "Testing/Iain Fergusson/Simple Local Contrast","Details"
+move_filter "Testing/Iain Fergusson/Turbulent Halftone","Patterns"
+move_filter "Testing/Joan Rake/Deformations/Ultrawarp++++","Degradations"
+move_filter "Testing/Naggobot/Blockism","Artistic"
+move_filter "Testing/Reptorian/Blur [Splinter]","Degradations"
+move_filter "Testing/Reptorian/Construction Material Texture","Rendering"
+move_filter "Testing/Reptorian/Emboss-Relief","Details"
+move_filter "Testing/Reptorian/Fragment Blur","Degradations"
+move_filter "Testing/Reptorian/Kaleidoscope [Reptorian-Polar]","Deformations"
+move_filter "Testing/Reptorian/Logarithmic Distortion","Deformations"
+move_filter "Testing/Reptorian/Nebulous","Rendering"
+move_filter "Testing/Reptorian/Pixel Push","Deformations"
+move_filter "Testing/Reptorian/Point Warp","Deformations"
+move_filter "Testing/Reptorian/Popcorn Fractal","Rendering"
+move_filter "Testing/Reptorian/Pseudorandom Noise","Rendering"
+move_filter "Testing/Reptorian/Sinusoidal Water Distortion","Deformations"
+move_filter "Testing/Samj/Arrays & Tiles/Annular Steiner Chain Round Tile","Arrays & Tiles"
+move_filter "Testing/Samj/Arrays & Tiles/Reptile","Patterns"
+move_filter "Testing/Samj/Artistic/Angoisse Anguish","Artistic"
+move_filter "Testing/Samj/Artistic/Chalk It Up [Fr]","Artistic"
+move_filter "Testing/Samj/Artistic/Barbouillage Paint Daub","Artistic"
+move_filter "Testing/Samj/Artistic/Skeletik","Artistic"
+move_filter "Testing/Samj/Patterns/Denim Texture","Patterns"
+move_filter "Testing/Samj/Patterns/Soft Random Shades","Patterns"
+move_filter "Testing/Samj/Rendering/Pythagoras Tree","Rendering"
+move_filter "Testing/Samj/Rendering/Snowflake 2","Rendering"
+move_filter "Testing/Samj/Rendering/Twisted Rays","Rendering"
+move_filter "Testing/Souphead/Disco","Rendering"
+move_filter "Testing/Souphead/Moon2panorama","Deformations"
+move_filter "Testing/Souphead/Spiral RGB","Rendering"
+move_filter "Testing/Souphead/Kitaoka Spin Illusion","Rendering"
+move_filter "Testing/Zonderr/Spiral","Rendering"
+um move_filter
+upload_filters :
+e[^-1] "Upload filter definition file on G'MIC server.\n"
+rm
+x "cd "$HOME"/work/src/gmic && git pull"
+x "cd "$HOME"/work/src/gmic-community && git pull"
+(320,321,322,323,324,325,326,327,$_version) sort. discard. store. compat
+files $HOME/work/src/gmic-community/include/*.gmic
+files=${},$HOME/work/src/gmic/src/gmic_stdlib.gmic
+repeat narg($files) { l[] {
+file=${"arg0 $>,"$files}
+it[] $file
+basename $file basename=${}
+if ['$basename']=='sylvie_alexandre.gmic'
+s +,{'"#@gui "'} i[1--2:2] ('"#@gui ________Testing\n#@gui Samj \n"') y a y
+elif s=['$basename'];s=='template.gmic'
+rm 0
+fi
+} }
+i[1--2] ('"\n#@gui _________________\n"') y a y
++l. {
+e "** Generate filter update file."
+m "parse_gui_trigger_update : _upload_filters_move"
+v + parse_gui. update v -
+um parse_gui_trigger_update
+e "** Upload filter update."
+ot ${_path_rc}update$_version.gmic
+if "d = date(3); h = date(4); h>=7 && d>=1 && d<=5" url=http://bit.ly/2uaBRMB
+else url=http://bit.ly/2uaBRMB
+fi
+replace_str "David Tschumperlé David Tschumperlé """$sta" "')
+if $3
+i[1] ('" ""Current pre-release: "$pre" "$sta" "$pre" 0,
+range = pop();
+lo = range[0];
+hi = range[1];
+pivot = int((lo + hi)/2);
+ref(name(#pivot,slen),npivot);
+while (lo,$2}) } a[$i--1] y +f. 'y' a[-2,-1] x sort. $1,y z. 1,1
+repeat h { nm$>={$>,n} =>[$>] sortlist$> }
+repeat h { mv[sortlist{i(0,$>)}] -1 }
+repeat h { =>[$>] ${nm{i(0,$>)}} }
+rm.
+fi
+fi
+#@cli :: Mathematical Operators
+#@cli abs : (+)
+#@cli : Compute the pointwise absolute values of selected images.
+#@cli : $ image.jpg +sub {ia} abs[-1]
+#@cli : $ 300,1,1,1,'cos(20*x/w)' +abs display_graph 400,300
+#@cli acos : (+)
+#@cli : Compute the pointwise arccosine of selected images.
+#@cli : $ image.jpg +normalize -1,1 acos[-1]
+#@cli : $ 300,1,1,1,'cut(x/w+0.1*u,0,1)' +acos display_graph 400,300
+#@cli : $$ https://gmic.eu/oldtutorial/trigometric-and-inverse-trigometric-commands
+#@cli acosh : (+)
+#@cli : Compute the pointwise hyperbolic arccosine of selected images.
+#@cli + : eq. to 'add'. : (+)
+#@cli add : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Add specified value, image or mathematical expression to selected images, or compute the pointwise sum of selected images.
+#@cli : (eq. to '+').
+#@cli : $ image.jpg +add 30% cut 0,255
+#@cli : $ image.jpg +blur 5 normalize 0,255 add[1] [0]
+#@cli : $ image.jpg add '80*cos(80*(x/w-0.5)*(y/w-0.5)+c)' cut 0,255
+#@cli : $ image.jpg repeat 9 { +rotate[0] {$>*36},1,0,50%,50% } add div 10
+#@cli & : eq. to 'and'. : (+)
+#@cli and : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the bitwise AND of selected images with specified value, image or mathematical expression, or compute the pointwise sequential bitwise AND of selected images.
+#@cli : (eq. to '&').
+#@cli : $ image.jpg and {128+64}
+#@cli : $ image.jpg +mirror x and
+#@cli argmax
+#@cli : Compute the argmax of selected images. Returns a single image
+#@cli : with each pixel value being the index of the input image with maximal value.
+#@cli : $ image.jpg sample lena,lion,square +argmax
+argmax :
+e[^-1] "Compute argmax of image$?."
+if !$! return fi
+13,$! eval. "!x?copy(i(),[[',i#'],v2s(y,10,10)])" =. 0 discard. 0 str={t} rm.
+${-max_whds},"argmax("$str")" k. => [argmax]
+#@cli argmaxabs
+#@cli : Compute the argmaxabs of selected images. Returns a single image
+#@cli : with each pixel value being the index of the input image with maxabs value.
+argmaxabs :
+e[^-1] "Compute argmaxabs of image$?."
+if !$! return fi
+13,$! eval. "!x?copy(i(),[[',i#'],v2s(y,10,10)])" =. 0 discard. 0 str={t} rm.
+${-max_whds},"argmaxabs("$str")" k. => [argmaxabs]
+#@cli argmin
+#@cli : Compute the argmin of selected images. Returns a single image
+#@cli : with each pixel value being the index of the input image with minimal value.
+#@cli : $ image.jpg sample lena,lion,square +argmin
+argmin :
+e[^-1] "Compute argmin of image$?."
+if !$! return fi
+13,$! eval. "!x?copy(i(),[[',i#'],v2s(y,10,10)])" =. 0 discard. 0 str={t} rm.
+${-max_whds},"argmin("$str")" k. => [argmin]
+#@cli argminabs
+#@cli : Compute the argminabs of selected images. Returns a single image
+#@cli : with each pixel value being the index of the input image with minabs value.
+argminabs :
+e[^-1] "Compute argminabs of image$?."
+if !$! return fi
+13,$! eval. "!x?copy(i(),[[',i#'],v2s(y,10,10)])" =. 0 discard. 0 str={t} rm.
+${-max_whds},"argminabs("$str")" k. => [argminabs]
+#@cli asin : (+)
+#@cli : Compute the pointwise arcsine of selected images.
+#@cli : $ image.jpg +normalize -1,1 asin[-1]
+#@cli : $ 300,1,1,1,'cut(x/w+0.1*u,0,1)' +asin display_graph 400,300
+#@cli : $$ https://gmic.eu/oldtutorial/trigometric-and-inverse-trigometric-commands
+#@cli asinh : (+)
+#@cli : Compute the pointwise hyperbolic arcsine of selected images.
+#@cli atan : (+)
+#@cli : Compute the pointwise arctangent of selected images.
+#@cli : $ image.jpg +normalize 0,8 atan[-1]
+#@cli : $ 300,1,1,1,'4*x/w+u' +atan display_graph 400,300
+#@cli : $$ https://gmic.eu/oldtutorial/trigometric-and-inverse-trigometric-commands
+#@cli atan2 : [x_argument] : (+)
+#@cli : Compute the pointwise oriented arctangent of selected images.
+#@cli : Each selected image is regarded as the y-argument of the arctangent function, while the
+#@cli : specified image gives the corresponding x-argument.
+#@cli : $ (-1,1) (-1;1) resize 400,400,1,1,3 atan2[1] [0] keep[1] mod {pi/8}
+#@cli : $$ https://gmic.eu/oldtutorial/trigometric-and-inverse-trigometric-commands
+#@cli atanh : (+)
+#@cli : Compute the pointwise hyperbolic arctangent of selected images.
+#@cli << : eq. to 'bsl'. : (+)
+#@cli bsl : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the bitwise left shift of selected images with specified value, image or mathematical expression, or compute the pointwise sequential bitwise left shift of selected images.
+#@cli : (eq. to '<<').
+#@cli : $ image.jpg bsl 'round(3*x/w,0)' cut 0,255
+#@cli >> : eq. to 'bsr'. : (+)
+#@cli bsr : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the bitwise right shift of selected images with specified value, image or mathematical expression, or compute the pointwise sequential bitwise right shift of selected images.
+#@cli : (eq. to '>>').
+#@cli : $ image.jpg bsr 'round(3*x/w,0)' cut 0,255
+#@cli cos : (+)
+#@cli : Compute the pointwise cosine of selected images.
+#@cli : $ image.jpg +normalize 0,{2*pi} cos[-1]
+#@cli : $ 300,1,1,1,'20*x/w+u' +cos display_graph 400,300
+#@cli : $$ https://gmic.eu/oldtutorial/trigometric-and-inverse-trigometric-commands
+#@cli cosh : (+)
+#@cli : Compute the pointwise hyperbolic cosine of selected images.
+#@cli : $ image.jpg +normalize -3,3 cosh[-1]
+#@cli : $ 300,1,1,1,'4*x/w+u' +cosh display_graph 400,300
+#@cli deg2rad
+#@cli : Convert pointwise angle values of selected images, from degrees to radians (apply 'i*pi/180').
+deg2rad :
+e[^-1] "Convert pointwise angle values of image$?, from degrees to radians."
+* 0.017453292519943295
+#@cli / : eq. to 'div'. : (+)
+#@cli div : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Divide selected images by specified value, image or mathematical expression, or compute the pointwise quotient of selected images.
+#@cli : (eq. to '/').
+#@cli : $ image.jpg div '1+abs(cos(x/10)*sin(y/10))'
+#@cli : $ image.jpg +norm add[-1] 1 +div
+#@cli div_complex : [divider_real,divider_imag],_epsilon>=0
+#@cli : Perform division of the selected complex pairs (real1,imag1,...,realN,imagN) of images by
+#@cli : specified complex pair of images (divider_real,divider_imag).
+#@cli : In complex pairs, the real image must be always located before the imaginary image in the image list.
+#@cli : Default value: 'epsilon=1e-8'.
+div_complex : check ${3=1e-8}>=0
+e[^-1] "Divide complex pair$? by complex pair "${"pass$1,$2 -1"}" (with epsilon $3)."
+repeat int($!/2) {
+pass${1,2} 0 l[$>,{$>+1},-2,-1] {
++*[1,2] +*[0,3] -[-2,-1]
+*[0] [2] *[1] [3] +[0,1]
+sqr[1,2] +[1,2] +[1] $3
+/[2] [1] /[0,1]
+}
+}
+#@cli == : eq. to 'eq'. : (+)
+#@cli eq : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the boolean equality of selected images with specified value, image or mathematical expression, or compute the boolean equality of selected images.
+#@cli : (eq. to '==').
+#@cli : $ image.jpg round 40 eq {round(ia,40)}
+#@cli : $ image.jpg +mirror x eq
+#@cli erf : (+)
+#@cli : Compute the pointwise error function of selected images.
+#@cli : $ image.jpg +normalize 0,2 erf[-1]
+#@cli : $ 300,1,1,1,'7*x/w-3.5+u' +erf display_graph 400,300
+#@cli exp : (+)
+#@cli : Compute the pointwise exponential of selected images.
+#@cli : $ image.jpg +normalize 0,2 exp[-1]
+#@cli : $ 300,1,1,1,'7*x/w+u' +exp display_graph 400,300
+#@cli >= : eq. to 'ge'. : (+)
+#@cli ge : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the boolean 'greater or equal than' of selected images with specified value, image
+#@cli : or mathematical expression, or compute the boolean 'greater or equal than' of selected images.
+#@cli : (eq. to '>=').
+#@cli : $ image.jpg ge {ia}
+#@cli : $ image.jpg +mirror x ge
+#@cli > : eq. to 'gt'. : (+)
+#@cli gt : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the boolean 'greater than' of selected images with specified value, image or mathematical expression, or compute the boolean 'greater than' of selected images.
+#@cli : (eq. to '>').
+#@cli : $ image.jpg gt {ia}
+#@cli : $ image.jpg +mirror x gt
+#@cli <= : eq. to 'le'. : (+)
+#@cli le : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the boolean 'less or equal than' of selected images with specified value, image or mathematical expression, or compute the boolean 'less or equal than' of selected images.
+#@cli : (eq. to '<=').
+#@cli : $ image.jpg le {ia}
+#@cli : $ image.jpg +mirror x le
+#@cli < : eq. to 'lt'. : (+)
+#@cli lt : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the boolean 'less than' of selected images with specified value, image or mathematical expression, or compute the boolean 'less than' of selected images.
+#@cli : (eq. to '<').
+#@cli : $ image.jpg lt {ia}
+#@cli : $ image.jpg +mirror x lt
+#@cli log : (+)
+#@cli : Compute the pointwise base-e logarithm of selected images.
+#@cli : $ image.jpg +add 1 log[-1]
+#@cli : $ 300,1,1,1,'7*x/w+u' +log display_graph 400,300
+#@cli log10 : (+)
+#@cli : Compute the pointwise base-10 logarithm of selected images.
+#@cli : $ image.jpg +add 1 log10[-1]
+#@cli : $ 300,1,1,1,'7*x/w+u' +log10 display_graph 400,300
+#@cli log2 : (+)
+#@cli : Compute the pointwise base-2 logarithm of selected images
+#@cli : $ image.jpg +add 1 log2[-1]
+#@cli : $ 300,1,1,1,'7*x/w+u' +log2 display_graph 400,300
+#@cli max : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the maximum between selected images and specified value, image or mathematical expression, or compute the pointwise maxima between selected images.
+#@cli : $ image.jpg +mirror x max
+#@cli : $ image.jpg max 'R=((x/w-0.5)^2+(y/h-0.5)^2)^0.5;255*R'
+#@cli maxabs : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the maxabs between selected images and specified value, image or mathematical expression, or compute the pointwise maxabs between selected images.
+#@cli m/ : eq. to 'mdiv'. : (+)
+#@cli mdiv : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the matrix division of selected matrices/vectors by specified value, image or mathematical expression, or compute the matrix division of selected images.
+#@cli : (eq. to 'm/').
+#@cli med
+#@cli : Compute the median of selected images.
+#@cli : $ image.jpg sample lena,lion,square +med
+med :
+e[^-1] "Compute median of image$?."
+if !$! return fi
+13,$! eval. "!x?copy(i(),[[',i#'],v2s(y,10,10)])" =. 0 discard. 0 str={t} rm.
+${-max_whds},"med("$str")" k. => [med]
+#@cli min : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the minimum between selected images and specified value, image or mathematical expression, or compute the pointwise minima between selected images.
+#@cli : $ image.jpg +mirror x min
+#@cli : $ image.jpg min 'R=((x/w-0.5)^2+(y/h-0.5)^2)^0.5;255*R'
+#@cli minabs : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the minabs between selected images and specified value, image or mathematical expression, or compute the pointwise minabs between selected images.
+#@cli % : eq. to 'mod'. : (+)
+#@cli mod : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the modulo of selected images with specified value, image or mathematical expression, or compute the pointwise sequential modulo of selected images.
+#@cli : (eq. to '%').
+#@cli : $ image.jpg +mirror x n. 1,255 round. mod
+#@cli : $ image.jpg mod 'R=((x/w-0.5)^2+(y/h-0.5)^2)^0.5;255*R'
+#@cli m* : eq. to 'mmul'. : (+)
+#@cli mmul : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the matrix right multiplication of selected matrices/vectors by specified value, image or mathematical expression, or compute the matrix right multiplication of selected images.
+#@cli : (eq. to 'm*').
+#@cli : $ (0,1,0;0,0,1;1,0,0) (1;2;3) +mmul
+#@cli * : eq. to 'mul'. : (+)
+#@cli mul : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Multiply selected images by specified value, image or mathematical expression, or compute the pointwise product of selected images.
+#@cli : (eq. to '*').
+#@cli : See also: ''add'', ''sub'', ''div''.
+#@cli : $ image.jpg +mul 2 cut 0,255
+#@cli : $ image.jpg (1,2,3,4,5,6,7,8) ri[-1] [0] mul[0] [-1]
+#@cli : $ image.jpg mul '1-3*abs(x/w-0.5)' cut 0,255
+#@cli : $ image.jpg +luminance negate[-1] +mul
+#@cli mul_channels : value1,_value2,...,_valueN
+#@cli : Multiply channels of selected images by specified sequence of values.
+#@cli : $ image.jpg +mul_channels 1,0.5,0.8
+mul_channels :
+e[^-1] "Multiply channels of image$? by value sequence ($*)."
+$=arg repeat $# { i=$>
+fact=${arg{1+($>%$#)}}
+repeat $! { if {$>,$i] $i *. $fact rm. fi }
+}
+#@cli mul_complex : [multiplier_real,multiplier_imag]
+#@cli : Perform multiplication of the selected complex pairs (real1,imag1,...,realN,imagN) of images by
+#@cli : specified complex pair of images (multiplier_real,multiplier_imag).
+#@cli : In complex pairs, the real image must be always located before the imaginary image in the image list.
+mul_complex :
+e[^-1] "Multiply complex pair$? by complex pair "${"pass$1,$2 -1"}"."
+repeat int($!/2) {
+pass${1,2} 0 l[$>,{$>+1},-2,-1] {
++*[0,3] +*[1,2] +[-2,-1]
+*[0,2] *[1,2] -[0,1]
+}
+}
+#@cli != : eq. to 'neq'. : (+)
+#@cli neq : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the boolean inequality of selected images with specified value, image or mathematical expression, or compute the boolean inequality of selected images.
+#@cli : (eq. to '!=').
+#@cli : $ image.jpg round 40 neq {round(ia,40)}
+#@cli | : eq. to 'or'. : (+)
+#@cli or : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the bitwise OR of selected images with specified value, image or mathematical expression, or compute the pointwise sequential bitwise OR of selected images.
+#@cli : (eq. to '|').
+#@cli : $ image.jpg or 128
+#@cli : $ image.jpg +mirror x or
+#@cli ^ : eq. to 'pow'. : (+)
+#@cli pow : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Raise selected images to the power of specified value, image or mathematical expression, or compute the pointwise sequential powers of selected images.
+#@cli : (eq. to '^').
+#@cli : $ image.jpg div 255 +pow 0.5 mul 255
+#@cli : $ image.jpg gradient pow 2 add pow 0.2
+#@cli rad2deg
+#@cli : Convert pointwise angle values of selected images, from radians to degrees (apply 'i*180/pi').
+rad2deg :
+e[^-1] "Convert pointwise angle values of image$?, from radians to degrees."
+* 57.295779513082323
+#@cli rol : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the bitwise left rotation of selected images with specified value, image or mathematical expression, or compute the pointwise sequential bitwise left rotation of selected images.
+#@cli : $ image.jpg rol 'round(3*x/w,0)' cut 0,255
+#@cli ror : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the bitwise right rotation of selected images with specified value, image or mathematical expression, or compute the pointwise sequential bitwise right rotation of selected images.
+#@cli : $ image.jpg ror 'round(3*x/w,0)' cut 0,255
+#@cli sign : (+)
+#@cli : Compute the pointwise sign of selected images.
+#@cli : $ image.jpg +sub {ia} sign[-1]
+#@cli : $ 300,1,1,1,'cos(20*x/w+u)' +sign display_graph 400,300
+#@cli sin : (+)
+#@cli : Compute the pointwise sine of selected images.
+#@cli : $ image.jpg +normalize 0,{2*pi} sin[-1]
+#@cli : $ 300,1,1,1,'20*x/w+u' +sin display_graph 400,300
+#@cli : $$ https://gmic.eu/oldtutorial/trigometric-and-inverse-trigometric-commands
+#@cli sinc : (+)
+#@cli : Compute the pointwise sinc function of selected images.
+#@cli : $ image.jpg +normalize {-2*pi},{2*pi} sinc[-1]
+#@cli : $ 300,1,1,1,'20*x/w+u' +sinc display_graph 400,300
+#@cli sinh : (+)
+#@cli : Compute the pointwise hyperbolic sine of selected images.
+#@cli : $ image.jpg +normalize -3,3 sinh[-1]
+#@cli : $ 300,1,1,1,'4*x/w+u' +sinh display_graph 400,300
+#@cli sqr : (+)
+#@cli : Compute the pointwise square function of selected images.
+#@cli : $ image.jpg +sqr
+#@cli : $ 300,1,1,1,'40*x/w+u' +sqr display_graph 400,300
+#@cli sqrt : (+)
+#@cli : Compute the pointwise square root of selected images.
+#@cli : $ image.jpg +sqrt
+#@cli : $ 300,1,1,1,'40*x/w+u' +sqrt display_graph 400,300
+#@cli - : eq. to 'sub'. : (+)
+#@cli sub : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Subtract specified value, image or mathematical expression to selected images, or compute the pointwise difference of selected images.
+#@cli : (eq. to '-').
+#@cli : $ image.jpg +sub 30% cut 0,255
+#@cli : $ image.jpg +mirror x sub[-1] [0]
+#@cli : $ image.jpg sub 'i(w/2+0.9*(x-w/2),y)'
+#@cli : $ image.jpg +mirror x sub
+#@cli tan : (+)
+#@cli : Compute the pointwise tangent of selected images.
+#@cli : $ image.jpg +normalize {-0.47*pi},{0.47*pi} tan[-1]
+#@cli : $ 300,1,1,1,'20*x/w+u' +tan display_graph 400,300
+#@cli : $$ https://gmic.eu/oldtutorial/trigometric-and-inverse-trigometric-commands
+#@cli tanh : (+)
+#@cli : Compute the pointwise hyperbolic tangent of selected images.
+#@cli : $ image.jpg +normalize -3,3 tanh[-1]
+#@cli : $ 300,1,1,1,'4*x/w+u' +tanh display_graph 400,300
+#@cli xor : value[%] : [image] : 'formula' : (no arg) : (+)
+#@cli : Compute the bitwise XOR of selected images with specified value, image or mathematical expression, or compute the pointwise sequential bitwise XOR of selected images.
+#@cli : $ image.jpg xor 128
+#@cli : $ image.jpg +mirror x xor
+#@cli :: Values Manipulation
+#@cli apply_curve : 0<=smoothness<=1,x0,y0,x1,y1,x2,y2,...,xN,yN
+#@cli : Apply curve transformation to image values.
+#@cli : Default values: 'smoothness=1', 'x0=0', 'y0=100'.
+#@cli : $ image.jpg +apply_curve 1,0,0,128,255,255,0
+apply_curve : check "${1=1}>=0 && $1<=1" skip ${2=0},${3=100}
+e[^-1] "Apply intensity curve with smoothness $1 and keypoints (${2--1}) on image$?."
+(${^0,1}) r. 2,{w/2},1,1,-1 +z. 0,0 vm,vM:=[im,iM] n. 0,8191 j.. . function1d[] $1,{-2,^} rm[-3,-2]
+-[^-1] $vm *[^-1] {8191/($vM-$vm)} map[^-1] .,1 rm.
+#@cli apply_gamma : gamma>=0
+#@cli : Apply gamma correction to selected images.
+#@cli : $ image.jpg +apply_gamma 2
+apply_gamma : check $1>=0
+e[^-1] "Apply Gamma-correction to image$?, with gamma $1."
+if $1==1 return fi
+foreach { mM:=[im,iM] n 0,1 ^ {1/$1} n $mM }
+#@cli balance_gamma : _ref_color1,...
+#@cli : Compute gamma-corrected color balance of selected image, with respect to specified reference color.
+#@cli : Default value: 'ref_color1=128'.
+#@cli : $ image.jpg +balance_gamma 128,64,64
+balance_gamma : check "isnum(${1=128})"
+e[^-1] "Apply gamma-corrected color balance of image$?, with reference color ("${^0}")."
+foreach {
+(${^0}) r. {-2,s},1,1,1,0,1 s.. c /. 255
+repeat $!-1 { /[$>] 255 ^[$>] {log({@$>})/log({$>,ia})} *[$>] 255 }
+rm. a c c 0,255
+}
+#@cli cast : datatype_source,datatype_target
+#@cli : Cast datatype of image buffer from specified source type to specified target type.
+#@cli : 'datatype_source' and 'datatype_target' can be { uint8 | int8 | uint16 | int16 | uint32 | int32 | uint64 | int64 | float32 | float64 }.
+cast :
+e[^-1] "Cast datatype of image buffer$? from '$1' to '$2'."
+ssize:=s='"$1"';s=='"uint8"'||s=='int8'?1:s=='"uint16"'||s=='int16'?2:s=='"uint32"'||s=='int32'||s=='float32'?4:8
+dsize:=s='"$2"';s=='"uint8"'||s=='int8'?1:s=='"uint16"'||s=='int16'?2:s=='"uint32"'||s=='int32'||s=='float32'?4:8
+foreach {
+w,h,d,s:=[w,h,d,s]
+serialize $1,0,0
+s -,{'\n$w\ $h\ $d\ $s\n'}
+i[1] ('\n1\ {int($w*$h*$d*$s*$ssize/$dsize)}\ 1\ 1\n') y[1]
+replace_str[0] "$1","$2"
+a y unserialize
+}
+#@cli complex2polar
+#@cli : Compute complex to polar transforms of selected images.
+#@cli : $ image.jpg +fft complex2polar[-2,-1] log[-2] shift[-2] 50%,50%,0,0,2 remove[-1]
+complex2polar :
+e[^-1] "Compute complex to polar transforms of image$?."
+repeat int($!/2) {
+l[{2*$>},{2*$>+1}] {
+ri[1] [0],3 +atan2[1] [0] => {1,n} sqr[-3,-2] +[-3,-2] sqrt..
+}
+}
+#@cli compress_clut : _max_error>0,_avg_error>0,_max_nbpoints>=8 | 0 (unlimited),_error_metric={ 0=L2-norm | 1=deltaE_1976 | 2=deltaE_2000 },_reconstruction_colorspace={ 0=srgb | 1=rgb | 2=lab },_try_rbf_first={ 0 | 1 }
+#@cli : Compress selected color LUTs as sequences of colored keypoints.
+#@cli : Default values: 'max_error=1.5', 'avg_error=0.75', 'max_nb_points=2048', 'error_metric=2', 'reconstruction_colorspace=0' and 'try_rbf_first=1'.
+compress_clut : check "${1=1.5}>0 && ${2=0.75}>0 && isint(${3=2048}) && (!$3 || $3>=8) && isin(${4=2},0,1,2) && ""isin(${5=0},0,1,2) && isbool(${6=1})"
+e[^-1] "Compress color LUT$? as a set of colored keypoints, with maximum error $1, average error $2, ""$3 maximum keypoints, "${"s0,s1,s2=L2-RGB,DeltaE_1976,DeltaE_2000 u $s$4"}" metric and "${"s0,s1,s2=srgb,rgb,lab u $s$5"}" colorspace for reconstruction."
+v 0
+max_error,avg_error,max_keypoints,metric,colorspace,try_rbf=${1-6}
+if $try_rbf method=rbf else method=pde fi
+foreach {
+nm={b}
+if iM>1024 / 257 fi
+if d==1 S:=round(cbrt(wh)) r $S,$S,$S,100%,-1 fi
+e "\n* Process CLUT '"$nm"' ("{w}"x"{h}"x"{d}")."
+if "s==3 &&
+crop(0,0,0,0,w,h,d,1)==crop(0,0,0,1,w,h,d,1) &&
+crop(0,0,0,0,w,h,d,1)==crop(0,0,0,2,w,h,d,1)"
+channels 0
+fi
+_metric:=s==3?$metric:0
+if $_metric +srgb2lab fi
+1,8,1,{s+3}
+eval "
+coords = [ 0,0,0, 255,0,0, 255,255,0, 0,255,0, 0,0,255, 255,0,255, 255,255,255, 0,255,255 ];
+repeat (size(coords)/3,k,
+P = coords[3*k,3];
+I[k] = [ P, I(#0,round(P*([w#0,h#0,d#0]-1)/255)) ]
+)"
+sep="\n"
+do
++decompress_clut_$method. {0,[w,h,d]},$colorspace
+if !$_metric -. [0] norm. else srgb2lab. deltaE. [1],{$_metric-1}," " fi
+emax,eavg:=[iM,ia]
+e "\r"$sep" > Add [#"{-2,h}"] Max_Err = "{_$emax}", Avg_Err = "{_$eavg}" " sep=""
+if $emax<=$max_error" && "$eavg<=$avg_error rm. break fi
+1,1,1,{0,s+3},{"P = [ xM,yM,zM ]; [ P*255/[max(1,w#0-1),max(1,h#0-1),max(1,d#0-1)], I(#0,P) ]"} rm..
+a[-2,-1] y
+if $max_keypoints" && "h>=512" && "'$method'=='rbf' method=pde rows. 0,7 fi
+while h<($max_keypoints?$max_keypoints:inf)
+if h>8
+if $_metric max_rounding,avg_rounding=0.1,0.025
+else max_rounding,avg_rounding=1,0.25
+fi
+if $emax>$max_error" || "$eavg>$avg_error
+max_error=round($max_error,$max_rounding,1)
+avg_error=round($avg_error,$avg_rounding,1)
+fi
+index=8 sep="\n"
+do
++l. { s y rm[$index] a y }
++decompress_clut_$method. {0,[w,h,d]},$colorspace
+if $_metric==0 -. [0] norm. else srgb2lab. deltaE. [1],{$_metric-1}," " fi
+emax,eavg:=[iM,ia] rm.
+if $emax<=$max_error" && "$eavg<=$avg_error rv[-2,-1] else index+=1 fi
+e "\r"$sep" > Rem [#"{min($index,h-1)}"/"{h}"] Max_Err = "{_$emax}", Avg_Err = "{_$eavg}" "
+sep=""
+rm.
+while $index ${}
+}
+compress_cluts : check "${2=1.5}>0 && ${3=0.75}>0 && isint(${4=2048}) && $4>8"
+rm
+if isfile(['{/"$1"}']) it[] "$1" s -,{'\n'}
+else files "$1" ('${}') s -,{','}
+fi
+foreach {
+filename={t} 0 => $filename ext={x} rm
+basename $filename
+l[] { ('${}') replace_str .$ext,"" basename={t} rm }
+need_compression=1
+cclut=cclut_$basename.gmz
+if isfile(['{/$cclut}'])
+i $cclut
+if "dat = (date(5) + 60*(date(4) + date(2)*24));
+fdat = (date(5,'"{/$cclut}"') + 60*(date(4,'"{/$cclut}"') + date(2,'"{/$cclut}"')*24));
+!h && dat-fdat<30"
+e "* Skip file '"$filename"' (CLUT already being compressed)."
+need_compression=0
+elif h>0" && "h!=2048
+e "* Skip file '"$filename"' (CLUT already compressed)."
+need_compression=0
+fi
+rm.
+fi
+if $need_compression
+0 o. $cclut rm.
+if lowercase(['$ext'])=='cube' input_cube $filename c. 0,255
+elif lowercase(['$ext'])=='png' i $filename S:=round(cbrt(wh)) r $S,$S,$S,100%,-1
+else e "* Skip file '"$filename"' (unknown CLUT format)." continue
+fi
+e "* Compress file '"$filename"'."
+if w>33 r3dx 33 fi
+to_rgb
+tic compress_clut $2,$3,$4 toc
+o $cclut
+fi
+rm
+}
+#@cli compress_huffman : [huffman_tree],_max_leaf_value
+#@cli : Compress selected images with Huffman coding.
+#@cli : See also: ''decompress_huffman'', ''huffman_tree''.
+compress_huffman : check ${"is_image_arg $1"} skip "${2=}"
+e[^-1] "Compress image$? with Huffman coding, using tree $1."
+pass$1
+if ['$2']==0
+eval. ">begin(Mlv = -inf); i2<0 && i3<0?Mlv = max(Mlv,i0); end(set('Mlv',Mlv)); I"
+else
+Mlv=$2
+fi
+1,{$Mlv+1},1,2
+eval.. ":i2<0?(
+ind = y;
+code = nb_bits = 0;
+while (ind>=0,
+par = i(0,ind,0,1);
+par>=0?((code<<=1)|=(i(0,par,0,2)!=ind); ++nb_bits);
+ind = par;
+);
+ncode = 0; repeat (nb_bits,(ncode<<=1)|=(code&1); code>>=1);
+I[#-1,i0] = [ ncode,nb_bits ];
+); I"
+rm..
+foreach[^-1] {
+nm={n} pass. 2
+0 eval... ">begin(da_push(w,h,d,s); out_stream = nb_bits = 0);
+C = I[#-2,int(i),1];
+(out_stream<<=C[1])|=C[0];
+nb_bits+=C[1];
+while (nb_bits>=8,
+da_push(out_stream>>(nb_bits-=8));
+out_stream%=1< $nm
+}
+rm.
+#@cli huffman_tree
+#@cli : Generate Huffman coding tree from the statistics of all selected images.
+#@cli : Huffman tree is returned as a 1xN image inserted at the end of the image list, representing the 'N' vector-valued leafs/nodes of the tree, encoded as `[ value,parent,child0,child1 ]`.
+#@cli : Last row of the returned image corresponds to the tree root.
+#@cli : Selected images must contain only positive integer values.
+#@cli : Return maximal value of the input data in the status.
+#@cli : See also: ''compress_huffman'', ''decompress_huffman''.
++huffman_tree :
+e[^-1] "Generate Huffman coding tree from the statistic of image$?."
+Mlv:="val=-inf;for(k=0,k=active, --k,
+occ = i(0,k,0,1);
+occ<=omin1?(oind2 = oind1; omin2 = omin1; oind1 = k; omin1 = occ):
+occ<=omin2?(oind2 = k; omin2 = occ);
+);
+oind1>oind2?swap(oind1,oind2);
+i(0,oind1,0,3) = i(0,oind2,0,3) = id;
+da_push([ id++,omin1 + omin2,-1,-1,i[oind1],i[oind2] ]);
+swap(I[oind1],I[active++]);
+swap(I[oind2],I[active++]);
+,_(while) active "[Huffman Tree]"
+u $Mlv
+#@cli compress_rle : _is_binary_data={ 0 | 1 },_maximum_sequence_length>=0
+#@cli : Compress selected images as 2xN data matrices, using RLE algorithm.
+#@cli : Set 'maximum_sequence_length=0' to disable maximum length constraint.
+#@cli : Default values: 'is_binary_data=0' and 'maximum_sequence_length=0'.
+#@cli : $ image.jpg resize2dy 100 quantize 4 round +compress_rle , +decompress_rle[-1]
+compress_rle : check "isbool(${1=0}) && isint(${2=0}) && $2>=0"
+s0=" for binary data" s1=""
+if $2 s=", with maximal sequence length "$2 else s="" fi
+e[^-1] "Compress image$? using RLE algorithm"${s{!$1}}$s"."
+foreach {
+nm={n} im:=im header={w};{h};{d};{s};$im;{$1!=0}
+- $im y x ({{0,@-1}+1}) a x r 100%,3
+f '>!y?i:y==1?(i(x,0)==i(x+1,0)?-1:x):(i(x-1,1)==-1?i(x-1,2)+1:1)'
+if $2
+transpose mirror x
+f. '>x==2?i:!x?(j(0,-1)==$2?1:i!=1?j(0,-1)+1:1):(i==-1&&j(-1)==$2?y:i)'
+mirror x transpose
+fi
+z 0,{w-2} s y,3 y[1] discard[1] -1 warp[0,2] [1],0,0 rm[1]
+if $1
+!=[0] 0 *[0] 2 -[0] 1 *
+else
+*. -1 rv a x y discard -1 f '>i(0,y-1)<0&&i==0&&i(0,y+1)<0?-1:i' discard -1
+fi
+i[0] ($header) a y => $nm
+}
+#@cli cumulate : { x | y | z | c }...{ x | y | z | c } : (no arg) : (+)
+#@cli : Compute the cumulative function of specified image data, optionally along the specified axes.
+#@cli : $ image.jpg +histogram 256 +cumulate[-1] display_graph[-2,-1] 400,300,3
+#@cli c : eq. to 'cut'. : (+)
+#@cli cut : { value0[%] | [image0] },{ value1[%] | [image1] } : [image] : (+)
+#@cli : Cut values of selected images in specified range.
+#@cli : (eq. to 'c').\n
+#@cli : $ image.jpg +add 30% cut[-1] 0,255
+#@cli : $ image.jpg +cut 25%,75%
+#@cli decompress_clut : _width>0,_height>0,_depth>0,_reconstruction_colorspace={ 0=srgb | 1=rgb | 2=lab }
+#@cli : Decompress selected colored keypoints into 3D CLUTs, using a mixed RBF/PDE approach.
+#@cli : Default values: 'width=height=depth=33' and 'reconstruction_colorspace=0'.
+decompress_clut : check "isint(${1=33}) && $1>0 && isint(${2=$1}) && $2>0 && isint(${3=$1}) && $3>0 && ""isin(${4=0},0,1,2)"
+e[^-1] "Decompress colored keypoint$? into $1x$2x$3 CLUTs, using "${"s0,s1=srgb,rgb u $s$4"}" colorspace for reconstruction."
+foreach {
+if "h>=512 || (P0 = I[0]; P1 = I[h - 1]; val(P) = (P[0]*65536 + P[1]*256 + P[2]); val(P0)>val(P1))"
+decompress_clut_pde. ${1-4}
+else
+decompress_clut_rbf. ${1-4}
+fi
+}
+#@cli decompress_clut_rbf : _width>0,_height>0,_depth>0,_reconstruction_colorspace={ 0=srgb | 1=rgb | 2=lab }
+#@cli : Decompress selected colored keypoints into 3D CLUTs, using RBF thin plate spline interpolation.
+#@cli : Default value: 'width=height=depth=33' and 'reconstruction_colorspace=0'.
+decompress_clut_rbf : check "isint(${1=33}) && $1>0 && isint(${2=$1}) && $2>0 && isint(${3=$1}) && $3>0 && ""isin(${4=0},0,1,2)"
+e[^-1] "Decompress colored keypoint$? into $1x$2x$3 CLUTs (RBF approach), using "${"s0,s1,s2=srgb,rgb,lab u $s$4"}" colorspace for reconstruction."
+foreach {
+if $4 s c,-3 srgb2${"arg $4,rgb,lab"}. a c fi
+rbf $1,$2,$3,0,0,0,255,255,255
+if $4 ${"arg $4,rgb,lab"}2srgb fi
+}
+#@cli decompress_clut_pde : _width>0,_height>0,_depth>0,_reconstruction_colorspace={ 0=srgb | 1=rgb | 2=lab }
+#@cli : Decompress selected colored keypoints into 3D CLUTs, using multiscale diffusion PDE's.
+#@cli : Default values: 'width=height=depth=33' and 'reconstruction_colorspace=0'.
+decompress_clut_pde : check "isint(${1=33}) && $1>0 && isint(${2=$1}) && $2>0 && isint(${3=$1}) && $3>0 && ""isin(${4=0},0,1,2)"
+e[^-1] "Decompress colored keypoint$? into $1x$2x$3 CLUTs (PDE approach), using "${"s0,s1,s2=srgb,rgb,lab u $s$4"}" colorspace for reconstruction."
+foreach {
+nm={n}
+if $4 s c,-3 srgb2${"arg $4,rgb,lab"}. a c fi
+2,2,2,{s-3}
+do
++f. 0 .,.,.,1
+eval[0] "begin(fact = ([w#1,h#1,d#1] - 1)/255); PC = I; P = PC[0,3]; X = round(P*fact);
+I(#2,X)+=PC[3,s-3]; ++i(#3,X); I"
+f. "*i?(I(#2)/=i;1):0"
+if im rm[-3,-1]
+else
++distance. 1 .,.,.,3
+eval.. "*
+const boundary = 1;
+maxabs(a,b) = (abs(a)>abs(b)?a:b);
+I(#-1) = [ maxabs(j(1) - i,i - j(-1)),
+maxabs(j(0,1) - i,i - j(0,-1)),
+maxabs(j(0,0,1) - i,i - j(0,0,-1)) ]"
+orientation. rm..
+repeat 20 {
+j[-4] ...,0,0,0,0,1,..
++warp[-4] .,1,2,1 *.. -1 warp[-5] ..,1,2,1 +[-5,-1] /[-4] 2
+}
+j[-4] ...,0,0,0,0,1,.. k[0,1]
+fi
+if "w<$1 || h<$2 || d<$3" r. {[min($1,2*w),min($2,2*h),min($3,2*d)]},100%,3 else break fi
+while 1
+k.
+if $4 ${"arg $4,rgb,lab"}2srgb fi
+=> $nm
+}
+um srgb2srgb
+#@cli decompress_huffman : [huffman_tree]
+#@cli : Decompress selected images with Huffman decoding.
+#@cli : See also: ''compress_huffman'', ''huffman_tree''.
+#@cli : $ image.jpg huffman_tree compress_huffman.. . +decompress_huffman.. .
+decompress_huffman : check ${"is_image_arg $1"}
+e[^-1] "Decompress image$? with Huffman decoding, using tree $1."
+pass$1
+foreach[^-1] {
+nm={n} pass. 2
+0 eval "
+hvalues = crop(#-2,0,0,0,0,1,h#-2,1,1);
+hparent = crop(#-2,0,0,0,1,1,h#-2,1,1);
+hchild0 = crop(#-2,0,0,0,2,1,h#-2,1,1);
+hchild1 = crop(#-2,0,0,0,3,1,h#-2,1,1);
+const root = size(hvalues) - 1;
+siz = prod(crop(#-3,0,0,1,4));
+off = 4; mask = byte = bytes_written = 0;
+ind = root;
+while (bytes_written>=1;
+child = bit?hchild1[ind]:hchild0[ind];
+val = hvalues[child];
+val>=0?(
+da_push(val);
+ind = root;
+++bytes_written;
+):(ind = child);
+); da_freeze()"
+r. {"crop(#-3,0,0,1,4)"},-1 k. => $nm
+}
+rm.
+#@cli decompress_rle
+#@cli : Decompress selected data vectors, using RLE algorithm.
+decompress_rle :
+e[^-1] "Decompress data vector$?, using RLE algorithm."
+foreach {
+y whds={0,@0-3} im={0,@4} is_binary_data={0,@5} rows 6,100%
+if $is_binary_data
++>= 0 abs[0] a x
+else
++<. 0
+(0;1;1)
+erode.. .,0 rm. -. 1 a x discard -1
++< 0 (0;1;1) dilate.. . rm. *. -2 +. 1
+rv abs. a x discard -1
+r 2,{h/2},1,1,-1
+fi
+s y,-256
+foreach {
+i[0] ('CImg3d') +[0] 0.5
+i[1] ({2*h};{h})
+s. x,2 cumulate.. siz={-2,@-1}
++shift.. 0,1 -... 1 rv[-3,-1] z[-3,-1] 0,2 a[-3,-1] x
+i[3] (2,0,1;2,{2*h-2},{2*h-1}) r[3] 3,{h},1,1,3 round[3]
+r[4] 3 1,100%,1,1,1 y a y
+$siz j3d. ..,0,0,0,1,2,0,0 rm..
+}
+a x r $whds,-1 + $im
+}
+#@cli discard : _value1,_value2,... : { x | y | z | c}...{ x | y | z | c},_value1,_value2,... : (no arg) : (+)
+#@cli : Discard specified values in selected images or discard neighboring duplicate values,
+#@cli : optionally only for the values along the first of a specified axis.
+#@cli : If no arguments are specified, neighboring duplicate values are discarded.
+#@cli : If all pixels of a selected image are discarded, an empty image is returned.
+#@cli : $ (1;2;3;4;3;2;1) +discard 2
+#@cli : $ (1,2,2,3,3,3,4,4,4,4) +discard x
+#@cli eigen2tensor
+#@cli : Recompose selected pairs of eigenvalues/eigenvectors as 2x2 or 3x3 tensor fields.
+#@cli : $$
+eigen2tensor :
+e[^-1] "Recompose pairs in eigen field$? as 2x2 or 3x3 tensor fields."
+repeat $!/2 { l[$>,{$>+1}] {
+nm={0,n}
+if s==2
+s. c
++sqr. *.. ... sqr...
+sh. +*... -1
+sh[-5]
+a[-3--1] c a[-4--2] c
+sh... 0 *[-3,-1]
+sh... 1 *[-2,-1]
+rm... +[-2,-1]
+elif s==6
+s. c
+l[-6--4] { +sqr.. +*[-2,-3] +sqr... *[-5] [-6] *[-4] [-6] sqr[-6] a c }
+l[-3--1] { +sqr.. +*[-2,-3] +sqr... *[-5] [-6] *[-4] [-6] sqr[-6] a c }
+s... c
+-[-5] ... -[-4] ... *.. [-5] *. [-4]
+(1^0^0^1^0^1) ri. ... *. [-4] rm[-6--4] +[-3--1]
+else error[0--3] "Command '$0': Invalid image ["{$!-$>-1}"] : Dimensions "{w}","{h}","{d}","{s}" does
+not represent a field of 2D or 3D eigenvectors."
+fi
+=> $nm
+} }
+#@cli endian : _datatype : (+)
+#@cli : Reverse data endianness of selected images, eventually considering the pixel being of the specified datatype.
+#@cli : 'datatype' can be { bool | uint8 | int8 | uint16 | int16 | uint32 | int32 | uint64 | int64 | float32 | float64 }.
+#@cli : This command does nothing for 'bool', 'uint8' and 'int8' datatypes.
+#@cli equalize : _nb_levels>0[%],_value_min[%],_value_max[%] : (no arg) : (+)
+#@cli : Equalize histograms of selected images.
+#@cli : If value range is specified, the equalization is done only for pixels in the specified
+#@cli : value range.
+#@cli : Default values: 'nb_levels=256', 'value_min=0%' and 'value_max=100%'.
+#@cli : $ image.jpg +equalize
+#@cli : $ image.jpg +equalize 4,0,128
+#@cli f : eq. to 'fill'. : (+)
+#@cli fill : value1,_value2,... : [image] : 'formula' : (+)
+#@cli : Fill selected images with values read from the specified value list, existing image
+#@cli : or mathematical expression. Single quotes may be omitted in 'formula'.
+#@cli : (eq. to 'f').
+#@cli : $ 4,4 fill 1,2,3,4,5,6,7
+#@cli : $ 4,4 (1,2,3,4,5,6,7) fill[-2] [-1]
+#@cli : $ 400,400,1,3 fill "X=x-w/2; Y=y-h/2; R=sqrt(X^2+Y^2); a=atan2(Y,X); if(R<=180,255*abs(cos(c+200*(x/w-0.5)*(y/h-0.5))),850*(a%(0.1*(c+1))))"
+#@cli : $$
+#@cli index : { [palette] | palette_name },0<=_dithering<=1,_map_palette={ 0 | 1 } : (+)
+#@cli : Index selected vector-valued images by specified vector-valued palette.
+#@cli : 'palette_name' can be { default | hsv | lines | hot | cool | jet | flag | cube | rainbow | algae | amp |balance | curl | deep | delta | dense | diff | haline | ice | matter | oxy | phase | rain | solar | speed | tarn |tempo | thermal | topo | turbid | aurora | hocuspocus | srb2 | uzebox }
+#@cli : Default values: 'dithering=0' and 'map_palette=0'.
+#@cli : $ image.jpg +index 1,1,1
+#@cli : $ image.jpg (0;255;255^0;128;255^0;0;255) +index[-2] [-1],1,1
+#@cli : $$ https://gmic.eu/tutorial/gindex
+index : check "${2=0}>=0 && $2<=1 && isbool(${3=0})"
+if ${"is_image_arg $1"} pass$1 e[0--3] "Index values in image$? by LUT $1, with dithering level $2."
+else
+names=${-_palette_names} N:=narg($names)
+l[] { if isint("$1") name=${"arg0 ($1%"$N"),"$names} else name="$1" fi onfail name="$1" }
+e[0--3] "Index values in image$? by LUT '"$name"', with dithering level $2."
+palette $1
+fi
+index[^-1] .,$2,$3 rm.
+#@cli ir : eq. to 'inrange'.
+ir : check "isbool(${3=1}) && isbool(${4=$3})"
+_gmic_s="$?" v + _inrange $*
+#@cli inrange : min[%],max[%],_include_min_boundary={ 0=no | 1=yes },_include_max_boundary={ 0=no | 1=yes }
+#@cli : Detect pixels whose values are in specified range `[min,max]`, in selected images.
+#@cli : (eq. to 'ir').
+#@cli : Default value: 'include_min_boundary=include_max_boundary=1'.
+#@cli : $ image.jpg +inrange 25%,75%
+inrange : check "isbool(${3=1}) && isbool(${4=$3})"
+_gmic_s="$?" v + _$0 $*
+_inrange : skip "${3=1},${4=$3}"
+v:=$3+2*$4
+s=${"arg0 "$v",out,\" min\",\" max\",\" min and max\""}
+if $v%3 b="y" else b="ies" fi
+e[0--3] "Extract pixel values in range [$1,$2] in image"$_gmic_s", with"$s" boundar"$b" included."
+foreach {
+m=$1 M=$2
+if ${is_percent\ $1} m:=im+(iM-im)*$1 fi
+if ${is_percent\ $2} M:=im+(iM-im)*$2 fi
+f. inrange(i,$m,$M,$3)
+}
+#@cli map : [palette],_boundary_conditions : palette_name,_boundary_conditions : (+)
+#@cli : Map specified vector-valued palette to selected indexed scalar images.
+#@cli : 'palette_name' can be { default | hsv | lines | hot | cool | jet | flag | cube | rainbow | algae | amp | balance | curl | deep | delta | dense | diff | gray | haline | ice | matter | oxy | phase | rain | solar | speed | tarn | tempo | thermal | topo | turbid | aurora | hocuspocus | srb2 | uzebox }
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default value: 'boundary_conditions=0'.
+#@cli : $ image.jpg +luminance map[-1] 3
+#@cli : $ image.jpg +rgb2ycbcr split[-1] c (0,255,0) resize[-1] 256,1,1,1,3 map[-4] [-1] remove[-1] append[-3--1] c ycbcr2rgb[-1]
+#@cli : $$
+map : check "isint(${2=0}) && $2>=0 && $2<=3"
+s0,s1,s2,s3=dirichlet,neumann,periodic,mirror boundary=${s$2}
+names=${-_palette_names} N:=narg($names)
+l[] { if isint("$1") name=${"arg0 ($1%"$N"),"$names} else name="$1" fi onfail name="$1" }
+e[^-1] "Map color LUT '"$name"' on image$?, with "$boundary" boundary conditions."
+palette $1 map[^-1] .,$2 rm.
+#@cli mix_channels : (a00,...,aMN) : [matrix]
+#@cli : Apply specified matrix to channels of selected images.
+#@cli : $ image.jpg +mix_channels (0,1,0;1,0,0;0,0,1)
+mix_channels :
+e[^-1] "Apply matrix $* to channels of image$?."
+if ${"is_image_arg $1"} pass$1 1 else i ${^0} fi
+foreach[^-1] {
+nm={n} whd:=[w,h,d] r. {[whd,s]},1,1,-1
+pass. 0 mv. 0 m* r $whd,{h},-1 => $nm
+} rm.
+#@cli negate : base_value : (no arg)
+#@cli : Negate image values.
+#@cli : Default value: 'base_value=(undefined)'.
+#@cli : $ image.jpg +negate
+negate : skip "${1=,}"
+if isnum("$*")
+e[0--3] "Negate values of image$?, according to base value $*."
+- {"$*"} * -1
+else
+e[0--3] "Negate values of image$?."
+repeat $! { -[$>] {$>,iM} } * -1
+if ['"$1"']!=',' noarg fi
+fi
+#@cli noise : std_deviation>=0[%],_noise_type : (+)
+#@cli : Add random noise to selected images.
+#@cli : 'noise_type' can be { 0=gaussian | 1=uniform | 2=salt&pepper | 3=poisson | 4=rice }.
+#@cli : Default value: 'noise_type=0'.
+#@cli : $ image.jpg +noise[0] 50,0 +noise[0] 50,1 +noise[0] 10,2 cut 0,255
+#@cli : $ 300,300,1,3 [0] noise[0] 20,0 noise[1] 20,1 +histogram 100 display_graph[-2,-1] 400,300,3
+#@cli noise_perlin : _scale_x[%]>0,_scale_y[%]>0,_scale_z[%]>0,_seed_x,_seed_y,_seed_z
+#@cli : Render 2D or 3D Perlin noise on selected images, from specified coordinates.
+#@cli : The Perlin noise is a specific type of smooth noise,
+#@cli : described here : .
+#@cli : Default values: 'scale_x=scale_y=scale_z=16' and 'seed_x=seed_y=seed_z=0'.
+#@cli : $ 500,500,1,3 noise_perlin ,
+noise_perlin : check "${1=16}>0 && ${2=$1}>0 && ${3=$1}>0 && isnum(${4=0}) && isnum(${5=0}) && isnum(${6=0})"
+e[^-1] "Render Perlin noise on image$?, with scales (${1-3}) and seeds (${4-6})."
+init="permutation = [ 151,160,137,91,90,15,131,13,201,95,96,53,194,233,7,225,140,36,103,30,69,142,8,99,37,240,
+21,10,23,190,6,148,247,120,234,75,0,26,197,62,94,252,219,203,117,35,11,32,57,177,33,88,
+237,149,56,87,174,20,125,136,171,168,68,175,74,165,71,134,139,48,27,166,77,146,158,231,
+83,111,229,122,60,211,133,230,220,105,92,41,55,46,245,40,244,102,143,54,65,25,63,161,1,
+216,80,73,209,76,132,187,208,89,18,169,200,196,135,130,116,188,159,86,164,100,109,198,
+173,186,3,64,52,217,226,250,124,123,5,202,38,147,118,126,255,82,85,212,207,206,59,227,47,
+16,58,17,182,189,28,42,223,183,170,213,119,248,152,2,44,154,163,70,221,153,101,155,167,
+43,172,9,129,22,39,253,19,98,108,110,79,113,224,232,178,185,112,104,218,246,97,228,251,
+34,242,193,238,210,144,12,191,179,162,241,81,51,145,235,249,14,239,107,49,192,214,31,
+181,199,106,157,184,84,204,176,115,121,50,45,127,4,150,254,138,236,205,93,222,114,67,29,
+24,72,243,141,128,195,78,66,215,61,156,180 ];
+p = [ permutation,permutation ];
+fade(t) = (t*t*t*(t*(t*6 - 15) + 10));
+_lerp(t,a,b) = lerp(a,b,t);
+pcmod255 = vectors(); repeat (s,k,pcmod255[k] = p[k%255]);
+sx = ['$1']; is_px = sx[size(sx) - 1]==_'%';
+sy = ['$2']; is_py = sy[size(sy) - 1]==_'%';
+sz = ['$3']; is_pz = sz[size(sz) - 1]==_'%';
+x0 = $4;
+y0 = $5;
+z0 = $6;
+x1 = x0 + (is_px?1/$1:w/$1);
+y1 = y0 + (is_py?1/$2:h/$2);
+z1 = z0 + (is_pz?1/$3:d/$3);
+fw = (x1 - x0)/max(w - 1,1);
+fh = (y1 - y0)/max(h - 1,1);
+fd = (z1 - z0)/max(d - 1,1);"
+repeat $! { if {$>,d>1}
+f[$>] "*begin("$init"
+grad(hash,x,y,z) = ( gh = hash&15; gu = gh<8?x:y; gv = gh<4?y:gh==12 || gh==14?x:z;
+(!(gh&1)?gu:-gu) + (!(gh&2)?gv:-gv))
+);
+x = x0 + x*fw + pcmod255[c]; y = y0 + y*fh + pcmod255[c]; z = z0 + z*fd + pcmod255[c];
+ix = floor(x); iy = floor(y); iz = floor(z);
+X = ix&255; Y = iy&255; Z = iz&255;
+fx = x - ix; fy = y - iy; fz = z - iz;
+u = fade(fx); v = fade(fy); w = fade(fz);
+A = p[X] + Y; AA = p[A] + Z; AB = p[A + 1] + Z;
+B = p[X + 1] + Y; BA = p[B] + Z; BB = p[B + 1] + Z;
+fx1 = fx - 1; fy1 = fy - 1; fz1 = fz - 1;
+lerp(lerp(lerp(grad(p[AA],fx,fy,fz),
+grad(p[BA],fx1,fy,fz),u),
+lerp(grad(p[AB],fx,fy1,fz),
+grad(p[BB],fx1,fy1,fz),u),v),
+lerp(lerp(grad(p[AA + 1],fx,fy,fz1),
+grad(p[BA + 1],fx1,fy,fz1,u),
+lerp(grad(p[AB + 1],fx,fy1,fz1),
+grad(p[BB+1],fx1,fy1,fz1),u),v),w)"
+else
+f[$>] "*begin("$init"
+grad(hash,x,y) = ( gh = hash&15; gu = gh<8?x:y; gv = gh<4?y:gh==12 || gh==14?x:0;
+(!(gh&1)?gu:-gu) + (!(gh&2)?gv:-gv))
+);
+x = x0 + x*fw + pcmod255[c]; y = y0 + y*fh + pcmod255[c];
+ix = floor(x); iy = floor(y);
+X = ix&255; Y = iy&255;
+fx = x - ix; fy = y - iy;
+u = fade(fx); v = fade(fy);
+A = p[X] + Y; B = p[X + 1] + Y;
+fx1 = fx - 1; fy1 = fy - 1;
+lerp(lerp(grad(p[A],fx,fy),
+grad(p[B],fx1,fy),u),
+lerp(grad(p[A + 1],fx,fy1),
+grad(p[B + 1],fx1,fy1),u),v)"
+fi }
+#@cli noise_poissondisk : _radius[%]>0,_max_sample_attempts>0,_p_norm>0
+#@cli : Add poisson disk sampling noise to selected images.
+#@cli : Implements the algorithm from the article "Fast Poisson Disk Sampling in Arbitrary Dimensions",
+#@cli : by Robert Bridson (SIGGRAPH'2007).
+#@cli : Default values: 'radius=8', 'max_sample_attempts=30' and 'p_norm=2'.
+#@cli : $ 300,300 noise_poissondisk 8
+noise_poissondisk : check "${1=8}>0 && isint(${2=30}) && $2>0 && ${3=2}>0"
+e[^-1] "Add poisson disk sampling points to image$?, with radius $1, max sample attempts $2 and p-norm $3."
+R0,K,P=${1-3}
+foreach {
+W,H,D:=[w,h,d]
+value:=iM+(im==iM?1:0)
+R:=${is_percent\ $R0}?max(w,h,d)*$R0:$R0
+C:=$R/sqrt(sum([$W,$H,$D]>1))
+_poissondisk[] $R,$P,$C
+f. "($W<2 && i0) || ($H<2 && i1) || ($D<2 && i2)?[8,8,8]:I" discard. 8 s. y,3 a[-3--1] x
+neighbors={^} rm.
+{ceil([$W,$H,$D]/$C)},1,-1 => grid
+1,32,1,3 => points
+1,32,1,1 => active
+eval "
+insert_active_point(X) = (
+i(#$grid,int(X/$C)) = new_ind = da_size(#$points);
+da_push(#$points,X);
+da_push(#$active,new_ind);
+I(#0,X) = $value;
+);
+const eps = 1e-8;
+neighbors = ["$neighbors"];
+X = int(u([$W,$H,$D] - eps));
+insert_active_point(X);
+while (siz = da_size(#$active),
+indX = int(u(siz - eps));
+X = I[#$points,i[#$active,indX]];
+for (k = 0, k<$K, ++k,
+U = [ $W>1?v:0, $H>1?v:0, $D>1?v:0 ];
+U*=u($R,2*$R)/(norm(U) + eps);
+Y = round(X + U);
+min(inrange(Y,0,[$W,$H,$D] - 1))?(
+P = int(Y/$C);
+i(#$grid,P)<0?(
+is_sample_ok = 1;
+repeat(size(neighbors)/3,n,
+ind = i(#$grid,P + neighbors[3*n,3]);
+ind>=0?(nY = I[#$points,ind]; norm"$P"(nY - Y)<=$R?(is_sample_ok = 0; break())); # Invalid point
+);
+is_sample_ok?(insert_active_point(Y); break());
+);
+);
+);
+k>=$K?da_remove(#$active,indX); # Remove point from active list
+);
+resize(#$points,1,da_size(#$points),1,3,0)"
+k[0]
+}
++_poissondisk :
+R,P,C=${1-3}
+0 eval "
+dmin(dx,dy,dz,C) = (
+_dx = dx*C; _dy = dy*C; _dz = dz*C;
+norm"$P"(min(abs(_dx),abs(_dx + C),abs(_dx - C)),
+min(abs(_dy),abs(_dy + C),abs(_dy - C)),
+min(abs(_dz),abs(_dz + C),abs(_dz - C)));
+);
+for (n = 1, n<4, ++n,
+is_none_added = 1;
+for (k = -n, k<=n, ++k,
+for (j = -n, j<=n, ++j,
+for (i = -n, i<=n, ++i,
+abs(maxabs(i,j,k))==n && dmin(i,j,k,$C)<$R?(da_push([i,j,k]); is_none_added = 0)
+)
+)
+);
+is_none_added?break();
+);
+resize(#-1,1,da_size(),1,3,0)"
+#@cli normp : p>=0
+#@cli : Compute the pointwise Lp-norm norm of vector-valued pixels in selected images.
+#@cli : Default value: 'p=2'.
+#@cli : $ image.jpg +normp[0] 0 +normp[0] 1 +normp[0] 2 +normp[0] inf
+normp : check "isnum(${1==2}) && $1>=0"
+e[^-1] "Compute pointwise L"$1"-norm of vectors, in image$?."
+if $1==0 != 0 compose_channels +
+elif $1==1 abs compose_channels +
+elif $1==2 norm
+elif $1==inf abs compose_channels max
+else ^ $1 compose_channels + ^ {1/$1}
+fi
+#@cli norm1
+#@cli : Compute the pointwise L1-norm of vector-valued pixels in selected images.
+#@cli : $ image.jpg +norm1
+#@cli : $$
+norm1 :
+e[^-1] "Compute pointwise L1-norm of vectors, in image$?."
+abs compose_channels +
+#@cli norm : eq. to 'norm2'.
+norm :
+_gmic_s="$?" v + _norm2
+#@cli norm2
+#@cli : Compute the pointwise L2-norm (euclidean norm) of vector-valued pixels in selected images.
+#@cli : $ image.jpg +norm
+#@cli : $$
+norm2 :
+_gmic_s="$?" v + _$0
+_norm2 :
+e[^-1] "Compute pointwise euclidean norm of vectors, in image"$_gmic_s"."
+sqr compose_channels + sqrt
+#@cli n : eq. to 'normalize'. : (+)
+#@cli normalize : { value0[%] | [image0] },{ value1[%] | [image1] },_constant_case_ratio : [image] : (+)
+#@cli : Linearly normalize values of selected images in specified range.
+#@cli : (eq. to 'n').
+#@cli : $ image.jpg split x,2 normalize[-1] 64,196 append x
+#@cli : $$
+#@cli normalize_l2
+#@cli : Normalize selected images such that they have a unit L2 norm.
+normalize_l2 :
+e[^-1] "Normalize image$?, s.t they have a unit L2 norm."
+repeat $! { /[$>] {norm={$>,in};if(norm!=0,norm,1)} }
+#@cli normalize_sum
+#@cli : Normalize selected images such that they have a unit sum.
+#@cli : $ image.jpg +histogram 256 normalize_sum[-1] display_graph[-1] 400,300
+normalize_sum :
+e[^-1] "Normalize image$?, s.t they have a unit sum."
+repeat $! { /[$>] {sum={$>,is};if(sum!=0,sum,1)} }
+#@cli not
+#@cli : Apply boolean not operation on selected images.
+#@cli : $ image.jpg +ge 50% +not[-1]
+not :
+e[^-1] "Apply boolean not operation on image$?."
+== 0
+#@cli orientation
+#@cli : Compute the pointwise orientation of vector-valued pixels in selected images.
+#@cli : $ image.jpg +orientation +norm[-2] negate[-1] mul[-2] [-1] reverse[-2,-1]
+#@cli : $$
+orientation :
+e[^-1] "Compute pointwise orientation vectors, in image$?."
+repeat $! { +norm[$>] replace. 0,1 /[$>,-1] }
+#@cli oneminus
+#@cli : For each selected image, compute one minus image.
+#@cli : $ image.jpg normalize 0,1 +oneminus
+oneminus :
+e[^-1] "Compute one minus selected images$?."
+* -1 + 1
+#@cli otsu : _nb_levels>0
+#@cli : Hard-threshold selected images using Otsu's method.
+#@cli : The computed thresholds are returned as a list of values in the status.
+#@cli : Default value: 'nb_levels=256'.
+#@cli : $ image.jpg luminance +otsu ,
+otsu : check "isint(${1=256}) && $1>0"
+e[^-1] "Hard-threshold image$? using Otsu\47s method, with $1 histogram levels."
+foreach {
+imM:=[im,iM] +histogram $1,$imM
+otsu:="
+sum = sumB = wB = best_variance = best_t = 0;
+repeat (w,t,sum+=t*i[t]);
+repeat (w,t,
+wB+=i[t];
+if (!wB, continue());
+wF = whds#-2 - wB;
+if (!wF, break());
+sumB+=t*i[t];
+mB = sumB/wB;
+mF = (sum - sumB)/wF;
+variance = wB*wF*(mB - mF)^2;
+if (variance>best_variance, best_variance = variance; best_t = t);
+);
+imM = ["$imM"];
+imM[0] + best_t*(imM[1] - imM[0])/(w - 1)"
+rm. >=. $otsu
+if $> u ${},$otsu else u $otsu fi
+}
+#@cli polar2complex
+#@cli : Compute polar to complex transforms of selected images.
+polar2complex :
+e[^-1] "Compute polar to complex transforms of image$?."
+repeat int($!/2) {
+l[{2*$>},{2*$>+1}] {
+ri[1] [0],3 +sin. cos.. *. ... *[-3,-2]
+}
+}
+#@cli quantize : nb_levels>=1,_keep_values={ 0 | 1 },_quantization_type={ -1=median-cut | 0=k-means | 1=uniform }
+#@cli : Quantize selected images.
+#@cli : Default value: 'keep_values=1' and 'quantization_type=0'.
+#@cli : $ image.jpg luminance +quantize 3
+#@cli : $ 200,200,1,1,'cos(x/10)*sin(y/10)' +quantize[0] 6 +quantize[0] 4 +quantize[0] 3 +quantize[0] 2
+quantize : check "isint($1) && $1>=1 && isbool(${2=1}) && isint(${3=0}) && $3>=-1 && $3<=1"
+e[^-1] "Quantize image$? using $1 levels, "${arg0\ !$2,with,without}" keeping value range."
+foreach {
+if $3==1
+if s==1
+if $2 mM:=[im,iM] n 0,$1 round 1,-1 min {$1-1} n $mM
+else n 0,$1 round 1,-1 min {$1-1} fi
+else mM:=[im,iM] uniform_distribution $1,{s} n. $mM index.. .,0,$2 rm.
+fi
+else +colormap $1,{!$3},1 index.. .,0,$2 rm.
+fi
+}
+#@cli quantize_area : _min_area>0
+#@cli : Quantize selected images such that each flat region has an area greater or equal to 'min_area'.
+#@cli : Default value: 'min_area=10'.
+#@cli : $ image.jpg quantize 3 +blur 1 round[-1] +quantize_area[-1] 2
+quantize_area : check "${1=10}>0"
+e[^-1] "Quantize image$? by regions of areas greater than $1."
+if $1==1 return fi
+foreach {
+if s>1 +f. "begin(A = resize([ 0,(s-1)/s ],s,3));I+A" norm. round. 0.01 else [0] fi
+area. 0,0 <. $1
+do
+[0]
+f.. "*
+begin(
+const boundary = 1;
+offx = [ -1,1,0,0,0,0 ];
+offy = [ 0,0,-1,1,0,0 ];
+offz = [ 0,0,0,0,-1,1 ];
+nb_offs = d>1?6:h>1?4:2;
+);
+is_neighbor = j(-1) && j(-1);
+if (h>1, is_neighbor&=j(1,0) && j(0,1));
+if (d>1, is_neighbor&=j(0,0,-1) && j(0,0,1));
+is_neighbor = !is_neighbor;
+i && is_neighbor?(
+col0 = I(#0);
+kmin = -1;
+distmin = inf;
+repeat (nb_offs,k,
+p = offx[k];
+q = offy[k];
+r = offz[k];
+if (!j(p,q,r),
+col = J(#0,p,q,r);
+dist = norm(col-=col0);
+if (dist=0,
+I(#-1) = J(#0,offx[kmin],offy[kmin],offz[kmin]);
+0,
+1
+);
+):i"
+rv[0,-1] rm.
+while iM
+rm.
+}
+#@cli rand : { value0[%] | [image0] },_{ value1[%] | [image1] } : [image] : (+)
+#@cli : Fill selected images with random values uniformly distributed in the specified range.
+#@cli : $ 400,400,1,3 rand -10,10 +blur 10 sign[-1]
+#@cli rand_sum : sum>0,_random_function
+#@cli : Fill selected images with strictly positive, random, integer values, that sums to 'sum'.
+#@cli : For each image, 'sum' must be greater or equal than 'width*height*depth*spectrum'.
+#@cli : Default value: 'random_function=u'.
+#@cli : $ 100 rand_sum 1000
+rand_sum : check "isint($1) && isexpr(${3=u})"
+e[^-1] "Fill image$? with strictly positive, random, integer values that sums to $1, with random function '$3'."
+foreach {
+if whds>$1
+error[0--4] "Command 'rand_sum': Image ["$>"] = ("{[w,h,d,s]}") has "{whds}" elements (should be <=$1)."
+fi
+f. "abs($3)" *. {($1-whds)/is} round. +. 1
+eval "
+sum = is;
+while (sum!=$1,
+off = int(u(whds))%whds;
+val = i[off];
+delta = $1 - sum;
+absdeltap1 = abs(delta) + 1;
+dval = sign(delta)*(int(u(1,absdeltap1))%absdeltap1);
+val + dval>0?(i[off]+=dval; sum+=dval);
+)"
+}
+#@cli replace : source,target
+#@cli : Replace pixel values in selected images.
+#@cli : $ (1;2;3;4) +replace 2,3
+replace :
+e[^-1] "Replace pixel values $1 with $2 in image$?."
+f "i==$1?($2):i"
+#@cli replace_inf : _expression
+#@cli : Replace all infinite values in selected images by specified expression.
+#@cli : $ (0;1;2) log +replace_inf 2
+replace_inf :
+e[^-1] "Replace all infinite values in image$? by expression '$1'."
+f "isinf(i)?($1):i"
+#@cli replace_infnan : _expression
+#@cli : Replace all NaN and infinite values in selected images by specified expression.
+replace_infnan :
+e[^-1] "Replace all +-inf and NaN values in images$? by expression '$1'."
+f "isinf(i) || isnan(i)?($1):i"
+#@cli replace_nan : _expression
+#@cli : Replace all NaN values in selected images by specified expression.
+#@cli : $ (-1;0;2) sqrt +replace_nan 2
+replace_nan :
+e[^-1] "Replace all NaN values in images$? by expression '$1'."
+f "isnan(i)?($1):i"
+#@cli replace_seq : "search_seq","replace_seq"
+#@cli : Search and replace a sequence of values in selected images.
+#@cli : $ (1;2;3;4;5) +replace_seq "2,3,4","7,8"
+replace_seq : skip "${2=''}"
+e[^-1] "Replace value sequence '$1' by value sequence '${2--1}' in image$?."
+y foreach {
+nm={n}
+1,100%
+eval "ref([ $1 ],str1);
+ref([ ${2--1} ],str2);
+copy_block(pd,src,len) = (
+l = len;
+pd + l>=h#1?resize(#1,1,h(#1) + 3*l,1,1,0);
+copy(i[pd],src,l);
+pd+=l;
+);
+for (ps = pd = 0, ps=0,
+qs>ps?copy_block(pd,i[#0,ps],qs - ps);
+copy_block(pd,str2,size(str2));
+ps = qs + size(str1);
+);
+ps $nm
+}
+#@cli replace_str : "search_str","replace_str"
+#@cli : Search and replace a string in selected images (viewed as strings, i.e. sequences of character codes).
+#@cli : $ ('"Hello there, how are you ?"') +replace_str "Hello there","Hi David"
+replace_str : skip "${2=}"
+e[^-1] "Replace string '"{/"$1"}"' by string '"{/"${2--1}"}"' in image$?."
+replace_seq {``{'"$1"'}},{'"${2--1}"'}
+#@cli round : rounding_value>=0,_rounding_type : (no arg) : (+)
+#@cli : Round values of selected images.
+#@cli : 'rounding_type' can be { -1=backward | 0=nearest | 1=forward }.
+#@cli : Default value: 'rounding_type=0'.
+#@cli : $ image.jpg +round 100
+#@cli : $ image.jpg mul {pi/180} sin +round
+#@cli roundify : gamma>=0
+#@cli : Apply roundify transformation on float-valued data, with specified gamma.
+#@cli : Default value: 'gamma=0'.
+#@cli : $ 1000 fill '4*x/w' repeat 5 { +roundify[0] {$>*0.2} } append c display_graph 400,300
+roundify : check $1>=0
+e[^-1] "Roundify image$?, with gamma $1."
+if $1==1 return fi
+foreach { +round 1 -.. . +*.. 2 abs. ^. $1 sign... *[-3,-1] *.. 0.5 + }
+#@cli = : eq. to 'set'. : (+)
+#@cli set : value,_x[%],_y[%],_z[%],_c[%] : (+)
+#@cli : Set pixel value in selected images, at specified coordinates.
+#@cli : (eq. to '=').\n
+#@cli : If specified coordinates are outside the image bounds, no action is performed.
+#@cli : Default values: 'x=y=z=c=0'.
+#@cli : $ 2,2 set 1,0,0 set 2,1,0 set 3,0,1 set 4,1,1
+#@cli : $ image.jpg repeat 10000 { set 255,{u(100)}%,{u(100)}%,0,{u(100)}% }
+#@cli threshold : value[%],_is_soft={ 0 | 1 } :
+#@cli : Threshold values of selected images.
+#@cli : 'soft' can be { 0=hard-thresholding | 1=soft-thresholding }.
+#@cli : Default value: 'is_soft=0'.
+#@cli : $ image.jpg +threshold[0] 50% +threshold[0] 50%,1
+#@cli : $$
+threshold : check "isexpr($1) && isbool(${2=0})"
+e[^-1] ${"arg0 !$2,Soft,Hard"}"-threshold image$? by $1."
+if $2
+f "begin(
+str = ['$1'];
+value = str[size(str)-1]==_'%'?im + (iM-im)*$1:$1
+);
+i>=value?i - value:
+i<=-value?i + value:0"
+else ge $1
+fi
+#@cli vector2tensor
+#@cli : Convert selected vector fields to corresponding tensor fields.
+vector2tensor :
+e[^-1] "Convert vector field$? to tensor field$?."
+foreach {
+s c
+if $!==2 +sqr. *.. ... sqr...
+elif $!==3 +sqr.. +*... .. +sqr... *[-5,-4] [-6] sqr[-6]
+else error[0--4] "Command '$0': Invalid image ["{$!-$>-1}"] : Dimensions "{w}","{h}","{d}","{s}" does not
+represent a field of 2D or 3D vectors."
+fi
+a c
+}
+#@cli :: Colors
+#@cli adjust_colors : -100<=_brightness<=100,-100<=_contrast<=100,-100<=_gamma<=100,-100<=_hue_shift<=100,-100<=_saturation<=100,_value_min,_value_max
+#@cli : Perform a global adjustment of colors on selected images.
+#@cli : Range of correct image values are considered to be in [value_min,value_max] (e.g. [0,255]).
+#@cli : If 'value_min==value_max==0', value range is estimated from min/max values of selected images.
+#@cli : Processed images have pixel values constrained in [value_min,value_max].
+#@cli : Default values: 'brightness=0', 'contrast=0', 'gamma=0', 'hue_shift=0', 'saturation=0', 'value_min=value_max=0'.
+#@cli : $ image.jpg +adjust_colors 0,30,0,0,30
+adjust_colors : check "${1=0}>=-100 && $1<=100 && ${2=0}>=-100 && $2<=100 && ${3=0}>=-100 && $3<=100 &&
+${4=0}>=-100 && $4<=100 && ${5=0}>=-100 && $5<=100" skip ${6=0},${7=0}
+e[^-1] "Adjust colors of image$?, with brightness $1, contrast $2, gamma $3, hue shift $4, saturation $5 and
+value range [$6,$7]."
+foreach { split_opacity l[0] {
+range:="$6==$7 && $6==0?[im,iM]:[min($6,$7),max($6,$7)]"
+m:=arg(1,$range) M:=arg(2,$range) fact:=255/max(1e-5,$M-$m)
+- $m * $fact
+if $4" || "$5
+to_rgb[0] rgb2hsv[0]
+sh[0] 0 +. {$4*1.8} rm.
+sh[0] 1 +. {($5%)^(1+($5>0))} c. 0,1 rm.
+hsv2rgb[0]
+fi
+if $3
+/[0] 255 ^[0] {10^-($3%)} *[0] 255
+fi
+if $2
+-[0] 128 *[0] {exp($2/64)} +[0] 128
+fi
++[0] {$1*2}
+/[0] $fact +[0] $m c[0] $range
+a c
+} a c }
+#@cli ac : eq. to 'apply_channels'.
+ac :
+_gmic_s="$?" v + _apply_channels $"*"
+#@cli apply_channels : "command",color_channels,_value_action={ 0=none | 1=cut | 2=normalize }
+#@cli : Apply specified command on the chosen color channel(s) of each selected images.
+#@cli : (eq. to 'ac').\n
+#@cli : Argument 'color_channels' refers to a colorspace, and can be basically one of
+#@cli : { all | rgba | [s]rgb | ryb | lrgb | ycbcr | lab | lch | hsv | hsi | hsl | cmy | cmyk | yiq }.
+#@cli : You can also make the processing focus on a few particular channels of this colorspace,
+#@cli : by setting 'color_channels' as 'colorspace_channel' (e.g. 'hsv_h' for the hue).
+#@cli : All channel values are considered to be provided in the [0,255] range.
+#@cli : Default value: 'value_action=0'.
+#@cli : $ image.jpg +apply_channels "equalize blur 2",ycbcr_cbcr
+apply_channels :
+_gmic_s="$?" v + _$0 $"*"
+_apply_channels : check "isint(${3=0}) && $3>=0 && $3<=2"
+channels=${"_ac_list \"$2\""}
+e[^-1] "Apply command '$1' on channels '"$channels"' of image"$_gmic_s"."
+('$/') id:="h=0;for(k=0,k0,0<=_dithering<=1,_method={ 0=median-cut | 1=k-means }
+#@cli : Index selected vector-valued images by adapted colormaps.
+#@cli : Default values: 'dithering=0' and 'method=1'.
+#@cli : $ image.jpg +autoindex[0] 4 +autoindex[0] 8 +autoindex[0] 16
+autoindex : check "isint($1) && $1>0 && ${2=0}>=0" skip ${3=1}
+e[^-1] "Index colors in images$? by adapted colormap with $1 entries, dithering level $2 and "${arg0\ !$3,k-means,median-cut}" method."
+foreach {
+if w>h if w>256 +r2dx 256 else [0] fi
+else if h>256 +r2dy 256 else [0] fi
+fi
+colormap[1] $1,$3,0
+index[0] [1],$2,1 rm[1]
+}
+#@cli bayer2rgb : _GM_smoothness,_RB_smoothness1,_RB_smoothness2
+#@cli : Transform selected RGB-Bayer sampled images to color images.
+#@cli : Default values: 'GM_smoothness=RB_smoothness=1' and 'RB_smoothness2=0.5'.
+#@cli : $ image.jpg rgb2bayer 0 +bayer2rgb 1,1,0.5
+bayer2rgb : skip ${1=1},${2=1},${3=0.5}
+e[^-1] "Transform RGB-Bayer image$? to color images, with smoothness ($1,$2,$3)."
+channels 0
+foreach {
+expand_x {"2 + 4*$1"},0 expand_y {"2 + 4*$1"},0
+(-1,1;1,-1) r. ..,..,1,1,0,2
++*.. .
+(0.25,0.5,0.25) convolve.. . transpose. convolve.. . rm.
+b. $1
+*.. .
+-[-3,-2]
+(1,-1) r. ..,..,1,1,0,2
+*. ...
+(0.25,0.5,0.25) convolve.. . transpose. convolve.. . rm.
+blur_y. $2 blur_x. $3
+(1;-1) r. ..,..,1,1,0,2
+*. [-4]
+(0.25,0.5,0.25) convolve.. . transpose. convolve.. . rm.
+blur_x. $2 blur_y. $3
++[-2,-1] /. 2
+(2,0;0,-2) r. ..,..,1,1,0,2
+*. ..
+-[-4,-1]
+a[-3--1] c
+mix_rgb. 1,-1,2,1,1,0,1,-1,-2
+shrink_x {"2 + 4*$1"},0 shrink_y {"2 + 4*$1"},0
+c 0,255
+}
+#@cli clut : "clut_name",_resolution>0,_cut_and_round={ 0=no | 1=yes }
+#@cli : Insert one of the 1105 pre-defined CLUTs at the end of the image list.\n
+#@cli : 'clut_name' can be { 12_years_a_slave | 1917 | 2-strip-process | 60s | 60s_faded | 60s_faded_alt | 7drk_21 | action_magenta_01 | action_red_01 | ad_astra | adventure_1453 | agfa_apx_100 | agfa_apx_25 | agfa_precisa_100 | agfa_ultra_color_100 | agfa_vista_200 | agressive_highligjtes_recovery_5 | aladdin | alberto_street | alien_green | ampio | amstragram | amstragram+ | analog_film_1 | analogfx_anno_1870_color | analogfx_old_style_i | analogfx_old_style_ii | analogfx_old_style_iii | analogfx_sepia_color | analogfx_soft_sepia_i | analogfx_soft_sepia_ii | anime | ant-man | apocalypse_this_very_moment | aqua | aqua_and_orange_dark | aquaman | arabica_12 | asistas | atomic_pink | atusa | autumn | ava_614 | avalanche | avengers_endgame | azrael_93 | baby_driver | bad_boys_for_life | basuco | bboyz_2 | bc_darkum | beach_aqua_orange | beach_faded_analog | beati | beauty_and_the_beast | berlin_sky | bisogno | black_and_white | black_panther | black_star | black_white_01 | black_white_02 | black_white_03 | black_white_04 | black_white_05 | black_white_06 | blade_runner | bleach_bypass | bleachbypass_1 | bleachbypass_2 | bleachbypass_3 | bleachbypass_4 | bleech_bypass_green | bleech_bypass_yellow_01 | blue_cold_fade | blue_dark | blue_house | blue_ice | blue_mono | blue_shadows_01 | bluearchitecture | bluehour | blues | bob_ford | bohemian_rhapsody | bombshell | bourbon_64 | boyado | bright_green_01 | bright_teal_orange | bright_warm | brightgreen | brown_mobster | brownbm | brownish | bw_1 | bw_10 | bw_2 | bw_3 | bw_4 | bw_5 | bw_6 | bw_7 | bw_8 | bw_9 | bw_but_yellow | byers_11 | calidum | candlelight | captain_marvel | caribe | chemical_168 | chrome_01 | cineblue | cinebm_4k | cinema | cinema_2 | cinema_3 | cinema_4 | cinema_5 | cinema_noir | cinematic-1 | cinematic-10 | cinematic-2 | cinematic-3 | cinematic-4 | cinematic-5 | cinematic-6 | cinematic-7 | cinematic-8 | cinematic-9 | cinematic_01 | cinematic_02 | cinematic_03 | cinematic_for_flog | cinematic_forest | cinematic_lady_bird | cinematic_mexico | city | city_7 | city_dust | city_of_god | classic_films_01 | classic_films_02 | classic_films_03 | classic_films_04 | classic_films_05 | classic_teal_and_orange | clayton_33 | clear_teal_fade | clouseau_54 | cobi_3 | coffee_44 | cold_clear_blue | cold_clear_blue_1 | cold_ice | cold_simplicity_2 | coldchrome | color_rich | colore | colorful_0209 | colornegative | conflict_01 | contrail_35 | contrast_with_highlights_protection | contrasty_afternoon | contrasty_green | convold | cosa | creed_2 | crispautumn | crispromance | crispwarm | crispwinter | cross_process_cp_130 | cross_process_cp_14 | cross_process_cp_15 | cross_process_cp_16 | cross_process_cp_18 | cross_process_cp_3 | cross_process_cp_4 | cross_process_cp_6 | crushin | cubicle_99 | culor | d_o_1 | dark_blues_in_sunlight | dark_green_02 | dark_green_1 | dark_man_x | dark_orange_teal | dark_place_01 | darkandsomber | darkness | date_39 | day_4nite | day_for_night | day_to_night_kings_blue | deep | deep_blue | deep_dark_warm | deep_high_contrast | deep_teal_fade | deep_warm_fade | deepskintones_2 | deepskintones_3 | delicatessen | denoiser_simple_40 | desert_gold_37 | dimension | dimmer | directions_23 | django_25 | doctor_strange | domingo_145 | dream_1 | dream_85 | drop_green_tint_14 | dropblues | dunkirk | duotone_blue_red | earth_tone_boost | edgyember | elegance_38 | enchanted | ensaya | eterna_for_flog | expired_69 | expired_fade | expired_polaroid | extreme | fade | fade_to_green | faded | faded_47 | faded_alt | faded_analog | faded_extreme | faded_green | faded_pink-ish | faded_print | faded_retro_01 | faded_retro_02 | faded_vivid | fadedlook | fallcolors | falua | farkling | fatos | faux_infrared | faux_infrared_bw_1 | faux_infrared_color_p_2 | faux_infrared_color_p_3 | faux_infrared_color_r_0a | faux_infrared_color_r_0b | faux_infrared_color_yp_1 | fezzle | fgcinebasic | fgcinebright | fgcinecold | fgcinedrama | fgcinetealorange_1 | fgcinetealorange_2 | fgcinevibrant | fgcinewarm | fight_club | film_0987 | film_9879 | film_gb-19 | film_high_contrast | film_print_01 | film_print_02 | filmic | filo | flat_30 | flat_blue_moon | flavin | foggynight | folger_50 | ford_v_ferrari | foresta | formula_b | french_comedy | frosted | frostedbeachpicnic | fuji_160c | fuji_160c_+ | fuji_160c_++ | fuji_160c_- | fuji_3510_constlclip | fuji_3510_constlmap | fuji_3510_cuspclip | fuji_3513_constlclip | fuji_3513_constlmap | fuji_3513_cuspclip | fuji_400h | fuji_400h_+ | fuji_400h_++ | fuji_400h_- | fuji_800z | fuji_800z_+ | fuji_800z_++ | fuji_800z_- | fuji_astia_100_generic | fuji_astia_100f | fuji_fp-100c | fuji_fp-100c_+ | fuji_fp-100c_++ | fuji_fp-100c_+++ | fuji_fp-100c_++_alt | fuji_fp-100c_- | fuji_fp-100c_-- | fuji_fp-100c_alt | fuji_fp-100c_cool | fuji_fp-100c_cool_+ | fuji_fp-100c_cool_++ | fuji_fp-100c_cool_- | fuji_fp-100c_cool_-- | fuji_fp-100c_negative | fuji_fp-100c_negative_+ | fuji_fp-100c_negative_++ | fuji_fp-100c_negative_+++ | fuji_fp-100c_negative_++_alt | fuji_fp-100c_negative_- | fuji_fp-100c_negative_-- | fuji_fp-3000b | fuji_fp-3000b_+ | fuji_fp-3000b_++ | fuji_fp-3000b_+++ | fuji_fp-3000b_- | fuji_fp-3000b_-- | fuji_fp-3000b_hc | fuji_fp-3000b_negative | fuji_fp-3000b_negative_+ | fuji_fp-3000b_negative_++ | fuji_fp-3000b_negative_+++ | fuji_fp-3000b_negative_- | fuji_fp-3000b_negative_-- | fuji_fp-3000b_negative_early | fuji_fp_100c | fuji_hdr | fuji_neopan_1600 | fuji_neopan_1600_+ | fuji_neopan_1600_++ | fuji_neopan_1600_- | fuji_neopan_acros_100 | fuji_provia_100_generic | fuji_provia_100f | fuji_provia_400f | fuji_provia_400x | fuji_sensia_100 | fuji_superia_100 | fuji_superia_100_+ | fuji_superia_100_++ | fuji_superia_100_- | fuji_superia_1600 | fuji_superia_1600_+ | fuji_superia_1600_++ | fuji_superia_1600_- | fuji_superia_200 | fuji_superia_200_xpro | fuji_superia_400 | fuji_superia_400_+ | fuji_superia_400_++ | fuji_superia_400_- | fuji_superia_800 | fuji_superia_800_+ | fuji_superia_800_++ | fuji_superia_800_- | fuji_superia_hg_1600 | fuji_superia_reala_100 | fuji_superia_x-tra_800 | fuji_velvia_100_generic | fuji_velvia_50 | fuji_xtrans_iii_acros | fuji_xtrans_iii_acros+g | fuji_xtrans_iii_acros+r | fuji_xtrans_iii_acros+ye | fuji_xtrans_iii_astia | fuji_xtrans_iii_classic_chrome | fuji_xtrans_iii_mono | fuji_xtrans_iii_mono+g | fuji_xtrans_iii_mono+r | fuji_xtrans_iii_mono+ye | fuji_xtrans_iii_pro_neg_hi | fuji_xtrans_iii_pro_neg_std | fuji_xtrans_iii_provia | fuji_xtrans_iii_sepia | fuji_xtrans_iii_velvia | fusion_88 | futuristicbleak_1 | futuristicbleak_2 | futuristicbleak_3 | futuristicbleak_4 | going_for_a_walk | golden | golden_bright | golden_fade | golden_mono | golden_night_softner_43 | golden_sony_37 | golden_vibrant | goldengate | goldentime | goldfx_bright_spring_breeze | goldfx_bright_summer_heat | goldfx_hot_summer_heat | goldfx_perfect_sunset_01min | goldfx_perfect_sunset_05min | goldfx_perfect_sunset_10min | goldfx_spring_breeze | goldfx_summer_heat | good_morning | green_15 | green_2025 | green_action | green_afternoon | green_and_orange | green_blues | green_book | green_conflict | green_day_01 | green_day_02 | green_g_09 | green_indoor | green_light | green_mono | green_yellow | greenish_contrasty | greenish_fade | greenish_fade_1 | gremerta | greyhound | hackmanite | hallowen_dark | happyness_133 | hard_teal_orange | hardboost | harsh_day | harsh_sunset | helios | herderite | heulandite | hiddenite | highlights_protection | hilutite | hitman | hlg_1_1 | honey_light | hong_kong | horrorblue | howlite | huesio | husmes | huyan | hydracore | hyla_68 | hypersthene | hypnosis | hypressen | i_tonya | ideo | ilford_delta_100 | ilford_delta_3200 | ilford_delta_3200_+ | ilford_delta_3200_++ | ilford_delta_3200_- | ilford_delta_400 | ilford_fp_4_plus_125 | ilford_hp_5 | ilford_hp_5_+ | ilford_hp_5_++ | ilford_hp_5_- | ilford_hp_5_plus_400 | ilford_hps_800 | ilford_pan_f_plus_50 | ilford_xp_2 | inception | indoor_blue | industrial_33 | infrared_-_dust_pink | instantc | jarklin | jojo_rabbit | joker | jumanji_the_next_level | jurassic_world_fallen_kingdom | justice_league | justpeachy | jwick_21 | k_tone_vintage_kodachrome | kh_1 | kh_10 | kh_2 | kh_3 | kh_4 | kh_5 | kh_6 | kh_7 | kh_8 | kh_9 | killstreak | kingsman_the_golden_circle | knives_out | kodak_2383_constlclip | kodak_2383_constlmap | kodak_2383_cuspclip | kodak_2393_constlclip | kodak_2393_constlmap | kodak_2393_cuspclip | kodak_bw_400_cn | kodak_e-100_gx_ektachrome_100 | kodak_ektachrome_100_vs | kodak_ektachrome_100_vs_generic | kodak_ektar_100 | kodak_elite_100_xpro | kodak_elite_chrome_200 | kodak_elite_chrome_400 | kodak_elite_color_200 | kodak_elite_color_400 | kodak_elite_extracolor_100 | kodak_hie_hs_infra | kodak_kodachrome_200 | kodak_kodachrome_25 | kodak_kodachrome_64 | kodak_kodachrome_64_generic | kodak_portra_160 | kodak_portra_160_+ | kodak_portra_160_++ | kodak_portra_160_- | kodak_portra_160_nc | kodak_portra_160_nc_+ | kodak_portra_160_nc_++ | kodak_portra_160_nc_- | kodak_portra_160_vc | kodak_portra_160_vc_+ | kodak_portra_160_vc_++ | kodak_portra_160_vc_- | kodak_portra_400 | kodak_portra_400_+ | kodak_portra_400_++ | kodak_portra_400_- | kodak_portra_400_nc | kodak_portra_400_nc_+ | kodak_portra_400_nc_++ | kodak_portra_400_nc_- | kodak_portra_400_uc | kodak_portra_400_uc_+ | kodak_portra_400_uc_++ | kodak_portra_400_uc_- | kodak_portra_400_vc | kodak_portra_400_vc_+ | kodak_portra_400_vc_++ | kodak_portra_400_vc_- | kodak_portra_800 | kodak_portra_800_+ | kodak_portra_800_++ | kodak_portra_800_- | kodak_portra_800_hc | kodak_t-max_100 | kodak_t-max_3200 | kodak_t-max_400 | kodak_tmax_3200 | kodak_tmax_3200_+ | kodak_tmax_3200_++ | kodak_tmax_3200_- | kodak_tmax_3200_alt | kodak_tri-x_400 | kodak_tri-x_400_+ | kodak_tri-x_400_++ | kodak_tri-x_400_- | kodak_tri-x_400_alt | korben_214 | la_la_land | landscape_01 | landscape_02 | landscape_03 | landscape_04 | landscape_05 | landscape_1 | landscape_10 | landscape_2 | landscape_3 | landscape_4 | landscape_5 | landscape_6 | landscape_7 | landscape_8 | landscape_9 | lateafternoonwanderlust | latesunset | lavark | lc_1 | lc_10 | lc_2 | lc_3 | lc_4 | lc_5 | lc_6 | lc_7 | lc_8 | lc_9 | lenox_340 | levex | life_giving_tree | light_blown | litore | little_women | logan | lomo | lomography_redscale_100 | lomography_x-pro_slide_200 | london_nights | longbeachmorning | loro | lotta | louetta | low_contrast_blue | low_key_01 | lucky_64 | lushgreen | lushgreensummer | mad_max_fury_road | maesky | magenta_day | magenta_day_01 | magenta_dream | magenta_yellow | magentacoffee | magichour | marriage_story | matrix | mckinnon_75 | memories | mercato | metropolis | milo_5 | minimalistcaffeination | modern_film | modern_films_01 | modern_films_02 | modern_films_03 | modern_films_04 | modern_films_05 | modern_films_06 | modern_films_07 | molti | mono_tinted | monochrome | monochrome_1 | monochrome_2 | moody_1 | moody_10 | moody_2 | moody_3 | moody_4 | moody_5 | moody_6 | moody_7 | moody_8 | moody_9 | moonlight | moonlight_01 | moonlight_2 | moonrise | morning_6 | morroco_16 | mostly_blue | mother! | motus | moviz_1 | moviz_10 | moviz_11 | moviz_12 | moviz_13 | moviz_14 | moviz_15 | moviz_16 | moviz_17 | moviz_18 | moviz_19 | moviz_2 | moviz_20 | moviz_21 | moviz_22 | moviz_23 | moviz_24 | moviz_25 | moviz_26 | moviz_27 | moviz_28 | moviz_29 | moviz_3 | moviz_30 | moviz_31 | moviz_32 | moviz_33 | moviz_34 | moviz_35 | moviz_36 | moviz_37 | moviz_38 | moviz_39 | moviz_4 | moviz_40 | moviz_41 | moviz_42 | moviz_43 | moviz_44 | moviz_45 | moviz_46 | moviz_47 | moviz_48 | moviz_5 | moviz_6 | moviz_7 | moviz_8 | moviz_9 | mucca | mute_shift | muted_01 | muted_fade | mysticpurplesunset | nah | natural_vivid | naturalboost | nemesis | neon_770 | neutral_pump | neutral_teal_orange | neutral_warm_fade | newspaper | night_01 | night_blade_4 | night_king_141 | night_spy | nightfromday | nightlife | nigrum | no_time_to_die | nostalgiahoney | nostalgic | nw-1 | nw-10 | nw-2 | nw-3 | nw-4 | nw-5 | nw-6 | nw-7 | nw-8 | nw-9 | old_west | once_upon_a_time | once_upon_a_time_in_hollywood | onda | only_red | only_red_and_blue | operation_yellow | orange_dark_4 | orange_dark_7 | orange_dark_look | orange_tone | orange_underexposed | orangeandblue | oranges | padre | paladin | paladin_1875 | parasite | partia | pasadena_21 | passing_by | perso | picola | pink_fade | pirates_of_the_caribbean | pitaya_15 | pmcinematic_01 | pmcinematic_02 | pmcinematic_03 | pmcinematic_04 | pmcinematic_05 | pmcinematic_06 | pmcinematic_07 | pmnight_01 | pmnight_02 | pmnight_03 | pmnight_04 | pmnight_05 | polaroid_664 | polaroid_665 | polaroid_665_+ | polaroid_665_++ | polaroid_665_- | polaroid_665_-- | polaroid_665_negative | polaroid_665_negative_+ | polaroid_665_negative_- | polaroid_665_negative_hc | polaroid_667 | polaroid_669 | polaroid_669_+ | polaroid_669_++ | polaroid_669_+++ | polaroid_669_- | polaroid_669_-- | polaroid_669_cold | polaroid_669_cold_+ | polaroid_669_cold_- | polaroid_669_cold_-- | polaroid_672 | polaroid_690 | polaroid_690_+ | polaroid_690_++ | polaroid_690_- | polaroid_690_-- | polaroid_690_cold | polaroid_690_cold_+ | polaroid_690_cold_++ | polaroid_690_cold_- | polaroid_690_cold_-- | polaroid_690_warm | polaroid_690_warm_+ | polaroid_690_warm_++ | polaroid_690_warm_- | polaroid_690_warm_-- | polaroid_polachrome | polaroid_px-100uv+_cold | polaroid_px-100uv+_cold_+ | polaroid_px-100uv+_cold_++ | polaroid_px-100uv+_cold_+++ | polaroid_px-100uv+_cold_- | polaroid_px-100uv+_cold_-- | polaroid_px-100uv+_warm | polaroid_px-100uv+_warm_+ | polaroid_px-100uv+_warm_++ | polaroid_px-100uv+_warm_+++ | polaroid_px-100uv+_warm_- | polaroid_px-100uv+_warm_-- | polaroid_px-680 | polaroid_px-680_+ | polaroid_px-680_++ | polaroid_px-680_- | polaroid_px-680_-- | polaroid_px-680_cold | polaroid_px-680_cold_+ | polaroid_px-680_cold_++ | polaroid_px-680_cold_++_alt | polaroid_px-680_cold_- | polaroid_px-680_cold_-- | polaroid_px-680_warm | polaroid_px-680_warm_+ | polaroid_px-680_warm_++ | polaroid_px-680_warm_- | polaroid_px-680_warm_-- | polaroid_px-70 | polaroid_px-70_+ | polaroid_px-70_++ | polaroid_px-70_+++ | polaroid_px-70_- | polaroid_px-70_-- | polaroid_px-70_cold | polaroid_px-70_cold_+ | polaroid_px-70_cold_++ | polaroid_px-70_cold_- | polaroid_px-70_cold_-- | polaroid_px-70_warm | polaroid_px-70_warm_+ | polaroid_px-70_warm_++ | polaroid_px-70_warm_- | polaroid_px-70_warm_-- | polaroid_time_zero_expired | polaroid_time_zero_expired_+ | polaroid_time_zero_expired_++ | polaroid_time_zero_expired_- | polaroid_time_zero_expired_-- | polaroid_time_zero_expired_--- | polaroid_time_zero_expired_cold | polaroid_time_zero_expired_cold_- | polaroid_time_zero_expired_cold_-- | polaroid_time_zero_expired_cold_--- | portrait_1 | portrait_10 | portrait_2 | portrait_3 | portrait_4 | portrait_5 | portrait_6 | portrait_7 | portrait_8 | portrait_9 | progressen | protect_highlights_01 | prussian_blue | pseudogrey | purple | purple_2 | randas | red_afternoon_01 | red_day_01 | red_dream_01 | redblueyellow | reds | reds_oranges_yellows | reeve_38 | remy_24 | rest_33 | retro | retro_brown_01 | retro_magenta_01 | retro_summer_3 | retro_yellow_01 | rocketman | rollei_ir_400 | rollei_ortho_25 | rollei_retro_100_tonal | rollei_retro_80s | rotate_muted | rotate_vibrant | rotated | rotated_crush | satid | saturated_blue | saving_private_damon | scala | science_fiction | scrittle | sea | seges | selor | sensum | separation | serenity | seringe_4 | serpent | seventies_magazine | sevsuz | shade_kings_ink | shadow_king_39 | shine | sicario | sino | skin_tones | smart_contrast | smokey | smooth_clear | smooth_cromeish | smooth_fade | smooth_green_orange | smooth_sailing | smooth_teal_orange | soft_fade | softblackandwhite | softwarming | solarized_color | solarized_color_2 | soldi | spider-man_far_from_home | spotlight | springmorning | sprocket_231 | spy_29 | star_wars_the_rise_of_skywalker | strano | street | stringa | studio_skin_tone_shaper | subtle_blue | subtle_green | subtle_yellow | sully | summer | summer_alt | sunlightlove | sunny | sunny_alt | sunny_rich | sunny_warm | sunset_aqua_orange | sunset_intense_violet_blue | sunset_violet_mood | super_warm | super_warm_rich | sutro_fx | sweet_bubblegum | sweet_gelatto | taiga | tarraco | teal_fade | teal_moonlight | tealmagentagold | tealorange | tealorange_1 | tealorange_2 | tealorange_3 | technicalfx_backlight_filter | teigen_28 | tenet | tensiongreen_1 | tensiongreen_2 | tensiongreen_3 | tensiongreen_4 | terra_4 | the_dark_knight | the_darkest_hour | the_gentelmen | the_grand_budapest_hotel | the_hurt_locker | the_irishman | the_lighthouse | the_lobster | the_martian | the_matrices | the_revenant | the_shape_of_water | the_social_network | the_two_popes | the_way_back | thor_ragnarok | thriller_2 | tirare | toastedgarden | top_gun_maverick | trent_18 | true_colors_8 | turkiest_42 | tutto | tweed_71 | ultra_water | uncut_gems | undeniable | undeniable_2 | underwater | unknown | upglow | urban_01 | urban_02 | urban_03 | urban_04 | urban_05 | urban_cowboy | uzbek_bukhara | uzbek_marriage | uzbek_samarcande | valize | valsky | velvetia | venom | very_warm_greenish | vfb_21 | vibrant | vibrant_alien | vibrant_contrast | vibrant_cromeish | victory | vintage | vintage_01 | vintage_02 | vintage_03 | vintage_04 | vintage_05 | vintage_163 | vintage_alt | vintage_brighter | vintage_chrome | vintage_mob | vintage_warmth_1 | violet_taste | vireo_37 | vita | vubes | war_for_the_planet_of_the_apes | warm | warm_dark_contrasty | warm_fade | warm_fade_1 | warm_highlight | warm_neutral | warm_sunset_red | warm_teal | warm_vintage | warm_yellow | wavefire | waves | well_see | western | westernlut_2 | whiter_whites | winterlighthouse | wipe | wolf_of_wall_street | wonder_woman | wooden_gold_20 | x-men_dark_phoenix | yellow_55b | yellow_film_01 | yellowstone | you_can_do_it | zed_32 | zeke_39 | zilverfx_bw_solarization | zilverfx_infrared | zilverfx_vintage_bw | zombieland_double_tap }
+#@cli : Default values: 'resolution=33' and 'cut_and_round=1'.
+#@cli : $ clut summer clut alien_green,17 clut orange_dark4,48
++clut : check "isnum(${2=33}) && $2>0 && isbool(${3=1})"
+strclut "$1" name=${} l[] {
+e[^-1] "Input CLUT '"$name"' with resolution $2."
+path_clut=${-path_cache}
+if isfile(['{/${path_clut}clut_$name.cimgz}']) i ${path_clut}clut_$name.cimgz fi
+if $!"!=1 || w<$2 || h<$2 || d<$2"
+rm input_cached gmic_cluts.gmz k[${"nmd 1,"$name}]
+if $!!=1
+rm i https://gmic.eu/gmic_cluts.gmz o ${path_clut}gmic_cluts.gmz
+repeat $! { if ['{$>,n}']==['$name'] k[$>] break fi }
+if $!!=1
+error[0--5] "Command '$0': Unknown CLUT name '"$name"'."
+fi
+fi
+decompress_clut $2,$2,$2
+if $3 round c 0,255 to_rgb fi
+o. ${path_clut}clut_$name.cimgz
+elif "w>$2 || h>$2 || d>$2" r $2,$2,$2,3,2
+fi
+k. => $name
+}
+#@cli cmy2rgb
+#@cli : Convert color representation of selected images from CMY to RGB.
+cmy2rgb :
+e[^-1] "Convert color representation of image$? from CMY to RGB."
+rgb2cmy
+#@cli cmyk2rgb
+#@cli : Convert color representation of selected images from CMYK to RGB.
+cmyk2rgb :
+e[^-1] "Convert color representation of image$? from CMYK to RGB."
+foreach {
+s c +/. -255 +. 1 *[0-2] . rm. +[0-2] . rm.
+a c cmy2rgb
+}
+#@cli colorblind : type={ 0=protanopia | 1=protanomaly | 2=deuteranopia | 3=deuteranomaly | 4=tritanopia | 5=tritanomaly | 6=achromatopsia | 7=achromatomaly }
+#@cli : Simulate color blindness vision.
+#@cli : Simulation method of Vienot, Brettel & Mollon 1999, "Digital video colourmaps for checking the legibility of displays by dichromats".
+#@cli : The dichromacy matrices of the paper were adapted to sRGB (RGB->XYZ).
+#@cli : Anomalous trichromacy simulated via linear interpolation with the identity and a factor of 0.6.
+#@cli : $ image.jpg +colorblind 0
+colorblind : check "isint($1) && $1>=0 && $1<=7"
+s0="protanopia" s1="protanomaly" s2="deuteranopia" s3="deuteranomaly" s4="tritanopia"
+s5="tritanomaly" s6="achromatopsia" s7="achromatomaly"
+e[^-1] "Simulate color blindness of type '"${s$1}"' on image$?."
+type0=(0.10889,0.89111,0;0.10889,0.89111,0;0.00447,-0.00447,1.0)
+type1=(0.46533,0.53467,0;0.06533,0.93467,0;0.00268,-0.00268,1)
+type2=(0.29031,0.70969,0;0.29031,0.70969,0;-0.02197,0.02197,1)
+type3=(0.57418,0.42582,0;0.17418,0.82582,0;-0.01318,0.01318,1)
+type4=(1,0.15236,-0.15236;0,0.86717,0.13283;0,0.86717,0.13283)
+type5=(1,0.09142,-0.09142;0,0.92030,0.07970;0,0.52030,0.47970)
+type6=(0.299,0.587,0.114;0.299,0.587,0.114;0.299,0.587,0.114)
+type7=(0.618,0.320,0.062;0.163,0.775,0.062;0.163,0.320,0.516)
+foreach { split_opacity l[0] { to_rgb srgb2rgb mix_channels ${type$1} rgb2srgb } a c }
+#@cli colormap : nb_levels>=0,_method={ 0=median-cut | 1=k-means },_sort_vectors
+#@cli : Estimate best-fitting colormap with 'nb_colors' entries, to index selected images.
+#@cli : Set 'nb_levels==0' to extract all existing colors of an image.
+#@cli : 'sort_vectors' can be { 0=unsorted | 1=by increasing norm | 2=by decreasing occurrence }.
+#@cli : Default value: 'method=1' and 'sort_vectors=1'.
+#@cli : $ image.jpg +colormap[0] 4 +colormap[0] 8 +colormap[0] 16
+#@cli : $$ https://gmic.eu/oldtutorial/_colormap
+colormap : check "isint($1) && $1>=0" skip ${2=1},${3=1}
+if $1 e[0--3] "Estimate colormap with $1 entries for image$?, by "${arg0\ !$2,k-means,median-cut}" method."
+else e[0--3] "Estimate full colormap for image$?."
+fi
+foreach {
+nm={b} is_half=${-is_half}
+if $1
+r {whd},1,1,100%,-1
++_colormap $1
+if $2
+max_diff:=(iM-im+1)/8192
+do
++index.. .
+if $is_half
+..,1,1,{1,s}
+eval "
+csum = vector(#w*s#0);
+cocc = vector(#w,0);
+repeat (w#2,k,
+ind = i[#2,k];
+repeat (s#0,c,csum[ind + c*w]+=i(#0,k,0,0,c));
+++cocc[ind];
+);
+off = 0;
+repeat (s#0,c,
+repeat (w,k,occ = cocc[k]; occ?(csum[off++]/=occ));
+);
+draw(#3,csum)"
+rm..
+else
+..,1,1,{1,s+1}
+f.. ">I[#3,i]+=[ I[#0,x],1 ]" rm..
+f. "s = i(x,0,0,s-1); s?I/s:[ I[#1,x], 0 ]"
+fi
++-.. . abs. diff:=iM/w rm.
+j.. . rm.
+while $diff>$max_diff
+fi
+if $3 index.. .,0,0 histogram.. {[w,0,w-1]} a y sort -,x rows 1
+else rm..
+fi
+else
++n. 0,255 f. "ret = vectors(); H = 0; repeat (s,p,(H*=31)+=j(0,0,0,p)); ret[0] = H%2048; ret"
+channels. 0 equalize. 2048 n. 0,2047 round. 1
+0x2048
+eval[0] ">
+begin(sizes = vector2048(); ret = vectors());
+col_s = I;
+H = i#1; indH = H + 2;
+sH = sizes[H];
+!sH || find(#indH,col_s,s#0*(sH - 1),-s#0)<0?( # Color not found
+sH>=h(#indH)?resize(#indH,s#0,max(8,2*h#indH),1,1,0);
+copy(i(#indH,0,sH),col_s);
+++sizes[H];
+);
+ret;
+end(fill(sizes,k,resize(#k + 2,s#0,sizes[k],1,1,0)))"
+a[2--1] y permute. yzcx k.
+fi
+if $3==1 +norm rv a c sort +,x channels 1,100% fi
+=> "[colormap of "$nm"]"
+}
+_colormap :
+m "__colormap : repeat s { sh[$""1] $> =.. {iM-im},$""1,0,0,$> rm. }"
+1,1,1,{s} __colormap 0
+repeat $1-1 {
+b,a:=xM,cM
+l[$b] { shift 0,0,0,-$a,2 sort +,x shift 0,0,0,$a,2 xm:=int(w/2) }
+if {$b,w>1} +z[$b] $xm,100% z[$b] 0,{$xm-1} else 1,1,1,{$b,s} fi
+rv[-2,-1] r. {w+1},1,1,100%,0
+__colormap $b __colormap {$!-2}
+}
+rm. r 1,1,1,100%,2 a x
+um __colormap
+#@cli compose_channels
+#@cli : Compose all channels of each selected image, using specified arithmetic operator (+,-,or,min,...).
+#@cli : Default value: '1=+'.
+#@cli : $ image.jpg +compose_channels and
+#@cli : $$
+compose_channels : skip ${1="+"}
+e[^-1] "Compose all channels of image$?, with operator '$1'."
+foreach {
+repeat s { sh[0] $> }
+$1[^0] r[0] 100%,100%,100%,1,-1 k[0]
+}
+#@cli deltaE : [image],_metric={ 0=deltaE_1976 | 1=deltaE_2000 },"_to_Lab_command"
+#@cli : Compute the CIE DeltaE color difference between selected images and specified [image].
+#@cli : Argument 'to_Lab_command' is a command able to convert colors of [image] into a Lab representation.
+#@cli : Default values: 'metric=1' and 'to_Lab_command="srgb2lab"'.
+#@cli : $ image.jpg +blur 2 +deltaE[0] [1],1,srgb2lab
+deltaE : check ${"is_image_arg $1"}" && isbool(${2=1})" skip "${3=srgb2lab}"
+e[^-1] "Compute the CIE DeltaE_"${"s0,s1=1976,2000 u $s$2"}" color difference between image$? and image$1, ""with to_Lab command '$3'."
+pass$1 1
+needs_to_lab:="s = ['$3']; s!=0 && s!=' '"
+if $needs_to_lab m "_deltaE_to_lab : $3" +_deltaE_to_lab. rm.. fi
+repeat $!-1 { l[$>,-1] {
+nm={0,n}
+if $needs_to_lab _deltaE_to_lab[0] fi
+if !$2 -.. . norm..
+else 100%,100%,100%,1,${-math_lib}"deltaE00(I#0,I#1)" rv[0,-1] rm. # DeltaE_2000
+fi
+=>[0] $nm
+} }
+rm. um _deltaE_to_lab
+#@cli direction2rgb
+#@cli : Compute RGB representation of selected 2D direction fields.
+#@cli : $ image.jpg luminance gradient append c blur 2 orientation +direction2rgb
+direction2rgb :
+e[^-1] "Compute RGB representation of 2D direction field$?."
+channels 0,1
+foreach {
+nm={n}
+s c complex2polar round.. 0.001
+*. {180/pi} %. 360 100%,100%,1,1,1 mv... $!
+if im!=iM n. 0,1 else f. 1 fi
+a c hsv2rgb => $nm
+}
+#@cli ditheredbw
+#@cli : Create dithered B&W version of selected images.
+#@cli : $ image.jpg +equalize ditheredbw[-1]
+ditheredbw :
+e[^-1] "Create dithered B&W version of image$?."
+foreach { split_opacity luminance[0] n[0] 0,255 (0,255) index[0] .,1,1 rm. a c }
+#@cli fc : eq. to 'fill_color'.
+fc :
+_gmic_s="$?" v + _fill_color $*
+#@cli fill_color : col1,...,colN
+#@cli : Fill selected images with specified color.
+#@cli : (eq. to 'fc').
+#@cli : $ image.jpg +fill_color 255,0,255
+#@cli : $$ https://gmic.eu/oldtutorial/_fill_color
+fill_color :
+_gmic_s="$?" v + _$0 $*
+_fill_color :
+e[0--3] "Fill image"$_gmic_s" with color (${^0})."
+foreach {
+repeat s { sh[0] $> f. {arg(1+$>,${^0})} } k[0]
+}
+#@cli gradient2rgb : _is_orientation={ 0 | 1 }
+#@cli : Compute RGB representation of 2D gradient of selected images.
+#@cli : Default value: 'is_orientation=0'.
+#@cli : $ image.jpg +gradient2rgb 0 equalize[-1]
+gradient2rgb : check "isbool(${1=0})"
+arg0 !$1,"orientation ",""
+e[^-1] "Compute RGB representation of 2D gradient "${}"of image$?."
+norm foreach {
+if $1 gradient_orientation 2 else g xy fi
+a c direction2rgb
+}
+#@cli hcy2rgb
+#@cli : Convert color representation of selected images from HCY to RGB.
+hcy2rgb :
+e[^-1] "Convert color representation of image$? from HCY to RGB."
+to_color f "
+H = (R/60)%6;
+X = G*(1 - abs(H%2 - 1));
+RGB = arg0(int(H),[G,X,0],[X,G,0],[0,G,X],[0,X,G],[X,0,G],[G,0,X]);
+m = B - 0.3*RGB[0] - 0.59*RGB[1] - 0.11*RGB[2];
+cut((RGB+=m)*=255,0,255)"
+#@cli hsi2rgb
+#@cli : Convert color representation of selected images from HSI to RGB.
+hsi2rgb :
+e[^-1] "Convert color representation of image$? from HSI to RGB."
+to_color
+f "
+H = (R/60)%6;
+S = G;
+I = B;
+Z = 1 - abs((H%2) - 1);
+C = I*S/(1 + Z);
+X = C*Z;
+m = I*(1 - S)/3;
+RGB = arg0(int(H),[C,X,0],[X,C,0],[0,C,X],[0,X,C],[X,0,C],[C,0,X]);
+(RGB+=m)*=3*255"
+#@cli hsi82rgb
+#@cli : Convert color representation of selected images from HSI8 to RGB.
+hsi82rgb :
+e[^-1] "Convert color representation of image$? from HSI8 to RGB."
+_hsx82rgb hsi2rgb
+#@cli hsl2rgb
+#@cli : Convert color representation of selected images from HSL to RGB.
+hsl2rgb :
+e[^-1] "Convert color representation of image$? from HSL to RGB."
+to_color
+f "
+H = (R/60)%6;
+S = G;
+L = B;
+C = (1 - abs(2*L - 1))*S;
+X = C*(1 - abs(H%2 - 1));
+m = L - C/2;
+RGB = arg0(int(H),[C,X,0],[X,C,0],[0,C,X],[0,X,C],[X,0,C],[C,0,X]);
+(RGB+=m)*=255"
+#@cli hsl82rgb
+#@cli : Convert color representation of selected images from HSL8 to RGB.
+hsl82rgb :
+e[^-1] "Convert color representation of image$? from HSL8 to RGB."
+_hsx82rgb hsl2rgb
+#@cli hsv2rgb
+#@cli : Convert color representation of selected images from HSV to RGB.
+#@cli : $ (0,360;0,360^0,0;1,1^1,1;1,1) resize 400,400,1,3,3 hsv2rgb
+hsv2rgb :
+e[^-1] "Convert color representation of image$? from HSV to RGB."
+to_color
+f "
+H = (R/60)%6;
+S = G;
+V = B;
+C = V*S;
+X = C*(1 - abs(H%2 - 1));
+m = V - C;
+RGB = arg0(int(H),[C,X,0],[X,C,0],[0,C,X],[0,X,C],[X,0,C],[C,0,X]);
+(RGB+=m)*=255"
+#@cli hsv82rgb
+#@cli : Convert color representation of selected images from HSV8 to RGB.
+hsv82rgb :
+e[^-1] "Convert color representation of image$? from HSV8 to RGB."
+_hsx82rgb hsv2rgb
+_hsx82rgb :
+repeat $! {
+sh[$>] 0 /. 0.708333 rm.
+sh[$>] 1,2 /. 255 rm.
+}
+#@cli int2rgb
+#@cli : Convert color representation of selected images from INT24 to RGB.
+int2rgb :
+e[^-1] "Convert color representation of image$? from INT24 scalars to RGB."
+round foreach { +>> 8 &[1] 255 +&[0] 255 >>[0] 16 a c }
+#@cli ipremula
+#@cli : Convert selected images with premultiplied alpha colors to normal colors.
+#@cli : See also: ''premula''.
+ipremula :
+e[^-1] "Convert image$? with premultiplied alpha colors to normal colors."
+to_a foreach { sh. 100% max. 1e-8 sh.. 0,{s#-2-2} /. .. rm[-2,-1] }
+#@cli jzazbz2rgb : illuminant={ 0=D50 | 1=D65 | 2=E } : (no arg)
+#@cli : Convert color representation of selected images from RGB to Jzazbz.
+#@cli : Default value: 'illuminant=2'.
+jzazbz2rgb : skip "${1=,}"
+l[] { if isnum("$1") illu:="$1>1?2:$1>0?1:0" else if ["'$1'"]!=',' noarg fi illu=2 fi onfail noarg illu=2 }
+e[^-1] "Convert color representation of image$? from Jzazbz to RGB, using the "${arg0\ $illu,D50,D65,E}" illuminant."
+jzazbz2xyz xyz2rgb $illu
+#@cli jzazbz2xyz
+#@cli : Convert color representation of selected images from RGB to XYZ.
+jzazbz2xyz :
+e[^-1] "Convert color representation of image$? from Jzazbz to XYZ."
+foreach { split_opacity
+f[0] ${-_jzazbz_const}"
+tmp = i0 + Jzazbz_d0;
+Iz = tmp/(1 + Jzazbz_d - Jzazbz_d*tmp);
+azz = i1;
+bzz = i2;
+Lp = Iz + 0.138605043271539*azz + 0.0580473161561189*bzz;
+Mp = Iz - 0.138605043271539*azz - 0.0580473161561189*bzz;
+Sp = Iz - 0.0960192420263189*azz - 0.811891896056039*bzz;
+tmp = Lp^(1/Jzazbz_p);
+L = peakLum*((Jzazbz_c1 - tmp)/(Jzazbz_c3*tmp-Jzazbz_c2))^(1/Jzazbz_n);
+tmp = Mp^(1/Jzazbz_p);
+M = peakLum*((Jzazbz_c1 - tmp)/(Jzazbz_c3*tmp-Jzazbz_c2))^(1/Jzazbz_n);
+tmp = Sp^(1/Jzazbz_p);
+S = peakLum*((Jzazbz_c1 - tmp)/(Jzazbz_c3*tmp-Jzazbz_c2))^(1/Jzazbz_n);
+Xp = 1.92422643578761*L - 1.00479231259537*M + 0.037651404030618*S;
+Yp = 0.350316762094999*L + 0.726481193931655*M - 0.065384422948085*S;
+Zp = -0.0909828109828476*L - 0.312728290523074*M + 1.52276656130526*S;
+X = (Xp + (Jzazbz_b - 1)*Zp)/Jzazbz_b;
+Y = (Yp + (Jzazbz_g - 1)*X)/Jzazbz_g;
+Z = Zp;
+[ X,Y,Z ]/255"
+a c }
+_jzazbz_const :
+u "const Jzazbz_b = 1.15;
+const Jzazbz_g = 0.66;
+const Jzazbz_c1 = 3424/4096;
+const Jzazbz_c2 = 2413/128;
+const Jzazbz_c3 = 2392/128;
+const Jzazbz_n = 2610/16384;
+const Jzazbz_p = 1.7*2523/32;
+const Jzazbz_d = -0.56;
+const Jzazbz_d0 = 1.6295499532821566e-11;
+const peakLum = 10000;"
+#@cli lab2lch
+#@cli : Convert color representation of selected images from Lab to Lch.
+lab2lch :
+e[^-1] "Convert color representation of image$? from Lab to Lch."
+foreach { to_color s c complex2polar[1,2] a c }
+#@cli lab2rgb : illuminant={ 0=D50 | 1=D65 | 2=E } : (no arg)
+#@cli : Convert color representation of selected images from Lab to RGB.
+#@cli : Default value: 'illuminant=2'.
+#@cli : $ (50,50;50,50^-3,3;-3,3^-3,-3;3,3) resize 400,400,1,3,3 lab2rgb
+lab2rgb : skip "${1=,}"
+l[] { if isnum("$1") illu:="$1>1?2:$1>0?1:0" else if ["'$1'"]!=',' noarg fi illu=2 fi onfail noarg illu=2 }
+e[^-1] "Convert color representation of image$? from Lab to RGB, using the "${arg0\ $illu,D50,D65,E}" illuminant."
+lab2xyz $illu xyz2rgb $illu
+#@cli lab2srgb : illuminant={ 0=D50 | 1=D65 | 2=E } : (no arg)
+#@cli : Convert color representation of selected images from Lab to sRGB.
+#@cli : Default value: 'illuminant=2'.
+#@cli : $ (50,50;50,50^-3,3;-3,3^-3,-3;3,3) resize 400,400,1,3,3 lab2rgb
+lab2srgb : skip "${1=,}"
+l[] { if isnum("$1") illu:="$1>1?2:$1>0?1:0" else if ["'$1'"]!=',' noarg fi illu=2 fi onfail noarg illu=2 }
+e[^-1] "Convert color representation of image$? from Lab to sRGB, using the "${arg0\ $illu,D50,D65,E}" illuminant."
+lab2rgb $illu rgb2srgb
+#@cli lab82srgb : illuminant={ 0=D50 | 1=D65 | 2=E } : (no arg)
+#@cli : Convert color representation of selected images from Lab8 to sRGB.
+#@cli : Default value: 'illuminant=2'.
+#@cli : $ (50,50;50,50^-3,3;-3,3^-3,-3;3,3) resize 400,400,1,3,3 lab2rgb
+lab82srgb : skip "${1=,}"
+l[] { if isnum("$1") illu:="$1>1?2:$1>0?1:0" else if ["'$1'"]!=',' noarg fi illu=2 fi onfail noarg illu=2 }
+e[^-1] "Convert color representation of image$? from Lab8 to sRGB, using the "${arg0\ $illu,D50,D65,E}" illuminant."
+lab82rgb $illu rgb2srgb
+#@cli lab2xyz : illuminant={ 0=D50 | 1=D65 | 2=E } : (no arg)
+#@cli : Convert color representation of selected images from Lab to XYZ.
+#@cli : Default value: 'illuminant=2'.
+lab2xyz : skip "${1=,}"
+l[] { if isnum("$1") illu:="$1>1?2:$1>0?1:0" else if ["'$1'"]!=',' noarg fi illu=2 fi onfail noarg illu=2 }
+e[^-1] "Convert color representation of image$? from Lab to XYZ, using the "${arg0\ $illu,D50,D65,E}" illuminant."
+to_color
+f "
+begin(
+const epsilon = 216/24389;
+const kappa = 24389/27;
+D65 = [ 0.4124564, 0.3575761, 0.1804375,
+0.2126729, 0.7151522, 0.0721750,
+0.0193339, 0.1191920, 0.9503041 ];
+D50 = [ 0.43603516, 0.38511658, 0.14305115,
+0.22248840, 0.71690369, 0.06060791,
+0.01391602, 0.09706116, 0.71392822 ];
+E = [ 0.488718,0.3106803,0.2006017,
+0.1762044,0.8129847,0.0108109,
+0,0.0102048,0.9897952 ];
+white = ("$illu"==2?E:"$illu"==1?D65:D50)*[ 1,1,1 ];
+);
+fy = (i0 + 16)/116;
+fz = fy - i2/200;
+fx = i1/500 + fy;
+fx3 = fx^3;
+fz3 = fz^3;
+XYZ = [ fx3>epsilon?fx3:(116*fx - 16)/kappa,
+i0>kappa*epsilon?((i0+16)/116)^3:i0/kappa,
+fz3>epsilon?fz3:(116*fz - 16)/kappa ];
+XYZ*=white"
+#@cli lab82rgb : illuminant={ 0=D50 | 1=D65 | 2=E } : (no arg)
+#@cli : Convert color representation of selected images from Lab8 to RGB.
+#@cli : Default value: 'illuminant=2'.
+lab82rgb : skip "${1=,}"
+l[] { if isnum("$1") illu:="$1>1?2:$1>0?1:0" else if ["'$1'"]!=',' noarg fi illu=2 fi onfail noarg illu=2 }
+e[^-1] "Convert color representation of image$? from Lab8 to RGB, using the "${arg0\ $illu,D50,D65,E}" illuminant."
+repeat $! {
+sh[$>] 0 /. 2.55 rm.
+sh[$>] 1 /. 0.85 -. 127 rm.
+sh[$>] 2 /. 0.836 -. 149 rm.
+}
+lab2rgb $illu c 0,255
+#@cli lch2lab
+#@cli : Convert color representation of selected images from Lch to Lab.
+lch2lab :
+e[^-1] "Convert color representation of image$? from Lch to Lab."
+foreach { to_color s c polar2complex[1,2] a c }
+#@cli lch2rgb : illuminant={ 0=D50 | 1=D65 | 2=E } : (no arg)
+#@cli : Convert color representation of selected images from Lch to RGB.
+#@cli : Default value: 'illuminant=2'.
+lch2rgb : skip "${1=,}"
+l[] { if isnum("$1") illu:="$1>1?2:$1>0?1:0" else if ["'$1'"]!=',' noarg fi illu=2 fi onfail noarg illu=2 }
+e[^-1] "Convert color representation of image$? from Lch to RGB, using the "${arg0\ $illu,D50,D65,E}" illuminant."
+lch2lab lab2rgb $illu
+#@cli lch82rgb : illuminant={ 0=D50 | 1=D65 | 2=E } : (no arg)
+#@cli : Convert color representation of selected images from Lch8 to RGB.
+#@cli : Default value: 'illuminant=2'.
+lch82rgb : skip "${1=,}"
+l[] { if isnum("$1") illu:="$1>1?2:$1>0?1:0" else if ["'$1'"]!=',' noarg fi illu=2 fi onfail noarg illu=2 }
+e[^-1] "Convert color representation of image$? from Lch8 to RGB, using the "${arg0\ $illu,D50,D65,E}" illuminant."
+pi,facth:=[pi,255/(2*pi)]
+repeat $! {
+sh[$>] 0 /. 2.55 rm.
+sh[$>] 1 /. 1.1086 rm.
+sh[$>] 2 /. $facth -. $pi rm.
+}
+lch2rgb $illu c 0,255
+#@cli luminance
+#@cli : Compute luminance of selected sRGB images.
+#@cli : $ image.jpg +luminance
+#@cli : $$
+luminance :
+e[^-1] "Compute luminance of image$?."
+remove_opacity srgb2rgb
+foreach {
+if s==3 sh 0 sh[0] 1 sh[0] 2 *[1] 0.22248840 *[2] 0.71690369 *[3] 0.06060791 +[1-3] rm[1]
+elif s!=1 norm n 0,255
+fi
+}
+channels 0 rgb2srgb
+#@cli lightness
+#@cli : Compute lightness of selected sRGB images.
+#@cli : $ image.jpg +lightness
+lightness :
+e[^-1] "Compute lightness of image$?."
+remove_opacity srgb2rgb
+if s==3 srgb2lab channels 0 * {255/100} elif s!=1 norm n 0,255 rgb2srgb fi
+#@cli lut_contrast : _nb_colors>1,_min_rgb_value
+#@cli : Generate a RGB colormap where consecutive colors have high contrast.
+#@cli : This function performs a specific score maximization to generate the result, so
+#@cli : it may take some time when 'nb_colors' is high.
+#@cli : Default values: 'nb_colors=256' and 'min_rgb_value=64'.
++lut_contrast : check "isint(${1=256}) && $1>=1 && isnum(${2=48})"
+e[^-1] "Generate high-contrast RGB colormap with $1 colors and min RGB value $2."
+l[] {
+64,64,64,1 eval "repeat (8,k, x = !!(k&1); y = !!(k&2); z = !!(k&4); i([x,y,z]*(w-1)) = 1)"
+N:=is
+e ""
+do
++neq. 0 distance. 1 xyzM:=[xM,yM,zM] rm.
+col:=round([$xyzM]*255/(w-1))
+if max($col)>=$2 =. 1,$xyzM N+=1 else =. -1,$xyzM fi
+e "\r [ Init ] > Colors \#"$N
+while $N<$1
+>. 0 {is},1,1,3
+eval.. ">begin(k = 0); i>0?(I[#-1,k++] = round([ x,y,z ]*255/63))"
+k.
+N0=5
+s x repeat $! {
+if {$>,I==[0,0,0]} rv[$>,0] fi
+if {$>,I==[255,255,255]} rv[$>,1] fi
+if {$>,I==[255,0,0]} rv[$>,2] fi
+if {$>,I==[0,255,0]} rv[$>,3] fi
+if {$>,I==[0,0,255]} rv[$>,4] fi
+} a x
+e ""
++srgb2lab a c
+energy_max=${-_lut_contrast.}
+nb_attempts=1000
+do
+e "\r [ Optim ] > Score = "{_$energy_max}", Attempts = "$nb_attempts" "
+. eval "
+do(
+k0 = round(u("$N0",w-1));
+k1 = round(u("$N0",w-1)),
+k0==k1);
+tmp = I[k0]; I[k0] = I[k1]; I[k1] = tmp"
+energy=${-_lut_contrast.}
+if $energy>$energy_max energy_max=$energy k. nb_attempts=1000 else rm. nb_attempts-=1 fi
+while $nb_attempts>0
+channels 0,2
+}
+_lut_contrast :
+100%,1,1,1,">
+const N = 10;
+dist = 0; sumw = 0;
+RGB0 = (I[#0,x])[3,3];
+kmin = max(x-N,0);
+kmax = min(x+N,w-1);
+for (k = kmin, k<=kmax, ++k,
+RGB = (I[#0,k])[3,3];
+w = (1 + N - abs(k-x))^1.5;
+dist+= w*norm(RGB - RGB0);
+sumw+=w;
+);
+dist/=sumw"
+u {is} rm.
+#@cli map_clut : [clut] | "clut_name"
+#@cli : Map specified RGB color LUT to selected images.
+#@cli : $ image.jpg uniform_distribution {2^6},3 mirror[-1] x +map_clut[0] [1]
+map_clut :
+e[^-1] "Map color LUT $1 on image$?."
+if !$! return fi
+to_color
+if ${"is_image_arg $1"} pass$1 0 to_rgb. else clut "$1" fi
+l:=round((w*h*d)^(1/3))
+if w*h*d!=$l^3 error "Command '$0': Specified CLUT $1 has invalid dimensions "({w},{h},{d},{s}). fi
+r. $l,$l,$l,3,-1
+repeat $!-1 { l[$>,-1] {
+nm={0,n} split_opacity[0] /[0] {256/$l}
++warp. [0],0,1,1
+rm[0] mv. 0 a[^-1] c =>[0] $nm
+} } rm.
+#@cli match_histogram : [reference_image],_nb_levels>0,_color_channels
+#@cli : Transfer histogram of the specified reference image to selected images.
+#@cli : Argument 'color channels' is the same as with command 'apply_channels'.
+#@cli : Default value: 'nb_levels=256' and 'color_channels=all'.
+#@cli : $ image.jpg 100,100,1,3,"u([256,200,100])" +match_histogram[0] [1]
+match_histogram : check ${"is_image_arg $1"}" && ${2=1024}>0" skip "${3=0}"
+channels=${"_ac_list \"$3\""}
+e[^-1] "Transfer histogram from image ["${"pass$1 -1"}"] to image$?, ""with $2 levels, for channels '"$channels"'."
+pass$1 1 sref:=s rm.
+to_colormode $sref
+if ['$channels']!='all'
+pass$1 {$sref==3?2:0}
+to_color
+ac. "+store _match_histogram_reference",$channels rm.
+ac "_match_histogram $2",$channels,1
+else
+pass$1
+store. _match_histogram_reference
+repeat $! { _match_histogram[$>] $2 }
+fi
+_match_histogram_reference=
+_match_histogram :
+$_match_histogram_reference
+repeat min(s#0,s#1) {
+sh $>
++histogram[-2,-1] $1 cumulate[-2,-1] /.. {-2,i[-1,2]} /. {i[-1,2]}
+f.. "*
+const w1 = w -1;
+val = i; X = x;
+val=1, nX = max(0,X - step); val(val - vp)?--X); # Rounding
+):(
+step = int((w1 - X)/2);
+while (X=1, nX = min(w1,X + step); val>i[#-1,nX]?(X = nX):(step = int(step/2)));
+X(vn - val)?++X); # Rounding
+);
+im#-3 + (iM#-3 - im#-3)*X/w1"
+n[-4] 0,{w-1} round[-4] map[-4] ..
+k[0,1]
+}
+rm.
+#@cli match_icp : [reference_image],_precision>0,_transformation_variable
+#@cli : Transform selected set of d-dimensional vectors to match specified set of reference vectors, using ICP (*Iterative Closest Point*) algorithm.
+#@cli : A description of ICP is available at .
+#@cli : Return the L2 alignment error.
+#@cli : Default values: 'precision=1e-2' and 'transformation_variable=(undefined)'.
+#@cli : sample lena,earth +match_icp[0] [1]
+match_icp : check ${"is_image_arg $1"}" && ${2=1e-2}>0" skip "${3=}"
+e[^-1] "Match vector set$? with reference vector set $1, using ICP with precision $2.\n"
+pass$1
+foreach[^-1] {
+w,h,d,s:=w,h,d,s
+pass. mv. 0
+if "['$3']!=0" +store. img fi
+match_pca. ..
+old_err=inf
+repeat inf {
+100%,100%,100%,4,"*
+P = I(#1);
+distmin = pmin = qmin = rmin = inf;
+repeat (d#0,r,
+repeat (h#0,q,
+repeat (w#0,p,
+dist = norm(I(#0,p,q,r) - P);
+dist Iteration "$>": Error = "{_$err}
+if !$err" || "abs($err-$old_err)<1e-3 rm. break fi
+old_err=$err
++warp[0] .,0,0 rm..
+_match_icp[-2,-1]
+mmul[-2,-1] r. $s,{h/$s},1,1,-1 permute. yzcx r. $w,$h,$d,$s,-1
+}
+k.
+if "['$3']!=0" $img rv +_match_icp $3={^} rm[0,-2,-1] fi
+u $err
+}
+rm.
+_match_icp :
+N,s:=whd,s
+permute. cxyz y.
+l.. {
+r 1,{whd},1,100%,-1 permute cyxz 1,100%,1,1,1 a x
+r 100%,{$s*$N},1,1 r {($s+1)^2},100%,1,1,0 r {$s*($s+1)},{($s+1)*$N},1,1,-1
+s y rm[$s--1:{$s+1}] a y
+}
+solve. ..
+#@cli match_pca : [reference_image],_color_channels
+#@cli : Transfer mean and covariance matrix of specified vector-valued reference image to selected images.
+#@cli : Argument 'color channels' is the same as with command 'apply_channels'.
+#@cli : Default value: 'color_channels=all'.
+#@cli : $ sample lena,earth +match_pca[0] [1]
+match_pca : check ${"is_image_arg $1"} skip "${2=all}"
+channels=${"_ac_list \"$2\""}
+e[^-1] "Transfer mean vector and covariance matrix from image ["${"pass$1 -1"}"] to image$?, ""for channels '"$channels"'."
+pass$1 1 sref:=s rm.
+if $sref<=4 to_colormode[^-1] $sref fi
+if $sref==1
+pass$1
+var_ref,avg_ref:=[iv,ia] rm.
+foreach { - {ia} * {sqrt($var_ref/max(1e-8,iv))} + $avg_ref }
+elif ['$channels']!='all'
+pass$1 {$sref==3?2:0}
+to_color
+ac. "+store _match_pca_reference",$channels rm.
+ac "_match_pca",$channels,1
+else
+pass$1
+store. _match_pca_reference
+foreach { _match_pca }
+fi
+_match_pca_reference=
+_match_pca :
+$_match_pca_reference
+f.. "*begin(
+cov_ref = [ "${"covariance_vectors[1] _avg_ref"}" ];
+cov = [ "${"covariance_vectors[0] _avg"}" ];
+avg_ref = [ "$_avg_ref" ];
+avg = [ "$_avg" ];
+eig_ref = eig(cov_ref);
+eig = eig(cov);
+lambda_ref = sqrt(eig_ref[0,s]);
+lambda = 1/sqrt(1e-6 + eig[0,s]);
+repeat(s,k,
+sks = s + k*s;
+Uref = eig_ref[sks,s];
+U = eig[sks,s];
+dot(Uref,U)<0?copy(eig[sks],U*=-1);
+);
+rot_ref = mul(transpose(eig_ref[s,s*s],s),diag(lambda_ref),s);
+rot = mul(diag(lambda),eig[s,s*s],s);
+M = mul(rot_ref,rot,s);
+);
+avg_ref + M*(I - avg)"
+rm.
+#@cli match_rgb : [target],_gamma>=0,_regularization>=0,_luminosity_constraints>=0,_rgb_resolution>=0,_is_constraints={ 0 | 1 }
+#@cli : Transfer colors from selected source images to selected reference image (given as argument).
+#@cli : 'gamma' determines the importance of color occurrences in the matching process (0=none to 1=huge).
+#@cli : 'regularization' determines the number of guided filter iterations to remove quantization effects.
+#@cli : 'luminosity_constraints' tells if luminosity constraints must be applied on non-confident matched colors.
+#@cli : 'is_constraints' tells if additional hard color constraints must be set (opens an interactive window).
+#@cli : Default values: 'gamma=0.3','regularization=8', 'luminosity_constraints=0.1', 'rgb_resolution=64' and 'is_constraints=0'.
+#@cli : $ sample pencils,wall +match_rgb[0] [1],0,0.01
+match_rgb : check "${2=0.3}>=0 && ${3=8}>=0 && ${4=0.15}>=0 && ${5=64}>=0 && isint(${6=0})"
+e[^-1] "Transfer colors of image $1 to image$?."
+sigma=1.5
+repeat $! { pass$1 0 l[$>,-1] {
+nm_source={0,b} nm_target={1,b}
+=> source,target
++_match_rgb[source,target] $2,$sigma,$5 => fsource,ftarget
+n[fsource,ftarget] 0,255
+if $6
+h0:=2*{*,v}/3 ws0={source,max(1,w*$h0/h)} wt0={target,max(1,w*$h0/h)}
+w1:=2*{*,u}/3 hs1={source,max(1,h*$w1/w)} ht1={target,max(1,h*$w1/w)}
+if abs($ws0+$wt0-$w1)$w1 r2dx[-2,-1] $w1 fi
+if h>$h0 r2dy[-2,-1] $h0 fi
+=> visu,both
+w[visu] -1,-1
+N=0 do
+w[] -1,-1,"[G'MIC] Add Color Guide (Constraint ""#"{1+$N}")"
++select[$visu] 1 if i==-1 rm. break fi
+line[$visu] {i[0]},{i[1]},{i[3]},{i[4]},1,0xF0F0F0F0,0
+line[$visu] {i[0]},{i[1]},{i[3]},{i[4]},1,0x0F0F0F0F,255
+circle[$visu] {i[0]},{i[1]},5,1,0,0,0 circle[$visu] {i[0]},{i[1]},3,1,255,0,0
+circle[$visu] {i[3]},{i[4]},5,1,0,0,0 circle[$visu] {i[3]},{i[4]},3,1,0,255,0
+s. y,2 rows[-2,-1] 0,1 a[-2,-1] x permute. xczy
++warp[$both] .,0,0,1 rm..
+*. {($5-1)/255} s. x,2
+-. .. *. -1 a[-2,-1] c
+N+=1
+while {*}
+if $N a[-$N--1] x permute. xczy => constraints fi
+rm[$visu,$both] w 0
+fi
+if $constraints
++pointcloud. 0 r. ...,...,...,3,0 +compose_channels. + a[-2,-1] c
+displacement[fsource] [ftarget],0.001,5,0,10000,1,. rm[ftarget,constraints,-1]
+else
+displacement[fsource] [ftarget],0.005 rm[ftarget]
+fi
+=>[fsource] displacement
++_match_rgb[target] 0,$sigma,{displacement,w}
+warp. [displacement],1,1,1 c. 0,100% => fconfidence
++map_clut[source] . => confidence
+[displacement],[displacement],[displacement],1,x +f. y +f. z a[-3--1] c *. {255/(w-1)} +. 1
++_match_rgb[target] 0,0,{w} *.. .
+warp[-2,-1] [displacement],1,0,1
+distance. 1 *. -1 watershed.. . rm. -. 1
+=> clut
+b[clut] $sigma%
+if $4>0
+^[fconfidence] {$4/10} *[fconfidence] -1 +[fconfidence] 1
++f[fconfidence] x +f. y +f. z a[-3--1] c *. {255/(w-1)}
+rgb2hsv[clut,-1] channels. 100%
+j[clut] .,0,0,0,2,1,[fconfidence] rm.
+hsv2rgb[clut]
+fi
++map_clut[source] [clut] => res_noregul
+if !$3
+=>[res_noregul] res
+else
+l[source,res_noregul] {
+rgb2ycbcr
++-[1] [0] repeat $3 { guided. [0],5,5 } +. [0] c. 0,255
+ycbcr2rgb
+}
+=> res
+j[res] [res_noregul],0,0,0,0,1,[confidence]
+rm[res_noregul]
+fi
+k[res]
+} }
+_match_rgb :
+l[] {
+check "${1=0}>=0 && ${2=1.5}>=0 && ${3=128}>0" gamma=$1 smoothness=$2 res=$3
+onfail noarg gamma=0 smoothness=1.5 res=128
+}
+e[^-1] "Convert image$? as 3D volumetric scalar functions for color matching, with gamma "$gamma",
+smoothness "$smoothness" and resolution "$res"."
+to_rgb
+foreach {
+b 0.3%
+r {w*h},3,1,1,-1 * {($res-1)/255}
+pointcloud 1,$res,$res,$res f 'if(i,i^$gamma,0)' b $smoothness% n 0,1
+}
+#@cli mix_rgb : a11,a12,a13,a21,a22,a23,a31,a32,a33
+#@cli : Apply 3x3 specified matrix to RGB colors of selected images.
+#@cli : Default values: 'a11=1', 'a12=a13=a21=0', 'a22=1', 'a23=a31=a32=0' and 'a33=1'.
+#@cli : $ image.jpg +mix_rgb 0,1,0,1,0,0,0,0,1
+#@cli : $$
+mix_rgb : skip ${1=1},${2=0},${3=0},${4=0},${5=1},${6=0},${7=0},${8=0},${9=1}
+e[^-1] "Apply matrix [ $1 $2 $3 ; $4 $5 $6 ; $7 $8 $9 ] to RGB colors of image$?."
+to_color repeat $! { sh[$>] 0,2 mix_channels. (${1-3};${4-6};${7-9}) rm. }
+#@cli oklab2rgb
+#@cli : Convert color representation of selected images from OKlab to RGB.
+#@cli : (see colorspace definition at: 70?(da_push(RGB); break());
+1)" rm.
+da_freeze.
+rgb2hsl. mirror. c sort. +,y mirror. c
++f. "begin(Lmax = 0);
+H = i0; S = i1; L = i2;
+u<0.5?(
+do (
+nH = (H + 30*g)%360;
+nS = cut(S + g/4,0,1);
+nL = cut(L + g/8,0,1),
+_(while) nL=0,smoothness[%]>=0,src1,src2,...,dest1,dest2,...
+#@cli : Replace pixels from/to specified colors in selected images.
+#@cli : $ image.jpg +replace_color 40,3,204,153,110,255,0,0
+replace_color : check "$1>=0 && $2>=0"
+l[] { (${3--1}) y c s c,2 col1={0,^} col2={1,^} rm }
+e[^-1] "Replace color ("$col1") by color ("$col2") in image$?, with tolerance $1 and smoothness $2."
+foreach {
+1,1,1,100%,$col1 ri[1] [0]
+if $1 -[1] [0] norm[1] <=[1] $1 else ==[1] [0] l[1] { s c & } fi
+b[1] $2
+1,1,1,{0,s},$col2 ri[2] [0] j[0] [2],0,0,0,0,1,[1] k[0]
+}
+#@cli retinex : _value_offset>0,_colorspace={ hsi | hsv | lab | lrgb | rgb | ycbcr },0<=_min_cut<=100,0<=_max_cut<=100,_sigma_low>0,_sigma_mid>0,_sigma_high>0
+#@cli : Apply multi-scale retinex algorithm on selected images to improve color consistency.
+#@cli : (as described in the page .
+#@cli : Extension of this technique to arbitrary increments for more tones, has been done by David Tschumperlé.
+to_pseudogray : check "isint(${1=5}) && $1>=0 && isint(${3=8}) && $3>0" skip ${2=1}
+e[^-1] "Convert scalar image$? to pseudo-gray color images, with steps $1."
+channels 0 srgb2rgb pseudogray $1,{2.3*$2},$3
++srgb2lab. channels. 0 *. {65535/100} round. rows. 0,2
+rv[-2,-1] permute. xcyz +. 1 a[-2,-1] y pointcloud. 0
++norm. !=. 0 distance. 1 *. -1 watershed.. . rm. -. 1
+repeat $!-1 {
+to_rgb[$>] rgb2lab[$>] channels[$>] 0 *[$>] {65535/100} round[$>] c[$>] 0,65535
+map[$>] .
+} rm.
+#@cli to_rgb
+#@cli : Force selected images to be in RGB mode.
+to_rgb :
+e[^-1] "Force image$? to be in RGB mode."
+foreach {
+if !s||s>4 error[0--5] "Command '$0': Image ["$>"] is not a G,GA,RGB or RGBA image ("{s}" channels)."
+elif s==4 channels 0,2
+elif s==2 channels 0 r 100%,100%,100%,3
+elif s==1 r 100%,100%,100%,3
+fi
+}
+#@cli to_rgba
+#@cli : Force selected images to be in RGBA mode.
+to_rgba :
+e[^-1] "Force image$? to be in RGBA mode."
+foreach {
+if !s||s>4 error[0--5] "Command '$0': Image ["$>"] is not a G,GA,RGB or RGBA image ("{s}" channels)."
+elif s==3 channels 0,3 sh. 3 f. 255 rm.
+elif s==2 r 100%,100%,100%,4,0,1,0,0,0,1
+elif s==1 r 100%,100%,100%,4 sh. 3 f. 255 rm.
+fi
+}
+#@cli to_automode
+#@cli : Force selected images to be in the most significant color mode.
+#@cli : This commands checks for useless alpha channel (all values equal to 255), as well as
+#@cli : detects grayscale images encoded as color images.
+to_automode :
+e[^-1] "Force image$? to be in most significant color mode."
+foreach {
+if s==2||s==4
+sh 100%
+if im==iM" && "im==255 rm. channels 0,{s-2} else rm. fi
+fi
+if s==3||s==4
+eval. "begin(is_gray = 1); is_gray && (i0!=i1 || i0!=i2)?(is_gray = 0);
+end(merge(is_gray,&&); set('is_gray',is_gray))"
+if $is_gray s c,-3 channels[0] 0 a c fi
+fi
+}
+#@cli xyz2jzazbz
+#@cli : Convert color representation of selected images from XYZ to RGB.
+xyz2jzazbz :
+e[^-1] "Convert color representation of image$? from XYZ to Jzazbz."
+foreach { split_opacity
+f[0] ${-_jzazbz_const}"
+X = i0*255;
+Y = i1*255;
+Z = i2*255;
+Xp = Jzazbz_b*X - (Jzazbz_b - 1)*Z;
+Yp = Jzazbz_g*Y - (Jzazbz_g - 1)*X;
+Zp = Z;
+L = 0.41478972*Xp + 0.579999*Yp + 0.0146480*Zp;
+M = -0.2015100*Xp + 1.120649*Yp + 0.0531008*Zp;
+S = -0.0166008*Xp + 0.264800*Yp + 0.6684799*Zp;
+tmp = (L/peakLum)^Jzazbz_n;
+Lp = ((Jzazbz_c1 + Jzazbz_c2*tmp)/(1 + Jzazbz_c3*tmp))^Jzazbz_p;
+tmp = (M/peakLum)^Jzazbz_n;
+Mp = ((Jzazbz_c1 + Jzazbz_c2*tmp)/(1 + Jzazbz_c3*tmp))^Jzazbz_p;
+tmp = (S/peakLum)^Jzazbz_n;
+Sp = ((Jzazbz_c1 + Jzazbz_c2*tmp)/(1 + Jzazbz_c3*tmp))^Jzazbz_p;
+Iz = 0.5*Lp + 0.5*Mp;
+az = 3.52400*Lp - 4.066708*Mp + 0.542708*Sp;
+bz = 0.199076*Lp + 1.096799*Mp - 1.295875*Sp;
+Jz = (1 + Jzazbz_d)*Iz/(1 + Jzazbz_d*Iz) - Jzazbz_d0;
+[ Jz,az,bz ]"
+a c }
+#@cli xyz2lab : illuminant={ 0=D50 | 1=D65 | 2=E } : (no arg)
+#@cli : Convert color representation of selected images from XYZ to Lab.
+#@cli : Default value: 'illuminant=2'.
+xyz2lab : skip "${1=,}"
+l[] { if isnum("$1") illu:="$1>1?2:$1>0?1:0" else if ["'$1'"]!=',' noarg fi illu=2 fi onfail noarg illu=2 }
+e[^-1] "Convert color representation of image$? from XYZ to Lab, using the "${arg0\ $illu,D50,D65,E}" illuminant."
+to_color
+f "
+begin(
+const epsilon = 216/24389;
+const kappa = 24389/27;
+lab(x) = (x>epsilon?cbrt(x):(x*kappa + 16)/116);
+D65 = [ 0.4124564, 0.3575761, 0.1804375,
+0.2126729, 0.7151522, 0.0721750,
+0.0193339, 0.1191920, 0.9503041 ];
+D50 = [ 0.43603516, 0.38511658, 0.14305115,
+0.22248840, 0.71690369, 0.06060791,
+0.01391602, 0.09706116, 0.71392822 ];
+E = [ 0.488718,0.3106803,0.2006017,
+0.1762044,0.8129847,0.0108109,
+0,0.0102048,0.9897952 ];
+white = ("$illu"==2?E:"$illu"==1?D65:D50)*[ 1,1,1 ];
+);
+xr = i0/white[0];
+yr = i1/white[1];
+zr = i2/white[2];
+fx = lab(xr);
+fy = lab(yr);
+fz = lab(zr);
+[ cut(116*fy - 16,0,100), 500*(fx - fy), 200*(fy - fz) ]"
+#@cli xyz2rgb : illuminant={ 0=D50 | 1=D65 | 2=E } : (no arg)
+#@cli : Convert color representation of selected images from XYZ to RGB.
+#@cli : Default value: 'illuminant=2'.
+xyz2rgb : skip "${1=,}"
+l[] { if isnum("$1") illu:="$1>1?2:$1>0?1:0" else if ["'$1'"]!=',' noarg fi illu=2 fi onfail noarg illu=2 }
+e[^-1] "Convert color representation of image$? from XYZ to RGB, using the "${arg0\ $illu,D50,D65,E}" illuminant."
+if $illu==2
+mix_rgb {[2.3706743,-0.9000405,-0.4706338,-0.513885,1.4253036,0.0885814,0.0052982,-0.0146949,1.0093968]*255}
+elif $illu
+mix_rgb {[3.2404542,-1.5371385,-0.4985314,-0.9692660,1.8760108,0.0415560,0.0556434,-0.2040259,1.0572252]*255}
+else
+mix_rgb {[3.134274799724,-1.617275708956,-0.490724283042,-0.978795575994,1.916161689117,0.033453331711,0.071976988401,-0.228984974402,1.405718224383]*255}
+fi
+c 0,255
+#@cli xyz82rgb : illuminant={ 0=D50 | 1=D65 | 2=E } : (no arg)
+#@cli : Convert color representation of selected images from XYZ8 to RGB.
+#@cli : Default value: 'illuminant=2'.
+xyz82rgb : skip "${1=,}"
+l[] { if isnum("$1") illu:="$1>1?2:$1>0?1:0" else if ["'$1'"]!=',' noarg fi illu=2 fi onfail noarg illu=2 }
+e[^-1] "Convert color representation of image$? from XYZ8 to RGB, using the "${arg0\ $illu,D50,D65,E}" illuminant."
+repeat $! {
+sh[$>] 0 /. 255 rm.
+sh[$>] 1 /. 255 rm.
+sh[$>] 2 /. 231.8182 rm.
+} xyz2rgb $illu
+#@cli ycbcr2rgb
+#@cli : Convert color representation of selected images from YCbCr to RGB.
+ycbcr2rgb :
+e[^-1] "Convert color representation of image$? from YCbCr to RGB."
+repeat $! {
+sh[$>] 0 -. 16 rm.
+sh[$>] 1,2 -. 128 rm.
+sh[$>] 0,2 mix_rgb. 298,0,409,298,-100,-208,298,516,0
++. 128 /. 256 c. 0,255 rm.
+}
+#@cli yiq2rgb
+#@cli : Convert color representation of selected images from YIQ to RGB.
+yiq2rgb :
+e[^-1] "Convert color representation of image$? from YIQ to RGB."
+mix_rgb 1,0.9563,0.6210,1,-0.2721,-0.6474,1,-1.1070,1.7046
+c 0,255
+#@cli yiq82rgb
+#@cli : Convert color representation of selected images from YIQ8 to RGB.
+yiq82rgb :
+e[^-1] "Convert color representation of image$? from YIQ8 to RGB."
+repeat $! {
+sh[$>] 1 /. 0.8393238012481239 -. 151.908 rm.
+sh[$>] 2 /. 0.9567690472081104 -. 133.261 rm.
+}
+mix_rgb 1,0.9563,0.6210,1,-0.2721,-0.6474,1,-1.1070,1.7046
+c 0,255
+#@cli yuv2rgb
+#@cli : Convert color representation of selected images from YUV to RGB.
+yuv2rgb :
+e[^-1] "Convert color representation of image$? from YUV to RGB."
+mix_rgb {[1,0,1.13983,1,-0.39465,-0.5806,1,2.03211,0]*255}
+c 0,255
+#@cli yuv82rgb
+#@cli : Convert selected images from YUV8 to RGB color bases.
+yuv82rgb :
+e[^-1] "Convert color representation of image$? from YUV8 to RGB."
+repeat $! {
+sh[$>] 0 /. 255 rm.
+sh[$>] 1 /. 289.773 -. 0.44 rm.
+sh[$>] 2 /. 205.645 -. 0.62 rm.
+} yuv2rgb
+#@cli :: Geometry Manipulation
+#@cli a : eq. to 'append' : (+)
+#@cli append : [image],axis,_centering : axis,_centering : (+)
+#@cli : Append specified image to selected images, or all selected images together, along specified axis.
+#@cli : (eq. to 'a').\n
+#@cli : 'axis' can be { x | y | z | c }.
+#@cli : Usual 'centering' values are { 0=left-justified | 0.5=centered | 1=right-justified }.
+#@cli : Default value: 'centering=0'.
+#@cli : $ image.jpg split y,10 reverse append y
+#@cli : $ image.jpg repeat 5 { +rows[0] 0,{10+18*$>}% } remove[0] append x,0.5
+#@cli : $ image.jpg append[0] [0],y
+#@cli append_tiles : _M>=0,_N>=0,0<=_centering_x<=1,0<=_centering_y<=1
+#@cli : Append MxN selected tiles as new images.
+#@cli : If 'N' is set to 0, number of rows is estimated automatically.
+#@cli : If 'M' is set to 0, number of columns is estimated automatically.
+#@cli : If 'M' and 'N' are both set to '0', auto-mode is used.
+#@cli : If 'M' or 'N' is set to 0, only a single image is produced.
+#@cli : 'centering_x' and 'centering_y' tells about the centering of tiles when they have different sizes.
+#@cli : Default values: 'M=0', 'N=0', 'centering_x=centering_y=0.5'.
+#@cli : $ image.jpg split xy,4 append_tiles ,
+append_tiles : check "isint(${1=0}) && isint(${2=0}) && ${3=0}>=0 && $3<=1 && ${4=$3}>=0 && $4<=1"
+if !$!
+e[0--3] "Append image$? as a 0x0-tiled image."
+return
+elif !$1" && "!$2
+N:=int(sqrt($!)) M:=ceil($!/$N)
+e[0--3] "Append image$? as a "${M}x${N}"-tiled image (auto-mode)."
+elif !$2
+M=$1 N:=round($!/$1,1,1)
+e[0--3] "Append image$? as a "${M}x${N}"-tiled image."
+elif !$1
+M:=round($!/$2,1,1) N=$2
+e[0--3] "Append image$? as a "${M}x${N}"-tiled image."
+else
+e[0--3] "Append image$?, as $1x$2-tiled images."
+M=$1 N=$2
+fi
+W,H=${-max_wh} rr2d $W,$H,2,1
+MN:=$M*$N if $!%$MN 0x{$MN-($!%$MN)} fi
+repeat $!/$MN { l[$>-{$>+$MN-1}] {
+repeat $!/$M { a[$>-{$>+$M-1}] x,$3 }
+a y,$4
+} }
+#@cli apply_scales : "command",number_of_scales>0,_min_scale[%]>=0,_max_scale[%]>=0,_scale_gamma>0,_interpolation
+#@cli : Apply specified command on different scales of selected images.
+#@cli : 'interpolation' can be { 0=none | 1=nearest | 2=average | 3=linear | 4=grid | 5=bicubic | 6=lanczos }.
+#@cli : Default value: 'min_scale=25%', 'max_scale=100%' and 'interpolation=3'.
+#@cli : $ image.jpg apply_scales "blur 5 sharpen 1000",4
+apply_scales : check "isint($2) && $2>0 && ${3=25%}>=0 && ${4=100%}>=0 && ${5=1}>0 && isint(${6=3}) && $6>=0"
+skip "${1=}"
+s0="no" s1="nearest-neighbor" s2="average" s3="linear" s4="grid" s5="bicubic" s6="lanczos"
+e[^-1] "Apply command '$1' on image$? for $2 scales ($3 -> $4) and "${s{min(6,$6)}}" interpolation."
+foreach {
+nm={n}
+scale0:=${"is_percent $3"}?$3*max(w,h,d):$3
+scale1:=${"is_percent $4"}?$4*max(w,h,d):$4
+repeat $2 {
+scale:=$scale0+($scale1-$scale0)*($>/max(1,$2-1))^$5
+w={0,w==1?1:max(1,round($scale*w/max(w,h,d)))}
+h={0,h==1?1:max(1,round($scale*h/max(w,h,d)))}
+d={0,d==1?1:max(1,round($scale*d/max(w,h,d)))}
++r[0] $w,$h,$d,100%,$6
+if narg("$1") l. { $1 } fi
+}
+rm[0] =>[^] $nm
+}
+#@cli autocrop : value1,value2,... : (no arg) : (+)
+#@cli : Autocrop selected images by specified vector-valued intensity.
+#@cli : If no arguments are provided, cropping value is guessed.
+#@cli : $ 400,400,1,3 fill_color 64,128,255 ellipse 50%,50%,120,120,0,1,255 +autocrop
+#@cli autocrop_components : _threshold[%],_min_area[%]>=0,_is_high_connectivity={ 0 | 1 },_output_type={ 0=crop | 1=segmentation | 2=coordinates }
+#@cli : Autocrop and extract connected components in selected images, according to a mask given as the last channel of
+#@cli : each of the selected image (e.g. alpha-channel).
+#@cli : Default values: 'threshold=0%', 'min_area=0.1%', 'is_high_connectivity=0' and 'output_type=1'.
+#@cli : $ 256,256 noise 0.1,2 eq 1 dilate_circ 20 label_fg 0,1 normalize 0,255 +neq 0 *[-1] 255 append c +autocrop_components ,
+autocrop_components : skip ${1=0%} check "${2=0.1%}>=0 && isbool(${3=0}) && isint(${4=1}) && $4>=0 && $4<=2"
+e[^-1] "Autocrop connected components from image$?, with threshold $1, minimal area $2, "${arg0\ $3,low,high}" connectivity ""and output type set to '"${arg0\ $4,crop,segmentation,coordinates}"'.\n"
+foreach {
+min_area:=max(1,round(if(${is_percent\ $2},$2*w*h,$2)))
++channels 100% >. $1 area_fg. 0,$3 >=. $min_area
++area. 0,1 <. $min_area -|[-2,-1] label_fg. 0,1
+N:=iM repeat iM {
+n:=1+$>
+e "\r > "$n/$N
+rprogress {100*$n/$N}
++==[1] $n +*[0,-1] rm..
+if $4==0 coords=${autocrop_coords.\ auto} rm. +z[0] $coords
+elif $4==1 autocrop.
+else coords=${autocrop_coords.\ auto} rm. ($coords) y.
+fi
+}
+rm[0,1]
+if !$! 0 fi
+if $4==2 a x fi
+}
+#@cli autocrop_seq : value1,value2,... | auto
+#@cli : Autocrop selected images using the crop geometry of the last one by specified vector-valued intensity,
+#@cli : or by automatic guessing the cropping value.
+#@cli : Default value: auto mode.
+#@cli : $ image.jpg +fill[-1] 0 ellipse[-1] 50%,50%,30%,20%,0,1,1 autocrop_seq 0
+autocrop_seq : skip ${1=auto}
+e[^-1] "Auto-crop image$? using crop geometry of last image by vector '$*'."
+if !$! return fi
+is_auto:=['"$1"']=='auto'
+if $!==1 _autocrop$is_auto ${1--1} return fi
+coords=${autocrop_coords.\ ${1--1}}
+x0,y0,z0,x1,y1,z1={[$coords][0,6]}
+if $x0>$x1" || "$y0>$y1" || "$z0>$z1 i[0--2] 0 rm[1--1:2]
+else z $x0,$y0,$z0,$x1,$y1,$z1
+fi
+#@cli channels : c0[%],_c1[%]
+#@cli : Keep only specified channels of selected images.
+#@cli : Dirichlet boundary is used when specified channels are out of range.
+#@cli : Default value: 'c1=c0'.
+#@cli : $ image.jpg channels 0,1
+#@cli : $ image.jpg luminance channels 0,2
+channels : skip ${2=$1}
+e[^-1] "Keep channels $1...$2 of image$?."
+z 0,0,0,$1,100%,100%,100%,$2
+#@cli columns : x0[%],_x1[%]
+#@cli : Keep only specified columns of selected images.
+#@cli : Dirichlet boundary is used when specified columns are out of range.
+#@cli : Default value: 'x1=x0'.
+#@cli : $ image.jpg columns -25%,50%
+columns : skip ${2=$1}
+e[^-1] "Keep columns $1...$2 of image?."
+z $1,$2
+#@cli z : eq. to 'crop'. : (+)
+#@cli crop : x0[%],x1[%],_boundary_conditions : x0[%],y0[%],x1[%],y1[%],_boundary_conditions : x0[%],y0[%],z0[%],x1[%],y1[%],z1[%],_boundary_conditions : x0[%],y0[%],z0[%],c0[%],x1[%],y1[%],z1[%],c1[%],_boundary_conditions : (+)
+#@cli : Crop selected images with specified region coordinates.
+#@cli : (eq. to 'z').\n
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default value: 'boundary_conditions=0'.
+#@cli : $ image.jpg +crop -230,-230,280,280,1 crop[0] -230,-230,280,280,0
+#@cli : $ image.jpg crop 25%,25%,75%,75%
+#@cli diagonal
+#@cli : Transform selected vectors as diagonal matrices.
+#@cli : $ 1,10,1,1,'y' +diagonal
+diagonal :
+e[^-1] "Transform vector$? as diagonal matrix."
+y repeat $! { r[$>] {$>,h+1},100%,1,1,0 r[$>] {$>,h},100%,1,1,-1 }
+downsize_aliased : check "${1=50}>=0 && $1<=100"
+if $1==100 return elif !$1 r 1,1,1,100%,2 return fi
+N:=ceil(1+100/$1)
+foreach {
+split_opacity
+if $!==1 continue fi
++dilate.. $N +==.. 0
+j[0] ..,0,0,0,0,1,. rm[-2,-1]
+a c
+r $1%,$1%,$1%,100%,2
+}
+#@cli edgels : x0,y0 : (no arg)
+#@cli : Retrieve list of edgels (and their normals) that go around a 2D binary silhouette.
+#@cli : When specified, arguments 'x0,y0' are the 2D coordinates of the starting point (must be located at the edge of the binary silhouette).
+#@cli : Output image has 3 channels '[x,y,n]' where 'x' and 'y' are the 2D coordinates of the edgel point, and 'n' is the orientation of its associated canonical normal (can be { 0=[1,0] | 1=[0,1] | 2=[-1,0] | 3=[0,-1] }.
+edgels : skip "${1=},${2=}"
+l[] { if "isint($1) && $1>=0 && isint($2) && $2>=0" x0,y0=${1,2} else error[] fi onfail x0,y0=-1 noarg }
+foreach {
+slices. 0 channels. 0 gt. 0
+1,1,1,3
+eval ${-math_lib}"
+x0 = $x0<0?xM#-2:$1;
+y0 = $y0<0?yM#-2:$2;
+P0 = P = [ x0,y0,argmin(i(#-2,x0 + 1,y0),i(#-2,x0,y0 + 1),i(#-2,x0 - 1,y0),i(#-2,x0,y0 - 1)) ];
+do (da_push(P); P = next_edgel4_fg(#-2,P,1), P!=P0);
+resize(#-1,1,da_size(),1,3,0)"
+k.
+}
+#@cli elevate : _depth,_is_plain={ 0 | 1 },_is_colored={ 0 | 1 }
+#@cli : Elevate selected 2D images into 3D volumes.
+#@cli : Default values: 'depth=64', 'is_plain=1' and 'is_colored=1'.
+elevate : check "${1=64}>0" skip ${2=1},${3=1}
+e[^-1] "Elevate 2D image$? into $1-slices volume(s)."
+r 100%,100%,1,100%
+foreach {
+nm={n}
++norm 100%,100%,$1,{if($3,{0,s},1)}
+m={-2,im} d={-2,iM-$m}
+repeat $1 {
+if $2 +>=[1] {$m+$d*($>+1)/$1}
+else +ir[1] {$m+$d*$>/$1},{$m+$d*($>+1)/$1}
+fi
+r. 100%,100%,1,.. if $3 *. [0] fi
+j.. .,0,0,$> rm.
+}
+rm[0,1] => $nm }
+#@cli expand_x : size_x>=0,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Expand selected images along the x-axis.
+#@cli : Default value: 'boundary_conditions=0'.
+#@cli : $ image.jpg expand_x 30,0
+expand_x : check "$1>=0 && ${2=0}>=0 && $2<=3"
+e[^-1] "Expand image$? along the x-axis with size $1 and "${"arg0 $2,dirichlet,neumann,periodic,mirror"}"
+boundary conditions."
+repeat $! { r[$>] {$>,w+2*$1},100%,100%,100%,0,$2,0.5,0.5,0.5 }
+#@cli expand_xy : size>=0,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Expand selected images along the xy-axes.
+#@cli : Default value: 'boundary_conditions=0'.
+#@cli : $ image.jpg expand_xy 30,0
+expand_xy : check "$1>=0 && ${2=0}>=0 && $2<=3"
+e[^-1] "Expand image$? along the xy-axes with size $1 and "${"arg0 $2,dirichlet,neumann,periodic,mirror"}"
+boundary conditions."
+repeat $! { r[$>] {$>,w+2*$1},{$>,h+2*$1},100%,100%,0,$2,0.5,0.5,0.5 }
+#@cli expand_xyz : size>=0,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Expand selected images along the xyz-axes.
+#@cli : Default value: 'boundary_conditions=0'.
+expand_xyz : check "$1>=0 && ${2=0}>=0 && $2<=3"
+e[^-1] "Expand image$? along the xyz-axes with size $1 and "${"arg0 $2,dirichlet,neumann,periodic,mirror"}"
+boundary conditions."
+repeat $! { r[$>] {$>,w+2*$1},{$>,h+2*$1},{$>,d+2*$1},100%,0,$2,0.5,0.5,0.5 }
+#@cli expand_y : size_y>=0,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Expand selected images along the y-axis.
+#@cli : Default value: 'boundary_conditions=0'.
+#@cli : $ image.jpg expand_y 30,0
+expand_y : check "$1>=0 && ${2=0}>=0 && $2<=3"
+e[^-1] "Expand image$? along the y-axis with size $1 and "${"arg0 $2,dirichlet,neumann,periodic,mirror"}"
+boundary conditions."
+repeat $! { r[$>] 100%,{$>,h+2*$1},100%,100%,0,$2,0.5,0.5,0.5 }
+#@cli expand_z : size_z>=0,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Expand selected images along the z-axis.
+#@cli : Default value: 'boundary_conditions=0'.
+expand_z : check "$1>=0 && ${2=0}>=0 && $2<=3"
+e[^-1] "Expand image$? along the z-axis with size $1 and "${"arg0 $2,dirichlet,neumann,periodic,mirror"}"
+boundary conditions."
+repeat $! { r[$>] 100%,100%,{$>,d+2*$1},100%,0,$2,0.5,0.5,0.5 }
+#@cli extract : "condition",_output_type={ 0=xyzc-coordinates | 1=xyz-coordinates | 2=scalar-values | 3=vector-values }
+#@cli : Extract a list of coordinates or values from selected image, where
+#@cli : specified mathematical condition holds.
+#@cli : For N coordinates matching, result is a 1xNx1x4 image.
+#@cli : Default values: 'output_type=0'.
+#@cli : $ sp lena +extract "norm(I)>128",3
+extract : check "isin(${2=0},0,1,2,3)"
+s0,s1,s2,s3=xyzc-coordinates,xyz-coordinates,scalar-values,vector-values
+e[^-1] "Extract "$s$2" from image$? verifying condition '$1'."
+str=">begin(run('1,32,1,',arg(1+$2,4,3,1,s)));($1)?("
+if $2==0 str.="da_push([x,y,z,c]));i"
+elif $2==1 str.="da_push([x,y,z]));I"
+elif $2==2 str.="da_push(i));i"
+else str.="da_push(I));I"
+fi
+str.=";end(resize(#-1,1,da_size(),1,s(#-1),0))"
+repeat $! { nm={$>,n} eval[$>] $str => $nm rv[$>,-1] rm. }
+#@cli extract_region : [label_image],_extract_xyz_coordinates={ 0 | 1 },_label_1,...,_label_M
+#@cli : Extract all pixels of selected images whose corresponding label in '[label_image]' is equal to 'label_m',
+#@cli : and output them as M column images.
+#@cli : Default value: 'extract_xyz_coordinates=0'.
+#@cli : $ image.jpg +blur 3 quantize. 4,0 +extract_region[0] [1],0,1,3
+extract_region : check ${"is_image_arg $1"}" && isnum(${2=0})"
+if $#<3 e[0--3] "Extract pixels of image$? for labels [] in image $1, with"${"arg0 !!$2,out"}" coordinates
+-> no labels provided, ignoring." return fi
+e[^-1] "Extract pixels of image$? for labels {${3--1}} in image $1, with"${"arg0 !!$2,out"}" coordinates."
+pass$1 mv. 0 repeat $!-1 { l[0,{1+$<}] {
+nm={n}
+1,16,1,{s+($2?3:0)} if $#>3 .x{$#-3} fi
+f[0] ">
+begin(
+const N = iM + 1;
+R = [ ${3--1} ];
+hash = vectorN(0);
+repeat (size(R),k, hash[R[k]] = k + 2);
+);
+(ind = hash[i])>0?(
+$2?da_push(#ind,[ I(#1),x,y,z ]):da_push(#ind,I(#1));
+); i;
+end(
+repeat (l - 2,k, resize(#k + 2,1,da_size(#k + 2),1,-100,0))
+)"
+rm[1] =>[^] $nm
+} } rm[0]
+#@cli montage : "_layout_code",_montage_mode={ 0<=centering<=1 | 2<=scale+2<=3 },_output_mode={ 0=single layer | 1=multiple layers },"_processing_command"
+#@cli : Create a single image montage from selected images, according to specified layout code :
+#@cli : - 'X' to assemble all images using an automatically estimated layout.
+#@cli : - 'H' to assemble all images horizontally.
+#@cli : - 'V' to assemble all images vertically.
+#@cli : - 'A' to assemble all images as an horizontal array.
+#@cli : - 'B' to assemble all images as a vertical array.
+#@cli : - 'Ha:b' to assemble two blocks 'a' and 'b' horizontally.
+#@cli : - 'Va:b' to assemble two blocks 'a' and 'b' vertically.
+#@cli : - 'Ra' to rotate a block 'a' by 90 deg. ('RRa' for 180 deg. and 'RRRa' for 270 deg.).
+#@cli : - 'Ma' to mirror a block 'a' along the X-axis ('MRRa' for the Y-axis).
+#@cli : A block 'a' can be an image index (treated periodically) or a nested layout expression 'Hb:c','Vb:c','Rb' or
+#@cli : 'Mb' itself.
+#@cli : For example, layout code 'H0:V1:2' creates an image where image [0] is on the left, and images [1] and [2]
+#@cli : vertically packed on the right.
+#@cli : Default values: 'layout_code=X', 'montage_mode=2', output_mode='0' and 'processing_command=""'.
+#@cli : $ image.jpg sample ? +plasma[0] shape_cupid 256 normalize 0,255 frame 3,3,0 frame 10,10,255 to_rgb +montage A +montage[^-1] H1:V0:VH2:1H0:3
+montage : check "isnum(${2=2}) && $2>=0 && $2<=3" skip "${1=X}",${3=0},"${4=}"
+if $2<=1 e[0--3] "Create aligned montage from image$?, with layout code '$1' and centering $2."
+else e[0--3] "Create scaled montage from image$?, with layout code '$1' and scale "{$2-2}"."
+fi
+to_colormode 0
+if lowercase('"$1"')=='x'
++l {
+repeat $! { =>[$>] $> }
+repeat $!-1 {
+if {-2,w>h}" && "w>h mode=V
+elif {-2,h>w}" && "h>w mode=H
+elif {-2,w>h}" && "h>w
+if {-2,h/w}<(w/h) mode=V else mode=H fi
+else
+if {-2,w/h}<(h/w) mode=H else mode=V fi
+fi
+name=$mode{-2,n}:{n}
+montage[-2,-1] $mode,$2
+mv. 0 =>[0] $name
+}
+layout={0,n}
+rm
+}
+montage $layout,$2,$3,"$4"
+else
+N=$!
+l[] {
+_scode="$1" _mode=$2
+if lowercase('"$1"')=='h' if $N>1 {$N-1},1,1,1,-1 $N,1,1,1,x a x y else return fi
+elif lowercase('"$1"')=='v' if $N>1 {$N-1},1,1,1,-2 $N,1,1,1,x a x y else return fi
+elif s=lowercase('"$1"');s=='a'||s=='b'
+if $N<2 return fi
+nr:=round(sqrt($N)) nc:=round($N/$nr,1,1)
+if lowercase('"$1"')=='b' n=$nr nr=$nc nc=$n fi
+$N,1,1,1,x s x,-{round(w/$nr,1,1)} foreach { if w>1 i[0] {w-1},1,1,1,-1 a x fi } a x
+if $nr>1 i[0] {$nr-1},1,1,1,-2 a x fi y
+else
+('"$1"') f "if(i==72 || i==104,-1,
+if(i==86 || i==118,-2,
+if(i==82 || i==114,-3,
+if(i==77 || i==109,-4,
+if(i>=48 && i<=57,i-48,-5)))))"
+s +,-1 s +,-2 s +,-3 s +,-4 s +,-5
+foreach { if im>=0 ++. 48 =.. {t} rm. rows 0 fi } a y discard -5
+fi
+f 'if(i<0,i,i%$N)'
+}
+if $!==$N rm return fi
+=>[^-1] 0
+repeat h {
+c:=i[$>]
+if $c>=0 if {$c,n} i.. [$c] i:=$!-2 =. $i,0,$> ref$i=$c else =>[$c] 1 ref$c=$c fi fi
+}
+_code={^} _lcode:=narg($_code) rm.
+N=$! repeat $N { ($>,0,0,{$>,w},{$>,h},0,0,0) }
+l[$N--1] {
+_p=1 k[${-_montage}] w:=i[3] h:=i[4] f 'if(i(0,y)<0,-1,i)' discard -1 y r 8,{h/8},1,1,-1
+onfail error[0--3] "Too many input images."
+}
+if narg("$4") m "__montage : $4 k[0]"
+else m "__montage : if $""7%2 mirror x fi if $""8%2 mirror y fi rotate {90*$""6}
+r {max(1,round($""4,1,1))},{max(1,round($""5,1,1))},1,100%,3"
+fi
+s=${max_s[^-1]}
+repeat h {
+i,xi,yi,wi,hi,ai,mxi,myi={crop(0,$>,w,1)}
+if $3||!$> i.. $w,$h,1,$s fi
+__montage[$i] ${ref$i},$xi,$yi,{max(1,$wi)},{max(1,$hi)},$ai,$mxi,$myi
+j.. [$i],$xi,$yi
+}
+um __montage
+rm[0-{$N-1},-1]
+fi
+=> "[Montage '$1']"
+_montage :
+if $_p>$_lcode error "Command 'montage': Incomplete layout code '"$_scode"'." fi
+c:=arg($_p,$_code)
+if $c>=0 _p+=1 u $c
+elif $c==-4
+_p+=1 l=${-_montage} f[$l] 'a=i(5,y)%2;if((x==7&&a)||(x==6&&!a),!i,if(x==1,i(3,0)-i(3,y)-i,i))' u $l
+elif $c==-3
+_p+=1 l=${-_montage} l[$l] { s x +[2] [4] rv[1,2] *[1] -1 +[1] {4,@0} rv[3,4] +[5] 1 a x } u $l
+else
+_p+=1
+l=${-_montage} lw={$l,@3} lh={$l,@4}
+r=${-_montage} rw={$r,@3} rh={$r,@4}
+if $c==-1
+if $_mode<2
+h:=max($lh,$rh)
++[$l] '0,0,{($h-$lh)*min(1,$_mode)},0,0,0,0,0'
++[$r] '0,$lw,{($h-$rh)*min(1,$_mode)},0,0,0,0,0'
+else
+h:=($_mode-2)*max($lh,$rh)+(3-$_mode)*min($lh,$rh)
+lf:=$h/$lh rf:=$h/$rh lw:=$lw*$lf rw:=$rw*$rf
+*[$l] '1,$lf,$lf,$lf,$lf,1,1,1' *[$r] '1,$rf,$rf,$rf,$rf,1,1,1' +[$r] '0,$lw,0,0,0,0,0,0'
+fi
+i[$l] (-1,0,0,{$lw+$rw},$h,0,0,0) a[$l,{$l+1}] y a[$l] [$r],y r[$r] 1,1,1,1,0
+else
+if $_mode<2
+w:=max($lw,$rw)
++[$l] '0,{($w-$lw)*min(1,$_mode)},0,0,0,0,0,0'
++[$r] '0,{($w-$rw)*min(1,$_mode)},$lh,0,0,0,0,0'
+else
+w:=($_mode-2)*max($lw,$rw)+(3-$_mode)*min($lw,$rw)
+lf:=$w/$lw rf:=$w/$rw lh:=$lh*$lf rh:=$rh*$rf
+*[$l] '1,$lf,$lf,$lf,$lf,1,1,1' *[$r] '1,$rf,$rf,$rf,$rf,1,1,1' +[$r] '0,0,$lh,0,0,0,0,0'
+fi
+i[$l] (-1,0,0,$w,{$lh+$rh},0,0,0) a[$l,{$l+1}] y a[$l] [$r],y r[$r] 1,1,1,1,0
+fi
+u $l
+fi
+#@cli mirror : { x | y | z }...{ x | y | z } : (+)
+#@cli : Mirror selected images along specified axes.
+#@cli : $ image.jpg +mirror y +mirror[0] c
+#@cli : $ image.jpg +mirror x +mirror y append_tiles 2,2
+#@cli permute : permutation_string : (+)
+#@cli : Permute selected image axes by specified permutation.
+#@cli : 'permutation' is a combination of the character set {x|y|z|c},
+#@cli : e.g. 'xycz', 'cxyz', ...
+#@cli : $ image.jpg permute yxzc
+#@cli r : eq. to 'resize'. : (+)
+#@cli resize : {[image_w] | width>0[%]},_{[image_h] | height>0[%]},_{[image_d] | depth>0[%]},_{[image_s] | spectrum>0[%]},_interpolation,_boundary_conditions,_ax,_ay,_az,_ac : (+)
+#@cli : Resize selected images with specified geometry.
+#@cli : (eq. to 'r').\n
+#@cli : 'interpolation' can be { -1=none (memory content) | 0=none | 1=nearest | 2=average | 3=linear | 4=grid | 5=bicubic | 6=lanczos }.
+#@cli : 'boundary_conditions' has different meanings, according to the chosen 'interpolation' mode :
+#@cli : . When 'interpolation=={ -1 | 1 | 2 | 4 }', 'boundary_conditions' is meaningless.
+#@cli : . When 'interpolation==0', 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : . When 'interpolation=={ 3 | 5 | 6 }', 'boundary_conditions' can be { 0=none | 1=neumann }.
+#@cli : 'ax,ay,az,ac' set the centering along each axis when 'interpolation=0 or 4'
+#@cli : (set to '0' by default, must be defined in range [0,1]).
+#@cli : Default values: 'interpolation=1', 'boundary_conditions=0' and 'ax=ay=az=ac=0'.
+#@cli : $ image.jpg +resize[-1] 256,128,1,3,2 +resize[-1] 120%,120%,1,3,0,1,0.5,0.5 +resize[-1] 120%,120%,1,3,0,0,0.2,0.2 +resize[-1] [0],[0],1,3,4
+#@cli ri : eq. to 'resize_as_image'.
+ri : skip "${2=1},${3=0},${4=0},${5=0},${6=0},${7=0}"
+pass$1 r[^-1] .,.,.,.,${2--1} rm.
+#@cli resize_as_image : [reference],_interpolation,_boundary_conditions,_ax,_ay,_az,_ac
+#@cli : Resize selected images to the geometry of specified [reference] image.
+#@cli : (eq. to 'ri').
+#@cli : Default values: 'interpolation=1', 'boundary_conditions=0' and 'ax=ay=az=ac=0'.
+#@cli : $ image.jpg sample duck +resize_as_image[-1] [-2]
+resize_as_image : check ${"is_image_arg $1"}" && isint(${2=1}) && $2>=-1 && $2<=6 && ""isint(${3=0}) && $3>=0 && $3<=3 && isnum(${4=0}) && isnum(${5=0}) && isnum(${6=0}) && isnum(${7=0})"
+pass$1 r[^-1] .,.,.,.,${2--1} rm.
+#@cli resize_mn : width[%]>=0,_height[%]>=0,_depth[%]>=0,_B_value,_C_value
+#@cli : Resize selected images with Mitchell-Netravali filter (cubic).
+#@cli : For details about the method, see: .
+#@cli : Default values: 'height=100%', 'depth=100%', 'B=0.3333' and 'C=0.3333'.
+#@cli : $ image.jpg resize2dx 32 resize_mn 800%,800%
+resize_mn : check "${2=100%}>=0 && ${3=100%}>=0" skip "${4=0.333},${5=0.333}"
+e[^-1] "Resize image$? to $1x$2x$3 using Mitchell-Netravali filter (B=$4, C=$5)."
+lib="const B = $4; const C = $5; const boundary = 1; const interp = 0;
+mn(P0,P1,P2,P3,d) = ( ( (-B/6-C)*P0 + (-3*B/2-C+2)*P1 + (3*B/2+C-2)*P2 + (B/6+C)*P3 )*d^3
++ ( (B/2+2*C)*P0 + (2*B+C-3)*P1 + (-5*B/2-2*C+3)*P2 -C*P3)*d^2
++ ( (-B/2-C)*P0 + (B/2+C)*P2)*d
++ B/6*P0 + (-B/3+1)*P1 + B/6*P2);"
+foreach {
+nm={n}
+nw:=${"is_percent $1"}?max(1,round($1*w)):round($1)
+nh:=${"is_percent $2"}?max(1,round($2*h)):round($2)
+nd:=${"is_percent $3"}?max(1,round($3*d)):round($3)
+if !$nw" || "!$nh" || "!$nd rm 0
+elif !w rm $nw,$nh,$nd,1
+else
+if w==1||$nww
+$nw,100%,100%,100%,${lib}"X = x*(w#-1-1)/(w-1); d = X - int(X); P0 = I(#-1,X-1); P1 = I(#-1,X);
+P2 = I(#-1,X+1); P3 = I(#-1,X+2); mn(P0,P1,P2,P3,d);" k.
+fi
+if h==1||$nh $nm
+}
+#@cli resize_pow2 : _interpolation,_boundary_conditions,_ax,_ay,_az,_ac
+#@cli : Resize selected images so that each dimension is a power of 2.
+#@cli : 'interpolation' can be { -1=none (memory content) | 0=none | 1=nearest | 2=average | 3=linear | 4=grid | 5=bicubic | 6=lanczos }.
+#@cli : 'boundary_conditions' has different meanings, according to the chosen 'interpolation' mode :
+#@cli : . When 'interpolation=={ -1 | 1 | 2 | 4 }', 'boundary_conditions' is meaningless.
+#@cli : . When 'interpolation==0', 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : . When 'interpolation=={ 3 | 5 | 6 }', 'boundary_conditions' can be { 0=none | 1=neumann }.
+#@cli : 'ax,ay,az,ac' set the centering along each axis when 'interpolation=0'
+#@cli : (set to '0' by default, must be defined in range [0,1]).
+#@cli : Default values: 'interpolation=0', 'boundary_conditions=0' and 'ax=ay=az=ac=0'.
+#@cli : $ image.jpg +resize_pow2[-1] 0
+resize_pow2 : check "isint(${1=0}) && $1>=-1 && $1<=6" skip ${2=0},${3=0},${4=0},${5=0},${6=0}
+e[^-1] "Resize image$? so that each dimension is a power of 2."
+repeat $! {
+r[$>] {$>,2^(round(log2(w),1,1))},{$>,2^(round(log2(h),1,1))},{$>,2^(round(log2(d),1,1))},100%,${1-6}
+}
+#@cli rr2d : eq. to 'resize_ratio2d'.
+rr2d :
+_gmic_s="$?" v + _resize_ratio2d $*
+#@cli resize_ratio2d : width>0,height>0,_mode={ 0=inside | 1=outside | 2=padded },0=<_interpolation<=6
+#@cli : Resize selected images while preserving their aspect ratio.
+#@cli : (eq. to 'rr2d').
+#@cli : Default values: 'mode=0' and 'interpolation=6'.
+resize_ratio2d :
+_gmic_s="$?" v + _$0 $*
+_resize_ratio2d : check "$1>0 && $2>0 && ${3=0}>=0 && $3<=2 && ${4=6}>=0 && $4<=6"
+e[0--3] "Resize 2D image"$_gmic_s" to $1x$2 with ratio-"${arg0\ $3,inside,outside,padded}" mode and interpolation type $4."
+repeat $! {
+ratio={$>,if($3==1,max($1/w,$2/h),min($1/w,$2/h))}
+r[$>] {$>,[max(1,round(w*$ratio)),max(1,round(h*$ratio))]},100%,100%,$4
+}
+if $3==2 r $1,$2,100%,100%,0,0,0.5,0.5 fi
+#@cli r2din : eq. to 'resize2din'
+r2din :
+_gmic_s="$?" v + _resize2din $*
+#@cli resize2din : width[%]>0,_height[%]>0,_interpolation,_boundary_conditions,_ax,_ay,_az,_ac
+#@cli : Resize selected images so the size is not larger than 'width'x'height' while preserving 2D ratio.
+#@cli : (eq. to 'r2din').\n
+#@cli : 'interpolation' can be { -1=none (memory content) | 0=none | 1=nearest | 2=average | 3=linear | 4=grid | 5=bicubic | 6=lanczos }.
+#@cli : 'boundary_conditions' has different meanings, according to the chosen 'interpolation' mode :
+#@cli : . When 'interpolation=={ -1 | 1 | 2 | 4 }', 'boundary_conditions' is meaningless.
+#@cli : . When 'interpolation==0', 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : . When 'interpolation=={ 3 | 5 | 6 }', 'boundary_conditions' can be { 0=none | 1=neumann }.
+#@cli : 'ax,ay,az,ac' set the centering along each axis when 'interpolation=0'
+#@cli : (set to '0' by default, must be defined in range [0,1]).
+#@cli : Default values: 'height=100%', 'interpolation=3', 'boundary_conditions=0' and 'ax=ay=az=ac=0'.
+#@cli : $ image.jpg +resize2din 100,100 append x
+resize2din :
+_gmic_s="$?" v + _$0 $*
+_resize2din : check "$1>0 && ${2=100%}>0 && ${3=3}>=0 && $3<=6 && ${4=0}>=0 && $4<=3 && ""${5=0}>=0 && $5<=1 && ${6=0}>=0 && $6<=1 && ${7=0}>=0 && $7<=1 && ${8=0}>=0 && $8<=1"
+e[0--3] "Resize image"$_gmic_s" so the size is not larger than $1x$2, while preserving 2D ratio."
+eval "repeat (l,k,
+W = "${"is_percent $1"}"?w#k*$1:$1;
+H = "${"is_percent $2"}"?h#k*$2:$2;
+dims = round(min(W/w#k,H/h#k)*[w#k,h#k]);
+resize(#k,max(1,dims[0]),max(1,dims[1]),d#k,s#k,${3-8});
+)"
+#@cli r3din : eq. to 'resize3din'
+r3din :
+_gmic_s="$?" v + _resize3din $*
+#@cli resize3din : width[%]>0,_height[%]>0,_depth[%]>0,_interpolation,_boundary_conditions,_ax,_ay,_az,_ac
+#@cli : Resize selected images so the size is not larger than 'width'x'height'x'depth' while preserving 3D ratio.
+#@cli : (eq. to 'r3din').\n
+#@cli : 'interpolation' can be { -1=none (memory content) | 0=none | 1=nearest | 2=average | 3=linear | 4=grid | 5=bicubic | 6=lanczos }.
+#@cli : 'boundary_conditions' has different meanings, according to the chosen 'interpolation' mode :
+#@cli : . When 'interpolation=={ -1 | 1 | 2 | 4 }', 'boundary_conditions' is meaningless.
+#@cli : . When 'interpolation==0', 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : . When 'interpolation=={ 3 | 5 | 6 }', 'boundary_conditions' can be { 0=none | 1=neumann }.
+#@cli : 'ax,ay,az,ac' set the centering along each axis when 'interpolation=0'
+#@cli : (set to '0' by default, must be defined in range [0,1]).
+#@cli : Default values: 'height=100%', 'depth=100%', 'interpolation=3', 'boundary_conditions=0' and 'ax=ay=az=ac=0'.
+resize3din :
+_gmic_s="$?" v + _$0 $*
+_resize3din : check "$1>0 && ${2=100%}>0 && ${3=100%}>0 && ${4=3}>=0 && $4<=6 && ${5=0}>=0 && $5<=3 && ""${6=0}>=0 && $6<=1 && ${7=0}>=0 && $7<=1 && ${8=0}>=0 && $8<=1 && ${9=0}>=0 && $9<=1"
+e[0--3] "Resize image"$_gmic_s" so the size is not larger than $1x$2x$3, while preserving 3D ratio."
+eval "repeat (l,k,
+W = "${"is_percent $1"}"?w#k*$1:$1;
+H = "${"is_percent $2"}"?h#k*$2:$2;
+D = "${"is_percent $3"}"?d#k*$3:$3;
+dims = round(min(W/w#k,H/h#k,D/d#k)*[w#k,h#k,d#k]);
+resize(#k,max(1,dims[0]),max(1,dims[1]),max(1,dims[2]),s#k,${4-9});
+)"
+#@cli r2dout : eq. to 'resize2dout'
+r2dout :
+_gmic_s="$?" v + _resize2dout $*
+#@cli resize2dout : width[%]>0,_height[%]>0,_interpolation,_boundary_conditions,_ax,_ay,_az,_ac
+#@cli : Resize selected images so the size is not smaller than 'width'x'height' while preserving 2D ratio.
+#@cli : (eq. to 'r2dout').\n
+#@cli : 'interpolation' can be { -1=none (memory content) | 0=none | 1=nearest | 2=average | 3=linear | 4=grid | 5=bicubic | 6=lanczos }.
+#@cli : 'boundary_conditions' has different meanings, according to the chosen 'interpolation' mode :
+#@cli : . When 'interpolation=={ -1 | 1 | 2 | 4 }', 'boundary_conditions' is meaningless.
+#@cli : . When 'interpolation==0', 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : . When 'interpolation=={ 3 | 5 | 6 }', 'boundary_conditions' can be { 0=none | 1=neumann }.
+#@cli : 'ax,ay,az,ac' set the centering along each axis when 'interpolation=0'
+#@cli : (set to '0' by default, must be defined in range [0,1]).
+#@cli : Default values: 'height=100%', 'interpolation=3', 'boundary_conditions=0' and 'ax=ay=az=ac=0'.
+#@cli : $ image.jpg +resize2dout 100,100 append x
+resize2dout :
+_gmic_s="$?" v + _$0 $*
+_resize2dout : check "$1>0 && ${2=100%}>0 && ${3=3}>=0 && $3<=6 && ${4=0}>=0 && $4<=3 && ""${5=0}>=0 && $5<=1 && ${6=0}>=0 && $6<=1 && ${7=0}>=0 && $7<=1 && ${8=0}>=0 && $8<=1"
+e[0--3] "Resize image"$_gmic_s" so the size is not larger than $1x$2, while preserving 2D ratio."
+eval "repeat (l,k,
+W = "${"is_percent $1"}"?w#k*$1:$1;
+H = "${"is_percent $2"}"?h#k*$2:$2;
+dims = round(max(W/w#k,H/h#k)*[w#k,h#k]);
+resize(#k,max(1,dims[0]),max(1,dims[1]),d#k,s#k,${3-8});
+)"
+#@cli r3dout : eq. to 'resize3dout'
+r2dout :
+_gmic_s="$?" v + _resize3dout $*
+#@cli resize3dout : width[%]>0,_height[%]>0,_depth[%]>0,_interpolation,_boundary_conditions,_ax,_ay,_az,_ac
+#@cli : Resize selected images so the size is not smaller than 'width'x'height'x'depth' while preserving 3D ratio.
+#@cli : (eq. to 'r3dout').\n
+#@cli : 'interpolation' can be { -1=none (memory content) | 0=none | 1=nearest | 2=average | 3=linear | 4=grid | 5=bicubic | 6=lanczos }.
+#@cli : 'boundary_conditions' has different meanings, according to the chosen 'interpolation' mode :
+#@cli : . When 'interpolation=={ -1 | 1 | 2 | 4 }', 'boundary_conditions' is meaningless.
+#@cli : . When 'interpolation==0', 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : . When 'interpolation=={ 3 | 5 | 6 }', 'boundary_conditions' can be { 0=none | 1=neumann }.
+#@cli : 'ax,ay,az,ac' set the centering along each axis when 'interpolation=0'
+#@cli : (set to '0' by default, must be defined in range [0,1]).
+#@cli : Default values: 'height=100%', 'depth=100%', 'interpolation=3', 'boundary_conditions=0' and 'ax=ay=az=ac=0'.
+resize3dout :
+_gmic_s="$?" v + _$0 $*
+_resize3dout : check "$1>0 && ${2=100%}>0 && ${3=100%}>0 && ${4=3}>=0 && $4<=6 && ${5=0}>=0 && $5<=3 && ""${6=0}>=0 && $6<=1 && ${7=0}>=0 && $7<=1 && ${8=0}>=0 && $8<=1 && ${9=0}>=0 && $9<=1"
+e[0--3] "Resize image"$_gmic_s" so the size is not larger than $1x$2x$3, while preserving 3D ratio."
+eval "repeat (l,k,
+W = "${"is_percent $1"}"?w#k*$1:$1;
+H = "${"is_percent $2"}"?h#k*$2:$2;
+D = "${"is_percent $3"}"?d#k*$3:$3;
+dims = round(max(W/w#k,H/h#k,D/d#k)*[w#k,h#k,d#k]);
+resize(#k,max(1,dims[0]),max(1,dims[1]),max(1,dims[2]),s#k,${4-9});
+)"
+#@cli r2dx : eq. to 'resize2dx'.
+r2dx :
+_gmic_s="$?" v + _resize2dx $*
+#@cli resize2dx : width[%]>0,_interpolation,_boundary_conditions,_ax,_ay,_az,_ac
+#@cli : Resize selected images along the x-axis, while preserving 2D ratio.
+#@cli : (eq. to 'r2dx').\n
+#@cli : 'interpolation' can be { -1=none (memory content) | 0=none | 1=nearest | 2=average | 3=linear | 4=grid | 5=bicubic | 6=lanczos }.
+#@cli : 'boundary_conditions' has different meanings, according to the chosen 'interpolation' mode :
+#@cli : . When 'interpolation=={ -1 | 1 | 2 | 4 }', 'boundary_conditions' is meaningless.
+#@cli : . When 'interpolation==0', 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : . When 'interpolation=={ 3 | 5 | 6 }', 'boundary_conditions' can be { 0=none | 1=neumann }.
+#@cli : 'ax,ay,az,ac' set the centering along each axis when 'interpolation=0'
+#@cli : (set to '0' by default, must be defined in range [0,1]).
+#@cli : Default values: 'interpolation=3', 'boundary_conditions=0' and 'ax=ay=az=ac=0'.
+#@cli : $ image.jpg +resize2dx 100,2 append x
+resize2dx :
+_gmic_s="$?" v + _$0 $*
+_resize2dx : check "$1>0 && ${2=3}>=0 && $2<=6 && ${3=0}>=0 && $3<=3 && ${4=0}>=0 && $4<=1 && ${5=0}>=0 && $5<=1 &&
+${6=0}>=0 && $6<=1 && ${7=0}>=0 && $7<=1"
+e[0--3] "Resize 2D image"$_gmic_s" to $1 pixels along the x-axis, while preserving 2D ratio."
+foreach {
+size:=${is_percent\ $1}?$1*w:$1
+r {max(1,$size)},{max(1,h*$size/w)},100%,100%,${2-7}
+}
+#@cli r2dy : eq. to 'resize2dy'.
+r2dy :
+_gmic_s="$?" v + _resize2dy $*
+#@cli resize2dy : height[%]>=0,_interpolation,_boundary_conditions,_ax,_ay,_az,_ac
+#@cli : Resize selected images along the y-axis, while preserving 2D ratio.
+#@cli : (eq. to 'r2dy').\n
+#@cli : 'interpolation' can be { -1=none (memory content) | 0=none | 1=nearest | 2=average | 3=linear | 4=grid | 5=bicubic | 6=lanczos }.
+#@cli : 'boundary_conditions' has different meanings, according to the chosen 'interpolation' mode :
+#@cli : . When 'interpolation=={ -1 | 1 | 2 | 4 }', 'boundary_conditions' is meaningless.
+#@cli : . When 'interpolation==0', 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : . When 'interpolation=={ 3 | 5 | 6 }', 'boundary_conditions' can be { 0=none | 1=neumann }.
+#@cli : 'ax,ay,az,ac' set the centering along each axis when 'interpolation=0'
+#@cli : (set to '0' by default, must be defined in range [0,1]).
+#@cli : Default values: 'interpolation=3', 'boundary_conditions=0' and 'ax=ay=az=ac=0'.
+#@cli : $ image.jpg +resize2dy 100,2 append x
+resize2dy :
+_gmic_s="$?" v + _$0 $*
+_resize2dy : check "$1>=0 && ${2=3}>=0 && $2<=6 && ${3=0}>=0 && $3<=3 && ${4=0}>=0 && $4<=1 && ${5=0}>=0 && $5<=1 &&
+${6=0}>=0 && $6<=1 && ${7=0}>=0 && $7<=1"
+e[0--3] "Resize 2D image"$_gmic_s" to $1 pixels along the y-axis, while preserving 2D ratio."
+foreach {
+size:=${is_percent\ $1}?$1*h:$1
+r {max(1,w*$size/h)},{max(1,$size)},100%,100%,${2-7}
+}
+#@cli r3dx : eq. to 'resize3dx'.
+r3dx :
+_gmic_s="$?" v + _resize3dx $*
+#@cli resize3dx : width[%]>0,_interpolation,_boundary_conditions,_ax,_ay,_az,_ac
+#@cli : Resize selected images along the x-axis, while preserving 3D ratio.
+#@cli : (eq. to 'r3dx').\n
+#@cli : 'interpolation' can be { -1=none (memory content) | 0=none | 1=nearest | 2=average | 3=linear | 4=grid | 5=bicubic | 6=lanczos }.
+#@cli : 'boundary_conditions' has different meanings, according to the chosen 'interpolation' mode :
+#@cli : . When 'interpolation=={ -1 | 1 | 2 | 4 }', 'boundary_conditions' is meaningless.
+#@cli : . When 'interpolation==0', 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : . When 'interpolation=={ 3 | 5 | 6 }', 'boundary_conditions' can be { 0=none | 1=neumann }.
+#@cli : 'ax,ay,az,ac' set the centering along each axis when 'interpolation=0'
+#@cli : (set to '0' by default, must be defined in range [0,1]).
+#@cli : Default values: 'interpolation=3', 'boundary_conditions=0' and 'ax=ay=az=ac=0'.
+resize3dx :
+_gmic_s="$?" v + _$0 $*
+_resize3dx : check "$1>0 && ${2=3}>=0 && $2<=6 && ${3=0}>=0 && $3<=3 && ${4=0}>=0 && $4<=1 && ${5=0}>=0 && $5<=1 &&
+${6=0}>=0 && $6<=1 && ${7=0}>=0 && $7<=1"
+e[0--3] "Resize 3D image"$_gmic_s" to $1 pixels along the x-axis, while preserving 3D ratio."
+foreach {
+size:=${is_percent\ $1}?$1*w:$1
+r {max(1,$size)},{max(1,h*$size/w)},{max(1,d*$size/w)},100%,${2-7}
+}
+#@cli r3dy : eq. to 'resize3dy'.
+r3dy :
+_gmic_s="$?" v + _resize3dy $*
+#@cli resize3dy : height[%]>0,_interpolation,_boundary_conditions,_ax,_ay,_az,_ac
+#@cli : Resize selected images along the y-axis, while preserving 3D ratio.
+#@cli : (eq. to 'r3dy').\n
+#@cli : 'interpolation' can be { -1=none (memory content) | 0=none | 1=nearest | 2=average | 3=linear | 4=grid | 5=bicubic | 6=lanczos }.
+#@cli : 'boundary_conditions' has different meanings, according to the chosen 'interpolation' mode :
+#@cli : . When 'interpolation=={ -1 | 1 | 2 | 4 }', 'boundary_conditions' is meaningless.
+#@cli : . When 'interpolation==0', 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : . When 'interpolation=={ 3 | 5 | 6 }', 'boundary_conditions' can be { 0=none | 1=neumann }.
+#@cli : 'ax,ay,az,ac' set the centering along each axis when 'interpolation=0'
+#@cli : (set to '0' by default, must be defined in range [0,1]).
+#@cli : Default values: 'interpolation=3', 'boundary_conditions=0' and 'ax=ay=az=ac=0'.
+resize3dy :
+_gmic_s="$?" v + _$0 $*
+_resize3dy : check "$1>0 && ${2=3}>=0 && $2<=6 && ${3=0}>=0 && $3<=3 && ${4=0}>=0 && $4<=1 && ${5=0}>=0 && $5<=1 &&
+${6=0}>=0 && $6<=1 && ${7=0}>=0 && $7<=1"
+e[0--3] "Resize 3D image"$_gmic_s" to $1 pixels along the y-axis, while preserving 3D ratio."
+foreach {
+size:=${is_percent\ $1}?$1*h:$1
+r {max(1,w*$size/h)},{max(1,$size)},{max(1,d*$size/h)},100%,${2-7}
+}
+#@cli r3dz : eq. to 'resize3dz'.
+r3dz :
+_gmic_s="$?" v + _resize3dz $*
+#@cli resize3dz : depth[%]>0,_interpolation,_boundary_conditions,_ax,_ay,_az,_ac
+#@cli : Resize selected images along the z-axis, while preserving 3D ratio.
+#@cli : (eq. to 'r3dz').\n
+#@cli : 'interpolation' can be { -1=none (memory content) | 0=none | 1=nearest | 2=average | 3=linear | 4=grid | 5=bicubic | 6=lanczos }.
+#@cli : 'boundary_conditions' has different meanings, according to the chosen 'interpolation' mode :
+#@cli : . When 'interpolation=={ -1 | 1 | 2 | 4 }', 'boundary_conditions' is meaningless.
+#@cli : . When 'interpolation==0', 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : . When 'interpolation=={ 3 | 5 | 6 }', 'boundary_conditions' can be { 0=none | 1=neumann }.
+#@cli : 'ax,ay,az,ac' set the centering along each axis when 'interpolation=0'
+#@cli : (set to '0' by default, must be defined in range [0,1]).
+#@cli : Default values: 'interpolation=3', 'boundary_conditions=0' and 'ax=ay=az=ac=0'.
+resize3dz :
+_gmic_s="$?" v + _$0 $*
+_resize3dz : check "$1>0 && ${2=3}>=0 && $2<=6 && ${3=0}>=0 && $3<=3 && ${4=0}>=0 && $4<=1 && ${5=0}>=0 && $5<=1 &&
+${6=0}>=0 && $6<=1 && ${7=0}>=0 && $7<=1"
+e[0--3] "Resize 3D image"$_gmic_s" to $1 pixels along the z-axis, while preserving 3D ratio."
+foreach {
+size:=${is_percent\ $1}?$1*d:$1
+r[$>] {max(1,w*$size/d)},{max(1,h*$size/d)},{max(1,$size)},100%,${2-7}
+}
+#@cli rotate : angle,_interpolation,_boundary_conditions,_center_x[%],_center_y[%] : u,v,w,angle,interpolation,boundary_conditions,_center_x[%],_center_y[%],_center_z[%] : (+)
+#@cli : Rotate selected images with specified angle (in deg.), and optionally 3D axis (u,v,w).
+#@cli : 'interpolation' can be { 0=none | 1=linear | 2=bicubic }.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : When a rotation center (cx,cy,_cz) is specified, the size of the image is preserved.
+#@cli : Default values: 'interpolation=1', 'boundary_conditions=0' and 'center_x=center_y=(undefined)'.
+#@cli : $ image.jpg +rotate -25,1,2,50%,50% rotate[0] 25
+#@cli rotate_tileable : angle,_max_size_factor>=0
+#@cli : Rotate selected images by specified angle and make them tileable.
+#@cli : If resulting size of an image is too big, the image is replaced by a 1x1 image.
+#@cli : Default values: 'max_size_factor=8'.
+rotate_tileable : check ${2=8}>=0
+e[^-1] "Rotate image$? with angle $1 deg. and make them tileable."
+angle:=$1%360
+if $angle>=270 rotate 270 angle-=270
+elif $angle>=180 rotate 180 angle-=180
+elif $angle>=90 rotate 90 angle-=90
+fi
+(0,1;1,8;1,7;1,6;1,5;1,4;1,5;1,3;2,5;1,2;2,5;3,5;2,3;3,4;4,5;1,1;5,4;7,5;3,2;8,5;9,5;2,1;3,1;4,1;5,1;6,1;7,1;8,1)
+s. x,2 +/[-2,-1] atan. *. {180/pi}
+($angle) index. .. rm..
+p={-3,@{^}} q={-2,@{^}} rm[-3--1]
+if !$p||!$q return fi
+foreach {
+theta:=atan2($p,$q)
+gcd=${gcd" "{h*$q},{w*$p}}
+pw:=h*$q/$gcd
+nw:=round($pw*w/cos($theta))
+gcd=${gcd" "{h*$p},{w*$q}}
+qh:=w*$q/$gcd
+nh:=round($qh*h/cos($theta))
+if !$2" || "($nw<$2*w" && "$nh<$2*h)
+r {1.5*$nw},{1.5*$nh},1,100%,0,2
+rotate {$theta*180/pi},1,2,50%,50%
+r $nw,$nh,1,100%,0,2,0.5,0.5
+else error[0--4] "Command '$0': Invalid image dimension "({w},{h},{d},{s}).
+fi
+}
+#@cli rows : y0[%],_y1[%]
+#@cli : Keep only specified rows of selected images.
+#@cli : Dirichlet boundary conditions are used when specified rows are out of range.
+#@cli : Default value: 'y1=y0'.
+#@cli : $ image.jpg rows -25%,50%
+rows : skip ${2=$1}
+e[^-1] "Keep rows $1...$2 of image$?."
+z 0,$1,100%,$2
+#@cli scale2x
+#@cli : Resize selected images using the Scale2x algorithm.
+#@cli : $ image.jpg threshold 50% resize 50%,50% +scale2x
+scale2x :
+e[^-1] "Double xy-dimensions of image$?, using Scale2x algorithm."
+foreach {
+r 200%,200%
+f "dx=x&1;dy=y&1;A=j(0,-2,0,0,0,1);B=j(2,0,0,0,0,1);C=j(-2,0,0,0,0,1);D=j(0,2,0,0,0,1);
+!dy*(!dx*if(C==A&&C!=D&&A!=B,A,i) + dx*if(A==B&&A!=C&&B!=D,B,i)) +
+dy*(dx*if(B==D&&B!=A&&D!=C,D,i) + !dx*if(D==C&&D!=B&&C!=A,C,i))"
+}
+#@cli scale3x
+#@cli : Resize selected images using the Scale3x algorithm.
+#@cli : $ image.jpg threshold 50% resize 33%,33% +scale3x
+scale3x :
+e[^-1] "Triple xy-dimensions of image$?, using Scale3x algorithm."
+foreach {
+r 300%,300%
+f "dx=x%3;dy=y%3;c0=!dx;c1=(dx==1);c2=(dx==2);
+A=j(-3,-3,0,0,0,1);B=j(0,-3,0,0,0,1);C=j(3,-3,0,0,0,1);
+D=j(-3,0,0,0,0,1);F=j(3,0,0,0,0,1);
+G=j(-3,3,0,0,0,1);H=j(0,3,0,0,0,1);I=j(3,3,0,0,0,1);
+!dy*(c0*if(D==B&&D!=H&&B!=F,D,i) + c1*if((D==B&&D!=H&&B!=F&&i!=C)||(B==F&&B!=D&&F!=H&&i!=A),B,i) +
+c2*if(B==F&&B!=D&&F!=H,F,i)) +
+(dy==1)*(c0*if((H==D&&H!=F&&D!=B&&i!=A)||(D==B&&D!=H&&B!=F&&i!=G),D,i) + c1*i +
+c2*if((B==F&&B!=D&&F!=H&&i!=I)||(F==H&&F!=B&&H!=D&&i!=C),F,i)) +
+(dy==2)*(c0*if(H==D&&H!=F&&D!=B,D,i) + c1*if((F==H&&F!=B&&H!=D&&i!=G)||(H==D&&H!=F&&D!=B&&i!=I),H,i) +
+c2*if(F==H&&F!=B&&H!=D,F,i))"
+}
+#@cli scale_dcci2x : _edge_threshold>=0,_exponent>0,_extend_1px={ 0=false | 1=true }
+#@cli : Double image size using directional cubic convolution interpolation,
+#@cli : as described in .
+#@cli : Default values: 'edge_threshold=1.15', 'exponent=5' and 'extend_1px=0'.
+#@cli : $ image.jpg +scale_dcci2x ,
+scale_dcci2x : check "${1=1.15}>=0 && ${2=5}>=0" skip ${3=0}
+e[^-1] "Double xy-dimensions of image$?, using DCCI2x algorithm."
+foreach {
+r {2*w-(!$3)},{2*h-(!$3)},1,100%,4
+f "begin(
+const threshold = $1;
+const exponent = $2;
+interpolation = 0;
+boundary = 1;
+j1(x,y) = P[7*y + x + 24];
+j2(x,y) = P[7*x - y + 24];
+interp(k) = -k#(-3,-3) + 9*k#(-1,-1) + 9*k#(1,1) - k#(3,3);
+d(k) = sum(abs([
+k#(-1,-3) - k#(-3,-1), k#(1,-3) - k#(-1,-1), k#(3,-3) - k#(1,-1),
+k#(-1,-1) - k#(-3,1), k#(1,-1) - k#(-1,1), k#(3,-1) - k#(1,1),
+k#(-1,1) - k#(-3,3), k#(1,1) - k#(-1,3), k#(3,1) - k#(1,3)
+]));
+);
+if (!((x*y)%2),i,
+ref(crop(x - 3,y - 3,0,c,7,7,1,1),P);
+d1 = d(j1);
+d2 = d(j2);
+ratio = (1 + d1)/(1 + d2);
+value = ratio>threshold ? interp(j1):
+ratio<(1/threshold) ? interp(j2):
+(w1 = 1/(1 + d1^exponent); w2 = 1/(1 + d2^exponent);
+(interp(j1)*w1 + interp(j2)*w2)/(w1 + w2));
+value/=16)"
+f "begin(
+const threshold = $1;
+const exponent = $2;
+interpolation = 0;
+boundary = 1;
+j1(x,y) = P[7*y + x + 24];
+j2(x,y) = P[7*x - y + 24];
+interp(k) = -k#(0,-3) + 9*k#(0,-1) + 9*k#(0,1) - k#(0,3);
+d(k) = sum(abs([
+k#(-1,-2) - k#(1,-2),
+k#(-2,-1) - k#(0,-1), k#(0,-1) - k#(2,-1),
+k#(-3,0) - k#(-1,0), k#(-1,0) - k#(1,0), k#(1,0) - k#(3,0),
+k#(-2,1) - k#(0,1), k#(0,1) - k#(2,1),
+k#(-1,2) - k#(1,2)
+]));
+);
+if ((x%2) + (y%2)!=1,i,
+ref(crop(x - 3,y - 3,0,c,7,7,1,1),P);
+d1 = d(j1);
+d2 = d(j2);
+ratio = (1 + d1)/(1 + d2);
+value = ratio>threshold ? interp(j1) :
+ratio<(1/threshold) ? interp(j2) :
+(w1 = 1/(1 + d1^exponent); w2 = 1/(1 + d2^exponent);
+(interp(j1)*w1 + interp(j2)*w2)/(w1 + w2));
+value/=16)"
+}
+#@cli seamcarve : _width[%]>=0,_height[%]>=0,_is_priority_channel={ 0 | 1 },_is_antialiasing={ 0 | 1 },_maximum_seams[%]>=0
+#@cli : Resize selected images with specified 2D geometry, using the seam-carving algorithm.
+#@cli : Default values: 'height=100%', 'is_priority_channel=0', 'is_antialiasing=1' and 'maximum_seams=25%'.
+#@cli : $ image.jpg seamcarve 60%
+seamcarve : check "${2=100%}>=0 && ${5=25%}>=0" skip ${3=0},${4=1}
+e[^-1] "Resize image$? to $1x$2 using seam-carving algorithm, "${arg0\ !$3,with,without}" priority channel, "${arg0\ !$4,with,without}" anti-aliasing and maximum seams $5."
+foreach {
+nw:=max(1,round(if(${is_percent\ $1},$1*w,$1)))
+nh:=max(1,round(if(${is_percent\ $2},$2*h,$2)))
+if $nw!=w _seamcarve $nw,$3,$4,$5 fi
+if $nh!=h transpose _seamcarve $nh,$3,$4,$5 transpose fi
+}
+_seamcarve :
+do
+max_seams:=max(1,round(if(${is_percent\ $4},$4*w,$4)))
+ssms:=max(min(round($1-w),w),1-w)
+sms:=min($max_seams,abs($ssms))
+if $2 s[0] c,{1-s} /. 256 fi
++gradient[0] a[-2,-1] c abs. compose_channels. + n. 0,1
+if $2 +. .. a[0,1] c fi
+if $3 100%,1,1,1,x r. [0],[0] a[0,-1] c fi
+.
+repeat h {
++rows. {$<+1} erode. 3
+j.. .,0,$<,0,0,-1 rm.
+}
+100%,100% +rows[1] 0
+=> grad,low,seam,top
+repeat h#0-1 { nr:=$>+1
++rows[low] $nr
++*[4,5] +shift[4] 1 *. [5] +shift[5] 1 *. [4]
++[-2,-1] j[5] [4] a[-3--1] c
+f. ">if(c,i,max(j(-1)+j(0,0,0,1),j(-2)+j(0,0,0,2)))"
+s. c shift... 1 +.. ... shift... 1 +[-3,-1]
+>[-2,-1] f. "
+a[-2,-1] c f. "j(i,0,0,-1)" channels. 1
++rows[grad] $nr +[top,-1]
+}
+max:=iM*2 repeat $sms { =. $max,{xm} }
+j[grad] .,0,100% rm[low,top] a[-2,-1] c
+f. "0
+-. 2 s[0] c
+repeat $s { if $><($s-1) . fi a[$>,-1] c }
+permute cxyz a c discard -1 f "if(i<0,j(0,-1),i)"
+r {$w+$sms},$h,1,$s,-1
+fi
+if $3
+s c,{1-s} g. x,1 round !=. 1
+(0.5,0.5) +convolve[0] . rm..
+j[0] .,0,0,0,0,1,[1] rm[-2,-1]
+fi
+rprogress {a=w/$1;if(a<1,a*100,100/a)}
+while w!=$1
+#@cli shift : vx[%],_vy[%],_vz[%],_vc[%],_boundary_conditions,_interpolation={ 0=nearest_neighbor | 1=linear } : (+)
+#@cli : Shift selected images by specified displacement vector.
+#@cli : Displacement vector can be non-integer in which case linear interpolation should be chosen.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default value: 'boundary_conditions=0' and 'interpolation=0'.
+#@cli : $ image.jpg +shift[0] 50%,50%,0,0,0 +shift[0] 50%,50%,0,0,1 +shift[0] 50%,50%,0,0,2
+#@cli shrink_x : size_x>=0
+#@cli : Shrink selected images along the x-axis.
+#@cli : $ image.jpg shrink_x 30
+shrink_x : check "$1>=0"
+e[^-1] "Shrink image$? along the x-axis with size $1."
+repeat $! { z[$>] $1,{$>,w-$1-1} }
+#@cli shrink_xy : size>=0
+#@cli : Shrink selected images along the xy-axes.
+#@cli : $ image.jpg shrink_xy 30
+shrink_xy : check "$1>=0"
+e[^-1] "Shrink image$? along the xy-axes with size $1."
+repeat $! { z[$>] $1,$1,{$>,w-$1-1},{$>,h-$1-1} }
+#@cli shrink_xyz : size>=0
+#@cli : Shrink selected images along the xyz-axes.
+shrink_xyz : check "$1>=0"
+e[^-1] "Shrink image$? along the xyz-axes with size $1."
+repeat $! { z[$>] $1,$1,$1,{$>,w-$1-1},{$>,h-$1-1},{$>,d-$1-1} }
+#@cli shrink_y : size_y>=0
+#@cli : Shrink selected images along the y-axis.
+#@cli : $ image.jpg shrink_y 30
+shrink_y : check "$1>=0"
+e[^-1] "Shrink image$? along the y-axis with size $1."
+repeat $! { z[$>] 0,$1,100%,{$>,h-$1-1} }
+#@cli shrink_z : size_z>=0
+#@cli : Shrink selected images along the z-axis.
+shrink_z : check "$1>=0"
+e[^-1] "Shrink image$? along the z-axis with size $1."
+repeat $! { z[$>] 0,0,$1,100%,100%,{$>,d-$1-1} }
+#@cli slices : z0[%],_z1[%]
+#@cli : Keep only specified slices of selected images.
+#@cli : Dirichlet boundary conditions are used when specified slices are out of range.
+#@cli : Default value: 'z1=z0'.
+slices : skip ${2=$1}
+e[^-1] "Keep slices $1...$2 of image$?."
+z 0,0,$1,100%,100%,$2
+#@cli sort : _ordering={ + | - },_axis={ x | y | z | c } : (+)
+#@cli : Sort pixel values of selected images.
+#@cli : If 'axis' is specified, the sorting is done according to the data of the first column/row/slice/channel
+#@cli : of selected images.
+#@cli : Default values: 'ordering=+' and 'axis=(undefined)'.
+#@cli : $ 64 rand 0,100 +sort display_graph 400,300,3
+#@cli s : eq. to 'split'. : (+)
+#@cli split : { x | y | z | c }...{ x | y | z | c },_split_mode : keep_splitting_values={ + | - },_{ x | y | z | c }...{ x | y | z | c },value1,_value2,... : (no arg) : (+)
+#@cli : Split selected images along specified axes, or regarding to a sequence of scalar values
+#@cli : (optionally along specified axes too).
+#@cli : (eq. to 's').\n
+#@cli : 'split_mode' can be { 0=split according to constant values | >0=split in N parts | <0=split in parts of size -N }.
+#@cli : Default value: 'split_mode=-1'.
+#@cli : $ image.jpg split c
+#@cli : $ image.jpg split y,3
+#@cli : $ image.jpg split x,-128
+#@cli : $ 1,20,1,1,"1,2,3,4" +split -,2,3 append[1--1] y
+#@cli : $ (1,2,2,3,3,3,4,4,4,4) +split x,0 append[1--1] y
+#@cli split_tiles : M!=0,_N!=0,_is_homogeneous={ 0 | 1 }
+#@cli : Split selected images as a MxN array of tiles.
+#@cli : If M or N is negative, it stands for the tile size instead.
+#@cli : Default values: 'N=M' and 'is_homogeneous=0'.
+#@cli : $ image.jpg +local split_tiles 5,4 blur 3,0 sharpen 700 append_tiles 4,5 done
+split_tiles : skip ${2=$1},${3=0}
+if $3 e[^-1] "Split image$? as a $1x$2 array of homogeneous tiles."
+else e[^-1] "Split image$? as a $1x$2 array of tiles."
+fi
+foreach { nm={n} s y,$2 s x,$1 if $3 r [0],[0],100%,100%,0 fi =>[^] $nm }
+#@cli undistort : -1<=_amplitude<=1,_aspect_ratio,_zoom,_center_x[%],_center_y[%],_boundary_conditions
+#@cli : Correct barrel/pincushion distortions occurring with wide-angle lens.
+#@cli : References:
+#@cli : [1] Zhang Z. (1999). Flexible camera calibration by viewing a plane from unknown orientation.
+#@cli : [2] Andrew W. Fitzgibbon (2001). Simultaneous linear estimation of multiple view geometry and lens distortion.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default values: 'amplitude=0.25', 'aspect_ratio=0', 'zoom=0', 'center_x=center_y=50%' and 'boundary_conditions=0'.
+undistort : check "${1=0.1}>=-1 && $1<=1 && ${6=0}>=0 && $6<=3" skip ${2=0},${3=0},${4=50%},${5=50%}
+e[^-1] "Undistort barrel/pincushion effect in image$?, with amplitude $1, aspect ratio $2, zoom factor $3,
+center ($4,$5) and "${"arg0 $6,dirichlet,neumann,periodic,mirror"}" boundary conditions."
+foreach {
+center_x:=${"is_percent $4"}?w*$4:$4
+center_y:=${"is_percent $5"}?h*$5:$5
+f "
+const interpolation = 1;
+const boundary = $6;
+const center_x = "$center_x";
+const center_y = "$center_y";
+const alpha = cut($1,-0.999,0.999);
+const ratio = $2>=0?1+$2:1/(1-$2);
+const zoom = $3>=0?1+$3:1/(1-$3);
+const M = max(w,h);
+x = 2*(x - center_x)/(zoom*ratio*M);
+y = 2*(y - center_y)/(zoom*M);
+r = norm(x,y);
+nr = r/(1 - alpha*r^2);
+if (r>0,
+nx = nr/r*x; ny = nr/r*y,
+nx = x; ny = y
+);
+x = 0.5*nx*ratio*M + center_x;
+y = 0.5*ny*M + center_y;
+I(x,y)"
+}
+#@cli y : eq. to 'unroll'. : (+)
+#@cli unroll : _axis={ x | y | z | c } : (+)
+#@cli : Unroll selected images along specified axis.
+#@cli : (eq. to 'y').
+#@cli : Default value: 'axis=y'.
+#@cli : $ (1,2,3;4,5,6;7,8,9) +unroll y
+#@cli upscale_smart : width[%],_height[%],_depth,_smoothness>=0,_anisotropy=[0,1],sharpening>=0
+#@cli : Upscale selected images with an edge-preserving algorithm.
+#@cli : Default values: 'height=100%', 'depth=100%', 'smoothness=2', 'anisotropy=0.4' and 'sharpening=10'.
+#@cli : $ image.jpg resize2dy 100 +upscale_smart 500%,500% append x
+upscale_smart : skip ${2=100%},${3=100%} check "${4=2}>=0 && ${5=0.4}>=0 && $5<=1 && ${6=10}>=0"
+e[^-1] "Upscale image$? to $1x$2x$3, with smoothness $4, anisotropy $5 and sharpening $6."
+foreach {
+w,h:=[w,h]
++r. $1,$2,$3,1,0
+if w<$w" && "h<$h
+rm. r. $1,$2,$3,100%,2
+else
+rm. +diffusiontensors 0,$5,1.2,1.2
+r[-2,-1] $1,$2,$3,100%,5
+smooth.. .,$4 rm.
+ac "sharpen. $6,10",ycbcr_y
+fi
+}
+#@cli volumetric2d : _x[%],_y[%],_z[%],_separator_size>=0
+#@cli : Convert selected 3D volumetric images into a 2D representation.
+#@cli : Default values: 'x=y=z=50%' and 'separator_size=0'.
+#@cli : $ image.jpg resize2dx 64 animate noise,0,100,50 cut 0,255 append z volumetric2d 50%,50%,50%,1
+volumetric2d : skip ${1=50%},${2=50%},${3=50%} check "isint(${4=0}) && $4>=0"
+e[^-1] "Convert 3D volumetric image$? into a 2D representation, with coordinates (${1-3}) and separator size $4."
+foreach { nm={n}
++slices. $3
+if $4 1,$4 else 0 fi +rows... $2 permute. xzyc a[-3--1] y
+if $4 $4 else 0 fi +columns... $1 permute. zyxc a[-3--1] x
+rm.. => $nm
+}
+#@cli :: Filtering
+#@cli bandpass : _min_freq[%],_max_freq[%]
+#@cli : Apply bandpass filter to selected images.
+#@cli : Default values: 'min_freq=0' and 'max_freq=20%'.
+#@cli : $ image.jpg bandpass 1%,3%
+#@cli : $$ https://gmic.eu/oldtutorial/_bandpass
+bandpass : skip ${1=0},${2=20%}
+e[^-1] "Apply bandpass filter [$1,$2] to image$?."
+foreach {
+100%,100%,100% f. "sqrt((x/w-0.5)^2 + (y/h-0.5)^2 + (z/d-0.5)^2)"
+n. 0,1 ir. $1,$2 shift. {int(w/2)},{int(h/2)},{int(d/2)},0,2
+fft.. *... . *[-2,-1] ifft rm.
+}
+#@cli bilateral : [guide],std_deviation_s[%]>=0,std_deviation_r[%]>=0,_sampling_s>=0,_sampling_r>=0 : std_deviation_s[%]>=0,std_deviation_r[%]>=0,_sampling_s>=0,_sampling_r>=0 : (+)
+#@cli : Blur selected images by anisotropic (eventually joint/cross) bilateral filtering.
+#@cli : If a guide image is provided, it is used for drive the smoothing filter.
+#@cli : A guide image must be of the same xyz-size as the selected images.
+#@cli : Set 'sampling' arguments to '0' for automatic adjustment.
+#@cli : $ image.jpg repeat 5 { bilateral 10,10 }
+#@cli b : eq. to 'blur'. : (+)
+#@cli blur : std_deviation>=0[%],_boundary_conditions,_kernel : axes,std_deviation>=0[%],_boundary_conditions,_kernel : (+)
+#@cli : Blur selected images by a deriche or gaussian filter (recursive implementation).
+#@cli : (eq. to 'b').\n
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : 'kernel' can be { 0=deriche | 1=gaussian }.
+#@cli : When specified, argument 'axes' is a sequence of { x | y | z | c }.
+#@cli : Specifying one axis multiple times apply also the blur multiple times.
+#@cli : Default values: 'boundary_conditions=1' and 'kernel=1'.
+#@cli : $ image.jpg +blur 5,0 +blur[0] 5,1
+#@cli : $ image.jpg +blur y,10%
+#@cli : $$ https://gmic.eu/oldtutorial/_blur
+#@cli blur_angular : amplitude[%],_center_x[%],_center_y[%]
+#@cli : Apply angular blur on selected images.
+#@cli : Default values: 'center_x=center_y=50%'.
+#@cli : $ image.jpg blur_angular 2%
+#@cli : $$ https://gmic.eu/oldtutorial/_blur_angular
+blur_angular : skip ${2=50%},${3=50%}
+e[^-1] "Apply angular blur on image$?, with amplitude $1 and center point ($2,$3)."
+euclidean2polar $2,$3,1.3,1
+foreach { 1,100% =. 1,50%,50% b. y,$1 convolve_fft.. . rm. }
+polar2euclidean $2,$3,1.3,1
+#@cli blur_bloom : _amplitude>=0,_ratio>=0,_nb_iter>=0,_blend_operator={ + | max | min },_kernel={ 0=deriche | 1=gaussian | 2=box | 3=triangle | 4=quadratic },_normalize_scales={ 0 | 1 },_axes
+#@cli : Apply a bloom filter that blend multiple blur filters of different radii,
+#@cli : resulting in a larger but sharper glare than a simple blur.
+#@cli : When specified, argument 'axes' is a sequence of { x | y | z | c }.
+#@cli : Specifying one axis multiple times apply also the blur multiple times.
+#@cli : Reference: Masaki Kawase, "Practical Implementation of High Dynamic Range Rendering", GDC 2004.
+#@cli : Default values: 'amplitude=1', 'ratio=2', 'nb_iter=5', 'blend_operator=+', 'kernel=1', 'normalize_scales=0' and 'axes=(all)'
+#@cli : $ image.jpg blur_bloom ,
+blur_bloom : check "${1=1}>=0 && ${2=2}>=0 && isint(${3=5}) && $3>=0 && isint(${5=1}) && $5>=0 && $5<=4 &&
+isnum(${6=0})" skip "${4=+},${7=}"
+e[^-1] "Apply bloom effect on image$?, with amplitude $1, ratio $2, $3 iterations, blend operator '$4' and "${"arg0 !$6,\"\",\"no \""}"scale normalization."
+if narg("$7") axes=$7, fi
+m "_bloom0 : b "$axes"$""1"
+m "_bloom1 : b "$axes"$""1,1,1"
+m "_bloom2 : boxfilter "$axes"{1+2*$""1},0,1"
+m "_bloom3 : boxfilter "$axes"{1+2*$""1},0,1,2"
+m "_bloom4 : boxfilter "$axes"{1+2*$""1},0,1,3"
+foreach {
+nm={n} mM:=[im,iM]
+[0] repeat $3 {
+sigma:=$1*($2^$>) +_bloom$5[0] $sigma
+if $6 n. $mM fi
+-$4[1,-1]
+}
+n. $mM k. => $nm
+}
+um _bloom0,_bloom1,_bloom2,_bloom3,_bloom4
+#@cli blur_linear : amplitude1[%],_amplitude2[%],_angle,_boundary_conditions={ 0=dirichlet | 1=neumann }
+#@cli : Apply linear blur on selected images, with specified angle and amplitudes.
+#@cli : Default values: 'amplitude2=0', 'angle=0' and 'boundary_conditions=1'.
+#@cli : $ image.jpg blur_linear 10,0,45
+#@cli : $$ https://gmic.eu/oldtutorial/_blur_linear
+blur_linear : skip ${2=0},${3=0},${4=1}
+e[^-1] "Apply linear blur on image$?, with angle $3 deg. and amplitudes ($1,$2)."
+std1:=${is_percent\ $1}?$1*max(w,h):$1
+std2:=${is_percent\ $2}?$2*max(w,h):$2
+stdM:=round(1.25*max($std1,$std2))
+if $stdM<=0 return fi
+foreach {
+expand_xy $stdM,{$4!=0}
+{s=2*$stdM;[s,s]} gaussian. $1,$2,$3 normalize_sum.
+convolve_fft[0] [1] rm. shrink_xy $stdM
+}
+#@cli blur_radial : amplitude[%],_center_x[%],_center_y[%]
+#@cli : Apply radial blur on selected images.
+#@cli : Default values: 'center_x=center_y=50%'.
+#@cli : $ image.jpg blur_radial 2%
+#@cli : $$ https://gmic.eu/oldtutorial/_blur_radial
+blur_radial : skip ${2=50%},${3=50%}
+e[^-1] "Apply radial blur on image$?, with amplitude $1 and center point ($2,$3)."
+euclidean2polar $2,$3,5,1 blur_x $1 polar2euclidean $2,$3,5,1
+#@cli blur_selective : sigma>=0,_edges>0,_nb_scales>0
+#@cli : Blur selected images using selective gaussian scales.
+#@cli : Default values: 'sigma=5', 'edges=0.5' and 'nb_scales=5'.
+#@cli : $ image.jpg noise 20 cut 0,255 +local[-1] repeat 4 { blur_selective , } done
+#@cli : $$ https://gmic.eu/oldtutorial/_blur_selective
+blur_selective : check "${1=5}>=0 && ${2=0.5}>=0 && isint(${3=5}) && $3>0"
+e[^-1] "Blur image$? using $3 selective gaussian scales, with sigma $1 and edges $2."
+foreach {
+nm={n}
++gradient_norm +. 1 ^. {-max(0.01,$2)} quantize. {$3+1},0,1 min. {$3-1} ri. ..
+repeat $3 { +==. $> *. ... +[-2,-1] b.. {$1/($3+1)} }
+rm.. => $nm
+}
+#@cli blur_x : amplitude[%]>=0,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Blur selected images along the x-axis.
+#@cli : Default value: 'boundary_conditions=1'.
+#@cli : $ image.jpg +blur_x 6
+#@cli : $$ https://gmic.eu/oldtutorial/_blur_x
+blur_x : check "isint(${2=1}) && inrange($2,0,3)"
+e[^-1] "Blur image$? along the x-axis, with sigma $1 and "${arg0\ !$2,neumann,dirichlet}" boundary conditions."
+deriche $1,0,x,$2
+#@cli blur_xy : amplitude_x[%],amplitude_y[%],_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Blur selected images along the X and Y axes.
+#@cli : Default value: 'boundary_conditions=1'.
+#@cli : $ image.jpg +blur_xy 6
+#@cli : $$ https://gmic.eu/oldtutorial/_blur_y
+blur_xy : skip ${2=$1} check "isint(${3=1}) && inrange($3,0,3)"
+e[^-1] "Blur image$? along the xy-axes, with sigma $1 and "${arg0\ !$2,neumann,dirichlet}" boundary conditions."
+deriche $1,0,x,$3 deriche $2,0,y,$3
+#@cli blur_xyz : amplitude_x[%],amplitude_y[%],amplitude_z,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Blur selected images along the X, Y and Z axes.
+#@cli : Default value: 'boundary_conditions=1'.
+#@cli : $$ https://gmic.eu/oldtutorial/_blur_xyz
+blur_xyz : skip ${2=$1},${3=$1} check "isint(${4=1}) && inrange($4,0,3)"
+e[^-1] "Blur image$? along the xyz-axes, with sigma $1 and "${arg0\ !$2,neumann,dirichlet}" boundary conditions."
+deriche $1,0,x,$4 deriche $2,0,y,$4 deriche $3,0,z,$4
+#@cli blur_y : amplitude[%]>=0,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Blur selected images along the y-axis.
+#@cli : Default value: 'boundary_conditions=1'.
+#@cli : $ image.jpg +blur_y 6
+#@cli : $$ https://gmic.eu/oldtutorial/_blur_y
+blur_y : check "isint(${2=1}) && inrange($2,0,3)"
+e[^-1] "Blur image$? along the y-axis, with sigma $1 and "${arg0\ !$2,neumann,dirichlet}" boundary conditions."
+deriche $1,0,y,$2
+#@cli blur_z : amplitude[%]>=0,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Blur selected images along the z-axis.
+#@cli : Default value: 'boundary_conditions=1'.
+#@cli : $$ https://gmic.eu/oldtutorial/_blur_z
+blur_z : check "isint(${2=1}) && inrange($2,0,3)"
+e[^-1] "Blur image$? along the z-axis, with sigma $1 and "${arg0\ !$2,neumann,dirichlet}" boundary conditions."
+deriche $1,0,z,$2
+#@cli boxfilter : size>=0[%],_order,_boundary_conditions,_nb_iter>=0 : axes,size>=0[%],_order,_boundary_conditions,_nb_iter>=0 : (+)
+#@cli : Blur selected images by a box filter of specified size (fast recursive implementation).
+#@cli : 'order' can be { 0=smooth | 1=1st-derivative | 2=2nd-derivative }.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : When specified, argument 'axes' is a sequence of { x | y | z | c }.
+#@cli : Specifying one axis multiple times apply also the blur multiple times.
+#@cli : Default values: 'order=0', 'boundary_conditions=1' and 'nb_iter=1'.
+#@cli : $ image.jpg +boxfilter 5%
+#@cli : $ image.jpg +boxfilter y,3,1
+#@cli bump2normal
+#@cli : Convert selected bumpmaps to normalmaps.
+#@cli : $ 300,300 circle 50%,50%,128,1,1 blur 5% bump2normal
+bump2normal :
+e[^-1] "Convert bumpmap$? to normalmap."
+foreach {
+channels 0 g xy,1 +f. 1 a c orientation
+* 127 + 128 round c 0,255
+}
+#@cli closing : size>=0 : size_x>=0,size_y>=0,_size_z>=0 : [kernel],_boundary_conditions,_is_real={ 0=binary-mode | 1=real-mode }
+#@cli : Apply morphological closing to selected images.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default values: 'size_z=1', 'boundary_conditions=1' and 'is_real=0'.
+#@cli : $ image.jpg +closing 10
+closing : skip "${2=},${3=}"
+boundary,is_kernel,sel=1,0,^
+if "isnum($1)"
+if "['$2']==0 && ['$3']==0"
+sx,sy,sz=$1
+e[0--4] "Apply morphological closing to image$?, with kernel of size "$sx"."
+else
+sx=$1
+if ['$2']==0 sy=1 else sy=$2 fi
+if ['$3']==0 sz=1 else sz=$3 fi
+e[0--4] "Apply morphological closing to image$?, with "${sx}"x"${sy}"x"${sz}" kernel."
+fi
+elif ${"is_image_arg $1"}" && narg("${"pass$1 -1"}")==1"
+pass$1
+sx,sy,sz:=[w,h,d]
+is_kernel,sel,r0,r1,b0,b1,b2,b3=1,^-1,binary,real,dirichlet,neumann,periodic,mirror
+is_real=0
+if ['$2']!=0 boundary:=cut($2,0,3) fi
+if ['$3']!=0 is_real=$3 fi
+e[0--3] "Apply morphological closing to image$? with kernel ["${"pass$1 -1"}"] and "${b$boundary}" boundary ""conditions, in "${r$is_real}" mode."
+else error[0--3] "Command 'closing': Invalid arguments '$*'."
+fi
+if $sx>0||$sy>0||$sz>0
+sx1,sx2:="s=int(($sx-1)/2);[s,$sx-s-1]"
+sy1,sy2:="s=int(($sy-1)/2);[s,$sy-s-1]"
+sz1,sz2:="s=int(($sz-1)/2);[s,$sz-s-1]"
+foreach[$sel] {
+nm={n}
+if d>1
+r {[w+$sx+1,h+$sy+1,d+$sz+1]},100%,0,$boundary,0.5,0.5,0.5
+if $is_kernel pass. dilate.. .,0,$is_real erode.. .,0,$is_real rm.
+else dilate $sx,$sy,$sz erode $sx,$sy,$sz
+fi
+z {$sx1+1},{$sy1+1},{$sz1+1},{w-$sx2-2},{h-$sy2-2},{d-$sz2-2} => $nm
+elif h>1
+r {[w+$sx+1,h+$sy+1]},1,100%,0,$boundary,0.5,0.5
+if $is_kernel pass. dilate.. .,0,$is_real erode.. .,0,$is_real rm.
+else dilate $sx,$sy erode $sx,$sy
+fi
+z {$sx1+1},{$sy1+1},{w-$sx2-2},{h-$sy2-2} => $nm
+else
+r {w+$sx+1},1,1,100%,0,$boundary,0.5
+if $is_kernel pass. dilate.. .,0,$is_real erode.. .,0,$is_real rm.
+else dilate $sx,1 erode $sx,1
+fi
+z {$sx1+1},{w-$sx2-2} => $nm
+fi
+}
+fi
+if $is_kernel rm. fi
+#@cli closing_circ : _size>=0,_is_real={ 0 | 1 }
+#@cli : Apply circular dilation of selected images by specified size.
+#@cli : Default values: 'boundary_conditions=1' and 'is_real=0'.
+#@cli : $ image.jpg +closing_circ 7
+closing_circ : check "$1>=0 && isbool(${2=0})"
+r0,r1=binary,real
+e[^-1] "Apply morphologicel closing of image$? by circular kernel of size $1, in "${r$2}" mode."
+if $1<2 return fi
+shape_circle $1 closing[^-1] .,$2 rm.
+#@cli compose_freq
+#@cli : Compose selected low and high frequency parts into new images.
+#@cli : $ image.jpg split_freq 2% mirror[-1] x compose_freq
+compose_freq :
+e[^-1] "Compose low and high frequency part$? into new images."
+repeat int($!/2) { +[$>,{$>+1}] }
+#@cli convolve : [mask],_boundary_conditions,_is_normalized={ 0 | 1 },_channel_mode,_xcenter,_ycenter,_zcenter,_xstart,_ystart,_zstart,_xend,_yend,_zend,_xstride,_ystride,_zstride,_xdilation,_ydilation,_zdilation,interpolation_type : (+)
+#@cli : Convolve selected images by specified mask.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : 'channel_mode' can be { 0=all | 1=one-for-one | 2=partial sum | 3=full sum }.
+#@cli : 'interpolation_type' can be { 0=nearest-neighbor | 1=linear }.
+#@cli : Default values: 'boundary_conditions=1', 'is_normalized=0', 'channel_mode=1', 'xcenter=ycenter=zcenter=(undefined)', 'xstart=ystart=zstart=0', 'xend=yend=zend=(max-coordinates)', 'xstride=ystride=zstride=1', 'xdilation=ydilation=zdilation=1' and 'interpolation_type=0'.
+#@cli : $ image.jpg (0,1,0;1,-4,1;0,1,0) convolve[-2] [-1] keep[-2]
+#@cli : $ image.jpg (0,1,0) resize[-1] 130,1,1,1,3 +convolve[0] [1]
+#@cli : $$ https://gmic.eu/oldtutorial/_convolve
+#@cli convolve_fft : [mask],_boundary_conditions
+#@cli : Convolve selected images with specified mask, in the fourier domain.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : $ image.jpg 100%,100% gaussian[-1] 20,1,45 +convolve_fft[0] [1]
+convolve_fft : check ${is_image_arg\ $1}" && isin(${2=2},0,1,2,3)"
+e[^-1] "Convolve image$? with mask $1, in the fourier domain."
+pass$1 store. kernel
+foreach {
+if w
+w0,h0,d0:=[w,h,d]
+$kernel
+if $2!=2 r[0] {[w#0,h#0,d#0]+2*round([w#1>1?w#1:0,h#1>1?h#1:0,d#1>1?d#1:0]/2)},100%,0,$2,0.5,0.5 fi
+r ${-max_whd},100%,0,0,0.5,0.5 r 100%,100%,100%,${-max_s}
+fft[1] fft[0]
++*[1,2] +*[0,3] +[-2,-1] *[1,3] *[0,2] -[0,1]
+ifft rm.
+shift {-int(([w,h,d]-1)/2)},0,2
+r $w0,$h0,$d0,100%,0,0,0.5,0.5
+fi
+}
+#@cli correlate : [mask],_boundary_conditions,_is_normalized={ 0 | 1 },_channel_mode,_xcenter,_ycenter,_zcenter,_xstart,_ystart,_zstart,_xend,_yend,_zend,_xstride,_ystride,_zstride,_xdilation,_ydilation,_zdilation,interpolation_type : (+)
+#@cli : Correlate selected images by specified mask.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : 'channel_mode' can be { 0=all | 1=one-for-one | 2=partial sum | 3=full sum }.
+#@cli : 'interpolation_type' can be { 0=nearest-neighbor | 1=linear }.
+#@cli : Default values: 'boundary_conditions=1', 'is_normalized=0', 'channel_mode=1', 'xcenter=ycenter=zcenter=-1', 'xstart=ystart=zstart=0', 'xend=yend=zend=(max-coordinates)', 'xstride=ystride=zstride=1', 'xdilation=ydilation=zdilation=1' and 'interpolation_type=0'.
+#@cli : $ image.jpg (0,1,0;1,-4,1;0,1,0) correlate[-2] [-1] keep[-2]
+#@cli : $ image.jpg +crop 40%,40%,60%,60% +correlate[0] [-1],0,1
+#@cli cross_correlation : [mask]
+#@cli : Compute cross-correlation of selected images with specified mask.
+#@cli : $ image.jpg +shift -30,-20 +cross_correlation[0] [1]
+cross_correlation : check ${is_image_arg\ $1}
+e[^-1] "Compute cross-correlation of image$? with mask $1."
+repeat $! {
+pass$1 0 l[$>,-1] {
+norm fft.. fft. [-2,-1] *.. [-5] *. [-6]
+-[-2,-1] *[-5,-3] *[-3,-2] +[-3,-2] ifft rm.
+}
+}
+#@cli curvature
+#@cli : Compute isophote curvatures on selected images.
+#@cli : $ image.jpg blur 10 curvature
+curvature :
+e[^-1] "Compute isophote curvatures on image$?."
+foreach {
+if d==1
++g xy,0 hessian... xxxyyy
+*... .. *[-4] . *[-4] -2
++[-4,-3] *... ..
+sqr[-2,-1] *[-4] . +[-4,-3]
++[-2,-1] +. 0.1 ^. 1.5 /
+else
++inn +gradient_norm.. laplacian...
+-[-3,-2] +. 0.1 /[-2,-1]
++inn. laplacian.. -
+fi
+}
+#@cli dct : _{ x | y | z }...{ x | y | z } : (no arg)
+#@cli : Compute the discrete cosine transform of selected images, optionally along the specified axes only.
+#@cli : Output images are always evenly sized, so this command may change the size of the selected images.
+#@cli : Default values: (no arg)
+#@cli : See also: ''idct''.
+#@cli : $ image.jpg +dct +idct[-1] abs[-2] +[-2] 1 log[-2]
+#@cli : $$ https://gmic.eu/oldtutorial/_dct-and-idct
+dct : skip ${1=0}
+('"$1"')
+is_axes:="im>=_'x' && iM<=_'z'"
+if $is_axes
+e[0--3] "Compute discrete cosine transform of image$? along axes '$1'."
+repeat w {
+axis:=i[$>]
+if $axis==_'x' foreach[^-1] { if w>1 _dct fi }
+elif $axis==_'y' foreach[^-1] { if h>1 permute yxzc _dct permute yxzc fi }
+elif $axis==_'z' foreach[^-1] { if d>1 permute zxyc _dct permute yzxc fi }
+fi
+}
+rm.
+else
+rm.
+e[0--3] "Compute discrete cosine transform of image$?."
+noarg
+foreach {
+if w>1 _dct fi
+if h>1 permute yxzc _dct permute yxzc fi
+if d>1 permute zxyc _dct permute yzxc fi
+}
+fi
+_dct :
+if w%2 r {w+1},100%,100%,100%,0,1 fi
+s x l[1--1:2] { a x mirror x } mv[1] $! a x
+fft x
+100%,1,1,1,2*cos(-x*pi/(2*w)) *[0,2]
+100%,1,1,1,2*sin(-x*pi/(2*w)) *[1,2]
+-
++z[0] 0,0 /. {sqrt(2)} j.. .,0,0,0 rm. * {sqrt(2/w)}
+#@cli deblur : amplitude[%]>=0,_nb_iter>=0,_dt>=0,_regul>=0,_regul_type={ 0=Tikhonov | 1=meancurv. | 2=TV }
+#@cli : Deblur image using a regularized Jansson-Van Cittert algorithm.
+#@cli : Default values: 'nb_iter=10', 'dt=20', 'regul=0.7' and 'regul_type=1'.
+#@cli : $ image.jpg blur 3 +deblur 3,40,20,0.01
+deblur : check "${2=10}>=0 && ${3=20}>=0 && ${4=0.7}>=0" skip ${5=1}
+e[^-1] "Deblur image$? with a regularized Jansson-Van Cittert algorithm, with sigma $1, $2 iterations,
+time step $3 and regularization $4."
+foreach {
+nm={n}
+[0]
+repeat $2 {
+if $5>=2 +curvature.
+elif $5>=1 +iee.
+else +laplacian.
+fi
+*. $4
++b.. $1 -. [-4]
+-[-2,-1]
+*. {$3/(0.0001+max(abs(im),abs(iM)))}
++[-2,-1]
+}
+rm..
+=> $nm }
+#@cli deblur_goldmeinel : sigma>=0,_nb_iter>=0,_acceleration>=0,_kernel_type={ 0=deriche | 1=gaussian }.
+#@cli : Deblur selected images using Gold-Meinel algorithm
+#@cli : Default values: 'nb_iter=8', 'acceleration=1' and 'kernel_type=1'.
+#@cli : $ image.jpg +blur 1 +deblur_goldmeinel[-1] 1
+deblur_goldmeinel : check "$1>=0 && ${2=8}>=0 && ${3=1}>=0" skip ${4=1}
+e[^-1] "Deblur image$? using Gold-Meinel algorithm, with sigma $1, $2 iterations, acceleration $3 and "${arg0\ !$4,"",quasi-}"gaussian kernel."
+foreach {
+[0] repeat $2 {
++b. $1,1,$4 +/[0,-1] rm.. ^. $3 *[-1,-2]
+} rm[0]
+}
+#@cli deblur_richardsonlucy : sigma>=0, nb_iter>=0, _kernel_type={ 0=deriche | 1=gaussian }.
+#@cli : Deblur selected images using Richardson-Lucy algorithm.
+#@cli : Default values: 'nb_iter=50' and 'kernel_type=1'.
+#@cli : $ image.jpg +blur 1 +deblur_richardsonlucy[-1] 1
+deblur_richardsonlucy : check "$1>=0 && ${2=50}>=0" skip ${3=1}
+e[^-1] "Deblur image$? using Richardson-Lucy algorithm, with sigma $1, $2 iterations and "${arg0\ !$3,"",quasi-}"gaussian kernel."
+foreach {
+[0] repeat $2 {
++b. $1,1,{$3!=0} max. 1e-6 +/[0,-1] rm.. b. $1,1,{$3!=0} *[-1,-2]
+} rm[0]
+}
+#@cli deconvolve_fft : [kernel],_regularization>=0
+#@cli : Deconvolve selected images by specified mask in the fourier space.
+#@cli : Default value: 'regularization>=0'.
+#@cli : $ image.jpg +gaussian 5 +convolve_fft[0] [1] +deconvolve_fft[-1] [1]
+deconvolve_fft : check ${is_image_arg\ $1}" && ${2=.001}>=0"
+e[^-1] "Deconvolve image$? with mask $1 and regularization $2, in the fourier domain."
+repeat $! { pass$1 0 l[$>,-1] {
+w2,h2,d2={0,int([w,h,d]/2)}
+r[1] [0],[0],[0],1,0,0,0.5,0.5,0.5,0.5 shift[1] -$w2,-$h2,-$d2,0,2
+fft[0] fft[2]
++l[-1,-2] { sqr + + $2 }
++*[-4] ...
++*[-6] ...
+-[-2,-1]
+*[-6,-4]
+*[-4,-3]
++[-4,-3]
+/. .. /[-3,-2]
+ifft rm.
+} }
+#@cli deinterlace : _method={ 0 | 1 }
+#@cli : Deinterlace selected images ('method' can be { 0=standard or 1=motion-compensated }).
+#@cli : Default value: 'method=0'.
+#@cli : $ image.jpg +rotate 3,1,1,50%,50% resize 100%,50% resize 100%,200%,1,3,4 shift[-1] 0,1 add +deinterlace 1
+deinterlace : skip ${1=0}
+e[^-1] "Deinterlace image$? with "${arg0\ !$1,motion-compensated,standard}" method."
+foreach {
+wh:=[w,h]
+s y a[0--1:2] y a[^0] y ri.. .,0 r 100%,200%,1,100%,5
+if $1!=0 +displacement. ..,0.05 warp... .,1,1,1 rm. fi
++ / 2 c 0,255 r $wh
+}
+#@cli denoise : [guide],std_deviation_s[%]>=0,_std_deviation_r[%]>=0,_patch_size>0,_lookup_size>0,_smoothness,_fast_approx={ 0 | 1 } : std_deviation_s[%]>=0,_std_deviation_r[%]>=0,_patch_size>0,_lookup_size>0,_smoothness,_fast_approx={ 0 | 1 } : (+)
+#@cli : Denoise selected images by non-local patch averaging.
+#@cli : Default values: 'std_deviation_p=10', 'patch_size=5', 'lookup_size=6' and 'smoothness=1'.
+#@cli : $ image.jpg +denoise 5,5,8
+#@cli denoise_haar : _threshold>=0,_nb_scales>=0,_cycle_spinning>0
+#@cli : Denoise selected images using haar-wavelet thresholding with cycle spinning.
+#@cli : Set 'nb_scales==0' to automatically determine the optimal number of scales.
+#@cli : Default values: 'threshold=1.4', 'nb_scale=0' and 'cycle_spinning=10'.
+#@cli : $ image.jpg noise 20 cut 0,255 +denoise_haar[-1] 0.8
+denoise_haar : check "${1=1.4}>=0 && isint(${2=0}) && $2>=0 && isint(${3=10}) && $3>0"
+e[^-1] "Denoise image$? using haar-wavelet thresholding, with threshold $1, "${arg0\ ($2>0),auto,$2}" scales and $3 spinning cycles."
+foreach {
+nm={n} nb_scales:=min(if($2,$2,32),int(log2(min(w,h))-1)) w,h,d:=[w,h,d] sigma=${-std_noise}
+r {round(w,2^($nb_scales+1),1)},{round(h,2^($nb_scales+1),1)},{if(d==1,1,round(d,2^($nb_scales+1),1))},100%,0,0
++f 0
+repeat $3 {
+dx:=round(u(0,{4*$nb_scales}))
+dy:=round(u(0,{4*$nb_scales}))
+dz:=$d==1?0:round(u(0,{4*$nb_scales}))
++shift[0] $dx,$dy,$dz,0,2
+haar. $nb_scales
+threshold. {$1*$sigma},1
+ihaar. $nb_scales
+shift. {-$dx},{-$dy},{-$dz},0,2
++[-2,-1]
+}
+rm[0] / $3 r $w,$h,$d,100%,0
+=> $nm }
+#@cli denoise_cnn : _noise_type={ 0=soft | 1=heavy | 2=heavy (faster) | 3=poisson+gaussian | 4=poisson+gaussian2 },_patch_size>0
+#@cli : Denoise selected images using a convolutional neural network (CNN).
+#@cli : Input value range should be [0,255]. Output value range is [0,255].
+#@cli : Default value: 'patch_size=64'.
+#@cli : $ image.jpg noise 20 cut 0,255 +denoise_cnn
+denoise_cnn : skip "${1=0},${2=64}"
+N=$!
+if isint($1)" && "inrange($1,0,4) check "isint($2) && $2>0" type=$1 else type=0 noarg fi
+s0,s1,s2,s3,s4=soft,heavy,heavy,poisson+gaussian,poisson+gaussian2
+e[^-1] "Denoise image$? using a convolutional neural network (for "${s$type}"-noise), with patch size $2."
+if 0${_is_denoise_cnn_$type} ${_denoise_cnn_$type}
+else l[] {
+l[] {
+input_cached gmic_denoise_cnn.gmz
+onfail error[0--5] "Command 'denoise_cnn': Unable to load network file 'gmic_denoise_cnn.gmz'."
+}
+k[$type] unserialize +store _denoise_cnn_$type _is_denoise_cnn_$type=1
+} fi
+ps=$2
+replace_str. "nn_layer_","nn_"
+replace_str. "nn_input X,32,32,1,3","nn_input X,"$ps","$ps",1,3"
+if $1==0
+replace_str. "nn_crop OUT,OUT0,2,2,0,29,29,0","nn_crop OUT,OUT0,2,2,0,0,29,29,0,2"
+elif inrange($1,1,4)
+replace_str. "nn_crop OUT,OUT0,2,2,0,29,29,0","nn_crop OUT,OUT0,2,2,0,0,29,29,0,2"
+replace_str. ",1,1,0 ",",1,1,0,1,0 "
+replace_str. ",1,1,1 ",",1,1,0,1,1 "
+fi
+run {t} rm[-2,-1]
+repeat $N { l[$>,$N--1] {
+w,h:=w#0,h#0 to_color[0]
+if $type==3 srgb2rgb[0]
+elif $type==4 srgb2rgb[0] /[0] 255
+fi
+img2patches[0] $ps,6,3
+1,1,{0,d},1,*${-nn_lib}"X = crop(#0,0,0,z,0,$ps,$ps,1,3);"${_nn_forward}"draw(#0,OUT0,0,0,z,0,$ps,$ps,1,3)" rm.
+patches2img[0] $w,$h,6,30%
+c[0] 0,255
+if $type==3 rgb2srgb[0]
+elif $type==4 *[0] 255 rgb2srgb[0]
+fi
+} }
+rm[$N--1]
+#@cli denoise_patchpca : _strength>=0,_patch_size>0,_lookup_size>0,_spatial_sampling>0
+#@cli : Denoise selected images using the patch-pca algorithm.
+#@cli : Default values: 'patch_size=7', 'lookup_size=11', 'details=1.8' and 'spatial_sampling=5'.
+#@cli : $ image.jpg +noise 20 cut[-1] 0,255 +denoise_patchpca[-1] ,
+denoise_patchpca : check "${1=1.8} && $1>=0 && isint(${2=7}) && $2>0 && isint(${3=11}) && $3>0 && isint(${4=5}) && $4>0"
+e[^-1] "Denoise image$? using patch-pca, with strength $1, patch size $2, lookup size $3 and spatial sampling $4."
+foreach {
+nm={n} N2:=$2^2 M2:=$3^2 stdnoise=${-std_noise}
+100%,100%,1,100% => aggreg
+100%,100% => weights
+f[0] "*
+begin(
+n1 = int($2/2); n2 = $2 - n1 - 1;
+m1 = int($3/2); m2 = $3 - m1 - 1;
+patch(x,y) = crop(x - n1,y - n1,0,c,$2,$2,1,1,1);
+ngauss(x) = exp(-x*x/(2*n1*n1));
+ref(vector"$N2"(0),zero);
+ref(vector"$N2"(0),mask);
+for (l = 0; q = -n1, q<=n2, ++q,
+for (p = -n1, p<=n2, ++p, mask[l++] = ngauss(p)*ngauss(q)
+)
+)
+);
+if (!(x%$4) && !(y%$4),
+ref(patch(x,y),X);
+ref(vector"{$N2*$N2}"(0),M);
+for (q = -m1, q<=m2, ++q,
+for (p = -m1, p<=m2, ++p,
+ref(patch(x + p,y + q) - X,Xk);
+M += mul(Xk,Xk,"$N2");
+)
+);
+M/="$M2";
+eig = eig(M);
+lambda = sqrt(abs(eig[0,"$N2"]));
+for (k = 0, k=$1*"$stdnoise", ++k);
+Qt = eig["$N2","{$N2*$N2}"];
+Q = transpose(Qt,"$N2");
+for (q = -m1, q<=m2, ++q,
+for (p = -m1, p<=m2, ++p,
+pY = Qt*(patch(x + p,y + q) - X);
+copy(pY[k],zero[0],size(pY) - k);
+(Y = Q*pY)+=X;
+draw(#"$aggreg",Y,x + p - n1,y + q - n1,0,c,$2,$2,1,1,-1,mask);
+draw(#"$weights",mask,x + p - n1,y + q - n1,0,c,$2,$2,1,1,-1);
+)
+);
+0);0"
+max[weights] 0.01 /[aggreg,weights] k[aggreg] => $nm
+}
+#@cli deriche : std_deviation>=0[%],order={ 0 | 1 | 2 },axis={ x | y | z | c },_boundary_conditions : (+)
+#@cli : Apply Deriche recursive filter on selected images, along specified axis and with
+#@cli : specified standard deviation, order and boundary conditions.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default value: 'boundary_conditions=1'.
+#@cli : $ image.jpg deriche 3,1,x
+#@cli : $ image.jpg +deriche 30,0,x deriche[-2] 30,0,y add
+#@cli : $$ https://gmic.eu/oldtutorial/_deriche
+#@cli dilate : size>=0 : size_x>=0,size_y>=0,size_z>=0 : [kernel],_boundary_conditions,_is_real={ 0=binary-mode | 1=real-mode } : (+)
+#@cli : Dilate selected images by a rectangular or the specified structuring element.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default values: 'size_z=1', 'boundary_conditions=1' and 'is_real=0'.
+#@cli : $ image.jpg +dilate 10
+#@cli dilate_circ : _size>=0,_boundary_conditions,_is_real={ 0 | 1 }
+#@cli : Apply circular dilation of selected images by specified size.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default values: 'boundary_conditions=1' and 'is_real=0'.
+#@cli : $ image.jpg +dilate_circ 7
+dilate_circ : check "$1>=0 && isint(${2=1}) && inrange($2,0,3) && isbool(${3=0})"
+r0,r1=binary,real
+e[^-1] "Apply circular dilation of image$? by size $1, boundary conditions $2, in "${r$3}" mode."
+if $1<2 return fi
+shape_circle $1 dilate[^-1] .,$2,$3 rm.
+#@cli dilate_oct : _size>=0,_boundary_conditions,_is_real={ 0 | 1 }
+#@cli : Apply octagonal dilation of selected images by specified size.
+#@cli : Default values: 'boundary_conditions=1' and 'is_real=0'.
+#@cli : $ image.jpg +dilate_oct 7
+dilate_oct : check "$1>=0 && isint(${2=1}) && inrange($2,0,3) && isbool(${3=0})"
+r0,r1=binary,real
+e[^-1] "Apply octagonal dilation of image$? by size $1, boundary conditions $2, in "${r$3}" mode."
+if $1<2 return fi
+if $1&1 ss=$1 else ss:=$1+1 fi
+i[0] (0,1,0;1,1,1;0,1,0) i[1] (1,1,1;1,1,1;1,1,1)
+repeat $!-2 {
+r:=round(($ss-1)*sqrt(2)/(1+sqrt(2))/2)
+q:=round(($ss-1)/(1+sqrt(2))/2)
+if $r>0 repeat $r { dilate. [0],$2,$3 } fi
+if $q>0 repeat $q { dilate. [1],$2,$3 } fi
+mv. 2
+}
+rm[0,1]
+_kr_circle :
+if $1%2==0 2,2,1,1,1 else 1,1,1,1,1 fi r. $1,$1,1,1,0,0,0.5,0.5
+distance. 1 round. 0.5 ir. 0,{$1/2}
+_jf_circle :
+{round($1)},{round($1)}
+center:=0.5*(w-1)
+f. 'sqrt((x-$center)^2+(y-$center)^2)'
+if !(w%2)
+round. 0.0001,-1
+t1:=sqrt(((round($1)-1)/2)^2+0.25)
+t2:=sqrt(((round($1)+1)/2)^2+0.25)
+k:=$1-round($1)+0.5
+t:=$t1+($t2-$t1)*$k
+ir. 0,$t
+else ir. 0,{$1/2-0.25}
+fi
+#@cli dilate_threshold : size_x>=1,size_y>=1,size_z>=1,_threshold>=0,_boundary_conditions
+#@cli : Dilate selected images in the (X,Y,Z,I) space.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default values: 'size_y=size_x', 'size_z=1', 'threshold=255' and 'boundary_conditions=1'.
+dilate_threshold : check "isint($1) && $1>=1 && isint(${2=$1}) && $2>=1 && isint(${3=1}) && $3>=1 && ${4=255}>=0 &&
+isint(${5=1}) && $5>=0"
+e[^-1] "Dilate image$? with mask $1x$2x$3, threshold $4 and "${arg\ $5,dirichlet,neumann}" boundary conditions."
+l[] {
+dx1:=int($1/2) dx2:=$1-$dx1-1
+dy1:=int($2/2) dy2:=$2-$dy1-1
+dz1:=int($3/2) dz2:=$3-$dz1-1
+(-$dx1,$dx1) (-$dy1;$dy1) (-$dz1/$dz1) r $1,$2,$3,1,3 a c round r {w*h*d},3,1,1,-1 transpose.
+i.. 1,100%,1,1,254 1,100%,1,1,255 a x
+('{^}') rm.. replace_str "254,","(v=j(" replace_str ",255",",0,0,$5);if(abs(v-i)<=$4,v,-1e20))" list={t}
+rm
+}
+f 'max($list)'
+#@cli divergence
+#@cli : Compute divergence of selected vector fields.
+#@cli : $ image.jpg luminance +gradient append[-2,-1] c divergence[-1]
+divergence :
+e[^-1] "Compute divergence of vector field$?."
+foreach {
+if s==1 g x,0
+elif s==2 s c g.. x,0 g. y,0 +
+elif s==3 s c g... x,0 g.. y,0 g. z,0 +
+else error[] "Command '$0': Cannot compute divergence of image ["$>"] (has "{s}">3 channels)."
+fi
+}
+#@cli dog : _sigma1>=0[%],_sigma2>=0[%]
+#@cli : Compute difference of gaussian on selected images.
+#@cli : Default values: 'sigma1=2%' and 'sigma2=3%'.
+#@cli : $ image.jpg dog 2,3
+dog : check "${1=2%}>=0 && ${2=3%}>=0"
+e[^-1] "Compute difference of gaussian on image$?, with standard deviations $1 and $2."
+foreach { [0] parallel "b[0] $1","b[1] $2" - abs }
+#@cli diffusiontensors : _sharpness>=0,0<=_anisotropy<=1,_alpha[%],_sigma[%],is_sqrt={ 0 | 1 }
+#@cli : Compute the diffusion tensors of selected images for edge-preserving smoothing algorithms.
+#@cli : Default values: 'sharpness=0.7', 'anisotropy=0.3', 'alpha=0.6', 'sigma=1.1' and 'is_sqrt=0'.
+#@cli : $ image.jpg diffusiontensors 0.8 abs pow 0.2
+#@cli : $$ https://gmic.eu/oldtutorial/_diffusiontensors
+diffusiontensors : check "${1=0.7}>=0 && ${2=0.3}>=0 && $2<=1" skip ${3=0.6},${4=1.1},${5=0}
+e[^-1] "Compute diffusion tensors for image$?, with sharpness $1, anisotropy $2, alpha $3 and sigma $4."
+p1:=($5?0.5:1)*max($1,1e-2)
+p2:=$p1/(1e-7+1-$2)
+b $3 n 0,255 structuretensors 0 b $4
+foreach {
+eigen max.. 0
+if s==2 s.. c +[-3,-2] +.. 1 +^.. -$p1 ^... -$p2 a[-3,-1] c
+else s.. c +[-4--2] +.. 1 +^.. -$p1 r. 100%,100%,100%,2 ^... -$p2 a[-3,-1] c
+fi
+eigen2tensor
+}
+#@cli edges : _threshold[%]>=0
+#@cli : Estimate contours of selected images.
+#@cli : Default value: 'edges=15%'
+#@cli : $ image.jpg +edges 15%
+edges : skip ${1=15%}
+e[^-1] "Estimate image contours of image$?, with threshold $1."
+gradient_norm b 0.5 >= $1 distance 0 equalize negate c 30%,70% n 0,1
+#@cli erode : size>=0 : size_x>=0,size_y>=0,_size_z>=0 : [kernel],_boundary_conditions,_is_real={ 0=binary-mode | 1=real-mode } : (+)
+#@cli : Erode selected images by a rectangular or the specified structuring element.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default values: 'size_z=1', 'boundary_conditions=1' and 'is_real=0'.
+#@cli : $ image.jpg +erode 10
+#@cli erode_circ : _size>=0,_boundary_conditions,_is_real={ 0 | 1 }
+#@cli : Apply circular erosion of selected images by specified size.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default values: 'boundary_conditions=1' and 'is_real=0'.
+#@cli : $ image.jpg +erode_circ 7
+erode_circ : check "$1>=0 && isint(${2=1}) && inrange($2,0,3) && isbool(${3=0})"
+r0,r1=binary,real
+e[^-1] "Apply circular erosion of image$? by size $1, boundary conditions $2, in "${r$3}" mode."
+if $1<2 return fi
+shape_circle $1 erode[^-1] .,$2,$3 rm.
+#@cli erode_oct : _size>=0,_boundary_conditions,_is_real={ 0 | 1 }
+#@cli : Apply octagonal erosion of selected images by specified size.
+#@cli : Default values: 'boundary_conditions=1' and 'is_real=0'.
+#@cli : $ image.jpg +erode_oct 7
+erode_oct : check "$1>=0 && isint(${2=1}) && inrange($2,0,3) && isbool(${3=0})"
+r0,r1=binary,real
+e[^-1] "Apply octagonal erosion of image$? by size $1, boundary conditions $2, in "${r$3}" mode."
+if $1<2 return fi
+if $1&1 ss=$1 else ss:=$1+1 fi
+i[0] (0,1,0;1,1,1;0,1,0) i[1] (1,1,1;1,1,1;1,1,1)
+repeat $!-2 {
+r:=round(($ss-1)*sqrt(2)/(1+sqrt(2))/2)
+q:=round(($ss-1)/(1+sqrt(2))/2)
+if $r>0 repeat $r { erode. [0],$2,$3 } fi
+if $q>0 repeat $q { erode. [1],$2,$3 } fi
+mv. 2
+}
+rm[0,1]
+#@cli erode_threshold : size_x>=1,size_y>=1,size_z>=1,_threshold>=0,_boundary_conditions
+#@cli : Erode selected images in the (X,Y,Z,I) space.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default values: 'size_y=size_x', 'size_z=1', 'threshold=255' and 'boundary_conditions=1'.
+erode_threshold : check "isint($1) && $1>=1 && isint(${2=$1}) && $2>=1 && isint(${3=1}) && $3>=1 && ${4=255}>=0 &&
+isint(${5=1}) && $5>=0"
+e[^-1] "Erode image$? with mask $1x$2x$3, threshold $4 and "${arg\ $5,dirichlet,neumann}" boundary conditions."
+l[] {
+dx1:=int($1/2) dx2:=$1-$dx1-1
+dy1:=int($2/2) dy2:=$2-$dy1-1
+dz1:=int($3/2) dz2:=$3-$dz1-1
+(-$dx1,$dx1) (-$dy1;$dy1) (-$dz1/$dz1) r $1,$2,$3,1,3 a c round r {w*h*d},3,1,1,-1 transpose.
+i.. 1,100%,1,1,254 1,100%,1,1,255 a x
+('{^}') rm.. replace_str "254,","(v=j(" replace_str ",255",",0,0,$5);if(abs(v-i)<=$4,v,1e20))" list={t}
+rm
+}
+f 'min($list)'
+#@cli fft : _{ x | y | z }...{ x | y | z } : (+)
+#@cli : Compute the direct fourier transform (real and imaginary parts) of selected images,
+#@cli : optionally along the specified axes only.
+#@cli : See also: ''ifft''.
+#@cli : $ image.jpg luminance +fft append[-2,-1] c norm[-1] log[-1] shift[-1] 50%,50%,0,0,2
+#@cli : $ image.jpg w2:=int(w/2) h2:=int(h/2) fft shift $w2,$h2,0,0,2 ellipse $w2,$h2,30,30,0,1,0 shift -$w2,-$h2,0,0,2 ifft remove[-1]
+#@cli : $$ https://gmic.eu/oldtutorial/_fft
+#@cli g : eq. to 'gradient'. : (+)
+g :
+_gmic_s="$?" axes,scheme,boundary,is_noarg=${"_gradient_get_args $*"}
+v + _gradient $axes,$scheme,$boundary v -
+if $is_noarg noarg fi
+#@cli gradient : { x | y | z | c }...{ x | y | z | c },_scheme,_boundary_conditions : (no arg)
+#@cli : Compute the gradient components (first derivatives) of selected images, along specified axes.
+#@cli : (eq. to 'g').\n
+#@cli : 'scheme' can be { -1=backward | 0=centered | 1=forward | 2=sobel | 3=rotation-invariant (default) | 4=deriche | 5=vanvliet }.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : (no arg) compute all significant components.
+#@cli : Default values: 'scheme=0' and 'boundary_conditions=1'.
+#@cli : $ image.jpg gradient
+#@cli : $$ https://gmic.eu/oldtutorial/_gradient
+gradient :
+_gmic_s="$?" axes,scheme,boundary,is_noarg=${"_gradient_get_args $*"}
+v + _gradient $axes,$scheme,$boundary v -
+if $is_noarg noarg fi
+_gradient_get_args : skip "${1=},${2=},${3=}"
+is_noarg=0
+l[] {
+if ['$1']==0 axes,scheme,boundary=,0,1 is_noarg=1
+else
+is_axes:="s=['$1'];fill(s,k,isin(s[k],_'x',_'y',_'z',_'c'));min(s)"
+if !$is_axes axes,scheme,boundary=,0,1 is_noarg=1
+elif ['$2']==0 axes,scheme,boundary=$1,0,1
+else
+is_scheme:="isint($2) && inrange($2,-1,5)"
+if !$is_scheme axes,scheme,boundary=,0,1 is_noarg=1
+elif ['$3']==0 axes,scheme,boundary=$1,$2,1
+else
+is_boundary:="isint($3) && inrange($3,0,3)"
+if !$is_boundary axes,scheme,boundary=,0,1 is_noarg=1
+else axes,scheme,boundary=${1-3}
+fi
+fi
+fi
+fi
+onfail axes,scheme,boundary=,0,1 is_noarg=1
+}
+u $axes,$scheme,$boundary,$is_noarg
+_gradient :
+axes,scheme,boundary=${1=},${2=},${3=}
+if '$axes'!=0 s_axes=" along axes '"$axes"'" fi
+s0,s1,s2,s3,s4,s5,s6=backward,centered,forward,sobel,rotation-invariant,deriche,vanvliet
+s_scheme=${s{$scheme+1}}
+s0,s1,s2,s3=dirichlet,neumann,periodic,mirror
+s_boundary=${s$boundary}
+e[0--3] "Compute gradient of image"$_gmic_s$s_axes", with "$s_scheme" scheme and "$s_boundary" boundary conditions."
+sx,sy,sz,sc=",",;,/,^
+foreach {
+nm={n} laxes=$axes if '$laxes'==0 if d>1 laxes=xyz else laxes=xy fi fi
+('$laxes')
+repeat w {
+a={`i[#1,$>]`} s=${s$a}
+if 0${gradient_$a}>0 [gradient_$a]
+elif $scheme==-1
+(-1${s}1${s}0) +correlate[0] .,$boundary rm..
+elif $scheme==0
+(-0.5${s}0${s}0.5) +correlate[0] .,$boundary rm..
+elif $scheme==1
+(0${s}-1${s}1) +correlate[0] .,$boundary rm..
+elif $scheme==2
+if _'$a'==_'x' (-1,0,1;-2,0,2;-1,0,1)
+elif _'$a'==_'y' (-1,-2,-1;0,0,0;1,2,1)
+else (-0.5${s}0${s}0.5)
+fi
++correlate[0] .,$boundary rm..
+elif $scheme==3
+A,B:=[0.25*(2-sqrt(2)),0.5*(sqrt(2)-1)]
+if _'$a'==_'x' (-$A,0,$A;-$B,0,$B;-$A,0,$A)
+elif _'$a'==_'y' (-$A,-$B,-$A;0,0,0;$A,$B,$A)
+else (-0.5${s}0${s}0.5)
+fi
++correlate[0] .,$boundary rm..
+else
+s4,s5=deriche,vanvliet com=${s$scheme}
+if $boundary<2 +$com[0] 0,1,$a,$boundary
+else
+if _'$a'==_'x' +r[0] {0,[w+2,h,d,s]},0,$boundary,0.5 $com. 0,1,$a shrink_x. 1
+elif _'$a'==_'y' +r[0] {0,[w,h+2,d,s]},0,$boundary,0,0.5 $com. 0,1,$a shrink_y. 1
+elif _'$a'==_'z' +r[0] {0,[w,h,d+2,s]},0,$boundary,0,0,0.5 $com. 0,1,$a shrink_z. 1
+fi
+fi
+fi
+=> gradient_$a
+}
+rm[0,1] =>[^] $nm
+}
+u $is_noaarg
+#@cli gradient_norm
+#@cli : Compute gradient norm of selected images.
+#@cli : $ image.jpg gradient_norm equalize
+#@cli : $$ https://gmic.eu/oldtutorial/_gradient_norm
+gradient_norm :
+e[^-1] "Compute gradient norm of image$?."
+foreach { g sqr s c + sqrt }
+#@cli gradient_orientation : _dimension={ 1 | 2 | 3 }
+#@cli : Compute N-d gradient orientation of selected images.
+#@cli : Default value: 'dimension=3'.
+#@cli : $ image.jpg +gradient_orientation 2
+gradient_orientation : check "isint(${1=3}) && inrange($1,1,3)"
+e[^-1] "Compute $1-d gradient orientation of image$?."
+foreach {
+if $1==1 g x +abs. +. 1e-8 -/
+elif $1==2 g xy +sqr +[-2,-1] +. 1e-8 sqrt. /... . /[-2,-1]
+else g xyz +sqr +[-3--1] +. 1e-8 sqrt. /[-4,-3] . /[-2,-1]
+fi
+}
+#@cli guided : [guide],radius[%]>=0,regularization[%]>=0 : radius[%]>=0,regularization[%]>=0 : (+)
+#@cli : Blur selected images by guided image filtering.
+#@cli : If a guide image is provided, it is used to drive the smoothing process.
+#@cli : A guide image must be of the same xyz-size as the selected images.
+#@cli : This command implements the filtering algorithm described in:
+#@cli : He, Kaiming; Sun, Jian; Tang, Xiaoou, "Guided Image Filtering",
+#@cli : IEEE Transactions on Pattern Analysis and Machine Intelligence, vol.35, no.6, pp.1397,1409, June 2013
+#@cli : $ image.jpg +guided 5,400
+#@cli haar : scale>0
+#@cli : Compute the direct haar multiscale wavelet transform of selected images.
+#@cli : See also: ''ihaar''.
+#@cli : $$ https://gmic.eu/oldtutorial/_haar
+haar : check "isint(${1=1}) && $1>=0"
+e[^-1] "Compute haar transform of image$? with $1 scales."
+foreach {
+_haar
+repeat $1-1 {
+w,h,d:="vmax(0,round([w,h,d]/2^(1+"$>"))-1)"
++z 0,0,0,$w,$h,$d _haar. j.. . rm.
+}
+}
+_haar :
+_haar_x _haar_y _haar_z
+_haar_x :
+if w<=1 return fi
+if w%2 error[0--6] "Command 'haar': Invalid image width="{w}" (is not even)." fi
++shift -1 r 50% +-[1] [0] +[0,1] / {sqrt(2)} a x
+_haar_y :
+if h<=1 return fi
+if h%2 error[0--6] "Command 'haar': Invalid image height="{h}" (is not even)." fi
++shift 0,-1 r 100%,50% +-[1] [0] +[0,1] / {sqrt(2)} a y
+_haar_z :
+if d<=1 return fi
+if d%2 error[0--6] "Command 'haar': Invalid image depth="{h}" (is not even)." fi
++shift 0,0,-1 r 100%,100%,50% +-[1] [0] +[0,1] / {sqrt(2)} a z
+#@cli heat_flow : _nb_iter>=0,_dt,_keep_sequence={ 0 | 1 }
+#@cli : Apply iterations of the heat flow on selected images.
+#@cli : Default values: 'nb_iter=10', 'dt=30' and 'keep_sequence=0'.
+#@cli : $ image.jpg +heat_flow 20
+heat_flow : skip ${1=10},${2=30},${3=0}
+e[^-1] "Apply $1 iterations of the heat flow on image$?, with time step $2."
+pde_flow $1,$2,laplacian,$3
+#@cli hessian : { xx | xy | xz | yy | yz | zz }...{ xx | xy | xz | yy | yz | zz },_boundary_conditions : (no arg) :
+#@cli : Compute the hessian components (second derivatives) of selected images along specified axes.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : (no arg) compute all significant components.
+#@cli : Default value: 'boundary_conditions=1'.
+#@cli : $ image.jpg hessian
+hessian : skip "${1=},${2=}"
+l[] {
+if ['$1']==0 axes,boundary=,1 noarg
+else
+is_axes:="s=['$1'];fill(s,k,isin(s[k],_'x',_'y',_'z'));min(s)"
+if !$is_axes axes,boundary=,1 noarg
+elif ['$2']==0 axes,boundary=$1,1
+else
+is_boundary:="isint($2) && inrange($2,0,3)"
+if !$is_boundary axes,boundary=,1 noarg
+else axes,boundary=$1,$2
+fi
+fi
+fi
+onfail axes,boundary=,1 noarg
+}
+if '$axes'!=0 s_axes=" along axes '"$axes"'" fi
+s0,s1,s2,s3=dirichlet,neumann,periodic,mirror
+s_boundary=${s$boundary}
+e[^-1] "Compute hessian of image$?"$s_axes", with "$s_boundary" boundary conditions."
+foreach {
+nm={n} laxes=$axes if '$laxes'==0 if d>1 laxes=xxxyxzyyyzzz else laxes=xxxyyy fi fi
+('$laxes')
+repeat int(w/2) {
+a1,a2={`i[#1,2*$>]`},{`i[#1,2*$>+1]`}
+if _'$a1'>_'$a2' a1,a2=$a2,$a1 fi
+if 0${hessian_$a1$a2}>0 [hessian_$a1$a2]
+elif _'$a1'==_'x'" && "_'$a2'==_'x' (1,-2,1) +correlate[0] .,$boundary rm..
+elif _'$a1'==_'x'" && "_'$a2'==_'y' (0.25,0,-0.25;0,0,0;-0.25,0,0.25) +correlate[0] .,$boundary rm..
+elif _'$a1'==_'x'" && "_'$a2'==_'z' (0.25,0,-0.25/0,0,0/-0.25,0,0.25) +correlate[0] .,$boundary rm..
+elif _'$a1'==_'y'" && "_'$a2'==_'y' (1;-2;1) +correlate[0] .,$boundary rm..
+elif _'$a1'==_'y'" && "_'$a2'==_'z' (0.25;0;-0.25/0;0;0/-0.25;0;0.25) +correlate[0] .,$boundary rm..
+elif _'$a1'==_'z'" && "_'$a2'==_'z' (1/-2/1) +correlate[0] .,$boundary rm..
+fi
+=> hessian_$a1$a2
+}
+rm[0,1] =>[^] $nm
+}
+u $is_noaarg
+#@cli idct : _{ x | y | z }...{ x | y | z } : (no arg)
+#@cli : Compute the inverse discrete cosine transform of selected images, optionally along the specified axes only.
+#@cli : Output images are always evenly sized, so this command may change the size of the selected images.
+#@cli : (dct images obtained with the 'dct' command are evenly sized anyway).
+#@cli : Default values: (no arg)
+#@cli : See also: ''dct''.
+#@cli : $$ https://gmic.eu/oldtutorial/_dct-and-idct
+idct : skip ${1=0}
+('"$1"')
+is_axes:="im>=_'x' && iM<=_'z'"
+if $is_axes
+e[0--3] "Compute inverse discrete cosine transform of image$? along axes '$1'."
+repeat w {
+axis:=i[$>]
+if $axis==_'x' foreach[^-1] { if w>1 _idct fi }
+elif $axis==_'y' foreach[^-1] { if h>1 permute yxzc _idct permute yxzc fi }
+elif $axis==_'z' foreach[^-1] { if d>1 permute zxyc _idct permute yzxc fi }
+fi
+}
+rm.
+else
+rm.
+e[0--3] "Compute inverse discrete cosine transform of image$?."
+noarg
+foreach {
+if w>1 _idct fi
+if h>1 permute yxzc _idct permute yxzc fi
+if d>1 permute zxyc _idct permute yzxc fi
+}
+fi
+_idct :
+if w%2 r {w+1},100%,100%,100%,0,0 fi
+/ {sqrt(2/w)} +z[0] 0,0 *. {sqrt(2)} j.. .,0,0,0 rm.
++mirror x shift. 1 *. -1
+100%,1,1,1,cos(x*pi/(2*w))
+100%,1,1,1,sin(x*pi/(2*w))
++*[0,3] +*[1,2] +[-2,-1]
+*[0,2] *[1,2] -[0,1]
+ifft x k[0] / 2
+s x,2 mirror. x
+r[0] 200%,100%,100%,100%,4,0,0
+r[1] 200%,100%,100%,100%,4,0,1
++
+#@cli iee
+#@cli : Compute gradient-orthogonal-directed 2nd derivative of image(s).
+#@cli : $ image.jpg iee
+iee :
+e[^-1] "Compute gradient-orthogonal-directed 2nd derivative of image$?."
+foreach {
+if d==1
++g xy,0 hessian... xxxyyy
+*... .. *[-4] . *[-4] -2
++[-4,-3] *... ..
+sqr[-2,-1] *[-4] . +[-4,-3]
++[-2,-1] +. 1e-8 /
+else
++inn laplacian.. -
+fi
+}
+#@cli ifft : _{ x | y | z }...{ x | y | z } : (+)
+#@cli : Compute the inverse fourier transform (real and imaginary parts) of selected images.
+#@cli : optionally along the specified axes only.
+#@cli : See also: ''fft''.
+#@cli : $$ https://gmic.eu/oldtutorial/_fft
+#@cli ihaar : scale>0
+#@cli : Compute the inverse haar multiscale wavelet transform of selected images.
+#@cli : See also: ''haar''.
+#@cli : $$ https://gmic.eu/oldtutorial/_haar
+ihaar : check "isint(${1=1}) && $1>=0"
+e[^-1] "Compute inverse haar transform of image$? with $1 scales."
+foreach {
+repeat $1-1 {
+w,h,d:="vmax(0,round([w,h,d]/2^(1+"$<"))-1)"
++z 0,0,0,$w,$h,$d _ihaar. j.. . rm.
+}
+_ihaar
+}
+_ihaar :
+_ihaar_x _ihaar_y _ihaar_z
+_ihaar_x :
+if w<=1 return fi
+if w%2 error[0--6] "Command 'ihaar': Invalid image width="{w}" (is not even)." fi
+s x,2 r 200% (-1,1) *[-2,-1] + / {sqrt(2)}
+_ihaar_y :
+if h<=1 return fi
+if h%2 error "Command 'ihaar': Invalid image height="{h}" (is not even)." fi
+s y,2 r 100%,200% (-1;1) r. {-2,w} *[-2,-1] + / {sqrt(2)}
+_ihaar_z :
+if d<=1 return fi
+if d%2 error "Command 'ihaar': Invalid image depth="{h}" (is not even)." fi
+s z,2 r 100%,100%,200% (-1/1) r. {-2,w},{-2,h} *[-2,-1] + / {sqrt(2)}
+#@cli ilaplacian : { nb_iterations>0 | 0 },_[initial_estimate]
+#@cli : Invert selected Laplacian images.
+#@cli : If given 'nb_iterations' is '0', inversion is done in Fourier space (single iteration),
+#@cli : otherwise, by applying 'nb_iterations' of a Laplacian-inversion PDE flow.
+#@cli : Note that the resulting inversions are just estimation of possible/approximated solutions.
+#@cli : Default values: 'nb_iterations=0' and '[initial_estimated]=(undefined)'.
+#@cli : $ image.jpg +laplacian +ilaplacian[-1] 0
+ilaplacian : check "${1=0}>=0" skip "${2=}"
+is_estimate=${"is_image_arg $2"} nb_iter:=round($1)
+if !$nb_iter
+if $is_estimate
+e[0--4] "Invert Laplacian image$? in Fourier space, with initial estimate $2."
+pass$2 1 ia=${-average_vectors} rm.
+else
+e[0--4] "Invert Laplacian image$? in Fourier space."
+ia=0
+fi
+foreach {
+fft 100%,100%,1,1,"2*(cos(x*2*pi/w) + cos(y*2*pi/h)) - 4" =. 1
+/[-3,-2] . rm.
+= 0 ifft rm.
+}
++ '"begin(S = resize(["$ia"],s,0)); S"'
+else
+if $is_estimate
+e[0--4] "Invert Laplacian image$? using $1 iterations of PDE flow and
+initial estimate $2."
+repeat $! { pass$2 0 l[$>,-1] {
+*[0] 5 i[1] (0,5,0;5,0,5;0,5,0)
+repeat $1 { +convolve. [1] -. [0] +[-2,-1] /. 21 } k.
+} }
+else
+e[0--4] "Invert Laplacian image$? using $1 iterations of PDE flow."
+foreach {
+* 5 (0,5,0;5,0,5;0,5,0) +f.. 0
+repeat $1 { +convolve. [1] -. [0] +[-2,-1] /. 21 } k.
+}
+fi
+fi
+#@cli inn
+#@cli : Compute gradient-directed 2nd derivative of image(s).
+#@cli : $ image.jpg inn
+inn :
+e[^-1] "Compute gradient-directed 2nd derivative of image$?."
+foreach {
+if d==1
++g xy,0 hessian... xxxyyy
+*[-5] .. *[-4] . *[-4] 2
++[-5,-4] *[-4] ..
+sqr[-2,-1] *... . +[-4,-3]
++[-2,-1] +. 1e-8 /
+else
++g xyz,0 hessian[-4] xxxyxzyyyzzz
+*[-9] ... *[-8] .. *[-8] 2 *[-7] . *[-7] 2
++[-9--7] *[-7] ...
+*[-6] .. *[-5] . *[-5] 2
++[-6,-5] *[-5] .. +[-6,-5]
+sqr[-3--1] *[-4] . +[-5,-4]
++[-3--1] +. 1e-8 /
+fi
+}
+#@cli inpaint : [mask] : [mask],0,_fast_method : [mask],_patch_size>=1,_lookup_size>=1,_lookup_factor>=0,_lookup_increment!=0,_blend_size>=0,0<=_blend_threshold<=1,_blend_decay>=0,_blend_scales>=1,_is_blend_outer={ 0 | 1 } : (+)
+#@cli : Inpaint selected images by specified mask.
+#@cli : If no patch size (or 0) is specified, inpainting is done using a fast average or median algorithm.
+#@cli : Otherwise, it used a patch-based reconstruction method, that can be very time consuming.
+#@cli : 'fast_method' can be { 0=low-connectivity average | 1=high-connectivity average | 2=low-connectivity median | 3=high-connectivity median }.
+#@cli : Default values: 'patch_size=0', 'fast_method=1', 'lookup_size=22', 'lookup_factor=0.5', 'lookup_increment=1', 'blend_size=0', 'blend_threshold=0', 'blend_decay=0.05', 'blend_scales=10' and 'is_blend_outer=1'.
+#@cli : $ image.jpg 100%,100% ellipse 50%,50%,30,30,0,1,255 ellipse 20%,20%,30,10,0,1,255 +inpaint[-2] [-1] remove[-2]
+#@cli : $ image.jpg 100%,100% circle 30%,30%,30,1,255,0,255 circle 70%,70%,50,1,255,0,255 +inpaint[0] [1],5,15,0.5,1,9,0 remove[1]
+#@cli inpaint_pde : [mask],_nb_scales[%]>=0,_diffusion_type={ 0=isotropic | 1=Delaunay-guided | 2=edge-guided | 3=mask-guided },_diffusion_iter>=0
+#@cli : Inpaint selected images by specified mask using a multiscale transport-diffusion algorithm.
+#@cli : If 'diffusion type==3', non-zero values of the mask (e.g. a distance function) are used
+#@cli : to guide the diffusion process.
+#@cli : Default values: 'nb_scales=75%', 'diffusion_type=1' and 'diffusion_iter=20'.
+#@cli : $ image.jpg 100%,100% ellipse[-1] 30%,30%,40,30,0,1,255 +inpaint_pde[0] [1]
+inpaint_pde : check ${is_image_arg\ $1}" && ${2=75%}>=0 && isint(${3=1}) && $3>=0 && $3<=3 && ${4=20}>=0"
+s0="isotropic" s1="Delaunay-guided" s2="edge-guided" s3="mask-guided"
+e[^-1] "Inpaint image$? by mask $1, using a multiscale diffusion algorithm with $2 scales
+and $4 iterations of "${s$3}" diffusion."
+repeat $! { nm={n} pass$1 l[$>,-1] {
+nb_scalesM:=ceil(log2(max(w,h,d)))
+nb_scales:=round(${"is_percent $2"}?$nb_scalesM*$2:$2)
+nb_scales:=max(1,min($nb_scales,$nb_scalesM))
+nb_iter:=max(5,$4)
+repeat $nb_scales {
+{0,"S = 2^"$<"; round([ max(1,w/S), max(1,h/S), max(1,d/S), s ])"}
+100%,100%,100%
+eval[1] "const wl1 = w#-1 - 1; const hl1 = h#-1 - 1; const dl1 = d#-1 - 1;
+const w1 = max(1,w - 1); const h1 = max(1,h - 1); const d1 = max(1,d - 1);
+!i?(
+X = round(x*wl1/w1); Y = round(y*hl1/h1); Z = round(z*dl1/d1);
+I(#-2,X,Y,Z) += I(#0,x,y,z);
+++i(#-1,X,Y,Z)
+);I"
++max. 1 /[-3,-1] !=. 0
+if !$>
+im={-2,im} +-.. {$im-1} *. ..
++distance.. 1 *. -1 watershed.. . rm.
++. {$im-1} mv. -3
+fi
+if $>>0" || "$nb_scales==1
+ri... ..,3
+if $3==0
+repeat $nb_iter { j... ..,0,0,0,0,1,. b... 0.5 }
+elif $3==1
++distance. 1 100%,100%,100%,{d==1?2:3}
+eval.. "*
+const boundary = 1;
+maxabs(a,b) = (abs(a)>abs(b)?a:b);
+ix = maxabs(j(1) - i,i - j(-1));
+iy = maxabs(j(0,1) - i,i - j(0,-1));
+d>1?(
+iz = maxabs(j(0,0,1) - i,i - j(0,0,-1));
+copy(I(#-1),[ ix,iy,iz ],3,whd);
+):copy(I(#-1),[ ix,iy ],2,whd)"
+rm.. orientation.
+repeat $nb_iter {
+j[-4] ...,0,0,0,0,1,..
++warp[-4] .,1,2,1 *.. -1 warp[-5] ..,1,2,1 +[-5,-1] /[-4] 2
+}
+rm.
+elif $3==2
+repeat $nb_iter {
++diffusiontensors... 0,1,1.5,0.5
+j[-4] ...,0,0,0,0,1,..
+smooth[-4] .,1,10,0 rm.
+}
+else
++r[1] .,2 g. a[-{d==1?2:3}--1] c orientation.
+repeat $nb_iter {
+j[-4] ...,0,0,0,0,1,..
++warp[-4] .,1,2,1 *.. -1 warp[-5] ..,1,2,1 +[-5,-1] /[-4] 2
+} rm.
+fi
+j... ..,0,0,0,0,1,.
+fi
+rm[-2,-1]
+}
+=> $nm rv[0,-1] rm.
+} rm. }
+#@cli inpaint_flow : [mask],_nb_global_iter>=0,_nb_local_iter>=0,_dt>0,_alpha>=0,_sigma>=0
+#@cli : Apply iteration of the inpainting flow on selected images.
+#@cli : Default values: 'nb_global_iter=10', 'nb_local_iter=100', 'dt=5', 'alpha=1' and 'sigma=3'.
+#@cli : $ image.jpg 100%,100% ellipse[-1] 30%,30%,40,30,0,1,255 inpaint_flow[0] [1]
+inpaint_flow : check ${is_image_arg\ $1}" && ${2=10}>=0 && ${3=100}>=0 && ${4=5}>0 && ${5=1}>=0 && ${6=3}>=0"
+e[^-1] "Apply $2x$3 iterations of the inpainting flow on image$?, with mask $1, time step $4, alpha $5 and sigma $6."
+repeat $! {
+pass$1 0 l[$>,-1] {
+r. [0],[0],[0],1,0 inpaint.. [1]
+repeat $2 {
+progress {100*$>/($2-1)}
++diffusiontensors.. 0,1,$5,$6,0 *. .. smooth... .,$3,$4,0 rm.
+}
+progress 100
+}
+rm.
+}
+#@cli inpaint_holes : maximal_area[%]>=0,_tolerance>=0,_is_high_connectivity={ 0 | 1 }
+#@cli : Inpaint all connected regions having an area less than specified value.
+#@cli : Default values: 'maximal_area=4', 'tolerance=0' and 'is_high_connectivity=0'.
+#@cli : $ image.jpg noise 5%,2 +inpaint_holes 8,40
+inpaint_holes : check "${1=4}>=0 && ${2=0}>=0" skip ${3=0}
+e[^-1] "Inpaint holes with area less than $1 pixels in image$?, with tolerance $2 and "${arg0\ !$3,high,low}" connectivity."
+foreach {
+100%,100%,100%
+area:=${is_percent\ $1}?$1*w*h*d:$1
+repeat s#0 { sh[0] $> +area. $2,$3 <=. $1 -|[1,-1] rm. }
+if im k[0] whd=[w,h,d] r 1,1,1,100%,2 r $whd,100%
+else inpaint[0] [1],0,{2*!$2+!!$3} k[0] fi
+}
+#@cli inpaint_morpho : [mask]
+#@cli : Inpaint selected images by specified mask using morphological operators.
+#@cli : $ image.jpg 100%,100% ellipse[-1] 30%,30%,40,30,0,1,255 +inpaint_morpho[0] [1]
+inpaint_morpho : check ${is_image_arg\ $1}
+e[^-1] "Inpaint image$? by mask $1, using morphological operators."
+repeat $! {
+pass$1 0 l[$>,-1] {
+nm={0,n} im={0,im} iM={0,iM} im1:=$im-1 iM1:=$iM+1
+channels. 0 ==. 0
++f[0] $im1 j. [0],0,0,0,0,1,..
+do
++dilate. 3
+replace.. $im1,$iM1
+erode.. 3
+replace.. $iM1,$im1
++[-2,-1] /. 2
+j. ...,0,0,0,0,1,..
+while im==$im1
+k. => $nm
+}
+}
+#@cli inpaint_matchpatch : [mask],_nb_scales={ 0=auto | >0 },_patch_size>0,_nb_iterations_per_scale>0,_blend_size>=0,_allow_outer_blending={ 0 | 1 },_is_already_initialized={ 0 | 1 }
+#@cli : Inpaint selected images by specified binary mask, using a multi-scale matchpatch algorithm.
+#@cli : Default values: 'nb_scales=0', 'patch_size=9', 'nb_iterations_per_scale=10', 'blend_size=5','allow_outer_blending=1' and 'is_already_initialized=0'.
+#@cli : $ image.jpg 100%,100% ellipse[-1] 30%,30%,40,30,0,1,255 +inpaint_matchpatch[0] [1]
+inpaint_matchpatch : check ${is_image_arg\ $1}"&& ${2=0}>=0 && isint(${3=9}) && $3>0 && isint(${4=10}) && $4>0 &&
+isint(${5=5}) && $5>=0" skip ${6=1},${7=0}
+e[^-1] "Inpaint image$? with mask $1, using a multiscale patch-matching algorithm with "${"if $2 u \"$2 \" else u auto- fi"}"scales, $3x$3 patches, $4 iterations per scale and blending size $5."
+repeat $! { pass$1 0 l[$>,-1] {
+nm={0,n}
+=> img,mask
+nb_scales:=max(1,round(if($2,$2,log2(min(w,h)/16)),1,1))
+visu_size=${fitscreen[]" "{0,[w,h,1]},25%,50%}
+slices[img] 0 r[mask] [img],[img],1,1,0 !=[mask] 0
+if !$7 inpaint_pde[img] [mask],75% fi
+im={img,im} -[img] $im
+first_iter=1 iter=0
+repeat $nb_scales {
+scale:=100*(0.5^$<)
+e "> Process scale "{1+$>}"/"$nb_scales" -> "$scale%
+progress {100*$>/max(1,$nb_scales-1)}
++r[img,mask] $scale%,$scale%,1,100%,2 => scaled_img,scaled_mask
+>=[scaled_mask] 0.95
+if {scaled_mask,!iM} rm[scaled_img,scaled_mask] continue fi
++f[scaled_img] -4096 +j[scaled_img] .,0,0,0,0,1,[scaled_mask] rm.. => scaled_reference
+coef:=0.5^($nb_scales-$iter)
+patch_size:="v=round(max(min($3,5),$3*$coef));v+(1-(v%2))"
+patch_size:=min(w,h,$patch_size)
+blend_size:="v=if($5,round(max(3,$5*$coef)));v+(1-(v%2))"
+iter+=1
+==[scaled_mask] 0
+if $first_iter
+100%,100%,1,1,x +f. y mv[scaled_mask] $! a[-3--1] c
+matchpatch[scaled_img] [scaled_reference],$patch_size,$patch_size,1,4,4,0,0,.
+rm[scaled_reference,-1]
+=> correspondence
+first_iter=0
+else
+*[correspondence] 2 r[correspondence] 200%,200%,1,2 r[correspondence] [scaled_img],[scaled_img],1,2,0,1
+100%,100%,1,1,x +f. y a[-2,-1] c
+f[scaled_mask] "*if(i,1,
+upc = i(#"$correspondence",x-1,y,0,0); vpc = i(#"$correspondence",x-1,y,0,1);
+ucp = i(#"$correspondence",x,y-1,0,0); vcp = i(#"$correspondence",x,y-1,0,1);
+ucc = i(#"$correspondence",x,y,0,0); vcc = i(#"$correspondence",x,y,0,1);
+i(#-1,x,y,0,0) = (ucc==upc && vcc==vpc)?upc + 1:ucc;
+i(#-1,x,y,0,1) = (ucc==ucp && vcc==vcp)?vcp + 1:vcc;
+0)"
+rm[correspondence] => correspondence
+a[correspondence] [scaled_mask],c
+nbs1:=max(1,$nb_scales-1)
+nb_iter:=round(max(1,$4*(($<+1)/$nbs1)^2))
+repeat $nb_iter {
+_inpaint_matchpatch[scaled_img] [correspondence],[scaled_mask],$blend_size,$6
++matchpatch[scaled_img] [scaled_reference],$patch_size,$patch_size,1,4,4,0,0,[correspondence]
+j[correspondence] . rm.
+if {*1} w1[scaled_img] $visu_size,0 fi
+if {*2} w2[correspondence] $visu_size,1 fi
+}
+rm[scaled_img,scaled_mask,scaled_reference] channels[correspondence] 0,1
+fi
+}
+progress 100
+if $correspondence
+==[mask] 0
+_inpaint_matchpatch[img] [correspondence],[mask],$5,$6
+rm[correspondence]
+fi
++[img] $im
+=>[0] $nm
+} rm[mask] }
+_inpaint_matchpatch :
+pass$1 1 pass$2 {!$3" || "!$4}
+if !$3
+warp[0] [1],0,0,1
+else
+if $4 erode. $3 fi
+f[0] "*begin(
+boundary = 1;
+const patch_size = $3;
+const p2 = int(patch_size/2);
+const p1 = patch_size - p2 - 1;
+avg = resize([0],s#0);
+wpq = resize([0],patch_size^2);
+g = 0;
+for (q = -p1, q<=p2, ++q,
+for (p = -p1, p<=p2, ++p,
+wpq[g++] = exp(-(p^2 + q^2)/(2*(0.3*patch_size)^2));
+);
+);
+);
+if (i#2,I,
+g = 0;
+avg = 0;
+norm = 0;
+for (q = -p1, q<=p2, ++q,
+for (p = -p1, p<=p2, ++p,
+U = I(#1,x + p,y + q);
+w = wpq[g++];
+norm+=w;
+avg+=w*I(#0,U[0,2] - [p,q]);
+);
+);
+avg/norm)"
+fi
+k[0]
+_inpaint_warping2d :
+foreach {
+100%,100%,100%,2,"> begin(const S = s#0; zero0 = vectorS(); zero1 = [0,0]; N = 0); I(#-1)==zero0?zero1:[++N,1]"
+s. c distance. 1 *. -1
+watershed.. . rm.
+repeat 2 {
+f.. ">i?I:(
+nP = vectors();
+const sP = size(nP);
+r = i(#-1);
+(P = J(-1,-1))[0] && j(#-1,-1,-1)==r?(nP[0] = ++P[0]; nP[1] = ++P[1]; sP>2?copy(nP[2],P[2],sP-2)):
+(P = J(0,-1))[0] && j(#-1,0,-1)==r ?(nP[0] = P[0]; nP[1] = ++P[1]; sP>2?copy(nP[2],P[2],sP-2)):
+(P = J(1,-1))[0] && j(#-1,1,-1)==r ?(nP[0] = --P[0]; nP[1] = ++P[1]; sP>2?copy(nP[2],P[2],sP-2)):
+(P = J(-1,0))[0] && j(#-1,-1,0)==r ?(nP[0] = ++P[0]; nP[1] = P[1]; sP>2?copy(nP[2],P[2],sP-2));
+nP)"
+f.. "2?copy(nP[2],P[2],sP-2)):
+(P = J(0,1))[0] && j(#-1,0,1)==r ?(nP[0] = P[0]; nP[1] = --P[1]; sP>2?copy(nP[2],P[2],sP-2)):
+(P = J(-1,1))[0] && j(#-1,-1,1)==r?(nP[0] = ++P[0]; nP[1] = --P[1]; sP>2?copy(nP[2],P[2],sP-2)):
+(P = J(1,0))[0] && j(#-1,1,0)==r ?(nP[0] = --P[0]; nP[1] = P[1]; sP>2?copy(nP[2],P[2],sP-2));
+nP)"
+}
+rm.
+}
+#@cli kuwahara : size>0
+#@cli : Apply Kuwahara filter of specified size on selected images.
+#@cli : $ image.jpg kuwahara 9
+kuwahara : check $1>0
+e[^-1] "Apply Kuwahara filter of size $1 on image$?."
+foreach {
+s:=s
++dilate $1 compose_channels. min
++erode[0] $1 compose_channels. max
+-[-2,-1]
+$1,1,1,1,{1/$1} convolve[0] . transpose. convolve[0] . rm.
+p:=int($1/2)
+a[-2,-1] c
+f "v1=i(x-"$p",y-"$p",0,"$s",0,1); v2=i(x+"$p",y-"$p",0,"$s",0,1); v3=i(x-"$p",y+"$p",0,"$s",0,1); v4=i(x+"$p",y+"$p",0,"$s",0,1); vm=min(v1,v2,v3,v4); if(c>="$s",i, if(vm==v1,i(x-"$p",y-"$p",0,c,0,1),
+if(vm==v2,i(x+"$p",y-"$p",0,c,0,1),
+if(vm==v3,i(x-"$p",y+"$p",0,c,0,1),
+i(x+"$p",y+"$p",0,c,0,1)))))"
+channels 0,{s-2}
+}
+#@cli laplacian
+#@cli : Compute Laplacian of selected images.
+#@cli : $ image.jpg laplacian
+laplacian :
+e[^-1] "Compute Laplacian of image$?."
+foreach { hessian ${arg0\ (d==1),xxyyzz,xxyy} + }
+#@cli lic : _amplitude>0,_channels>0
+#@cli : Render LIC representation of selected vector fields.
+#@cli : Default values: 'amplitude=30' and 'channels=1'.
+#@cli : $ 400,400,1,2,'if(c==0,x-w/2,y-h/2)' +lic 200,3 quiver[-2] [-2],10,1,1,1,255
+lic : skip ${1=30},${2=1}
+e[^-1] "Render LIC representation of 2D vector field$?, with amplitude $1 and $2 channel(s)."
+foreach {
+nm={n}
+channels 0,1 / {max(abs(im),abs(iM))} vector2tensor
+100%,100%,100%,$2 rand. 0,255 smooth. ..,$1 rm..
+equalize => $nm
+}
+#@cli map_tones : _threshold>=0,_gamma>=0,_smoothness>=0,nb_iter>=0
+#@cli : Apply tone mapping operator on selected images, based on Poisson equation.
+#@cli : Default values: 'threshold=0.1', 'gamma=0.8', 'smoothness=0.5' and 'nb_iter=30'.
+#@cli : $ image.jpg +map_tones ,
+map_tones : skip ${1=0.1},${2=0.8},${3=0.5},${4=30}
+e[^-1] "Apply tone mapping operator on image$?, with threshold $1, gamma $2, smoothness $3 and $4 iterations."
+foreach {
++l {
+s c foreach {
+g xy,1 a c +norm orientation..
+m,M:=[im,iM] b. $3 n. $m,$M
+*. 'alpha=$1*iM;(alpha/(1e-10+i))*(i/(1e-10+alpha))^$2'
+* s c g.. x,-1 g. y,-1 +
+}
+a c * 0.25
+}
+repeat $4 { +laplacian.. *. 0.25 +. ... -. .. *. 800 +[-3,-1] /.. 801 c.. 0,255 } rm.
+}
+#@cli map_tones_fast : _radius[%]>=0,_power>=0
+#@cli : Apply fast tone mapping operator on selected images.
+#@cli : Default values: 'radius=3%' and 'power=0.3'.
+#@cli : $ image.jpg +map_tones_fast ,
+map_tones_fast : check "${1=3%}>=0 && ${2=0.3}>=0"
+e[^-1] "Apply fast tone mapping operator on image$?, with radius $1 and power $2."
+foreach {
++luminance b. $1 n 0,1
++*. 2 -. 1 abs. *. {$2*log(10)} exp.
+<=.. 0.5 ri. ...
++*... -1 +. 1 ^. .. *. -1 +. 1 *. ...
+^[-4,-2] ==.. 0 *[-3,-2] +
+}
+n 0,255
+#@cli meancurvature_flow : _nb_iter>=0,_dt,_keep_sequence={ 0 | 1 }
+#@cli : Apply iterations of the mean curvature flow on selected images.
+#@cli : Default values: 'nb_iter=10', 'dt=30' and 'keep_sequence=0'.
+#@cli : $ image.jpg +meancurvature_flow 20
+meancurvature_flow : skip ${1=10},${2=30},${3=0}
+e[^-1] "Apply $1 iterations of the mean curvature flow on image$?, with time step $2."
+pde_flow $1,$2,iee,$3
+#@cli median : size>=0,_threshold>0 : (+)
+#@cli : Apply (opt. thresholded) median filter on selected images with structuring element size x size.
+#@cli : $ image.jpg +median 5
+#@cli nlmeans : [guide],_patch_radius>0,_spatial_bandwidth>0,_tonal_bandwidth>0,_patch_measure_command : _patch_radius>0,_spatial_bandwidth>0,_tonal_bandwidth>0,_patch_measure_command
+#@cli : Apply non local means denoising of Buades et al, 2005. on selected images.
+#@cli : The patch is a gaussian function of 'std_patch_radius'.
+#@cli : The spatial kernel is a rectangle of radius 'spatial_bandwidth'.
+#@cli : The tonal kernel is exponential (`exp(-d^2/_tonal_bandwidth^2)`)
+#@cli : with `d` the euclidean distance between image patches.
+#@cli : Default values: 'patch_radius=4', 'spatial_bandwidth=4', 'tonal_bandwidth=10' and 'patch_measure_command=-norm'.
+#@cli : $ image.jpg +noise 10 nlmeans[-1] 4,4,{0.6*${-std_noise}}
+nlmeans:
+if ${"is_image_arg $1"}
+check "${2=4}>0 && ${3=4}>0 && ${4=10}>0" skip "${5=-norm}"
+e[^-1] "Apply non-local means denoising on image$?, with guide $1, patch size $2, spatial bandwidth $3,
+tonal bandwidth $4 and patch measure command '$5'."
+pass$1 0 l. { $5 k[0] }
+repeat $!-1 { l[$>,-1] {
+100%,100%,100%,100%,{-1.0/($4*$4)}
+nlmeans_core[0] [1],[2],$2,$3 rm.
+} }
+rm.
+else
+check "${1=4}>0 && ${2=4}>0 && ${3=10}>0" skip "${4=-norm}"
+e[^-1] "Apply non-local means denoising on image$?, with patch size $1, spatial bandwidth $2,
+tonal bandwidth $3 and patch measure command '$4'."
+foreach {
++l { $4 k[0] }
+100%,100%,100%,100%,{-1.0/($3*$3)}
+nlmeans_core[0] [1],[2],$1,$2 k[0]
+}
+fi
+#@cli nlmeans_core: _reference_image,_scaling_map,_patch_radius>0,_spatial_bandwidth>0
+#@cli : Apply non local means denoising using a image for weight and a map for scaling
+nlmeans_core : check ${is_image_arg\ $1}" && "${is_image_arg\ $2}" && $3>0 && $4>0"
+e[^-1] "Apply non-local means denoising using weight images $1, scaling map $2, patch size $3 and
+spatial bandwidth $4."
+pass$1 0 pass$2 0
+repeat $!-2 { l[$>,-1,-2] {
+100%,100%,100%,{0,s},0 100%,100%,100%,{1,s},0 100%,100%,100%,{1,s},1e-6
+if d#0==1
+repeat 2*$4+1 { j:=$>-$4 repeat 2*$4+1 { i:=$>-$4
+if $i!=0||$j!=0
++shift[0,1] $i,$j,0,0,2 -[7] [1]
+sqr[7] b[7] $3 *[7] [2] exp[7]
+*[6] [7] max[5] [7] +[4,7] +[3,6]
+fi
+} }
+else
+repeat 2*$4+1 { k:=$>-$4 repeat 2*$4+1 { j:=$>-$4 repeat 2*$4+1 { i:=$>-$4
+if $i!=0||$j!=0||$k!=0
++shift[0,1] $i,$j,0,0,2 -[7] [1]
+sqr[7] b[7] $3 *[7] [2] exp[7]
+*[6] [7] max[5] [7] +[4,7] +[3,6]
+fi
+} } }
+fi
+rm[1,2]
+*[0] [3] +[1,0] +[1,2]
+/
+} }
+#@cli normalize_local : _amplitude>=0,_radius>0,_n_smooth>=0[%],_a_smooth>=0[%],_is_cut={ 0 | 1 },_min=0,_max=255
+#@cli : Normalize selected images locally.
+#@cli : Default values: 'amplitude=3', 'radius=16', 'n_smooth=4%', 'a_smooth=2%', 'is_cut=1', 'min=0' and 'max=255'.
+#@cli : $ image.jpg normalize_local 8,10
+normalize_local :
+check "${1=3}>=0 && ${2=16}>0 && isbool(${5=1})" skip ${3=4%},${4=2%},${6=0},${7=255}
+e[^-1] "Normalize image$? locally, with amplitude $1, radius $2, neighborhood smoothness $3 and
+average smoothness $4."
+foreach {
++l { erode {2*$2+1} s c min }
++l.. { dilate {2*$2+1} s c max }
++b... $4 b[-3,-2] $3
++-.. ... +. 0.01 -[-5] [-4] /[-5,-1]
+*[-3,-2] {$1+1} *. -$1 +... . +[-2,-1]
+if $5 max.. $6 min. $7 fi
+-. .. *[-3,-1] +
+if $5 c $6,$7 fi
+}
+#@cli normalized_cross_correlation : [mask]
+#@cli : Compute normalized cross-correlation of selected images with specified mask.
+#@cli : $ image.jpg +shift -30,-20 +normalized_cross_correlation[0] [1]
+normalized_cross_correlation : check ${is_image_arg\ $1}
+e[^-1] "Compute normalized cross-correlation of image$? with mask $1."
+pass$1 0 norm repeat $!-1 { . l[$>,-1] {
+fft.. fft. [-2,-1] *.. [-5] *. [-6]
+-[-2,-1] *[-5,-3] *[-3,-2] +[-3,-2] [-2,-1] a[-2,-1] c norm.
+/... . /[-2,-1] ifft rm.
+} } rm.
+#@cli opening : size>=0 : size_x>=0,size_y>=0,_size_z>=0 : [kernel],_boundary_conditions,_is_real={ 0=binary-mode | 1=real-mode }
+#@cli : Apply morphological opening to selected images.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default values: 'size_z=1', 'boundary_conditions=1' and 'is_real=0'.
+#@cli : $ image.jpg +opening 10
+opening : skip "${2=},${3=}"
+boundary,is_kernel,sel=1,0,^
+if "isnum($1)"
+if "['$2']==0 && ['$3']==0"
+sx,sy,sz=$1
+e[0--4] "Apply morphological opening to image$?, with kernel of size "$sx"."
+else
+sx=$1
+if ['$2']==0 sy=1 else sy=$2 fi
+if ['$3']==0 sz=1 else sz=$3 fi
+e[0--4] "Apply morphological opening to image$?, with "${sx}"x"${sy}"x"${sz}" kernel."
+fi
+elif ${"is_image_arg $1"}" && narg("${"pass$1 -1"}")==1"
+pass$1
+sx,sy,sz:=[w,h,d]
+is_kernel,sel,r0,r1,b0,b1,b2,b3=1,^-1,binary,real,dirichlet,neumann,periodic,mirror
+is_real=0
+if ['$2']!=0 boundary:=cut($2,0,3) fi
+if ['$3']!=0 is_real=$3 fi
+e[0--3] "Apply morphological opening to image$? with kernel ["${"pass$1 -1"}"] and "${b$boundary}" boundary ""conditions, in "${r$is_real}" mode."
+else error[0--3] "Command 'opening': Invalid arguments '$*'."
+fi
+if $sx>0||$sy>=0||$sz>=0
+sx1,sx2:="s=int(($sx-1)/2);[s,$sx-s-1]"
+sy1,sy2:="s=int(($sy-1)/2);[s,$sy-s-1]"
+sz1,sz2:="s=int(($sz-1)/2);[s,$sz-s-1]"
+foreach[$sel] {
+nm={n}
+if d>1
+r {[w+$sx+1,h+$sy+1,d+$sz+1]},100%,0,$boundary,0.5,0.5,0.5
+if $is_kernel pass. erode.. .,0,$is_real dilate.. .,0,$is_real rm.
+else erode $sx,$sy,$sz dilate $sx,$sy,$sz
+fi
+z {$sx1+1},{$sy1+1},{$sz1+1},{w-$sx2-2},{h-$sy2-2},{d-$sz2-2} => $nm
+elif h>1
+r {[w+$sx+1,h+$sy+1]},1,100%,0,$boundary,0.5,0.5
+if $is_kernel pass. erode.. .,0,$is_real dilate.. .,0,$is_real rm.
+else erode $sx,$sy dilate $sx,$sy
+fi
+z {$sx1+1},{$sy1+1},{w-$sx2-2},{h-$sy2-2} => $nm
+else
+r {w+$sx+1},1,1,100%,0,$boundary,0.5
+if $is_kernel pass. erode.. .,0,$is_real dilate.. .,0,$is_real rm.
+else erode $sx,1 dilate $sx,1
+fi
+z {$sx1+1},{w-$sx2-2} => $nm
+fi
+}
+fi
+if $is_kernel rm. fi
+#@cli opening_circ : _size>=0,_is_real={ 0 | 1 }
+#@cli : Apply circular opening of selected images by specified size.
+#@cli : Default values: 'boundary_conditions=1' and 'is_real=0'.
+#@cli : $ image.jpg +opening_circ 7
+opening_circ : check "$1>=0 && isbool(${2=0})"
+r0,r1=binary,real
+e[^-1] "Apply morphological opening of image$? with circular kernel of size $1, in "${r$2}" mode."
+if $1<2 return fi
+shape_circle $1 opening[^-1] .,$2 rm.
+#@cli percentile : [mask],0<=_min_percentile[%]<=100,0<=_max_percentile[%]<=100.
+#@cli : Apply percentile averaging filter to selected images.
+#@cli : Default values: 'min_percentile=0' and 'max_percentile=100'.
+#@cli : $ image.jpg shape_circle 11,11 +percentile[0] [1],25,75
+percentile : check ${"is_image_arg $1"}" && inrange(${2=0},0,100) && inrange(${3=100},0,100) && $2<=$3"
+vmin,vmax={_[${"is_percent $2"}?100*$2:$2,${"is_percent $3"}?100*$3:$3]}
+e[^-1] "Apply percentile averaging filter to image$?, with mask $1, ""min percentile "$vmin"% and max percentile "$vmax"%."
+pass$1 0 !=. 0 N:=is if !$N rm. return fi 128,$N
+eval.. ">
+begin(
+p = 0;
+const w2 = int(w/2);
+const h2 = int(h/2);
+);
+i?(
+out = string('N[',p,']=j(',x - w2,',',y - h2,');');
+copy(i(#-1,0,p++),out,size(out));
+)"
+discard. 0 code={t} rm[-2,-1]
+f "
+begin( N = vector"$N"() );
+const boundary = 1;
+const sS = size(N) - 1;
+const s0 = round(sS*"$vmin"%);
+const s1 = round(sS*"$vmax"%);
+const ds = 1 + s1 - s0;
+"$code"
+S = sort(N);
+res = 0; for (s = s0, s<=s1, ++s, res+=S[s]); res/=ds"
+#@cli peronamalik_flow : K_factor>0,_nb_iter>=0,_dt,_keep_sequence={ 0 | 1 }
+#@cli : Apply iterations of the Perona-Malik flow on selected images.
+#@cli : Default values: 'K_factor=20', 'nb_iter=5', 'dt=5' and 'keep_sequence=0'.
+#@cli : $ image.jpg +heat_flow 20
+peronamalik_flow : check "${1=20}>0 && ${2=5}>=0" skip ${3=5},${4=0}
+e[^-1] "Apply $2 iterations of the Perona-Malik flow on image$?, with K factor $1 and time step $3."
+m "_peronamalik_flow :
++gradient xy,0 a[-2,-1] c norm. b. 0.8 /. $1 sqr. *. -1 exp. a[-2,-1] c
+f. '\"s1=s-1;
+C=i(x,y,z,s-1);
+if(c>=s1,0,
+(C+i(x+1,y,z,s-1,0,1))*(j(1,0,0,0,0,1)-i) -
+(C+i(x-1,y,z,s-1,0,1))*(i-j(-1,0,0,0,0,1)) +
+(C+i(x,y+1,z,s-1,0,1))*(j(0,1,0,0,0,1)-i) -
+(C+i(x,y-1,z,s-1,0,1))*(i-j(0,-1,0,0,0,1)))\"'"
+pde_flow $2,$3,_peronamalik_flow,$4
+um _peronamalik_flow
+#@cli phase_correlation : [destination]
+#@cli : Estimate translation vector between selected source images and specified destination.
+#@cli : $ image.jpg +shift -30,-20 +phase_correlation[0] [1] unroll[-1] y
+phase_correlation : check ${"is_image_arg $1"}
+e[^-1] "Estimate shift between source image$? and destination $1."
+pass$1
+repeat $!-1 {
+normalized_cross_correlation[$>] .
+l[$>] {
+eval "
+store('res',
+[xM>=w/2?xM - w:xM,
+yM>=h/2?yM - h:yM,
+zM>=d/2?zM - d:zM]*=-1,1,1,1,3)"
+}
+$res => "[phase correlation]" rv[$>,-1] rm.
+} rm.
+#@cli pde_flow : _nb_iter>=0,_dt,_velocity_command,_keep_sequence={ 0 | 1 }
+#@cli : Apply iterations of a generic PDE flow on selected images.
+#@cli : Default values: 'nb_iter=10', 'dt=30', 'velocity_command=laplacian' and 'keep_sequence=0'.
+#@cli : $ image.jpg +pde_flow 20
+pde_flow : skip ${1=10},${2=30},${3=laplacian},${4=0}
+e[^-1] "Apply $1 iterations of the velocity flow '$3' on image$?, with time step $2."
+foreach {
+repeat $1 {
++$3. *. {$2/(0.01+max(abs(im),abs(iM)))}
+if $4 +. .. else +[-2,-1] fi
+}
+if $4 rm[0] fi
+a x
+}
+if $4 s x,$1 fi
+#@cli periodize_poisson
+#@cli : Periodize selected images using a Poisson solver in Fourier space.
+#@cli : $ image.jpg +periodize_poisson array 2,2,2
+periodize_poisson :
+e[^-1] "Periodize image$? using Poisson solver in Fourier space."
+foreach {
+s c foreach {
+mM:=[im,iM] sum={0,ia}
+laplacian ilaplacian 0 + $sum c $mM
+}
+a c
+}
+#@cli rbf : dx,_x0,_x1,_phi(r) : dx,dy,_x0,_y0,_x1,_y1,_phi(r) : dx,dy,dz,x0,y0,z0,x1,y1,z1,phi(r)
+#@cli : Reconstruct 1D/2D or 3D image from selected sets of keypoints, by RBF-interpolation.
+#@cli : A set of keypoints is represented by a vector-valued image, where each pixel represents a single keypoint.
+#@cli : Vector components of a keypoint have the following meaning:
+#@cli : - For 1D reconstruction: [ x_k, f1(k),...fN(k) ].
+#@cli : - For 2D reconstruction: [ x_k,y_k, f1(k),...,fN(k) ].
+#@cli : - For 3D reconstruction: [ x_k,y_k,z_k, f1(k),...,fN(k) ].
+#@cli : Values 'x_k','y_k' and 'z_k' are the spatial coordinates of keypoint 'k'.
+#@cli : Values 'f1(k),..,fN(k)' are the 'N' components of the vector value of keypoint 'k'.
+#@cli : The command reconstructs an image with specified size 'dx'x'dy'x'dz', with 'N' channels.
+#@cli : Default values: 'x0=y0=z0=0', 'x1=dx-1', 'y1=dy-1', 'z1=dz-1', 'phi(r)=r^2*log(1e-5+r)'.
+#@cli : $ sp colorful r2dx 400 100%,100% noise_poissondisk. 10 1,{is},1,5 eval[-2] "begin(p=0);i?(I[#-1,p++]=[x,y,I(#0)])" to_rgb[1] mul[0,1] dilate_circ[0] 5 +rbf[-1] {0,[w,h]} c[-1] 0,255
+#@cli : $ 32,1,1,5,u([400,400,255,255,255]) rbf 400,400 c 0,255
+rbf :
+$=a
+default_phi_r="r^2*log(1 + r)"
+if isin($#,1,3,4) # 1D reconstruction
+dx,x0,x1=$a1,{$#>1?[$a2,$a3]:[0,$a1-1]}
+phi_r={`$#>3?['$a4']:'$default_phi_r'`}
+check $dx>0
+e[^-1] "Reconstruct 1D image from keypoint set$?, with size "$dx", ""from ("$x0") to ("$x1") and phi(r) = "$phi_r.
+foreach { nm={n} if !w $dx elif whd==1 channels. 1,100% r. $dx,1,1,100% else
+r 1,{whd},1,100%,-1 permute. cyzx
+$dx,1,1,{w-1},"*
+begin(
+phi(r) = ("$phi_r");
+ref(crop(#0,0,0,0,0,1,h#0,1,1),X);
+ref(crop(#0,1,0,0,0,s,h#0,1,1,1),F);
+ref(vector(#h#0^2),M);
+repeat (h#0,k,
+for (l = 0, l<=k, ++l,
+r = abs(X[k] - X[l]);
+M[k*h#0 + l] = M[l*h#0 + k] = phi(r);
+)
+);
+ref(solve(M,F,s,1),W);
+const fx = ("$x1-$x0")/(w-1);
+);
+ref(vectors(),res); x = (x - "$x0")*fx;
+repeat (h#0,k, r = abs(x - X[k]); res+=W[s*k,s]*phi(r));
+res"
+k. => $nm
+fi }
+elif isin($#,2,6,7) # 2D reconstruction
+dx,dy,x0,y0,x1,y1=$a1,$a2,{$#>2?[$a3,$a4,$a5,$a6]:[0,0,[$a1,$a2]-1]}
+phi_r={`$#>6?['$a7']:'$default_phi_r'`}
+check $dx>0" && "$dy>0
+e[^-1] "Reconstruct 2D image from keypoint set$?, with size "$dx,$dy", ""from ("$x0,$y0") to ("$x1,$y1") and phi(r) = "$phi_r.
+foreach { nm={n} if !w $dx,$dy elif whd==1 channels 2,100% r. $dx,$dy,1,100% else
+r 1,{whd},1,100%,-1 permute. cyzx
+$dx,$dy,1,{w-2},"*
+begin(
+phi(r) = ("$phi_r");
+ref(crop(#0,0,0,0,0,1,h#0,1,1),X);
+ref(crop(#0,1,0,0,0,1,h#0,1,1),Y);
+ref(crop(#0,2,0,0,0,s,h#0,1,1,1),F);
+ref(vector(#h#0^2),M);
+repeat (h#0,k,
+for (l = 0, l<=k, ++l,
+r = norm(X[k] - X[l],Y[k] - Y[l]);
+M[k*h#0 + l] = M[l*h#0 + k] = phi(r);
+)
+);
+ref(solve(M,F,s,1),W);
+const fx = ("$x1-$x0")/(w-1);
+const fy = ("$y1-$y0")/(h-1);
+);
+ref(vectors(),res); x = (x - "$x0")*fx; y = (y - "$y0")*fy;
+repeat (h#0,k, r = norm(x - X[k], y - Y[k]); res+=W[s*k,s]*phi(r));
+res"
+k. => $nm
+fi }
+elif isin($#,3,9,10) # 3D reconstruction
+dx,dy,dz,x0,y0,z0,x1,y1,z1=$a1,$a2,$a3,{$#>3?[$a4,$a5,$a6,$a7,$a8,$a9]:[0,0,0,[$a1,$a2,$a3]-1]}
+phi_r={`$#>9?['$arg10']:'$default_phi_r'`}
+check $dx>0" && "$dy>0" && "$dz>0
+e[^-1] "Reconstruct 3D image from keypoint set$?, with size "$dx,$dy,$dz", ""from ("$x0,$y0,$z0") to ("$x1,$y1,$z1") and phi(r) = "$phi_r.
+foreach { nm={n} if !w $dx,$dy,$dz elif whd==1 channels 3,100% r. $dx,$dy,$dz,100% else
+r 1,{whd},1,100%,-1 permute. cyzx
+$dx,$dy,$dz,{w-3},"*
+begin(
+phi(r) = ("$phi_r");
+ref(crop(#0,0,0,0,0,1,h#0,1,1),X);
+ref(crop(#0,1,0,0,0,1,h#0,1,1),Y);
+ref(crop(#0,2,0,0,0,1,h#0,1,1),Z);
+ref(crop(#0,3,0,0,0,s,h#0,1,1,1),F);
+ref(vector(#h#0^2),M);
+repeat (h#0,k,
+for (l = 0, l<=k, ++l,
+r = norm(X[k] - X[l],Y[k] - Y[l],Z[k] - Z[l]);
+M[k*h#0 + l] = M[l*h#0 + k] = phi(r);
+)
+);
+ref(solve(M,F,s,1),W);
+const fx = ("$x1-$x0")/(w - 1);
+const fy = ("$y1-$y0")/(h - 1);
+const fz = ("$z1-$z0")/(d - 1);
+);
+ref(vectors(),res); x = (x - "$x0")*fx; y = (y - "$y0")*fy; z = (z - "$z0")*fz;
+repeat (h#0,k, r = norm(x - X[k], y - Y[k], z - Z[k]); res+=W[s*k,s]*phi(r));
+res"
+k. => $nm
+fi }
+else error[0--2] "Command 'rbf': invalid arguments '$*'."
+fi
+#@cli red_eye : 0<=_threshold<=100,_smoothness>=0,0<=attenuation<=1
+#@cli : Attenuate red-eye effect in selected images.
+#@cli : Default values: 'threshold=75', 'smoothness=3.5' and 'attenuation=0.1'.
+#@cli : $ image.jpg +red_eye ,
+red_eye : skip ${1=75},${2=3.5},${3=0.1}
+e[^-1] "Attenuate red-eye effect in image$?, with threshold $1, smoothness $2 and attenuation $3."
+to_rgb rgb2ycbcr
+foreach {
+s c -. 128 +>=. $1% b. $2 sqrt. *. -1 +. 1
+n. $3,1 *[-2,-1] +. 128 a c ycbcr2rgb
+}
+#@cli remove_hotpixels : _mask_size>0, _threshold[%]>0
+#@cli : Remove hot pixels in selected images.
+#@cli : Default values: 'mask_size=3' and 'threshold=10%'.
+#@cli : $ image.jpg noise 10,2 +remove_hotpixels ,
+remove_hotpixels : check ${1=3}>0 skip ${2=10%}
+e[^-1] "Remove hot pixels in image$?, with mask size $1 and threshold $2."
+foreach {
++median $1 +- abs. >=. $2
+*.. . ==. 0 *[-3,-1] +
+}
+#@cli remove_pixels : number_of_pixels[%]>=0
+#@cli : Remove specified number of pixels (i.e. set them to 0) from the set of non-zero pixels in selected images.
+#@cli : $ image.jpg +remove_pixels 50%
+remove_pixels : check "$1>=0"
+e[^-1] "Remove $1 of the non-zero pixels in image$?."
+foreach {
++norm !=. 0
+N:=is
+n:=round(${"is_percent $1"}?$N*$1:$1)
+if $n<=0 rm.
+elif $n>=$N rm. f 0
+elif $n>int($N/2)
+remove_pixels. {$N-$n} ==. 0 *
+else
+d:=d r 100%,{d*h},1,100%,-1
+100%,1,1,1,x 1,{-2,h},1,1,y +[-2,-1] 1 r[-2,-1] ..,.
+*[-2,-1] ... rm...
+y[-2,-1] a[-2,-1] x discard. y,0
+do
+1,100%,1,1 rand. 0,{h} <=. {$n*1.25}
+if is>=$n break else rm. fi
+while 1
+r. 2 *[-2,-1] discard. y,0
+i.. 1,100% rand.. 0,1 a[-2,-1] x sort. +,y
+rows. 0,{$n-1} -. 1 z. 1,3
+i.. ({'CImg3d'},{h},{h})
+1,100%,1,1,1 1,100%,1,1,y a[-2,-1] x
+3,100% 1,100%,1,1,1 y[-5--1] a[-5--1] y
+if s#0<=3 j3d.. .,0,0,0,1,0,0,0,0
+else [0],[0],1,1,1 j3d. ..,0,0,0,1,0,0,0,0 *[0,-1]
+fi
+rm.
+r 100%,{h/$d},$d,100%,-1
+fi
+}
+#@cli rolling_guidance : std_deviation_s[%]>=0,std_deviation_r[%]>=0,_precision>=0
+#@cli : Apply the rolling guidance filter on selected image.
+#@cli : Rolling guidance filter is a fast image abstraction filter, described in:
+#@cli : "Rolling Guidance Filter", Qi Zhang Xiaoyong, Shen Li, Xu Jiaya Jia, ECCV'2014.
+#@cli : Default values: 'std_deviation_s=4', 'std_deviation_r=10' and 'precision=0.5'.
+#@cli : $ image.jpg +rolling_guidance , +-
+rolling_guidance : check "${1=4}>=0 && ${2=10}>=0 && ${3=0.5}>=0"
+e[^-1] "Apply rolling guidance filter on image$?, with standard deviations ($1,$2) and precision $3."
+precision:=2^-$3
+foreach { nm={n}
++b $1
+repeat 100 {
+if c>1 +norm. +bilateral... .,$1,$2 rm..
+else +bilateral.. .,$1,$2
+fi
+-.. . std={-2,id} rm..
+if $std<$precision break fi
+}
+k. => $nm
+}
+#@cli sharpen : amplitude>=0 : amplitude>=0,edge>=0,_alpha[%],_sigma[%]
+#@cli : Sharpen selected images by inverse diffusion or shock filters methods.
+#@cli : 'edge' must be specified to enable shock-filter method.
+#@cli : Default values: 'edge=0', 'alpha=0' and 'sigma=0'.
+#@cli : $ image.jpg sharpen 300
+#@cli : $ image.jpg blur 5 sharpen 300,1
+sharpen : check "$1>=0 && ${2=0}>=0 && ${3=0}>=0 && ${4=0}>=0"
+if $2>0
+e[0--3] "Sharpen image$? with shock filters, amplitude $1, edge $2, alpha $3 and sigma $4."
+foreach {
+im,iM:=[im,iM]
++b $3 structuretensors. 0 b. $4 eigen. l.. { max 0 s c + + 1 ^ {-0.5*$2} *. -1 +. 1 }
+if {0,d>1}
++f[0] "const boundary = 1;
+minmod(a,b) = (a*b<=0?0:minabs(a,b));
+u = i(#-1,x,y,z,0);
+v = i(#-1,x,y,z,1);
+w = i(#-1,x,y,z,2);
+amp = i(#-2,x,y,z,0);
+Ippp = j(-1,-1,-1); Icpp = j(0,-1,-1); Inpp = j(1,-1,-1);
+Ipcp = j(-1,0,-1); Iccp = j(0,0,-1); Incp = j(1,0,-1);
+Ipnp = j(-1,1,-1); Icnp = j(0,1,-1); Innp = j(1,1,-1);
+Ippc = j(-1,-1,0); Icpc = j(0,-1,0); Inpc = j(1,-1,0);
+Ipcc = j(-1,0,0); Iccc = i; Incc = j(1,0,0);
+Ipnc = j(-1,1,0); Icnc = j(0,1,0); Innc = j(1,1,0);
+Ippn = j(-1,-1,1); Icpn = j(0,-1,1); Inpn = j(1,-1,1);
+Ipcn = j(-1,0,1); Iccn = j(0,0,1); Incn = j(1,0,1);
+Ipnn = j(-1,1,1); Icnn = j(0,1,1); Innn = j(1,1,1);
+ixx = Incc + Ipcc - 2*Iccc;
+ixy = 0.25*(Innc + Ippc - Inpc - Ipnc);
+ixz = 0.25*(Incn + Ipcp - Incp - Ipcn);
+iyy = Icnc + Icpc - 2*Iccc;
+iyz = 0.25*(Icnn + Icpp - Icnp - Icpn);
+izz = Iccn + Iccp - 2*Iccc;
+ixf = Incc - Iccc;
+ixb = Iccc - Ipcc;
+iyf = Icnc - Iccc;
+iyb = Iccc - Icpc;
+izf = Iccn - Iccc;
+izb = Iccc - Iccp;
+itt = u^2*ixx + v^2*iyy + w^2*izz + 2*u*v*ixy + 2*u*w*ixz + 2*v*w*iyz;
+it = u*minmod(ixf,ixb) + v*minmod(iyf,iyb) + w*minmod(izf,izb);
+amp*sign(itt)*abs(it)"
+else
++f[0] "const boundary = 1;
+minmod(a,b) = (a*b<=0?0:minabs(a,b));
+u = i(#-1,x,y,z,0);
+v = i(#-1,x,y,z,1);
+amp = i(#-2,x,y,z,0);
+Ipp = j(-1,-1); Icp = j(0,-1); Inp = j(1,-1);
+Ipc = j(-1,0); Icc = i; Inc = j(1,0);
+Ipn = j(-1,1); Icn = j(0,1); Inn = j(1,1);
+ixx = Inc + Ipc - 2*Icc;
+ixy = 0.25*(Ipp + Inn - Ipn - Inp);
+iyy = Icn + Icp - 2*Icc;
+ixf = Inc - Icc;
+iyf = Icn - Icc;
+ixb = Icc - Ipc;
+iyb = Icc - Icp;
+itt = u^2*ixx + v^2*iyy + 2*u*v*ixy;
+it = y*minmod(ixf,ixb) + v*minmod(iyf,iyb);
+amp*sign(itt)*abs(it)"
+fi
+*. {$1/abs(maxabs(im,iM))} rm[-3,-2] - c $im,$iM
+}
+else
+e[0--3] "Sharpen image$? with inverse diffusion and amplitude $1."
+foreach {
+im,iM:=[im,iM] +laplacian *. {$1/abs(maxabs(im,iM))} - c $im,$iM
+}
+fi
+#@cli smooth : amplitude[%]>=0,_sharpness>=0,0<=_anisotropy<=1,_alpha[%],_sigma[%],_dl>0,_da>0,_precision>0,_interpolation,_fast_approx={ 0 | 1 } : nb_iterations>=0,_sharpness>=0,_anisotropy,_alpha,_sigma,_dt>0,0 : [tensor_field],_amplitude>=0,_dl>0,_da>0,_precision>0,_interpolation,_fast_approx={ 0 | 1 } : [tensor_field],_nb_iters>=0,_dt>0,0 : (+)
+#@cli : Smooth selected images anisotropically using diffusion PDE's, with specified field of
+#@cli : diffusion tensors.
+#@cli : 'interpolation' can be { 0=nearest | 1=linear | 2=runge-kutta }.
+#@cli : Default values: 'sharpness=0.7', 'anisotropy=0.3', 'alpha=0.6', 'sigma=1.1', 'dl=0.8', 'da=30', 'precision=2', 'interpolation=0' and 'fast_approx=1'.
+#@cli : $ image.jpg repeat 3 smooth 40,0,1,1,2 done
+#@cli : $ image.jpg 100%,100%,1,2 rand[-1] -100,100 repeat 2 smooth[-1] 100,0.2,1,4,4 done warp[0] [-1],1,1,1
+#@cli : $$ https://gmic.eu/oldtutorial/_smooth
+#@cli split_freq : smoothness>0[%]
+#@cli : Split selected images into low and high frequency parts.
+#@cli : $ image.jpg split_freq 2%
+split_freq :
+e[^-1] "Split image$? into low and high frequency parts, with smoothness $1."
+foreach { +b $1 -[0] [1] rv }
+#@cli solve_poisson : "laplacian_command",_nb_iterations>=0,_time_step>0,_nb_scales>=0
+#@cli : Solve Poisson equation so that applying 'laplacian[n]' is close to the result of 'laplacian_command[n]'.
+#@cli : Solving is performed using a multi-scale gradient descent algorithm.
+#@cli : If 'nb_scales=0', the number of scales is automatically determined.
+#@cli : Default values: 'nb_iterations=60', 'dt=5' and 'nb_scales=0'.
+#@cli : $ image.jpg command "foo : gradient x" +solve_poisson foo +foo[0] +laplacian[1]
+solve_poisson : check "${2=60}>=0 && ${3=5}>0 && ${4=0}>=0"
+e[^-1] "Solve Poisson equation for image$?, for laplacian command '$1', with $2 iterations, time step $3 and "${arg0\ ($4==0),$4,auto}" scales."
+foreach {
+[0]
+repeat if($4,$4,int(max(log2(max(w,h))-1,1))) {
+f={2^$<}
+r[1] {0,max(1,w/$f)},{0,max(1,h/$f)},1,100%,3
++ri[0] [1],2 l. { $1 k[0] }
+repeat $2 { +laplacian.. -. .. *. {$3/max(1e-8,abs(im),abs(iM))} +[-3,-1] }
+rm.
+}
+rm[0]
+}
+#@cli split_details : _nb_scales>0,_base_scale[%]>=0,_detail_scale[%]>=0
+#@cli : Split selected images into 'nb_scales' detail scales.
+#@cli : If 'base_scale'=='detail_scale'==0, the image decomposition is done with 'a trous' wavelets.
+#@cli : Otherwise, it uses laplacian pyramids with linear standard deviations.
+#@cli : Default values: 'nb_scales=4', 'base_scale=0' and 'detail_scale=0'.
+#@cli : $ image.jpg split_details ,
+split_details : check "isint(${1=4}) && $1>0 && ${2=0}>=0 && ${3=0}>=0"
+if ($2)==0" && "($3)==0
+e[^-1] "Split image$? using $1 spatial scales and 'a trous' wavelets."
+foreach {
+repeat $1-1 {
++f. "begin(interpolation = 0; boundary = 1; d = 2^"$>"; d2 = d*2);
+i(x - d2) + i(x + d2) + 4*i(x - d) + 4*i(x + d) + 6*i;"
+/. 16
+if h>1
+f. "begin(interpolation = 0; boundary = 1; d = 2^"$>"; d2 = d*2);
+i(x,y - d2) + i(x,y + d2) + 4*i(x,y - d) + 4*i(x,y + d) + 6*i;"
+/. 16
+fi
+if d>1
+f. "begin(interpolation = 0; boundary = 1; d = 2^"$>"; d2 = d*2);
+i(x,y,z - d2) + i(x,y,z + d2) + 4*i(x,y,z - d) + 4*i(x,y,z + d) + 6*i;"
+/. 16
+fi
+-.. .
+}
+rv
+}
+else
+e[^-1] "Split image$? using $1 spatial scales with base scale $2 and detail scale $3."
+foreach {
+ss={max(0.3,if(${is_percent\ $2},$2*max(w,h),$2))}
+se={max(0.3,if(${is_percent\ $3},$3*max(w,h),$3))}
+ds={$se-$ss}
+repeat $1-1 { +b. {$ss+$>*$ds/max(1,$1-2)} -.. . rv[-2,-1] }
+}
+fi
+#@cli structuretensors : _scheme={ 0=centered | 1=forward/backward }
+#@cli : Compute the structure tensor field of selected images.
+#@cli : Default value: 'scheme=0'.
+#@cli : $ image.jpg structuretensors abs pow 0.2
+#@cli : $$ https://gmic.eu/oldtutorial/_structuretensors
+structuretensors : skip "${1=}"
+l[] { if "isbool($1)" scheme=$1 else scheme=0 noarg fi onfail scheme=0 noarg }
+s0,s1=centered,forward-backward
+e[^-1] "Compute structure tensor field of image$?, with "${s$scheme}" scheme."
+foreach {
+if d>1
+if $scheme
++g xyz,-1 +g[0] xyz,1 sqr[^0] +[1,4] +[2,4] +[3,4] /[^0] 2
+g[0] xyz,0 [2] *. [1] *[2] [0] *[0,1] compose_channels + mv[2] 0 mv. -2 a c
+else
+g xyz,0 +*[0,1] +*[0,2] +*[1,2] sqr[0-2] compose_channels + mv[3,4] 1 rv[4,5] a c
+fi
+else
+if $scheme
++g xy,-1 +g[0] xy,1 sqr[^0] +[1,3] +[2,3] /[^0] 2
+g[0] xy,0 *[0,1] compose_channels + mv[0] 2 a c
+else
+g xy,0 +* sqr[0,1] compose_channels + rv[1,2] a c
+fi
+fi
+}
+#@cli solidify : _smoothness[%]>=0,_diffusion_type={ 0=isotropic | 1=Delaunay-guided | 2=edge-oriented },_diffusion_iter>=0
+#@cli : Solidify selected transparent images.
+#@cli : Default values: 'smoothness=75%', 'diffusion_type=1' and 'diffusion_iter=20'.
+#@cli : $ image.jpg 100%,100% circle[-1] 50%,50%,25%,1,255 append c +solidify , display_rgba
+solidify : check "${1=75%}>=0 && isint(${2=1}) && $2>=0 && $2<=2 && ${3=20}>=0"
+s0="isotropic" s1="Delaunay-guided" s2="edge-oriented"
+e[^-1] "Solidify transparent image$? with smoothness $1 and $3 iterations of "${s$2}" diffusion."
+foreach { split_opacity if $!>1 <=. 128 inpaint_pde.. [1],${1-3} rm. c 0,255 fi }
+#@cli syntexturize : _width[%]>0,_height[%]>0
+#@cli : Resynthetize 'width'x'height' versions of selected micro-textures by phase randomization.
+#@cli : The texture synthesis algorithm is a straightforward implementation of the method described in :
+#@cli : =1
+#@cli : Return locations of maximal values in local patch-based neighborhood of given size for selected images.
+#@cli : Default value: 'patch_size=16'.
+#@cli : $ image.jpg norm +max_patch 16
+max_patch : check "isint(${1=16}) && $1>=1"
+e[^-1] "Return locations of maximal values in local patch neighborhood of size $1, in image$?."
+repeat $! { +dilate[$>] $1 ==[$>,-1] }
+#@cli min_patch : _patch_size>=1
+#@cli : Return locations of minimal values in local patch-based neighborhood of given size for selected images.
+#@cli : Default value: 'patch_size=16'.
+#@cli : $ image.jpg norm +min_patch 16
+min_patch : check "isint(${1=16}) && $1>=1"
+e[^-1] "Return locations of minimal values in local patch neighborhood of size $1, in image$?."
+repeat $! { +erode[$>] $1 ==[$>,-1] }
+#@cli minimal_path : x0[%]>=0,y0[%]>=0,z0[%]>=0,x1[%]>=0,y1[%]>=0,z1[%]>=0,_is_high_connectivity={ 0 | 1 }
+#@cli : Compute minimal path between two points on selected potential maps.
+#@cli : Default value: 'is_high_connectivity=0'.
+#@cli : $ image.jpg +gradient_norm fill[-1] 1/(1+i) minimal_path[-1] 0,0,0,100%,100%,0 pointcloud[-1] 0 *[-1] 280 to_rgb[-1] ri[-1] [-2],0 or
+minimal_path : check "$1>=0 && $2>=0 && $3>=0" skip ${7=0}
+e[^-1] "Compute minimal path between points ($1,$2,$3) and ($4,$5,$6) for potential map$?, with "${arg0\ $7,low,high}" connectivity."
+foreach {
+nm={n}
+- {im} + {iM/100}
+100%,100% = 1,${4-6} distance. 1,[0],{if($7,4,3)} k. channels. 1
+i[0] 0
+eval "
+is_percent(str) = (unref(_is_pct); _is_pct=['#str']; _is_pct[size(_is_pct) - 1]==_'%');
+x = round(is_percent($1)?$1*(w - 1):$1);
+y = round(is_percent($2)?$2*(h - 1):$2);
+z = round(is_percent($3)?$3*(d - 1):$3);
+da_push(#0,[x,y,z]);
+do (
+p = i(x,y,z);
+p&1?--x:p&2?++x;
+p&4?--y:p&8?++y;
+p&16?--z:p&32?++z;
+da_push(#0,[x,y,z]),
+_(while) p);
+resize(#0,1,da_size(#0),1,3,0)"
+rm. => $nm
+}
+#@cli mse : [reference]
+#@cli : Return the MSE (Mean-Squared Error) between selected images and specified reference image.
+#@cli : This command does not modify the images. It returns a value or a list of values in the status.
+mse :
+e[^-1] "Compute MSE between image$? and reference image $1."
+pass$1 1 +_mse[^-1] . rm.
++mse :
+e[^-1] "Compute MSE between image$? and reference image $1."
+pass$1 1 +_mse[^-1] . rm.
++_mse : check ${"is_image_arg $1"}
+rep,sep=
+pass$1 1
++foreach[^-1] {
+pass. 1
+if [w#0,h#0,d#0,s#0]!=[w#1,h#1,d#1,s#1]
+error[0--5] "Command 'mse': Image dimensions ("{0,[w,h,d,s]}") and ("{1,[w,h,d,s]}") do not match."
+fi
+- sqr res.=$sep{ia} sep=, rm
+}
+rm. u $res
+#@cli mse_matrix
+#@cli : Compute MSE (Mean-Squared Error) matrix between selected images.
+#@cli : $ image.jpg +noise 30 +noise[0] 35 +noise[0] 38 cut. 0,255 +mse_matrix
+mse_matrix :
+e[^-1] "Compute the "$!x$!" matrix of MSE values, for image$?."
++mse_matrix k.
++mse_matrix :
+e[^-1] "Compute the "$!x$!" matrix of MSE values, for images$?."
+N=$! $N,$N
+repeat $N { i=$>
+j:=$i+1 for $j<$N {
++mse[$i] [$j] =. ${},$i,$j =. ${},$j,$i
+j+=1
+}
+}
+#@cli patches2img : width>0,height>0,_overlap[%]>0,_overlap_std[%]
+#@cli : Recompose 2D images from their selected patch representations.
+#@cli : 'overlap' must be in range '[0,patch_size-1]' where 'patch_size' is the width/height of the selected image.
+#@cli : 'overlap_std' is the standard deviation of the gaussian weights used for reconstructing overlapping patches.
+#@cli : If 'overlap_std' is set to '-1', uniform weights are used rather than gaussian.
+#@cli : Default value: 'overlap=0' and 'overlap_std=-1'.
+#@cli : See also: ''img2patches''.
+#@cli : $ image.jpg +img2patches 32,0,3 mirror[-1] xy patches2img[-1] {0,[w,h]}
+patches2img : check "isint($1) && $1>0 && isint($2) && $2>0 && ${3=0}>=0 && (${4=-1}==-1 || $4>=0)"
+e[^-1] "Recompose 2D images from patch-image$?, with size ($1,$2), overlap $3 and overlap_std $4."
+foreach {
+if w!=h error[0--4] "Command 'patches2img': Image "[$>]" is not a patch-image (size: "{[w,h,d,s]}")." fi
+nm={n} psiz:=w W,H:=${1,2}
+if ${"is_percent $3"} overlap:=round(lerp(0,$psiz-1,$3)) else overlap:=int($3) fi
+if $overlap<0" || "$overlap>=$psiz
+error[0--4] "Command 'patches2img': Specified overlap $3 (value: "$overlap") is larger than ""patch size (value: "$psiz")."
+fi
+step:=$psiz-$overlap
+Nw,Nh:=round([$W,$H]/$step,1,1)
+$W,$H,1,100%
+if $overlap
+$psiz,$psiz if $4==-1 f. 1 else gaussian. $4 n. 1e-8,1 fi store. weights
+$W,$H,1,1,1e-5
+1,1,[0],1,">
+begin(M = get('weights',$psiz*$psiz));
+P = crop(#0,0,0,z,$psiz,$psiz,1);
+X = $step*(z%$Nw);
+Y = $step*int(z/$Nw);
+draw(#1,P,X,Y,0,0,$psiz,$psiz,1,s#0,-1,M);
+draw(#2,M,X,Y,0,0,$psiz,$psiz,1,1,-1)"
+/[-3,-2]
+else
+1,1,[0],1,"*
+P = crop(#0,0,0,z,w#0,h#0,1);
+X = $step*(z%$Nw);
+Y = $step*int(z/$Nw);
+draw(#1,P,X,Y,0,0,w#0,h#0,1,s#0)"
+fi
+k.. => $nm
+}
+#@cli patches : patch_width>0,patch_height>0,patch_depth>0,x0,y0,z0,_x1,_y1,_z1,...,_xN,_yN,_zN
+#@cli : Extract N+1 patches from selected images, centered at specified locations.
+#@cli : $ image.jpg +patches 64,64,1,153,124,0,184,240,0,217,126,0,275,38,0
+patches : check "isint($1) && $1>0 && isint($2) && $2>0 && isint($3) && $3>0"
+e[^-1] "Extract $1x$2x$3 patches from image$?, at locations (${4--1})."
+(${4--1}) r. 3,{w/3},1,1,-1 permute. yzcx N={w}
+H={int(sqrt(w))} W={round(w/$H,1,1)} r. {$W*$H},1,1,3,0 r. $W,$H,1,3,-1
+r. {w*$1},{h*$2},{d*$3}
+$1,$2,$3,1,x-{int($1/2)} +f. y-{int($2/2)} +f. z-{int($3/2)} a[-3--1] c ri. ..,0,2 +[-2,-1]
+repeat $!-1 { warp[$>] .,0,0,0 } rm.
+foreach { s y,$H s x,$W k[0-{$N-1}] }
+#@cli matchpatch : [patch_image],patch_width>=1,_patch_height>=1,_patch_depth>=1,_nb_iterations>=0,_nb_randoms>=0,_patch_penalization,_output_score={ 0 | 1 },_[guide] : (+)
+#@cli : Estimate correspondence map between selected images and specified patch image, using
+#@cli : a patch-matching algorithm.
+#@cli : Each pixel of the returned correspondence map gives the location (p,q) of the closest patch in
+#@cli : the specified patch image. If 'output_score=1', the third channel also gives the corresponding
+#@cli : matching score for each patch as well.
+#@cli : If 'patch_penalization' is >=0, SSD is penalized with patch occurrences.
+#@cli : If 'patch_penalization' is <0, SSD is inf-penalized when distance between patches are less than '-patch_penalization'.
+#@cli : Default values: 'patch_height=patch_width', 'patch_depth=1', 'nb_iterations=5', 'nb_randoms=5', 'patch_penalization=0', 'output_score=0' and 'guide=(undefined)'.
+#@cli : $ image.jpg sample colorful +matchpatch[0] [1],3 +warp[-2] [-1],0
+#@cli plot2value
+#@cli : Retrieve values from selected 2D graph plots.
+#@cli : $ 400,300,1,1,'if(y>300*abs(cos(x/10+2*u)),1,0)' +plot2value +display_graph[-1] 400,300
+plot2value :
+e[^-1] "Retrieve values from 2D graph plot$?."
+foreach {
+s c >= 50%
+foreach { (1,{w}) ri[1] [0],3 * histogram {w},1,{w} }
+a c
+}
+#@cli pointcloud : _type = { -X=-X-opacity | 0=binary | 1=cumulative | 2=label | 3=retrieve coordinates },_width,_height>0,_depth>0
+#@cli : Render a set of point coordinates, as a point cloud in a 1D/2D or 3D binary image
+#@cli : (or do the reverse, i.e. retrieve coordinates of non-zero points from a rendered point cloud).
+#@cli : Input point coordinates can be a NxMx1x1, Nx1x1xM or 1xNx1xM image, where 'N' is the number of points,
+#@cli : and M the point coordinates.
+#@cli : If 'M'>3, the 3-to-M components sets the (M-3)-dimensional color at each point.
+#@cli : Parameters 'width','height' and 'depth' are related to the size of the final image :
+#@cli : - If set to 0, the size is automatically set along the specified axis.
+#@cli : - If set to N>0, the size along the specified axis is N.
+#@cli : - If set to N<0, the size along the specified axis is at most N.
+#@cli : Points with coordinates that are negative or higher than specified ('width','height','depth')
+#@cli : are not plotted.
+#@cli : Default values: 'type=0' and 'max_width=max_height=max_depth=0'.
+#@cli : $ 3000,2 rand 0,400 +pointcloud 0 dilate[-1] 3
+#@cli : $ 3000,2 rand 0,400 {w} {w},3 rand[-1] 0,255 append y +pointcloud 0 dilate[-1] 3
+pointcloud : check "${1=0}<=3 && ${2=0}>=0 && ${3=0}>=0 && ${4=0}>=0"
+e[^-1] "Convert image$? to point clouds, in "${arg\ 2+($1>=0)*$1-($1<0),{-$1}-opacity,binary,cumulative,labeling}" mode, with dimensions $2x$3x$4."
+foreach {
+nm={n}
+if $1!=3
+if "d>1 || (w>1 && h>1 && s>1)"
+error "Command '$0': Invalid input image "{w}x{h}x{d}x{s}". Should be NxMx1x1, Nx1x1xM or 1xNx1xM."
+fi
+if "w>1 && h>1 && s==1" r 100%,1,1,{h},-1
+elif "w==1 && h>1 && s>1" r {h},1,1,{s},-1
+fi
+if s<3 channels 0,2 fi
+if s<4 100%,1,1,1,1 a[-2,-1] c fi
+sh. 0 round. siz_x={!$2?iM+1:$2}
+sh.. 1 round. siz_y={!$3?iM+1:$3}
+sh... 2 round. siz_z={!$4?iM+1:$4}
+rm[-3--1]
+$siz_x,$siz_y,$siz_z,{$1!=2?s-3:1}
+if $1<0
+f.. ">V = I; P = V[0,3]; C = V[3,size(V) - 3]; I(#-1,P) = (1+$1)*I(#-1,P) - $1*C; V"
+elif $1==0
+f.. ">V = I; P = V[0,3]; C = V[3,size(V) - 3]; I(#-1,P) = C; V"
+elif $1==1
+f.. ">V = I; P = V[0,3]; C = V[3,size(V) - 3]; I(#-1,P) += C; V"
+else
+f.. ">begin(l = 0); V = I; P = V[0,3]; C = V[3,size(V) - 3]; I(#-1,P) = ++l; V"
+fi
+else
+16,1,1,{s+3}
+f.. ">
+begin(N = 0; zero = vectors(0));
+I!=zero?I[#-1,N++] = [ x,y,z,I ];
+N>=w(#-1)?resize(#-1,1.5*w(#-1),1,1,s#-1,0);
+end(resize(#-1,N,1,1,s#-1,0));
+I"
+fi
+k. => $nm
+}
+#@cli psnr : [reference],_max_value>0
+#@cli : Return PSNR (Peak Signal-to-Noise Ratio) between selected images and specified reference image.
+#@cli : This command does not modify the images. It returns a value or a list of values in the status.
+#@cli : Default value: 'max_value=255'.
+psnr : check ${"is_image_arg $1"}" && ${2=255}>0"
+e[^-1] "Compute PSNR between image$? and reference image $1, with max value $2."
+pass$1 1 +_psnr[^-1] .,$2 rm.
++psnr : check ${"is_image_arg $1"}" && ${2=255}>0"
+e[^-1] "Compute PSNR between image$? and reference image $1, with max value $2."
+pass$1 1 +_psnr[^-1] .,$2 rm.
++_psnr : check ${"is_image_arg $1"}" && ${2=255}>0"
+rep,sep=
+pass$1 1
++foreach[^-1] {
+pass. 1
+if [w#0,h#0,d#0,s#0]!=[w#1,h#1,d#1,s#1]
+error[0--5] "Command 'psnr': Image dimensions ("{0,[w,h,d,s]}") and ("{1,[w,h,d,s]}") do not match."
+fi
+- sqr res.=$sep{"const m2 = ($2)^2; 10*log10(m2/ia)"} sep=, rm
+}
+rm. u $res
+#@cli psnr_matrix : _max_value>0
+#@cli : Compute PSNR (Peak Signal-to-Noise Ratio) matrix between selected images.
+#@cli : Default value: 'max_value=255'.
+#@cli : $ image.jpg +noise 30 +noise[0] 35 +noise[0] 38 cut. 0,255 +psnr_matrix
+psnr_matrix : check "${1=255}>0"
+e[^-1] "Compute the "$!x$!" matrix of PSNR values, for image$?, with max value $1."
++psnr_matrix $1 k.
++psnr_matrix : check "${1=255}>0"
+e[^-1] "Compute the "$!x$!" matrix of PSNR values, for images$?, with max value $1."
+N=$! $N,$N
+repeat $N { i=$>
+j:=$i+1 for $j<$N {
++psnr[$i] [$j],$1 =. ${},$i,$j =. ${},$j,$i
+j+=1
+}
+=. inf,$i,$i
+}
+#@cli segment_watershed : _threshold>=0
+#@cli : Apply watershed segmentation on selected images.
+#@cli : Default values: 'threshold=2'.
+#@cli : $ image.jpg segment_watershed 2
+segment_watershed : check "${1=2}>=0"
+e[^-1] "Apply watershed segmentation on image$?, with edge threshold $1."
+foreach {
+min={im}
++ {1+$min} +gradient_norm
++f. "i<$1 && i=0,0<=_weight_std_max_avg<=1,_dilation,_smoothness>=0
+#@cli : Estimate bumpmap from binary shape in selected images.
+#@cli : Default value: 'resolution=256', 'weight_std_max=0.75', 'dilation=0' and 'smoothness=100'.
+shape2bump : check "isint(${1=256}) && $1>=0 && ${2=0.75}>=0 && $2<=1 && isnum(${3=0}) && ${4=100}>=0"
+e[^-1] "Estimate bumpmap from binary shape in image$?, using "${"if $1 u \"resolution $1\" else u \"full resolution\" fi"}", avg/max weight $2, dilation $3
+and smoothness $4."
+foreach {
+slices 0 channels 100% > 0 siz={[w,h]}
+distance 0 + $3
++f. "const boundary = 1;
+(i>j(-1)&&i>j(1)) || (i>j(0,-1)&&i>j(0,1)) || (i>j(-1,-1)&&i>j(1,1)) || (i>j(-1,1)&&i>j(1,-1))"
+is_resized=0
+if $1" && "max(w,h)>$1 rr2d $1,$1,0,2 gt. 0 thinning. 1 *.. {$1/max([$siz])} is_resized=1 fi
+rmax={0,iM}
+[0],[0]
+if $2>0
+eval[1] ":i?(
+r = i(#0,x,y);
+ir = floor(r);
+r2 = r^2;
+for (q = -ir, q<=ir, ++q,
+Y = y + q;
+for (p = -ir, p<=ir, ++p,
+X = x + p;
+dist = norm(p,q);
+dist=0 && $1<=1)"
+if isnum($1) bc=$1 else bc=1 noarg fi
+e[^-1] "Compute skeleton of binary image$? with "${"arg0 "$bc",dirichlet,neumann"}" boundary conditions."
+foreach { s c foreach {
+1,16,1,2
+1,16,1,2
++distance[0] 0
+f. "const boundary = 1;
+(i>j(-1)&&i>j(1)) || (i>j(0,-1)&&i>j(0,1)) || (i>j(-1,-1)&&i>j(1,1)) || (i>j(-1,1)&&i>j(1,-1))"
+f[0] ">const boundary = "$bc";
+i && (!j(-1) || !j(1) || !j(0,-1) || !j(0,1))?da_push(#1,[x,y]); i;"
+eval "
+const boundary = "$bc";
+is_removable = [ 0,0,1,1,0,0,1,1,1,1,0,1,1,1,0,1,1,1,0,0,1,1,1,1,0,0,0,0,0,0,0,1,0,0,1,1,0,0,1,1,1,1,0,1,1,1,0,
+1,1,1,0,0,1,1,1,1,0,0,0,0,0,0,0,1,1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+0,0,1,1,0,0,1,1,0,0,1,1,0,1,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1,1,0,0,1,1,1,1,0,1,1,
+1,0,1,1,1,0,0,1,1,1,1,0,0,0,0,0,0,0,1,0,0,1,1,0,0,1,1,1,1,0,1,1,1,0,1,1,1,0,0,1,1,1,1,0,0,0,0,
+0,0,0,1,1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,1,0,0,0,0,0,0,0,1,1,1,0,0,1,1,0,0,1,1,0,
+1,1,1,0,1,1,1,0,0,1,1,1,1,1,1,0,1,1,1,1,0 ];
+dotm = [ 128,64,32,16,0,8,4,2,1 ];
+is_removed = 1;
+while (is_removed,
+is_removed = 0;
+N = da_size(#1);
+repeat (N,n,
+xc = i(#1,0,n,0,0);
+yc = i(#1,0,n,0,1);
+icc = i(#0,xc,yc);
+(icc && !i(#3,xc,yc))?(
+xp = xc - 1; yp = yc - 1;
+xn = xc + 1; yn = yc + 1;
+ref(crop(#0,xp,yp,3,3),V);
+val = dot(dotm,V>0);
+is_removable[val]?(
+i(#0,xc,yc) = 0;
+is_removed = 1;
+V[3]==1?(da_push(#2,[xp,yc]); i(#0,xp,yc) = 2);
+V[5]==1?(da_push(#2,[xn,yc]); i(#0,xn,yc) = 2);
+V[1]==1?(da_push(#2,[xc,yp]); i(#0,xc,yp) = 2);
+V[7]==1?(da_push(#2,[xc,yn]); i(#0,xc,yn) = 2);
+):(da_push(#2,[xc,yc]); i(#0,xc,yc) = 2);
+)
+);
+resize(#1,1,h(#2),1,2,0);
+copy(i(#1),i(#2),2*h(#2));
+i[#2,h(#2)-1] = 0;
+);"
+k[0] > 0 thinning
+} a c }
+#@cli slic : size>0,_regularity>=0,_nb_iterations>0
+#@cli : Segment selected 2D images with superpixels, using the SLIC algorithm (Simple Linear Iterative Clustering).
+#@cli : Scalar images of increasingly labeled pixels are returned.
+#@cli : Reference paper: Achanta, R., Shaji, A., Smith, K., Lucchi, A., Fua, P., & Susstrunk, S. (2010). SLIC Superpixels (No. EPFL-REPORT-149300).
+#@cli : Default values: 'size=16', 'regularity=10' and 'nb_iterations=10'.
+#@cli : $ image.jpg +srgb2lab slic[-1] 16 +blend shapeaverage f[-2] "j(1,0)==i && j(0,1)==i" *[-1] [-2]
+slic : check "${1=16}>0 && ${2=10}>=0 && ${3=10}>0"
+e[^-1] "Segment image$? using SLIC superpixels, with size $1, regularity $2 and $3 iterations."
+S,m,nb_iter=${1-3}
+foreach {
+slices 50%
+{[max(1,round(w/$S)),max(1,round(h/$S))]},1,2,"round(([x,y]+=0.5)*="$S")"
+if $S>=3
++b[0] 0.7 g. xy,1 a[-2,-1] c norm.
+f.. "
+const n = round("$S"/3);
+const n1 = int(n/2);
+pos = argmin(crop(#-1,i0 - n1,i1 - n1,n,n,1));
+dxy = [pos%n,int(pos/n)] - n1;
+[ cut(i0 + dxy[0],0,w#0-1), cut(i1 + dxy[1],0,h#0-1) ]"
+rm.
+fi
+r. {wh},1,1,2,-1
+100%,1,1,{0,s},"I(#0,I#1)" a[-2,-1] c # Add superpixels colors
+[0],[0],1,2 eval.. "I(#-1,i0,i1) = [ x + 1,1 ]; I" s. c distance. 1 *. -1 watershed.. . rm. channels. 0,1
+repeat $nb_iter {
+sh[2] 1 f. inf rm.
+eval[1] "
+const m = "$m";
+const S = "$S";
+k = x;
+xk = i0;
+yk = i1;
+Ik = (I)[2,s#0];
+x0 = max(xk - S,0);
+x1 = min(xk + S,w#0 - 1);
+y0 = max(yk - S,0);
+y1 = min(yk + S,h#0 - 1);
+for (y = y0, y<=y1, ++y,
+for (x = x0, x<=x1, ++x,
+delta_c = norm(I(#0,x,y) - Ik);
+delta_s = norm([x - xk, y - yk]);
+delta = delta_c + m/S*delta_s;
+if (delta
+const boundary = 1;
+if (i[#-1,i]>=0,
+N = [ j(-1,0),j(0,-1),j(1,0),j(0,1) ];
+repeat (size(N),k,
+if (N[k]!=i,
+i[#-1,i] = i[#-1,i]==i || i[#-1,i]==N[k]?N[k]:-1
+);
+);
+);
+i"
+f. "i<0?0:1" +map[0] . rm.. or[-2,-1]
++[0] 1 100%,100% j[0] .,0,0,0,0,1,.. rm.
+distance. 0 *. -1 watershed.. . rm.
+label. 0,0
+}
+#@cli ssd_patch : [patch],_use_fourier={ 0 | 1 },_boundary_conditions
+#@cli : Compute fields of SSD between selected images and specified patch.
+#@cli : Argument 'boundary_conditions' is valid only when 'use_fourier=0'.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default value: 'use_fourier=0' and 'boundary_conditions=0'.
+#@cli : $ image.jpg +crop 20%,20%,35%,35% +ssd_patch[0] [1],0,0
+ssd_patch : check ${is_image_arg\ $1} skip ${2=0},${3=0}
+e[^-1] "Compute field of SSD between image$? and patch $1 using "${arg0\ !$2,fourier,spatial}" mode."
+repeat $! { pass$1 0 l[$>,-1] {
+r 100%,100%,100%,${-max_s} s c
+repeat $!/2 { l[$>,{-1-$<}] {
++sqr[1] val={is} rm.
++sqr[0] +f[1] 1
+if $2
+convolve_fft.. . rm.
+mirror[1] xyz convolve_fft[0] [1] rm[1]
+else
+correlate.. .,$3 rm.
+correlate[0] [1],$3 rm[1]
+fi
+*[0] -2 +[0,1] + $val
+} } +
+} }
+#@cli ssim : [reference],_patch_size>0,_max_value>0
+#@cli : Compute the Structural Similarity Index Measure (SSIM) between selected images and specified reference image.
+#@cli : This command does not modify the images, it just returns a value or a list of values in the status.
+#@cli : When 'downsampling_factor' is specified with a ending '%', its value is equal to '1+(patch_size-1)*spatial_factor%'.
+#@cli : \nSSIM is a measure introduced int the following paper:
+#@cli : *Wang, Zhou, et al.*, "Image quality assessment: from error visibility to structural similarity.",
+#@cli : in IEEE transactions on image processing 13.4 (2004): 600-612.
+#@cli : \nThe implementation of this command is a direct translation of the reference code (in Matlab), found at :
+#@cli : https://ece.uwaterloo.ca/~z70wang/research/ssim/
+#@cli : Default values: 'patch_size=11', and 'max_value=255'.
++ssim : check ${"is_image_arg $1"}" && isint(${2=11}) && $2>0 && ${3=255}>0"
+e[^-1] "Compute the SSIM between image$? and reference image $1, with patch size $2 and max_value $3."
+C1,C2:=([0.01,0.03]*$3)^2
+$2,$2 gaussian. 1.5 /. {is} store. gaussian_weights
+res,sep=
+pass$1
++foreach[^-1] {
+pass. 0
+if [w#0,h#0,d#0,s#0]!=[w#1,h#1,d#1,s#1]
+error[0--4] "Command 'ssim': Image dimensions ("{0,[w,h,d,s]}") and ("{1,[w,h,d,s]}") do not match."
+fi
+f:=max(1,round(min(w,h)/256));
+if $f>1 r {round([w,h,d]/$f,1,1)},100%,2 fi
+=> A,B
+$gaussian_weights => W
+p0,p1:="p0 = round(w/2,1,-1); [ p0,w-1-p0 ]"
++correlate[A,B] [W],0,0,1,$p0,$p0,0,$p0,$p0,0,{A,[w,h]-1-$p1},0 +mul[-2,-1] sqr[-3,-2] => muA2,muB2,muAB
++mul[A,B] sqr[A,B] =>[A,B,-1] A2,B2,AB
+correlate[A2,B2,AB] [W],0,0,1,$p0,$p0,0,$p0,$p0,0,{A2,[w,h]-1-$p1},0 -[A2] [muA2] -[B2] [muB2] -[AB] [muAB]
+=>[A2,B2,AB] sigA2,sigB2,sigAB
+*[muAB] 2 +[muAB] $C1 *[sigAB] 2 +[sigAB] $C2 *[muAB,sigAB] =>[muAB] num
++[muA2,muB2] +[muA2] $C1 +[sigA2,sigB2] +[sigA2] $C2 *[sigA2,muA2] =>[sigA2] den
+/[num] [den]
+res.=$sep{ia} sep=, rm
+}
+rm. u $res
+#@cli ssim_matrix : _patch_size>0,_max_value>0
+#@cli : Compute SSIM (Structural Similarity Index Measure) matrix between selected images.
+#@cli : Default values: 'patch_size=11', and 'max_value=255'.
+#@cli : $ image.jpg +noise 30 +noise[0] 35 +noise[0] 38 cut. 0,255 +ssim_matrix
+ssim_matrix : check "isint(${1=11}) && $1>0 && ${2=255}>0"
+e[^-1] "Compute the "$!x$!" matrix of SSIM values, for image$?, with patch size $1 and max value $2."
++ssim_matrix ${1,2} k.
++ssim_matrix : check "isint(${1=11}) && $1>0 && ${2=255}>0"
+e[^-1] "Compute the "$!x$!" matrix of SSIM values, for image$?, with patch size $1 and max value $2."
+N=$! $N,$N
+repeat $N { i=$>
+j:=$i+1 for $j<$N {
++ssim[$i] [$j],${1,2} =. ${},$i,$j =. ${},$j,$i
+j+=1
+}
+=. 1,$i,$i
+}
+#@cli thinning : _boundary_conditions={ 0=dirichlet | 1=neumann }
+#@cli : Compute skeleton of binary shapes using morphological thinning
+#@cli : (beware, this is a quite slow iterative process)
+#@cli : Default value: 'boundary_conditions=1'.
+#@cli : $ shape_cupid 320 +thinning
+thinning : check "!isnum(${1=1}) || ($1>=0 && $1<=1)"
+if isnum($1) bc=$1 else bc=1 noarg fi
+e[^-1] "Apply morphological thinning to binary image$? with "${"arg0 "$bc",dirichlet,neumann"}" boundary conditions."
+foreach { s c foreach {
+1,16,1,2
+1,16,1,2
+1,16,1,2
+f[0] ">const boundary = "$bc";
+i && (!j(-1) || !j(1) || !j(0,-1) || !j(0,1))?da_push(#1,[x,y]); i;"
+eval "
+const boundary = "$bc";
+hm_and = [ 231,189,231,189,122,91,94,218 ];
+hm_eq = [ 7,148,224,41,18,80,72,10 ];
+dotm = [ 128,64,32,16,0,8,4,2,1 ];
+is_removed = vector8(0);
+ind = 1;
+nind = 3;
+it = 0;
+do (
+N = da_size(#ind);
+it8 = it%8;
+is_removed[it8] = 0;
+repeat (N,n,
+xc = i(#ind,0,n,0,0);
+yc = i(#ind,0,n,0,1);
+icc = i(#0,xc,yc);
+icc?(
+xp = xc - 1; yp = yc - 1;
+xn = xc + 1; yn = yc + 1;
+ref(crop(#0,xp,yp,3,3),V);
+val = dot(dotm,V>0);
+(val & hm_and[it8])==hm_eq[it8]?(
+da_push(#2,[xc,yc]);
+is_removed[it8] = 1;
+V[3]==1?(da_push(#nind,[xp,yc]); i(#0,xp,yc) = 2);
+V[5]==1?(da_push(#nind,[xn,yc]); i(#0,xn,yc) = 2);
+V[1]==1?(da_push(#nind,[xc,yp]); i(#0,xc,yp) = 2);
+V[7]==1?(da_push(#nind,[xc,yn]); i(#0,xc,yn) = 2);
+):(da_push(#nind,[xc,yc]); i(#0,xc,yc) = 2);
+);
+);
+N = da_size(#nind);
+repeat (N,n, i(#0,i[#nind,n],i[#nind,n + h(#nind)]) = 1);
+_tmp = ind; ind = nind; nind = _tmp;
+i[#nind,h(#nind)-1] = 0;
+N = da_size(#2);
+repeat (N,n, i(#0,I[#2,n]) = 0);
+i[#2,h(#2)-1] = 0;
+++it;
+_(while), max(is_removed)
+);"
+k[0]
+} a c }
+#@cli tones : N>0
+#@cli : Get N tones masks from selected images.
+#@cli : $ image.jpg +tones 3
+tones : check $1>0
+e[^-1] "Get $1 tones masks from image$?."
+norm n 0,{$1-1} round 1
+foreach {
+repeat $1-1 { +==[0] {1+$>} } ==[0] 0
+}
+#@cli topographic_map : _nb_levels>0,_smoothness
+#@cli : Render selected images as topographic maps.
+#@cli : Default values: 'nb_levels=16' and 'smoothness=2'.
+#@cli : $ image.jpg topographic_map 10
+topographic_map : check "isint(${1=16}) && $1>0" skip ${2=2}
+e[^-1] "Render topographic maps from image$?, with $1 levels and smoothness $2."
+foreach { +b $2 isophotes. $1 compose_channels. + ==. 0 blend shapeaverage0 }
+#@cli tsp : _precision>=0
+#@cli : Try to solve the 'travelling salesman' problem, using a combination of greedy search and 2-opt algorithms.
+#@cli : Selected images must have dimensions Nx1x1xC to represent N cities each with C-dimensional coordinates.
+#@cli : This command re-order the selected data along the x-axis so that the point sequence becomes a shortest path.
+#@cli : Default values: 'precision=256'.
+#@cli : $ 256,1,1,2 rand 0,512 tsp , 512,512,1,3 repeat w#0 circle[-1] {0,I[$>]},2,1,255,255,255 line[-1] {0,boundary=2;[I[$>],I[$>+1]]},1,255,128,0 done keep[-1]
+tsp : check "${1=256}>=0"
+e[^-1] "Try to solve the 'travelling salesman' problem for pointcloud$?, with precision $1."
+foreach {
+nm={n}
+if h>1" || "d>1 error[0--4] "Selected image '"{n}"' has invalid dimensions ("{[w,h,d,s]}")." fi
+eval "
+is_used = vectorw(0);
+next = vectorw(-1);
+n_initial = n_current = round(u(0,w-1));
+do (
+is_used[n_current] = 1;
+P_current = I[n_current];
+n_next = -1; dmin = inf;
+repeat (w,n,
+if (!is_used[n],
+d = norm(I[n] - P_current);
+if (dbegin(ind = 0); val = I[#0,ind]; ind = val[s]; val" rm..
+eval "
+is_improved = 1;
+while (is_improved,
+is_improved = 0;
+nb_try = $1*w;
+repeat (nb_try,try,
+r = round(max(8,0.5*w*(try/nb_try)^0.25));
+i = round(u(0,w-1));
+ni = (i+1)%w;
+pi = (i-1)%w;
+do (j = (i + round(u(-r,r)))%w; _(while), j==i || j==ni || j==pi);
+nj = (j+1)%w;
+P_i = I[i];
+P_ni = I[ni];
+P_j = I[j];
+P_nj = I[nj];
+dist_ini = norm(P_ni - P_i);
+dist_jnj = norm(P_nj - P_j);
+dist_ij = norm(P_j - P_i);
+dist_ninj = norm(P_nj - P_ni);
+if (dist_ij + dist_ninj $nm
+}
+#@cli variance_patch : _patch_size>=1
+#@cli : Compute variance of each images patch centered at (x,y), in selected images.
+#@cli : Default value: 'patch_size=16'
+#@cli : $ image.jpg +variance_patch
+variance_patch : check "isint(${1=16}) && $1>=1"
+e[^-1] "Compute variance of image patches in image$?, with patch size $1."
+$1,$1,1,1,1 normalize_sum.
+repeat $!-1 { l[$>,-1] {
++sqr[0] convolve[0,2] [1]
+sqr[0] rv[0,2] -[0,2] max[0] 0
+} } rm.
+#@cli :: Image Drawing
+#@cli arrow : x0[%],y0[%],x1[%],y1[%],_thickness[%]>=0,_head_length[%]>=0,_head_thickness[%]>=0,_opacity,_pattern,_color1,...
+#@cli : Draw specified arrow on selected images.
+#@cli : 'pattern' is an hexadecimal number starting with '0x' which can be omitted
+#@cli : even if a color is specified. If a pattern is specified, the arrow is
+#@cli : drawn outlined instead of filled.
+#@cli : Default values: 'thickness=1%', 'head_length=10%', 'head_thickness=3%', 'opacity=1', 'pattern=(undefined)' and 'color1=0'.
+#@cli : $ 400,400,1,3 repeat 100 arrow 50%,50%,{u(100)}%,{u(100)}%,3,20,10,0.3,${-rgb} done
+arrow : check "${5=1%}>=0 && ${6=10%}>=0 && ${7=3%}" skip ${8=1}
+e[^-1] "Draw arrow in image$?, from ($1,$2) to ($3,$4), with thickness $5, head length $6,
+head_thickness $7 and opacity $8."
+foreach {
+polygon. 7,{"
+x0 = "${"is_percent $1"}"?(w-1)*$1:$1;
+y0 = "${"is_percent $2"}"?(h-1)*$2:$2;
+x1 = "${"is_percent $3"}"?(w-1)*$3:$3;
+y1 = "${"is_percent $4"}"?(h-1)*$4:$4;
+p0 = [x0,y0];
+dp = [x1,y1]-=p0;
+l = norm(dp);
+t = "${"is_percent $5"}"?l*$5:$5;
+hl = "${"is_percent $6"}"?l*$6:$6;
+ht = "${"is_percent $7"}"?l*$7:$7;
+lmhl = l - hl;
+X = mul([0,-t,lmhl,-t,lmhl,-ht,l,0,lmhl,ht,lmhl,t,0,t],rot(-atan2(dp[1],dp[0])),2);
+X+=[p0,p0,p0,p0,p0,p0,p0]"},${8--1}
+}
+#@cli axes : x0,x1,y0,y1,_font_height>=0,_opacity,_pattern,_color1,...
+#@cli : Draw xy-axes on selected images.
+#@cli : 'pattern' is an hexadecimal number starting with '0x' which can be omitted
+#@cli : even if a color is specified.
+#@cli : To draw only one x-axis at row Y, set both 'y0' and 'y1' to Y.
+#@cli : To draw only one y-axis at column X, set both 'x0' and 'x1' to X.
+#@cli : Default values: 'font_height=14', 'opacity=1', 'pattern=(undefined)' and 'color1=0'.
+#@cli : $ 400,400,1,3,255 axes -1,1,1,-1
+axes : check "isint(${5=14}) && $5>=0 && ${6=1}>=0" skip ${7=0},${8=0}
+if ${"is_pattern \"$7\""}
+e[0--3] "Draw xy-axes on image$?, with x-range ($1,$2), y-range ($3,$4), font height $5, opacity $6,
+pattern $7 and color (${8--1})."
+pattern=$7 color=${8--1}
+else
+e[0--3] "Draw xy-axes on image$?, with x-range ($1,$2), y-range ($3,$4), font height $5, opacity $6
+and color (${7--1})."
+pattern=0xFFFFFFFF color=${7--1}
+fi
+if !$5" || "!$6 return fi
+mx={min($1,$2)} Mx={max($1,$2)}
+my={min($3,$4)} My={max($3,$4)}
+foreach {
+w1={0,w-1} h1={0,h-1}
+if $1!=$2 u=${"_axes[] $1,$2,{0.3*w/$5}"} offx={arg(1,$u)} deltax={arg(2,$u)} fi
+if $3!=$4 u=${"_axes[] $3,$4,{0.3*h/$5}"} offy={arg(1,$u)} deltay={arg(2,$u)} fi
+is_0x=0
+if $3==$4 y0=$3 else y0={v=-($my)*$h1/($My-$my);if($4>=$3,v,$h1-v)} fi
+sty={if($y0>$h1-$5,-1,1)}
+if $1!=$2" && "$y0>=0" && "$y0<=$h1
+line 0,$y0,$w1,$y0,$6,$pattern,$color
+4,4,1,1,x<=y +mirror. y rows. 1,3 a[-2,-1] y .,.,1,[0] fc. $color
+if $2>=$1 j[0] .,{$w1-3},{$y0-3},0,0,$6,..
+else mirror.. x j[0] .,0,{$y0-3},0,0,$6,..
+fi
+rm[-2,-1]
+i=0 do
+val={_$offx+$i*$deltax} i+=1
+if $val>=$mx" && "$val<=$Mx
+x={v=($val-$mx)*$w1/($Mx-$mx);if($2>=$1,v,$w1-v)}
+line $x,{$y0-1},$x,{$y0+1},$6,$pattern,$color
+if $val
+0 t. $val,0,0,$5,1,1 100%,100%,1,[0] fc. $color
+j[0] .,{max(0,min($w1-w,$x-w/2))},{if($sty>0,$y0+3,$y0-h-3)},0,0,$6,.. rm[-2,-1]
+else is_0x=1
+fi
+fi
+while $val<$Mx
+fi
+is_0y=0
+if $1==$2 x0=$1 else x0={v=-($mx)*$w1/($Mx-$mx);if($2>=$1,v,$w1-v)} fi
+stx={if($x0>$w1-$5,-1,1)}
+if $3!=$4" && "$x0>=0" && "$x0<=$w1
+line $x0,0,$x0,$h1,$6,$pattern,$color
+4,4,1,1,x>=y +mirror. x z. 1,3 a[-2,-1] x .,.,1,[0] fc. $color
+if $4>=$3 j[0] .,{$x0-3},{$h1-3},0,0,$6,..
+else mirror.. y j[0] .,{$x0-3},0,0,0,$6,..
+fi
+rm[-2,-1]
+i=0 do
+val={_$offy+$i*$deltay} i+=1
+if $val>=$my" && "$val<=$My
+y={v=($val-$my)*$h1/($My-$my);if($4>=$3,v,$h1-v)}
+line {$x0-1},$y,{$x0+1},$y,$6,$pattern,$color
+if $val
+0 t. $val,0,0,$5,1,1 100%,100%,1,[0] fc. $color
+j[0] .,{if($stx>0,$x0+6,$x0-w-6)},{max(0,min($h1-h,$y-h/2))},0,0,$6,.. rm[-2,-1]
+else is_0y=1
+fi
+fi
+while $val<$My
+fi
+if $is_0x" || "$is_0y
+0 t. 0,0,0,$5,1,1 100%,100%,1,[0] fc. $color
+j[0] .,{if($stx>0,$x0+6,$x0-w-6)},{if($sty>0,$y0+3,$y0-h-3)},0,0,$6,.. rm[-2,-1]
+fi
+}
+_axes :
+n={max(1,round($3))}
+d={abs($2-$1)/($n-1)}
+s={10^round(log10($d))}
+m={round(min($1,$2),$s,-1)}
+M={round(max($1,$2),$s,1)}
+do N={1+round(($M-$m)/$s,1,1)} s={2*$s} while $N>$n
+u $m,{$s/2}
+#@cli ball : _size>0, _R,_G,_B,0<=_specular_light<=8,0<=_specular_size<=8,_shadow>=0
+#@cli : Input a 2D RGBA colored ball sprite.
+#@cli : Default values: 'size=64', 'R=255', 'G=R', 'B=R', 'specular_light=0.8', 'specular_size=1' and 'shading=1.5'.
+#@cli : $ repeat 9 { ball {1.5^($>+2)},${-rgb} } append x
++ball : check "${1=64}>0 && ${5=0.8}>=0 && $5<=8 && ${6=1}>=0 && $6<=8 && ${7=1.5}>=0" skip ${2=255},${3=$2},${4=$3}
+e[^-1] "Input $1x$1 ball with color (${2-4}), specular light $5, specular size $6 and shadow factor $7."
+l[] {
+{2*$1},{2*$1} = 1,65%,30% distance 1 * -1
++n 0,1 ^[1] $7 *[1] 1.4 +*[1] $3 +*[1] $4 *[1] $2 a[^0] c
+>=[0] {100-10*$6}% b[0] {3*$6}% n[0] 0,{$5*255} rv + c 0,255
+100%,100% circle[1] 50%,50%,34%,1,1 *[0] [1] *. 255 a c
+r $1,$1,1,4,2
+}
+chromeball64x64 :
+base642img[] "MiB1bnNpZ25lZF9jaGFyIGxpdHRsZV9lbmRpYW4KNjQgNjQgMSAyICMzMzY0CnicxZl5VJNnvsfT0mM7ntPp9N7paefe6ZzOmWlnemfGmTpzer0dO1W""RnQCBQPZ9TwhhDQkYwyKQAAlbEjZBthgRRBahFamAggp1KS7QIgKyk7DIpoCQd54XtComyPLH/f7xvn/k/Xyf3/N7n+X35EUgLOqN9z/DHcqtaW69cq""EmK8z7s3csP2ZZO/7ILGzpHhwaHBzoHxgA9/vt55M8fvPaxuh37NOu9AyNjBpNY+PjE+OmkYGuOzfb73XURu1589X0zx2PXu8ZMo0Dbnh41DQxMT5mH""O7vam/v7O5sUH35Cgebvyiaf+g3jRuHB/oGjeMPpqamHkyMDvb3g3iG+7tvnjm8a71e/Af+5PXOYdPo4MCwaWr24cO5ubnZ2ekHY6PDgwNDRtNQT9u3""mRirqXztt5Laa10jo0N9fcaZ+UWghflHwGBudnpywjTUNzjcd/faN3kBH1vGX98VWdd6b2B4oKt3fH7JbF5+vDC/ADQPm0xPTRr779/vuNZUdUzyT0t""9eON/5Webb3f8eOdqW9/Eo2XI/Gh6auYxbAMMHsIO48OD/TcvnCvNltjbvIz/I/RMXVPTlaa6xrauwbG55eU5wAObpZmJialpoJnpSZCZ63WV+rRgxz""fW9n0Xr/RsZVX1mdOV9a237o3OLT+amJw3Q9DS3IRxdNQ4NmYcn4YN7l8+U5ybIDq4pgsf4fPrjhcWFhScqL54vWt0Zn5++sHcotkMLc1OjptGR4yjw""6MPZqbBu+yoLyvURfjueQF/z1V98YRGo8vWV128PTTzeGlpeWkZtA5B5sVHczNTD4CmZ+Zmp8b6Oy7XFB9NDOV+8hz+1j7Jt9+kKVIyC0433DItmiHz""CvtEZvPSit/j+bnpsYGbF6tL8tIiRfRn4+C1PzGKWwuVCRm5xWevDS5CVmRemp0Y6m1rqCrOT1eKBS4/peA/XZKu1mkVKVn5ZQ0/TJmt8dDSeO8PNy6""fK9fnZqllIu4fnuA2u4VnO0rU8WmZheUN9x5ZxaHFwatN9bVnSgtzstKOBAkIO1b595007W25CQkpmUUwb7V981T3pXM1VWXFBUcztcpQIWfX6rj9G6""nqXotGmZCUDvjO2cWFhWXL/OTdK9/WlJ8yFORkalXhIt5qAL/4l/hSz8UUhVKlKyiv7xibmRibsxzDo77vL56tKDXk52TqUuQiAetTmP/USXm1pzFZo""VADvuHOkGlocGzJIr881tlaV1kC+KwMXZS/gI0Er+DNL7zUV+9d1CgUqvTC8gsdIyO9vabHljMwP3S7sbr0eN7R7KN5sf4CLu2XIHv7MXFX7rZmg/jT""CysutBuNvT2j81Yy+OBea22ZIe9YblFpPOAZuxGIXQd9ws/fbTMoFIm6/NPfXu8Z6e8bsZIAEMCtxqoSvf54WbUK5pEIm332nsJTP7RXqRSJaTkl3zS""13e3pG5mxnABoebKrpe5MWXllXXUc4JnEn73tZo+kpH9/u+FofGJSpr6ytvlGR49VHloytrfW19bVXy6RifgcJuXXv8E6OKIP1d9oOa1JUGtyT5yuvX""yza8gqDz0e6/zuUvOVCxkhfjwOk/znv1Id7d0Z+ZcvNeiTEsEELK6qb7kzMG2Vh5ZMP95ovXIqOsCXx2aQ93zFdbZz8ZKX19bX5CSqtbmG01+f/+6u0""eokBKNo4PZ3X6cG+/G5LDrZ1t3fzdbBjZqgLz97KkOdmlVUUl7deKN7fNHqNFgauX0+O9zfl8dh0chIfCjazs4ZxY07WlxWlKXRZBcYSmsab9wzPlxc""smzxeKhFHx0oFHDZTBoJxZARHA46ItG86IxCg/5Yhi47/3hpdX1L293eQdP0/Mse5ocdlUlhAQKQPTqV6MmNYSDt7J3d0dzIjAKDoSA3J6/wRGlV9df""nGi5dvdU1MDa9ZjbO99bnxAGey2bQyHiUUCVEO9k5unp4sw9r8/XHiwoLi/T6E8XFJWUV1bUXWm/c6TbNLS4/DWN5prvpZDrMc1gMKgmHZGskZHdHey""ekhxctVJVTdBzIcBy20RtOlFR8Xdf43Z2eQePk9KPHy0vzk73f158u0MaGBwhA78lErAMxK5qHQdo7OiM90ARfeVoewE+A5oEMer3hZFnVuebrt37s6""ukb6Ou80VRbebIgKzkmPIDPolNJeMy/XHJVEgba2cEJGHhhqP6RqcdAwydLTpVXlJWcMBiKSyrONjRdam48X1dzSl+QBy8d8VHSAB6LRiHhvP/+xVHN""kQCKm5PjioEPjuYXrtTmFukNJWWnSk8CA8PJU2WlhsLcrAxtilqVmJAQHxd9ONSfx6BRyVj0xx+mZKkihBgXJydnFzcPT28snswSSaMTkjOOFR4HPSg""qKsjNTE2Ii4mOlB+WyQ7LwfWQNNiPS6fRKViv99+JyNaqZCwvV8C7url7on2weBKFwRUGS+VH4hRKpTI2SiYVBwXCCgoODgkJDg4KFAk4DCabhkHtQH""DS0zPigyhebq6urkg3d5SXNwZHIJKpNPAAl8fj8/krFz5fIPAV+MISCAQ8LpvN51N99iMQX4J9QxslJPt4uiNh3tMLhIDDE0kUKpVGpzOYLBaLvSIOE""HxnsZhMFs8vwI/s80cE4r9CFGk6VbiAjPP2RHl4oFBeXmhvDHAgEElkMmxCg22eiQ7E5PmFSPwIaHgPJUmOJCVGifl08Dp90F5eIABvHwwWi3tqQQEm""K6I9EZ3FFYllMi7uILz+/40TEBkXJfXns8GIIOJxGB9v72cGRBKRBExgARtgRaMzuQJ/SUS0mIb9aGXzxzOE4TIJWE/4YErCrxW4AAEcTyAQSLBWcAq""VQgX54Pj6B4VHxcoFBORqFfQ5nswPDPL35cLpFfBXXOg0Gtzac4JRFofL9w2UhMuiFTEhVPyTQvAtNAbDEAj5bI6vn5/IPyAwQOQH+/B4XM5q5tnwKw""Ao+DU4TB4dHaOIk7II7k+LsD97uLmTWWwGnSMQ+geGhIaKxWCYgMESFBTgD8tPKBSKwA8SqVQep1QqYqOlXCLuw6f1h42DowMSR6WQaWy+UBQUKpWAB""8ElFHYSiyVhEnCXyCIjo6JiVMlqRbRczCUTv3pWP/3C1fagiw/INoXJEwiD4KclUglMAwupTA4GvTwyVhGfqErVpSnB7GGTSd4/e64A+/jg/v0O7j44""YMDhCQNDACgGAx0oRCyVRUYdiYlVqlN1uvRMTZxUxKURiPj/fqEA3PPVflsndx8Chc7h8EXB0jAgqXjFAPBH4hLUKdrMLF1aYmQwj0HCk6l/ebH+tLH""be8DBHUOiMUCeRSHhh+UR0dERMqBDkXHxquRUjS5dl5oYLRawqAQsjbMXsUav79t7wBlNoIM3xfUNORyjUCYmJ6mTU5ISkmBUk5qckhgVyqdRiBgMU2""T7cgX/+sEvv3JGE+nwdBNKY1O06ZnpWm16SoIqJS01Me5IpCyYSyHgfbywfMna6nlV/2e31xlLptEoZDpfHJWoyy3ILyjIzdKoosOCgvxYVCyYFyhPi""lj+hSUa6BOXvUgKk4rxROMYAWFH1FpNSnJ8ZFiwL5OC9/ZCodAoT4JYEfuJFRyBeNfDwZnEpHq7ubhj6Twhn8nkMYk+aA83Dx8Sm0OlsMK12ohPreJA""n5FcPMg0vJu9vbMXDuPh5unuam9r6+BJF/n5R6Tk5aei3loPRyB22vliUHgqztV23wEHuwOObo62SAyJzpfEZxflpBI/WJ+G9ZZdmIxL9EG5OhzYb4c""kEJnCUHmMUp2uVXj/6tX0iv6Hmp6nUYaHHkrUKmLjlOq0rOwU6u4dG6RX9ME+ukydW1FZXl6kCafs+91mWKCdu7Hqijvj8JY9dadajf3w1cgzvUutWV""hbdnQl/XOD9J9y5iwXTp2itzdAF1s+PKxoTPoKh7eTXwr8RZlo6+H7e9anYTX82hptE7FO6M80ibKM7yzfCA1kllvC32veIA5U+PL5/722jeMWDHY2b""gaHoGNr+JLN4RAU/gIeulkcMiOfwz9/xaixJNOzcfDmzc3jEHTmJ/7QVnAI8n6CfzC7Nb7vyZ9pmVvDIUi4OnK2kLwnAaysiJFbxSEInsw2A1vnLwF+""39ZxCALLcvp2eAkCsY3wIagJ8fvt4NDCTuy2eGifent8YMX2eN2mlq2XdXZwe/w2m4d6/r/5DW1Z6/DbDKClZXt8RfH2eHXE9nim2/b43e9tC596HbG""lveepKhGIbSWACgq2beAL74IF+PrW+TJ4/2BtnbeH+R19W8VbVvfPgK3yzk/Kh+6t4c1P6wfUlvCF3T8VIKVb4ROe1U+/7N88fu3549CXm64hJv+AeF""6CTeILTmsK0NhN4WYmYq02Y2DmvIQjEHLrH37WBk+1gCMQRCtfHdZq0s4ijkD8tXMj+P2PrODg+JXx6u3kzLpH8C+urU93e69HA9ng2q3TfbwNfIFGO""Fda7sUF0kZP8L8S1K05Ay80hP52g/CqdnzOTa1o6QFqqdb57dlp7bl/A5UFagkxIDQ1IDEgMSAjNTIKeJxz941i0M/Iz03VTykpTs4ozS3Qd0ktzi7J""L9BPzigCiscXF2SkFqXqFeSlMwAAcSYQbQ=="
+s. c +apply_gamma.. 0.05 b. 3 n. 0,150 n... 0,1 i[-4] 100%,100%,1,3 fc[-4] ${1-3} *[-4,-3] +[-3,-1]
+c.. 0,255 a[-2,-1] c
+#@cli chessboard : size1>0,_size2>0,_offset1,_offset2,_angle,_opacity,_color1,...,_color2,...
+#@cli : Draw chessboard on selected images.
+#@cli : Default values: 'size2=size1', 'offset1=offset2=0', 'angle=0', 'opacity=1', 'color1=0' and 'color2=255'.
+#@cli : $ image.jpg chessboard 32,32,0,0,25,0.3,255,128,0,0,128,255
+chessboard : check "$1>0 && ${2=$1}>0" skip ${3=0},${4=0},${5=0},${6=1},${7=0},${8=255}
+e[^-1] "Draw chessboard on image$?, with sizes ($1,$2), offsets ($3,$4), angle $5 deg., opacity $6 and
+colors (${7--1})."
+i[0] (${7--1}) r[0] {{0,w}/2},1,1,2,-1 permute[0] cyzx
+repeat $!-1 {
+w={w} h={h} theta={$5*pi/180}
+($3,{$3+$w-1};$3,{$3+$w-1}^$4,$4;{$4+$h-1},{$4+$h-1}) r. $w,$h,1,2,3
+r. {$w*$h},2,1,1,-1
+i.. ({cos($theta)},{-sin($theta)};{sin($theta)},{cos($theta)}) m*[-2,-1]
+r. $w,$h,1,2,-1
+%. {$1+$2} >=. $1 s. c xor[-2,-1] map. [0] r. 100%,100%,1,..
+j.. .,0,0,0,0,$6 rm. mv. 1
+} rm[0]
+#@cli cie1931
+#@cli : Draw CIE-1931 chromaticity diagram on selected images.
+#@cli : $ 500,400,1,3 cie1931
+cie1931 :
+e[^-1] "Draw CIE-1931 chromaticity diagram on image$?."
+(67.5;73.5;109.5;103.5;51.5;100.5;37;36)
+(280,420,0;171,829,0;158,820,0;153,816,0;147,811,0;140,804,0;132,794,0;121,776,0;106,747,0;88,701,0;\
+65,633,0;42,539,0;20,421,0;5,295,0;0,179,0;4,115,0;10,83,0;16,61,0;25,38,0;35,21,0;47,10,0;58,3,0;71,0,0;92,1,0;111,7,0;151,28,0;189,52,0;226,79,0;262,109,0;298,141,0;334,175,0;370,209,0;405,244,0;441,279,0;475,313,0;509,347,0;731,568,0)
+xM=731 yM=829
+2,{h-1},1,1,3,0 1,{h},1,1,'y' ++. 1 %. {h} +[-2,-1] 1 a[-3--1] x
+3,{h},1,1,160 1,{h},1,1,1
+y[-4--2] a[-5--1] y mv. 0
+xR=636 yR=504 xG=297 yG=234 xB=147 yB=774
+512,512,1,3 triangle_shade. 0,0,{w-1},0,0,{h-1},""255,0,0,""0,255,0,""0,0,255 rgb2srgb.
++compose_channels. max +. 1e-8 /[-2,-1] *. 255
+i.. (67.5;73.5;109.5;103.5;51.5;100.5;3;1;$xR;$yR;-0.01;$xG;$yG;-0.01;$xB;$yB;-0.01;9;0;1;2;0;0;511;0;0;511;-128;512;512;3)
+y. (1) a[-3--1] y mv. 1
+repeat $!-2 {
+to_rgb. fc. 255,255,255 grid. 10%,10%,0,0,0.3,0xCCCCCCCC,1,0
+100%,100%,1,3
++*3d[0,1] {(w-8)/$xM},{(h-32)/$yM}
+j3d... .,2,30,0,1,2
++!=... 0 distance. 1 *. -1 watershed[-4] . rm. /... 1.5
+j3d... .,2,30,0,1,2
+p3d. 1 p3d. 2 col3d. 128 j3d... .,2,30,0,1,1 rm.
+{-2,w},{-2,h} j3d. ..,2,30,0,1,2 rm..
++erode. 4 -. .. ==. 0 *[-3,-1]
+a[-2,-1] c blend[-2,-1] alpha
+100%,100%,1,1,255 axes. 0,0.75,0.85,0,14,1 +erode. 3 negate. to_rgb..
+j... ..,0,0,0,0,1,.,400 rm[-2,-1]
+mv. 2
+}
+rm[0,1]
+#@cli circle : x[%],y[%],R[%],_opacity,_pattern,_color1,...
+#@cli : Draw specified colored circle on selected images.
+#@cli : A radius of '100%' stands for 'sqrt(width^2+height^2)'.
+#@cli : 'pattern' is an hexadecimal number starting with '0x' which can be omitted
+#@cli : even if a color is specified. If a pattern is specified, the circle is
+#@cli : drawn outlined instead of filled.
+#@cli : Default values: 'opacity=1', 'pattern=(undefined)' and 'color1=0'.
+#@cli : $ image.jpg repeat 300 circle {u(100)}%,{u(100)}%,{u(30)},0.3,${-rgb} done circle 50%,50%,100,0.7,255
+circle : skip ${4=1},${5=0},${6=0}
+if ${"is_pattern \"$5\""}
+e[0--3] "Draw outlined circle at ($1,$2) with radius $3 on image$?, with opacity $4, pattern $5 and
+color (${6--1})."
+else
+e[0--3] "Draw filled circle at ($1,$2) with radius $3 on image$?, with opacity $4 and color (${5--1})."
+fi
+ellipse $1,$2,$3,$3,0,${4--1}
+#@cli close_binary : 0<=_endpoint_rate<=100,_endpoint_connectivity>=0,_spline_distmax>=0,_segment_distmax>=0,0<=_spline_anglemax<=180,_spline_roundness>=0,_area_min>=0,_allow_self_intersection={ 0 | 1 }
+#@cli : Automatically close open shapes in binary images (defining white strokes on black background).
+#@cli : Default values: 'endpoint_rate=75', 'endpoint_connectivity=2', 'spline_distmax=80', 'segment_distmax=20', 'spline_anglemax=90', 'spline_roundness=1','area_min=100', 'allow_self_intersection=1'.
+close_binary :
+check "${1=75}>=0 && $1<=100 && ${2=2}>=0 && ${3=80}>=0 && ${4=20}>=0 && ${5=90}>=0 && $5<=180 && ${6=1}>=0 &&
+${7=100}>=0 && isnum(${8=1})"
+e[^-1] "Close open shapes in binary image$?, with endpoint rate $1, endpoint connectivity $2, spline max distance $3,
+segment max distance $4, spline max angle $5, spline roundness $6, area min $7 and self intersections "${"arg0 !$8,allowed,\"not allowed\""}"."
+endpoint_threshold={100-$1}
+endpoint_connectivity={round($2)}
+spline_distmax=$3
+segment_distmax=$4
+spline_anglemax=$5
+spline_roundness=$6
+area_min=$7
+allow_self_intersections={!!$8}
+_edgel_lib="
+begin(
+pn = [ 0,1,1,1,-1,0,-1,1,0,-1,-1,-1,1,0,1,-1 ];
+pp = [ 0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0,-1,-1 ];
+);
+next(img,p) = (
+p0 = p#[0,2] + pn[4*p#[2],2];
+p1 = p#[0,2] + pn[4*p#[2] + 2,2];
+case = !!i(#img,p0[0],p0[1],0,0) + 2*!!i(#img,p1[0],p1[1],0,0);
+!case?[ p[0],p[1],(p[2]+1)%4 ]:case==1?[ p0[0],p0[1],p[2] ]:[ p1[0],p1[1],(p[2]-1)%4 ];
+);
+previous(img,p) = (
+p0 = p#[0,2] + pp[4*p#[2],2];
+p1 = p#[0,2] + pp[4*p#[2] + 2,2];
+case = !!i(#img,p0[0],p0[1],0,0) + 2*!!i(#img,p1[0],p1[1],0,0);
+!case?[ p[0],p[1],(p[2]-1)%4 ]:case==1?[ p0[0],p0[1],p[2] ]:[ p1[0],p1[1],(p[2]+1)%4 ];
+);
+next2(img,p) = (
+p0 = p#[0,2] + pn[4*p#[2],2];
+p1 = p#[0,2] + pn[4*p#[2] + 2,2];
+case = !(i(#img,p0[0],p0[1],0,0)&3) + 2*!(i(#img,p1[0],p1[1],0,0)&3);
+case==1?[ p0[0],p0[1],p[2] ]:case==3?[ p1[0],p1[1],(p[2]-1)%4 ]:[ p[0],p[1],(p[2]+1)%4 ];
+);
+next3(img,p) = (
+p0 = p#[0,2] + pn[4*p#[2],2];
+p1 = p#[0,2] + pn[4*p#[2] + 2,2];
+val1 = i(#img,p0[0],p0[1],0,0);
+val2 = i(#img,p1[0],p1[1],0,0);
+case = (val1==1 || val1==2) + 2*(val2==1 || val2==2);
+case==1?[ p0[0],p0[1],p[2] ]:case==3?[ p1[0],p1[1],(p[2]-1)%4 ]:[ p[0],p[1],(p[2]+1)%4 ];
+);
+vec(p) = (
+ang = i(p[0],p[1],0,p[2])*pi/180;
+[ cos(ang), sin(ang) ];
+);"
+foreach {
+nm={n}
+slices 50% channels 0 > 0
+=> strokes
+100%,100%,1,4,"
+ref(crop(#"$strokes",x - 1,y - 1,0,0,3,3,1,1,1),N);
+N[4]?[ N[5]?-2:0, N[7]?-2:90, N[3]?-2:180, N[1]?-2:270 ]:[-2,-2,-2,-2];
+" => e_normals
+f[e_normals] $_edgel_lib"
+const boundary = 1;
+i<-1?-2:(
+ppos = npos = pos = [ x,y,c ];
+u = vec(pos);
+for (t = 1, t<=5, ++t,
+ppos = previous(#"$strokes",ppos);
+npos = next(#"$strokes",npos);
+if (ppos==npos, break());
+w = exp(-t^2/30);
+u+=w*vec(ppos);
+u+=w*vec(npos);
+);
+ang = (atan2(u[1],u[0])*180/pi)%360;
+)"
++f[e_normals] $_edgel_lib"
+const boundary = 1;
+i<-1?-2:(
+pos = [ x,y,c ];
+ppos = previous(#"$strokes",pos);
+npos = next(#"$strokes",pos);
+pu = vec(ppos);
+nu = vec(npos);
+du = (nu - pu)/2;
+cr = cross([vec(pos),0],[du,0]);
+norm(du)*sign(cr[2]);
+)"
+=> e_curvatures
++f[e_curvatures] $_edgel_lib"
+const boundary = 1;
+i<-1?-2:(
+ppos = npos = pos = [ x,y,c ];
+val = i; sumw = 1;
+for (t = 1, t<=5, ++t,
+ppos = previous(#"$strokes",ppos);
+npos = next(#"$strokes",npos);
+if (ppos==npos, break());
+w = exp(-t^2/30);
+val+=w*i(ppos[0],ppos[1],0,ppos[2]);
+val+=w*i(npos[0],npos[1],0,npos[2]);
+sumw+=2*w;
+);
+val/sumw;
+)"
+=> e_smooth_curvatures
++distance[strokes] 0
+f. "
+i<1-0.01||i>1+0.01?0:(
+p = x; q = y; d = 1;
+for (is_better = 1, is_better && d<32,
+next_p = p;
+next_q = q;
+is_better = 0;
+pp = p - 1;
+np = p + 1;
+pq = q - 1;
+nq = q + 1;
+(nd = i(pp,pq))>d?(d = nd; next_p = pp; next_q = pq; is_better = 1);
+(nd = i(p, pq))>d?(d = nd; next_p = p; next_q = pq; is_better = 1);
+(nd = i(np,pq))>d?(d = nd; next_p = np; next_q = pq; is_better = 1);
+(nd = i(pp,q))>d?(d = nd; next_p = pp; next_q = q; is_better = 1);
+(nd = i(np,q))>d?(d = nd; next_p = np; next_q = q; is_better = 1);
+(nd = i(pp,nq))>d?(d = nd; next_p = pp; next_q = nq; is_better = 1);
+(nd = i(p, nq))>d?(d = nd; next_p = p; next_q = nq; is_better = 1);
+(nd = i(np,nq))>d?(d = nd; next_p = np; next_q = nq; is_better = 1);
+p = next_p;
+q = next_q;
+);
+d)"
+=> stroke_radii
+compose_channels[e_smooth_curvatures] max =>[e_smooth_curvatures] smooth_curvatures
++compose_channels[e_curvatures] max => curvatures
+f. "i(#"$smooth_curvatures")>=("$endpoint_threshold"%)/(max(1,i(#"$stroke_radii"))) ||
+i>=max(0.25,"$endpoint_threshold"%)"
+label_fg. 0,1 => keypoints
+if iM>0
+{iM},1,1,3,-1 => keycoords
+f[keypoints] ">
+ret = 0;
+if (i,
+j = i - 1;
+old_max = I[#"$keycoords",j];
+kappa = i(#"$smooth_curvatures");
+if (kappa>old_max[2],
+I[#"$keycoords",j] = [ x,y,kappa ];
+i(#"$keypoints",old_max[0],old_max[1]) = 0;
+ret = 1;
+);
+); ret"
+channels[keycoords] 0,3
+fi
+rm[smooth_curvatures,stroke_radii,keypoints]
+if !narg($keycoords)
+rm[e_normals,e_curvatures] [strokes] => new_strokes
+else
+f[keycoords] "
+P = (I)[0,2];
+angles = I(#"$e_normals",P);
+U = [ 0,0 ];
+repeat (size(angles),k,
+if (angles[k]>=0,
+w = max(1e-8,i(#"$e_curvatures",P[0],P[1],0,k))^2;
+ang = angles[k]*pi/180;
+U += w*[ cos(ang),sin(ang) ];
+);
+);
+[ P,0,(atan2(U[1],U[0])*180/pi)%360 ]"
+rm[e_normals,e_curvatures]
+256,1,1,3 => keypairs
+f[keycoords] ">
+begin(ind = 0);
+for (nx = x + 1, nx0,
+if (ind>=w(#"$keypairs"), resize(#"$keypairs",2*ind,1,1,3,0));
+I[#"$keypairs",ind++] = [ quality,x,nx ];
+);
+);
+end(resize(#"$keypairs",ind,1,1,3,0));
+I"
+if {keypairs,w} sort[keypairs] -,x
+else rm[keypairs]
+fi
+[strokes] => new_strokes
+ind_strokes={$allow_self_intersections?$strokes:$new_strokes}
+if narg($keypairs)
+f[keypairs] ">"$_edgel_lib"
+for_spline(code) = for (t = 0, t<=1, t+=dt,
+t3 = t*(t2 = t*t);
+P = round(mul([t3,t2,t,1],C,2));
+code#;
+dP = abs(mul([3*t2,2*t,1,0],C,2)) + 1e-8;
+dt = min(dtmin,0.75/max(dP));
+);
+Ic = I;
+indS = Ic[1];
+indT = Ic[2];
+if (i(#"$keycoords",indS,0,0,2)<"$endpoint_connectivity" &&
+i(#"$keycoords",indT,0,0,2)<"$endpoint_connectivity",
+S = I(#"$keycoords",indS)[0,2];
+T = I(#"$keycoords",indT)[0,2];
+angS = i(#"$keycoords",indS,0,0,3)*pi/180;
+angT = i(#"$keycoords",indT,0,0,3)*pi/180;
+ST = T - S;
+dist = "$spline_roundness"*norm(ST);
+NS = [ cos(angS),sin(angS) ];
+NT = [ cos(angT),sin(angT) ];
+tmax = max(abs(ST));
+is_cond = 1;
+C = mul([ 2,-2,1,1,-3,3,-2,-1,0,0,1,0,1,0,0,0 ],[ S,T,dist*NS,-dist*NT ],2);
+dt = dtmin = 1/max(abs(T - S));
+current_val = 1;
+nb_switches = 0;
+for_spline(
+if (i(#"$ind_strokes",P,0,0)!=current_val, ++nb_switches; current_val=!current_val);
+if (nb_switches>2, is_cond = 0; break())
+);
+if (is_cond,
+const area_max_threshold = "$area_min";
+const area_min_threshold = 5;
+const max_edgels = 2*(area_max_threshold + 1);
+if (area_max_threshold<=0,
+for_spline(i(#"$new_strokes",P)=1);
+,
+for_spline(i(#"$new_strokes",P)|=2);
+for_spline(
+if (i(#"$new_strokes",P[0] + 1,P[1])==0,
+edgels = area = 0; Q0 = Q = [ P[0] + 1,P[1],2 ];
+do (
+i(#"$new_strokes",Q[0],Q[1]) = 4;
+area+=(Q[2]&1?0:1-Q[2])*(Q[0]+!Q[2]);
+Q = next2(#"$new_strokes",Q),
+Q!=Q0 && ++edgels<=max_edgels);
+if (edgels<=max_edgels && area>=area_min_threshold && area=area_min_threshold && area=area_min_threshold && area=area_min_threshold && area"$_edgel_lib"
+for_segment(code) = for (t = 0, t<=tmax, ++t,
+P = round(S + t*ST);
+code#;
+);
+if (i(#"$keycoords",x,0,0,2)<"$endpoint_connectivity",
+S = I(#"$keycoords",x)[0,2];
+angS = i(#"$keycoords",x,0,0,3)*pi/180;
+NS = [ cos(angS),sin(angS) ];
+ST = round(NS*"$segment_distmax");
+tmax = max(abs(ST));
+ST/=tmax;
+is_cond = 0;
+current_val = 0;
+nb_switches = 0;
+for_segment(
+if (i(#"$new_strokes",P,0,0)!=current_val, ++nb_switches; current_val=1 - current_val);
+if (nb_switches==2,is_cond = 1; break(););
+);
+tmax = t;
+if (is_cond,
+const area_max_threshold = "$area_min";
+const area_min_threshold = 5;
+const max_edgels = 2*(area_max_threshold + 1);
+if (area_max_threshold<=0,
+for_segment(i(#"$new_strokes",P)=0);
+,
+for_segment(i(#"$new_strokes",P)|=4);
+for_segment(
+if (i(#"$new_strokes",P[0] + 1,P[1])==1,
+edgels = area = 0; Q0 = Q = [ P[0] + 1,P[1],2 ];
+do (
+i(#"$new_strokes",Q[0],Q[1]) = 2;
+area+=(Q[2]&1?0:1-Q[2])*(Q[0]+!Q[2]);
+Q = next3(#"$new_strokes",Q),
+Q!=Q0 && ++edgels<=max_edgels);
+if (edgels<=max_edgels && area>=area_min_threshold && area=area_min_threshold && area=area_min_threshold && area=area_min_threshold && area[new_strokes] $nm
+}
+#@cli ellipse : x[%],y[%],R[%],r[%],_angle,_opacity,_pattern,_color1,... : (+)
+#@cli : Draw specified colored ellipse on selected images.
+#@cli : A radius of '100%' stands for 'sqrt(width^2+height^2)'.
+#@cli : 'pattern' is an hexadecimal number starting with '0x' which can be omitted
+#@cli : even if a color is specified. If a pattern is specified, the ellipse is
+#@cli : drawn outlined instead of filled.
+#@cli : Default values: 'opacity=1', 'pattern=(undefined)' and 'color1=0'.
+#@cli : $ image.jpg repeat 300 ellipse {u(100)}%,{u(100)}%,{u(30)},{u(30)},{u(180)},0.3,${-rgb} done ellipse 50%,50%,100,100,0,0.7,255
+#@cli flood : x[%],_y[%],_z[%],_tolerance>=0,_is_high_connectivity={ 0 | 1 },_opacity,_color1,... : (+)
+#@cli : Flood-fill selected images using specified value and tolerance.
+#@cli : Default values: 'y=z=0', 'tolerance=0', 'is_high_connectivity=0', 'opacity=1' and 'color1=0'.
+#@cli : $ image.jpg repeat 1000 flood {u(100)}%,{u(100)}%,0,20,0,1,${-rgb} done
+#@cli gaussian : _sigma1[%],_sigma2[%],_angle
+#@cli : Draw a centered gaussian on selected images, with specified standard deviations and orientation.
+#@cli : Default values: 'sigma1=3', 'sigma2=sigma1' and 'angle=0'.
+#@cli : $ 400,400 gaussian 100,30,45
+#@cli : $$ https://gmic.eu/oldtutorial/_gaussian
+gaussian : skip ${1=15%},${2=$1},${3=0}
+e[^-1] "Draw centered gaussian on image$? with standard deviations ($1,$2) and angle $3 deg."
+u={cos($3*pi/180)}
+v={sin($3*pi/180)}
+dmax={max(w,h)}
+if isnum($1) l1=$1 else l1={${1}10000*$dmax/100} fi
+if isnum($2) l2=$2 else l2={${2}10000*$dmax/100} fi
+l1={1/(2*max(1/3,$l1)^2)}
+l2={1/(2*max(1/3,$l2)^2)}
+A={$l1*$u*$u+$l2*$v*$v}
+B={($l1-$l2)*$u*$v}
+C={$l1*$v*$v+$l2*$u*$u}
+foreach {
+nm={n} w={w} h={h} ds={d},{s} rm
+$w,$h,1,1,'X=x-{($w-1)/2};Y=y-{($h-1)/2};$A*X*X+2*$B*X*Y+$C*Y*Y'
+* -1 exp r $w,$h,$ds => $nm
+}
+#@cli graph : [function_image],_plot_type,_vertex_type,_ymin,_ymax,_opacity,_pattern,_color1,... : 'formula',_resolution>=0,_plot_type,_vertex_type,_xmin,xmax,_ymin,_ymax,_opacity,_pattern,_color1,... : (+)
+#@cli : Draw specified function graph on selected images.
+#@cli : 'plot_type' can be { 0=none | 1=lines | 2=splines | 3=bar }.
+#@cli : 'vertex_type' can be { 0=none | 1=points | 2,3=crosses | 4,5=circles | 6,7=squares }.
+#@cli : 'pattern' is an hexadecimal number starting with '0x' which can be omitted
+#@cli : even if a color is specified.
+#@cli : Default values: 'plot_type=1', 'vertex_type=1', 'ymin=ymax=0 (auto)', 'opacity=1', 'pattern=(undefined)'
+#@cli : and 'color1=0'.
+#@cli : $ image.jpg +rows 50% blur[-1] 3 split[-1] c div[0] 1.5 graph[0] [1],2,0,0,0,1,255,0,0 graph[0] [2],2,0,0,0,1,0,255,0 graph[0] [3],2,0,0,0,1,0,0,255 keep[0]
+#@cli grid : size_x[%]>=0,size_y[%]>=0,_offset_x[%],_offset_y[%],_opacity,_pattern,_color1,...
+#@cli : Draw xy-grid on selected images.
+#@cli : 'pattern' is an hexadecimal number starting with '0x' which can be omitted
+#@cli : even if a color is specified.
+#@cli : Default values: 'offset_x=offset_y=0', 'opacity=1', 'pattern=(undefined)' and 'color1=0'.
+#@cli : $ image.jpg grid 10%,10%,0,0,0.5,255
+#@cli : $ 400,400,1,3,255 grid 10%,10%,0,0,0.3,0xCCCCCCCC,128,32,16
+grid : check "$1>=0 && $2>=0" skip ${3=0},${4=0},${5=1},${6=0},${7=$6}
+if ${"is_pattern \"$6\""}
+e[0--3] "Draw xy-grid on image$?, with sizes ($1,$2), offsets ($3,$4), opacity $5, pattern $6 and color (${7--1})."
+pattern=$6 color=${7--1}
+else
+e[0--3] "Draw xy-grid on image$?, with sizes ($1,$2), offsets ($3,$4), opacity $5, and color (${6--1})."
+pattern=0xFFFFFFFF color=${6--1}
+fi
+eval "
+is_percent(str) = (unref(_is_pct); _is_pct=['#str']; _is_pct[size(_is_pct) - 1]==_'%');
+repeat (l,k,
+size = is_percent($1)?max(1,w#k*$1):$1;
+size>=1?(
+off = (is_percent($3)?size*$3:$3)%size;
+for (x = off, x=1?(
+off = (is_percent($4)?size*$4:$4)%size;
+for (y = off, y] ..,$2,$3,$4,$5,$6,.,255 } rm[-3--1]
+else s. c,{1-s} repeat $!-2 { j[$>] ..,$2,$3,$4,$5,$6,.,255 } rm[-2,-1]
+fi
+#@cli line : x0[%],y0[%],x1[%],y1[%],_opacity,_pattern,_color1,... : (+)
+#@cli : Draw specified colored line on selected images.
+#@cli : 'pattern' is an hexadecimal number starting with '0x' which can be omitted
+#@cli : even if a color is specified.
+#@cli : Default values: 'opacity=1', 'pattern=(undefined)' and 'color1=0'.
+#@cli : $ image.jpg repeat 500 line 50%,50%,{u(w)},{u(h)},0.5,${-rgb} done line 0,0,100%,100%,1,0xCCCCCCCC,255 line 100%,0,0,100%,1,0xCCCCCCCC,255
+#@cli line_aa : x0[%],y0[%],x1[%],y1[%],_opacity,_color1,...
+#@cli : Draw specified antialiased colored line on selected images.
+#@cli : Default values: 'opacity=1' and 'color1=0'.
+#@cli : $ 512,512,1,3 repeat 100 line_aa {round(u([w,h,w,h])-1)},1,${-RGB} done
+line_aa : check "isnum(${5=1}) && isnum(${6=0})"
+e[^-1] "Draw antialiased line ($1,$2) - ($3,$4) on image$?, with opacity $5 and color (${6--1})."
+if !$5 return fi
+foreach {
+x0={${"is_percent $1"}?(w-1)*$1:$1}
+y0={${"is_percent $2"}?(h-1)*$2:$2}
+x1={${"is_percent $3"}?(w-1)*$3:$3}
+y1={${"is_percent $4"}?(h-1)*$4:$4}
+if $#>6 eval ${-math_lib}"line_aa($x0,$y0,$x1,$y1,$5,[${6--1}])"
+else eval ${-math_lib}"line_aa($x0,$y0,$x1,$y1,$5,$6)"
+fi
+}
+#@cli spline : x0[%],y0[%],u0[%],v0[%],x1[%],y1[%],u1[%],v1[%],_opacity,_color1,...
+#@cli : Draw specified colored spline curve on selected images (cubic hermite spline).
+#@cli : Default values: 'opacity=1' and 'color1=0'.
+#@cli : $ image.jpg repeat 30 { spline {u(100)}%,{u(100)}%,{u(-600,600)},{u(-600,600)},{u(100)}%,{u(100)}%,{u(-600,600)},{u(-600,600)},0.6,255 }
+spline : skip ${9=1},${10=0}
+e[^-1] "Draw spline from ($1,$2) [$3,$4] to ($5,$6) [$7,$8] on image$?, with opacity $9 and color (${10--1})."
+foreach {
+x0={if(${"is_percent $1"},$1*(w-1),$1)}
+y0={if(${"is_percent $2"},$2*(h-1),$2)}
+u0={if(${"is_percent $3"},$3*(w-1),$3)}
+v0={if(${"is_percent $4"},$4*(h-1),$4)}
+x1={if(${"is_percent $5"},$5*(w-1),$5)}
+y1={if(${"is_percent $6"},$6*(h-1),$6)}
+u1={if(${"is_percent $7"},$7*(w-1),$7)}
+v1={if(${"is_percent $8"},$8*(h-1),$8)}
+eval ${-math_lib}"spline(#0,["$x0","$y0"],["$u0","$v0"],["$x1","$y1"],["$u1","$v1"],$9,[${10--1}])"
+}
+#@cli thickline : x0[%],y0[%],x1[%],y1[%],_thickness,_opacity,_color1
+#@cli : Draw specified colored thick line on selected images.
+#@cli : Default values: 'thickness=2', 'opacity=1' and 'color1=0'.
+#@cli : $ 400,400,1,3 repeat 100 thickline {u([w,h,w,h,5])},0.5,${-rgb} done
+thickline : check "${5=2}>=0 && isnum(${6=1}) && isnum(${7=0})"
+e[^-1] "Draw thick line ($1,$2) - ($3,$4) on image$?, with thickness $5, opacity $6 and color (${7--1})."
+if !$5 line ${1-4},${6--1}
+else foreach {
+x0={${"is_percent $1"}?(w-1)*$1:$1}
+y0={${"is_percent $2"}?(h-1)*$2:$2}
+x1={${"is_percent $3"}?(w-1)*$3:$3}
+y1={${"is_percent $4"}?(h-1)*$4:$4}
+coords={"
+const th = "$5";
+P0 = [ "$x0","$y0" ];
+P1 = [ "$x1","$y1" ];
+dP = P1 - P0;
+n = [ -dP[1],dP[0] ]/max(1e-8,norm(dP))*th/2;
+round([ P0 - n, P0 + n, P1 + n, P1 - n ]);
+"}
+polygon 4,$coords,${6--1}
+} fi
+#@cli thickspline : x0[%],y0[%],u0[%],v0[%],x1[%],y1[%],u1[%],v1[%],_thickness,_opacity,_color1,...
+#@cli : Draw specified colored thick spline curve on selected images (cubic hermite spline).
+#@cli : Default values: 'thickness=3', 'opacity=1' and 'color1=0'.
+#@cli : $ image.jpg repeat 30 { spline {u(100)}%,{u(100)}%,{u(-600,600)},{u(-600,600)},{u(100)}%,{u(100)}%,{u(-600,600)},{u(-600,600)},0.6,255 }
+thickspline : skip ${9=3},${10=1},${11=0}
+e[^-1] "Draw spline from ($1,$2) [$3,$4] to ($5,$6) [$7,$8] on image$?, ""with thickness $9, opacity $10 and color (${11--1})."
+foreach {
+x0={if(${"is_percent $1"},$1*(w-1),$1)}
+y0={if(${"is_percent $2"},$2*(h-1),$2)}
+u0={if(${"is_percent $3"},$3*(w-1),$3)}
+v0={if(${"is_percent $4"},$4*(h-1),$4)}
+x1={if(${"is_percent $5"},$5*(w-1),$5)}
+y1={if(${"is_percent $6"},$6*(h-1),$6)}
+u1={if(${"is_percent $7"},$7*(w-1),$7)}
+v1={if(${"is_percent $8"},$8*(h-1),$8)}
+eval ${-math_lib}"thickspline(#0,["$x0","$y0"],["$u0","$v0"],["$x1","$y1"],["$u1","$v1"],$9,$10,[${11--1}])"
+}
+#@cli mandelbrot : z0r,z0i,z1r,z1i,_iteration_max>=0,_is_julia={ 0 | 1 },_c0r,_c0i,_opacity : (+)
+#@cli : Draw mandelbrot/julia fractal on selected images.
+#@cli : Default values: 'iteration_max=100', 'is_julia=0', 'c0r=c0i=0' and 'opacity=1'.
+#@cli : $ 400,400 mandelbrot -2.5,-2,2,2,1024 map 0 +blur 2 elevation3d[-1] -0.2
+#@cli marble : _image_weight,_pattern_weight,_angle,_amplitude,_sharpness>=0,_anisotropy>=0,_alpha,_sigma,_cut_low>=0,_cut_high>=0
+#@cli : Render marble like pattern on selected images.
+#@cli : Default values: 'image_weight=0.2', 'pattern_weight=0.1', 'angle=45', 'amplitude=0', 'sharpness=0.4' and 'anisotropy=0.8',
+#@cli : 'alpha=0.6', 'sigma=1.1' and 'cut_low=cut_high=0'.
+#@cli : $ image.jpg +marble ,
+marble : skip ${1=0.2},${2=0.1},${3=45},${4=0},${5=0.4},${6=0.8},${7=0.6},${8=1.1},${9=0%},${10=100%}
+e[^-1] "Render marble like pattern on image$?, with image weight $1, pattern weight $2, angle $3 deg.,
+amplitude $4, sharpness $5, anisotropy $6, alpha $7, sigma $8, and cut ($9,$10)."
+sx={$2*sin($3*pi/180)} sy={$2*cos($3*pi/180)} f sin(x*$sx+y*$sy+i*$1)
+if $4 smooth $4,$5,$6,$7,$8 fi
+c $9,$10 n 0,255
+#@cli maze : _width>0,_height>0,_cell_size>0
+#@cli : Input maze with specified size.
+#@cli : $ maze 30,20 negate normalize 0,255
++maze : check "isint(${1=15}) && $1>0 && isint(${2=$1}) && $2>0 && isint(${3=24}) && $3>0"
+e[^-1] "Input $1x$2 maze."
+({round(u($1-1))},{round(u($2-1))})
+$1,$2,1,1,15 +f. 0 a[-2,-1] c
+_generate_maze $1,$2
+_render_maze. $3 => [maze]
+_generate_maze :
+do
+x={-2,@-2} y={-2,@-1}
+=. 1,$x,$y,0,1
+is_candidate=0
+up=-1 if i($x,$y)&8" && "$y>0" && "!i($x,$y-1,0,1) up=$x,{$y-1},8 is_candidate=1 fi
+down=-1 if i($x,$y)&4" && "$y<$2-1" && "!i($x,$y+1,0,1) down=$x,{$y+1},4 is_candidate=1 fi
+left=-1 if i($x,$y)&2" && "$x>0" && "!i($x-1,$y,0,1) left={$x-1},$y,2 is_candidate=1 fi
+right=-1 if i($x,$y)&1" && "$x<$1-1" && "!i($x+1,$y,0,1) right={$x+1},$y,1 is_candidate=1 fi
+if $is_candidate
+($up,$down,$left,$right) y. discard. -1 r. 3,{h/3},1,1,-1 shift. 0,{round(u(4))},0,0,2 rows. 0,0 mv. -2
+fi
+if $is_candidate
+if {-2,@-1}==8 =. {i($x,$y)&7},$x,$y =. {i($x,$y-1)&11},$x,{$y-1}
+elif {-2,@-1}==4 =. {i($x,$y)&11},$x,$y =. {i($x,$y+1)&7},$x,{$y+1}
+elif {-2,@-1}==2 =. {i($x,$y)&13},$x,$y =. {i($x-1,$y)&14},{$x-1},$y
+else =. {i($x,$y)&14},$x,$y =. {i($x+1,$y)&13},{$x+1},$y
+fi
+z.. 0,1 a[-3,-2] y
+else
+if h#-2==1 break fi
+rows.. 0,{{-2,h}-2}
+fi
+while 1
+rm.. channels. 0
+_render_maze :
+i[0] $1,$1 i[1] [0]x15
+line[8-15] 0,0,100%,0,1,1
+line[4-7,12-15] 0,100%,100%,100%,1,1
+line[2-3,6-7,10-11,14-15] 0,0,0,100%,1,1
+line[1-15:2] 100%,0,100%,100%,1,1
+a[0-15] x r. {w*$1},{h*$1} *. $1 channels. 0,1
+$1,$1,1,1,x $1,$1,1,1,y a[-2,-1] c r. ..,..,1,2,0,2 +[-2,-1]
+warp.. .,0,0,0 rm.
+#@cli maze_mask : _cellsize>0
+#@cli : Input maze according to size and shape of selected mask images.
+#@cli : Mask may contain disconnected shapes.
+#@cli : $ 0 text "G'MIC",0,0,53,1,1 dilate 3 autocrop 0 frame 1,1,0 maze_mask 8 dilate 3 negate mul 255
+maze_mask : check "isint(${1=24}) && $1>0"
+e[^-1] "Input masked maze from image$? with cell size $1."
+compose_channels + >= 50%
+foreach {
+do
++rand[0] 0,1 *. [0] ({[xM,yM]}) rm..
++flood[0] {^},0,0,0,1,2 >=. 2 +negate. *.. 15 a[-2,-1] c
+flood[0] {-2,^},0,0,0,1,0
+_generate_maze {w},{h}
+while iM#0
+rm[0] + _render_maze. $1 => [maze]
+}
+#@cli newton_fractal : z0r,z0i,z1r,z1i,_angle,0<=_descent_method<=2,_iteration_max>=0,_convergence_precision>0,_expr_p(z),_expr_dp(z),_expr_d2p(z)
+#@cli : Draw newton fractal on selected images, for complex numbers in range (z0r,z0i) - (z1r,z1i).
+#@cli : Resulting images have 3 channels whose meaning is [ last_zr, last_zi, nb_iter_used_for_convergence ].
+#@cli : 'descent_method' can be { 0=secant | 1=newton | 2=householder }.
+#@cli : Default values: 'angle=0', 'descent_method=1', 'iteration_max=200', 'convergence_precision=0.01', 'expr_p(z)=z^^3-1', 'expr_dp(z)=3*z^^2' and 'expr_d2z(z)=6*z'.
+#@cli : $ 400,400 newton_fractal -1.5,-1.5,1.5,1.5,0,2,200,0.01,"z^^6 + z^^3 - 1","6*z^^5 + 3*z^^2","30*z^^4 + 6*z" f "[ atan2(i1,i0)*90+20,1,cut(i2/30,0.2,0.7) ]" hsl2rgb
+newton_fractal : check "isin(${6=1},0,1,2) && ${7=200}>=0 && ${8=0.01}>0"
+skip "${4=0},${9=z^^3-1},${10=3*z^^2},${11=6*z}"
+m0,m1,m2=secant,newton,householder
+e[^-1] "Draw newton fractal on image$?, for complex range ($1,$2)-($3,$4), with angle $5, $7 max "${m$6}" ""iterations, precision $8, and expressions 'p(z)=$9', 'dp(z)=$10' and 'd2p(z)=$11'."
+channels 0,2
+f "*
+begin(
+const dx = abs($3 - $1);
+const dy = abs($4 - $2);
+const angle = $5;
+const method = $6;
+const itermax = $7;
+const precision = $8;
+zc = [ $1 + $3, $2 + $4 ]/2;
+R = rot(-angle°);
+);
+p(z) = ($9);
+dp(z) = ($10);
+d2p(z) = ($11);
+zn = [ $1 + x*dx/(w-1), $2 + y*dy/(h-1) ];
+angle?(zn = (R*(zn-=zc)+=zc));
+!method?(znm1 = zn + [ precision,0 ]);
+repeat (itermax,iter,
+pzn = p(zn);
+method==0?(
+znp1 = zn - pzn**(zn - znm1)//(pzn - p(znm1));
+znm1 = zn;
+):method==1?(
+dpzn = dp(zn);
+znp1 = zn - pzn//dpzn;
+):(
+dpzn = dp(zn);
+d2pzn = d2p(zn);
+hn = (pzn**d2pzn)//(2*dpzn^^2);
+znp1 = zn - pzn//dpzn**([1,0] + hn);
+);
+norm(znp1 - zn)=0,0<=_min_scale<=100,_allow_rotation={ 0=0 deg. | 1=180 deg. | 2=90 deg. | 3=any },_spacing,_precision>=0,max_iterations>=0
+#@cli : Try to randomly pack as many sprites as possible onto the 'empty' areas of an image.
+#@cli : Sprites can be eventually rotated and scaled during the packing process.
+#@cli : First selected image is the canvas that will be filled with the sprites.
+#@cli : Its last channel must be a binary mask whose zero values represent potential locations for drawing the sprites.
+#@cli : All other selected images represent the sprites considered for packing.
+#@cli : Their last channel must be a binary mask that represents the sprite shape (i.e. a 8-connected component).
+#@cli : The order of sprite packing follows the order of specified sprites in the image list.
+#@cli : Sprite packing is done on random locations and iteratively with decreasing scales.
+#@cli : 'nb_scales' sets the number of decreasing scales considered for all specified sprites to be packed.
+#@cli : 'min_scale' (in %) sets the minimal size considered for packing (specified as a percentage of the
+#@cli : original sprite size).
+#@cli : 'spacing' can be positive or negative.
+#@cli : 'precision' tells about the desired number of failed trials before ending the filling process.
+#@cli : Default values: 'nb_scales=5', 'min_scale=25', 'allow_rotation=3', 'spacing=1', 'precision=7' and 'max_iterations=256'.
+#@cli : $ 512,512,1,3,"min(255,y*c/2)" 100%,100% circle 50%,50%,100,1,255 append c image.jpg resize2dy[-1] 24 to_rgba pack_sprites 3,25
+pack_sprites : check "isint(${1=5}) && $1>=0 && ${2=25}>=0 && $2<=100 && isint(${3=3}) && $3>=0 && $3<=3 &&
+isint(${4=1}) && isint(${5=7}) && $5>=0 && isint(${6=256}) && $6>=0"
+e[^-1] "Randomly pack image$? with $1 scales, minimum scale $2%, "${arg0\ $3,no,180\"\ \"deg.,90\"\ \"deg.,any}" rotation, spacing $4, precision $5 and $6 maximum iterations."
+N={$!-1} is_first_time=1
+foreach { r 100%,100%,1,{max(2,s)} }
+repeat $1 {
+rprogress {$>*100/$1}
+nb_attempts=0
+ratio={if($1>1,$2+(100-$2)*$}] {
+w={w*$ratio} h={h*$ratio}
+if $w<1||$h<1 rm
+else r $w,$h,1,100%,2 sh. 100% !=. 0 area{1+$>}={is} rm.
+fi
+} }
+l[0,{$N+1}--1] { repeat $6 {
+ind={1+($>%$N)} area=${area$ind}
+if $3==0 [$ind]
+elif $3==1 +rotate[$ind] {round(u)*180}
+elif $3==2 +rotate[$ind] {round(u(3))*90}
+else +rotate[$ind] {u*360} sh. 100% !=. 0 area={is} rm.
+fi
++channels[0] 100% ==. 0
+if $4>1 erode. {2*$4-1}
+elif $4<1 dilate. {-2*$4+3}
+fi
++rectangle. 0,0,100%,100%,1,0xFFFFFFFF,0
+if $is_first_time noise. 0.1,2 ==. 1 fi
+distance. 0 noise. 1,1
+max_patch. {$ind,round(1.5*max(w,h))}
+*. .. pointcloud3d.
+if $N>1 l. {
+s3d /[1] $N round[1] max[1] 1 n={1,@0}
+r[2] 3,{{2,h}/3},1,1,-1
+i[2] 1,{2,h} rand[2] 0,1 a[2,3] x sort[2] +,y z[2] 1,3 r[2] 3,$n,1,1 y[2]
+r[3] 1,{2*$n},1,1,0 r[4] 1,{3*$n},1,1,0 r[5] 1,$n,1,1,0 a y
+} fi
+n={@7}
+if $n
+s3d. rm[-2,-1]
+if $3==0
+[-6] i.. (-128;{w};{h};{s})
+if $n>1 4,{$n-1},1,1,-128,0,0,0 fi
++channels.. 100% i.. (-128;{w};{h};{s})
+if $n>1 ... fi
+elif $3==1
++rotate[-6] {round(u(1))*180} i.. (-128;{w};{h};{s})
+if $n>1 +rotate. 180 i.. (-128;{w};{h};{s}) fi
+if $n>2 4,{$n-2},1,1,-128,0,0,0 1,100% rand. 0,1 round. 1 j.. .,1 rm. fi
++channels[-4] 100% i.. (-128;{w};{h};{s})
+if $n>1 +channels[-4] 100% i.. (-128;{w};{h};{s}) fi
+if $n>2 [-5] fi
+else
++rotate[-6] {round(u(3))*90} i.. (-128;{w};{h};{s})
+if $n>1 +rotate. 90 i.. (-128;{w};{h};{s}) fi
+if $n>2 +rotate. 90 i.. (-128;{w};{h};{s}) fi
+if $n>3 +rotate. 90 i.. (-128;{w};{h};{s}) fi
+if $n>4 4,{$n-4},1,1,-128,0,0,0 1,100% rand. 0,3 round. 1 j.. .,1 rm. fi
++channels[-8] 100% i.. (-128;{w};{h};{s})
+if $n>1 +channels[-8] 100% i.. (-128;{w};{h};{s}) fi
+if $n>2 +channels[-8] 100% i.. (-128;{w};{h};{s}) fi
+if $n>3 +channels[-8] 100% i.. (-128;{w};{h};{s}) fi
+if $n>4 [-9] fi
+fi
+y[{$N+3}--1] a[{$N+3}--1] y
+fi
+rm...
+[0] sh. 100% f. 1 -. [-4]
+j3d.. ...,0,0,0,1,2,0,0 rm[-3,-1]
+sh. 100% area_fg. 0,1 ==. $area
+*. ... rm... sh.. 0,{-2,s-2} *. .. rm.
+if iM j[0] ..,0,0,0,0,1,. rm[-2,-1]
+else
+rm[-2,-1]
+nb_attempts+=1
+if $nb_attempts>$5 break else continue fi
+fi
+} k[0] }
+} k[0]
+#@cli piechart : label_height>=0,label_R,label_G,label_B,"label1",value1,R1,G1,B1,...,"labelN",valueN,RN,GN,BN
+#@cli : Draw pie chart on selected (RGB) images.
+#@cli : $ image.jpg piechart 25,0,0,0,"Red",55,255,0,0,"Green",40,0,255,0,"Blue",30,128,128,255,"Other",5,128,128,128
+piechart : check $1>=0
+e[^-1] "Draw pie chart on image$?, with label height $1 and color ($2,$3,$4)."
+$=arg
+foreach {
+ellipse 50%,50%,{w/2-1},{h/2-1},0,1,1
+ellipse 50%,50%,{w/2-1},{h/2-1},0,1,0xFFFFFFFF
+(${6--1:5}) normalize_sum.
+theta=0
+if w>1 repeat w {
+xe={0.5*{-2,w}*(1+cos($theta))}
+ye={0.5*{-2,h}*(1+sin($theta))}
+line.. 50%,50%,$xe,$ye
+theta-={2*pi*i($>)}
+} fi
+theta=0
+repeat w { if i($>)
+ntheta={$theta-2*pi*i($>)}
+xc={0.5*{-2,w}*(1+0.5*cos(0.5*($ntheta+$theta)))}
+yc={0.5*{-2,h}*(1+0.5*sin(0.5*($ntheta+$theta)))}
+xf={0.5*{-2,w}*(1+0.8*cos(0.5*($ntheta+$theta)))}
+yf={0.5*{-2,h}*(1+0.8*sin(0.5*($ntheta+$theta)))}
+flood.. $xf,$yf,0,0,0,1,${arg{7+5*$>}},${arg{8+5*$>}},${arg{9+5*$>}}
+if abs($ntheta-$theta)>0.1
+0 t. ${arg{5+5*$>}},0,0,$1,1,1
+($2^$3^$4) r. ..,..,1,3 *. ..
+j[-4] .,{$xc-w/2},{$yc-h/2},0,0,1,..
+rm[-2,-1]
+fi
+theta=$ntheta
+fi }
+rm.
+}
+#@cli plasma : _alpha,_beta,_scale>=0 : (+)
+#@cli : Draw a random colored plasma fractal on selected images.
+#@cli : This command implements the so-called 'Diamond-Square' algorithm.
+#@cli : Default values: 'alpha=1', 'beta=1' and 'scale=8'.
+#@cli : $ 400,400,1,3 plasma
+#@cli : $$ https://gmic.eu/oldtutorial/_plasma
+#@cli point : x[%],_y[%],_z[%],_opacity,_color1,... : (+)
+#@cli : Set specified colored pixel on selected images.
+#@cli : Default values: 'z=0', 'opacity=1' and 'color1=0'.
+#@cli : $ image.jpg repeat 10000 point {u(100)}%,{u(100)}%,0,1,${-rgb} done
+#@cli polka_dots : diameter>=0,_density,_offset1,_offset2,_angle,_aliasing,_shading,_opacity,_color,...
+#@cli : Draw dots pattern on selected images.
+#@cli : Default values: 'density=20', 'offset1=offset2=50', 'angle=0', 'aliasing=10', 'shading=1', 'opacity=1' and 'color=255'.
+#@cli : $ image.jpg polka_dots 10,15,0,0,20,10,1,0.5,0,128,255
+polka_dots : check $1>=0 skip ${2=20},${3=50},${4=50},${5=0},${6=10},${7=1},${8=1},${9=255}
+e[^-1] "Draw polka dots on image$?, with diameter $1, density $2, angle $3 deg., shift ($4,$5), aliasing $6 and
+shading $7."
+theta={$5*pi/180} ct={cos($theta)} st={sin($theta)} mid1={$1/2} mid2={$2/2}
+i[0] (${9--1}) y[0] c
+repeat $!-1 {
+WH={max(w,h)}
+100%,100%,100%,1,"xn = 100*x/"$WH"-$3; yn = 100*y/"$WH"-$4; xr = xn*"$ct"-yn*"$st"; yr = xn*"$st"+yn*"$ct"; xc = xr%$2-"$mid2"; yc = yr%$2-"$mid2"; "$mid1"-sqrt(xc*xc+yc*yc)"
+*. $6 c. 0,$7 n. 0,$8 (${9--1}) y. c r. ..,..,..
+j... .,0,0,0,0,1,.. rm[-2,-1] mv. 1
+}
+rm[0]
+#@cli polygon : N>=1,x1[%],y1[%],...,xN[%],yN[%],_opacity,_pattern,_color1,... : (+)
+#@cli : Draw specified colored N-vertices polygon on selected images.
+#@cli : 'pattern' is an hexadecimal number starting with '0x' which can be omitted
+#@cli : even if a color is specified. If a pattern is specified, the polygon is
+#@cli : drawn outlined instead of filled.
+#@cli : Default values: 'opacity=1', 'pattern=(undefined)' and 'color1=0'.
+#@cli : $ image.jpg polygon 4,20%,20%,80%,30%,80%,70%,20%,80%,0.3,0,255,0 polygon 4,20%,20%,80%,30%,80%,70%,20%,80%,1,0xCCCCCCCC,255
+#@cli : $ image.jpg 2,16,1,1,'u(if(x,{h},{w}))' polygon[-2] {h},{^},0.6,255,0,255 remove[-1]
+#@cli quiver : [function_image],_sampling[%]>0,_factor>=0,_is_arrow={ 0 | 1 },_opacity,_color1,...
+#@cli : Draw specified 2D vector/orientation field on selected images.
+#@cli : Default values: 'sampling=5%', 'factor=1', 'is_arrow=1', 'opacity=1', 'pattern=(undefined)'
+#@cli : and 'color1=0'.
+#@cli : $ 100,100,1,2,'if(c==0,x-w/2,y-h/2)' 500,500,1,3,255 quiver[-1] [-2],10
+#@cli : $ image.jpg +resize2dy 600 luminance[0] gradient[0] mul[1] -1 reverse[0,1] append[0,1] c blur[0] 8 orientation[0] quiver[1] [0],20,1,1,0.8,255
+quiver : check ${"is_image_arg $1"}" && ${2=5%}>0 && ${3=1}>=0 && isbool(${4=1})" skip "${5=1},${6=0}"
+e[^-1] "Draw 2D vector field $1 on image$?, with sampling $2, factor $3, arrows "${"arg0 $4,disabled,enabled"}",
+opacity $5 and color (${6--1})."
+pass$1 repeat $!-1 { l[$>,-1] {
+eval ${-math_lib}"
+s_sampling = ['$2'];
+sampling = s_sampling[size(s_sampling) - 1 ]==_'%'?min(w#0,h#0)*$2:$2;
+vmax = max(abs(im),abs(iM));
+vmax = vmax?vmax:1;
+fact = $3*sampling/vmax;
+for (y = sampling/2, y=0','mirroring={ 0=none | 1=x | 2=y | 3=xy }
+#@cli : Render rorschach-like inkblots on selected images.
+#@cli : Default values: 'smoothness=5%' and 'mirroring=1'.
+#@cli : $ 400,400 rorschach 3%
+rorschach : check "${1=5%}>=0 && isint(${2=1}) && $2>=0 && $2<=3"
+e[^-1] "Render rorschach-like inkblots on image$?, with smoothness $1 and "${arg0\ $2,no,x,y,xy}"-mirroring."
+if $2==0
+rand -1,1 b $1 >= 0
+elif $2==1
+foreach {
+w={w}
+columns 0,{w/2-1} rand -1,1 b $1 >= 0
++mirror x if $w%2 columns. 1,100% fi a x
+}
+elif $2==2
+foreach {
+h={h}
+rows 0,{h/2-1} rand -1,1 b $1 >= 0
++mirror y if $h%2 rows. 1,100% fi a y
+}
+elif $2==3
+foreach {
+w={w} h={h}
+z 0,0,{w/2-1},{h/2-1} rand -1,1 b $1 >= 0
++mirror x if $w%2 columns. 1,100% fi a x
++mirror y if $h%2 rows. 1,100% fi a y
+}
+fi
+#@cli sierpinski : recursion_level>=0
+#@cli : Draw Sierpinski triangle on selected images.
+#@cli : Default value: 'recursion_level=7'.
+#@cli : $ image.jpg sierpinski 7
+sierpinski : check ${1=7}>=0 skip ${2=50},${3=0},${4=0},${5=100},${6=100},${7=100}
+e[^-1] "Draw Sierpinski triangle of degree $1 on image$?."
+_sierpinski ${2-7},$1
+_sierpinski :
+if $7<=0 polygon 3,$1%,$2%,$3%,$4%,$5%,$6%,1,255 return fi
+_sierpinski $1,$2,{($1+$3)/2},{($2+$4)/2},{($1+$5)/2},{($2+$6)/2},{$7-1}
+_sierpinski {($1+$3)/2},{($2+$4)/2},$3,$4,{($3+$5)/2},{($4+$6)/2},{$7-1}
+_sierpinski {($1+$5)/2},{($2+$6)/2},$5,$6,{($3+$5)/2},{($4+$6)/2},{$7-1}
+#@cli spiralbw : width>0,_height>0,_is_2dcoords={ 0 | 1 }
+#@cli : Input a 2D rectangular spiral image with specified size.
+#@cli : Default values: 'height=width' and 'is_2dcoords=0'.
+#@cli : $ spiralbw 16
+#@cli : $ image.jpg spiralbw {[w,h]},1 +warp[0] [1],0,1,1 +warp[2] [1],2,1,1
++spiralbw : check "$1>=1 && ${2=$1}>=1 && isbool(${3=0})"
+e[^-1] "Input 2D rectangular spiral image of size $1x$2."
+main="alpha = min(x,y,w - 1 - x,h - 1 - y);
+t0 = alpha*2*(w + h) - 4*alpha^2;
+X = x - alpha;
+Y = y - alpha;
+W = w - 2*alpha;
+H = h - 2*alpha;
+t = t0 + (Y==0?X:
+X==W - 1?W - 1 + Y:
+Y==H - 1?2*W + H - 3 - X:
+2*(W + H - 2) - Y);"
+if $3 $1,$2,1,2,$main"[ t%w, int(t/w) ]" else $1,$2,1,1,$main fi
+#@cli tetraedron_shade : x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3,R0,G0,B0,...,R1,G1,B1,...,R2,G2,B2,...,R3,G3,B3,...
+#@cli : Draw tetraedron with interpolated colors on selected (volumetric) images.
+tetraedron_shade :
+e[^-1] "Draw tetraderon ($1,$2,$3)-($4,$5,$6)-($7,$8,$9)-($10,$11,$12) with interpolated colors in image$?."
+xm={round(min($1,$4,$7,$10),1,-1)} xM={round(max($1,$4,$7,$10),1,1)}
+ym={round(min($2,$5,$8,$11),1,-1)} yM={round(max($2,$5,$8,$11),1,1)}
+zm={round(min($3,$6,$9,$12),1,-1)} zM={round(max($3,$6,$9,$12),1,1)}
+l[] { (${1-3},1;${4-6},1;${7-9},1;${10-12},1) (${13--1}) r. {w/4},4,1,1,-1 s. x solve[^0] [0] rm[0] a c }
+f[^-1] "*
+begin(
+x0 = $1; y0 = $2; z0 = $3;
+x1 = $4; y1 = $5; z1 = $6;
+x2 = $7; y2 = $8; z2 = $9;
+x3 = $10; y3 = $11; z3 = $12;
+u01 = x1 - x0; v01 = y1 - y0; w01 = z1 - z0;
+u02 = x2 - x0; v02 = y2 - y0; w02 = z2 - z0;
+u03 = x3 - x0; v03 = y3 - y0; w03 = z3 - z0;
+u12 = x2 - x1; v12 = y2 - y1; w12 = z2 - z1;
+u13 = x3 - x1; v13 = y3 - y1; w13 = z3 - z1;
+u23 = x3 - x2; v23 = y3 - y2; w23 = z3 - z2;
+nx012 = v01*w02 - w01*v02; ny012 = w01*u02 - u01*w02; nz012 = u01*v02 - v01*u02;
+if (nx012*u03 + ny012*v03 + nz012*w03<0, nx012*=-1; ny012*=-1; nz012*=-1);
+nx013 = v01*w03 - w01*v03; ny013 = w01*u03 - u01*w03; nz013 = u01*v03 - v01*u03;
+if (nx013*u02 + ny013*v02 + nz013*w02<0, nx013*=-1; ny013*=-1; nz013*=-1);
+nx023 = v02*w03 - w02*v03; ny023 = w02*u03 - u02*w03; nz023 = u02*v03 - v02*u03;
+if (nx023*u01 + ny023*v01 + nz023*w01<0, nx023*=-1; ny023*=-1; nz023*=-1);
+nx123 = v12*w13 - w12*v13; ny123 = w12*u13 - u12*w13; nz123 = u12*v13 - v12*u13;
+if (-nx123*u01 - ny123*v01 - nz123*w01<0, nx123*=-1; ny123*=-1; nz123*=-1);
+);
+if (x<"$xm" || x>"$xM" || y<"$ym" || y>"$yM" || z<"$zm" || z>"$zM",i,
+dx0 = x - x0; dy0 = y - y0; dz0 = z - z0;
+dx1 = x - x1; dy1 = y - y1; dz1 = z - z1;
+is_in = dx0*nx012 + dy0*ny012 + dz0*nz012>=0 &&
+dx0*nx013 + dy0*ny013 + dz0*nz013>=0 &&
+dx0*nx023 + dy0*ny023 + dz0*nz023>=0 &&
+dx1*nx123 + dy1*ny123 + dz1*nz123>=0;
+is_in? i(#-1,0,0,0)*x + i(#-1,0,1,0)*y + i(#-1,0,2,0)*z + i(#-1,0,3,0) :i
+)
+"
+rm.
+#@cli t : eq. to 'text'. : (+)
+#@cli text : text,_x[%|~],_y[%|~],_{ font_height[%]>=0 | custom_font },_opacity,_color1,... : (+)
+#@cli : Draw specified colored text string on selected images.
+#@cli : (eq. to 't').\n
+#@cli : If one of the x or y argument ends with a '~', its value is expected to be a centering ratio (in [0,1]) rather than a position.
+#@cli : Usual centering ratio are { 0=left-justified | 0.5=centered | 1=right-justified }.
+#@cli : Sizes '13' and '128' are special and correspond to binary fonts (no-antialiasing). Any other font size is rendered with anti-aliasing.
+#@cli : Specifying an empty target image resizes it to new dimensions such that the image contains the entire text string.
+#@cli : A custom font can be specified as a variable name that stores an image list of 256 or 512 items (512 for 256 character sprites + 256 associated opacities).
+#@cli : Default values: 'x=y=0.01~', 'font_height=16', 'opacity=1' and 'color1=0'.
+#@cli : $ image.jpg resize2dy 600 y=0 repeat 30 { text {2*$>}" : This is a nice text, isn't it ?",10,$y,{2*$>},0.9,255 y+={2*$>} }
+#@cli : $ 0 text "G'MIC",0,0,23,1,255
+#@cli to : eq. to 'text_outline'.
+to : skip "${1=}",${2=0.01~},${3=0.01~} check "${4=7.5%}>0 && ${5=2}>=0 && isnum(${6=1}) && isnum(${7=255}) && ""isnum(${8=$7}) && isnum(${9=$7}) && isnum(${10=255})"
+_text_outline $"*"
+#@cli text_outline : text,_x[%|~],_y[%|~],_font_height[%]>0,_outline>=0,_opacity,_color1,...
+#@cli : Draw specified colored and outlined text string on selected images.
+#@cli : If one of the x or y argument ends with a '~', its value is expected to be
+#@cli : a centering ratio (in [0,1]) rather than a position.
+#@cli : Usual centering ratio are { 0=left-justified | 0.5=centered | 1=right-justified }.
+#@cli : Default values: 'x=y=0.01~', 'font_height=7.5%', 'outline=2', 'opacity=1', 'color1=color2=color3=255' and 'color4=255'.
+#@cli : $ image.jpg text_outline "Hi there!",10,10,63,3
+text_outline : skip "${1=}",${2=0.01~},${3=0.01~}
+check "${4=7.5%}>0 && ${5=2}>=0 && isnum(${6=1}) && isnum(${7=255}) && ""isnum(${8=$7}) && isnum(${9=$7}) && isnum(${10=255})"
+_text_outline $"*"
+_text_outline : skip "${1=}"
+e[0--3] "Draw outlined text '$1' at position ($2,$3) on image$?, with font height $4, outline $5, opacity $6 and
+color ${7--1}."
+if ['"$1"']==0 return fi
+sepx,sepy={"sx=['$2']; sy=['$3']; [sx[size(sx)-1], sy[size(sy)-1]]"}
+is_fontpercent=${"is_percent $4"}
+xpos={`s=['"$2"'];$sepx==_'~'||$sepx==_'%'?s[0,size(s)-1]:s`}
+ypos={`s=['"$3"'];$sepy==_'~'||$sepy==_'%'?s[0,size(s)-1]:s`}
+foreach {
+0 t. "$1",0,0,{-2,$is_fontpercent?h*$4:$4},1,1 expand_xy. {1+$5},0
++dilate. {2*$5+1}
+i[-3] (${7--1}) r... {s#0},1,1,1,0,2 y... c r... .,.,1,100%
+if $5 *[-3,-2] else rm.. fi
+if w#0
+j... ..,{[($sepx==_'~'?(w#0-1-w):$sepx==_'%'?(w#0-1)%:1)*$xpos,($sepy==_'~'?(h#0-1-h):$sepy==_'%'?(h#0-1)%:1)*$ypos]},0,0,$6,.
+k[0]
+else k[1]
+fi
+}
+#@cli triangle_shade : x0,y0,x1,y1,x2,y2,R0,G0,B0,...,R1,G1,B1,...,R2,G2,B2,...
+#@cli : Draw triangle with interpolated colors on selected images.
+#@cli : $ image.jpg triangle_shade 20,20,400,100,120,200,255,0,0,0,255,0,0,0,255
+triangle_shade :
+e[^-1] "Draw triangle ($1,$2)-($3,$4)-($5,$6) with interpolated colors on image$?."
+l[] { ($1,$2,1;$3,$4,1;$5,$6,1) (${7--1}) r. {w/3},3,1,1,-1 s. x solve[^0] [0] rm[0] a c }
+invarea={(-$4*$5+$2*(-$3+$5)+$1*($2-$6)+$3*$6)^-1}
+s1={$2*$5-$1*$6} s2={$6-$2} s3={$1-$5}
+t1={$1*$4-$2*$3} t2={$2-$4} t3={$3-$1}
+repeat $!-1 {
+l[$>,-1] {
+repeat s#0 {
+a={i(0,0,0,$>)} b={i(0,1,0,$>)} c={i(0,2,0,$>)}
+sh[0] $>
+f. "s = "$invarea"*("$s1" + "$s2"*x + "$s3"*y);
+t = "$invarea"*("$t1" + "$t2"*x + "$t3"*y);
+s>=0 && t>=0 && t+s<=1 ? "$a"*x+"$b"*y+"$c":i"
+rm.
+}
+}
+}
+rm.
+#@cli truchet : _scale>0,_radius>=0,_pattern_type={ 0=straight | 1=curved }
+#@cli : Fill selected images with random truchet patterns.
+#@cli : Default values: 'scale=32', 'radius=5' and 'pattern_type=1'.
+#@cli : $ 400,300 truchet ,
+truchet : check "isint(${1=32}) && $1>0 && ${2=3}>=0" skip ${3=1}
+e[^-1] "Render "${arg0\ !$3,curved,straight}" truchet patterns in image$?, with scale $1 and radius $2."
+foreach {
+nm={n} w={w} h={h} s={s} rm
+$1,$1 = 1,0,0 = 1,100%,100% distance 1,{1+$3} M={int(iM/2)}
+ir {$M-$2/2-($1%2)},{$M+$2/2} +mirror y a x
+{round($w/$1,1,1)},{round($h/$1,1,1)} rand. 0,1 >=. 50% r. {w*$1},{h*$1} *. $1
+channels. 0,1 (0,{$1-1}) r. $1,$1,1,1,3 +transpose. a[-2,-1] c ri. ..,0,2 +[-2,-1]
+warp.. . rm. >= 50% r $w,$h,1,1,0 r 100%,100%,1,$s => $nm
+}
+#@cli turbulence : _radius>0,_octaves={1,2,3...,12},_alpha>0,_difference={-10,10},_mode={0,1,2,3}
+#@cli : Render fractal noise or turbulence on selected images.
+#@cli : Default values: 'radius=32', 'octaves=6', 'alpha=3', 'difference=0' and 'mode=0'.
+#@cli : $ 400,400,1,3 turbulence 16
+#@cli : $$ https://gmic.eu/oldtutorial/_turbulence
+turbulence : check "${1=32}>0 && ${2=6}>0" skip ${3=3},${4=0},${5=0}
+e[^-1] "Render fractal noise or turbulence on image$?, with radius $1, octaves $2, damping per octave $3,
+difference $4 and mode $5."
+foreach {
+nm={n}
+if $4 . fi
+f. 0 +noise. 10,0 b. $1,0
+if $5==0||$5==1 -. {ia} abs.
+elif $5==3||$5==4 ^. 2
+elif $5==5 ^. 3
+fi
+repeat $2-1 {
++noise.. 10,0 b. {$1/2^$>},0
+if $5==0 -. {ia} abs.
+elif $5==4 ^. 2
+elif $5==5 ^. 3
+fi
+*.. $3 +[-2--1]
+}
+n. 0,255
+rm..
+if $4 *. $4 mv.. 2 - n. 0,255 fi
+=> $nm
+}
+#@cli yinyang
+#@cli : Draw a yin-yang symbol on selected images.
+#@cli : $ 400,400 yinyang
+yinyang :
+e[^-1] "Draw yin-yang symbol on image$?."
+f 0
+foreach {
+s={s} channels 0
+r={round(0.95*min(w,h)/4)}
++line 50%,0,50%,50%,1,2 ellipse. 50%,{h/2-$r},$r,$r,0,1,2
+line. 50%,50%,50%,100%,1,1 ellipse. 50%,{h/2+$r},$r,$r,0,1,1
+flood. {w/2-$r},50%,0,0,0,1,2
+flood. {w/2+$r},50%,0,0,0,1,1
+ellipse.. 50%,50%,{2*$r},{2*$r},0,1,1
+*
+ellipse. 50%,{h/2-$r},{$r/3},{$r/3},0,1,1
+ellipse. 50%,{h/2+$r},{$r/3},{$r/3},0,1,2
+r 100%,100%,1,$s
+}
+#@cli :: Matrix Computation
+#@cli dijkstra : starting_node>=0,ending_node>=0 : (+)
+#@cli : Compute minimal distances and paths from specified adjacency matrices by the Dijkstra algorithm.
+#@cli eigen : (+)
+#@cli : Compute the eigenvalues and eigenvectors of selected symmetric matrices or matrix fields.
+#@cli : If one selected image has 3 or 6 channels, it is regarded as a field of 2x2 or 3x3 symmetric matrices,
+#@cli : whose eigen elements are computed at each point of the field.
+#@cli : $ (1,0,0;0,2,0;0,0,3) +eigen
+#@cli : $ image.jpg structuretensors blur 2 eigen split[0] c
+#@cli : $$ https://gmic.eu/oldtutorial/_eigen
+#@cli eye : _size>0
+#@cli : Insert an identity matrix of given size at the end of the image list.
+#@cli : $ eye 3 eye 7 eye 10
++eye : check "isint($1) && $1>=0"
+e[^-1] "Input $1x$1 identity matrix."
+if $1 $1,$1,1,1,x==y else 0 fi
+#@cli invert : _use_LU={ 0=SVD | 1=LU },_lambda>=0 : (+)
+#@cli : Inverse selected matrices (or compute Moore-Penrose pseudoinverse for non-square matrices).
+#@cli : SVD solver is slower but more precise than LU.
+#@cli : 'lambda' is used only in the Moore-Penrose pseudoinverse, by estimating A^t.(A^t.A + lambda.Id)^-1.
+#@cli : Default value: 'use_LU=0' and 'lambda=0'.
+#@cli : $ (0,1,0;0,0,1;1,0,0) +invert
+#@cli orthogonalize : _mode = { 0=orthogonalize | 1=orthonormalize }
+#@cli : Orthogonalize or orthonormalize selected matrices, using Modified Gram-Schmidt process.
+#@cli : Default value: 'mode=0'.
+orthogonalize :
+if isbool($1) mode=$1 else mode=0 noarg fi
+u0,u1,v0,v1=Orthogonalize,Orthonormalize,x,ce
+e[^-1] ${u$mode}" matri"${v{$!!=1}}"$?, using Modified Gram-Schmidt process."
+foreach {
+eval ">
+proj(u,v) = (dot(u,v)/dot(u,u)*u);
+for (p = 1, p=1
+#@cli : Compute an approximation of the 'm' largest eigenvalues and eigenvectors of selected symmetric matrices,
+#@cli : using the Arnoldi iteration method (https://en.wikipedia.org/wiki/Arnoldi_iteration).
+#@cli : A larger 'm' goes with better numerical precision.
+#@cli : $ (1,0,0;0,2,0;0,0,3) +meigen 3
+meigen : check "isint($1) && $1>0"
+if $!!=1 s="ce" else s="x" fi
+e[^-1] "Compute $1 largest eigen-values of matri"$s"$?."
+foreach {
+nm={n}
+if w!=h" || "d!=1" || "s!=1 v 1 error[0--5] "Command 'meigen': Image '"$nm"' is not a square matrix." fi
+eval ${-math_lib}" store('val',meig(crop(),$1,h),1,min($1,h))" $val k. => $nm
+}
+#@cli mproj : [dictionary],_method,_max_iter={ 0=auto | >0 },_max_residual>=0 : (+)
+#@cli : Find best matching projection of selected matrices onto the span of an over-complete
+#@cli : dictionary D, using the orthogonal projection or Matching Pursuit algorithm.
+#@cli : Selected images are 2D-matrices in which each column represent a signal to project.
+#@cli : '[dictionary]' is a matrix in which each column is an element of the dictionary D.
+#@cli : 'method' tells what projection algorithm must be applied. It can be:
+#@cli : \ - 0 = orthogonal projection (least-squares solution using LU-based solver).
+#@cli : \ - 1 = matching pursuit.
+#@cli : \ - 2 = matching pursuit, with a single orthogonal projection step at the end.
+#@cli : \ - >=3 = orthogonal matching pursuit where an orthogonal projection step is performed
+#@cli : \ every 'method-2' iterations.
+#@cli : 'max_iter' sets the max number of iterations processed for each signal.
+#@cli : If set to '0' (default), 'max_iter' is equal to the number of columns in D.
+#@cli : (only meaningful for matching pursuit and its variants).
+#@cli : 'max_residual' gives a stopping criterion on signal reconstruction accuracy.
+#@cli : (only meaningful for matching pursuit and its variants).
+#@cli : For each selected image, the result is returned as a matrix W
+#@cli : whose columns correspond to the weights associated to each column of D,
+#@cli : such that the matrix product D*W is an approximation of the input matrix.
+#@cli : Default values: 'method=0', 'max_iter=0' and 'max_residual=1e-6'.
+#@cli solve : [image],_use_LU={ 0=SVD | 1=LU } : (+)
+#@cli : Solve linear system AX = B for selected B-matrices and specified A-matrix.
+#@cli : If the system is under- or over-determined, the least squares solution is returned.
+#@cli : Default value: 'use_LU=0'.
+#@cli : $ (0,1,0;1,0,0;0,0,1) (1;2;3) +solve[-1] [-2]
+#@cli svd : (+)
+#@cli : Compute SVD decomposition of selected matrices.
+#@cli : $ 10,10,1,1,'if(x==y,x+u(-0.2,0.2),0)' +svd
+#@cli transpose
+#@cli : Transpose selected matrices.
+#@cli : $ image.jpg +transpose
+transpose :
+e[^-1] "Transpose image$?."
+permute yxzc
+#@cli trisolve : [image] : (+)
+#@cli : Solve tridiagonal system AX = B for selected B-vectors and specified tridiagonal A-matrix.
+#@cli : Tridiagonal matrix must be stored as a 3 column vector, where 2nd column contains the
+#@cli : diagonal coefficients, while 1st and 3rd columns contain the left and right coefficients.
+#@cli : $ (0,0,1;1,0,0;0,1,0) (1;2;3) +trisolve[-1] [-2]
+#@cli :: 3D Meshes
+#@cli +3d : eq. to 'add3d'. : (+)
+#@cli add3d : tx,_ty,_tz : [object3d] : (no arg) : (+)
+#@cli : Shift selected 3D objects with specified displacement vector, or merge them with specified
+#@cli : 3D object, or merge all selected 3D objects together.
+#@cli : (eq. to '+3d').
+#@cli : Default values: 'ty=tz=0'.
+#@cli : $ sphere3d 10 repeat 5 { +add3d[-1] 10,{u(-10,10)},0 color3d[-1] ${-rgb} } add3d
+#@cli : $ repeat 20 { torus3d 15,2 color3d[-1] ${-rgb} mul3d[-1] 0.5,1 if $>%2 rotate3d[-1] 0,1,0,90 fi add3d[-1] 70 add3d rotate3d[-1] 0,0,1,18 } double3d 0
+#@cli animate3d : nb_frames>0,_step_angle_x,_step_angle_y,_step_angle_z,_zoom_factor,0<=_fake_shadow_level<=100,_[background]
+#@cli : Generate 3D animation frames of rotating 3D objects.
+#@cli : Frames are stacked along the z-axis (volumetric image).
+#@cli : Frame size is the same as the size of the '[background]' image (or 800x800 if no background specified).
+#@cli : Default values: 'step_angle_x=0', 'step_angle_y=5', 'step_angle_z=0', 'zoom_factor=1', 'fake_shadow_level=50' and 'background=(undefined)'.
+animate3d : check "isint($1) && $1>0 && isnum(${2=0}) && isnum(${3=5}) && isnum(${4=0}) && ${5=1}>0 && ""inrange(${6=50},0,100)" skip "${7=}"
+e[^-1] "Generate 3D animation frames from 3D object$?, with $1 frames, angle steps (${2-4}), zoom factor $5 ""and $6% fake shadow."
+if ${"is_image_arg $7"} pass$7
+else 3,2,1,1,"32,32,64,64,116,96" permute. cyzx r. 800,800,1,3,3 round.
+fi
+=> anim3d_bg
+repeat {$!-1} { l[$>,-1] {
+check ${-is_mesh3d..} nm={0,n} bn={0,b}
+e " * Object '"$bn"': 0/$1"
+c3d[0] n3d[0] *3d[0] {1,$5*min(w,h)/2}
+repeat $1 {
+e "\r * Object '"$bn"': "{1+$>}"/$1"
++r3d[0] 0,0,1,{$>*$4} r3d. 0,1,0,{$>*$3} r3d. 1,0,0,{$>*$2}
+{1,[w,h,d,4]},-1 j3d. ..,50%,50%,0,1
+sh. 0,{s-2} +l.. { s c max } !=. -1 mul.. . mul. 255 j... .,0,0,0,{-2,s} rm[-2,-1]
+if $6 sh. 100% +b. 2% shift. {m=min(w,h)*2%;[m,m]} -. {255-$6*255%} c. 0,255 max[-2,-1] rm. fi
++blend[1,-1] alpha rm[-3,-2]
+if {*} w. -1,-1,0 fi
+}
+a[2--1] z
+rv[0,-1] rm.
+} =>[$>] $nm }
+rm.
+#@cli apply_camera3d : pos_x,pos_y,pos_z,target_x,target_y,target_z,up_x,up_y,up_z
+#@cli : Apply 3D camera matrix to selected 3D objects.
+#@cli : Default values: 'target_x=0', 'target_y=0', 'target_z=0', 'up_x=0', 'up_y=-1' and 'up_z=0'.
+apply_camera3d : skip ${4=0},${5=0},${6=0},${7=0},${8=-1},${9=0}
+e[^-1] "Apply 3D camera matrix to 3D object$?, with camera position ($1,$2,$3), target position ($4,$5,$6) and
+up-vector ($7,$8,$9)."
+({$4-$1}^{$5-$2}^{$6-$3})
+($7^$8^$9)
+orientation[-2,-1]
+_cross3d {-2,^},{^}
+_cross3d {^},{-3,^}
+rm... y[-3--1] x mv[-2,-1] -3
+a[-3--1] y z. 0,3
+-3d[^-1] $1,$2,$3 pose3d[^-1] {^} rm. -3d 0,0,800
+_cross3d :
+({$2*$6-$3*$5}^{$3*$4-$1*$6}^{$1*$5-$2*$4}) orientation. y.
+#@cli apply_matrix3d : a11,a12,a13,...,a31,a32,a33
+#@cli : Apply specified 3D rotation matrix to selected 3D objects.
+#@cli : $ torus3d 10,1 +apply_matrix3d {mul(rot(1,0,1,-15°),[1,0,0,0,2,0,0,0,8],3)} double3d 0
+apply_matrix3d :
+e[^-1] "Apply 3x3 matrix (${1-3};${4-6};${7-9}) to 3D object$?."
+foreach { nbp={i[6]} sh 8,{8+3*$nbp-1},0,0 r. 3,$nbp,1,1,-1 3,3,1,1,$* transpose. m*[-2,-1] rm. }
+#@cli array3d : size_x>=1,_size_y>=1,_size_z>=1,_offset_x[%],_offset_y[%],_offset_y[%]
+#@cli : Duplicate a 3D object along the X,Y and Z axes.
+#@cli : Default values: 'size_y=1', 'size_z=1' and 'offset_x=offset_y=offset_z=100%'.
+#@cli : $ torus3d 10,1 +array3d 5,5,5,110%,110%,300%
+array3d : check "isint($1) && $1>0 && isint(${2=1}) && $2>0 && isint(${3=1}) && $3>0"
+skip ${4=100%},${5=100%},${6=100%}
+e[^-1] "Duplicate 3D object$? along X,Y,Z axes with factors ($1,$2,$3) and offsets ($4,$5,$6)."
+foreach {
++rows 8,{8+3*i[6]} r. 3,{h/3},1,1,-1 s. x,3
+dx={-3,if(${is_percent\ $4},$4*(iM-im),$4)}
+dy={-2,if(${is_percent\ $5},$5*(iM-im),$5)}
+dz={if(${is_percent\ $6},$6*(iM-im),$6)}
+rm[-3--1]
+off=0 repeat int(log2($1)) {
+++3d. {2^$>*$dx} +3d. ..
+if !($1&(2^$>)) rm.. else +3d.. $off off+={2^$>*$dx} fi
+} +3d. $off +3d
+off=0 repeat int(log2($2)) {
+++3d. 0,{2^$>*$dy} +3d. ..
+if !($2&(2^$>)) rm.. else +3d.. 0,$off off+={2^$>*$dy} fi
+} +3d. 0,$off +3d
+off=0 repeat int(log2($3)) {
+++3d. 0,0,{2^$>*$dz} +3d. ..
+if !($3&(2^$>)) rm.. else +3d.. 0,0,$off off+={2^$>*$dz} fi
+} +3d. 0,0,$off +3d
+}
+#@cli arrow3d : x0,y0,z0,x1,y1,z1,_radius[%]>=0,_head_length[%]>=0,_head_radius[%]>=0
+#@cli : Input 3D arrow with specified starting and ending 3D points.
+#@cli : Default values: 'radius=5%', 'head_length=25%' and 'head_radius=15%'.
+#@cli : $ repeat 10 { a={$>*2*pi/10} arrow3d 0,0,0,{cos($a)},{sin($a)},-0.5 } +3d
++arrow3d : check "${7=5%}>=0 && ${8=25%}>=0 && ${9=15%}>=0"
+e[^-1] "Input 3D arrow, from (${1-3}) to (${4-6}), with radius $7, head length $8 and head radius $9."
+L={sqrt(($4-$1)^2+($5-$2)^2+($6-$3)^2)}
+R={if(${is_percent\ $7},$7*$L,$7)}
+l={if(${is_percent\ $8},$8*$L,$8)}
+r={if(${is_percent\ $9},$9*$L,$9)}
+L-=$l cylinder3d $R,$L cone3d $r,$l +3d. 0,0,$L +3d[-2,-1]
+({$4-$1}^{$5-$2}^{$6-$3}) (0.01^-0.02^0.03) orientation[-2,-1]
+_cross3d {-2,^},{^} _cross3d {^},{-3,^} rm... y[-3--1] x mv[-2,-1] -3
+a[-3--1] y
+s3d.. r[-5] 3,{-5,h/3},1,1,-1 m*[-5,-1]
+y[-4] a[-6--1] y +3d. ${1-3} rv3d.
+#@cli axes3d : _size_x,_size_y,_size_z,_font_size>0,_label_x,_label_y,_label_z,_is_origin={ 0=no | 1=yes }
+#@cli : Input 3D axes with specified sizes along the x,y and z orientations.
+#@cli : Default values: 'size_x=size_y=size_z=1', 'font_size=23', 'label_x=X', 'label_y=Y', 'label_z=Z' and 'is_origin=1'
+#@cli : $ axes3d ,
++axes3d : check "${4=23}>0 && isbool(${8=1})" skip ${1=1},${2=$1},${3=$2},"${5=X},${6=Y},${7=Z}"
+e[^-1] "Input 3D axes with sizes ($1,$2,$3)."
+l[] {
+m={max(abs($1),abs($2),abs($3))/40} m2={2*$m} m3={1.2*$m2}
+if $1 line3d 0,0,0,$1,0,0 fi
+if $2 line3d 0,0,0,0,$2,0 fi
+if $3 line3d 0,0,0,0,0,$3 fi
+if $1
+cone3d $m,{2*$m},16 r3d. 0,1,0,90 +3d. {$1-$m2},0,0
+_axes3d "$5",$4 +3d. {$1+$m3},0,0
+fi
+if $2
+cone3d $m,{2*$m},16 r3d. 1,0,0,-90 +3d. 0,{$2-$m2},0
+_axes3d "$6",$4 +3d. 0,{$2+$m3},0
+fi
+if $3
+cone3d $m,{2*$m},16 +3d. 0,0,{$3-$m2}
+_axes3d "$7",$4 +3d. 0,0,{$3+$m3}
+fi
+if $8 _axes3d "O",$4 -3d. $m3,$m3,$m3 fi
++3d => [3d\ axes]
+}
+_axes3d :
+0 t. "$1",2,0,$2,1,1 +dilate. 3 *.. 255 r.. 100%,100%,1,3
+i... (67.5;73.5;109.5;103.5;51.5;100.5;1;1;0;0;0;1;0;-128;{w};{h};3)
+i.. (-128;{w};{h};1) y[-3,-1] a[-4--1] y
+#@cli boundingbox3d
+#@cli : Replace selected 3D objects by their 3D bounding boxes.
+#@cli : $ torus3d 100,30 +boundingbox3d +3d[-1] [-2]
+boundingbox3d :
+e[^-1] "Replace 3D object$? by their 3D bounding boxes."
+foreach {
+s3d nbv,nbp={1,f2ui([i[0],i[1]])} k[2,3] => pts,prims
+r[pts] 3,{pts,h/3},1,1,-1 permute[pts] zycx ($nbv) a[pts,-1] y
+$nbp eval. ">begin(p = 0);
+N = i[#$prims,p++];
+N==5?(
+i0 = i[#$prims,p++]; i1 = i[#$prims,p++]; p+=3;
+P0 = I[#$pts,i0]; P1 = I[#$pts,i1]; Pc = (P0 + P1)/2;
+U = (P1 - P0)/2;
+V = rot(-U[1],U[0],U[2],pi/2)*U;
+W = cross(U,V)/norm(U);
+da_push(#$pts,Pc + V,Pc - V,Pc + W,Pc - W);
+):(p+=N);
+end(da_freeze(#$pts))" rm[prims,-1]
+s c
+xm,dx={0,[im,iM-im]}
+ym,dy={1,[im,iM-im]}
+zm,dz={2,[im,iM-im]}
+rm box3d $dx,$dy,$dz +3d $xm,$ym,$zm p3d 1
+}
+#@cli box3d : _size_x,_size_y,_size_z
+#@cli : Input 3D box at (0,0,0), with specified geometry.
+#@cli : Default values: 'size_x=1' and 'size_z=size_y=size_x'.
+#@cli : $ box3d 100,40,30 +primitives3d 1 color3d[-2] ${-rgb}
++box3d : skip ${1=1},${2=$1},${3=$2}
+e[^-1] "Input 3D box, with size ($1,$2,$3)."
+1,86,1,1,67.5,73.5,109.5,103.5,51.5,100.5,8,6,0,0,0,$1,0,0,$1,$2,0,0,$2,0,0,0,$3,$1,0,$3,$1,$2,$3,0,$2,$3,4,0,3,2,1,4,4,5,6,7,4,0,1,5,4,4,3,7,6,2,4,0,4,7,3,4,1,2,6,5,200,200,200,200,200,200,200,200,200,200,200,200,200,200,200,200,200,200,1,1,1,1,1,1
+=> [3D\ box]
+#@cli c3d : eq. to 'center3d'.
+c3d :
+_center3d
+#@cli center3d
+#@cli : Center selected 3D objects at (0,0,0).
+#@cli : (eq. to 'c3d').
+#@cli : $ repeat 100 { circle3d {u(100)},{u(100)},{u(100)},2 } add3d color3d[-1] 255,0,0 +center3d color3d[-1] 0,255,0 add3d
+center3d :
+_$0
+_center3d :
+e[0--3] "Center 3D object$?."
+check3d foreach {
+if i[6]
+s3d r[2] 3,{2,h/3},1,1,-1 s[2] x
+-[2] {2,(iM+im)/2} -[3] {3,(iM+im)/2} -[4] {4,(iM+im)/2}
+a[2-4] x y[2] a y
+fi
+}
+#@cli chainring3d : _nb_links>=3,_x_scale>0,_y_scale>0,_z_scale>0
+#@cli : Input 3D chain ring with specified geometry.
+#@cli : 'nb_links' should be preferably even.
+#@cli : Default values: 'nb_links=16', 'x_scale=0.5', 'y_scale=1' and 'z_scale=1'.
+#@cli : $ chainring3d
+chainring3d : check "isint(${1=16}) && $1>=3 && ${2=0.5}>0 && ${3=1}>0 && ${4=1}>0"
+e[^-1] "Input 3D chain ring, with $1 links and scales (${2-4})."
+l[] {
+torus3d 1,0.1 *3d ${2-4} shift:=0.75*$1/pi
+repeat $1 {
+ang:=$>*360/$1
+($ang^1^0.784) hsv2rgb. +col3d[0] {^} rm..
+if $>%2 r3d. 0,1,0,90 fi
++3d. $shift r3d. 0,0,1,$ang
+}
+rm[0] +3d /3d $shift
+=> [3D\ chainring]
+}
+#@cli circle3d : _x0,_y0,_z0,_radius>=0
+#@cli : Input 3D circle at specified coordinates.
+#@cli : Default values: 'x0=y0=z0=0' and 'radius=1'.
+#@cli : $ repeat 500 { a={$>*pi/250} circle3d {cos(3*$a)},{sin(2*$a)},0,{$a/50} color3d[-1] ${-rgb},0.4 } add3d
++circle3d : skip ${1=0},${2=0},${3=0},${4=1}
+e[^-1] "Input 3D circle at position ($1,$2,$3) with radius $4."
+r={$4/sqrt(3)}
+1,24,1,1,67.5,73.5,109.5,103.5,51.5,100.5,2,1,{$1-$r},{$2-$r},{$3-$r},{$1+$r},{$2+$r},{$3+$r},5,0,1,0,0,0,200,200,200,1
+=> [3D\ circle]
+#@cli circles3d : _radius>=0,_is_outlined={ 0 | 1 }
+#@cli : Convert specified 3D objects to sets of 3D circles with specified radius.
+#@cli : Default values: 'radius=1' and 'is_outlined=1'.
+#@cli : $ image.jpg luminance resize2dy 40 threshold 50% * 255 pointcloud3d color3d[-1] 255,255,255 circles3d 0.7
+circles3d : check "${1=1}>=0 && isbool(${2=0})"
+e[^-1] "Convert 3D object$? to sets of 3D "${arg0\ $2,filled,outlined}" circles with radius $1."
+p3d 0
+foreach {
+-3d {$1/2},0,0 ++3d $1,0,0 +3d[1] [0]
+s3d
+rows[7] 0 j[1] [7]
+rv[2,8]
+rv[3,9] l[3] { r 2,{h/2},1,1,-1 z 1,1 s y,2 i[0] 1,100%,1,1,5 1,100%,1,1,$2 2,100% a x y }
+k[0-5] a y
+}
+#@cli col3d : eq. to 'color3d'.
+col3d :
+_gmic_s="$?" v + _color3d $*
+#@cli color3d : R,_G,_B,_opacity
+#@cli : Set color (and optionally opacity) of selected 3D objects.
+#@cli : (eq. to 'col3d').
+#@cli : Default value: 'B=G=R' and 'opacity=(undefined)'.
+#@cli : $ torus3d 100,10 double3d 0 repeat 7 { +rotate3d[-1] 1,0,0,20 color3d[-1] ${-rgb} } add3d
+color3d :
+_gmic_s="$?" v + _$0 $*
+_color3d :
+$=arg col:=$#==1?[$arg1,$arg1,$arg1]:$#==2?[$arg1,$arg2,0]:[$arg1,$arg2,$arg3]
+if $#<4 e[0--4] "Set color of 3D object"$_gmic_s" to ("$col")."
+else e[0--4] "Set color of 3D object"$_gmic_s" to ("$col"), with opacity "$arg4"."
+fi
+foreach {
+nbv,nbp:=f2ui([i[6],i[7]]) $nbp
+eval. ">begin(p = 8 + 3*$nbv); p+=i[#0,p] + 1; end(set('p',p))" # Find beginning of color data
+eval. ">begin(p = $p; col = ["$col"]);
+i[#0,p]==-128?(p+=prod(crop(#0,0,++p,1,3))):copy(i[#0,p],col); p+=3;
+end(set('p',p))"
+if $#>3 eval. ">begin(p = $p; const o = $arg4); i[#0,p]==-128?(p+=3 + prod(crop(#0,0,++p,1,3))):(i[#0,p++] = o)" fi
+k[0]
+}
+#@cli colorcube3d : _is_wireframe={ 0 | 1 }
+#@cli : Input 3D color cube.
+#@cli : Default value: 'is_wireframe=0'.
+#@cli : $ colorcube3d mode3d 2 +primitives3d 1
++colorcube3d : l[] { check "isbool(${1=0})" is_wireframe=$1 onfail is_wireframe=1 noarg }
+s0,s1="face","wireframe"
+e[^-1] "Input 3D RGB-color "$s$1" cube."
+if $is_wireframe l[] {
+({'CImg3d'},8,12)
+(0,0,0;255,0,0;255,255,0;0,255,0;0,0,255;255,0,255;255,255,255;0,255,255)
+(6,0,1,0,0,63,0;6,1,2,0,1,63,1;6,2,3,0,2,63,2;6,3,0,0,3,63,3;\
+6,0,4,0,4,63,4;6,1,5,0,5,63,5;6,2,6,0,6,63,6;6,3,7,0,7,63,7;6,4,5,0,8,63,8;6,5,6,0,9,63,9;6,6,7,0,10,63,10;6,7,4,0,11,63,11)
+(-128,64,12,3) (0,0,0;255,0,0/255,0,0;255,255,0/255,255,0;0,255,0/0,255,0;0,0,0/\
+0,0,0;0,0,255/255,0,0;255,0,255/255,255,0;255,255,255/0,255,0;0,255,255/0,0,255;255,0,255/255,0,255;255,255,255/255,255,255;0,255,255/0,255,255;0,0,255)
+permute. yzcx r. 64,100%,1,3,3
+(-128,0,0,0)x11
+1,12,1,1,1
+y a y
+} else l[] {
+({'CImg3d'},8,6)
+(0,0,0;255,0,0;255,255,0;0,255,0;0,0,255;255,0,255;255,255,255;0,255,255)
+(12,0,3,2,1,0,0,0,63,63,63,63,0;12,1,2,6,5,0,0,0,63,63,63,63,0;\
+12,0,4,7,3,0,0,63,0,63,63,0,63;12,4,5,6,7,0,0,63,0,63,63,0,63;12,0,1,5,4,0,0,63,0,63,63,0,63;12,3,7,6,2,0,0,0,63,63,63,63,0)
+(0,255;0,255^0,0;255,255^0,0;0,0)
+(255,255;255,255^0,0;255,255^0,255;0,255)
+(0,0;0,0^0,0;255,255^0,255;0,255)
+(0,255;0,255^0,0;255,255^255,255;255,255)
+(0,255;0,255^0,0;0,0^0,0;255,255)
+(0,255;0,255^255,255;255,255^0,0;255,255)
+r[-6--1] 64,64,1,3,3 round[-6--1] y[-6--1] i[-7--2] (-128;64;64;3)
+1,6,1,1,1
+y a y
+} fi
+=> [3D\ colorcube]
+#@cli cone3d : _radius,_height,_nb_subdivisions>0
+#@cli : Input 3D cone at (0,0,0), with specified geometry.
+#@cli : Default value: 'radius=1','height=1' and 'nb_subdivisions=24'.
+#@cli : $ cone3d 10,40 +primitives3d 1 color3d[-2] ${-rgb}
++cone3d : check ${3=24}>0 skip ${1=1},${2=1}
+e[^-1] "Input 3D cone, with radius $1, height $2 and $3 subdivisions."
+(67.5;73.5;109.5;103.5;51.5;100.5)
+({$3+2};{2*$3})
+(0,0,0;0,0,$2)
+(0;{2*pi}) r. 1,{$3+1},1,1,3 rows. 0,{$3-1} +sin. cos.. *[-2,-1] $1 a[-2,-1] x z. 0,2 a[-2,-1] y
+1,$3,1,1,'y' +shift. 0,-1 +[-2,-1] 2
+2,$3,1,1,3,0 .. [-4] a[-3--1] x
+i[-4] 2,$3,1,1,3,1 a[-4--2] x
+a[-2,-1] y
+3,{h},1,1,200
+1,{h},1,1,1
+y[-4--2] a[-6--1] y => [3D\ cone]
+#@cli cubes3d : _size>=0
+#@cli : Convert specified 3D objects to sets of 3D cubes with specified size.
+#@cli : Default value: 'size=1'.
+#@cli : $ image.jpg luminance resize2dy 40 threshold 50% * 255 pointcloud3d color3d[-1] 255,255,255 cubes3d 1
+cubes3d : check ${1=1}>=0
+e[^-1] "Convert 3D object$? to sets of 3D cubes with size $1."
+p3d 0
+foreach {
+nbv={@6} nbp={@7}
+if $nbv&&$nbp
+s3d
+l[1] { = {8*i[0]} = {6*i[1]},0,1 }
+l[2] {
+r 3,{h/3},1,1,-1
+half={$1/2}
+- '$half,0,0' ++ '$1,0,0' a x
+- '0,$half,0' ++ '0,$1,0' a x
+- '0,0,$half' ++ '0,0,$1' a x
+}
+l[3] {
+r 2,{h/2},1,1,-1
+z 1,1 * 8 r 4,100% i[0] 1,100%,1,1,4 a x [-1]x5 a x
++ '"0,0,2,3,1, 0,4,5,7,6, 0,0,1,5,4, 0,2,6,7,3, 0,0,4,6,2, 0,1,3,7,5"'
+}
+l[4] { r 3,{h/3},1,1,-1 r 18,100%,1,1,0,2 } r[5] 6,100%
+y a y
+fi
+}
+#@cli cup3d : _resolution>0
+#@cli : Input 3D cup object.
+#@cli : Default value: 'resolution=128'.
+#@cli : $ cup3d ,
++cup3d : check ${1=128}>0
+e[^-1] "Input 3D cup, with resolution $1."
+100,200
+ellipse. 0%,0%,40%,40%,0,1,1
+ellipse. 0,0,35%,35%,0,1,0
+polygon. 4,0,45%,8%,45%,20%,90%,0,90%,1,1
+ellipse. 0%,100%,30%,10%,0,1,1 b. 0.1%
+lathe3d. $1,2
+=> [3D\ cup]
+#@cli curve3d : _"x(t)",_"y(t)",_"z(t)",_"r(t)",_resolution>1,_tmin,_tmax,_nb_sides>=0,_is_closed_curve={ 0 | 1 }
+#@cli : Input 3D curve with specified parameterization.
+#@cli : If 'r(t)==0' or 'nb_sides<3', the generated 3D object is composed of segments only.
+#@cli : Default values: 'x(t)=cos(2*pi*t)', 'y(t)=sin(2*pi*t)', 'z(t)=t', 'r(t)=0.025', 'resolution=128', 'tmin=0', 'tmax=1', 'nb_sides=16' and 'is_closed_curve=0'.
+#@cli : $ curve3d ,
++curve3d : check "isint(${5=128}) && $5>1 && isbool(${9=0}) && isint(${8=16}) && $8>=0"
+skip "${1=0.25*cos(4*pi*t)},${2=0.25*sin(4*pi*t)},${3=t},${4=0.025},${6=0},${7=1}"
+xt,yt,zt,rt,resolution,tmin,tmax,nb_sides,is_closed=$"*"
+nb_sides:="$nb_sides<3 || ['"$rt"']=='0'?1:$nb_sides"
+s0,s1="open","closed"
+e[^-1] "Input 3D "${s$is_closed}" curve with parameterization ("$xt,$yt,$zt"), radius '"$rt"', ""resolution "$resolution", t-range ["$tmin,$tmax"], radius and "$nb_sides" sides."
+('CImg3d') (0,0)
+1,$resolution,1,4,"t = lerp($tmin,$tmax,y/(h - ($is_closed?0:1))); [ ("$xt"),("$yt"),("$zt"),("$rt") ]" s. c,-3
+if $nb_sides==1
+rm. 1,{$resolution-1+$is_closed},1,3,"[ 2,y,(y + 1)%$resolution ]" nbv=$resolution nbp:=h permute[-2,-1] cyzx
+else
++g.. y,0,{$is_closed?2:1} orientation.
+0 $nb_sides,$resolution,1,1,"
+!x?(
+P = I(#-4,0,y);
+R = i(#-3,0,y);
+W = I(#-2,0,y);
+norm(W)==0?(W = [ 0,0,1 ]);
+!y?(
+P0 = P;
+do (ref = [ v,v,v ]; ref/=norm(v); crossWref = cross(W,ref), norm(crossWref)<1e-5);
+);
+U = cross(W,ref); U/=norm(U);
+V = cross(W,U); V/=norm(V);
+M = transpose([ U,V,W ],3);
+ref = -V;
+);
+ang = x*2*pi/w;
+Q = P + R*mul(M,[ cos(ang),sin(ang),0 ]);
+da_push(Q[0],Q[1],Q[2]);
+end(
+!$is_closed?da_push(P0[0],P0[1],P0[2],P[0],P[1],P[2]);
+da_freeze();
+)" rm[-5--3,-1]
+nbv:={h/3}
+0 $nb_sides,{$resolution-1+$is_closed},1,1,"begin(nbp = 0);
+b0 = y*$nb_sides; b1 = ((y + 1)%$resolution)*$nb_sides; nx = (x+1)%$nb_sides;
+da_push(4,b0 + x,b0 + nx,b1 + nx,b1 + x);
+++nbp;
+end(
+const indmin = $nb_sides*$resolution;
+const indmax = indmin + 1;
+const last = indmin - $nb_sides;
+!$is_closed?(
+repeat($nb_sides,k,da_push(3,indmin,(k + 1)%$nb_sides,k); ++nbp);
+repeat($nb_sides,k,da_push(3,indmax,last + k,last + ((k + 1)%$nb_sides)); ++nbp);
+);
+da_freeze();
+set('nbp',nbp);
+)" rm.
+fi
+eval "i[#-3,0] = ui2f($nbv); i[#-3,1] = ui2f($nbp)"
+3,$nbp,1,1,200 1,$nbp,1,1,1 y[-6--1] a[-6--1] y => [3D\ Curve]
+#@cli cylinder3d : _radius,_height,_nb_subdivisions>0
+#@cli : Input 3D cylinder at (0,0,0), with specified geometry.
+#@cli : Default value: 'radius=1','height=1' and 'nb_subdivisions=24'.
+#@cli : $ cylinder3d 10,40 +primitives3d 1 color3d[-2] ${-rgb}
++cylinder3d : check ${3=24}>0 skip ${1=1},${2=1}
+e[^-1] "Input 3D cylinder, with radius $1, height $2 and $3 subdivisions."
+l[] {
+N={round($3)}
+nbv,nbp={[2*$N+2,3*$N]}
+({0.5+[{'CImg3d'}]})
+($nbv,$nbp)
+1,$nbv,1,3,"Z = (y<="$N"?0:$2); ang = ((y%("$N"+1))-1)*2*pi/"$N";
+!(y%("$N"+1))?[0,0,Z]:[$1*cos(ang),$1*sin(ang),Z]"
+1,$N,1,13,"i1 = 1 + y; i2 = 1 + (i1%"$N"); const j0 = "$N" + 1; j1 = j0 + i1; j2 = j0 + i2;
+[ 3,0,i2,i1, 3,j0,j1,j2, 4,i1,i2,j2,j1 ]"
+permute[^0,1] "cyzx" 1,$nbp,1,3,200 1,$nbp,1,1,1 y a y => [3D\ cylinder]
+}
+#@cli delaunay3d
+#@cli : Generate 3D Delaunay triangulations from selected images.
+#@cli : One assumes that the selected input images are binary images containing the set of points to mesh.
+#@cli : The output 3D object is a mesh composed of non-oriented triangles.
+#@cli : $ 500,500 noise 0.05,2 eq 1 * 255 +delaunay3d color3d[1] 255,128,0 dilate_circ[0] 5 to_rgb[0] +object3d[0] [1],0,0,0,1,1 max[-1] [0]
+delaunay3d :
+e[^-1] "Generate 3D Delaunay triangulation from image$?."
+foreach {
+channels 0 != 0
+whd={w},{h},{d} +r 1,{w*h*d},1,1,-1 cumulate. *. .. r. $whd,1,-1
++distance[0] 1 *[2] -1 watershed[1] [2] rm[2]
+r[1] 100%,100%,100%,3
+if d>1
++_delaunay3d[1] 1,0,0,0,0,1 +_delaunay3d[1] -1,0,0,0,0,-1
++_delaunay3d[1] 0,1,0,0,0,1 +_delaunay3d[1] 0,-1,0,0,0,-1
+fi
++_delaunay3d[1] 1,0,0,0,1,0 _delaunay3d[1] -1,0,0,0,-1,0
+a[^0] x transpose. -. 1
+pointcloud3d[0]
+s3d[0] rm[3-5] i.. 1,100%,1,1,3 a[-2,-1] x
+3,100%,1,1,200 1,100%,1,1,1 =[1] {h},0,1 y a y
+}
+_delaunay3d :
+f. "A=j($1,$2,$3,0,0,1); B=j($4,$5,$6,0,0,1);
+if(i!=A && i!=B && A!=B, kth(1+c,i,A,B),0)"
+discard. 0 r. {h/3},3,1,1,-1
+#@cli distribution3d
+#@cli : Get 3D color distribution of selected images.
+#@cli : $ image.jpg distribution3d colorcube3d primitives3d[-1] 1 add3d
+distribution3d :
+e[^-1] "Get 3D color distribution of image$?."
+to_rgb permute "cxyz" y
+foreach {
+nbp={round(h/3)}
+i.. (67.5;73.5;109.5;103.5;51.5;100.5;\
+$nbp;$nbp)
+1,$nbp,1,1,1 +f. y a[-2,-1] x y.
+..
+1,$nbp,1,1,1
+a y => [3D\ distribution]
+}
+#@cli /3d : eq. to 'div3d'. : (+)
+#@cli div3d : factor : factor_x,factor_y,_factor_z : (+)
+#@cli : Scale selected 3D objects isotropically or anisotropically, with the inverse of specified
+#@cli : factors.
+#@cli : (eq. to '/3d').
+#@cli : Default value: 'factor_z=1'.
+#@cli : $ torus3d 5,2 repeat 5 { +add3d[-1] 12,0,0 div3d[-1] 1.2 color3d[-1] ${-rgb} } add3d
+#@cli db3d : eq. to 'double3d'.
+db3d :
+l[] { check "isbool(${1=1})" mode=$1 onfail noarg mode=1 }
+v + _double3d $mode
+#@cli double3d : _is_double_sided={ 0 | 1 }
+#@cli : Enable/disable double-sided mode for 3D rendering.
+#@cli : (eq. to 'db3d').
+#@cli : Default value: 'is_double_sided=1'.
+#@cli : $ mode3d 1 repeat 2 { torus3d 100,30 rotate3d[-1] 1,1,0,60 double3d $> snapshot3d[-1] 400 }
+double3d :
+l[] { check "isbool(${1=1})" mode=$1 onfail noarg mode=1 }
+v + _$0 $mode
+_double3d :
+if $^>=0
+s0,s1=Disable,Enable
+e[0--4] ${s$1}" double-sided mode for 3D rendering."
+fi
+_double3d=$1
+#@cli elevation3d : { z-factor | [elevation_map] | 'formula' },base_height={ -1 | >=0 } : (no arg)
+#@cli : Generate 3D elevation of selected images, opt. with a specified elevation map.
+#@cli : When invoked with (no arg) or 'z-factor', the elevation map is computed as the pointwise L2 norm of the
+#@cli : pixel values. Otherwise, the elevation map is taken from the specified image or formula.
+#@cli : $ image.jpg +blur 5 elevation3d. 0.75
+#@cli : $ 128,128,1,3,u(255) plasma 10,3 blur 4 sharpen 10000 n 0,255 elevation3d[-1] 'X=(x-64)/6;Y=(y-64)/6;-100*exp(-(X^2+Y^2)/30)*abs(cos(X)*sin(Y))'
+elevation3d : skip "${1=_noarg}" check "${2=-1}==-1 || $2>=0"
+if $2>=0 base_str=" and base height $2" else base_str= fi
+if isnum($1)
+e[^-1] "Generate 3D elevation of image$?, with z-factor $1"$base_str. argtype,zfactor=0,$1
+elif ${"is_image_arg $1"}
+e[^-1] "Generate 3D elevation of image$?, from elevation $1"$base_str. argtype=2
+pass$1 0 if s>1 norm. fi store. elevation_img
+elif isexpr($1)
+e[^-1] "Generate 3D elevation of image$?, with formula '$1'"$base_str. argtype=1
+else
+e[^-1] "Generate 3D elevation of image$?." argtype,zfactor=0,1
+fi
+is_base={$2>=0}
+foreach {
+nm={n} M,N={[w,h]} to_rgb
+100%,100%,1,2,[x,y]
+if !$argtype +norm[0] *. $zfactor
+elif $argtype==1 [0],[0],1,1,"$1"
+else $elevation_img
+fi
+a[-2,-1] c
+if $is_base . sh. 100% f. {-sign($1)*$2} rm. a[-2,-1] y fi
+r. {wh},1,1,3,-1 permute. cxyz nbv={h}
+header="const M = "$M"; const N = "$N"; const MN = M*N"
+{[$M,$N]-1},1,5,$header";
+i0 = M*y + x; i1 = i0 + MN;
+[ 4,ui2f(i0),ui2f(i0 + M),ui2f(i0 + 1 + M),ui2f(i0 + 1) ]"
+r. 1,{wh},1,100%,-1 nbp={h}
+if $is_base
+{[$M,$N]-1},1,5,$header";
+i0 = M*y + x; i1 = i0 + MN;
+[ 4,ui2f(i1),ui2f(i1 + 1),ui2f(i1 + 1 + M),ui2f(i1 + M) ]"
+r. 1,{wh},1,100%,-1 nbp+={h}
+{$M-1},1,1,10,$header" ;
+i0 = x; i1 = i0 + MN; i2 = i0 + M*(N - 1); i3 = i2 + MN;
+[ 4,ui2f(i0),ui2f(i0 + 1),ui2f(i1 + 1),ui2f(i1),
+4,ui2f(i2),ui2f(i3),ui2f(i3 + 1),ui2f(i2 + 1) ]"
+r. 1,{wh},1,100%,-1 s. c,2 nbp+={2*h}
+{$N-1},1,1,10,$header";
+i0 = M*x; i1 = i0 + MN; i2 = i0 + M - 1; i3 = i2 + MN;
+[ 4,ui2f(i0),ui2f(i1),ui2f(i1 + M),ui2f(i0 + M),
+4,ui2f(i2),ui2f(i2 + M),ui2f(i3 + M),ui2f(i3) ]"
+r. 1,{wh},1,100%,-1 s. c,2 nbp+={2*h}
+permute[-6--1] cyxz -a[-6--1] y
+else permute. cyxz
+fi
+mv[0] $! r. {[w,h]-1},1,3,0 r. {wh},1,1,3,-1 permute. cxyz
+if $is_base 3,{$nbp-h},1,1,200 fi
+1,$nbp,1,1,1
+i[0] ('CImg3d':y) +[0] 0.5 i[1] ({ui2f([$nbv,$nbp]):;}) y a y
+=> $nm
+}
+#@cli empty3d
+#@cli : Input empty 3D object.
+#@cli : $ empty3d
++empty3d :
+e[^-1] "Input empty 3D object."
+(67.5;73.5;109.5;103.5;51.5;100.5;0;0) => [3D\ empty]
+#@cli extract_textures3d
+#@cli : Extract texture data from selected 3D objects.
+#@cli : $ image.jpg imagesphere3d 10,10 +extract_textures3d
+extract_textures3d :
+e[^-1] "Extract textures from 3D object$?."
+check3d foreach {
+ext={x} if ['$ext']!=0 ext..=. fi
+bn={`"s = ['"{b}'"]; e = ['"$ext"']; p = find(s,e,size(s) - size(e),-1); p>0?s[p] = 0; s"`}
+s3d nbv,nbp={1,f2ui(crop())}
+tmp=$! $nbp eval. ">begin(p = N = 0);
+i[#4,p++]==-128?(
+W = i[#4,p++]; H = i[#4,p++]; S = i[#4,p++]; WHS = W*H*S;
+WHS?(run('+z[4] 0,',p,',0,',p + WHS - 1,' r. ',W,',',H,',1,',S,',-1 => tx',N); p+=WHS);
+):(p+=2);
+++N"
+rm[0-$tmp] foreach { => ${bn}_texture$> }
+}
+#@cli extrude3d : _depth>0,_resolution>0,_smoothness[%]>=0
+#@cli : Generate extruded 3D object from selected binary XY-profiles.
+#@cli : Default values: 'depth=16', 'resolution=1024' and 'smoothness=0.5%'.
+#@cli : $ image.jpg threshold 50% extrude3d 16
+extrude3d : check "${1=16}>0 && ${2=1024}>0 && ${3=0.5%}>=0"
+e[^-1] "Generate extruded 3D object from XY-profile$?, with depth $1, resolution $2 and smoothness $3."
+norm n 0,1 autocrop 0
+foreach {
+nm={n}
+wr={round(max(1,if(w>h,min($2,w),min($2,h)*w/h)))}
+hr={round(max(1,if(w>h,min($2,w)*h/w,min($2,h))))}
+fact={$1/max(w/$wr,h/$hr)}
+b $3,0 r $wr,$hr,1,1,2 expand_xyz 1,0
+isosurface3d 50% *3d 1,1,$fact rv3d => $nm
+}
+#@cli f3d : eq. to 'focale3d'.
+f3d :
+l[] { check "isnum(${1=700})" focale=$1 onfail noarg focale=700 }
+v + _focale3d $focale
+#@cli focale3d : focale
+#@cli : Set 3D focale.
+#@cli : (eq. to 'f3d').\n
+#@cli : Set 'focale' to 0 to enable parallel projection (instead of perspective).
+#@cli : Set negative 'focale' will disable 3D sprite zooming.
+#@cli : Default value: 'focale=700'.
+#@cli : $ repeat 5 { torus3d 100,30 rotate3d[-1] 1,1,0,60 focale3d {$<*90} snapshot3d[-1] 400 } remove[0]
+focale3d :
+l[] { check "isnum(${1=700})" focale=$1 onfail noarg focale=700 }
+v + _$0 $focale
+_focale3d :
+e[0--3] "Set 3D focale to $1."
+_focale3d=$1
+#@cli fov3d : fov_angle>=0
+#@cli : Set 3D focale to match specified field of vision angle (in degree) for the latest of the selected image.
+#@cli : Return corresponding focale in status.
+#@cli : Default value: 'fov_angle=30'
+fov3d : check "${1=45}>=0 && "$!"==1"
+e[^-1] "Set 3D focale to have FOV angle of $1 for image$?."
+if !$1 f3d=0 else f3d:=max(w,h)/2/tan($1°/2) fi
+f3d $f3d u $f3d
+#@cli gaussians3d : _size>0,_opacity
+#@cli : Convert selected 3D objects into set of 3D gaussian-shaped sprites.
+#@cli : $ image.jpg r2dy 32 distribution3d gaussians3d 20 colorcube3d primitives3d[-1] 1 +3d
+gaussians3d : check "${1=32}>0" skip ${2=0.3}
+e[^-1] "Convert 3D object$? into sets of gaussian-shaped 3D sprites, with size $1 and opacity $2."
+p3d 2 p3d 0
+foreach {
+nm={n} s3d nbv={h} rm. (-128;$1;$1;1)
+$1,$1 gaussian. 35%,35%,0 c. 30%,100% n. 0,$2 y. a[-2,-1] y
+if $nbv>1 4,{$nbv-1},1,1,-128,0,0,0 y[-2,-1] a[-2,-1] y fi
+a y => $nm
+}
+#@cli gmic3d
+#@cli : Input a 3D G'MIC logo.
+#@cli : $ gmic3d +primitives3d 1
++gmic3d :
+e[^-1] "Input 3D G\47MIC logo."
+text3d G,60,20,2 col3d. 16,64,255
+text3d \',60,20,2 +3d. 40 col3d. 64,128,255
+text3d M,60,20,2 +3d. 50 col3d. 96,196,255
+text3d I,60,20,2 +3d. 90 col3d. 64,128,255
+text3d C,60,20,2 +3d. 100 col3d. 16,64,255
+sphere3d 8,-3 +3d. 102,-3,20 col3d. 192,128,255
++3d[-6--1] c3d.
+repeat 30 {
+box3d {min(3+$,20+80*$>,10*$>],0,255)},0.5
+r3d. 1,1,1,{$>*12}
++3d. {80*cos(0.5+1.02*$>*12*pi/180)},{30*sin(0.8+$>*12*pi/180)},{2*$>-60}
+}
++3d[-30--1] +3d. 0,5,30 +3d[-2--1] => [3d\ gmic]
+#@cli gyroid3d : _resolution>0,_zoom
+#@cli : Input 3D gyroid at (0,0,0), with specified resolution.
+#@cli : Default values: 'resolution=32' and 'zoom=5'.
+#@cli : $ gyroid3d 48 +primitives3d 1
++gyroid3d : check ${1=32}>0 skip ${2=5}
+e[^-1] "Input 3D gyroid, with resolution $1 and range $2."
+isosurface3d "'0.49*(cos( 2*x + y + z - pi) + cos( 2*x - y + z - pi)+ cos(- 2*x + y - z - pi) + cos(- 2*x - y - z - pi)+ cos( x + 2*y + z - pi) + cos( x + 2*y - z - pi)+ cos(- x - 2*y + z - pi) + cos(- x - 2*y - z - pi)+ cos( x + y + 2*z - pi) + cos(- x + y + 2*z - pi)+ cos( x - y - 2*z - pi) + cos(- x - y - 2*z - pi)+ cos(- 2*x + y + z) + cos( 2*x + y - z)+ cos(- 2*x - y + z) + cos( 2*x - y - z)+ cos(- x + 2*y + z) + cos( x - 2*y + z)+ cos(- x + 2*y - z) + cos( x - 2*y - z)+ cos( x - y + 2*z) + cos( x + y - 2*z)+ cos(- x - y + 2*z) + cos(- x + y - 2*z)) + 0.27*( cos(- 2*x + 2*y - pi) + cos( 2*x - 2*y - pi)+ cos( 2*x + 2*y - pi) + cos(- 2*x - 2*y - pi)+ cos(- 2*y + 2*z - pi) + cos( 2*y - 2*z - pi)+ cos( 2*y + 2*z - pi) + cos(- 2*y - 2*z - pi)+ cos(- 2*z + 2*x - pi) + cos( 2*z - 2*x - pi)+ cos( 2*z + 2*x - pi) + cos(- 2*z - 2*x - pi)) - 0.69'",0,{-$2},{-$2},{-$2},$2,$2,$2,$1,$1,$1
+c3d. n3d. => [3D\ gyroid]
+#@cli histogram3d
+#@cli : Get 3D color histogram of selected images.
+#@cli : $ image.jpg resize2dx 64 histogram3d circles3d 3 opacity3d. 0.75 colorcube3d primitives3d[-1] 1 add3d
+histogram3d :
+e[^-1] "Get 3D color histogram of image$?."
+to_rgb
+foreach {
+r {wh},3,1,1,-1 pointcloud 1 n 0,255 palette hot point. 0,0,0,1,0 map.. . rm. pointcloud3d => "[3D histogram]"
+}
+#@cli image6cube3d
+#@cli : Generate 3D mapped cubes from 6-sets of selected images.
+#@cli : $ image.jpg animate flower,"30,0","30,5",6 image6cube3d
+image6cube3d :
+e[^-1] "Generate 3D mapped cubes from image$?."
+M={max(${-max_wh})} r $M,$M,1,3 imageplane3d n3d c3d
+repeat int($!/6) { l[$>-{$>+5}] {
++3d[0] 0,0,-0.5
+r3d[1] 0,1,0,90 +3d[1] -0.5,0,0
+r3d[2] 0,1,0,180 +3d[2] 0,0,0.5
+r3d[3] 0,1,0,270 +3d[3] 0.5,0,0
+r3d[4] 1,0,0,90 +3d[4] 0,0.5,0
+r3d[5] 1,0,0,270 +3d[5] 0,-0.5,0
++3d => "[3D image cube]"
+} }
+#@cli imageblocks3d : _maximum_elevation,_smoothness[%]>=0
+#@cli : Generate 3D blocks from selected images.
+#@cli : Transparency of selected images is taken into account.
+#@cli : Default values: 'maximum_elevation=10' and 'smoothness=0'.
+#@cli : $ image.jpg resize2dy 32 imageblocks3d -20 mode3d 3
+imageblocks3d : check ${2=0}>=0 skip ${1=10},${3=0}
+e[^-1] "Generate 3D blocks from image$?, with maximum elevation $1 and smoothness $2."
+foreach {
+w={w} h={h}
+split_opacity to_rgb[0] is_opacity={$!==2}
+l[] {
+box3d 1,1,0
+repeat $w-1 { ++3d. 1,0,0 } +3d
+repeat $h-1 { ++3d. 0,1,0 } +3d
+}
+s3d.
++norm[0] b. $2
+y. n. 0,$1
+r[-5] 24,{-5,round(w*h/24)},1,1,-1
+if $1<0 j[-5] .,2 j[-5] .,5 j[-5] .,8 j[-5] .,11
+else j[-5] .,14 j[-5] .,17 j[-5] .,20 j[-5] .,23
+fi
+rm. y[-4]
+rm.. r[0] {0,wh},1,1,100%,-1 permute[0] cxyz r[0] 600%,100%,1,1,0,2 y[0] mv[0] -1
+if $is_opacity rm. mv[0] $! /. 255 y. r. 6,100%,1,1 y. fi
+a y
+}
+#@cli imagecube3d
+#@cli : Generate 3D mapped cubes from selected images.
+#@cli : $ image.jpg imagecube3d
+imagecube3d :
+e[^-1] "Generate 3D mapped cubes from image$?."
+slices 50% to_rgb
+foreach {
+nm={n}
+i.. (67.5;73.5;109.5;103.5;51.5;100.5;\
+8;6;\
+-0.5;-0.5;-0.5;\
+0.5;-0.5;-0.5;0.5;0.5;-0.5;-0.5;0.5;-0.5;-0.5;-0.5;0.5;0.5;-0.5;0.5;0.5;0.5;0.5;-0.5;0.5;0.5;12;0;3;2;1;0;0;0;{h};{w};{h};{w};0;\
+12;1;2;6;5;0;0;0;{h};{w};{h};{w};0;12;5;6;7;4;0;0;0;{h};{w};{h};{w};0;12;4;7;3;0;0;0;0;{h};{w};{h};{w};0;12;4;0;1;5;0;0;0;{h};{w};{h};{w};0;12;3;7;6;2;0;0;0;{h};{w};{h};{w};0;-128;{w};{h};{s})
+y.
+(-128;0;0;0;-128;0;0;0;-128;0;0;0;-128;0;0;0;-128;0;0;0;1;1;1;1;1;1)
+a y => $nm
+}
+#@cli imageplane3d
+#@cli : Generate 3D mapped planes from selected images.
+#@cli : $ image.jpg imageplane3d
+imageplane3d :
+e[^-1] "Generate 3D mapped planes from image$?."
+slices 50% to_color
+foreach {
+w,h,s,w1,h1:=w,h,s,w-1,h-1
+nm={n}
+i.. (67.5;73.5;109.5;103.5;51.5;100.5;\
+4;1;\
+0;0;0;\
+$w;0;0;$w;$h;0;0;$h;0;12;0;3;2;1;0;0;0;$h1;$w1;$h1;$w1;0;\
+-128;$w;$h;$s)
+y.
+(1)
+a y => $nm
+}
+#@cli imagepyramid3d
+#@cli : Generate 3D mapped pyramids from selected images.
+#@cli : $ image.jpg imagepyramid3d
+imagepyramid3d :
+e[^-1] "Generate 3D mapped pyramids from image$?."
+to_rgb
+foreach {
+nm={n} w2={w/2}
+i.. (67.5;73.5;109.5;103.5;51.5;100.5;\
+5;5;\
+-0.5;-0.5;-0.5;\
+0.5;-0.5;-0.5;0.5;0.5;-0.5;-0.5;0.5;-0.5;0;0;0.5;12;0;3;2;1;0;0;0;{h};{w};{h};{w};0;\
+9;0;4;3;0;{h};$w2;0;{w};{h};9;1;4;0;0;{h};$w2;0;{w};{h};9;2;4;1;0;{h};$w2;0;{w};{h};9;3;4;2;0;{h};$w2;0;{w};{h};-128;{w};{h};{s})
+y.
+(-128;0;0;0;-128;0;0;0;-128;0;0;0;-128;0;0;0;1;1;1;1;1)
+a y => $nm
+}
+#@cli imagerubik3d : _xy_tiles>=1,0<=xy_shift<=100,0<=z_shift<=100
+#@cli : Generate 3D mapped rubik's cubes from selected images.
+#@cli : Default values: 'xy_tiles=3', 'xy_shift=5' and 'z_shift=5'.
+#@cli : $ image.jpg imagerubik3d ,
+imagerubik3d : check "${1=3}>=1 && ${2=5}>=0 && $2<=100 && ${3=5}>=0 && $3<=100"
+e[^-1] "Generate 3D mapped rubik\47s cubes from image$? with $1 xy-tiles, xy-shift $2 and z-shift $3."
+foreach {
+nm={n}
+('CImg3d') +. 0.5
+(8,5)
+(0,0,0;100,0,0;100,100,0;0,100,0;$2,$2,{-$3};{100-$2},$2,{-$3};{100-$2},{100-$2},{-$3};$2,{100-$2},{-$3})
+(4,4,7,6,5;4,0,4,5,1;4,3,2,6,7;4,0,3,7,4;4,1,5,6,2)
+3,5,1,1,200
+1,5,1,1,1
+y[-6--1] a[-6--1] y
+repeat $1-1 { ++3d. 100 } +3d[-$1--1]
+repeat $1-1 { ++3d. 0,100 } +3d[-$1--1]
+t3d. .. rm..
+/3d. $1 -3d. 50,50,50
++r3d. 0,1,0,-90 +r3d. 0,1,0,-90 +r3d. 0,1,0,-90
++r3d. 0,0,1,-90 +r3d. 0,0,1,180
++3d => $nm
+}
+#@cli imagesphere3d : _resolution1>=3,_resolution2>=3
+#@cli : Generate 3D mapped sphere from selected images.
+#@cli : Default values: 'resolution1=32' and 'resolutions2=16'.
+#@cli : $ image.jpg imagesphere3d 32,16
+imagesphere3d : check "${1=32}>=3 && ${2=16}>=3"
+e[^-1] "Generate 3D mapped sphere from image$?, with resolutions ($1,$2)."
+to_rgb
+foreach {
+nm={n}
+tw={w-1} th={h-1}
+nbv={2+$1*($2-2)}
+nbp={$1*($2-1)}
+(67.5;73.5;109.5;103.5;51.5;100.5;\
+$nbv;$nbp)
+(0;0;1) (0;0;-1) (0,{2*pi};0,{2*pi}^0,0;{pi},{pi})
+r. {$1+1},$2,1,2,3 z. 0,1,{w-2},{h-2} s. c
++sin. +sin... *[-2,-1] +cos.. sin... cos[-4] *[-4,-3]
+a[-3--1] c permute. cxyz y. a[-3--1] y
+repeat $1 { v=$>
+tx0={$v*$tw/$1} tx1={($v+1)*$tw/$1} ty1={$th/($2-1)}
+(9;0;{2+$v};{2+($v+1)%$1};{$tw/2};0;$tx0;$ty1;$tx1;$ty1)
+repeat $2-3 { u=$>
+ty0=$ty1 ty1={($u+2)*$th/($2-1)} i0={2+$u*$1+$v} i1={2+$u*$1+($v+1)%$1}
+(12;$i0;{$i0+$1};{$i1+$1};$i1;$tx0;$ty0;$tx0;$ty1;$tx1;$ty1;$tx1;$ty0)
+}
+(9;1;{2+$1*($2-3)+($v+1)%$1};{2+$1*($2-3)+$v};{$tw/2};$th;$tx1;$ty1;$tx0;$ty1)
+}
+a[-$nbp--1] y
+mv[-4] $! i.. (-128;{w};{h};3) y. 1,{4*($nbp-1)},1,1,-128,0,0,0 1,$nbp,1,1,1 a y => $nm
+}
+#@cli isoline3d : isovalue[%] : 'formula',value,_x0,_y0,_x1,_y1,_size_x>0[%],_size_y>0[%] : (+)
+#@cli : Extract 3D isolines with specified value from selected images or from specified formula.
+#@cli : Default values: 'x0=y0=-3', 'x1=y1=3' and 'size_x=size_y=256'.
+#@cli : $ image.jpg blur 1 isoline3d 50%
+#@cli : $ isoline3d 'X=x-w/2;Y=y-h/2;(X^2+Y^2)%20',10,-10,-10,10,10
+#@cli isosurface3d : isovalue[%] : 'formula',value,_x0,_y0,_z0,_x1,_y1,_z1,_size_x>0[%],_size_y>0[%],_size_z>0[%] : (+)
+#@cli : Extract 3D isosurfaces with specified value from selected images or from specified formula.
+#@cli : Default values: 'x0=y0=z0=-3', 'x1=y1=z1=3' and 'size_x=size_y=size_z=32'.
+#@cli : $ image.jpg resize2dy 128 luminance threshold 50% expand_z 2,0 blur 1 isosurface3d 50% mul3d 1,1,30
+#@cli : $ isosurface3d 'x^2+y^2+abs(z)^abs(4*cos(x*y*z*3))',3
+#@cli label3d : "text",font_height>=0,_opacity,_color1,...
+#@cli : Generate 3D text label.
+#@cli : Default values: 'font_height=13', 'opacity=1' and 'color=255,255,255'.
++label3d : check ${2=13}>=0 skip ${3=1},${4=255},${5=$4},${6=$5}
+e[^-1] "Generate 3D label '$1' with font height $2, opacity $3 and color (${4--1})."
+l[] { 0 t "$1",0,0,$2,1,${4--1},255 sprite3d }
+#@cli label_points3d : _label_size>0,_opacity
+#@cli : Add a numbered label to all vertices of selected 3D objects.
+#@cli : Default values: 'label_size=13' and 'opacity=0.8'.
+#@cli : $ torus3d 100,40,6,6 label_points3d 23,1 mode3d 1
+label_points3d : check ${1=13}>0 skip ${2=0.8}
+e[^-1] "Label vertices of 3D object$?."
+repeat $! {
++p3d[$>] 0 l. {
+s3d rm[-3--1]
+nbp={-2,@0} =.. $nbp,0,1
+(1,0;1,{$nbp-1}) r. 2,$nbp,1,1,3 r. 1,{2*h},1,1,-1
+repeat $nbp {
+0 t. $>,0,0,$1,1,255,255,255 autocrop. 0
+i.. (-128;{w};{h};3) y.
+}
+repeat $nbp {
+0 t. $>,0,0,$1,1,$2 autocrop. 0
+i.. (-128;{w};{h};1) y.
+}
+a y
+}
++3d[$>,-1]
+}
+#@cli lathe3d : _resolution>0,_smoothness[%]>=0,_max_angle>=0
+#@cli : Generate 3D object from selected binary XY-profiles.
+#@cli : Default values: 'resolution=128', 'smoothness=0.5%' and 'max_angle=361'.
+#@cli : $ 300,300 rand -1,1 blur 40 sign normalize 0,255 lathe3d ,
+lathe3d : check "${1=128}>0 && ${2=0.5%}>=0 && ${3=361}>=0"
+e[^-1] "Generate lathed 3D object from XY-profile$?, with resolution $1, smoothness $2 and maximum angle $3 deg."
+tmax={($3-180)*pi/180} round norm n 0,1 autocrop 0
+foreach {
+wr={max(1,w2=2*w;if(w2>h,min($1,w2),min($1,h)*w2/h))}
+hr={max(1,w2=2*w;if(w2>h,min($1,w2)*h/w2,min($1,h)))}
+rmax={sqrt(($wr)^2+($hr)^2)/2}
+$wr,1,$wr,1,"xc = x - w/2; zc = z - d/2; t = atan2(zc,xc); if(t>"$tmax","$rmax",sqrt(xc*xc+zc*zc))"
+*. {2*({-2,w}-1)/(w-1)} r. $wr,$hr,$wr
+(0;{{-2,h}-1}) r. $wr,$hr,$wr,1,3 a[-2--1] c
+warp.. .,0,1,0 rm.
+expand_xyz 10,0 b $2 isosurface3d 50% rv3d
+}
+#@cli l3d : eq. to 'light3d'. : (+)
+#@cli light3d : position_x,position_y,position_z : [texture] : (no arg) : (+)
+#@cli : Set the light coordinates or the light texture for 3D rendering.
+#@cli : (eq. to 'l3d').\n
+#@cli : (no arg) resets the 3D light to default.
+#@cli : $ torus3d 100,30 double3d 0 specs3d 1.2 repeat 5 { light3d {$>*100},0,-300 +snapshot3d[0] 400 } remove[0]
+#@cli line3d : x0,y0,z0,x1,y1,z1
+#@cli : Input 3D line at specified coordinates.
+#@cli : $ repeat 100 { a={$>*pi/50} line3d 0,0,0,{cos(3*$a)},{sin(2*$a)},0 color3d. ${-rgb} } add3d
++line3d :
+e[^-1] "Input 3D line (${1-3})-(${4-6})."
+1,21,1,1,67.5,73.5,109.5,103.5,51.5,100.5,2,1,${1-6},2,0,1,200,200,200,1 => [3D\ line]
+#@cli lissajous3d : resolution>1,a,A,b,B,c,C
+#@cli : Input 3D lissajous curves `x(t)=sin(a*t+A*2*pi)`, `y(t)=sin(b*t+B*2*pi)`, `z(t)=sin(c*t+C*2*pi)`.
+#@cli : Default values: 'resolution=1024', 'a=2', 'A=0', 'b=1', 'B=0', 'c=0' and 'C=0'.
+#@cli : $ lissajous3d ,
++lissajous3d : check "isint(${1=1024}) && $1>1" skip ${2=2},${3=0},${4=1},${5=0},${6=0},${7=0}
+e[^-1] "Input 3D lissajous curve, with resolution $1, (a,A)=($2,$3), (b,B)=($4,$5) and (c,C)=($6,$7)."
+curve3d[] "const pi2 = 2*pi; sin($2*t + $3*pi2)","sin($4*t + $5*pi2)","sin($6*t + $7*pi2)",0,$1,0,{2*pi}
+=> [3D\ lissajou]
+#@cli m3d : eq. to 'mode3d'.
+m3d :
+l[] { check "isint(${1=4}) && inrange($1,-1,5)" mode=$1 onfail noarg mode=4 }
+v + _mode3d $mode
+#@cli mode3d : _mode
+#@cli : Set static 3D rendering mode.
+#@cli : (eq. to 'm3d').\n
+#@cli : 'mode' can be { -1=bounding-box | 0=dots | 1=wireframe | 2=flat | 3=flat-shaded | 4=gouraud-shaded | 5=phong-shaded }.");
+#@cli : Bounding-box mode ('mode==-1') is active only for the interactive 3D viewer.
+#@cli : Default value: 'mode=4'.
+#@cli : $ (0,1,2,3,4,5) double3d 0 repeat w { torus3d 100,30 rotate3d[-1] 1,1,0,60 mode3d {0,@$>} snapshot3d[-1] 300 } remove[0]
+mode3d :
+l[] { check "isint(${1=4}) && inrange($1,-1,5)" mode=$1 onfail noarg mode=4 }
+v + _$0 $mode
+_mode3d :
+if $^>=0
+s0,s1,s2,s3,s4,s5,s6=bounding-box,dots,wireframe,flat,flat-shaded,gouraud-shaded,phong-shaded
+e[0--4] "Set static 3D rendering mode to "${s{$1+1}}"."
+fi
+_mode3d=$1
+#@cli md3d : eq. to 'moded3d'.
+md3d :
+l[] { check "isint(${1=-1}) && inrange($1,-1,5)" mode=$1 onfail noarg mode=-1 }
+v + _moded3d $mode
+#@cli moded3d : _mode
+#@cli : Set dynamic 3D rendering mode for interactive 3D viewer.
+#@cli : (eq. to 'md3d').\n
+#@cli : 'mode' can be { -1=bounding-box | 0=dots | 1=wireframe | 2=flat | 3=flat-shaded | 4=gouraud-shaded | 5=phong-shaded }.
+#@cli : Default value: 'mode=-1'.
+moded3d :
+l[] { check "isint(${1=-1}) && inrange($1,-1,5)" mode=$1 onfail noarg mode=-1 }
+v + _$0 $mode
+_moded3d :
+if $^>=0
+s0,s1,s2,s3,s4,s5,s6=bounding-box,dots,wireframe,flat,flat-shaded,gouraud-shaded,phong-shaded
+e[0--4] "Set dynamic 3D rendering mode to "${s{$1+1}}"."
+fi
+_moded3d=$1
+#@cli *3d : eq. to 'mul3d'. : (+)
+#@cli mul3d : factor : factor_x,factor_y,_factor_z : (+)
+#@cli : Scale selected 3D objects isotropically or anisotropically, with specified factors.
+#@cli : (eq. to '*3d').
+#@cli : Default value: 'factor_z=1'.
+#@cli : $ torus3d 5,2 repeat 5 { +add3d[-1] 10,0,0 mul3d[-1] 1.2 color3d[-1] ${-rgb} } add3d
+#@cli n3d : eq. to 'normalize3d'.
+n3d :
+_normalize3d
+#@cli normalize3d
+#@cli : Normalize selected 3D objects to unit size.
+#@cli : (eq. to 'n3d').
+#@cli : $ repeat 100 { circle3d {u(3)},{u(3)},{u(3)},0.1 } add3d color3d[-1] 255,0,0 +normalize3d[-1] color3d[-1] 0,255,0 add3d
+normalize3d :
+_$0
+_normalize3d :
+e[0--3] "Normalize size of 3D object$?."
+check3d foreach {
+if i[6]
+s3d r[2] 3,{2,h/3},1,1,-1 s[2] x
+factor={v=max({2,iM-im},{3,iM-im},{4,iM-im});if(v,v,1)}
+a[2-4] x /[2] $factor y[2] a y
+fi
+}
+#@cli o3d : eq. to 'opacity3d'.
+o3d :
+_gmic_s="$?" v + _opacity3d $*
+#@cli opacity3d : opacity
+#@cli : Set opacity of selected 3D objects.
+#@cli : (eq. to 'o3d').
+#@cli : $ torus3d 100,10 double3d 0 repeat 7 { +rotate3d[-1] 1,0,0,20 opacity3d[-1] {u} } add3d
+opacity3d :
+_gmic_s="$?" v + _$0 $*
+_opacity3d :
+e[0--3] "Set opacity of 3D object"$_gmic_s" to $1."
+foreach {
+nbv,nbp:=f2ui([i[6],i[7]]) $nbp
+eval. ">begin(p = 8 + 3*$nbv); p+=i[#0,p] + 1; end(set('p',p))" # Find beginning of color data
+eval. ">begin(p = $p); i[#0,p]==-128?(p+=prod(crop(#0,0,++p,1,3))); p+=3; end(set('p',p))" # Skip color data
+eval. ">begin(p = $p; const o = $1); i[#0,p]==-128?(p+=3 + prod(crop(#0,0,++p,1,3))):(i[#0,p++] = o)"
+k[0]
+}
+#@cli parametric3d : _x(a,b),_y(a,b),_z(a,b),_amin,_amax,_bmin,_bmax,_res_a>0,_res_b>0,_res_x>0,_res_y>0,_res_z>0,_smoothness>=0,_isovalue>=0
+#@cli : Input 3D object from specified parametric surface `(a,b) ⟶ (x(a,b),y(a,b),z(a,b))`.
+#@cli : Default values: 'x=(2+cos(b))*sin(a)', 'y=(2+cos(b))*cos(a)', 'c=sin(b)', 'amin=-pi', 'amax=pi', 'bmin=-pi', 'bmax=pi', 'res_a=512', 'res_b=res_a', 'res_x=64', 'res_y=res_x', 'res_z=res_y', 'smoothness=2%' and 'isovalue=10%'.
+#@cli : $ parametric3d ,
++parametric3d : skip "${1=(2+cos(b))*sin(a)}","${2=(2+cos(b))*cos(a)}","${3=sin(b)}"
+skip ${4={-pi}},${5={pi}},${6={-pi}},${7={pi}}
+check "${8=512}>0 && ${9=$8}>0 && ${10=64}>0 && ${11=$10}>0 && ${12=$11}>0 && ${13=2%}>=0 && ${14=10%}>=0"
+e[^-1] "Input 3D object from parametric surface ($1,$2,$3)."
+($4,$5;$4,$5^$6,$6;$7,$7) r. $8,$9,1,2,3 channels. 0,2
+f. "a=i(x,y,0,0);b=i(x,y,0,1);if(c==0,$1,if(c==1,$2,$3))"
+sh. 0 xmin={im} xmax={iM} n. 16,{$10-17} rm.
+sh. 1 ymin={im} ymax={iM} n. 16,{$11-17} rm.
+sh. 2 zmin={im} zmax={iM} n. 16,{$12-17} rm.
+r. {w*h},3,1,1,-1
+pointcloud. 1 r. $10,$11,$12,1,0 b. $13,0
+isosurface3d. $14
+c3d. n3d. *3d. {$xmax-$xmin},{$ymax-$ymin},{$zmax-$zmin} => [3D\ parametric]
+#@cli pca_patch3d : _patch_size>0,_M>0,_N>0,_normalize_input={ 0 | 1 },_normalize_output={ 0 | 1 },_lambda_xy
+#@cli : Get 3D patch-pca representation of selected images.
+#@cli : The 3D patch-pca is estimated from M patches on the input image, and displayed as a cloud of N 3D points.
+#@cli : Default values: 'patch_size=7', 'M=1000', 'N=3000', 'normalize_input=1', 'normalize_output=0', and 'lambda_xy=0'.
+#@cli : $ image.jpg pca_patch3d 7
+pca_patch3d : check "isint(${1=7}) && $1>0 && isint(${2=1000}) && $2>0 && isint(${3=3000}) && $3>0"
+skip ${4=1},${5=0},${6=0}
+e[^-1] "Get 3D patch-pca representation"${arg0\ ($!>1),s,""}" of image$?, from $2 $1x$1 input patches,
+with $3 output patches, input normalization "${arg0\ !$4,enabled,disabled}", output normalization "${arg0\ !$5,enabled,disabled}" and lambda_xy $6."
+P1={int($1/2)}
+P2={$1-$P1-1}
+n 0,255 round 1
+foreach {
+nm={n} s={s}
+1,$2 rand. 0,{0,w-1} +rand. 0,{0,h-1} +f. 0 a[-3--1] x round. 1 +patches[0] $1,$1,1,{^} y[2--1] a[2--1] x
+z[1] 0,1 transpose[1] *[1] $6 a[1,2] y s[^0] x
+++[^0] /. $2 -[1--2] . rm.
+a[^0] x
+if $4 l. { s y / 'sqrt(1e-8+iv)' a y } fi
++transpose. m*[-2,-1]
+eigen. rows.. 0,2 columns. 0,2 transpose.
+if $5 sqrt.. /.. {-2,iM} ri.. . /. .. fi
+rm..
+repeat $3 {
+x={round(u({0,w}))}
+y={round(u({0,h}))}
+({$6*$x};{$6*$y})
++z[0] {$x-$P1},{$y-$P1},{$x+$P2},{$y+$P2},1
+y. a[-2,-1] y
+}
++a[2--1] x m*[1,-1] transpose[1]
+rows[2--1] 2,100%
+if $s!=3
+r[2--1] $1,$1,1,{min(3,$s)},-1
+r[2--1] $1,$1,1,3,{if($s!=1,0,1)}
+y[2--1]
+fi
+i[2--2] (-128;$1;$1;3) a[2--1] y
+rm[0]
+i[0] ('CImg3d')
+i[1] ($3;$3)
+i[3] 2,$3,1,1,if(x==0,1,y)
+1,$3,1,1,1
+y a[-6--1] y
+=> $nm
+}
+#@cli plane3d : _size_x,_size_y,_nb_subdivisions_x>0,_nb_subdisivions_y>0
+#@cli : Input 3D plane at (0,0,0), with specified geometry.
+#@cli : Default values: 'size_x=1', 'size_y=size_x' and 'nb_subdivisions_x=nb_subdivisions_y=24'.
+#@cli : $ plane3d 50,30 +primitives3d 1 color3d[-2] ${-rgb}
++plane3d : check "${3=24}>0 && ${4=24}>0" skip ${1=1},${2=$1}
+e[^-1] "Input 3D plane, with size (${1,2}) and subdivisions (${3,4})."
+{$3+1},{$4+1} elevation3d. 0 *3d. {$1/$3},{$2/$4} col3d. 200 => [3D\ plane]
+#@cli point3d : x0,y0,z0
+#@cli : Input 3D point at specified coordinates.
+#@cli : $ repeat 1000 { a={$>*pi/500} point3d {cos(3*$a)},{sin(2*$a)},0 color3d[-1] ${-rgb} } add3d
++point3d :
+e[^-1] "Input 3D point ($1,$2,$3)."
+1,17,1,1,67.5,73.5,109.5,103.5,51.5,100.5,1,1,${1-3},1,0,200,200,200,1 => [3D\ point]
+#@cli pointcloud3d
+#@cli : Convert selected planar or volumetric images to 3D point clouds.
+#@cli : $ image.jpg luminance resize2dy 100 threshold 50% mul 255 pointcloud3d color3d[-1] 255,255,255
+pointcloud3d :
+e[^-1] "Convert image$? to 3D point cloud."
+foreach {
+nm={n} s z
+foreach {
++norm !=. 0
+i.. (1,{w};1,{w}^1,1;{h},{h}) r.. .,.,1,2,3 *[-2,-1] round. permute. cxyz
+l. { s -,0 a y is_points=$! }
+if $is_points
+-. 1 r. 2,{h/2},1,1,-1 permute. cyzx +warp.. .,0,0,1 rm...
+permute.. cyzx i.. 1,{h},1,1,$> a[-3,-2] x
+i... ('CImg3d') i... ({h},{h})
+i.. 1,{h},1,1,1 i.. 1,{h},1,1,y a[-3,-2] x
+permute. cyzx
+if w==1 r. 3,{h},1,1
+elif w>3 i.. 4,{h},1,1,-128,1,1,{w} a[-2,-1] x
+else r. 3,{h},1,1,0
+fi
+1,{h},1,1,1
+y[-6--1] a[-6--1] y
+else rm empty3d
+fi
+}
++3d => $nm
+}
+#@cli pose3d : p1,...,p12
+#@cli : Apply 3D pose matrix to selected 3D objects.
+#@cli : $ torus3d 100,20 pose3d 0.152437,1.20666,-0.546366,0,-0.535962,0.559129,1.08531,0,1.21132,0.0955431,0.548966,0,0,0,-206,1 snapshot3d 400
+pose3d :
+e[^-1] "Apply 3D pose matrix [ $1,$2,$3,$4; $5,$6,$7,$8; $9,$10,$11,$12 ] to 3D object$?."
+foreach {
+if ${-_is_mesh3d}
+if "i[6] && i[7]"
+s3d r[2] 3,{2,h/3},1,1,-1 i[3] 1,{2,h},1,1,1 a[2,3] x
+i[3] ($1,$5,$9;$2,$6,$10;$3,$7,$11;$4,$8,$12) m*[2,3]
+r[2] 1,{2,3*h},1,1,-1 a y
+fi
+else error "Command '$0': Image ["{$!-$>-1}"] does not represent a 3D object."
+fi
+}
+#@cli p3d : eq. to 'primitives3d'.
+p3d : check "isint($1) && inrange($1,0,2)"
+_gmic_s="$?" v + _primitives3d $*
+#@cli primitives3d : mode
+#@cli : Convert primitives of selected 3D objects.
+#@cli : (eq. to 'p3d').\n
+#@cli : 'mode' can be { 0=points | 1=outlines | 2=non-textured }.
+#@cli : $ sphere3d 30 primitives3d 1 torus3d 50,10 color3d[-1] ${-rgb} add3d
+primitives3d : check "isint($1) && inrange($1,0,2)"
+_gmic_s="$?" v + _$0 $*
+_primitives3d :
+s0,s1,s2=points,segments,non-textured
+e[0--3] "Convert primitives of 3D object"$_gmic_s" to "$s$1"."
+check3d foreach {
+s3d nbv,nbp={1,f2ui(crop())}
+r[2] 3,{2,h/3},1,1,-1 permute[2] zycx ($nbv) a[2,-1] y
+tmp=$! $nbp eval. ">begin(p = N = 0);
+i[#4,p++]==-128?(
+W = i[#4,p++]; H = i[#4,p++]; S = i[#4,p++]; WHS = W*H*S;
+WHS?(run('+z[4] 0,',p,',0,',p + WHS - 1,' r. ',W,',',H,',1,',S,',-1 => tx',N); p+=WHS);
+):(p+=2);
+++N" rm[$tmp]
+1x3 => prims,cols,opacs
+$nbp eval. ">
+begin(
+const mode = $1;
+pp = pc = po = 0;
+M = N = 0;
+RGB0 = RGB1 = RGB2 = RGB3 = [ 0,0,0 ];
+refc = vector(#$nbp); # Correspondence old -> new indices for shared textures
+add_colored_point(i,R,G,B,O) = (
+vname = string(#24,'pt',i);
+isnan(get(vname))?(
+da_push(#$prims,1,ui2f(i));
+da_push(#$cols,R,G,B);
+da_push(#$opacs,O);
+set(vname,1);
+++N;
+);
+);
+add_colored_segment(i0,i1,R,G,B,O) = (
+vname = string(#24,'seg',min(i0,i1),'_',max(i0,i1));
+isnan(get(vname))?(
+da_push(#$prims,2,ui2f(i0),ui2f(i1));
+da_push(#$cols,R,G,B);
+da_push(#$opacs,O);
+set(vname,1);
+++N;
+);
+);
+add_textured_segment(i0,i1,tx0,ty0,tx1,ty1) = (
+vname = string(#24,'seg',min(i0,i1),'_',max(i0,i1));
+isnan(get(vname))?(
+da_push(#$prims,6,ui2f(i0),ui2f(i1),tx0,ty0,tx1,ty1);
+!is_shared_texture?(
+da_push(#$cols,-128,wc,hc,sc);
+off = da_size(#$cols);
+resize(#$cols,1,h(#$cols) + whsc,1,1,0);
+copy(i[#$cols,off],i[#ind_texture,0],whsc);
+i[#$cols,h(#$cols) - 1] = off + whsc;
+is_shared_texture = 1;
+refc[M] = N;
+wc = M;
+):da_push(#$cols,-128,ui2f(refc[wc]),0,0); # Shared texture
+da_push(#$opacs,O);
+set(vname,1);
+++N;
+);
+);
+);
+n = i[#3,pp++]; # Type of primitive
+ind_texture = -1; R = i[#4,pc++];
+R==-128?(
+wc = i[#4,pc++]; hc = i[#4,pc++]; sc = i[#4,pc++]; whsc = wc*hc*sc;
+is_shared_texture = whsc?0:1; vname = string(#24,'tx',whsc?M:wc); ind_texture = get(vname); pc+=whsc;
+wt1 = w#ind_texture - 1; ht1 = h#ind_texture - 1;
+R = G = B = 200;
+):(G = i[#4,pc++]; B = i[#4,pc++]);
+O = i[#5,po++];
+O==-128?(
+wo = i[#5,po++]; ho = i[#5,po++]; so = i[#5,po++]; whso = wo*ho*so; po+=whso;
+O = 1;
+);
+n==1?(
+i0 = f2ui(i[#3,pp++]);
+add_colored_point(i0,R,G,B,O);
+):n==2?(
+i0 = f2ui(i[#3,pp++]); i1 = f2ui(i[#3,pp++]);
+mode==0?(add_colored_point(i0,R,G,B,O); add_colored_point(i1,R,G,B,O)):
+add_colored_segment(i0,i1,R,G,B,O);
+):n==3?(
+i0 = f2ui(i[#3,pp++]); i1 = f2ui(i[#3,pp++]); i2 = f2ui(i[#3,pp++]);
+mode==0?(add_colored_point(i0,R,G,B,O); add_colored_point(i1,R,G,B,O); add_colored_point(i2,R,G,B,O)):
+mode==1?(add_colored_segment(i0,i1,R,G,B,O); add_colored_segment(i1,i2,R,G,B,O);
+add_colored_segment(i2,i0,R,G,B,O)):
+(da_push(#$prims,3,ui2f(i0),ui2f(i1),ui2f(i2)); da_push(#$cols,R,G,B); da_push(#$opacs,O); ++N);
+):n==4?(
+i0 = f2ui(i[#3,pp++]); i1 = f2ui(i[#3,pp++]); i2 = f2ui(i[#3,pp++]); i3 = f2ui(i[#3,pp++]);
+mode==0?(add_colored_point(i0,R,G,B,O); add_colored_point(i1,R,G,B,O);
+add_colored_point(i2,R,G,B,O); add_colored_point(i3,R,G,B,O)):
+mode==1?(add_colored_segment(i0,i1,R,G,B,O); add_colored_segment(i1,i2,R,G,B,O);
+add_colored_segment(i2,i3,R,G,B,O); add_colored_segment(i3,i0,R,G,B,O)):
+(da_push(#$prims,4,ui2f(i0),ui2f(i1),ui2f(i2),ui2f(i3)); da_push(#$cols,R,G,B); da_push(#$opacs,O); ++N);
+):n==5?(
+i0 = f2ui(i[#3,pp++]); i1 = f2ui(i[#3,pp++]); is_outlined = i[#3,pp]; pp+=3;
+mode==0?(
+P0 = I[#2,i0]; P1 = I[#2,i1]; nind = da_size(#2); da_push(#2,(P0 + P1)/2);
+add_colored_point(nind,R,G,B,O);
+):(
+da_push(#$prims,5,ui2f(i0),ui2f(i1),mode==1?1:is_outlined,0,0); da_push(#$cols,R,G,B); da_push(#$opacs,O);
+++N;
+);
+):n==6?(
+i0 = f2ui(i[#3,pp++]); i1 = f2ui(i[#3,pp++]);
+tx0 = cut(i[#3,pp++],0,wt1); ty0 = cut(i[#3,pp++],0,ht1);
+tx1 = cut(i[#3,pp++],0,wt1); ty1 = cut(i[#3,pp++],0,ht1);
+mode==0?(
+copy(RGB0,i(#ind_texture,tx0,ty0,0,0),min(3,s#ind_texture),1,wh#ind_texture);
+copy(RGB1,i(#ind_texture,tx1,ty1,0,0),min(3,s#ind_texture),1,wh#ind_texture);
+add_colored_point(i0,RGB0[0],RGB0[1],RGB0[2],O);
+add_colored_point(i1,RGB1[0],RGB1[1],RGB1[2],O);
+):mode==1?add_textured_segment(i0,i1,tx0,ty0,tx1,ty1):(
+da_push(#$prims,2,ui2f(i0),ui2f(i1));
+copy(RGB0,i(#ind_texture,tx0,ty0,0,0),min(3,s#ind_texture),1,wh#ind_texture);
+copy(RGB1,i(#ind_texture,tx1,ty1,0,0),min(3,s#ind_texture),1,wh#ind_texture);
+(RGB0+=RGB1)/=2;
+da_push(#$cols,RGB0[0],RGB0[1],RGB0[2]);
+da_push(#$opacs,O);
+++N;
+);
+):n==9?(
+i0 = f2ui(i[#3,pp++]); i1 = f2ui(i[#3,pp++]); i2 = f2ui(i[#3,pp++]);
+tx0 = cut(i[#3,pp++],0,wt1); ty0 = cut(i[#3,pp++],0,ht1);
+tx1 = cut(i[#3,pp++],0,wt1); ty1 = cut(i[#3,pp++],0,ht1);
+tx2 = cut(i[#3,pp++],0,wt1); ty2 = cut(i[#3,pp++],0,ht1);
+mode==0?(
+copy(RGB0,i(#ind_texture,tx0,ty0,0,0),min(3,s#ind_texture),1,wh#ind_texture);
+copy(RGB1,i(#ind_texture,tx1,ty1,0,0),min(3,s#ind_texture),1,wh#ind_texture);
+copy(RGB2,i(#ind_texture,tx2,ty2,0,0),min(3,s#ind_texture),1,wh#ind_texture);
+add_colored_point(i0,RGB0[0],RGB0[1],RGB0[2],O);
+add_colored_point(i1,RGB1[0],RGB1[1],RGB1[2],O);
+add_colored_point(i2,RGB2[0],RGB2[1],RGB2[2],O);
+):mode==1?(
+add_textured_segment(i0,i1,tx0,ty0,tx1,ty1);
+add_textured_segment(i1,i2,tx0,ty0,tx2,ty2);
+add_textured_segment(i2,i0,tx2,ty2,tx0,ty0);
+):(
+da_push(#$prims,3,ui2f(i0),ui2f(i1),ui2f(i2));
+copy(RGB0,i(#ind_texture,tx0,ty0,0,0),min(3,s#ind_texture),1,wh#ind_texture);
+copy(RGB1,i(#ind_texture,tx1,ty1,0,0),min(3,s#ind_texture),1,wh#ind_texture);
+copy(RGB2,i(#ind_texture,tx2,ty2,0,0),min(3,s#ind_texture),1,wh#ind_texture);
+(RGB0+=RGB1+=RGB2)/=3;
+da_push(#$cols,RGB0[0],RGB0[1],RGB0[2]);
+da_push(#$opacs,O);
+++N;
+);
+):n==12?(
+i0 = f2ui(i[#3,pp++]); i1 = f2ui(i[#3,pp++]); i2 = f2ui(i[#3,pp++]); i3 = f2ui(i[#3,pp++]);
+tx0 = cut(i[#3,pp++],0,wt1); ty0 = cut(i[#3,pp++],0,ht1);
+tx1 = cut(i[#3,pp++],0,wt1); ty1 = cut(i[#3,pp++],0,ht1);
+tx2 = cut(i[#3,pp++],0,wt1); ty2 = cut(i[#3,pp++],0,ht1);
+tx3 = cut(i[#3,pp++],0,wt1); ty3 = cut(i[#3,pp++],0,ht1);
+mode==0?(
+copy(RGB0,i(#ind_texture,tx0,ty0,0,0),min(3,s#ind_texture),1,wh#ind_texture);
+copy(RGB1,i(#ind_texture,tx1,ty1,0,0),min(3,s#ind_texture),1,wh#ind_texture);
+copy(RGB2,i(#ind_texture,tx2,ty2,0,0),min(3,s#ind_texture),1,wh#ind_texture);
+copy(RGB3,i(#ind_texture,tx3,ty3,0,0),min(3,s#ind_texture),1,wh#ind_texture);
+add_colored_point(i0,RGB0[0],RGB0[1],RGB0[2],O);
+add_colored_point(i1,RGB1[0],RGB1[1],RGB1[2],O);
+add_colored_point(i2,RGB2[0],RGB2[1],RGB2[2],O);
+add_colored_point(i3,RGB3[0],RGB3[1],RGB3[2],O)
+):mode==1?(
+add_textured_segment(i0,i1,tx0,ty0,tx1,ty1);
+add_textured_segment(i1,i2,tx1,ty1,tx2,ty2);
+add_textured_segment(i2,i3,tx2,ty2,tx3,ty3);
+add_textured_segment(i3,i0,tx3,ty3,tx0,ty0);
+):(
+da_push(#$prims,4,ui2f(i0),ui2f(i1),ui2f(i2),ui2f(i3));
+copy(RGB0,i(#ind_texture,tx0,ty0,0,0),min(3,s#ind_texture),1,wh#ind_texture);
+copy(RGB1,i(#ind_texture,tx1,ty1,0,0),min(3,s#ind_texture),1,wh#ind_texture);
+copy(RGB2,i(#ind_texture,tx2,ty2,0,0),min(3,s#ind_texture),1,wh#ind_texture);
+copy(RGB3,i(#ind_texture,tx3,ty3,0,0),min(3,s#ind_texture),1,wh#ind_texture);
+(RGB0+=RGB1+=RGB2+=RGB3)/=4;
+da_push(#$cols,RGB0[0],RGB0[1],RGB0[2]);
+da_push(#$opacs,O);
+++N;
+);
+):(pp+=n);
+++M;
+end(set('N',N));
+" rm.
+da_freeze[2,prims,cols,opacs]
+f[1] {2,h},$N
+permute[2] cyzx y[2] rv[3,prims] rv[4,cols] rv[5,opacs] k[0-5] a y
+}
+#@cli projections3d : _x[%],_y[%],_z[%],_is_bounding_box={ 0 | 1 }
+#@cli : Generate 3D xy,xz,yz projection planes from specified volumetric images.
+projections3d : skip ${1=50%},${2=50%},${3=50%},${4=1}
+e[^-1] "Generate 3D xy,xz,yz projection planes from image$?."
+n 0,255
+foreach {
+w={w} h={h} d={d}
+x={if(${is_percent\ $1},$1*w,$1)}
+y={if(${is_percent\ $2},$2*h,$2)}
+z={if(${is_percent\ $3},$3*d,$3)}
++rows $2,$2 r. {w},{d},1,100%,-1
++columns.. $1,$1 permute. zyxc
+slices... $3,$3 r[-3--1] 100%,100%,1,3
+imageplane3d[-3--1]
+r3d. 0,1,0,-90 r3d.. 1,0,0,90
++3d... 0,0,$z +3d.. 0,$y,0 +3d. $x,0,0
++3d[-3--1] o3d. 0.8
+if $4 box3d $w,$h,$d p3d. 1 o3d. 0.4 +3d[-2,-1] fi
+}
+#@cli pyramid3d : width,height
+#@cli : Input 3D pyramid at (0,0,0), with specified geometry.
+#@cli : $ pyramid3d 100,-100 +primitives3d 1 color3d[-2] ${-rgb}
++pyramid3d :
+e[^-1] "Input new 3D pyramid, with width $1 and height $2."
+(67.5;73.5;109.5;103.5;51.5;100.5;\
+5;5;\
+{-$1/2};{-$1/2};{-$2/2};\
+{$1/2};{-$1/2};{-$2/2};{$1/2};{$1/2};{-$2/2};{-$1/2};{$1/2};{-$2/2};0;0;{$2/2};4;0;3;2;1;\
+3;0;4;3;3;1;4;0;3;2;4;1;3;3;4;2)
+1,15,1,1,200 1,5,1,1,1 a[-3--1] y => [3D\ pyramid]
+#@cli quadrangle3d : x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3
+#@cli : Input 3D quadrangle at specified coordinates.
+#@cli : $ quadrangle3d -10,-10,10,10,-10,10,10,10,10,-10,10,10 repeat 10 { +rotate3d[-1] 0,1,0,30 color3d[-1] ${-rgb},0.6 } add3d mode3d 2
++quadrangle3d :
+e[^-1] "Input 3D quadrangle ($1,$2,$3)-($4,$5,$6)-($7,$8,$9)-($10,$11,$12)."
+1,29,1,1,67.5,73.5,109.5,103.5,51.5,100.5,4,1,${1-12},4,0,1,2,3,200,200,200,1 => [3D\ quadrangle]
+#@cli random3d : nb_points>=0
+#@cli : Input random 3D point cloud in [0,1]^3.
+#@cli : $ random3d 100 circles3d 0.1 opacity3d 0.5
++random3d : check "$1>=0"
+e[^-1] "Input random 3D point cloud, with $1 points."
+if $1<0.5 empty3d
+else l[] {
+N={round($1)}
+({'CImg3d'},$N,$N)
+3,$N rand. 0,1
+1,$N,1,1,1 1,$N,1,1,y a[-2,-1] x
+3,$N,1,1,200 1,$N,1,1,1
+y a y
+} fi
+=> [3D\ random\ pointcloud]
+#@cli rv3d : eq. to 'reverse3d'.
+rv3d :
+_gmic_s="$?" v + _reverse3d
+#@cli reverse3d
+#@cli : Reverse primitive orientations of selected 3D objects.
+#@cli : (eq. to 'rv3d').
+#@cli : $ torus3d 100,40 double3d 0 +reverse3d
+reverse3d :
+_gmic_s="$?" v + _$0
+_reverse3d :
+e[0--3] "Reverse primitives orientation of 3D object"$_gmic_s"."
+check3d foreach {
+{f2ui(i[7])} eval. ">begin(p = 8 + 3*f2ui(i[#0,6]));
+n = i[#0,p++];
+n==2?swap(i[#0,p],i[#0,p + 1]):
+n==3?swap(i[#0,p + 1],i[#0,p + 2]):
+n==4?swap(i[#0,p + 1],i[#0,p + 3]):
+n==6?(swap(i[#0,p],i[#0,p + 1]); swap(i[#0,p + 2],i[#0,p + 4]); swap(i[#0,p + 3],i[#0,p + 5])):
+n==9?(swap(i[#0,p + 1],i[#0,p + 2]); swap(i[#0,p + 5],i[#0,p + 7]); swap(i[#0,p + 6],i[#0,p + 8])):
+n==12?(swap(i[#0,p + 1],i[#0,p + 3]); swap(i[#0,p + 6],i[#0,p + 10]); swap(i[#0,p + 7],i[#0,p + 11]));
+p+=n"
+rm.
+}
+#@cli r3d : eq. to 'rotate3d'. : (+)
+#@cli rotate3d : u,v,w,angle : (+)
+#@cli : Rotate selected 3D objects around specified axis with specified angle (in deg.).
+#@cli : (eq. to 'r3d').
+#@cli : $ torus3d 100,10 double3d 0 repeat 7 { +rotate3d[-1] 1,0,0,20 } add3d
+#@cli rotation3d : u,v,w,angle
+#@cli : Input 3x3 rotation matrix with specified axis and angle (in deg).
+#@cli : $ rotation3d 1,0,0,0 rotation3d 1,0,0,90 rotation3d 1,0,0,180
+rotation3d :
+e[^-1] "Input 3D rotation matrix around axis ($1,$2,$3) with angle $4 deg."
+3,3,1,1,{"rot(${1-4}°)"} => [3D\ rotation]
+#@cli sierpinski3d : _recursion_level>=0,_width,_height
+#@cli : Input 3D Sierpinski pyramid.
+#@cli : $ sierpinski3d 3,100,-100 +primitives3d 1 color3d[-2] ${-rgb}
++sierpinski3d : check ${1=4}>=0 skip ${2=1},${3=1}
+-e[^-1] "Input 3D Sierpinski pyramid of degree $1, with width $2 and height $3."
+l[] {
+_sierpinski3d {-$2/2},{-$2/2},{-$3/2},{$2/2},{-$2/2},{-$3/2},{$2/2},{$2/2},{-$3/2},{-$2/2},{$2/2},{-$3/2},0,0,{$3/2},$1
++3d
+}
+=> [3D\ sierpinski]
+_sierpinski3d :
+if $16<=0
+(67.5;73.5;109.5;103.5;51.5;100.5;5;5;$1;$2;$3;$4;$5;$6;$7;$8;$9;$10;$11;$12;$13;$14;$15;4;0;3;2;1;3;0;4;3;3;1;4;0;3;2;4;1;3;3;4;2)
+1,15,1,1,200 1,5,1,1,1 a[-3--1] y
+return fi
+_sierpinski3d $1,$2,$3,{($1+$4)/2},{($2+$5)/2},{($3+$6)/2},{($1+$4+$7+$10)/4},{($2+$5+$8+$11)/4},{($3+$6+$9+$12)/4},{($1+$10)/2},{($2+$11)/2},{($3+$12)/2},{($1+$13)/2},{($2+$14)/2},{($3+$15)/2},{$16-1}
+_sierpinski3d {($1+$4)/2},{($2+$5)/2},{($3+$6)/2},$4,$5,$6,{($4+$7)/2},{($5+$8)/2},{($6+$9)/2},{($1+$4+$7+$10)/4},{($2+$5+$8+$11)/4},{($3+$6+$9+$12)/4},{($4+$13)/2},{($5+$14)/2},{($6+$15)/2},{$16-1}
+_sierpinski3d {($1+$4+$7+$10)/4},{($2+$5+$8+$11)/4},{($3+$6+$9+$12)/4},{($4+$7)/2},{($5+$8)/2},{($6+$9)/2},$7,$8,$9,{($7+$10)/2},{($8+$11)/2},{($9+$12)/2},{($7+$13)/2},{($8+$14)/2},{($9+$15)/2},{$16-1}
+_sierpinski3d {($1+$10)/2},{($2+$11)/2},{($3+$12)/2},{($1+$4+$7+$10)/4},{($2+$5+$8+$11)/4},{($3+$6+$9+$12)/4},{($7+$10)/2},{($8+$11)/2},{($9+$12)/2},$10,$11,$12,{($10+$13)/2},{($11+$14)/2},{($12+$15)/2},{$16-1}
+_sierpinski3d {($1+$13)/2},{($2+$14)/2},{($3+$15)/2},{($4+$13)/2},{($5+$14)/2},{($6+$15)/2},{($7+$13)/2},{($8+$14)/2},{($9+$15)/2},{($10+$13)/2},{($11+$14)/2},{($12+$15)/2},$13,$14,$15,{$16-1}
+#@cli size3d
+#@cli : Return bounding box size of the last selected 3D object.
+size3d :
++rows. 8,{8+3*i[6]} r. 3,{h/3},1,1,-1 s. x,3
+u {-3,iM-im},{-2,iM-im},{iM-im}
+rm[-3--1]
+#@cli skeleton3d : _metric,_frame_type={ 0=squares | 1=diamonds | 2=circles | 3=auto },_skeleton_opacity,_frame_opacity,_is_frame_wireframe={ 0 | 1 }
+#@cli : Build 3D skeletal structure object from 2d binary shapes located in selected images.
+#@cli : 'metric' can be { 0=chebyshev | 1=manhattan | 2=euclidean }.
+#@cli : Default values: 'metric=2', 'bones_type=3', 'skeleton_opacity=1' and 'frame_opacity=0.1'.
+#@cli : $ shape_cupid 480 +skeleton3d ,
+skeleton3d : check "isint(${1=2}) && $1>=0 && $1<=2 && isint(${2=3}) && $2>=0 && $2<=3" skip ${3=1},${4=0.1},${5=1}
+e[^-1] "Build 3D skeletal structure object from image$?, with "${arg0\ $1,chebyshev,manhattan,euclidean}" metric, "${arg0\ $2,squares,diamonds,circles,auto}" bones, skeleton opacity $3 and frame opacity $4 ."
+foreach {
+channels 0
++distance 0,$1
++f. "(i>j(-1)&&i>j(1)) || (i>j(0,-1)&&i>j(0,1)) || (i>j(-1,-1)&&i>j(1,1)) || (i>j(-1,1)&&i>j(1,-1))"
+if $3 +slices. -1,0 isosurface3d. 0.5 o3d. $3 col3d. 255,0,0 fi
+*[0-2] pointcloud3d[0]
+if $4 l[0] {
+s3d
+n={1,@0}
+if $n
+r[2] 3,$n,1,1,-1 r[3] 2,$n,1,1,-1 r[4] 3,$n,1,1,-1
+if $2==0" || "($2==3" && "$1==0)
+=[1] {4*$n}
+i[3] [2]x3 +z.. 0,1 z. 0,2 -[2] . +[4] .
+s. x *.. -1 a[-3--1] x +[3] . -[5,-1] a[2-5] x
+rm[3] 1,$n,1,1,4 +f. 4*y ++. 1 ++. 1 ++. 1 rv[-3,-1] a[-5--1] x mv. 3
+elif $2==1" || "($2==3" && "$1==1)
+=[1] {4*$n}
+i[3] [2]x3 +z.. 0,0 z. 0,2 -[2] . +[4] .
+shift. 1,0 -[3] . +[5,-1] a[2-5] x
+rm[3] 1,$n,1,1,4 +f. 4*y ++. 1 ++. 1 ++. 1 rv[-3,-1] a[-5--1] x mv. 3
+elif $2==2" || "($2==3" && "$1==2)
+=[1] {2*$n}
++z[4] 0,0 z. 0,2 ++[2,-1] -[2,-2] a[2,-1] x
+rm[3] 1,$n,1,1,5 +f. 2*y ++. 1 3,100% a[-4--1] x mv. 3
+fi
+y a y o3d $4 if $5 p3d 1 fi col3d 200
+else rm empty3d fi
+} else rm[0] fi
++3d
+}
+#@cli snapshot3d : _size>0,_zoom>=0,_backgroundR,_backgroundG,_backgroundB,_backgroundA : [background_image],zoom>=0
+#@cli : Take 2D snapshots of selected 3D objects.
+#@cli : Set 'zoom' to 0 to disable object auto-scaling.
+#@cli : Default values: 'size=512', 'zoom=1' and '[background_image]=(default)'.
+#@cli : $ torus3d 100,20 rotate3d 1,1,0,60 snapshot3d 400,1.2,128,64,32
+#@cli : $ torus3d 100,20 rotate3d 1,1,0,60 sample ? +snapshot3d[0] [1],1.2
+snapshot3d : check "${2=1}>=0" skip ${1=512},${3=""}
+if ${"is_image_arg $1"}
+e[0--3] "Take $1x$1 snapshot$? of 3D object$?, with zoom factor $2 and background image $3."
+pass$1 0 to_color.
+elif isnum($3)
+e[0--3] "Take $1x$1 snapshot$? of 3D object$?, with zoom factor $2 and background color ${3--1}."
+(${3--1}) y. c r. $1,$1 to_color.
+else
+e[0--3] "Take $1x$1 snapshot$? of 3D object$?, with zoom factor $2 and default background."
+3,3,1,1,"0,0,0,0,0,100,100,0,50" permute. cyzx r. $1,$1,1,3,3 round.
+fi
+repeat $!-1 { . l[$>,-1] {
+if $2!=0 c3d[0] n3d[0] *3d[0] {3*min(w,h)*$2/4} fi
+if s>3
+100%,100%,1,3,-1 j3d. [0],50%,50%,0,1
+to_rgba. replace_color. 0,0,-1,-1,-1,255,0,0,0,0 blend[-2,-1] alpha
+else
+j3d[1] [0],50%,50%,0,1
+fi
+=>[1] {-2,n} rm[0]
+} } rm.
+#@cli sl3d : eq. to 'specl3d'.
+sl3d :
+l[] { check "${1=0.15}>=0" value=$1 onfail noarg value=0.15 }
+v + _specl3d $value
+#@cli specl3d : value>=0
+#@cli : Set lightness of 3D specular light.
+#@cli : (eq. to 'sl3d').
+#@cli : Default value: 'value=0.15'.
+#@cli : $ (0,0.3,0.6,0.9,1.2) repeat w { torus3d 100,30 rotate3d[-1] 1,1,0,60 color3d[-1] 255,0,0 specl3d {0,@$>} snapshot3d[-1] 400 } remove[0]
+specl3d :
+l[] { check "${1=0.15}>=0" value=$1 onfail noarg value=0.15 }
+v + _$0 $value
+_specl3d :
+e[0--3] "Set lightness of 3D specular light to $1."
+_specl3d=$1
+#@cli ss3d : eq. to 'specs3d'.
+ss3d :
+l[] { check "${1=0.8}>=0" value=$1 onfail noarg value=0.8 }
+v + _specs3d $value
+#@cli specs3d : value>=0
+#@cli : Set shininess of 3D specular light.
+#@cli : (eq. to 'ss3d').
+#@cli : Default value: 'value=0.8'.
+#@cli : $ (0,0.3,0.6,0.9,1.2) repeat w { torus3d 100,30 rotate3d[-1] 1,1,0,60 color3d[-1] 255,0,0 specs3d {0,@$>} snapshot3d[-1] 400 } remove[0]
+specs3d :
+l[] { check "${1=0.8}>=0" value=$1 onfail noarg value=0.8 }
+v + _$0 $value
+_specs3d :
+e[0--3] "Set shininess of 3D specular light to $1."
+_specs3d=$1
+#@cli sphere3d : radius,_nb_recursions!=0 : radius,_nb_phi>=3,_nb_theta>=3
+#@cli : Input 3D sphere at (0,0,0), with specified geometry.
+#@cli : - If 2 arguments are specified:
+#@cli : - If 'nb_recursions>0', the sphere is generated using recursive subdivisions of an **icosahedron**.
+#@cli : - If 'nb_recursions<0', the sphere is generated using recursive subdividions of a **cube**.
+#@cli : - If 3 arguments are specified, the sphere is generated using spherical coordinates discretization.
+#@cli : Default value: 'nb_recursions=3'.
+#@cli : $ sphere3d 100 +primitives3d 1 color3d[-2] ${-rgb}
++sphere3d : check "isnum(${1=1})" skip "${2=3},${3=}"
+if !narg($3)
+e[0--3] "Input 3D sphere, with radius $1 and $2 subdivision iterations."
+l[] {
+if $2>=0
+(1;3;1;3;2;2;2;2;4;0;4;0^2;2;2;2;4;4;0;0;3;3;1;1^4;4;0;0;3;1;3;1;2;2;2;2)
+(-0.850650808352039932,-0.525731112119133606,0,0.525731112119133606,0.850650808352039932)
+map.. . rm. (12) a[-2,-1] y
+(0;0;9;4;4;8;8;5;5;2;7;7;7;11;0;6;9;9;9;7^\
+1;4;4;8;1;1;10;8;3;3;3;10;6;6;6;10;11;2;5;11^4;9;5;5;8;10;3;3;2;7;10;6;11;0;1;1;0;11;2;2) (20) a[-2,-1] y
+repeat $2 {
+0
+1,{1,@{1,h-1}},1,1,"
+unit(V) = (ref(V,_V); _V/norm(_V));
+p = I[#1,y];
+P0 = I[#0,p[0]]; P1 = I[#0,p[1]]; P2 = I[#0,p[2]];
+ref(string(#48,'p',min(p[0],p[1]),'_',max(p[0],p[1])),varname); p01 = get(varname);
+isnan(p01)?(set(varname,p01 = da_size(#0)); da_push(#0,unit((P0 + P1)/2)));
+ref(string(#48,'p',min(p[0],p[2]),'_',max(p[0],p[2])),varname); p02 = get(varname);
+isnan(p02)?(set(varname,p02 = da_size(#0)); da_push(#0,unit((P0 + P2)/2)));
+ref(string(#48,'p',min(p[1],p[2]),'_',max(p[1],p[2])),varname); p12 = get(varname);
+isnan(p12)?(set(varname,p12 = da_size(#0)); da_push(#0,unit((P1 + P2)/2)));
+da_push([p[0],p01,p02],[p01,p[1],p12],[p02,p12,p[2]],[p01,p12,p02])"
+rm[1,-1]
+}
+else
+(-1;1;1;-1;-1;1;1;-1^-1;-1;1;1;-1;-1;1;1^-1;-1;-1;-1;1;1;1;1) /. {sqrt(3)} (8) a[-2,-1] y
+(0;4;0;3;0;1^3;5;1;7;4;2^2;6;5;6;7;6^1;7;4;2;3;5) (6) a[-2,-1] y
+repeat -$2 {
+0
+1,{1,@{1,h-1}},1,1,"
+unit(V) = (ref(V,_V); _V/norm(_V));
+p = I[#1,y];
+P0 = I[#0,p[0]]; P1 = I[#0,p[1]]; P2 = I[#0,p[2]]; P3 = I[#0,p[3]];
+ref(string(#48,'p',min(p[0],p[1]),'_',max(p[0],p[1])),varname); p01 = get(varname);
+isnan(p01)?(set(varname,p01 = da_size(#0)); da_push(#0,unit((P0 + P1)/2)));
+ref(string(#48,'p',min(p[1],p[2]),'_',max(p[1],p[2])),varname); p12 = get(varname);
+isnan(p12)?(set(varname,p12 = da_size(#0)); da_push(#0,unit((P1 + P2)/2)));
+ref(string(#48,'p',min(p[2],p[3]),'_',max(p[2],p[3])),varname); p23 = get(varname);
+isnan(p23)?(set(varname,p23 = da_size(#0)); da_push(#0,unit((P2 + P3)/2)));
+ref(string(#48,'p',min(p[0],p[3]),'_',max(p[0],p[3])),varname); p03 = get(varname);
+isnan(p03)?(set(varname,p03 = da_size(#0)); da_push(#0,unit((P0 + P3)/2)));
+pc = da_size(#0);
+da_push(#0,unit((P0 + P1 + P2 + P3)/4));
+da_push([p[0],p01,pc,p03],[p01,p[1],p12,pc],[pc,p12,p[2],p23],[p03,pc,p23,p[3]])"
+rm[1,-1]
+}
+fi
+da_freeze nbp={1,h}
+*[0] $1 permute cyzx i.. 1,100%,1,1,{w} a[-2,-1] x
+i[0] ({'CImg3d'},{0,h},$nbp) 3,$nbp,1,1,200 1,$nbp,1,1,1 y a y
+}
+else
+e[0--3] "Input 3D sphere, with radius $1 and angular discretizations ($2,$3)."
+l[] {
+nb_phi,nb_theta={max(3,$2)},{max(3,$3)}
+1 $nb_phi,{$nb_theta-2},1,1,"
+begin(da_push(#0,0,0,-1));
+theta = lerp(0,pi,(y + 1)/(h + 1));
+phi = lerp(0,2*pi,x/w);
+st = sin(theta);
+da_push(#0,cos(phi)*st,sin(phi)*st,-cos(theta));
+end(da_push(#0,0,0,1); da_freeze())" rm.
+1 $nb_phi,{$nb_theta-1},1,1,"
+const p = w; const ptm2p1 = p*(h - 1) + 1;
+xp1 = x + 1; xp1mpp1 = xp1%p + 1;
+yp = (y - 1)*p; yp1p = yp + p;
+!y?da_push(3,0,xp1mpp1,xp1):
+y "[3D sphere]"
+#@cli spherical3d : "radius_function(phi,theta)",_nb_recursions!=0 : "radius_function(phi,theta)",_nb_phi>=3,_nb_theta>=3
+#@cli : Input 3D spherical object at (0,0,0), with specified geometry.
+#@cli : Second and third arguments are the same as in command ''sphere3d''.
+#@cli : Default values: 'nb_recursions=5'.
+#@cli : $ spherical3d "abs(1+0.5*cos(3*phi)*sin(4*theta))" +primitives3d 1
++spherical3d : check "${2=5}!=0" skip "${3=}"
+e[^-1] "Input 3D spherical object, with radius function '$1'."
+l[] {
+sphere3d 1,${2--1}
+s3d
+r[2] 3,{2,h/3},1,1,-1 permute[2] zycx
+f[2] "
+V = [ i0,i1,i2 ];
+V/=norm(V);
+theta = -acos(V[2]);
+phi = atan2(V[1],V[0]);
+R = ($1);
+st = sin(theta);
+[ R*cos(phi)*st,R*sin(phi)*st,R*cos(theta) ]"
+permute[2] cyzx y[2] a y
+=> "[3D spherical surface '$1']"
+}
+#@cli spline3d : x0[%],y0[%],z0[%],u0[%],v0[%],w0[%],x1[%],y1[%],z1[%],u1[%],v1[%],w1[%],_nb_vertices>=2
+#@cli : Input 3D spline with specified geometry.
+#@cli : Default values: 'nb_vertices=128'.
+#@cli : $ repeat 100 { spline3d {u},{u},{u},{u},{u},{u},{u},{u},{u},{u},{u},{u},128 color3d[-1] ${-rgb} } box3d 1 primitives3d[-1] 1 add3d
++spline3d : check ${13=128}>=2
+e[^-1] "Input new 3D spline from (${1-3}) [${4-6}] to (${7-9}) [${10-12}] with $13 vertices."
+('CImg3d') +. 0.5
+($13;{$13-1})
+1,$13,1,1,1 (0;1) r. 1,$13,1,1,3 +sqr. +*[-2,-1] a[-4--1] x
++*. '$2,$5,{3*(($8)-($2))-2*($5)-($11)},{($5)+($11)+2*(($2)-($8))}' l. { s x + }
++*.. '$3,$6,{3*(($9)-($3))-2*($6)-($12)},{($6)+($12)+2*(($3)-($9))}' l. { s x + }
+*... '$1,$4,{3*(($7)-($1))-2*($4)-($10)},{($4)+($10)+2*(($1)-($7))}' l... { s x + }
+a[-3--1] x
+1,{$13-1},1,1,2 (0,1;{$13-2},{$13-1}) r. 2,..,1,1,3 round. a[-2,-1] x
+1,{3*($13-1)},1,1,200 1,{$13-1},1,1,1
+y[-3,-4,-6] a[-6--1] y
+#@cli s3d : eq. to 'split3d'.
+s3d :
+_gmic_s="$?" v + _split3d
+#@cli split3d
+#@cli : Split selected 3D objects into feature vectors :
+#@cli : { header, sizes, vertices, primitives, colors, opacities }.
+#@cli : (eq. to 's3d').\n
+#@cli : To recreate the 3D object, append all produced images along the y-axis (with command `append y`).
+#@cli : $ box3d 100 +split3d
+split3d :
+_gmic_s="$?" v + _$0
+_split3d :
+e[0--3] "Split 3D object$? into feature vectors."
+check3d foreach { nm={n}
++z. 0,0,0,5 +z.. 0,6,0,7 nbv,nbp:=f2ui(crop())
+indp:=8+3*$nbv
+if $nbv +z... 0,8,0,{$indp-1} else 0 fi
+if $nbp
+$nbp eval. ">begin(p = $indp); p+=i[#0,p] + 1; end(set('indc',p))" rm.
++z[0] 0,$indp,0,{$indc-1}
+$nbp eval. ">begin(p = $indc); i[#0,p]==-128?(p+=prod(crop(#0,0,++p,1,3))); p+=3; end(set('indo',p))" rm.
++z[0] 0,$indc,0,{$indo-1}
++z[0] 0,$indo,0,100%
+else
+0 0 0
+fi
+rm[0]
+=> $nm,${nm}_c1,${nm}_c2,${nm}_c3,${nm}_c4,${nm}_c5
+}
+#@cli sprite3d
+#@cli : Convert selected images as 3D sprites.
+#@cli : Selected images with alpha channels are managed.
+#@cli : $ image.jpg sprite3d
+sprite3d :
+e[^-1] "Convert image$? as 3D sprites."
+foreach {
+nm={n} split_opacity
+i[0] (67.5;73.5;109.5;103.5;51.5;100.5;1;1;0;0;0;1;0;-128;{w};{h};{0,s}) y[1]
+if $!==2 (1) a y
+else /. 255 i.. (-128;{w};{h};{s}) y.
+fi
+a y => $nm
+}
+#@cli sprites3d : [sprite],_sprite_has_alpha_channel={ 0 | 1 }
+#@cli : Convert selected 3D objects as a sprite cloud.
+#@cli : Set 'sprite_has_alpha_channel' to 1 to make the last channel of the selected sprite be a transparency mask.
+#@cli : Default value: 'mask_has_alpha_channel=0'.
+#@cli : $ torus3d 100,20 image.jpg resize2dy[-1] 64 100%,100% gaussian[-1] 30%,30% *[-1] 255 append[-2,-1] c +sprites3d[0] [1],1 display_rgba[-2]
+sprites3d : check ${is_image_arg\ $1} skip ${2=0}
+e[^-1] "Convert image$? as 3D sprites clouds, using sprite $1 ("${"arg {1+!$2},with,without"}" alpha-channel)."
+repeat $! {
+if !{$>,i(0,7)} continue fi
+pass$1 0
+if !w empty3d rv[$>,-1] =>[$>] {n} rm. continue fi
+l[$>,-1] {
+s3d[0] N={1,@0} =[1] $N,0,1
+rm[3-5] i[3] (1,0;1,{$N-1}) r[3] 2,$N,1,1,3 round[3]
+if $2
+if s==1
+i.. 3,$N,1,1,200 /. 255
+i.. (-128;{w};{h};1)
+if $N>1 1,{4*($N-1)},1,1,-128,0,0,0 fi
+else
+s. c,-{s-1} /. 255
+i... (-128;{w};{h};{-2,s})
+if $N>1 i.. 1,{4*($N-1)},1,1,-128,0,0,0 fi
+i.. (-128;{w};{h};1)
+if $N>1 1,{4*($N-1)},1,1,-128,0,0,0 fi
+fi
+else
+i.. (-128;{w};{h};{s}) y[-3,-1]
+if $N>1 1,{4*($N-1)},1,1,-128,0,0,0 fi
+1,$N,1,1,1
+fi
+y a y
+}
+}
+#@cli star3d : _nb_branches>0,0<=_thickness<=1
+#@cli : Input 3D star at position `(0,0,0)`, with specified geometry.
+#@cli : Default values: 'nb_branches=5' and 'thickness=0.38'.
+#@cli : $ star3d , +primitives3d 1 color3d[-2] ${-rgb}
++star3d : check "${1=5}>0 && ${2=0.38}>=0 && $2<=1"
+e[^-1] "Input 3D star, with $1 branches and thickness $2."
+N={2*$1} ('CImg3d') +. 0.5 ({$N+1};$N)
+({-pi/2};{3*pi/2}) r. 1,{$N+1},1,1,3 rows. 0,{h-2} +sin. cos.. a[-2,-1] x
+(1,1;$2,$2) *[-2,-1] z. 0,2 r. 3,{h+1},1,1,0
+(3,$N,1,0;3,$N,$N,{$N-1}) r. 4,$N,1,1,3 round. =. 0,2,100%
+3,$N,1,1,200 1,$N,1,1,1 y[-6,-4--2] a[-6--1] y => [3D\ star]
+#@cli streamline3d : x[%],y[%],z[%],_L>=0,_dl>0,_interpolation,_is_backward={ 0 | 1 },_is_oriented={ 0 | 1 } : 'formula',x,y,z,_L>=0,_dl>0,_interpolation,_is_backward={ 0 | 1 },_is_oriented={ 0 | 1 } : (+)
+#@cli : Extract 3D streamlines from selected vector fields or from specified formula.
+#@cli : 'interpolation' can be { 0=nearest integer | 1=1st-order | 2=2nd-order | 3=4th-order }.
+#@cli : Default values: 'dl=0.1', 'interpolation=2', 'is_backward=0' and 'is_oriented=0'.
+#@cli : $ 100,100,100,3 rand -10,10 blur 3 repeat 300 { +streamline3d[0] {u(100)},{u(100)},{u(100)},1000,1,1 color3d[-1] ${-rgb} } remove[0] box3d 100 primitives3d[-1] 1 add3d
+#@cli -3d : eq. to 'sub3d'. : (+)
+#@cli sub3d : tx,_ty,_tz : (+)
+#@cli : Shift selected 3D objects with the opposite of specified displacement vector.
+#@cli : (eq. to '3d').
+#@cli : Default values: 'ty=tz=0'.
+#@cli : $ sphere3d 10 repeat 5 { +sub3d[-1] 10,{u(-10,10)},0 color3d[-1] ${-rgb} } add3d
+#@cli subdivide3d
+#@cli : Subdivide primitives of selected 3D objects.
+subdivide3d :
+e[^-1] "Subdivide primitives of selected 3D objects."
+foreach {
+s3d nbv,nbp={1,f2ui(crop())}
+r[2] 3,{2,h/3},1,1,-1 permute[2] zycx
+foreach[2--1] { ({h}) a y }
+$nbp eval. ">begin(pp = pc = po = M = N = 0);
+n = i[#3,pp++]; # Type of primitive
+R = i[#4,pc++];
+R==-128?(
+wc = f2ui(i[#4,pc++]); hc = i[#4,pc++]; sc = i[#4,pc++]; whsc = wc*hc*sc; ind_texture = whsc?wc:M; pc+=whsc;
+R = G = B = 200;
+):(G = i[#4,pc++]; B = i[#4,pc++]);
+O = i[#5,po++];
+O==-128?(
+wo = f2ui(i[#5,po++]); ho = i[#5,po++]; so = i[#5,po++]; whso = wo*ho*so; po+=whso;
+O = 1;
+);
+n==2 || n==6?(
+opp = pp; i0 = f2ui(i[#3,pp++]); i1 = f2ui(i[#3,pp++]);
+P0 = I[#2,i0]; P1 = I[#2,i1];
+P01 = (P0 + P1)/2;
+i01 = da_size(#2); da_push(#2,P01);
+i0 = ui2f(i0); i1 = ui2f(i1); i01 = ui2f(i01);
+n==2?(
+copy(i[#3,opp],[ i0,i01 ]);
+da_push(#3,2,i01,i1);
+da_push(#4,R,G,B);
+):(
+tx0 = i[#3,pp++]; ty0 = i[#3,pp++]; tx1 = i[#3,pp++]; ty1 = i[#3,pp++];
+tx01 = round((tx0 + tx1)/2); ty01 = round((ty0 + ty1)/2);
+copy(i[#3,opp],[ i0,i01,tx0,ty0,tx01,ty01 ]);
+da_push(#3,6,i01,i1,tx01,ty01,tx1,ty1);
+whsc?(ui2fM = ui2f(M); da_push(#4,-128,ui2fM,0,0)):
+(ui2fwc = ui2f(wc); da_push(#4,-128,ui2fwc,0,0));
+);
+da_push(#5,O);
+N+=2):
+n==3 || n==9?(
+opp = pp; i0 = f2ui(i[#3,pp++]); i1 = f2ui(i[#3,pp++]); i2 = f2ui(i[#3,pp++]);
+P0 = I[#2,i0]; P1 = I[#2,i1]; P2 = I[#2,i2];
+P01 = (P0 + P1)/2; P12 = (P1 + P2)/2; P20 = (P2 + P0)/2;
+i01 = da_size(#2); i12 = i01 + 1; i20 = i12 + 1; da_push(#2,P01,P12,P20);
+i0 = ui2f(i0); i1 = ui2f(i1); i2 = ui2f(i2); i01 = ui2f(i01); i12 = ui2f(i12); i20 = ui2f(i20);
+n==3?(
+copy(i[#3,opp],[ i01,i12,i20 ]);
+da_push(#3,3,i0,i01,i20,
+3,i01,i1,i12,
+3,i20,i12,i2);
+da_push(#4,R,G,B, R,G,B, R,G,B);
+):(
+tx0 = i[#3,pp++]; ty0 = i[#3,pp++]; tx1 = i[#3,pp++]; ty1 = i[#3,pp++]; tx2 = i[#3,pp++]; ty2 = i[#3,pp++];
+tx01 = round((tx0 + tx1)/2); ty01 = round((ty0 + ty1)/2);
+tx12 = round((tx1 + tx2)/2); ty12 = round((ty1 + ty2)/2);
+tx20 = round((tx2 + tx0)/2); ty20 = round((ty2 + ty0)/2);
+copy(i[#3,opp],[ i01,i12,i20,tx01,ty01,tx12,ty12,tx20,ty20 ]);
+da_push(#3,9,i0,i01,i20,tx0,ty0,tx01,ty01,tx20,ty20,
+9,i01,i1,i12,tx01,ty01,tx1,ty1,tx12,ty12,
+9,i20,i12,i2,tx20,ty20,tx12,ty12,tx2,ty2);
+whsc?(ui2fM = ui2f(M); da_push(#4,-128,ui2fM,0,0, -128,ui2fM,0,0, -128,ui2fM,0,0)):
+(ui2fwc = ui2f(wc); da_push(#4,-128,ui2fwc,0,0, -128,ui2fwc,0,0, -128,ui2fwc,0,0));
+);
+da_push(#5,O,O,O);
+N+=4):
+n==4 || n==12?(
+opp = pp; i0 = f2ui(i[#3,pp++]); i1 = f2ui(i[#3,pp++]); i2 = f2ui(i[#3,pp++]); i3 = f2ui(i[#3,pp++]);
+P0 = I[#2,i0]; P1 = I[#2,i1]; P2 = I[#2,i2]; P3 = I[#2,i3];
+P01 = (P0 + P1)/2; P12 = (P1 + P2)/2; P23 = (P2 + P3)/2; P30 = (P3 + P0)/2; Pc = (P0 + P1 + P2 + P3)/4;
+i01 = da_size(#2); i12 = i01 + 1; i23 = i12 + 1; i30 = i23 + 1; ic = i30 + 1; da_push(#2,P01,P12,P23,P30,Pc);
+i0 = ui2f(i0); i1 = ui2f(i1); i2 = ui2f(i2); i3 = ui2f(i3);
+i01 = ui2f(i01); i12 = ui2f(i12); i23 = ui2f(i23); i30 = ui2f(i30); ic = ui2f(ic);
+n==4?(
+copy(i[#3,opp],[ i0,i01,ic,i30 ]);
+da_push(#3,4,i01,i1,i12,ic,
+4,ic,i12,i2,i23,
+4,i30,ic,i23,i3);
+da_push(#4,R,G,B, R,G,B, R,G,B);
+):(
+tx0 = i[#3,pp++]; ty0 = i[#3,pp++]; tx1 = i[#3,pp++]; ty1 = i[#3,pp++];
+tx2 = i[#3,pp++]; ty2 = i[#3,pp++]; tx3 = i[#3,pp++]; ty3 = i[#3,pp++];
+tx01 = round((tx0 + tx1)/2); ty01 = round((ty0 + ty1)/2);
+tx12 = round((tx1 + tx2)/2); ty12 = round((ty1 + ty2)/2);
+tx23 = round((tx2 + tx3)/2); ty23 = round((ty2 + ty3)/2);
+tx30 = round((tx3 + tx0)/2); ty30 = round((ty3 + ty0)/2);
+txc = (tx0 + tx1 + tx2 + tx3)/4; tyc = (ty0 + ty1 + ty2 + ty3)/4;
+copy(i[#3,opp],[ i0,i01,ic,i30,tx0,ty0,tx01,ty01,txc,tyc,tx30,ty30 ]);
+da_push(#3,12,i01,i1,i12,ic,tx01,ty01,tx1,ty1,tx12,ty12,txc,tyc,
+12,ic,i12,i2,i23,txc,tyc,tx12,ty12,tx2,ty2,tx23,ty23,
+12,i30,ic,i23,i3,tx30,ty30,txc,tyc,tx23,ty23,tx3,ty3);
+whsc?(ui2fM = ui2f(M); da_push(#4,-128,ui2fM,0,0, -128,ui2fM,0,0, -128,ui2fM,0,0)):
+(ui2fwc = ui2f(wc); da_push(#4,-128,ui2fwc,0,0, -128,ui2fwc,0,0, -128,ui2fwc,0,0));
+);
+da_push(#5,O,O,O);
+N+=4):
+(pp+=n; ++N);
+++M;
+end(i[#1,0] = ui2f(da_size(#2)); i[#1,1] = ui2f(N))" rm.
+da_freeze[2--1] nbv={2,h} permute[2] cyzx y[2] a y
+}
+#@cli superformula3d : resolution>1,m>=1,n1,n2,n3
+#@cli : Input 2D superformula curve as a 3D object.
+#@cli : Default values: 'resolution=1024', 'm=8', 'n1=1', 'n2=5' and 'n3=8'.
+#@cli : $ superformula3d ,
++superformula3d : check "${1=1024}>1 && ${2=8}>=1" skip ${3=1},${4=5},${5=8}
+e[^-1] "Input 2D superformula curve, with resolution $1, m=$2 and (n1,n2,n3)=($3,$4,$5)."
+res={round($1)}
+(67.5;73.5;109.5;103.5;51.5;100.5;$res;{$res-1})
+(0,{2*pi}) r. $res,1,1,1,3 .
+*. {$2/4} +sin. cos.. abs[-2,-1]
+^.. $4 ^. $5 +[-2,-1] ^. {-1/$3}
++sin.. cos... *. .. *[-3,-2] n[-2,-1] -1,1
+a[-2,-1] y rows. 0,2 transpose. r. 1,{w*h},1,1,-1
+1,{$res-1},1,1,2 (0;{$res-2}) r. 1,{$res-1},1,1,3 ++. 1 a[-3--1] x round. 1 r. 1,{w*h},1,1,-1
+1,{3*($res-1)},1,1,200 1,{$res-1},1,1,1 a[-5--1] y => [3D\ superformula]
+#@cli surfels3d : 0<=_left_right_attenuation<=1,0<=_top_bottom_attenuation<=1,0<=_closer_further_attenuation<=1
+#@cli : Convert selected images to 3D objects composed of 3D surfels (or 2D edgels for 2D images).
+#@cli : The binary shape is composed of all non-zero voxels.
+#@cli : The resulting 3D object is colored according to the color of non zero voxels.
+#@cli : Default values: 'left_right_attenuation=1', 'top_bottom_attenuation=1' and 'closer_further_attenuation=1'.
+#@cli : $ 100,100,100 = 1,40%,40%,40% = 1,60%,60%,60% distance 1 lt 30% blur 3 gt 50% surfels3d 0.5,0.75,1
+surfels3d : check "${1=1}>0 && ${2=1}>0 && ${3=1}>0"
+e[^-1] "Generate 3D surfel object from binary shape$? with color attenuations (${1-3})."
+foreach {
+nm={n}
+if d==1
+{[w,h]+1},1,1,-1 1,1,1,2x2 1,1,1,{0,s} => ind,pts,prims,cols
+eval[0] ">val = I; norm(val)?(
+const ind = $ind; const pts = $pts; const prims = $prims; const cols = $cols;
+nx = x + 1; ny = y + 1;
+!j(-1)?(
+i0 = i(#ind,x,y); i0<0?(i0 = i(#ind,x,y) = da_size(#pts); da_push(#pts,[x - 0.5, y - 0.5]));
+i1 = i(#ind,x,ny); i1<0?(i1 = i(#ind,x,ny) = da_size(#pts); da_push(#pts,[x - 0.5, y + 0.5]));
+da_push(#prims,[i1,i0]);
+da_push(#cols,val*$1);
+);
+!j(1)?(
+i0 = i(#ind,nx,y); i0<0?(i0 = i(#ind,nx,y) = da_size(#pts); da_push(#pts,[x + 0.5, y - 0.5]));
+i1 = i(#ind,nx,ny); i1<0?(i1 = i(#ind,nx,ny) = da_size(#pts); da_push(#pts,[x + 0.5, y + 0.5]));
+da_push(#prims,[i0,i1]);
+da_push(#cols,val*$1);
+);
+!j(0,-1)?(
+i0 = i(#ind,x,y); i0<0?(i0 = i(#ind,x,y) = da_size(#pts); da_push(#pts,[x - 0.5, y - 0.5]));
+i1 = i(#ind,nx,y); i1<0?(i1 = i(#ind,nx,y) = da_size(#pts); da_push(#pts,[x + 0.5, y - 0.5]));
+da_push(#prims,[i0,i1]);
+da_push(#cols,val*$2);
+);
+!j(0,1)?(
+i0 = i(#ind,x,ny); i0<0?(i0 = i(#ind,x,ny) = da_size(#pts); da_push(#pts,[x - 0.5, y + 0.5]));
+i1 = i(#ind,nx,ny); i1<0?(i1 = i(#ind,nx,ny) = da_size(#pts); da_push(#pts,[x + 0.5, y + 0.5]));
+da_push(#prims,[i1,i0]);
+da_push(#cols,val*$2);
+);
+); I;
+end(
+resize(#pts,1,da_size(#pts),1,s#pts,0);
+resize(#prims,1,da_size(#prims),1,s#prims,0);
+resize(#cols,1,da_size(#cols),1,s#cols,0);
+)"
+if !w rm
+else
+c[cols] 0,255 to_rgb[cols]
+k[pts,prims,cols] permute cyzx i[1] 1,{0,h},1,1,0 a[0,1] x i[1] 1,{1,h},1,1,2 a[1,2] x =>.. prims
+fi
+else
+{[w,h,d]+1},1,-1 1,1,1,3 1,1,1,4 1,1,1,{0,s} => ind,pts,prims,cols
+eval[0] ">val = I; norm(val)?(
+const ind = $ind; const pts = $pts; const prims = $prims; const cols = $cols;
+nx = x + 1; ny = y + 1; nz = z + 1;
+!j(-1)?(
+i0 = i(#ind,x,y,z); i0<0?(i0 = i(#ind,x,y,z) = da_size(#pts); da_push(#pts,[x-0.5, y-0.5, z-0.5]));
+i1 = i(#ind,x,ny,z); i1<0?(i1 = i(#ind,x,ny,z) = da_size(#pts); da_push(#pts,[x-0.5, y+0.5, z-0.5]));
+i2 = i(#ind,x,ny,nz); i2<0?(i2 = i(#ind,x,ny,nz) = da_size(#pts); da_push(#pts,[x-0.5, y+0.5, z+0.5]));
+i3 = i(#ind,x,y,nz); i3<0?(i3 = i(#ind,x,y,nz) = da_size(#pts); da_push(#pts,[x-0.5, y-0.5, z+0.5]));
+da_push(#prims,[i0,i3,i2,i1]);
+da_push(#cols,val*$1);
+);
+!j(1)?(
+i0 = i(#ind,nx,y,z); i0<0?(i0 = i(#ind,nx,y,z) = da_size(#pts); da_push(#pts,[x+0.5, y-0.5, z-0.5]));
+i1 = i(#ind,nx,ny,z); i1<0?(i1 = i(#ind,nx,ny,z) = da_size(#pts); da_push(#pts,[x+0.5, y+0.5, z-0.5]));
+i2 = i(#ind,nx,ny,nz); i2<0?(i2 = i(#ind,nx,ny,nz) = da_size(#pts); da_push(#pts,[x+0.5, y+0.5, z+0.5]));
+i3 = i(#ind,nx,y,nz); i3<0?(i3 = i(#ind,nx,y,nz) = da_size(#pts); da_push(#pts,[x+0.5, y-0.5, z+0.5]));
+da_push(#prims,[i0,i1,i2,i3]);
+da_push(#cols,val*$1);
+);
+!j(0,-1)?(
+i0 = i(#ind,x,y,z); i0<0?(i0 = i(#ind,x,y,z) = da_size(#pts); da_push(#pts,[x-0.5, y-0.5, z-0.5]));
+i1 = i(#ind,nx,y,z); i1<0?(i1 = i(#ind,nx,y,z) = da_size(#pts); da_push(#pts,[x+0.5, y-0.5, z-0.5]));
+i2 = i(#ind,nx,y,nz); i2<0?(i2 = i(#ind,nx,y,nz) = da_size(#pts); da_push(#pts,[x+0.5, y-0.5, z+0.5]));
+i3 = i(#ind,x,y,nz); i3<0?(i3 = i(#ind,x,y,nz) = da_size(#pts); da_push(#pts,[x-0.5, y-0.5, z+0.5]));
+da_push(#prims,[i0,i1,i2,i3]);
+da_push(#cols,val*$2);
+);
+!j(0,1)?(
+i0 = i(#ind,x,ny,z); i0<0?(i0 = i(#ind,x,ny,z) = da_size(#pts); da_push(#pts,[x-0.5, y+0.5, z-0.5]));
+i1 = i(#ind,nx,ny,z); i1<0?(i1 = i(#ind,nx,ny,z) = da_size(#pts); da_push(#pts,[x+0.5, y+0.5, z-0.5]));
+i2 = i(#ind,nx,ny,nz); i2<0?(i2 = i(#ind,nx,ny,nz) = da_size(#pts); da_push(#pts,[x+0.5, y+0.5, z+0.5]));
+i3 = i(#ind,x,ny,nz); i3<0?(i3 = i(#ind,x,ny,nz) = da_size(#pts); da_push(#pts,[x-0.5, y+0.5, z+0.5]));
+da_push(#prims,[i0,i3,i2,i1]);
+da_push(#cols,val*$2);
+);
+!j(0,0,-1)?(
+i0 = i(#ind,x,y,z); i0<0?(i0 = i(#ind,x,y,z) = da_size(#pts); da_push(#pts,[x-0.5, y-0.5, z-0.5]));
+i1 = i(#ind,nx,y,z); i1<0?(i1 = i(#ind,nx,y,z) = da_size(#pts); da_push(#pts,[x+0.5, y-0.5, z-0.5]));
+i2 = i(#ind,nx,ny,z); i2<0?(i2 = i(#ind,nx,ny,z) = da_size(#pts); da_push(#pts,[x+0.5, y+0.5, z-0.5]));
+i3 = i(#ind,x,ny,z); i3<0?(i3 = i(#ind,x,ny,z) = da_size(#pts); da_push(#pts,[x-0.5, y+0.5, z-0.5]));
+da_push(#prims,[i0,i3,i2,i1]);
+da_push(#cols,val*$3);
+);
+!j(0,0,1)?(
+i0 = i(#ind,x,y,nz); i0<0?(i0 = i(#ind,x,y,nz) = da_size(#pts); da_push(#pts,[x-0.5, y-0.5, z+0.5]));
+i1 = i(#ind,nx,y,nz); i1<0?(i1 = i(#ind,nx,y,nz) = da_size(#pts); da_push(#pts,[x+0.5, y-0.5, z+0.5]));
+i2 = i(#ind,nx,ny,nz); i2<0?(i2 = i(#ind,nx,ny,nz) = da_size(#pts); da_push(#pts,[x+0.5, y+0.5, z+0.5]));
+i3 = i(#ind,x,ny,nz); i3<0?(i3 = i(#ind,x,ny,nz) = da_size(#pts); da_push(#pts,[x-0.5, y+0.5, z+0.5]));
+da_push(#prims,[i0,i1,i2,i3]);
+da_push(#cols,val*$3);
+);
+); I;
+end(
+resize(#pts,1,da_size(#pts),1,s#pts,0);
+resize(#prims,1,da_size(#prims),1,s#prims,0);
+resize(#cols,1,da_size(#cols),1,s#cols,0);
+)"
+if !w rm
+else
+c[cols] 0,255 to_rgb[cols]
+k[pts,prims,cols] permute cyzx i[1] 1,{1,h},1,1,4 a[1,2] x =>.. prims
+fi
+fi
+if !$! empty3d else i[0] ({'CImg3d'},{pts,h},{prims,h}:y) 1,100%,1,1,1 y a y fi
+=> $nm
+}
+#@cli tensors3d : _radius_factor>=0,_shape={ 0=box | >=N=ellipsoid },_radius_min>=0
+#@cli : Generate 3D tensor fields from selected images.
+#@cli : when 'shape'>0, it gives the ellipsoid shape precision.
+#@cli : Default values: 'radius_factor=1', 'shape=2' and 'radius_min=0.05'.
+#@cli : $ 6,6,6,9,"U = [x,y,z] - [w,h,d]/2; U/=norm(U); mul(U,U,3) + 0.3*eye(3)" tensors3d 0.8
+tensors3d : check "${1=1}>=0 && isint(${2=2}) && $2>=0 && ${3=0.05}>=0"
+e[^-1] "Generate 3D tensor field(s) from image$?, with radius factor $1, "${"if $2 u ellipsoid else u box fi"}" shape and radius min $3."
+foreach {
+if s==1 100%,100%,100%,6,"[i#0,0,0,i#0,0,i#0]" k.
+elif s==3 100%,100%,100%,6,"[R#0,G#0,0,B#0,0,0]" k.
+elif s==4 100%,100%,100%,6,"[R#0,G#0,0,A#0,0,0]" k.
+elif s==9 100%,100%,100%,6,"I=I#0;[I[0],I[1],I[2],I[4],I[5],I[8]]" k.
+fi
+if s!=6 error[0--4] "Command '$0': Image '"{n}"' has an invalid size (spectrum="{s}")." fi
+100%,100%,100%,12,"
+T = I(#0);
+M = [ T[0], T[1], T[2], T[1], T[3], T[4], T[2], T[4], T[5] ];
+eig = eig(M);
+if (det(eig[3,9])<0, eig[3]*=-1; eig[4]*=-1; eig[5]*=-1);
+eig[0] = max(0,eig[0]);
+eig[1] = max(0,eig[1]);
+eig[2] = max(0,eig[2]);
+eig"
+k.
+if $2 sphere3d 1,{$2-1} else box3d 1 fi
+N,P={[i[6],i[7]]} siz={h} n3d. c3d. .x{0,whd-1}
+f[0] "
+const N = "$N";
+const P = "$P";
+const siz = "$siz";
+eig = I;
+const d = size(eig);
+ind = 1 + x + w*y + wh*z;
+L = eig[0,3];
+if (max(L)==0,
+i[#ind,6] = i[#ind,7] = 0;
+resize(#ind,1,8,1,1,0);
+_(else),
+L*=$1;
+L[0] = max($3,L[0]);
+L[1] = max($3,L[1]);
+L[2] = max($3,L[2]);
+R = eig[3,9];
+anisotropy = sqrt(((L[0] - L[1])^2 + (L[1] - L[2])^2 + (L[2] - L[0])^2)/(2*(L[0]^2 + L[1]^2 + L[2]^2)));
+ref(crop(#ind,0,8,0,0,1,3*N,1,1),pts);
+pts *= resize(L,size(pts),0,2);
+pts = mul(pts,R,3);
+pts += resize([x,y,z],size(pts),0,2);
+draw(#ind,pts,0,8,0,0,1,size(pts),1,1);
+col0 = cut(255*anisotropy*abs([ R[0],R[1],R[2] ]) + (1 - anisotropy)*200,0,255);
+col = resize(col0,3*P,0,2);
+const off = siz - 4*P;
+draw(#ind,col,0,off,0,0,1,size(col),1,1);
+0); I"
+rm[0] +3d
+}
+#@cli text_pointcloud3d : _"text1",_"text2",_smoothness
+#@cli : Input 3D text pointcloud from the two specified strings.
+#@cli : Default values: 'text1="text1"', 'text2="text2"' and 'smoothness=1'.
+#@cli : $ text_pointcloud3d "G'MIC","Rocks!"
++text_pointcloud3d : skip "${1=text1}","${2=text2}",${3=1}
+e[^-1] "Input 3D pointcloud text object from strings '$1' and '$2', with smoothness $3."
+0 t. "$1",0,0,53,1,1
+0 t. "$2",0,0,53,1,1 mirror. y
+autocrop[-2,-1] 0
+expand_xy[-2,-1] 2,0 dilate[-2,-1] 2
+permute. zyxc r[-2,-1] ${-max_whd} &[-2,-1]
+100%,100% rand. 0,{{-2,d}-1} round. ri. .. f. 'if(z==i,1,0)'
+distance. 1 +. 1 +f. 1 rv[-2,-1] /[-2,-1] *. ..
++dilate. 0,0,{d} ==[-2,-1] *. ..
+1,100%,100% rand. 0,{{-2,w}-1} round. ri. .. f. 'if(x==i,1,0)'
+distance. 1 +. 1 +f. 1 rv[-2,-1] /[-2,-1] *. ...
++dilate. 0,0,{d} ==[-2,-1] *[-3,-1]
+-|[-2,-1]
+b. $3 isosurface3d. 25%
+c3d. n3d. => "[3D text pointcloud]"
+#@cli text3d : text,_font_height>0,_depth>0,_smoothness
+#@cli : Input a 3D text object from specified text.
+#@cli : Default values: 'font_height=53', 'depth=10' and 'smoothness=1.5'.
+#@cli : $ text3d "G'MIC as a\n3D logo!"
++text3d : skip ${2=53},${3=10},${4=1.5}
+e[^-1] "Input 3D text object '$1' with size $2, depth $3 and smoothness $4."
+0 t. "$1",0,0,$2,1,1 autocrop. 0 r. 100%,100%,$3 expand_xyz. 10,0
+b. $4 isosurface3d. 40% rv3d. => "[3D text '$1']"
+#@cli t3d : eq. to 'texturize3d'.
+t3d : check ${"is_image_arg $1"}" && (!narg(${2=}) || "${"is_image_arg $2"}")"
+e[^-1] "Texturize 3D object$? with texture $1"${"if narg($2) u \" and texture coordinates $2\" else u \"\" fi"}"."
+pass$1 0 slices. 0 if s==1 to_rgb. else channels. 0,2 fi
+if narg($2) pass$2 else 0 fi
+v + _texturize3d
+#@cli texturize3d : [ind_texture],_[ind_coords]
+#@cli : Texturize selected 3D objects with specified texture and coordinates.
+#@cli : (eq. to 't3d').\n
+#@cli : When '[ind_coords]' is omitted, default XY texture projection is performed.
+#@cli : Default value: 'ind_coords=(undefined)'.
+#@cli : $ image.jpg torus3d 100,30 texturize3d[-1] [-2] keep[-1]
+texturize3d : check ${"is_image_arg $1"}" && (!narg(${2=}) || "${"is_image_arg $2"}")"
+e[^-1] "Texturize 3D object$? with texture $1"${"if narg($2) u \" and texture coordinates $2\" else u \"\" fi"}"."
+pass$1 0 slices. 0 if s==1 to_rgb. else channels. 0,2 fi
+if narg($2) pass$2 else 0 fi
+v + _$0
+_texturize3d :
+repeat $!-2 { l[$>,-2,-1] {
+np={f2ui(i[7])}
+s3d[0]
+if !w
++r[2] 3,{2,round(h/3)},1,1,-1 s. x,3 rm.
+n.. 0,{6,w-1} n. 0,{6,h-1} a[-2,-1] x
+mv. -2
+fi
+1,{5,2*h}
+1,{5,3*h}
+1,{5,h},1,1,1
+eval "
+add_material() = (
+ind_tex>=0?(
+copy(i[#-2,qc],[ -128,ind_tex,0,0 ],4); qc+=4
+):(
+qc + whds#6 + 4>=h(#-2)?resize(#-2,1,int(1.5*qc + whds#6 + 4),1,1,0,0);
+copy(i[#-2,qc],[ -128,w#6,h#6,s#6 ],4); qc+=4;
+copy(i[#-2,qc],i(#6),whds#6); qc+=whds#6;
+ind_tex = np;
+);
+);
+ind_tex = -1;
+for (pp = pc = qp = qc = np = 0, pp=h(#-3)?resize(#-3,1,int(1.5*qp + 13),1,1,0,0);
+qc + 3>=h(#-2)?resize(#-2,1,int(1.5*qc + 3),1,1,0,0);
+N = i[#3,pp++];
+N==1?(
+v0 = f2ui(i[#3,pp++]); tx0 = i(#7,0,v0); ty0 = i(#7,1,v0);
+R = i(#6,tx0,ty0,0,0); G = i(#6,tx0,ty0,0,1); B = i(#6,tx0,ty0,0,2);
+copy(i[#-3,qp],[ 1,ui2f(v0) ],2); qp+=2;
+copy(i[#-2,qc],[ R,G,B ],3); qc+=3;
+):(N==2 || N==6)?(
+v0 = f2ui(i[#3,pp++]); tx0 = i(#7,0,v0); ty0 = i(#7,1,v0);
+v1 = f2ui(i[#3,pp++]); tx1 = i(#7,0,v1); ty1 = i(#7,1,v1);
+N==6?(pp+=4);
+copy(i[#-3,qp],[ 6,ui2f(v0),ui2f(v1),tx0,ty0,tx1,ty1 ],7); qp+=7;
+add_material();
+):(N==3 || N==9)?(
+v0 = f2ui(i[#3,pp++]); tx0 = i(#7,0,v0); ty0 = i(#7,1,v0);
+v1 = f2ui(i[#3,pp++]); tx1 = i(#7,0,v1); ty1 = i(#7,1,v1);
+v2 = f2ui(i[#3,pp++]); tx2 = i(#7,0,v2); ty2 = i(#7,1,v2);
+N==9?(pp+=6);
+copy(i[#-3,qp],[ 9,ui2f(v0),ui2f(v1),ui2f(v2),tx0,ty0,tx1,ty1,tx2,ty2 ],10); qp+=10;
+add_material();
+):(N==4 || N==12)?(
+v0 = f2ui(i[#3,pp++]); tx0 = i(#7,0,v0); ty0 = i(#7,1,v0);
+v1 = f2ui(i[#3,pp++]); tx1 = i(#7,0,v1); ty1 = i(#7,1,v1);
+v2 = f2ui(i[#3,pp++]); tx2 = i(#7,0,v2); ty2 = i(#7,1,v2);
+v3 = f2ui(i[#3,pp++]); tx3 = i(#7,0,v3); ty3 = i(#7,1,v3);
+N==12?(pp+=8);
+copy(i[#-3,qp],[ 12,ui2f(v0),ui2f(v1),ui2f(v2),ui2f(v3),tx0,ty0,tx1,ty1,tx2,ty2,tx3,ty3 ],13); qp+=13;
+add_material();
+):N==5?(
+v0 = f2ui(i[#3,pp++]); tx0 = i(#7,0,v0); ty0 = i(#7,1,v0);
+v1 = f2ui(i[#3,pp++]); tx1 = i(#7,0,v1); ty1 = i(#7,1,v1);
+v2 = f2ui(i[#3,pp++]); pp+=2;
+(tx0+=tx1)/=2; (ty0+=ty1)/=2;
+R = i(#6,tx0,ty0,0,0); G = i(#6,tx0,ty0,0,1); B = i(#6,tx0,ty0,0,2);
+copy(i[#-3,qp],[ 5,ui2f(v0),ui2f(v1),ui2f(v2),0,0 ],6); qp+=6;
+copy(i[#-2,qc],[ R,G,B ],3); qc+=3;
+);
+);
+resize(#-3,1,qp,1,1,0,0);
+resize(#-2,1,qc,1,1,0,0)"
+rm[3-5] mv[-3--1] 3
+if !w rm.. fi
+a[0-5] y
+} }
+rm[-2,-1]
+#@cli torus3d : _radius1,_radius2,_nb_subdivisions1>2,_nb_subdivisions2>2
+#@cli : Input 3D torus at (0,0,0), with specified geometry.
+#@cli : Default values: 'radius1=1', 'radius2=0.3', 'nb_subdivisions1=24' and 'nb_subdivisions2=12'.
+#@cli : $ torus3d 10,3 +primitives3d 1 color3d[-2] ${-rgb}
++torus3d : check "${1=1} && ${2=0.3} && ${3=24}>2 && ${4=12}>2"
+e[^-1] "Input 3D torus, with radii ($1,$2) and subdivisions ($3,$4)."
+nbp={$3*$4}
+1,8,1,1,67.5,73.5,109.5,103.5,51.5,100.5,$nbp,{$4*$3}
+(0;{2*pi}) +y. x
+r.. 1,{$3+1},1,1,3 z.. 0,0,0,{$3-1}
+r. {$4+1},1,1,1,3 z. 0,{$4-1}
++sin[-2,-1] cos[-4,-3] r[-4--1] $4,$3
+*... $2 +... $1 *. $2 *[-4] ... *[-3,-2]
+y[-3--1] a[-3--1] x
+1,$3,1,1,'y' *. $4 +shift. 0,-1 $4,1,1,1,'x' +shift. -1 r[-4--1] $4,$3
+++[-4,-1] +.. [-4] +[-5] ... +[-4,-3] y[-4--1] i[-5] 1,{h},1,1,4 a[-5--1] x
+3,{h},1,1,200 1,{h},1,1,1 y[-4--2] a[-5--1] y
+=> [3D\ torus]
+#@cli triangle3d : x0,y0,z0,x1,y1,z1,x2,y2,z2
+#@cli : Input 3D triangle at specified coordinates.
+#@cli : $ repeat 100 { a={$>*pi/50} triangle3d 0,0,0,0,0,3,{cos(3*$a)},{sin(2*$a)},0 color3d[-1] ${-rgb} } add3d
++triangle3d :
+e[^-1] "Input 3D triangle ($1,$2,$3)-($4,$5,$6)-($7,$8,$9)."
+1,25,1,1,67.5,73.5,109.5,103.5,51.5,100.5,3,1,${1-9},3,0,1,2,200,200,200,1 => [3D\ triangle]
+#@cli volume3d
+#@cli : Transform selected 3D volumetric images as 3D parallelepipedic objects.
+#@cli : $ image.jpg animate blur,0,5,30 append z volume3d
+volume3d :
+e[^-1] "Transform image$? as 3D parallelepipedic objects."
+foreach {
+w={w} h={h} d={d}
++slices[0] 0
++columns[0] 0 permute. zyxc mirror. x
++slices[0] 100% mirror. x
++columns[0] 100% permute. zyxc
++rows[0] 100% permute. xzyc
++rows[0] 0 permute. xzyc mirror. y
+rm[0] image6cube3d *3d $w,$h,$d
+}
+#@cli voxelize3d : _max_resolution>0,_fill_interior={ 0 | 1 },_preserve_colors={ 0 | 1 }
+#@cli : Convert selected 3D objects as 3D volumetric images of binary voxels, using 3D mesh rasterization.
+#@cli : Default values: 'max_resolution=128', 'fill_interior=1' and 'preserve_colors=0'.
+voxelize3d : check "${1=128}>0 && isbool(${2=1}) && isbool(${3=0})" check3d
+s0,s1,t0,t1="",", interior filling","scalar","color"
+e[^-1] "Voxelize 3D object$?, with max resolution $1"$s$2" and "$t$3" output."
+foreach {
+nm={n} p3d 2
++boundingbox3d l. { s3d store[2] bbpts rm }
+s3d nbp={1,@1} k[2,3,4] => pts,prims,cols
+l[pts] {
+$bbpts a y
+r 3,{h/3},1,1,-1 s x
+w,h,d:="const dx = iM#0 - im#0;
+const dy = iM#1 - im#1;
+const dz = iM#2 - im#2;
+M = max(dx,dy,dz);
+S = round([ dx, dy, dz ]*$1/M);
+[ max(S[0],1), max(S[1],1), max(S[2],1) ]"
+n[0] 0,{$w-1} n[1] 0,{$h-1} n[2] 0,{$d-1}
+round a c
+}
+if $3 l[cols] { r 3,{h/3},1,1,-1 permute zycx +norm1 ==. 0 + } else rm[cols] fi
+$w,$h,$d => out
+$nbp eval. ">
+begin(
+p = 0;
+label = 2;
+P0 = P1 = P2 = P3 = vector3();
+rasterize_point(P) = (
+i(#$out,P#) = label;
+);
+rasterize_segment(P0,P1) = (
+l01 = max(1,abs(P1# - P0#));
+repeat (l01 + 1,l,
+ln = l/l01;
+Q = round(lerp(P0#,P1#,ln));
+i(#$out,Q) = label;
+);
+);
+rasterize_triangle(P0,P1,P2) = (
+N = cross(P1# - P0#,P2# - P0#); # Normal vector
+rasterize_segment(P0#,P1#); # Hack: Ensure correct jonction between adjacent triangles
+rasterize_segment(P0#,P2#);
+rasterize_segment(P1#,P2#);
+norm(N)?(
+S = -dot(N,P0#); # Affine shift
+proj_plane = argmax(abs(N));
+proj_plane==0?(
+Q0 = [ P0#[1],P0#[2] ]; Q1 = [ P1#[1],P1#[2] ]; Q2 = [ P2#[1],P2#[2] ];
+_rasterize_triangle(Q0,Q1,Q2,round((-N[1]*a - N[2]*b - S)/N[0]),a,b);
+):proj_plane==1?(
+Q0 = [ P0#[0],P0#[2] ]; Q1 = [ P1#[0],P1#[2] ]; Q2 = [ P2#[0],P2#[2] ];
+_rasterize_triangle(Q0,Q1,Q2,a,round((-N[0]*a - N[2]*b - S)/N[1]),b);
+):(
+Q0 = [ P0#[0],P0#[1] ]; Q1 = [ P1#[0],P1#[1] ]; Q2 = [ P2#[0],P2#[1] ];
+_rasterize_triangle(Q0,Q1,Q2,a,b,round((-N[0]*a - N[1]*b - S)/N[2]));
+);
+);
+);
+_rasterize_triangle(P0,P1,P2,projX,projY,projZ) = (
+P0#[1]>P1#[1]?swap(P0#,P1#);
+P0#[1]>P2#[1]?swap(P0#,P2#);
+P1#[1]>P2#[1]?swap(P1#,P2#);
+db01 = P1#[1] - P0#[1]; m1db01 = max(1,db01);
+db02 = P2#[1] - P0#[1]; m1db02 = max(1,db02);
+db12 = P2#[1] - P1#[1]; m1db12 = max(1,db12);
+repeat (db01,l,
+b = P0#[1] + l;
+a0 = round(lerp(P0#[0],P1#[0],l/m1db01));
+a1 = round(lerp(P0#[0],P2#[0],l/m1db02));
+a0>a1?swap(a0,a1);
+for (a = a0, a<=a1, ++a, i(#$out,projX#,projY#,projZ#) = label);
+);
+repeat (db12 + 1,l,
+b = P1#[1] + l;
+a0 = round(lerp(P1#[0],P2#[0],l/m1db12));
+a1 = round(lerp(P0#[0],P2#[0],(db01 + l)/m1db02));
+a0>a1?swap(a0,a1);
+for (a = a0, a<=a1, ++a, i(#$out,projX#,projY#,projZ#) = label);
+);
+);
+rasterize_sphere(P0,P1) = (
+P = (P0# + P1#)/2;
+R = norm(P1# - P0#)/2;
+xm = floor(P[0] - R); xM = ceil(P[0] + R);
+ym = floor(P[1] - R); yM = ceil(P[1] + R);
+zm = floor(P[2] - R); zM = ceil(P[2] + R);
+for (z = zm, z<=zM, ++z,
+for (y = ym, y<=yM, ++y,
+for (x = xm, x<=xM, ++x,
+norm([x,y,z] - P)<=R?(i(#$out,x,y,z) = label);
+);
+);
+);
+);
+);
+n = i[#$prims,p++];
+P0 = I[#$pts,f2ui(i[#$prims,p++])];
+n>1?(P1 = I[#$pts,f2ui(i[#$prims,p++])]);
+n>2?(P2 = I[#$pts,f2ui(i[#$prims,p++])]);
+n>3?(P3 = I[#$pts,f2ui(i[#$prims,p++])]);
+n>4?(p+=n - 4);
+n==1?rasterize_point(P0):
+n==2 || n==6?rasterize_segment(P0,P1):
+n==3 || n==9?rasterize_triangle(P0,P1,P2):
+n==4 || n==12?(rasterize_triangle(P0,P1,P2); rasterize_triangle(P0,P2,P3)):
+n==5?rasterize_sphere(P0,P1);
+$3?++label" rm.
+if $2 expand_xyz[out] 1,0 flood[out] 0,0,0,0,0,1,-1 +<[out] 2 +[out,-1] shrink_xyz[out] 1 fi
+if $3 r[cols] 1,{cols,h+2},1,100%,0,0,0,1 point[cols] 0,1,0,1,1 map[out] [cols]
+else >[out] 0
+fi
+k[out] => $nm
+}
+#@cli weird3d : _resolution>0
+#@cli : Input 3D weird object at (0,0,0), with specified resolution.
+#@cli : Default value: 'resolution=32'.
+#@cli : $ weird3d 48 +primitives3d 1 color3d[-2] ${-rgb}
++weird3d : skip ${1=32}
+e[^-1] "Input 3D weird object, with resolution $1."
+isosurface3d '"
+T = 1.61803399;
+2 - (cos(x + T*y) + cos(x - T*y) + cos(y + T*z) + cos(y - T*z) + cos(z - T*x) + cos(z + T*x))"',0,-4.7,-4.7,-4.7,4.7,4.7,4.7,$1,$1,$1
+c3d. n3d. => [3D\ weird]
+#@cli :: Flow Control
+#@cli ap : eq. to 'apply_parallel'.
+ap :
+_gmic_s="$?" v + _apply_parallel "$*"
+#@cli apply_parallel : "command"
+#@cli : Apply specified command on each of the selected images, by parallelizing it for all image of the list.
+#@cli : (eq. to 'ap').
+#@cli : $ image.jpg +mirror x +mirror y apply_parallel "blur 3"
+apply_parallel :
+_gmic_s="$?" v + _$0 "$*"
+_apply_parallel :
+e[0--3] "Apply command '$*' on all image"$_gmic_s" in parallel, using "$_cpus" threads."
+if $!" && "narg("$*")
+m "_ap : foreach { $* if $! k[0] else 0 fi }"
+N={min($!,$_cpus)}
+commands= sep= repeat $N { commands=$commands${sep}_ap[$>--1:$N] sep=, }
+parallel $commands
+um _ap
+fi
+#@cli apc : eq. to 'apply_parallel_channels'.
+apc :
+_gmic_s="$?" v + _apply_parallel_channels "$*"
+#@cli apply_parallel_channels : "command"
+#@cli : Apply specified command on each of the selected images, by parallelizing it for all channel
+#@cli : of the images independently.
+#@cli : (eq. to 'apc').
+#@cli : $ image.jpg apply_parallel_channels "blur 3"
+apply_parallel_channels :
+_gmic_s="$?" v + _$0 "$*"
+_apply_parallel_channels :
+e[0--3] "Apply command '$*' on all channels of image"$_gmic_s" in parallel, using "$_cpus" threads."
+N=$! repeat $N { s$>={$>,s} } s c
+ap "$1"
+repeat $N { a[$>-{$>+${s$>}-1}] c }
+#@cli apo : eq. to 'apply_parallel_overlap'.
+apo : check "${2=0}>=0 && isint(${3=0}) && $3>=0"
+_gmic_s="$?" v + _apply_parallel_overlap "$1",${2--1}
+#@cli apply_parallel_overlap : "command",overlap[%],nb_threads={ 0=auto | 1 | 2 | 4 | 8 | 16 }
+#@cli : Apply specified command on each of the selected images, by parallelizing it on 'nb_threads'
+#@cli : overlapped sub-images.
+#@cli : (eq. to 'apo').\n
+#@cli : 'nb_threads' must be a power of 2.
+#@cli : Default values: 'overlap=0','nb_threads=0'.
+#@cli : $ image.jpg +apply_parallel_overlap "smooth 500,0,1",1
+apply_parallel_overlap : check "${2=0}>=0 && isint(${3=0}) && $3>=0"
+_gmic_s="$?" v + _$0 "$1",${2--1}
+_apply_parallel_overlap : check "${2=0}>=0 && isint(${3=0}) && $3>=0"
+N={if($3,max(1,round($3)),$_cpus)} N={2^int(log2(min(16,$N)))}
+e[0--3] "Apply parallelized command '$1' on image"$_gmic_s", with overlap $2 and "$N" threads."
+__apo_exception=""
+m "_check1 : if $!!=1 rm 0 __apo_exception=\"Command 'apply_parallel_overlap': Specified command '$1' changes the
+size of the image stack.\" fi"
+foreach { _apply_parallel_overlap$N "$1",$2 }
+um _check1
+_apply_parallel_overlap1 :
+$1
+if narg($__apo_exception) error[0--12] $__apo_exception fi
+_apply_parallel_overlap2 :
+if w>=h
+ovx={round(if(${"is_percent $2"},w*$2,$2))} w2={int(w/2)}
++z[0] {$w2-$ovx},100% z[0] 0,{$w2+$ovx-1}
+parallel "l[0] { $1 _check1 }","l[1] { $1 _check1 }"
+if narg($__apo_exception) error[0--12] $__apo_exception fi
+z[0] 0,{0,w-1-$ovx} z[1] $ovx,100% a x
+else
+ovy={round(if(${"is_percent $2"},h*$2,$2))} h2={int(h/2)}
++rows[0] {$h2-$ovy},100% rows[0] 0,{$h2+$ovy-1}
+parallel "l[0] { $1 _check1 }","l[1] { $1 _check1 }"
+if narg($__apo_exception) error[0--12] $__apo_exception fi
+rows[0] 0,{0,h-1-$ovy} rows[1] $ovy,100% a y
+fi
+_apply_parallel_overlap4 :
+if max(w,h)/min(w,h)>=3
+_apply_parallel_overlap2 "_apply_parallel_overlap2 \"$1\",$2",$2
+else
+ovx={round(if(${"is_percent $2"},w*$2,$2))} w2={int(w/2)}
+ovy={round(if(${"is_percent $2"},h*$2,$2))} h2={int(h/2)}
++z[0] {$w2-$ovx},0,100%,{$h2+$ovy-1} +z[0] 0,{$h2-$ovy},{$w2+$ovx-1},100%
++z[0] {$w2-$ovx},{$h2-$ovy},100%,100% z[0] 0,0,{$w2+$ovx-1},{$h2+$ovy-1}
+parallel "l[0] { $1 _check1 }","l[1] { $1 _check1 }","l[2] { $1 _check1 }","l[3] { $1 _check1 }"
+if narg($__apo_exception) error[0--12] $__apo_exception fi
+z[0] 0,0,{0,w-1-$ovx},{0,h-1-$ovy} z[1] $ovx,0,100%,{1,h-1-$ovy}
+z[2] 0,$ovy,{2,w-1-$ovx},100% z[3] $ovx,$ovy,100%,100%
+a[0,1] x a[1,2] x a y
+fi
+_apply_parallel_overlap8 :
+_apply_parallel_overlap2 "_apply_parallel_overlap4 \"$1\",$2",$2
+_apply_parallel_overlap16 :
+_apply_parallel_overlap2 "_apply_parallel_overlap8 \"$1\",$2",$2
+#@cli at : eq. to 'apply_tiles'.
+at : check "${2=10%}>0 && ${3=10%}>0 && ${4=10%}>0 && ${5=0}>=0 && ${6=0}>=0 && ${7=0}>=0 &&
+isint(${8=1}) && $8>=0 && $8<=3"
+_gmic_s="$?" v + _apply_tiles "$1",${2--1}
+#@cli apply_tiles : "command",_tile_width[%]>0,_tile_height[%]>0,_tile_depth[%]>0,_overlap_width[%]>=0,_overlap_height[%]>=0,_overlap_depth[%]>=0,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Apply specified command on each tile (neighborhood) of the selected images, eventually with overlapping tiles.
+#@cli : (eq. to 'at').
+#@cli : Default values: 'tile_width=tile_height=tile_depth=10%','overlap_width=overlap_height=overlap_depth=0' and 'boundary_conditions=1'.
+#@cli : $ image.jpg +equalize[0] 256 +apply_tiles[0] "equalize 256",16,16,1,50%,50%
+apply_tiles : check "${2=10%}>0 && ${3=10%}>0 && ${4=10%}>0 && ${5=0}>=0 && ${6=0}>=0 && ${7=0}>=0 &&
+isint(${8=1}) && $8>=0 && $8<=3"
+_gmic_s="$?" v + _$0 "$1",${2--1}
+_apply_tiles :
+e[0--3] "Apply command '$1' on $2x$3x$4 tiles of image$?, with overlaps ($5,$6,$7) and "${"arg0 $8,dirichlet,neumann,periodic,mirror"}" boundary conditions."
+foreach {
+bw={cut(round(${"is_percent $2"}?w*$2:$2),1,w)}
+bh={cut(round(${"is_percent $3"}?h*$3:$3),1,h)}
+bd={cut(round(${"is_percent $4"}?d*$4:$4),1,d)}
+ow={round(${"is_percent $5"}?$bw*$5:$5)}
+oh={round(${"is_percent $6"}?$bh*$6:$6)}
+od={round(${"is_percent $7"}?$bd*$7:$7)}
+sw={cut($bw-$ow,1,$bw)}
+sh={cut($bh-$oh,1,$bh)}
+sd={cut($bd-$od,1,$bd)}
+100%,100%,100%,{s+1}
+if $ow>0" || "$oh>0" || "$od>0 l[] {
+$bw,1,1 1,$bh,1 1,1,$bd
+= 1,50%,50%,50% distance 1
+/[0] {0.3*$bw} /[1] {0.3*$bh} /[2] {0.3*$bd}
+sqr * -1 exp r $bw,$bh,$bd,1 *
+} else $bw,$bh,$bd,1,1
+fi
+$bw,$bh,$bd,[0]
+m "__at : $1 k. r "$bw,$bh,$bd,{0,s},0
+eval "
+ref(crop(#2),mask);
+for (z = 0, z0=with specified timeout (in seconds) }
+#@cli : Apply a command with a timeout.
+#@cli : Set variable '$_is_timeout' to '1' if timeout occurred, '0' otherwise.
+#@cli : Default value: 'timeout=20'.
+apply_timeout : check "${2=20}>=0"
+if $2<=0
+e[0--3] "Apply command '$1' on image$?, with no timeout."
+$1
+_is_timeout=0
+else
+e[0--3] "Apply command '$1' on image$?, with a timeout of $2 seconds."
+l[] { ('$/') id={is} rm }
+l {
++store initial
+__done$id=0 __is_timeout$id=0
+parallel "$1 __done"$id"=1","l[] do if $|-"$|">$2 __is_timeout"$id"=1 error \"\" elif $__done"$id" break fi wait 100 while 1 done"
+onfail
+rm $initial
+_is_timeout=0
+if ${__is_timeout$id} _is_timeout=1 error[0--5] "Command '$0': Time out ($2 seconds) for command '$1'."
+else error[0--5] "Command '$0': "${}
+fi
+}
+fi
+#@cli check : condition : (+)
+#@cli : Evaluate specified condition and display an error message if evaluated to false.
+#@cli check3d : _is_full_check={ 0 | 1 } : (+)
+#@cli : Check validity of selected 3D vector objects, and display an error message
+#@cli : if one of the selected images is not a valid 3D vector object.
+#@cli : Full 3D object check is slower but more precise.
+#@cli : Default value: 'is_full_check=1'.
+check_display : skip "${1=check_display}"
+if !{*,u} error[0--3] "Command '$1': No display available." fi
+check_opencv : skip "${1=check_opencv}"
+if find(['$_flags'],'opencv')<0
+error[0--3] "Command '$1': No OpenCV features available. ""Your G'MIC interpreter has not been compiled with OpenCV support."
+fi
+#@cli continue : (+)
+#@cli : Go to end of current 'do...while', 'for...done', 'foreach...done', 'local...done' or 'repeat...done' block.
+#@cli : $ image.jpg repeat 10 blur 1 if 1==1 continue fi deform 10 done
+#@cli break : (+)
+#@cli : Break current 'do...while', 'for...done', 'foreach...done', 'local...done' or 'repeat...done' block.
+#@cli : $ image.jpg repeat 10 blur 1 if 1==1 break fi deform 10 done
+#@cli do : (+)
+#@cli : Start a 'do...while' block.
+#@cli : $ image.jpg luminance i={ia+2} do set 255,{u(100)}%,{u(100)}% while ia<$i
+#@cli } : (+)
+#@cli : Equivalent to 'done' if it ends a 'for { .. }', 'foreach { .. }', 'local { .. }' or a 'repeat { .. }' block.
+#@cli : Otherwise, close the corresponding '{ .. }' code block.
+#@cli done : (+)
+#@cli : End a 'for/foreach/local/repeat...done' block, and go to associated 'for/foreach/repeat' if iterations remain.
+#@cli : (eq. to '}').
+#@cli elif : condition : (+)
+#@cli : Start a 'elif...[else]...fi' block if previous 'if' was not verified
+#@cli : and test if specified condition holds
+#@cli : 'condition' is a mathematical expression, whose evaluation is interpreted as { 0=false | other=true }..
+#@cli : $$ https://gmic.eu/tutorial/iffi
+#@cli else : (+)
+#@cli : Execute following commands if previous 'if' or 'elif' conditions failed.
+#@cli : $$ https://gmic.eu/tutorial/iffi
+#@cli fi : (+)
+#@cli : End a 'if...[elif]...[else]...fi' block.
+#@cli : (eq. to 'fi').\n
+#@cli : $$ https://gmic.eu/tutorial/iffi
+#@cli error : message : (+)
+#@cli : Print specified error message on the standard error (stderr) and exit interpreter, except
+#@cli : if error is caught by a 'onfail' command.
+#@cli : Command selection (if any) stands for displayed call stack subset instead of image indices.
+#@cli eval : expression : (+)
+#@cli : Evaluate specified math expression.
+#@cli : - If no command selection is specified, the expression is evaluated once and its result is set to status.
+#@cli : - If command selection is specified, the evaluation is looped over selected images. Status is unchanged. In this case, 'eval' is similar to ''fill'' without assigning the image values.
+#@cli x : eq. to 'exec'. : (+)
+#@cli exec : _is_verbose={ 0 | 1 },"command" : (+)
+#@cli : Execute external command using a system call.
+#@cli : The status value is then set to the error code returned by the system call.
+#@cli : If 'is_verbose=1', the executed command is allowed to output on stdout/stderr.
+#@cli : (eq. to 'x').
+#@cli : Default value: 'is_verbose=1'.
+#@cli xo : eq. to 'exec_out'.
+xo :
+v + _exec_out $"*"
+#@cli exec_out : _mode,"command"
+#@cli : Execute external command using a system call, and return resulting `stdout` and/or `stderr`.
+#@cli : 'mode' can be { 0=stdout | 1=stderr | 2=stdout+stderr }.
+exec_out :
+v + _exec_out $"*"
+_exec_out :
+l[] {
+if "isint($1) && isin($1,0,1,2)" mode=$1 command="${2--1}"
+else mode=0 command="$*"
+fi
+onfail mode=0 command="$*"
+}
+s0,s1,s2=stdout,stderr,stdout+stderr
+e[0--3] "Execute external command '"$command"', and return "${s$mode}" output."
+filename_rand filename=${}
+if $mode==0 x $command" > "$filename
+elif $mode==1 x $command" 2> "$filename
+else x $command" >"$filename" 2>&1"
+fi
+it $filename u {t} rm. delete $filename
+#@cli for : condition : (+)
+#@cli : Start a `for...done` block.
+#@cli : $ image.jpg resize2dy 32 400,400,1,3 x=0 for $x<400 image[1] [0],$x,$x x+=40 done
+#@cli foreach : (+)
+#@cli : Start a 'foreach...done' block, that iterates over all images in the selection, with a separate local environment for each one.
+#@cli : $ sample colorful,earth,duck,dog foreach[^2] +blur 10 sub normalize 0,255 done
+#@cli if : condition : (+)
+#@cli : Start a 'if...[elif]...[else]...fi' block and test if specified condition holds.
+#@cli : 'condition' is a mathematical expression, whose evaluation is interpreted as { 0=false | other=true }.
+#@cli : $ image.jpg if ia<64 add 50% elif ia<128 add 25% elif ia<192 sub 25% else sub 50% fi cut 0,255
+#@cli : $$ https://gmic.eu/tutorial/iffi
+#@cli l : eq. to 'local'. : (+)
+#@cli local : (+)
+#@cli : Start a 'local...[onfail]...done' block, with selected images.
+#@cli : (eq. to 'l').
+#@cli : $ image.jpg local[] 300,300,1,3 rand[0] 0,255 blur 4 sharpen 1000 done
+#@cli : $ image.jpg +local repeat 3 { deform 20 } done
+#@cli : $$ https://gmic.eu/oldtutorial/_local
+#@cli mutex : index,_action={ 0=unlock | 1=lock } : (+)
+#@cli : Lock or unlock specified mutex for multi-threaded programming.
+#@cli : A locked mutex can be unlocked only by the same thread. All mutexes are unlocked by default.
+#@cli : 'index' designates the mutex index, in [0,255].
+#@cli : Default value: 'action=1'.
+#@cli noarg : (+)
+#@cli : Used in a custom command, 'noarg' tells the command that its argument list have not been used
+#@cli : finally, and so they must be evaluated next in the G'MIC pipeline, just as if the custom
+#@cli : command takes no arguments at all.
+#@cli : Use this command to write a custom command which can decide if it takes arguments or not.
+#@cli onfail : (+)
+#@cli : Execute following commands when an error is encountered in the body of the 'local...done' block.
+#@cli : The status value is set with the corresponding error message.
+#@cli : $ image.jpg +local blur -3 onfail mirror x done
+#@cli parallel : _wait_threads,"command1","command2",... : (+)
+#@cli : Execute specified commands in parallel, each in a different thread.
+#@cli : Parallel threads share the list of images.
+#@cli : 'wait_threads' can be { 0=when current environment ends | 1=immediately }.
+#@cli : Default value: 'wait_threads=1'.
+#@cli : $ image.jpg [0] parallel "blur[0] 3","mirror[1] c"
+parallel : skip "${1=},${2=},${3=},${4=},${5=},${6=},${7=},${8=},${9=},${10=},${11=},${12=},${13=},${14=},${15=}"
+if $1==0||$1==1||$1==2 e[0--3] "Execute "{$#-1}" commands '${2--1}' in parallel on image$?."
+else e[0--3] "Execute "$#" commands '$*' in parallel on image$?."
+fi
+parallel $"*"
+#@cli progress : 0<=value<=100 : -1 : (+)
+#@cli : Set the progress index of the current processing pipeline.
+#@cli : This command is useful only when G'MIC is used by an embedding application.
+#@cli q : eq. to 'quit'. : (+)
+#@cli quit : (+)
+#@cli : Quit G'MIC interpreter.
+#@cli : (eq. to 'q').
+#@cli repeat : nb_iterations : (+)
+#@cli : Start 'nb_iterations' iterations of a `repeat...done` block.
+#@cli : 'nb_iterations' is a mathematical expression that will be evaluated.
+#@cli : $ image.jpg split y repeat $! n=$> shift[$n] $<,0,0,0,2 done append y
+#@cli : $ image.jpg mode3d 2 repeat 4 imagecube3d rotate3d 1,1,0,40 snapshot3d 400,1.4 done
+#@cli : $$ https://gmic.eu/oldtutorial/_repeat
+#@cli return : (+)
+#@cli : Return from current custom command.
+#@cli rprogress : 0<=value<=100 | -1 | "command",0<=value_min<=100,0<=value_max<=100
+#@cli : Set the progress index of the current processing pipeline (relatively to
+#@cli : previously defined progress bounds), or call the specified command with
+#@cli : specified progress bounds.
+rprogress : skip ${2=""}
+if !narg($_progress_bounds) _progress_bounds=0,100 fi
+m={arg(-2,$_progress_bounds)} M={arg(-1,$_progress_bounds)}
+if $#==2&&!narg($2) # 1 argument -> Set progress bar.
+e[0--3] "Set relative progress index to $1%."
+progress {if($1<0,-1,min(100,max(0,$m+($M-$m)*$1%)))}
+elif $#==3 # 3 arguments -> Call command with specified bounds.
+nm={min($2,$-1)} nM={max($2,$-1)}
+e[0--3] "Call command '$1' with progress bounds ["$nm,$nM"]."
+progress $m _progress_bounds=$_progress_bounds,{$m+$nm*($M-$m)/100},{$m+$nM*($M-$m)/100}
+run "$1"
+progress $M ($_progress_bounds) _progress_bounds={@0--3} rm.
+else error[0--3] "Command '$0': Invalid argument '$*'."
+fi
+#@cli run : "G'MIC pipeline"
+#@cli : Run specified G'MIC pipeline.
+#@cli : This is only useful when used from a shell, e.g. to avoid shell substitutions to happen in argument.
+run :
+m "__run : $*" v=$^ v {$v+2} __run v $v um __run
+#@cli skip : item : (+)
+#@cli : Do nothing but skip specified item.
+#@cli u : eq. to 'status'. : (+)
+#@cli status : status_string : (+)
+#@cli : Set the current status. Used to define a returning value from a function.
+#@cli : (eq. to 'u').
+#@cli : $ image.jpg command "foo : u0=Dark u1=Bright status ${u{ia>=128}}" text_outline ${-foo},2,2,23,2,1,255
+#@cli while : condition : (+)
+#@cli : End a 'do...while' block and go back to associated 'do' if specified condition holds.
+#@cli : 'condition' is a mathematical expression, whose evaluation is interpreted as { 0=false | other=true }.
+#@cli :: Neural Networks
+#@cli nn_lib :
+#@cli : Return the list of library functions that has to be included in a math expression,in order to use the neural network library.
+nn_lib :
+u "
+begin(
+const nn_nb_threads_max = n;
+const nn_is_training = $_nn_is_training!=0;
+);
+begin_t(
+nn_thread_id = t;
+nn_nb_threads_used = nn_thread_id + 1;
+nn_batch_size = 0;
+);
+++nn_batch_size;
+end(
+merge(nn_nb_threads_used,max);
+merge(nn_batch_size,+);
+);
+nn_display(L) = display(L#,L#_width,L#_height,L#_depth,L#_spectrum);
+nn_display(L,M) = display(L#,M#_width,M#_height,M#_depth,M#_spectrum);
+nn_store(L) = store(['L#'],L#,L#_width,L#_height,L#_depth,L#_spectrum);
+nn_store(L,M) = store(['L#'],L#,M#_width,M#_height,M#_depth,M#_spectrum);
+nn_activation_elu(z) = (z<0?exp(z) - 1:z);
+nn_activation_d_elu(z) = (z<0?exp(z):1);
+"{['$_expr']!=0}"?(
+begin(
+_nn_tab_expr = expr('z = lerp(-32,32,x/(w-1)); "$_expr"',65537);
+_nn_tab_d_expr = vector(#size(_nn_tab_expr));
+const _nn_delta_expr = 64/(size(_nn_tab_expr) - 1);
+fill(_nn_tab_d_expr,_nn_k,
+_nn_pk = _nn_k?_nn_k - 1:_nn_k;
+_nn_nk = _nn_k=0.3?(
+nn_learning_rate = max(0.25*nn_learning_rate,1e-8);
+nn_adaptive_nb_increases = nn_adaptive_nb_decreases = 0;
+):nn_adaptive_trend_moment>=0?(
+++nn_adaptive_nb_increases;
+nn_adaptive_nb_decreases = 0;
+nn_adaptive_nb_increases>=2?(
+nn_learning_rate = max(0.75*nn_learning_rate,1e-8);
+nn_adaptive_nb_increases = 0;
+);
+):nn_adaptive_trend_moment<0?(
+++nn_adaptive_nb_decreases;
+nn_adaptive_nb_decreases>=4?(
+nn_learning_rate = min(nn_learning_rate*1.15,0.1);
+nn_adaptive_nb_decreases = 0;
+);
+);
+);
+copy(i(##T#_ind,0,2,0,0),[ nn_adaptive_trend_moment,nn_adaptive_nb_decreases,nn_adaptive_nb_increases ]);
+);
+nn_optimizer_generic_update_normalize(O,P,learning_mode) = (
+P#_is_channelwise?( # Channel-by-channel normalization
+draw(##P#_ind,batch_#P#_avg,2,0,1,h##P#_ind,0.01);
+draw(##P#_ind,batch_#P#_var,3,0,1,h##P#_ind,0.01);
+learning_mode&1?(
+nn_optimizer_#O#_update_weights(P#_alpha);
+draw(##P#_ind,P#_alpha,0,0,1,h##P#_ind);
+);
+learning_mode&2?(
+nn_optimizer_#O#_update_weights(P#_beta);
+draw(##P#_ind,P#_beta,1,0,1,h##P#_ind);
+);
+):(
+i[##P#_ind,2] = lerp(P#_avg,batch_#P#_avg,0.01);
+i[##P#_ind,3] = lerp(P#_var,batch_#P#_var,0.01);
+learning_mode&1?(
+nn_optimizer_#O#_update_weights(P#_alpha);
+i[##P#_ind,0] = P#_alpha;
+);
+learning_mode&2?(
+nn_optimizer_#O#_update_weights(P#_beta);
+i[##P#_ind,1] = P#_beta;
+);
+);
+);
+nn_optimizer_sgd_init() = 0;
+nn_optimizer_sgd_update_weights(W) = (
+W#-=nn_learning_rate*batch_d#W;
+);
+nn_optimizer_sgd_update_conv_or_fc(P,learning_mode) = (
+learning_mode&1?(
+nn_optimizer_sgd_update_weights(P#_weights);
+draw(##P#_ind,P#_weights,0,0,w##P#_ind - 1,h##P#_ind);
+);
+learning_mode&2?(
+nn_optimizer_sgd_update_weights(P#_biases);
+draw(##P#_ind,P#_biases,w##P#_ind - 1,0,1,h##P#_ind);
+);
+);
+nn_optimizer_sgd_update_conv2d(P,learning_mode) = (
+learning_mode?nn_optimizer_sgd_update_conv_or_fc(#P,learning_mode);
+);
+nn_optimizer_sgd_update_conv3d(P,learning_mode) = (
+learning_mode?nn_optimizer_sgd_update_conv_or_fc(#P,learning_mode);
+);
+nn_optimizer_sgd_update_fc(P,learning_mode) = (
+learning_mode?nn_optimizer_sgd_update_conv_or_fc(#P,learning_mode);
+);
+nn_optimizer_sgd_update_normalize(P,learning_mode) = (
+nn_optimizer_generic_update_normalize(sgd,#P,#learning_mode);
+);
+nn_optimizer_sgd_update_nlfc(P,learning_mode) = (
+learning_mode&1?(
+nn_optimizer_sgd_update_weights(P#_weights);
+draw(##P#_ind,P#_weights,0,0,w##P#_ind/2,h##P#_ind);
+);
+learning_mode&2?(
+nn_optimizer_sgd_update_weights(P#_biases);
+draw(##P#_ind,P#_biases,w##P#_ind/2,0,w##P#_ind/2,h##P#_ind);
+);
+);
+nn_optimizer_rmsprop_init() = (
+const nn_optimizer_rmsprop_beta = 0.9;
+);
+nn_optimizer_rmsprop_update_weights(W) = (
+d#W#_g2 = lerp(batch_d#W^2,d#W#_g2,nn_optimizer_rmsprop_beta);
+W#-=nn_learning_rate*batch_d#W/sqrt(1e-8 + d#W#_g2);
+);
+nn_optimizer_rmsprop_update_conv_or_fc(P,learning_mode) = (
+const P#_ind_g2 = $P#_g2;
+learning_mode&1?(
+d#P#_weights_g2 = crop(##P#_ind_g2,0,0,w##P#_ind - 1,h##P#_ind);
+nn_optimizer_rmsprop_update_weights(P#_weights);
+draw(##P#_ind,P#_weights,0,0,w##P#_ind - 1,h##P#_ind);
+draw(##P#_ind_g2,d#P#_weights_g2,0,0,w##P#_ind - 1,h##P#_ind);
+);
+learning_mode&2?(
+d#P#_biases_g2 = crop(##P#_ind_g2,w##P#_ind - 1,0,1,h##P#_ind);
+nn_optimizer_rmsprop_update_weights(P#_biases);
+draw(##P#_ind,P#_biases,w##P#_ind - 1,0,1,h##P#_ind);
+draw(##P#_ind_g2,d#P#_biases_g2,w##P#_ind - 1,0,1,h##P#_ind);
+);
+);
+nn_optimizer_rmsprop_update_conv2d(P,learning_mode) = (
+learning_mode?nn_optimizer_rmsprop_update_conv_or_fc(#P,learning_mode);
+);
+nn_optimizer_rmsprop_update_conv3d(P,learning_mode) = (
+learning_mode?nn_optimizer_rmsprop_update_conv_or_fc(#P,learning_mode);
+);
+nn_optimizer_rmsprop_update_fc(P,learning_mode) = (
+learning_mode?nn_optimizer_rmsprop_update_conv_or_fc(#P,learning_mode);
+);
+nn_optimizer_rmsprop_update_normalize(P,learning_mode) = (
+const P#_ind_g2 = $P#_g2;
+learning_mode?(
+P#_is_channelwise?( # Channel-by-channel normalization
+d#P#_alpha_g2 = crop(##P#_ind_g2,0,1);
+d#P#_beta_g2 = crop(##P#_ind_g2,1,1);
+):(
+d#P#_alpha_g2 = i[##P#_ind_g2,0];
+d#P#_beta_g2 = i[##P#_ind_g2,1];
+);
+);
+nn_optimizer_generic_update_normalize(rmsprop,#P,#learning_mode);
+);
+nn_optimizer_rmsprop_update_nlfc(P,learning_mode) = (
+const P#_ind_g2 = $P#_g2;
+learning_mode&1?(
+d#P#_weights_g2 = crop(##P#_ind_g2,0,0,w##P#_ind/2,h##P#_ind);
+nn_optimizer_rmsprop_update_weights(P#_weights);
+draw(##P#_ind,P#_weights,0,0,w##P#_ind/2,h##P#_ind);
+draw(##P#_ind_g2,d#P#_weights_g2,0,0,w##P#_ind/2,h##P#_ind);
+);
+learning_mode&2?(
+d#P#_biases_g2 = crop(##P#_ind_g2,w##P#_ind/2,0,w##P#_ind/2,h##P#_ind);
+nn_optimizer_rmsprop_update_weights(P#_biases);
+draw(##P#_ind,P#_biases,w##P#_ind/2,0,w##P#_ind/2,h##P#_ind);
+draw(##P#_ind_g2,d#P#_biases_g2,w##P#_ind/2,0,w##P#_ind/2,h##P#_ind);
+);
+);
+nn_optimizer_adam_init() = (
+begin(
+const nn_optimizer_adam_beta1 = 0.9;
+const nn_optimizer_adam_beta2 = 0.999;
+nn_optimizer_adam_beta1_t = nn_iteration>200?0:nn_optimizer_adam_beta1^(nn_iteration + 1);
+nn_optimizer_adam_beta2_t = nn_iteration>200?0:nn_optimizer_adam_beta2^(nn_iteration + 1);
+nn_optimizer_adam_alpha_t = sqrt(1 - nn_optimizer_adam_beta2_t)/(1 - nn_optimizer_adam_beta1_t);
+);
+);
+nn_optimizer_adam_update_weights(W) = (
+d#W#_m = lerp(batch_d#W,d#W#_m,nn_optimizer_adam_beta1);
+d#W#_v = lerp(batch_d#W^2,d#W#_v,nn_optimizer_adam_beta2);
+W#-=nn_learning_rate*nn_optimizer_adam_alpha_t*d#W#_m/sqrt(1e-8 + d#W#_v);
+);
+nn_optimizer_adam_update_conv_or_fc(P,learning_mode) = (
+const P#_ind_m = $P#_m;
+const P#_ind_v = $P#_v;
+learning_mode&1?(
+d#P#_weights_m = crop(##P#_ind_m,0,0,w##P#_ind - 1,h##P#_ind);
+d#P#_weights_v = crop(##P#_ind_v,0,0,w##P#_ind - 1,h##P#_ind);
+nn_optimizer_adam_update_weights(P#_weights);
+draw(##P#_ind,P#_weights,0,0,w##P#_ind - 1,h##P#_ind);
+draw(##P#_ind_m,d#P#_weights_m,0,0,w##P#_ind - 1,h##P#_ind);
+draw(##P#_ind_v,d#P#_weights_v,0,0,w##P#_ind - 1,h##P#_ind);
+);
+learning_mode&2?(
+d#P#_biases_m = crop(##P#_ind_m,w##P#_ind - 1,0,1,h##P#_ind);
+d#P#_biases_v = crop(##P#_ind_v,w##P#_ind - 1,0,1,h##P#_ind);
+nn_optimizer_adam_update_weights(P#_biases);
+draw(##P#_ind,P#_biases,w##P#_ind - 1,0,1,h##P#_ind);
+draw(##P#_ind_m,d#P#_biases_m,w##P#_ind - 1,0,1,h##P#_ind);
+draw(##P#_ind_v,d#P#_biases_v,w##P#_ind - 1,0,1,h##P#_ind);
+);
+);
+nn_optimizer_adam_update_conv2d(P,learning_mode) = (
+learning_mode?nn_optimizer_adam_update_conv_or_fc(#P,learning_mode);
+);
+nn_optimizer_adam_update_conv3d(P,learning_mode) = (
+learning_mode?nn_optimizer_adam_update_conv_or_fc(#P,learning_mode);
+);
+nn_optimizer_adam_update_fc(P,learning_mode) = (
+learning_mode?nn_optimizer_adam_update_conv_or_fc(#P,learning_mode);
+);
+nn_optimizer_adam_update_normalize(P,learning_mode) = (
+const P#_ind_m = $P#_m;
+const P#_ind_v = $P#_v;
+learning_mode?(
+P#_is_channelwise?( # Channel-by-channel normalization
+d#P#_alpha_m = crop(##P#_ind_m,0,1);
+d#P#_beta_m = crop(##P#_ind_m,1,1);
+d#P#_alpha_v = crop(##P#_ind_v,0,1);
+d#P#_beta_v = crop(##P#_ind_v,1,1);
+):(
+d#P#_alpha_m = i[##P#_ind_m,0];
+d#P#_beta_m = i[##P#_ind_m,1];
+d#P#_alpha_v = i[##P#_ind_v,0];
+d#P#_beta_v = i[##P#_ind_v,1];
+);
+);
+nn_optimizer_generic_update_normalize(adam,#P,#learning_mode);
+);
+nn_optimizer_adam_update_nlfc(P,learning_mode) = (
+learning_mode?(
+const P#_ind_m = $P#_m;
+const P#_ind_v = $P#_v;
+learning_mode&1?(
+d#P#_weights_m = crop(##P#_ind_m,0,0,w##P#_ind/2,h##P#_ind);
+d#P#_weights_v = crop(##P#_ind_v,0,0,w##P#_ind/2,h##P#_ind);
+nn_optimizer_adam_update_weights(P#_weights);
+draw(##P#_ind,P#_weights,0,0,w##P#_ind/2,h##P#_ind);
+draw(##P#_ind_m,d#P#_weights_m,0,0,w##P#_ind/2,h##P#_ind);
+draw(##P#_ind_v,d#P#_weights_v,0,0,w##P#_ind/2,h##P#_ind);
+);
+learning_mode&2?(
+d#P#_biases_m = crop(##P#_ind_m,w##P#_ind/2,0,w##P#_ind/2,h##P#_ind);
+d#P#_biases_v = crop(##P#_ind_v,w##P#_ind/2,0,w##P#_ind/2,h##P#_ind);
+nn_optimizer_adam_update_weights(P#_biases);
+draw(##P#_ind,P#_biases,w##P#_ind/2,0,w##P#_ind/2,h##P#_ind);
+draw(##P#_ind_m,d#P#_biases_m,w##P#_ind/2,0,w##P#_ind/2,h##P#_ind);
+draw(##P#_ind_v,d#P#_biases_v,w##P#_ind/2,0,w##P#_ind/2,h##P#_ind);
+);
+);
+);
+nn_optimizer_adamax_init() = (
+begin(
+const nn_optimizer_adamax_beta1 = 0.9;
+const nn_optimizer_adamax_beta2 = 0.999;
+nn_optimizer_adamax_ombeta1_t = nn_iteration>200?1:(1 - nn_optimizer_adamax_beta1^(nn_iteration + 1));
+);
+);
+nn_optimizer_adamax_update_weights(W) = (
+d#W#_m = lerp(batch_d#W,d#W#_m,nn_optimizer_adamax_beta1);
+d#W#_v = vmax(abs(batch_d#W),nn_optimizer_adamax_beta2*d#W#_v);
+W#-=(nn_learning_rate/nn_optimizer_adamax_ombeta1_t)*d#W#_m/sqrt(1e-8 + d#W#_v);
+);
+nn_optimizer_adamax_update_conv_or_fc(P,learning_mode) = (
+const P#_ind_m = $P#_m;
+const P#_ind_v = $P#_v;
+learning_mode&1?(
+d#P#_weights_m = crop(##P#_ind_m,0,0,w##P#_ind - 1,h##P#_ind);
+d#P#_weights_v = crop(##P#_ind_v,0,0,w##P#_ind - 1,h##P#_ind);
+nn_optimizer_adamax_update_weights(P#_weights);
+draw(##P#_ind,P#_weights,0,0,w##P#_ind - 1,h##P#_ind);
+draw(##P#_ind_m,d#P#_weights_m,0,0,w##P#_ind - 1,h##P#_ind);
+draw(##P#_ind_v,d#P#_weights_v,0,0,w##P#_ind - 1,h##P#_ind);
+);
+learning_mode&2?(
+d#P#_biases_m = crop(##P#_ind_m,w##P#_ind - 1,0,1,h##P#_ind);
+d#P#_biases_v = crop(##P#_ind_v,w##P#_ind - 1,0,1,h##P#_ind);
+nn_optimizer_adamax_update_weights(P#_biases);
+draw(##P#_ind,P#_biases,w##P#_ind - 1,0,1,h##P#_ind);
+draw(##P#_ind_m,d#P#_biases_m,w##P#_ind - 1,0,1,h##P#_ind);
+draw(##P#_ind_v,d#P#_biases_v,w##P#_ind - 1,0,1,h##P#_ind);
+);
+);
+nn_optimizer_adamax_update_conv2d(P,learning_mode) = (
+learning_mode?nn_optimizer_adamax_update_conv_or_fc(#P,learning_mode);
+);
+nn_optimizer_adamax_update_conv3d(P,learning_mode) = (
+learning_mode?nn_optimizer_adamax_update_conv_or_fc(#P,learning_mode);
+);
+nn_optimizer_adamax_update_fc(P,learning_mode) = (
+learning_mode?nn_optimizer_adamax_update_conv_or_fc(#P,learning_mode);
+);
+nn_optimizer_adamax_update_normalize(P,learning_mode) = (
+const P#_ind_m = $P#_m;
+const P#_ind_v = $P#_v;
+learning_mode?(
+P#_is_channelwise?( # Channel-by-channel normalization
+d#P#_alpha_m = crop(##P#_ind_m,0,1);
+d#P#_beta_m = crop(##P#_ind_m,1,1);
+d#P#_alpha_v = crop(##P#_ind_v,0,1);
+d#P#_beta_v = crop(##P#_ind_v,1,1);
+):(
+d#P#_alpha_m = i[##P#_ind_m,0];
+d#P#_beta_m = i[##P#_ind_m,1];
+d#P#_alpha_v = i[##P#_ind_v,0];
+d#P#_beta_v = i[##P#_ind_v,1];
+);
+);
+nn_optimizer_generic_update_normalize(adamax,#P,#learning_mode);
+);
+nn_optimizer_adamax_update_nlfc(P,learning_mode) = (
+const P#_ind_m = $P#_m;
+const P#_ind_v = $P#_v;
+learning_mode&1?(
+d#P#_weights_m = crop(##P#_ind_m,0,0,w##P#_ind/2,h##P#_ind);
+d#P#_weights_v = crop(##P#_ind_v,0,0,w##P#_ind/2,h##P#_ind);
+nn_optimizer_adamax_update_weights(P#_weights);
+draw(##P#_ind,P#_weights,0,0,w##P#_ind/2,h##P#_ind);
+draw(##P#_ind_m,d#P#_weights_m,0,0,w##P#_ind/2,h##P#_ind);
+draw(##P#_ind_v,d#P#_weights_v,0,0,w##P#_ind/2,h##P#_ind);
+);
+learning_mode&2?(
+d#P#_biases_m = crop(##P#_ind_m,w##P#_ind/2,0,w##P#_ind/2,h##P#_ind);
+d#P#_biases_v = crop(##P#_ind_v,w##P#_ind/2,0,w##P#_ind/2,h##P#_ind);
+nn_optimizer_adamax_update_weights(P#_biases);
+draw(##P#_ind,P#_biases,w##P#_ind/2,0,w##P#_ind/2,h##P#_ind);
+draw(##P#_ind_m,d#P#_biases_m,w##P#_ind/2,0,w##P#_ind/2,h##P#_ind);
+draw(##P#_ind_v,d#P#_biases_v,w##P#_ind/2,0,w##P#_ind/2,h##P#_ind);
+);
+);
+nn_add_init_forward(OUT,IN) = (
+const OUT#_width = IN#_width;
+const OUT#_height = IN#_height;
+const OUT#_depth = IN#_depth;
+const OUT#_spectrum = IN#_spectrum;
+);
+nn_add_forward(OUT,IN0,IN1) = (
+OUT# = IN0# + IN1#;
+);
+nn_add_backward(OUT,IN0,IN1) = (
+d#IN0 = d#IN1 = d#OUT/2;
+);
+nn_append_init_forward(OUT,IN0,IN1) = (
+const OUT#_width = IN0#_width;
+const OUT#_height = IN0#_height;
+const OUT#_depth = IN0#_depth;
+const OUT#_spectrum = IN0#_spectrum + IN1#_spectrum;
+);
+nn_append_forward(OUT,IN0,IN1) = (
+OUT# = vector(#size(IN0#) + size(IN1#));
+copy(OUT#,IN0#,size(IN0#));
+copy(OUT#[size(IN0#)],IN1#,size(IN1#));
+);
+nn_append_backward(OUT,IN0,IN1) = (
+d#IN0 = d#OUT[0,size(IN0#)];
+d#IN1 = d#OUT[size(IN0#),size(IN1#)];
+);
+nn_avgpool2d_init_forward(OUT,IN,patch_size) = (
+const OUT#_width = int(IN#_width/patch_size);
+const OUT#_height = int(IN#_height/patch_size);
+const OUT#_depth = IN#_depth;
+const OUT#_spectrum = IN#_spectrum;
+);
+nn_avgpool2d_forward(OUT,IN) = (
+OUT# = resize(IN#,
+IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,
+2);
+);
+nn_avgpool2d_backward(OUT,IN) = (
+d#IN = resize(d#OUT,
+OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,
+IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+1);
+);
+nn_avgpool3d_init_forward(OUT,IN,patch_size) = (
+const OUT#_width = int(IN#_width/patch_size);
+const OUT#_height = int(IN#_height/patch_size);
+const OUT#_depth = int(IN#_depth/patch_size);
+const OUT#_spectrum = IN#_spectrum;
+);
+nn_avgpool3d_forward(OUT,IN) = nn_avgpool2d_forward(OUT#,IN#); # Same as avgpool2d
+nn_avgpool3d_backward(OUT,IN) = nn_avgpool2d_backward(OUT#,IN#); # Same as avgpool2d
+nn_clone_init_forward(OUT0,OUT1,IN) = (
+const OUT0#_width = IN#_width;
+const OUT0#_height = IN#_height;
+const OUT0#_depth = IN#_depth;
+const OUT0#_spectrum = IN#_spectrum;
+const OUT1#_width = IN#_width;
+const OUT1#_height = IN#_height;
+const OUT1#_depth = IN#_depth;
+const OUT1#_spectrum = IN#_spectrum;
+);
+nn_clone_forward(OUT0,OUT1,IN) = (
+OUT0# = IN#;
+OUT1# = IN#;
+);
+nn_clone_backward(OUT0,OUT1,IN) = (
+d#IN = d#OUT0 + d#OUT1;
+);
+nn_conv2d_init_forward(OUT,IN,size,stride,dilation,shrink,boundary_conditions) = (
+const OUT#_ind = $OUT#;
+const OUT#_shrink = shrink;
+const OUT#_width = int(IN#_width/stride) - 2*OUT#_shrink;
+const OUT#_height = int(IN#_height/stride) - 2*OUT#_shrink;
+const OUT#_depth = IN#_depth;
+const OUT#_spectrum = h##OUT#_ind;
+const OUT#_whd = OUT#_width*OUT#_height*OUT#_depth;
+const OUT#_kernel_size = size;
+const OUT#_kernel_size2 = OUT#_kernel_size^2;
+const OUT#_kernel_center = OUT#_kernel_size - 1 - int(OUT#_kernel_size/2);
+const OUT#_stride = stride;
+const OUT#_dilation = dilation;
+const OUT#_boundary_conditions = boundary_conditions;
+OUT#_weights = crop(##OUT#_ind,0,0,w##OUT#_ind - 1,OUT#_spectrum);
+OUT#_biases = crop(##OUT#_ind,w##OUT#_ind - 1,0,1,OUT#_spectrum);
+);
+nn_conv2d_forward(OUT,IN) = (
+OUT# = convolve(IN#,
+IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+OUT#_weights,
+OUT#_kernel_size,OUT#_kernel_size,1,IN#_spectrum*OUT#_spectrum,
+OUT#_boundary_conditions,0,2,
+OUT#_kernel_center,OUT#_kernel_center,0,
+OUT#_shrink,OUT#_shrink,0,
+OUT#_width - 1 + OUT#_shrink,OUT#_height - 1 + OUT#_shrink,OUT#_depth - 1,
+OUT#_stride,OUT#_stride,1,
+OUT#_dilation,OUT#_dilation,1);
+repeat (OUT#_spectrum,_nn_k,copy(OUT#[_nn_k*OUT#_whd],OUT#_biases[_nn_k],OUT#_whd,1,0,-1)); # Add biases
+);
+nn_conv2d_init_backward(OUT,IN) = (
+batch_d#OUT#_weights = vector(#size(OUT#_weights));
+batch_d#OUT#_biases = vector(#size(OUT#_biases));
+);
+nn_conv2d_backward(OUT,IN) = (
+const OUT#_offset = -int(OUT#_shrink/OUT#_stride);
+const OUT#_invstride = 1/OUT#_stride;
+const OUT#_dons = OUT#_dilation/OUT#_stride;
+d#IN = vector(#size(IN#));
+repeat (IN#_spectrum,_nn_k,
+draw(d#IN,IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+correlate(d#OUT,
+OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,
+crop(OUT#_weights,w##OUT#_ind - 1,OUT#_spectrum,1,1,
+_nn_k*OUT#_kernel_size2,0,OUT#_kernel_size2,OUT#_spectrum),
+OUT#_kernel_size,OUT#_kernel_size,1,OUT#_spectrum,
+0,0,2,
+OUT#_kernel_center,OUT#_kernel_center,0,
+OUT#_offset,OUT#_offset,0,
+IN#_width - 1 + OUT#_offset,IN#_height - 1 + OUT#_offset,IN#_depth - 1,
+OUT#_invstride,OUT#_invstride,1,
+OUT#_dons,OUT#_dons,1),
+0,0,0,_nn_k,IN#_width,IN#_height,IN#_depth,1);
+);
+d#OUT#_biases = vector(#size(OUT#_biases));
+fill(d#OUT#_biases,_nn_k,sum(d#OUT[_nn_k*OUT#_whd,OUT#_whd]));
+batch_d#OUT#_biases+=d#OUT#_biases;
+const OUT#_dcenter = OUT#_dilation*OUT#_kernel_center;
+const OUT#_kend = OUT#_kernel_size - 1 + OUT#_offset;
+d#OUT#_weights = vector(#size(OUT#_weights));
+repeat (OUT#_spectrum,_nn_k,
+draw(d#OUT#_weights,
+OUT#_kernel_size,OUT#_kernel_size,1,OUT#_spectrum*IN#_spectrum,
+correlate(crop(d#OUT,OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,
+0,0,0,_nn_k,OUT#_width,OUT#_height,OUT#_depth,1),
+OUT#_width,OUT#_height,OUT#_depth,1,
+IN#,
+IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+0,0,1,
+OUT#_dcenter,OUT#_dcenter,0,
+OUT#_offset,OUT#_offset,0,
+OUT#_kend,OUT#_kend,0,
+OUT#_dons,OUT#_dons,1,
+OUT#_invstride,OUT#_invstride,1),
+0,0,0,_nn_k*IN#_spectrum,
+OUT#_kernel_size,OUT#_kernel_size,1,IN#_spectrum);
+);
+batch_d#OUT#_weights+=d#OUT#_weights;
+);
+nn_conv2d_end_backward(OUT) = (
+merge(batch_d#OUT#_weights,+);
+merge(batch_d#OUT#_biases,+);
+batch_d#OUT#_weights/=nn_batch_size;
+batch_d#OUT#_biases/=nn_batch_size;
+);
+nn_conv3d_init_forward(OUT,IN,size,stride,dilation,shrink,boundary_conditions) = (
+const OUT#_ind = $OUT#;
+const OUT#_shrink = shrink;
+const OUT#_width = int(IN#_width/stride) - 2*OUT#_shrink;
+const OUT#_height = int(IN#_height/stride) - 2*OUT#_shrink;
+const OUT#_depth = int(IN#_depth/stride) - 2*OUT#_shrink;
+const OUT#_spectrum = h##OUT#_ind;
+const OUT#_whd = OUT#_width*OUT#_height*OUT#_depth;
+const OUT#_kernel_size = size;
+const OUT#_kernel_size3 = OUT#_kernel_size^3;
+const OUT#_kernel_center = OUT#_kernel_size - 1 - int(OUT#_kernel_size/2);
+const OUT#_stride = stride;
+const OUT#_dilation = dilation;
+const OUT#_boundary_conditions = boundary_conditions;
+OUT#_weights = crop(##OUT#_ind,0,0,w##OUT#_ind - 1,OUT#_spectrum);
+OUT#_biases = crop(##OUT#_ind,w##OUT#_ind - 1,0,1,OUT#_spectrum);
+);
+nn_conv3d_forward(OUT,IN) = (
+OUT# = convolve(IN#,
+IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+OUT#_weights,
+OUT#_kernel_size,OUT#_kernel_size,OUT#_kernel_size,IN#_spectrum*OUT#_spectrum,
+OUT#_boundary_conditions,0,2,
+OUT#_kernel_center,OUT#_kernel_center,OUT#_kernel_center,
+OUT#_shrink,OUT#_shrink,OUT#_shrink,
+OUT#_width - 1 + OUT#_shrink,OUT#_height - 1 + OUT#_shrink,OUT#_depth - 1 + OUT#_shrink,
+OUT#_stride,OUT#_stride,OUT#_stride,
+OUT#_dilation,OUT#_dilation,OUT#_dilation);
+repeat (OUT#_spectrum,_nn_k,copy(OUT#[_nn_k*OUT#_whd],OUT#_biases[_nn_k],OUT#_whd,1,0,-1)); # Add biases
+);
+nn_conv3d_init_backward(OUT,IN) = (
+batch_d#OUT#_weights = vector(#size(OUT#_weights));
+batch_d#OUT#_biases = vector(#size(OUT#_biases));
+);
+nn_conv3d_backward(OUT,IN) = (
+const OUT#_offset = -int(OUT#_shrink/OUT#_stride);
+const OUT#_invstride = 1/OUT#_stride;
+const OUT#_dons = OUT#_dilation/OUT#_stride;
+d#IN = vector(#size(IN#));
+repeat (IN#_spectrum,_nn_k,
+draw(d#IN,IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+correlate(d#OUT,
+OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,
+crop(OUT#_weights,w##OUT#_ind - 1,OUT#_spectrum,1,1,
+_nn_k*OUT#_kernel_size3,0,OUT#_kernel_size3,OUT#_spectrum),
+OUT#_kernel_size,OUT#_kernel_size,OUT#_kernel_size,OUT#_spectrum,
+0,0,2,
+OUT#_kernel_center,OUT#_kernel_center,OUT#_kernel_center,
+OUT#_offset,OUT#_offset,OUT#_offset,
+IN#_width - 1 + OUT#_offset,IN#_height - 1 + OUT#_offset,IN#_depth - 1 + OUT#_offset,
+OUT#_invstride,OUT#_invstride,OUT#_invstride,
+OUT#_dons,OUT#_dons,OUT#_dons),
+0,0,0,_nn_k,IN#_width,IN#_height,IN#_depth,1);
+);
+d#OUT#_biases = vector(#size(OUT#_biases));
+fill(d#OUT#_biases,_nn_k,sum(d#OUT[_nn_k*OUT#_whd,OUT#_whd]));
+batch_d#OUT#_biases+=d#OUT#_biases;
+const OUT#_dcenter = OUT#_dilation*OUT#_kernel_center;
+const OUT#_kend = OUT#_kernel_size - 1 + OUT#_offset;
+d#OUT#_weights = vector(#size(OUT#_weights));
+repeat (OUT#_spectrum,_nn_k,
+draw(d#OUT#_weights,
+OUT#_kernel_size,OUT#_kernel_size,OUT#_kernel_size,OUT#_spectrum*IN#_spectrum,
+correlate(crop(d#OUT,OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,
+0,0,0,_nn_k,OUT#_width,OUT#_height,OUT#_depth,1),
+OUT#_width,OUT#_height,OUT#_depth,1,
+IN#,
+IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+0,0,1,
+OUT#_dcenter,OUT#_dcenter,OUT#_dcenter,
+OUT#_offset,OUT#_offset,OUT#_offset,
+OUT#_kend,OUT#_kend,OUT#_kend,
+OUT#_dons,OUT#_dons,OUT#_dons,
+OUT#_invstride,OUT#_invstride,OUT#_invstride),
+0,0,0,_nn_k*IN#_spectrum,
+OUT#_kernel_size,OUT#_kernel_size,OUT#_kernel_size,IN#_spectrum);
+);
+batch_d#OUT#_weights+=d#OUT#_weights;
+);
+nn_conv3d_end_backward(OUT) = (
+merge(batch_d#OUT#_weights,+);
+merge(batch_d#OUT#_biases,+);
+batch_d#OUT#_weights/=nn_batch_size;
+batch_d#OUT#_biases/=nn_batch_size;
+);
+nn_crop_init_forward(OUT,IN,x0,y0,z0,c0,x1,y1,z1,c1,boundary_conditions) = (
+const OUT#_x0 = x0;
+const OUT#_y0 = y0;
+const OUT#_z0 = z0;
+const OUT#_c0 = c0;
+const OUT#_width = abs(x1 - x0) + 1;
+const OUT#_height = abs(y1 - y0) + 1;
+const OUT#_depth = abs(z1 - z0) + 1;
+const OUT#_spectrum = abs(c1 - c0) + 1;
+const OUT#_boundary_conditions = boundary_conditions;
+);
+nn_crop_forward(OUT,IN) = (
+OUT# = crop(IN#,IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+OUT#_x0,OUT#_y0,OUT#_z0,OUT#_c0,
+OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,
+OUT#_boundary_conditions);
+);
+nn_crop_backward(OUT,IN) = (
+d#IN = crop(d#OUT,OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,
+-OUT#_x0,-OUT#_y0,-OUT#_z0,-OUT#_c0,
+IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+0);
+);
+nn_distance_init_forward(OUT,metric) = (
+const OUT#_width = 1;
+const OUT#_height = 1;
+const OUT#_depth = 1;
+const OUT#_spectrum = 1;
+const OUT#_metric = metric;
+);
+nn_distance_forward(OUT,IN0,IN1) = (
+OUT#_diff = IN0# - IN1#;
+OUT# = [ OUT#_metric>0?norm#OUT#_metric(OUT#_diff):norm(OUT#_diff)^2 ];
+);
+nn_distance_backward(OUT,IN0,IN1) = (
+!OUT_#metric?( # L2-squared
+d#IN0 = 2*OUT#_diff;
+):OUT#_metric==2?( # L2
+d#IN0 = OUT#_diff/(1e-8 + OUT#[0]);
+):(
+d#IN0 = (abs(OUT#_diff)/(1e-8 + OUT#[0]))^(OUT#_metric - 1)*sign(OUT#_diff);
+);
+d#IN1 = -d#IN0;
+);
+nn_dropout_init_forward(OUT,IN,dropout_rate) = (
+const OUT#_width = IN#_width;
+const OUT#_height = IN#_height;
+const OUT#_depth = IN#_depth;
+const OUT#_spectrum = IN#_spectrum;
+const OUT#_dropout_rate = nn_is_training?cut(dropout_rate,0,1):0;
+OUT#_dropout_rate?(
+OUT#_dropout_channels = vector(##OUT#_spectrum);
+fill(OUT#_dropout_channels,u>=OUT#_dropout_rate);
+OUT#_dropout_sum = sum(OUT#_dropout_channels);
+!OUT#_dropout_sum?(OUT#_dropout_channels = 1; OUT#_dropout_sum = size(OUT#_dropout_channels));
+OUT#_dropout_mask = resize(OUT#_dropout_channels,size(IN#),1);
+OUT#_dropout_mask*=size(OUT#_dropout_channels)/OUT#_dropout_sum;
+);
+);
+nn_dropout_forward(OUT,IN) = (
+OUT#_dropout_rate?(
+OUT# = IN#*OUT#_dropout_mask;
+):(
+ref(IN#,OUT#);
+);
+);
+nn_dropout_backward(OUT,IN) = (
+OUT#_dropout_rate?(
+d#IN = d#OUT*OUT#_dropout_mask;
+):(
+ref(d#OUT,d#IN);
+);
+);
+nn_fc_init_forward(OUT,IN) = (
+const OUT#_ind = $OUT#;
+const OUT#_width = 1;
+const OUT#_height = 1;
+const OUT#_depth = 1;
+const OUT#_spectrum = h##OUT#_ind;
+OUT#_weights = crop(##OUT#_ind,0,0,size(IN#),h##OUT#_ind);
+OUT#_biases = crop(##OUT#_ind,size(IN#),0,1,h##OUT#_ind);
+);
+nn_fc_forward(OUT,IN) = (
+OUT# = mul(OUT#_weights,IN#);
+OUT#+=OUT#_biases;
+);
+nn_fc_init_backward(OUT) = (
+batch_d#OUT#_weights = vector(#size(OUT#_weights));
+batch_d#OUT#_biases = vector(#size(OUT#_biases));
+);
+nn_fc_backward(OUT,IN) = (
+d#IN = mul(transpose(OUT#_weights,size(IN#)),d#OUT);
+d#OUT#_weights = mul(d#OUT,IN#,size(IN#));
+batch_d#OUT#_weights+=d#OUT#_weights;
+batch_d#OUT#_biases+=d#OUT;
+);
+nn_fc_end_backward(OUT) = (
+merge(batch_d#OUT#_weights,+);
+merge(batch_d#OUT#_biases,+);
+batch_d#OUT#_weights/=nn_batch_size;
+batch_d#OUT#_biases/=nn_batch_size;
+);
+nn_nlfc_init_forward(OUT,IN) = (
+const OUT#_ind = $OUT#;
+const OUT#_width = 1;
+const OUT#_height = 1;
+const OUT#_depth = 1;
+const OUT#_spectrum = h##OUT#_ind;
+OUT#_weights = crop(##OUT#_ind,0,0,size(IN#),h##OUT#_ind);
+OUT#_biases = crop(##OUT#_ind,size(IN#),0,size(IN#),h##OUT#_ind);
+);
+nn_nlfc_forward(OUT,IN,activation) = (
+OUT# = vector(##OUT#_spectrum);
+repeat(OUT#_spectrum,_nn_i,
+_nn_res = 0;
+repeat (size(IN#),_nn_j,
+_nn_off = _nn_i*size(IN#) + _nn_j;
+_nn_res+=nn_activation_#activation(OUT#_weights[_nn_off]*IN#[_nn_j] + OUT#_biases[_nn_off]);
+);
+OUT#[_nn_i] = _nn_res;
+);
+);
+nn_nlfc_init_backward(OUT) = (
+batch_d#OUT#_weights = vector(#size(OUT#_weights));
+batch_d#OUT#_biases = vector(#size(OUT#_biases));
+);
+nn_nlfc_backward(OUT,IN,activation) = (
+d#IN = vector(#size(IN#));
+repeat (size(IN#),_nn_j,
+_nn_res = _nn_off = 0;
+repeat (OUT#_spectrum,_nn_i,
+_nn_off = _nn_i*size(IN#) + _nn_j;
+_nn_Wij = OUT#_weights[_nn_off];
+_nn_res+=nn_activation_d_#activation(_nn_Wij*IN#[_nn_j] + OUT#_biases[_nn_off])*_nn_Wij*d#OUT[_nn_i];
+);
+d#IN[_nn_j] = _nn_res;
+);
+d#OUT#_weights = vector(#size(OUT#_weights));
+d#OUT#_biases = vector(#size(OUT#_biases));
+_nn_ptr = 0;
+repeat (OUT#_spectrum,_nn_i,
+repeat (size(IN#),_nn_j,
+_nn_off = _nn_i*size(IN#) + _nn_j;
+_nn_Wij = OUT#_weights[_nn_off];
+_nn_sigmad = nn_activation_d_#activation(_nn_Wij*IN#[_nn_j] + OUT#_biases[_nn_off]);
+d#OUT#_weights[_nn_ptr] = _nn_sigmad*IN#[_nn_j]*d#OUT[_nn_i];
+d#OUT#_biases[_nn_ptr] = _nn_sigmad*d#OUT#[_nn_i];
+++_nn_ptr;
+);
+);
+batch_d#OUT#_weights+=d#OUT#_weights;
+batch_d#OUT#_biases+=d#OUT#_biases;
+);
+nn_nlfc_end_backward(OUT) = (
+merge(batch_d#OUT#_weights,+);
+merge(batch_d#OUT#_biases,+);
+batch_d#OUT#_weights/=nn_batch_size;
+batch_d#OUT#_biases/=nn_batch_size;
+);
+nn_input_init_forward(OUT,w,h,d,s) = (
+const OUT#_width = w;
+const OUT#_height = h;
+const OUT#_depth = d;
+const OUT#_spectrum = s;
+);
+nn_maxpool2d_init_forward(OUT,IN,patch_size) = (
+const OUT#_width = int(IN#_width/patch_size);
+const OUT#_height = int(IN#_height/patch_size);
+const OUT#_depth = IN#_depth;
+const OUT#_spectrum = IN#_spectrum;
+const OUT#_patch_size = patch_size;
+);
+nn_maxpool2d_forward(OUT,IN) = (
+OUT# = vector(##OUT#_width*OUT#_height*OUT#_depth*OUT#_spectrum);
+OUT#_from = vector(#size(OUT#));
+_nn_off = 0;
+repeat (OUT#_spectrum,_nn_c,
+repeat (OUT#_depth,_nn_z,
+repeat (OUT#_height,_nn_y,
+_nn_yp = _nn_y*OUT#_patch_size;
+repeat (OUT#_width,_nn_x,
+OUT#_patch = crop(IN#,IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+_nn_x*OUT#_patch_size,_nn_yp,_nn_z,_nn_c,
+OUT#_patch_size,OUT#_patch_size,1,1);
+_nn_argmax = argmax(OUT#_patch);
+OUT#[_nn_off] = OUT#_patch[_nn_argmax];
+OUT#_from[_nn_off++] = _nn_argmax;
+);
+);
+);
+);
+);
+nn_maxpool2d_backward(OUT,IN) = (
+d#IN = vector(#size(IN#));
+_nn_offOUT = 0;
+repeat (OUT#_spectrum,_nn_c,
+repeat (OUT#_depth,_nn_z,
+_nn_offIN0 = IN#_width*IN#_height*(_nn_z + IN#_depth*_nn_c);
+repeat (OUT#_height,_nn_y,
+_nn_yp = _nn_y*OUT#_patch_size;
+repeat (OUT#_width,_nn_x,
+_nn_from = OUT#_from[_nn_offOUT];
+_nn_from_x = _nn_from%OUT#_patch_size;
+_nn_from_y = int(_nn_from/OUT#_patch_size);
+_nn_offIN = _nn_offIN0 + _nn_x*OUT#_patch_size + _nn_from_x + IN#_width*(_nn_yp + _nn_from_y);
+d#IN[_nn_offIN] = d#OUT[_nn_offOUT++];
+);
+);
+);
+);
+);
+nn_maxpool3d_init_forward(OUT,IN,patch_size) = (
+const OUT#_width = int(IN#_width/patch_size);
+const OUT#_height = int(IN#_height/patch_size);
+const OUT#_depth = int(IN#_depth/patch_size);
+const OUT#_spectrum = IN#_spectrum;
+const OUT#_patch_size = patch_size;
+);
+nn_maxpool3d_forward(OUT,IN) = (
+OUT# = vector(##OUT#_width*OUT#_height*OUT#_depth*OUT#_spectrum);
+OUT#_from = vector(#size(OUT#));
+_nn_off = 0;
+repeat (OUT#_spectrum,_nn_c,
+repeat (OUT#_depth,_nn_z,
+_nn_zp = _nn_z*OUT#_patch_size;
+repeat (OUT#_height,_nn_y,
+_nn_yp = _nn_y*OUT#_patch_size;
+repeat (OUT#_width,_nn_x,
+OUT#_patch = crop(IN#,IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+_nn_x*OUT#_patch_size,_nn_yp,_nn_zp,_nn_c,
+OUT#_patch_size,OUT#_patch_size,OUT#_patch_size,1);
+_nn_argmax = argmax(OUT#_patch);
+OUT#[_nn_off] = OUT#_patch[_nn_argmax];
+OUT#_from[_nn_off++] = _nn_argmax;
+);
+);
+);
+);
+);
+nn_maxpool3d_backward(OUT,IN) = (
+d#IN = vector(#size(IN#));
+_nn_offOUT = 0;
+repeat (OUT#_spectrum,_nn_c,
+_nn_offIN0 = IN#_width*IN#_height*IN#_depth*_nn_c;
+repeat (OUT#_depth,_nn_z,
+_nn_zp = _nn_z*OUT#_patch_size;
+repeat (OUT#_height,_nn_y,
+_nn_yp = _nn_y*OUT#_patch_size;
+repeat (OUT#_width,_nn_x,
+_nn_from = OUT#_from[_nn_offOUT];
+_nn_from_x = _nn_from%OUT#_patch_size;
+_nn_from_y = int(_nn_from/OUT#_patch_size)%OUT#_patch_size;
+_nn_from_z = int(_nn_from/OUT#_patch_size^2);
+_nn_offIN = _nn_offIN0 + _nn_x*OUT#_patch_size + _nn_from_x +
+IN#_width*(_nn_yp + _nn_from_y + IN#_height*(_nn_zp + _nn_from_z));
+d#IN[_nn_offIN] = d#OUT[_nn_offOUT++];
+);
+);
+);
+);
+);
+nn_mul_init_forward(OUT,IN) = (
+const OUT#_width = IN#_width;
+const OUT#_height = IN#_height;
+const OUT#_depth = IN#_depth;
+const OUT#_spectrum = IN#_spectrum;
+);
+nn_mul_forward(OUT,IN0,IN1) = (
+OUT# = IN0#*IN1#;
+);
+nn_mul_backward(OUT,IN0,IN1) = (
+d#IN0 = IN1#*d#OUT;
+d#IN1 = IN0#*d#OUT;
+);
+nn_nl_init_forward(OUT,IN) = (
+const OUT#_width = IN#_width;
+const OUT#_height = IN#_height;
+const OUT#_depth = IN#_depth;
+const OUT#_spectrum = IN#_spectrum;
+);
+nn_nl_forward(OUT,IN,activation) = (
+OUT# = vector(#size(IN#));
+fill(OUT#,_nn_k,OUT#[_nn_k] = nn_activation_#activation(IN#[_nn_k]));
+);
+nn_nl_backward(OUT,IN,activation) = (
+d#IN = vector(#size(IN#));
+fill(d#IN,_nn_k,d#OUT[_nn_k]*nn_activation_d_#activation(IN#[_nn_k]));
+);
+nn_softmax_forward(OUT,IN) = (
+OUT# = exp(IN# - max(IN#));
+OUT#/=sum(OUT#);
+);
+nn_softmax_backward(OUT,IN) = (
+d#IN = d#OUT - dot(d#OUT,OUT#);
+d#IN*=OUT#;
+);
+nn_normalize_init_forward(OUT,IN,is_channelwise) = (
+const OUT#_ind = $OUT#;
+const OUT#_width = IN#_width;
+const OUT#_height = IN#_height;
+const OUT#_depth = IN#_depth;
+const OUT#_spectrum = IN#_spectrum;
+const OUT#_is_channelwise = is_channelwise;
+OUT#_is_channelwise?( # Channel-by-channel normalization
+OUT#_alpha = crop(##OUT#_ind,0,1);
+OUT#_beta = crop(##OUT#_ind,1,1);
+OUT#_avg = crop(##OUT#_ind,2,1);
+OUT#_var = crop(##OUT#_ind,3,1);
+):(
+OUT#_alpha = i[##OUT#_ind,0];
+OUT#_beta = i[##OUT#_ind,1];
+OUT#_avg = i[##OUT#_ind,2];
+OUT#_var = i[##OUT#_ind,3];
+);
+OUT#_std = sqrt(OUT#_var);
+OUT#_std+=1e-8;
+);
+nn_normalize_forward(OUT,IN) = (
+OUT#_is_channelwise?( # Channel-by-channel normalization
+const OUT#_whd = OUT#_width*OUT#_height*OUT#_depth;
+OUT#_hat = vector(#size(IN#));
+OUT# = vector(#size(IN#));
+repeat (size(OUT#_avg),_nn_k,
+OUT#_tmp = IN#[_nn_k*OUT#_whd,OUT#_whd] - OUT#_avg[_nn_k]; # One channel of IN
+OUT#_tmp/=OUT#_std[_nn_k];
+copy(OUT#_hat[_nn_k*OUT#_whd],OUT#_tmp);
+OUT#_tmp*=OUT#_alpha[_nn_k];
+OUT#_tmp+=OUT#_beta[_nn_k];
+copy(OUT#[_nn_k*OUT#_whd],OUT#_tmp);
+);
+):(
+OUT#_hat = IN# - OUT#_avg;
+OUT#_hat/=OUT#_std;
+OUT# = OUT#_hat*OUT#_alpha;
+OUT#+=OUT#_beta;
+);
+);
+nn_normalize_init_backward(OUT) = (
+OUT#_is_channelwise?( # Channel-by-channel normalization
+batch_d#OUT#_alpha = vector(#size(OUT#_avg));
+batch_d#OUT#_beta = vector(#size(OUT#_avg));
+batch_#OUT#_avg = vector(#size(OUT#_avg));
+batch_#OUT#_var = vector(#size(OUT#_avg));
+):(
+batch_d#OUT#_alpha = batch_d#OUT#_beta = batch_#OUT#_avg = batch_#OUT#_var = 0;
+);
+);
+nn_normalize_backward(OUT,IN) = (
+OUT#_is_channelwise?( # Channel-by-channel normalization
+d#IN = vector(#size(IN#));
+repeat (size(#OUT#_avg),_nn_k,
+OUT#_tmp = d#OUT[_nn_k*OUT#_whd,OUT#_whd]; # One channel of dOUT
+copy(d#IN[_nn_k*OUT#_whd],OUT#_tmp*OUT#_alpha[_nn_k]/OUT#_std[_nn_k]);
+batch_d#OUT#_alpha[_nn_k]+=dot(OUT#_tmp,OUT#_hat[_nn_k*OUT#_whd,OUT#_whd]);
+batch_d#OUT#_beta[_nn_k]+=sum(OUT#_tmp);
+OUT#_tmp = IN#[_nn_k*OUT#_whd,OUT#_whd]; # One channel of IN
+batch_#OUT#_avg[_nn_k]+=avg(OUT#_tmp);
+batch_#OUT#_var[_nn_k]+=var(OUT#_tmp);
+);
+):(
+d#IN = d#OUT*OUT#_alpha/OUT#_std;
+batch_d#OUT#_alpha+=dot(d#OUT,OUT#_hat);
+batch_d#OUT#_beta+=sum(d#OUT);
+batch_#OUT#_avg+=avg(IN#);
+batch_#OUT#_var+=var(IN#);
+);
+);
+nn_normalize_end_backward(OUT) = (
+merge(batch_d#OUT#_alpha,+);
+merge(batch_d#OUT#_beta,+);
+merge(batch_#OUT#_avg,+);
+merge(batch_#OUT#_var,+);
+batch_d#OUT#_alpha/=nn_batch_size;
+batch_d#OUT#_beta/=nn_batch_size;
+batch_#OUT#_avg/=nn_batch_size;
+batch_#OUT#_var/=nn_batch_size;
+);
+nn_patchdown2d_init_forward(OUT,IN,patch_size) = (
+const OUT#_width = int(IN#_width/patch_size);
+const OUT#_height = int(IN#_height/patch_size);
+const OUT#_depth = IN#_depth;
+const OUT#_spectrum = IN#_spectrum*patch_size^2;
+const OUT#_patch_size = patch_size;
+);
+nn_patchdown2d_forward(OUT,IN) = (
+OUT# = vector(##OUT#_width*OUT#_height*OUT#_depth*OUT#_spectrum);
+repeat (OUT#_depth,_nn_z,
+repeat (OUT#_height,_nn_y,
+_nn_yp = _nn_y*OUT#_patch_size;
+repeat (OUT#_width,_nn_x,
+draw(OUT#,OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,
+crop(IN#,IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+_nn_x*OUT#_patch_size,_nn_yp,_nn_z,
+OUT#_patch_size,OUT#_patch_size,1),
+_nn_x,_nn_y,_nn_z,1,1,1);
+);
+);
+);
+);
+nn_patchdown2d_backward(OUT,IN) = (
+d#IN = vector(#size(IN#));
+repeat (OUT#_depth,_nn_z,
+repeat (OUT#_height,_nn_y,
+_nn_yp = _nn_y*OUT#_patch_size;
+repeat (OUT#_width,_nn_x,
+draw(d#IN#,IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+crop(d#OUT,OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,_nn_x,_nn_y,_nn_z,1,1,1),
+_nn_x*OUT#_patch_size,_nn_yp,_nn_z,
+OUT#_patch_size,OUT#_patch_size,1);
+);
+);
+);
+);
+nn_patchdown3d_init_forward(OUT,IN,patch_size) = (
+const OUT#_width = int(IN#_width/patch_size);
+const OUT#_height = int(IN#_height/patch_size);
+const OUT#_depth = int(IN#_depth/patch_size);
+const OUT#_spectrum = IN#_spectrum*patch_size^3;
+const OUT#_patch_size = patch_size;
+);
+nn_patchdown3d_forward(OUT,IN) = (
+OUT# = vector(##OUT#_width*OUT#_height*OUT#_depth*OUT#_spectrum);
+repeat (OUT#_depth,_nn_z,
+_nn_zp = _nn_z*OUT#_patch_size;
+repeat (OUT#_height,_nn_y,
+_nn_yp = _nn_y*OUT#_patch_size;
+repeat (OUT#_width,_nn_x,
+draw(OUT#,OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,
+crop(IN#,IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+_nn_x*OUT#_patch_size,_nn_yp,_nn_zp,
+OUT#_patch_size,OUT#_patch_size,OUT#_patch_size),
+_nn_x,_nn_y,_nn_z,1,1,1);
+);
+);
+);
+);
+nn_patchdown3d_backward(OUT,IN) = (
+d#IN = vector(#size(IN#));
+repeat (OUT#_depth,_nn_z,
+_nn_zp = _nn_z*OUT#_patch_size;
+repeat (OUT#_height,_nn_y,
+_nn_yp = _nn_y*OUT#_patch_size;
+repeat (OUT#_width,_nn_x,
+draw(d#IN#,IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+crop(d#OUT,OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,_nn_x,_nn_y,_nn_z,1,1,1),
+_nn_x*OUT#_patch_size,_nn_yp,_nn_zp,
+OUT#_patch_size,OUT#_patch_size,OUT#_patch_size);
+);
+);
+);
+);
+nn_patchup2d_init_forward(OUT,IN,patch_size) = (
+const OUT#_width = IN#_width*patch_size;
+const OUT#_height = IN#_height*patch_size;
+const OUT#_depth = IN#_depth;
+const OUT#_spectrum = IN#_spectrum/patch_size^2;
+const OUT#_patchsize = patch_size;
+);
+nn_patchup2d_forward(OUT,IN) = (
+OUT# = vector(##OUT#_width*OUT#_height*OUT#_depth*OUT#_spectrum);
+repeat (IN#_depth,_nn_z,
+repeat (IN#_height,_nn_y,
+_nn_yp = _nn_y*OUT#_patch_size;
+repeat (IN#_width,_nn_x,
+draw(OUT#,OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,
+crop(#IN,IN#_width,IN#_height,IN#_depth,IN#_spectrum,_nn_x,_nn_y,_nn_z,1,1,1),
+_nn_x*OUT#_patch_size,_nn_yp,_nn_z,
+OUT#_patch_size,OUT#_patch_size,1);
+);
+);
+);
+);
+nn_patchup2d_backward(OUT,IN) = (
+d#IN = vector(#size(IN#));
+repeat (IN#_depth,_nn_z,
+repeat (IN#_height,_nn_y,
+_nn_yp = _nn_y*OUT#_patch_size;
+repeat (IN#_width,_nn_x,
+draw(d#IN,IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+crop(d#OUT,OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,
+_nn_x*OUT#_patch_size,_nn_yp,_nn_z,
+OUT#_patch_size,OUT#_patch_size,1),
+_nn_x,_nn_y,_nn_z,1,1,1);
+);
+);
+);
+);
+nn_patchup3d_init_forward(OUT,IN,patch_size) = (
+const OUT#_width = IN#_width*patch_size;
+const OUT#_height = IN#_height*patch_size;
+const OUT#_depth = IN#_depth*patch_size;
+const OUT#_spectrum = IN#_spectrum/patch_size^3;
+const OUT#_patch_size = patch_size;
+);
+nn_patchup3d_forward(OUT,IN) = (
+OUT# = vector(##OUT#_width*OUT#_height*OUT#_depth*OUT#_spectrum);
+repeat (IN#_depth,_nn_z,
+_nn_zp = _nn_z*OUT#_patch_size;
+repeat (IN#_height,_nn_y,
+_nn_yp = _nn_y*OUT#_patch_size;
+repeat (IN#_width,_nn_x,
+draw(OUT#,OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,
+crop(#IN,IN#_width,IN#_height,IN#_depth,IN#_spectrum,_nn_x,_nn_y,_nn_z,1,1,1),
+_nn_x*OUT#_patch_size,_nn_yp,_nn_zp,
+OUT#_patch_size,OUT#_patch_size,OUT#_patch_size);
+);
+);
+);
+);
+nn_patchup3d_backward(OUT,IN) = (
+d#IN = vector(#size(IN#));
+repeat (IN#_depth,_nn_z,
+_nn_zp = _nn_z*OUT#_patch_size;
+repeat (IN#_height,_nn_y,
+_nn_yp = _nn_y*OUT#_patch_size;
+repeat (IN#_width,_nn_x,
+draw(d#IN,IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+crop(d#OUT,OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,
+_nn_x*OUT#_patch_size,_nn_yp,_nn_zp,
+OUT#_patch_size,OUT#_patch_size,OUT#_patch_size),
+_nn_x,_nn_y,_nn_z,1,1,1);
+);
+);
+);
+);
+nn_rename_init_forward(OUT,IN) = (
+const OUT#_width = IN#_width;
+const OUT#_height = IN#_height;
+const OUT#_depth = IN#_depth;
+const OUT#_spectrum = IN#_spectrum;
+ref(IN#,OUT#);
+);
+nn_rename_backward(OUT,IN) = (
+ref(d#OUT,d#IN);
+);
+nn_reshape_init_forward(OUT,IN,w,h,d,s) = (
+const OUT#_width = w;
+const OUT#_height = h;
+const OUT#_depth = d;
+const OUT#_spectrum = s;
+ref(IN#,OUT#);
+);
+nn_reshape_init_backward(OUT,IN) = (
+ref(d#OUT,d#IN);
+);
+nn_resize_init_forward(OUT,IN,w,h,d,s,interpolation) = (
+const OUT#_width = w;
+const OUT#_height = h;
+const OUT#_depth = d;
+const OUT#_spectrum = s;
+const OUT#_interpolation = interpolation;
+);
+nn_resize_forward(OUT,IN) = (
+OUT# = resize(IN#,
+IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,
+OUT#_interpolation);
+);
+nn_resize_backward(OUT,IN) = (
+d#IN = resize(d#OUT,
+OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,
+IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+2);
+);
+nn_run_init_forward(OUT,IN,command,w,h,d,s) = (
+const OUT#_width = w;
+const OUT#_height = h;
+const OUT#_depth = d;
+const OUT#_spectrum = s;
+OUT#_varname = 'nn_#OUT';
+OUT#_pipeline = string('l[] { $nn_#IN ',command,' k. r ',
+OUT#_width,',',OUT#_height,',',OUT#_depth,',',OUT#_spectrum,
+',3 k. store ',OUT#_varname,' }');
+);
+nn_run_forward(OUT,IN) = (
+critical(
+store('nn_#IN',IN#,IN#_width,IN#_height,IN#_depth,IN#_spectrum);
+run(OUT#_pipeline);
+OUT# = get(OUT#_varname,OUT#_width*OUT#_height*OUT#_depth*OUT#_spectrum);
+);
+);
+nn_run_backward(OUT,IN) = (
+d#IN = resize(d#OUT,
+OUT#_width,OUT#_height,OUT#_depth,OUT#_spectrum,
+IN#_width,IN#_height,IN#_depth,IN#_spectrum,
+3);
+);
+nn_split_init_forward(OUT0,OUT1,IN,nb_channels0) = (
+const OUT0#_width = IN#_width;
+const OUT0#_height = IN#_height;
+const OUT0#_depth = IN#_depth;
+const OUT0#_spectrum = nb_channels0;
+const OUT1#_width = IN#_width;
+const OUT1#_height = IN#_height;
+const OUT1#_depth = IN#_depth;
+const OUT1#_spectrum = IN#_spectrum - nb_channels0;
+);
+nn_split_forward(OUT0,OUT1,IN) = (
+const OUT0#_siz0 = OUT0#_width*OUT0#_height*OUT0#_depth*OUT0#_spectrum;
+OUT0# = IN#[0,OUT0#_siz0];
+OUT1# = IN#[OUT0#_siz0,OUT1#_width*OUT1#_height*OUT1#_depth*OUT1#_spectrum];
+);
+nn_split_backward(OUT0,OUT1,IN) = (
+d#IN = vector(#size(IN#));
+copy(d#IN,d#OUT0,size(OUT0#));
+copy(d#IN[size(OUT0#)],d#OUT1,size(OUT1#));
+);
+nn_loss_binary_crossentropy_init_forward(L) = (
+batch_#L = 0;
+);
+nn_loss_binary_crossentropy_forward(L,IN,TRUTH) = (
+L#_epsiloned = IN# + 1e-5;
+L#_epsiloned1 = 1 - IN# + 1e-5;
+L# = -sum(TRUTH*log(L#_epsiloned) + (1 - TRUTH)*log(L#_epsiloned1));
+batch_#L+=L#;
+);
+nn_loss_binary_crossentropy_end_forward(L) = (
+merge(batch_#L,+);
+batch_#L/=nn_batch_size;
+L# = batch_#L;
+);
+nn_loss_binary_crossentropy_backward(L,IN,TRUTH) = (
+d#IN = (IN# - TRUTH)/(L#_epsiloned*L#_epsiloned1);
+);
+nn_loss_crossentropy_init_forward(L) = (
+batch_#L = 0;
+);
+nn_loss_crossentropy_forward(L,IN,TRUTH) = (
+L#_epsiloned = IN# + 1e-8;
+L# = -sum(TRUTH*log(L#_epsiloned));
+batch_#L+=L#;
+);
+nn_loss_crossentropy_end_forward(L) = (
+merge(batch_#L,+);
+batch_#L/=nn_batch_size;
+L# = batch_#L;
+);
+nn_loss_crossentropy_backward(L,IN,TRUTH) = (
+d#IN = -TRUTH/L#_epsiloned;
+);
+nn_loss_mse_init_forward(L) = (
+batch_#L = 0;
+);
+nn_loss_mse_forward(L,IN,TRUTH) = (
+d#IN = IN# - TRUTH;
+L# = norm(d#IN)^2/size(d#IN);
+batch_#L+=L#;
+);
+nn_loss_mse_end_forward(L) = (
+merge(batch_#L,+);
+batch_#L/=nn_batch_size;
+L# = batch_#L;
+);
+nn_loss_mse_backward(L,IN,TRUTH) = (
+d#IN*=2;
+);
+nn_loss_normp_init_forward(L,metric) = (
+const L#_metric = metric;
+batch_#L = 0;
+);
+nn_loss_normp_forward(L,IN,TRUTH) = (
+d#IN = IN# - TRUTH;
+L# = (!L#_metric?norm(d#IN)^2:norm#L#_metric(d#IN))/size(d#IN);
+batch_#L+=L#;
+);
+nn_loss_normp_end_forward(L) = (
+merge(batch_#L,+);
+batch_#L/=nn_batch_size;
+L# = batch_#L;
+);
+nn_loss_normp_backward(L,IN,TRUTH) = (
+!L#_metric?( # L2-squared
+d#IN*=2;
+):L#_metric==2?( # L2
+d#IN/=(1e-8 + L#);
+):(
+d#IN = (abs(d#IN)/(1e-8 + L#))^(L#_metric - 1)*sign(d#IN);
+);
+);
+nn_loss_softmax_crossentropy_init_forward(L) = (
+batch_#L = 0;
+);
+nn_loss_softmax_crossentropy_forward(L,IN,TRUTH) = (
+L#_softmax = exp(IN# - max(IN#));
+L#_softmax/=sum(L#_softmax);
+L#_softmax+=1e-8;
+L# = -sum(TRUTH*log(L#_softmax));
+d#IN = L#_softmax - TRUTH;
+batch_#L+=L#;
+);
+nn_loss_softmax_crossentropy_end_forward(L) = (
+merge(batch_#L,+);
+batch_#L/=nn_batch_size;
+L# = batch_#L;
+);
+nn_loss_softmax_crossentropy_backward(L,IN,TRUTH) = (
+L#_softmax = exp(IN# - max(IN#));
+L#_softmax/=sum(L#_softmax);
+L#_softmax+=1e-8;
+L# = -sum(TRUTH*log(L#_softmax));
+d#IN = L#_softmax - TRUTH;
+batch_#L+=L#;
+);"
+#@cli nn_init
+#@cli : Initialize a new network.
+nn_init :
+e[^-1] "[nn_lib] Initialize new network."
+_nn_modules_names,_nn_modules_types,_nn_trainer_data,_nn_forward,_nn_loss,_nn_backward,_nn_update,_nn_latest=
+_nn_init="$0 "
+#@cli nn_check_layer : name
+#@cli : Check that the layer with specified name already exists in the network.
+nn_check_layer :
+if !isvarname('"$1"')
+error[0--3] "Command 'nn_check_layer': Invalid layer name '$1'."
+elif narg($_nn_$1_size)!=4
+error[0--3] "Command 'nn_check_layer': Layer with name '$1' does not exist."
+fi
+#@cli nn_add : out,in0,_in1
+#@cli : Add an 'add' layer to the network.
+#@cli : Default value: 'in1=. (previous layer)'.
+nn_add : if ['$2']=='.' in0=$_nn_latest else in0=$2 fi nn_check_layer $in0
+if ['${3=.}']=='.' in1=$_nn_latest else in1=$3 fi nn_check_layer $in1
+check "isvarname('$1') && "[${_nn_${in0}_size}]==[${_nn_${in1}_size}]
+e[^-1] "[nn_lib] Add 'add' layer '$1', with inputs '"$in0"' and '"$in1"'."
+_nn_modules_names.=$1,
+_nn_modules_types.=add,
+_nn_$1_size=${_nn_${in0}_size}
+_nn_$1_input=$in0,$in1
+_nn_forward.="begin(nn_add_init_forward($1,"$in0"));""nn_add_forward($1,"$in0","$in1");"
+_nn_backward..="nn_add_backward($1,"$in0","$in1");"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_append : out,in0,_in1
+#@cli : Add an 'append' layer to the network.
+#@cli : Default value: 'in1=. (previous layer)'.
+nn_append : if ['$2']=='.' in0=$_nn_latest else in0=$2 fi nn_check_layer $in0
+if ['${3=.}']=='.' in1=$_nn_latest else in1=$3 fi nn_check_layer $in1
+check "isvarname('$1') && "[${_nn_${in0}_size}][0,3]==[${_nn_${in1}_size}][0,3]
+e[^-1] "[nn_lib] Add 'append' layer '$1', with inputs '"$in0"' and '"$in1"'."
+_nn_modules_names.=$1,
+_nn_modules_types.=append,
+_nn_$1_size:=[${_nn_${in0}_size}]+[0,0,0,[${_nn_${in1}_size}][3]]
+_nn_$1_input=$in0,$in1
+_nn_forward.="begin(nn_append_init_forward($1,"$in0","$in1"));""nn_append_forward($1,"$in0","$in1");"
+_nn_backward..="nn_append_backward($1,"$in0","$in1");"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_avgpool2d : out,_in,_patch_size>1
+#@cli : Add a 'avgpool2d' layer (2D average pooling) to the network.
+#@cli : Default value: 'in=. (previous layer)'.
+nn_avgpool2d : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint(${3=2}) && $3>1"
+e[^-1] "[nn_lib] Add 'avgpool2d' layer '$1', with input '"$in"' and patch size $3x$3."
+_nn_modules_names.=$1,
+_nn_modules_types.=avgpool2d,
+_nn_$1_size:=s=[${_nn_${in}_size}];[int(s[0,2]/$3),s[2,2]]
+_nn_$1_input=$in
+_nn_$1_properties="patch_size=$3x$3"
+_nn_forward.="begin(nn_avgpool2d_init_forward($1,"$in",$3));""nn_avgpool2d_forward($1,"$in");"
+_nn_backward..="nn_avgpool2d_backward($1,"$in");"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_avgpool3d : out,_in,_patch_size>1
+#@cli : Add a 'avgpool3d' layer (3D average pooling) to the network.
+#@cli : Default value: 'in=. (previous layer)'.
+nn_avgpool3d : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint(${3=2}) && $3>1"
+e[^-1] "[nn_lib] Add 'avgpool3d' layer '$1', with input '"$in"' and patch size $3x$3x$3."
+_nn_modules_names.=$1,
+_nn_modules_types.=avgpool3d,
+_nn_$1_size:=s=[${_nn_${in}_size}];[int(s[0,3]/$3),s[3]]
+_nn_$1_input=$in
+_nn_$1_properties="patch_size=$3x$3x$3"
+_nn_forward.="begin(nn_avgpool3d_init_forward($1,"$in",$3));""nn_avgpool3d_forward($1,"$in");"
+_nn_backward..="nn_avgpool3d_backward($1,"$in");"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_clone : name0,name1,_in
+#@cli : Add a 'clone' layer to the network.
+#@cli : Default value: 'in=. (previous layer)'.
+nn_clone : if ['${3=.}']=='.' in=$_nn_latest else in=$3 fi nn_check_layer $in
+check "isvarname('$1') && isvarname('$2')"
+e[^-1] "[nn_lib] Add 'clone' layer with input '"$in"' and outputs '$1' and '$2'."
+_nn_modules_names.=$1,$2,
+_nn_modules_types.=clone,clone,
+_nn_$1_size=${_nn_${in}_size}
+_nn_$2_size=${_nn_${in}_size}
+_nn_$1_input,_nn_$2_input=$in
+_nn_forward.="begin(nn_clone_init_forward($1,$2,"$in"));""nn_clone_forward($1,$2,"$in");"
+_nn_backward..="nn_clone_backward($1,$2,"$in");"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_conv2d : out,in,nb_channels>0,_kernel_size>0,_stride>0,_dilation,_border_shrink>=0,_boundary_conditions,0<=_learning_mode<=3
+#@cli : Add a 'conv2d' layer (2D convolutional layer) to the network.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default values: 'kernel_size=3', 'stride=1', 'dilation=1', 'border_shrink=0', 'boundary_conditions=1' and 'learning_mode=3'.
+nn_conv2d : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint($3) && $3>0 && isint(${4=3}) && $4>0 && ""${5=1}>0 && isint(${7=0}) && $7>=0 && ""isint(${8=1}) && inrange($8,0,3) && isint(${9=3}) && inrange($9,0,3)" skip "${6=1}"
+s0,s1,s2,s3=dirichlet,neumann,periodic,mirror
+e[^-1] "[nn_lib] Add 'conv2d' layer '$1', with input '"$in"', $3 channels, $4x$4 kernels, stride $5, dilation $6, ""border shrink $7 and "$s$8" boundary conditions."
+init=$_nn_init
+_nn_conv2d $1_conv2d,$in,${3-9}
+nn_rename $1,$1_conv2d
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+_nn_conv2d :
+_nn_modules_names.=$1,
+_nn_modules_types.=conv2d,
+_nn_$1_size:=s=[$_nn_$2_size];[int(s[0,2]/$5)-2*$7,s[2],$3]
+_nn_$1_learning_mode=$9
+_nn_$1_input=$2
+s0,s1,s2,s3=dirichlet,neumann,periodic,mirror
+_nn_$1_properties="kernel=$4x$4, stride=$5, dilation=$6, border_shrink=$7, boundary_conditions="$s$8", ""learning_mode=$9"
+if !isint($$1)
+{[$_nn_$2_size][3]*$4^2+1},$3,1,1,4*g/(w-1)
+if $9<2 1,100% j.. .,100% rm. fi
+=> $1
+fi
+_nn_forward.="begin(nn_conv2d_init_forward($1,$2,${4-8}));""nn_conv2d_forward($1,$2);"
+_nn_backward..="begin(nn_conv2d_init_backward($1,$2));""nn_conv2d_backward($1,$2);""end(nn_conv2d_end_backward($1));"
+_nn_init.="$0 $* "
+#@cli nn_conv2dnl : out,in,nb_channels>0,_kernel_size>0,_stride>0,_dilation>0,_border_shrink>=0,_boundary_conditions,_activation,0<=_learning_mode<=3
+#@cli : Add a 'conv2dnl' (2D convolutional layer followed by a non-linearity) to the network.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default values: 'kernel_size=3', 'stride=1', 'dilation=1', 'border_shrink=0', 'boundary_conditions=1', 'activation=leakyrelu' and 'learning_mode=3'.
+nn_conv2dnl : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint($3) && $3>0 && isint(${4=3}) && $4>0 && ${5=1}>0 && ""isint(${7=0}) && $7>=0 && isint(${8=1}) && inrange($8,0,3) && isint(${10=3}) && inrange($10,0,3)"
+skip "${6=1}","${9=leakyrelu}"
+s0,s1,s2,s3=dirichlet,neumann,periodic,mirror
+e[^-1] "[nn_lib] Add 'conv2d+nl' layer '$1', with input '"$in"', $3 channels, $4x$4 kernels, ""stride $5, dilation $6, border shrink $7, "$s$8" boundary conditions and '$9' activation."
+init=$_nn_init
+_nn_conv2d $1_conv2d,$in,${3-8},$10
+nn_nl $1,$1_conv2d,$9
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+#@cli nn_conv2dnnl : out,in,nb_channels>0,_kernel_size>0,_stride>0,_dilation>0,_border_shrink>=0,_boundary_conditions,_activation,0<=_learning_mode<=3
+#@cli : Add a 'conv2dnnl' (2D convolutional layer followed by a normalization layer, then a non-linearity) to the network.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default values: 'kernel_size=3', 'stride=1', 'dilation=1', 'border_shrink=0', 'boundary_conditions=1', 'activation=leakyrelu' and 'learning_mode=3'.
+nn_conv2dnnl : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint($3) && $3>0 && isint(${4=3}) && $4>0 && ${5=1}>0 && ""isint(${7=0}) && $7>=0 && isint(${8=1}) && inrange($8,0,3) && isint(${10=3}) && inrange($10,0,3)"
+skip "${6=1}","${9=leakyrelu}"
+s0,s1,s2,s3=dirichlet,neumann,periodic,mirror
+e[^-1] "[nn_lib] Add 'conv2d+normalize+nl' layer '$1', with input '"$in"', $3 channels, $4x$4 kernels, ""stride $5, dilation $6, border shrink $7, "$s$8" boundary conditions and '$9' activation."
+init=$_nn_init
+_nn_conv2d $1_conv2d,$in,${3-8},$10
+_nn_normalize $1_normalize,$1_conv2d,1,3
+nn_nl $1,$1_normalize,$9
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+#@cli nn_conv3d : out,in,nb_channels>0,_kernel_size>0,_stride>0,_dilation,_border_shrink>=0,_boundary_conditions,0<=_learning_mode<=3
+#@cli : Add a 'conv3d' layer (3D convolutional layer) to the network.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default values: 'kernel_size=3', 'stride=1', 'dilation=1', 'border_shrink=0', 'boundary_conditions=1' and 'learning_mode=3'.
+nn_conv3d : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint($3) && $3>0 && isint(${4=3}) && $4>0 && ""${5=1}>0 && isint(${7=0}) && $7>=0 && ""isint(${8=1}) && inrange($8,0,3) && isint(${9=3}) && inrange($9,0,3)" skip "${6=1}"
+s0,s1,s2,s3=dirichlet,neumann,periodic,mirror
+e[^-1] "[nn_lib] Add 'conv3d' layer '$1', with input '"$in"', $3 channels, $4x$4x$4 kernels, stride $5, ""dilation $6, border shrink $7 and "$s$8" boundary conditions."
+init=$_nn_init
+_nn_conv3d $1_conv3d,$in,${3-9}
+nn_rename $1,$1_conv3d
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+_nn_conv3d :
+_nn_modules_names.=$1,
+_nn_modules_types.=conv3d,
+_nn_$1_size:=s=[$_nn_$2_size];[int(s[0,3]/$5)-2*$7,$3]
+_nn_$1_learning_mode=$9
+_nn_$1_input=$2
+s0,s1,s2,s3=dirichlet,neumann,periodic,mirror
+_nn_$1_properties="kernel=$4x$4x$4, stride=$5, dilation=$6, border_shrink=$7, boundary_conditions="$s$8", ""learning_mode=$9"
+if !isint($$1)
+{[$_nn_$2_size][3]*$4^3+1},$3,1,1,4*g/(w-1)
+if $9<2 1,100% j.. .,100% rm. fi
+=> $1
+fi
+_nn_forward.="begin(nn_conv3d_init_forward($1,$2,${4-8}));""nn_conv3d_forward($1,$2);"
+_nn_backward..="begin(nn_conv3d_init_backward($1,$2));""nn_conv3d_backward($1,$2);""end(nn_conv3d_end_backward($1));"
+_nn_init.="$0 $* "
+#@cli nn_conv3dnl : out,in,nb_channels>0,_kernel_size>0,_stride>0,_dilation>0,_border_shrink>=0,_boundary_conditions,_activation,0<=_learning_mode<=3
+#@cli : Add a 'conv3dnl' (3D convolutional layer followed by a non-linearity) to the network.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default values: 'kernel_size=3', 'stride=1', 'dilation=1', 'border_shrink=0', 'boundary_conditions=1', 'activation=leakyrelu' and 'learning_mode=3'.
+nn_conv3dnl : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint($3) && $3>0 && isint(${4=3}) && $4>0 && ${5=1}>0 && ""isint(${7=0}) && $7>=0 && isint(${8=1}) && inrange($8,0,3) && isint(${10=3}) && inrange($10,0,3)"
+skip "${6=1}","${9=leakyrelu}"
+s0,s1,s2,s3=dirichlet,neumann,periodic,mirror
+e[^-1] "[nn_lib] Add 'conv3d+nl' layer '$1', with input '"$in"', $3 channels, $4x$4x$4 kernels, ""stride $5, dilation $6, border shrink $7, "$s$8" boundary conditions and '$9' activation."
+init=$_nn_init
+_nn_conv3d $1_conv3d,$in,${3-8},$10
+nn_nl $1,$1_conv3d,$9
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+#@cli nn_conv3dnnl : out,in,nb_channels>0,_kernel_size>0,_stride>0,_dilation>0,_border_shrink>=0,_boundary_conditions,_activation,0<=_learning_mode<=3
+#@cli : Add a 'conv3dnnl' (3D convolutional layer followed by a normalization layer, then a non-linearity) to the network.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default values: 'kernel_size=3', 'stride=1', 'dilation=1', 'border_shrink=0', 'boundary_conditions=1', 'activation=leakyrelu' and 'learning_mode=3'.
+nn_conv3dnnl : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint($3) && $3>0 && isint(${4=3}) && $4>0 && ${5=1}>0 && ""isint(${7=0}) && $7>=0 && isint(${8=1}) && inrange($8,0,3) && isint(${10=3}) && inrange($10,0,3)"
+skip "${6=1}","${9=leakyrelu}"
+s0,s1,s2,s3=dirichlet,neumann,periodic,mirror
+e[^-1] "[nn_lib] Add 'conv3d+normalize+nl' layer '$1', with input '"$in"', $3 channels, $4x$4x$4 kernels, ""stride $5, dilation $6, border shrink $7, "$s$8" boundary conditions and '$9' activation."
+init=$_nn_init
+_nn_conv3d $1_conv3d,$in,${3-8},$10
+_nn_normalize $1_normalize,$1_conv3d,1,3
+nn_nl $1,$1_normalize,$9
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+#@cli nn_crop : out,in,x0,y0,z0,c0,x1,y1,z1,c1,_boundary_conditions
+#@cli : Add a 'crop' layer to the network.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default value: 'boundary_conditions=0'.
+nn_crop : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "inrange(${11=0},0,3) && min(isint([${3-11}]))"
+s0,s1,s2,s3=dirichlet,neumann,periodic,mirror
+e[^1] "[nn_lin] Add 'crop' layer '$1', with input '"$in"', coordinates (${3-6})-(${7-10}) and "$s$11" boundary conditions."
+_nn_modules_names.=$1,
+_nn_modules_types.=crop,
+cmin={vmin([${3-6}],[${7-10}])}
+cmax={vmax([${3-6}],[${7-10}])}
+_nn_$1_size={[[$cmax]-[$cmin]+1]}
+_nn_$1_input=$in
+_nn_$1_properties="coordinates=(${3-6})x(${7-10})"
+_nn_forward.="begin(nn_crop_init_forward($1,"$in",${3-11}));""nn_crop_forward($1,"$in");"
+_nn_backward..="nn_crop_backward($1,"$in");"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_distance : out,in0,_in1,_metric={ 0=squared-L2 | p>0 = Lp-norm }
+#@cli : Add a 'distance' layer to the network (distance between two inputs, with specified metric).
+#@cli : Default value: 'in=. (previous layer)',
+nn_distance : if ['$2']=='.' in0=$_nn_latest else in0=$2 fi nn_check_layer $in0
+if ['${3=.}']=='.' in1=$_nn_latest else in1=$3 fi nn_check_layer $in1
+check "isvarname('$1') && ${4=0}>=0 && "[${_nn_${in0}_size}]==[${_nn_${in1}_size}]
+s0,s1="squared-L2 norm","L$4"
+e[^-1] "[nn_lib] Add 'distance' layer '$1' ("${s{$4>0}}"), with inputs '"$in0"' and '"$in1"'."
+_nn_modules_names.=$1,
+_nn_modules_types.=distance,
+_nn_$1_size=1,1,1,1
+_nn_$1_input=$in0,$in1
+_nn_$1_properties="metric="${s{$4>0}}
+_nn_forward.="begin(nn_distance_init_forward($1,$4));""nn_distance_forward($1,"$in0","$in1");"
+_nn_backward..="nn_distance_backward($1,"$in0","$in1");"
+_nn_init.="$0 $*"
+_nn_latest=$1
+#@cli nn_dropout : out,in,0<=dropout_rate<1
+#@cli : Add a 'dropout' layer to the network.
+nn_dropout : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && inrange($3,0,1,1,0)"
+e[^-1] "[nn_lib] Add 'dropout' layer '$1', with input '"$in"' and dropout rate $3."
+_nn_modules_names.=$1,
+_nn_modules_types.=dropout,
+_nn_$1_size=${_nn_${in}_size}
+_nn_$1_input=$in
+_nn_$1_properties="dropout_rate=$3"
+_nn_forward.="begin(nn_dropout_init_forward($1,"$in",$3));""nn_dropout_forward($1,"$in");"
+_nn_backward..="nn_dropout_backward($1,"$in");"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_fc : out,in,nb_channels>0,0<=_learning_mode<=3
+#@cli : Add a 'fc' layer (fully connected layer) to the network.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default value: 'learning_mode=3'.
+nn_fc : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint($3) && $3>0 && isint(${4=3}) && inrange($4,0,3)"
+e[^-1] "[nn_lib] Add 'fc' layer '$1', with input '"$in"' and $3 channels."
+init=$_nn_init
+_nn_fc $1_fc,$in,${3-4}
+nn_rename $1,$1_fc
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+_nn_fc :
+_nn_modules_names.=$1,
+_nn_modules_types.=fc,
+_nn_$1_size=1,1,1,$3
+_nn_$1_learning_mode=$4
+_nn_$1_input=$2
+_nn_$1_properties="learning_mode=$4"
+if !isint($$1)
+{prod($_nn_$2_size)+1},$3
+f. 4*g/(w-1)
+if $4<2 1,100% j.. .,100% rm. fi
+=> $1
+fi
+_nn_forward.="begin(nn_fc_init_forward($1,$2));""nn_fc_forward($1,$2);"
+_nn_backward..="begin(nn_fc_init_backward($1));""nn_fc_backward($1,$2);""end(nn_fc_end_backward($1));"
+_nn_init.="$0 $* "
+#@cli nn_nlfc : out,in,nb_channels>0,_activation,0<=_learning_mode<=3
+#@cli : Add a 'nlfc' layer (nonlinear fully connected layer) to the network.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default values: 'activation=leakyrelu' and 'learning_mode=3'.
+nn_nlfc : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint($3) && $3>0 && isint(${5=3}) && inrange($5,0,3)"
+skip ${4=leakyrelu}
+e[^-1] "[nn_lib] Add 'nlfc' layer '$1', with input '"$in"', $3 channels and '$4' activation."
+init=$_nn_init
+_nn_nlfc $1_nlfc,$in,${3-5}
+nn_rename $1,$1_nlfc
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+_nn_nlfc :
+_nn_modules_names.=$1,
+_nn_modules_types.=nlfc,
+_nn_$1_size=1,1,1,$3
+_nn_$1_learning_mode=$5
+_nn_$1_input=$2
+_nn_$1_properties="activation=$4, learning_mode=$5"
+if !isint($$1)
+{2*prod($_nn_$2_size)},$3
+f. 4*g/(w-1)
+if $5<2 50%,100% j.. .,50% rm. fi
+=> $1
+fi
+_nn_forward.="begin(nn_nlfc_init_forward($1,$2));""nn_nlfc_forward($1,$2,$4);"
+_nn_backward..="begin(nn_nlfc_init_backward($1));""nn_nlfc_backward($1,$2,$4);""end(nn_nlfc_end_backward($1));"
+_nn_init.="$0 $* "
+#@cli nn_fcnl : out,in,nb_neurons>0,_activation,0<=_learning_mode<=3
+#@cli : Add a 'fcnl' layer (fully connected layer followed by a non-linearity) to the network.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default values: 'activation=leakyrelu' and 'learning_mode=3'.
+nn_fcnl : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint($3) && $3>0 && isint(${5=3}) && inrange($5,0,3)"
+skip ${4=leakyrelu}
+e[^-1] "[nn_lib] Add 'fc+nl' layer '$1' to the network, with input '"$in"', $3 channels and '$4' activation."
+init=$_nn_init
+_nn_fc $1_fc,$in,$3,$5
+nn_nl $1,$1_fc,$4
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+#@cli nn_fcnnl : out,in,nb_neurons>0,_activation,0<=_learning_mode<=3
+#@cli : Add a 'fcnnl' layer (fully connected layer followed by a normalization layer, then a non-linearity) to the network.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default values: 'activation=leakyrelu' and 'learning_mode=3'.
+nn_fcnnl : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint($3) && $3>0 && isint(${5=3})"
+skip ${4=leakyrelu}
+e[^-1] "[nn_lib] Add 'fc+normalize+nl' layer '$1' to the network, with input '"$in"', $3 channels ""and '$4' activation."
+init=$_nn_init
+_nn_fc $1_fc,$in,$3,$5
+_nn_normalize $1_normalize,$1_fc,0,3
+nn_nl $1,$1_normalize,$4
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+#@cli nn_input : name,width,_height,_depth,_spectrum
+#@cli : Add a new 'input' to the network.
+#@cli : Default values: 'height=1', 'depth=1' and 'spectrum=1'.
+nn_input : check "isvarname('$1') && isint($2) && $2>0 && isint(${3=1}) && $3>0 && isint(${4=1}) && $4>0 && ""isint(${5=1}) && $5>0"
+e[^-1] "[nn_lib] Add input '$1', with size ($2,$3,$4,$5)."
+_nn_modules_names.=$1,
+_nn_modules_types.=input,
+_nn_$1_size=$2,$3,$4,$5
+_nn_forward.="begin(nn_input_init_forward($1,$2,$3,$4,$5));"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_maxpool2d : out,_in,_patch_size>1
+#@cli : Add a 'maxpool2d' layer (2D max pooling) to the network.
+#@cli : Default values: 'in=. (previous layer)' and 'patch_size=2'.
+nn_maxpool2d : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint(${3=2}) && $3>1"
+e[^-1] "[nn_lib] Add 'maxpool2d' layer '$1', with input '"$in"' and patch size $3x$3."
+_nn_modules_names.=$1,
+_nn_modules_types.=maxpool2d,
+_nn_$1_size:=s=[${_nn_${in}_size}];[int(s[0,2]/$3),s[2,2]]
+_nn_$1_input=$in
+_nn_$1_properties="patch_size=$3x$3"
+_nn_forward.="begin(nn_maxpool2d_init_forward($1,"$in",$3));""nn_maxpool2d_forward($1,"$in");"
+_nn_backward..="nn_maxpool2d_backward($1,"$in");"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_maxpool3d : out,_in,_patch_size>1
+#@cli : Add a 'maxpool3d' layer (3d max pooling) to the network.
+#@cli : Default values: 'in=. (previous layer)' and 'patch_size=2'.
+nn_maxpool3d : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint(${3=2}) && $3>1"
+e[^-1] "[nn_lib] Add 'maxpool3d' layer '$1', with input '"$in"' and patch size $3x$3x$3."
+_nn_modules_names.=$1,
+_nn_modules_types.=maxpool3d,
+_nn_$1_size:=s=[${_nn_${in}_size}];[int(s[0,3]/$3),s[3]]
+_nn_$1_input=$in
+_nn_$1_properties="patch_size=$3x$3x$3"
+_nn_forward.="begin(nn_maxpool3d_init_forward($1,"$in",$3));""nn_maxpool3d_forward($1,"$in");"
+_nn_backward..="nn_maxpool3d_backward($1,"$in");"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_mul : out,in0,_in1
+#@cli : Add an 'mul' layer to the network.
+#@cli : Default value: 'in1=. (previous layer)'.
+nn_mul : if ['$2']=='.' in0=$_nn_latest else in0=$2 fi nn_check_layer $in0
+if ['${3=.}']=='.' in1=$_nn_latest else in1=$3 fi nn_check_layer $in1
+check "isvarname('$1') && "[${_nn_${in0}_size}]==[${_nn_${in1}_size}]
+e[^-1] "[nn_lib] Add 'mul' layer '$1', with inputs '"$in0"' and '"$in1"'."
+_nn_modules_names.=$1,
+_nn_modules_types.=mul,
+_nn_$1_size=${_nn_${in0}_size}
+_nn_$1_input=$in0,$in1
+_nn_forward.="begin(nn_mul_init_forward($1,"$in0"));""nn_mul_forward($1,"$in0","$in1");"
+_nn_backward..="nn_mul_backward($1,"$in0","$in1");"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_nl : out,_in,_activation
+#@cli : Add a 'nl' (nonlinearity) layer to the network.
+#@cli : 'activation' can be { elu | gelu | leakyrelu | linear | relu | sigmoid | sin | sinc | softmax | sqr | sqrt | swish | tanh }.
+#@cli : Default values: 'in=. (previous layer)' and 'activation=leakyrelu'.
+nn_nl : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1')"
+skip ${3=leakyrelu}
+e[^-1] "[nn_lib] Add 'nl' layer '$1', with input '"$in"' and '$3' activation."
+_nn_modules_names.=$1,
+_nn_modules_types.=nl,
+_nn_$1_size=${_nn_${in}_size}
+_nn_$1_input=$in
+_nn_$1_properties="activation=$3"
+_nn_forward.="begin(nn_nl_init_forward($1,"$in"));"
+if s=['$3'];s=='softmax'
+_nn_forward.="nn_$3_forward($1,"$in");"
+_nn_backward..="nn_$3_backward($1,"$in");"
+else
+_nn_forward.="nn_nl_forward($1,"$in",$3);"
+_nn_backward..="nn_nl_backward($1,"$in",$3);"
+fi
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_normalize : out,_in,_normalization_mode_,0<=_learning_mode<=3
+#@cli : Add a 'normalize' layer to the network.
+#@cli : 'normalization_mode' can be { 0=global parameters | 1=channel-by-channel parameters }
+#@cli : 'learning_mode' can be { 0=no learning | 1=alpha only | 2=beta only | 3=alpha+beta }
+#@cli : Default values: 'in=. (previous layer)','normalization_mode=0' and 'learning_mode=3'.
+nn_normalize : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isbool(${3=0}) && isint(${4=3}) && inrange($4,0,3)"
+s0,s1=global,channel-by-channel
+e[^-1] "[nn_lib] Add 'normalize' layer '$1', with input '"$in"' and "${s$3}" normalization."
+_nn_normalize $1_normalize,$in,${3-4}
+nn_rename $1,$1_normalize
+_nn_latest=$1
+_nn_normalize :
+s0,s1=global,channel-by-channel
+_nn_modules_names.=$1,
+_nn_modules_types.=normalize,
+_nn_$1_size=$_nn_$2_size
+_nn_$1_learning_mode=$4
+_nn_$1_input=$2
+_nn_$1_properties="normalization="${s$3}", learning_mode=$4"
+if !isint($$1)
+(1,0,0,1)
+if $3 r. 100%,{[$_nn_$2_size][3]} fi
+=> $1
+fi
+_nn_forward.="begin(nn_normalize_init_forward($1,$2,$3));""nn_normalize_forward($1,$2);"
+_nn_backward..="begin(nn_normalize_init_backward($1));""nn_normalize_backward($1,$2);""end(nn_normalize_end_backward($1));"
+_nn_init.="$0 $* "
+#@cli nn_patchdown2d : out,_in,_patch_size>1
+#@cli : Add a 'patchdown2d' (2D downscale by patch) layer to the network.
+#@cli : Default values: 'in=. (previous layer)' and 'patch_size=2'.
+nn_patchdown2d : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint(${3=2}) && $3>1"
+e[^-1] "[nn_lib] Add 'patchdown2d' layer '$1', with input '"$in"' and patch size $3x$3."
+_nn_modules_names.=$1,
+_nn_modules_types.=patchdown2d,
+_nn_$1_size:=s=[${_nn_${in}_size}];[int(s[0,2]/$3),s[2],s[3]*$3^2]
+_nn_$1_input=$in
+_nn_$1_properties="patch_size=$3x$3"
+if !min($_nn_$1_size)
+error[0--3] "Command 'nn_patchdown2d': Specified patch size ($3x$3) is higher than ""input size ("${_nn_${in}_size}")."
+fi
+_nn_forward.="begin(nn_patchdown2d_init_forward($1,"$in",$3));""nn_patchdown2d_forward($1,"$in");"
+_nn_backward..="nn_patchdown2d_backward($1,"$in");"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_patchdown3d : out,_in,_patch_size>1
+#@cli : Add a 'patchdown3d' (3D downscale by patch) layer to the network.
+#@cli : Default values: 'in=. (previous layer)' and 'patch_size=2'.
+nn_patchdown3d : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint(${3=2}) && $3>1"
+e[^-1] "[nn_lib] Add 'patchdown3d' layer '$1', with input '"$in"' and patch size $3x$3x$3."
+_nn_modules_names.=$1,
+_nn_modules_types.=patchdown3d,
+_nn_$1_size:=s=[${_nn_${in}_size}];[int(s[0,3]/$3),s[3]*$3^3]
+_nn_$1_input=$in
+_nn_$1_properties="patch_size=$3x$3x$3"
+if !min($_nn_$1_size)
+error[0--3] "Command 'nn_patchdown3d': Specified patch size ($3x$3x$3) is higher than ""input size ("${_nn_${in}_size}")."
+fi
+_nn_forward.="begin(nn_patchdown3d_init_forward($1,"$in",$3));""nn_patchdown3d_forward($1,"$in");"
+_nn_backward..="nn_patchdown3d_backward($1,"$in");"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_patchup2d : out,_in,_patch_size>1
+#@cli : Add a 'patchup2d' (2D upscale by patch) layer to the network.
+#@cli : Default values: 'in=. (previous layer)' and 'patch_size=2'.
+nn_patchup2d : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint(${3=2}) && $3>1"
+e[^-1] "[nn_lib] Add 'patchup2d' layer '$1', with input '"$in"' and patch size $3x$3."
+_nn_modules_names.=$1,
+_nn_modules_types.=patchup2d,
+_nn_$1_size:=s=[${_nn_${in}_size}];[int(s[0,2]*$3),s[2],s[3]/$3^2]
+_nn_$1_input=$in
+_nn_$1_properties="patch_size=$3x$3"
+_nn_forward.="begin(nn_patchup2d_init_forward($1,"$in",$3));""nn_patchup2d_forward($1,"$in");"
+_nn_backward..="nn_patchup2d_backward($1,"$in");"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_patchup3d : out,_in,_patch_size>1
+#@cli : Add a 'patchup3d' (3D upscale by patch) layer to the network.
+#@cli : Default values: 'in=. (previous layer)' and 'patch_size=2'.
+nn_patchup3d : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint(${3=2}) && $3>1"
+e[^-1] "[nn_lib] Add 'patchup3d' layer '$1', with input '"$in"' and patch size $3x$3x$3."
+_nn_modules_names.=$1,
+_nn_modules_types.=patchup3d,
+_nn_$1_size:=s=[${_nn_${in}_size}];[int(s[0,3]*$3),s[3]/$3^3]
+_nn_$1_input=$in
+_nn_$1_properties="patch_size=$3x$3x$3"
+_nn_forward.="begin(nn_patchup3d_init_forward($1,"$in",$3));""nn_patchup3d_forward($1,"$in");"
+_nn_backward..="nn_patchup3d_backward($1,"$in");"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_rename : out,_in
+#@cli : Add a 'rename' layer to the network.
+#@cli : Default value: 'in=. (previous layer)'.
+nn_rename : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1')"
+e[^-1] "[nn_lib] Add 'rename' layer '$1', with input '"$in"'."
+_nn_modules_names.=$1,
+_nn_modules_types.=rename,
+_nn_$1_size=${_nn_${in}_size}
+_nn_$1_input=$in
+_nn_forward.="begin(nn_rename_init_forward($1,"$in"));"
+_nn_backward..="nn_rename_backward($1,"$in");"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_resconv2d : out,_in,_kernel_size>0,_dilation>0,_boundary_conditions,0<=_learning_mode<=3
+#@cli : Add a 'resconv2d' (residual 2D convolutional layer) to the network.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default values: 'in=. (previous layer)', 'kernel_size=3', 'dilation=1', 'boundary_conditions=1' and 'learning_mode=3'.
+nn_resconv2d : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint(${3=3}) && $3>0 && isint(${5=1}) && inrange($5,0,3) && ""isint(${6=3}) && inrange($6,0,3)"
+skip "${4=1}"
+s0,s1,s2,s3=dirichlet,neumann,periodic,mirror
+e[^-1] "[nn_lib] Add 'resconv2d' layer '$1', with input '"$in"', $3x$3 kernels, dilation $4 and "$s$5" boundary conditions."
+init=$_nn_init
+nn_clone $1_clone0,$1_clone1,$in
+_nn_conv2d $1_conv2d,$1_clone1,{[${_nn_${in}_size}][3]},$3,1,$4,0,$5,$6
+nn_add $1,$1_conv2d,$1_clone0
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+#@cli nn_resconv2dnl : out,_in,_kernel_size>0,_dilation>0,_boundary_conditions,_activation,0<=_learning_mode<=3
+#@cli : Add a 'resconv2dnl' (residual 2D convolutional layer followed by a non-linearity) to the network.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default values: 'in=. (previous layer)', 'kernel_size=3', 'dilation=1', 'boundary_conditions=1', 'activation=leakyrelu' and 'learning_mode=3'.
+nn_resconv2dnl : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint(${3=3}) && $3>0 && isint(${5=1}) && inrange($5,0,3) && ""isint(${7=3}) && inrange($7,0,3)"
+skip "${4=1}","${6=leakyrelu}"
+s0,s1,s2,s3=dirichlet,neumann,periodic,mirror
+e[^-1] "[nn_lib] Add 'resconv2dnl' layer '$1', with input '"$in"', $3x$3 kernels, dilation $4, "$s$5" boundary conditions and '$6' activation."
+init=$_nn_init
+nn_clone $1_clone0,$1_clone1,$in
+_nn_conv2d $1_conv2d,$1_clone1,{[${_nn_${in}_size}][3]},$3,1,$4,0,$5,$7
+nn_add $1_add,$1_conv2d,$1_clone0
+nn_nl $1,$1_add,$6
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+#@cli nn_resconv2dnnl : out,_in,_kernel_size>0,_dilation>0,_boundary_conditions,_activation,0<=_learning_mode<=3
+#@cli : Add a 'resconv2dnnl' (residual 2D convolutional layer followed by a normalization layer, then a non-linearity)to the network.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default values: 'in=. (previous layer)', 'kernel_size=3', 'dilation=1', 'boundary_conditions=1', 'activation=leakyrelu' and 'learning_mode=3'.
+nn_resconv2dnnl : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint(${3=3}) && $3>0 && isint(${5=1}) && inrange($5,0,3) && ""isint(${7=3}) && inrange($7,0,3)"
+skip "${4=1}","${6=leakyrelu}"
+s0,s1,s2,s3=dirichlet,neumann,periodic,mirror
+e[^-1] "[nn_lib] Add 'resconv2dnnl' layer '$1', with input '"$in"', $3x$3 kernels, dilation $4, "$s$5" boundary conditions and '$6' activation."
+init=$_nn_init
+nn_clone $1_clone0,$1_clone1,$in
+_nn_conv2d $1_conv2d,$1_clone1,{[${_nn_${in}_size}][3]},$3,1,$4,0,$5,$7
+_nn_normalize $1_normalize,$1_conv2d,1,3
+nn_add $1_add,$1_normalize,$1_clone0
+nn_nl $1,$1_add,$6
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+#@cli nn_resconv3d : out,_in,_kernel_size>0,_dilation>0,_boundary_conditions,0<=_learning_mode<=3
+#@cli : Add a 'resconv3d' (residual 3D convolutional layer) to the network.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default values: 'in=. (previous layer)', 'kernel_size=3', 'dilation=1', 'boundary_conditions=1' and 'learning_mode=3'.
+nn_resconv3d : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint(${3=3}) && $3>0 && isint(${5=1}) && inrange($5,0,3) && ""isint(${6=3}) && inrange($6,0,3)"
+skip "${4=1}"
+e[^-1] "[nn_lib] Add 'resconv3d' layer '$1', with input '"$in"', $3x$3x$3 kernels, dilation $4 and "$s$5" boundary conditions."
+init=$_nn_init
+nn_clone $1_clone0,$1_clone1,$in
+_nn_conv3d $1_conv3d,$1_clone1,{[${_nn_${in}_size}][3]},$3,1,$4,0,$5,$6
+nn_add $1,$1_conv3d,$1_clone0
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+#@cli nn_resconv3dnl : out,_in,_kernel_size>0,_dilation>0,_boundary_conditions,_activation,0<=_learning_mode<=3
+#@cli : Add a 'resconv3dnl' (residual 3D convolutional layer followed by a non-linearity) to the network.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default values: 'in=. (previous layer)', 'kernel_size=3', 'dilation=1', 'boundary_conditions=1', activation='leakyrelu' and 'learning_mode=3'.
+nn_resconv3dnl : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint(${3=3}) && $3>0 && isint(${5=1}) && inrange($5,0,3) && ""isint(${7=1}) && inrange($7,0,3)"
+skip "${4=1}","${6=leakyrelu}"
+s0,s1,s2,s3=dirichlet,neumann,periodic,mirror
+e[^-1] "[nn_lib] Add 'resconv3dnl' layer '$1', with input '"$in"', $3x$3x$3 kernels, dilation $4, "$s$5" boundary conditions and '$6' activation."
+init=$_nn_init
+nn_clone $1_clone0,$1_clone1,$in
+_nn_conv3d $1_conv3d,$1_clone1,{[${_nn_${in}_size}][3]},$3,1,$4,0,$5,$7
+nn_add $1_add,$1_conv3d,$1_clone0
+nn_nl $1,$1_add,$6
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+#@cli nn_resconv3dnnl : out,_in,_kernel_size>0,_dilation>0,_boundary_conditions,_activation,0<=_learning_mode<=3
+#@cli : Add a 'resconv3dnnl' (residual 3D convolutional layer followed by a normalization layer, then a non-linearity)to the network.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default values: 'in=. (previous layer)', 'kernel_size=3', 'dilation=1', 'boundary_conditions=1', 'activation=leakyrelu' and 'learning_mode=3'.
+nn_resconv3dnnl : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint(${3=3}) && $3>0 && isint(${5=1}) && inrange($5,0,3) && ""isint(${7=3}) && inrange($7,0,3)"
+skip "${4=1}","${6=leakyrelu}"
+s0,s1,s2,s3=dirichlet,neumann,periodic,mirror
+e[^-1] "[nn_lib] Add 'resconv3dnnl' layer '$1', with input '"$in"', $3x$3x$3 kernels, dilation $4, "$s$5" boundary conditions and '$6' activation."
+init=$_nn_init
+nn_clone $1_clone0,$1_clone1,$in
+_nn_conv3d $1_conv3d,$1_clone1,{[${_nn_${in}_size}][3]},$3,1,$4,0,$5,$7
+_nn_normalize $1_normalize,$1_conv3d,1,3
+nn_add $1_add,$1_normalize,$1_clone0
+nn_nl $1,$1_add,$6
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+#@cli nn_resfc : out,_in,0<=_learning_mode<=3
+#@cli : Add a 'resfc' (residual fully connecter layer) to the network.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default values: 'in=. (previous layer)' and 'learning_mode=3'.
+nn_resfc : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint(${3=3}) && inrange($3,0,3)"
+e[^-1] "[nn_lib] Add 'resfc' layer '$1', with input '"$in"'."
+init=$_nn_init
+nn_clone $1_clone0,$1_clone1,$in
+_nn_fc $1_fc,$1_clone1,{prod(${_nn_${in}_size})},$3
+nn_add $1,$1_fc,$1_clone0
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+#@cli nn_resfcnl : out,_in,_activation,0<=_learning_mode<=3
+#@cli : Add a 'resfcnl' (residual fully connecter layer followed by a non-linearity) to the network.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default values: 'in=. (previous layer)', 'activation=leakyrelu' and 'learning_mode=3'.
+nn_resfcnl : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint(${4=3}) && inrange($4,0,3)"
+skip ${3=leakyrelu}
+e[^-1] "[nn_lib] Add 'resfc+nl' layer '$1' to the network, with input '"$in"' and '$4' activation."
+init=$_nn_init
+nn_clone $1_clone0,$1_clone1,$in
+_nn_fc $1_fc,$1_clone1,{prod(${_nn_${in}_size})},$4
+nn_add $1_add,$1_fc,$1_clone0
+nn_nl $1,$1_add,$3
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+#@cli nn_resfcnnl : out,_in,_activation,0<=_learning_mode<=3
+#@cli : Add a 'resfcnnl' (residual fully connecter layer followed by a normalization layer, then a non-linearity) to the network.
+#@cli : 'learning_mode' can be { 0=no learning | 1=weights only | 2=biases only | 3=weights+biases }.
+#@cli : Default values: 'in=. (previous layer)', 'activation=leakyrelu' and 'learning_mode=3'.
+nn_resfcnnl : if ['${2=.}']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isint(${4=3}) && inrange($4,0,3)"
+skip ${3=leakyrelu}
+e[^-1] "[nn_lib] Add 'resfc+normalize+nl' layer '$1' to the network, with input '"$in"' and '$4' activation."
+init=$_nn_init
+nn_clone $1_clone0,$1_clone1,$in
+_nn_fc $1_fc,$1_clone1,{prod(${_nn_${in}_size})},1
+_nn_normalize $1_normalize,$1_fc,0,3
+nn_add $1_add,$1_normalize,$1_clone0
+nn_nl $1,$1_add,$3
+_nn_init=${init}"$0 $* "
+_nn_latest=$1
+#@cli nn_reshape : out,in,width>0,height>0,depth>0,spectrum>0
+#@cli : Add a 'reshape' layer to the network.
+nn_reshape : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1')"
+e[^-1] "[nn_lib] Add 'reshape' layer '$1', with input '"$in"' and size ($3,$4,$5,$6)."
+_nn_modules_names.=$1,
+_nn_modules_types.=reshape,
+_nn_$1_size=$3,$4,$5,$6
+_nn_$1_input=$in
+if prod($_nn_$1_size)!=prod(${_nn_${in}_size})
+error[0--3] "Command 'nn_reshape': Cannot reshape input ("${_nn_${in}_size}") to output ("$_nn_$1_size")."
+fi
+_nn_forward.="begin(nn_reshape_init_forward($1,"$in",${3-6}));"
+_nn_backward..="begin(nn_reshape_init_backward($1,"$in"));"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_resize : out,in,width[%]>0,_height[%]>0,_depth[%]>0,_spectrum[%]>0,_interpolation
+#@cli : Add a 'resize' layer to the network.
+#@cli : Default values: 'height=depth=spectrum=100%' and 'interpolation=3'.
+nn_resize : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && $3>0 && ${4=100%}>0 && ${5=100%}>0 && ${6=100%}>0"
+skip ${7=3}
+if ${"is_percent $3"} w={max(1,round([${_nn_${in}_size}][1]*$3))} else w=$3 fi
+if ${"is_percent $4"} h={max(1,round([${_nn_${in}_size}][1]*$4))} else h=$4 fi
+if ${"is_percent $5"} d={max(1,round([${_nn_${in}_size}][2]*$5))} else d=$5 fi
+if ${"is_percent $6"} s={max(1,round([${_nn_${in}_size}][3]*$6))} else s=$6 fi
+e[^-1] "[nn_lib] Add 'resize' layer '$1', with input '"$in"' and output size ("$w","$h","$d","$s")."
+_nn_modules_names.=$1,
+_nn_modules_types.=resize,
+_nn_$1_size=$w,$h,$d,$s
+_nn_$1_input=$in
+_nn_$1_properties="interpolation=$7"
+_nn_forward.="begin(nn_resize_init_forward($1,"$in","$w","$h","$d","$s",$7));""nn_resize_forward($1,"$in");"
+_nn_backward..="nn_resize_backward($1,"$in");"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_run : out,in,"command",_width[%]>0,_height[%]>0,_depth[%]>0,_spectrum[%]>0
+#@cli : Add a 'run' layer to the network.
+#@cli : Default values: 'width=height=depth=spectrum=100%'.
+nn_run : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && ${4=100%}>0 && ${5=100%}>0 && ${6=100%}>0 && ${7=100%}>0"
+if ${"is_percent $4"} w={max(1,round([${_nn_${in}_size}][0]*$4))} else w=$4 fi
+if ${"is_percent $5"} h={max(1,round([${_nn_${in}_size}][1]*$5))} else h=$5 fi
+if ${"is_percent $6"} d={max(1,round([${_nn_${in}_size}][2]*$6))} else d=$6 fi
+if ${"is_percent $7"} s={max(1,round([${_nn_${in}_size}][3]*$7))} else s=$7 fi
+e[^-1] "[nn_lib] Add 'run' layer '$1', with input '"$in"', command '$3' and output size ("$w","$h","$d","$s")."
+_nn_modules_names.=$1,
+_nn_modules_types.=run,
+_nn_$1_size=$w,$h,$d,$s
+_nn_$1_input=$in
+_nn_$1_properties="command='$3'"
+_nn_forward.="begin(nn_run_init_forward($1,"$in",'$3',"$w","$h","$d","$s"));""nn_run_forward($1,"$in");"
+_nn_backward..="nn_run_backward($1,"$in");"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_split : name0,name1,in,nb_channels0
+#@cli : Add a 'split' layer to the network.
+nn_split : if ['$3']=='.' in=$_nn_latest else in=$3 fi nn_check_layer $in
+check "isvarname('$1') && isvarname('$2')"
+e[^-1] "[nn_lib] Add 'split' layer, with input '"$in"' and outputs '$1' and '$2'."
+_nn_modules_names.=$1,$2,
+_nn_modules_types.=split,split,
+_nn_$1_size={[[${_nn_${in}_size}][0,3],$4]}
+_nn_$1_input=$2
+_nn_$2_size={[${_nn_${in}_size}]-[0,0,0,$4]}
+_nn_$2_input=$2
+_nn_forward.="begin(nn_split_init_forward($1,$2,"$in",$4));""nn_split_forward($1,$2,"$in");"
+_nn_backward..="nn_split_backward($1,$2,"$in");"
+_nn_init.="$0 $* "
+_nn_latest=$1
+#@cli nn_loss_binary_crossentropy : out,in,ground_truth
+#@cli : Add a 'binary_crossentropy' loss to the network (binary cross entropy).
+nn_loss_binary_crossentropy : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isvarname('$3')"
+e[^-1] "[nn_lib] Add binary cross entropy loss '$1', with input '"$in"' and ground truth '$3'."
+_nn_modules_names.=$1,
+_nn_modules_types.=loss_binary_crossentropy,
+_nn_$1_size=1,1,1,1
+_nn_$1_input=$in
+_nn_$1_properties="ground_truth=$3"
+_nn_loss.="begin(nn_loss_binary_crossentropy_init_forward($1));""nn_loss_binary_crossentropy_forward($1,"$in",$3);""end(nn_loss_binary_crossentropy_end_forward($1));"
+_nn_backward..="nn_loss_binary_crossentropy_backward($1,"$in",$3);"
+_nn_latest=$1
+#@cli nn_loss_crossentropy : out,in,ground_truth
+#@cli : Add a 'crossentropy' loss to the network (cross entropy).
+nn_loss_crossentropy : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isvarname('$3')"
+e[^-1] "[nn_lib] Add cross entropy loss '$1', with input '"$in"' and ground truth '$3'."
+_nn_modules_names.=$1,
+_nn_modules_types.=loss_crossentropy,
+_nn_$1_size=1,1,1,1
+_nn_$1_input=$in
+_nn_$1_properties="ground_truth=$3"
+_nn_loss.="begin(nn_loss_crossentropy_init_forward($1));""nn_loss_crossentropy_forward($1,"$in",$3);""end(nn_loss_crossentropy_end_forward($1));"
+_nn_backward..="nn_loss_crossentropy_backward($1,"$in",$3);"
+_nn_latest=$1
+#@cli nn_loss_mse : out,in,ground_truth
+#@cli : Add a 'mse' loss to the network (mean-squared error).
+nn_loss_mse : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isvarname('$3')"
+e[^-1] "[nn_lib] Add MSE loss '$1', with input '"$in"' and ground truth '$3'."
+_nn_modules_names.=$1,
+_nn_modules_types.=loss_mse,
+_nn_$1_size=1,1,1,1
+_nn_$1_input=$in
+_nn_$1_properties="ground_truth=$3"
+_nn_loss.="begin(nn_loss_mse_init_forward($1));""nn_loss_mse_forward($1,"$in",$3);""end(nn_loss_mse_end_forward($1));"
+_nn_backward..="nn_loss_mse_backward($1,"$in",$3);"
+_nn_latest=$1
+#@cli nn_loss_normp : out,in,ground_truth,_metric={ 0=squared-L2 | p>0 = Lp-norm }
+#@cli : Add a 'normp' loss to the network (||out - ground_truth||_p).
+#@cli : Default value: 'metric=1'.
+nn_loss_normp : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isvarname('$3') && isint(${4=1}) && $4>=0"
+e[^-1] "[nn_lib] Add normp loss '$1', with input '"$in"', ground truth '$3' and metric $4."
+_nn_modules_names.=$1,
+_nn_modules_types.=loss_normp,
+_nn_$1_size=1,1,1,1
+_nn_$1_input=$in
+_nn_$1_properties="ground_truth=$3, metric=$4"
+_nn_loss.="begin(nn_loss_normp_init_forward($1,$4));""nn_loss_normp_forward($1,"$in",$3);""end(nn_loss_normp_end_forward($1));"
+_nn_backward..="nn_loss_normp_backward($1,"$in",$3);"
+_nn_latest=$1
+#@cli nn_loss_softmax_crossentropy : out,in,ground_truth
+#@cli : Add a 'softmax_crossentropy' loss to the network (softmax followed by cross entropy).
+nn_loss_softmax_crossentropy : if ['$2']=='.' in=$_nn_latest else in=$2 fi nn_check_layer $in
+check "isvarname('$1') && isvarname('$3')"
+e[^-1] "[nn_lib] Add softmax + cross entropy loss '$1', with input '"$in"' and ground truth '$3'."
+_nn_modules_names.=$1,
+_nn_modules_types.=loss_softmax_crossentropy,
+_nn_$1_size=1,1,1,1
+_nn_$1_input=$2
+_nn_$1_properties="ground_truth=$3"
+_nn_loss.="begin(nn_loss_softmax_crossentropy_init_forward($1));""nn_loss_softmax_crossentropy_forward($1,"$in",$3);""end(nn_loss_softmax_crossentropy_end_forward($1));"
+_nn_backward..="nn_loss_softmax_crossentropy_backward($1,"$in",$3);"
+_nn_latest=$1
+#@cli nn_print
+#@cli : Print info on current neural network.
+nn_print :
+e[^-1] "[nn_lib] Print info on current neural network."
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r b=$_vt100_b v 0
+e " * List of modules:"
+repeat narg($_nn_modules_names)-1 {
+type=${arg0\ $>,$_nn_modules_types}
+name=${arg0\ $>,$_nn_modules_names}
+learning_mode=${_nn_${name}_learning_mode}
+e " - Module: "$b$name$n" (type: "$g$type$n")"
+if ['${_nn_${name}_input}']!=0
+s={`find(['${_nn_${name}_input}'],_',')>0?_'s':0`}
+e " * Input"$s": "$c${_nn_${name}_input}$n
+fi
+e " * Output size: "$c${_nn_${name}_size}$n
+if ['${_nn_${name}_properties}']!=0
+ies={`find(['${_nn_${name}_properties}'],_',')>0?'ies':[_'y',0,0]`}
+e " * Propert"$ies": "$c${_nn_${name}_properties}$n
+fi
+if ${$name}
+e " * Parameters: "$c{$name,whds}$n
+fi
+}
+e "\n * Total: "${b}{narg($_nn_modules_names)-1}$n" modules, "$b${-nn_size}$n" parameters.\n"
+#@cli nn_trainer : name,_loss,_learning_rate>0,_optimizer,_scheduler
+#@cli : Add a network trainer to the network.
+#@cli : 'optimizer' can be { sgd | rmsprop | adam | adamax }.
+#@cli : 'scheduler' can be { constant | linear | exponential | adaptive }.
+#@cli : Default values: 'loss=. (previous loss)', 'learning_rate=2e-4', 'optimizer=rmsprop' and 'scheduler=constant'.
+nn_trainer : if ['${2=.}']=='.' loss=$_nn_latest else loss=$2 fi nn_check_layer $loss
+check "isvarname('$1') && ${3=2e-4}>0 && isvarname('${4=rmsprop}') && isvarname('${5=constant}')"
+e[^-1] "[nn_lib] Add trainer '$1' for loss '"$loss"', with learning rate '$3', $4 optimizer and $5 scheduler."
+_nn_modules_names.=$1,
+_nn_modules_types.=trainer,
+_nn_$1_size=0,0,0,0
+_nn_$1_properties="loss="$loss", learning_rate=$3, optimizer=$4, scheduler=$5"
+if !isint($$1)
+l[] { (0,$3,$3,inf,inf) _nn_optimizer_$4 _nn_scheduler_$5 a y => $1 }
+else
+=[$1] $3,1,0
+=[$1] $3,2,0
+fi
+_nn_$1_update="begin(nn_trainer_init_backward($1,"$loss",$4,$5));end("
+repeat narg($_nn_modules_names)-1 {
+type=${arg0\ $>,$_nn_modules_types}
+name=${arg0\ $>,$_nn_modules_names}
+learning_mode=${_nn_${name}_learning_mode}
+if isin('$type','conv2d','conv3d','fc','nlfc','normalize')
+_nn_$1_update.="nn_optimizer_$4_update_"$type"("$name,$learning_mode");"
+if $learning_mode
+if '$4'=='rmsprop'
+name_g2=${name}_g2
+if !isint(${$name_g2}) +f[$name] 0 => $name_g2 fi
+_nn_trainer_data.=$name_g2,
+elif isin('$4','adam','adamax')
+name_m,name_v=${name}_m,${name}_v
+if !isint(${$name_m}) +f[$name] 0 => $name_m fi
+if !isint(${$name_v}) +f[$name] 0 => $name_v fi
+_nn_trainer_data.=$name_m,$name_v,
+fi
+fi
+fi
+}
+_nn_$1_update.="nn_trainer_update($1,"$loss",$5));"
+_nn_update=$_nn_$1_update
+_nn_optimizer_sgd : 1
+_nn_optimizer_rmsprop : 1
+_nn_optimizer_adam : 1
+_nn_optimizer_adamax : 1
+_nn_scheduler_constant : 1
+_nn_scheduler_linear : 1
+_nn_scheduler_exponential : 1
+_nn_scheduler_adaptive : (0,0,0)
+#@cli nn_size
+#@cli: Return size of the current network (i.e. number of stored parameters).
+nn_size :
+e[^-1] "[nn_lib] Return size of the current network."
+siz=0
+repeat narg($_nn_modules_names)-1 {
+type=${arg0\ $>,$_nn_modules_types}
+name=${arg0\ $>,$_nn_modules_names}
+if isin('$type','conv2d','conv3d','fc','nlfc','normalize') siz+={$name,whds} fi
+}
+u $siz
+#@cli nn_load : 'filename.gmz',_include_trainer_data={ 0=no | 1=yes }
+#@cli : Load and initialize network saved as a .gmz file.
+#@cli : Neural network files can be only loaded in .gmz format.
+#@cli : Default value: 'include_trainer_data=1'.
++nn_load : check "s=['$1']; find(s,'.gmz')==size(s) - 4 && isbool(${2=1})"
+e[^-1] "[nn_lib] Load network from file '$1'."
+l[] {
+"$1" run {t} rm.
+if !$2
+nmd $_nn_modules_names k[${}]
+fi
+}
+#@cli nn_save : 'filename.gmz',_include_trainer_data={ 0=no | 1=yes }
+#@cli : Save current network as a .gmz file.
+#@cli : `.gmz` is mandatory extension, specifying another file extension will throw an error.
+#@cli : Default value: 'include_trainer_data=1'.
+nn_save : check "s=['$1']; find(s,'.gmz')==size(s) - 4 && isbool(${2=1})"
+s0,s1=""," (include trainer data)"
+e[^-1] "[nn_lib] Save current network as file '$1'"$s$2"."
+if $2 sel=$_nn_trainer_data fi c=
+repeat narg($_nn_modules_names)-1 {
+type=${arg0\ $>,$_nn_modules_types}
+name=${arg0\ $>,$_nn_modules_names}
+if isin('$type','conv2d','conv3d','fc','nlfc','normalize','trainer') sel.=$c$name c=, fi
+}
+('$_nn_init') autocrop. {'" "'} => _nn_init
+o[$sel,-1] "$1"
+rm.
+#@cli nn_store : 'variable_name',_include_trainer_data={ 0=no | 1=yes }
+#@cli : Store current network into a variable.
+#@cli : Default value: 'include_trainer_data=1'.
+nn_store : check "isbool(${2=1})"
+s0,s1=""," (include trainer data)"
+e[^-1] "[nn_lib] Store current network into variable '$1'"$s$2"."
+if $2 sel=$_nn_trainer_data fi c=
+repeat narg($_nn_modules_names)-1 {
+type=${arg0\ $>,$_nn_modules_types}
+name=${arg0\ $>,$_nn_modules_names}
+if isin('$type','conv2d','conv3d','fc','nlfc','normalize','trainer') sel.=$c$name c=, fi
+}
+('$_nn_init') autocrop. {'" "'} => _nn_init
++store[$sel,-1] "$1"
+rm.
+#@cli :: Arrays, Tiles and Frames
+#@cli array : M>0,_N>0,_expand_type={ 0=min | 1=max | 2=all }
+#@cli : Create MxN array from selected images.
+#@cli : Default values: 'N=M' and 'expand_type=0'.
+#@cli : $ image.jpg array 3,2,2
+array : check "isint($1) && $1>0 && isint(${2=$1}) && $2>0" skip ${3=0}
+e[^-1] "Create $1x$2 array from image$?, with expand type $3."
+r0={100/max($1,$2)} r1={100/min($1,$2)} r2=100
+r ${r$3}%,${r$3}%,1,100%,2 r {$1*100}%,{$2*100}%,1,100%,0,2
+#@cli array_fade : M>0,_N>0,0<=_fade_start<=100,0<=_fade_end<=100,_expand_type={0=min | 1=max | 2=all}
+#@cli : Create MxN array from selected images.
+#@cli : Default values: 'N=M', 'fade_start=60', 'fade_end=90' and 'expand_type=1'.
+#@cli : $ image.jpg array_fade 3,2
+array_fade : skip ${2=$1},${3=60},${4=90},${5=1}
+e[^-1] "Create $1x$2 array of ($3%,$4%) faded tiles from image$?, with expand type $5."
+foreach { . shift.. {round(w/2)},{round(h/2)},1,1,2 fade_diamond $3,$4 }
+array $1,$2,$5
+#@cli array_mirror : N>=0,_dir={ 0=x | 1=y | 2=xy | 3=tri-xy },_expand_type={ 0 | 1 }
+#@cli : Create 2^Nx2^N array from selected images.
+#@cli : Default values: 'dir=2' and 'expand_type=0'.
+#@cli : $ image.jpg array_mirror 2
+array_mirror : skip ${2=2},${3=0}
+e[^-1] "Create a 2^$1x2^$1 mirrored-array from image$?, with expand type $2."
+repeat $1 {
+if $3==0
+if $2>=3 r 33%,33%,100%,100%,2
+else r 50%,50%,100%,100%,2
+fi
+fi
+foreach {
+if $2==0 +mirror x a x
+elif $2==1 +mirror y a y
+else +mirror x a x +mirror y a y if $2==3 r 150%,150%,1,100%,0,2,1,1 fi
+fi
+}
+}
+#@cli array_random : Ms>0,_Ns>0,_Md>0,_Nd>0
+#@cli : Create MdxNd array of tiles from selected MsxNs source arrays.
+#@cli : Default values: 'Ns=Ms', 'Md=Ms' and 'Nd=Ns'.
+#@cli : $ image.jpg +array_random 8,8,15,10
+array_random : skip ${2=$1},${3=$1},${4=$2}
+e[^-1] "Create $3x$4 array of tiles from $1x$2 array$?."
+foreach {
+nm={n}
+split_tiles $1,$2
+repeat $3 { repeat $4 { [{u($1*$2-1)}] } }
+rm[0-{$1*$2-1}] append_tiles $3,$4
+=> $nm
+}
+#@cli frame : eq. to 'frame_xy'.
+frame : skip ${2=$1}>=0,${3=255},${4=$3},${5=$4},${6=255}
+_gmic_s="$?" v + _frame_xy ${1--1}
+#@cli frame_blur : _sharpness>0,_size>=0,_smoothness,_shading,_blur
+#@cli : Draw RGBA-colored round frame in selected images.
+#@cli : Default values: 'sharpness=10', 'size=30', 'smoothness=0', 'shading=1' and 'blur=3%'.
+#@cli : $ image.jpg frame_blur 3,30,8,10%
+frame_blur : skip ${1=10},${2=30},${3=0},${4=1},${5=3%}
+e[^-1] "Draw round frame on image$?, with sharpness $1, size $2, smoothness $3, shading $4 and blur $5."
+to_rgba foreach {
+nm={n}
+100%,100%,1,1,"-(abs(x/w-0.5)^$1 + abs(y/h-0.5)^$1)^(1/$1)" >=. $2%
+if $4 distance. 1 n. 0,1 *. -1 +. 1 ^. {1/$4} fi
+b. $3 +b.. $5 mv. -3 blend_fade[0,1] . rm.
+=> $nm
+}
+#@cli frame_cube : _depth>=0,_centering_x,_centering_y,_left_side={0=normal | 1=mirror-x | 2=mirror-y | 3=mirror-xy},_right_side,_lower_side,_upper_side
+#@cli : Insert 3D frames in selected images.
+#@cli : Default values: 'depth=1', 'centering_x=centering_y=0' and 'left_side=right_side,lower_side=upper_side=0'.
+#@cli : $ image.jpg frame_cube ,
+frame_cube : check "${1=1}>=0" skip ${2=0},${3=0},${4=0},${5=0},${6=0},${7=0}
+e[^-1] "Insert 3D frame in image$?, with depth $1, centering point ($2,$3) and orientations (${4--1})."
+foreach {
+nm={n} split_opacity
+if $!==2 frame_cube ${1--1} a c
+else
+m={max(w,h)} w={w} h={h} s={s}
+imageplane3d c3d /3d. $w,$h,1
++_frame_cube[0] $4 r3d. 0,1,0,-90 +3d. -0.5,0,-0.5
++_frame_cube[0] $5 r3d. 0,1,0,90 +3d. 0.5,0,-0.5
++_frame_cube[0] $6 r3d. 1,0,0,-90 +3d. 0,0.5,-0.5
++_frame_cube[0] $7 r3d. 1,0,0,90 +3d. 0,-0.5,-0.5
++3d 0,0,1 +3d *3d $w,$h,$m
+f=1000
+cx=$2*$w/2*($f+$m*$1)/$f
+cy=$3*$h/2*($f+$m*$1)/$f
+s3d r[2] 3,{{2,h}/3},1,1,-1
+f[2] "if(i(2,y)<0.5,i,i+if(x==0,"$cx",if(x==1,"$cy",($1-1)*"$m")))"
+y[2] a y
+*3d 2 {2*$w},{2*$h},1,$s f3d {2*$f}
+j3d. ..,50%,50%,0,1,2,0,0 rm..
+r $w,$h,1,100%,2
+fi
+=> $nm
+}
+_frame_cube :
+if $1==1 r3d. 0,1,0,180 rv3d.
+elif $1==2 r3d. 1,0,0,180 rv3d.
+elif $1==3 r3d. 0,0,1,180
+fi
+#@cli frame_fuzzy : size_x[%]>=0,_size_y[%]>=0,_fuzzyness>=0,_smoothness[%]>=0,_R,_G,_B,_A
+#@cli : Draw RGBA-colored fuzzy frame in selected images.
+#@cli : Default values: 'size_y=size_x', 'fuzzyness=5', 'smoothness=1' and 'R=G=B=A=255'.
+#@cli : $ image.jpg frame_fuzzy 20
+frame_fuzzy : skip ${2=$1},${3=5},${4=1},${5=255},${6=$5},${7=$6},${8=255}
+e[^-1] "Draw $1x$2 fuzzy frame on image$?, with fuzzyness $3, smoothness $4 and RGBA color ($5,$6,$7,$8)."
+to_rgba
+foreach {
+100%,100%,1,1,1
+padx={if(${"is_percent $1"},$1*(w-1)/2,$1)}
+pady={if(${"is_percent $2"},$2*(h-1)/2,$2)}
+rectangle. $padx,$pady,{w-1-$padx},{h-1-$pady}
+spread. $3 b. $4 100%,100%,1,4 fc. ${5-8}
+j[0] [2],0,0,0,0,1,[1] k[0]
+}
+#@cli frame_painting : _size[%]>=0,0<=_contrast<=1,_profile_smoothness[%]>=0,_R,_G,_B,_vignette_size[%]>=0,_vignette_contrast>=0,_defects_contrast>=0,0<=_defects_density<=100,_defects_size>=0,_defects_smoothness[%]>=0,_serial_number
+#@cli : Add a painting frame to selected images.
+#@cli : Default values: 'size=10%', 'contrast=0.4', 'profile_smoothness=6%', 'R=225', 'G=200', 'B=120', 'vignette_size=2%', 'vignette_contrast=400', 'defects_contrast=50', 'defects_density=10', 'defects_size=1', 'defects_smoothness=0.5%' and 'serial_number=123456789'.
+#@cli : $ image.jpg frame_painting ,
+frame_painting :
+check "${1=10%}>=0 && ${2=0.4}>=0 && $2<=1 && ${3=6%}>=0 && ${7=2%}>=0 && ${8=400}>=0 && ${9=50}>=0 &&
+${10=10}>=0 && $10<=100 && ${11=1}>=0 && ${12=0.5%}>=0"
+skip ${4=225},${5=200},${6=120},${13=123456789}
+e[^-1] "Add painting frame to image$?, with size $1, contrast $2, profile smoothness $3, color (${4-6}),
+vignette size $7, vignette strength $8, defects contrast $9, defects density $10, defects size $11,
+defects smoothness $12 and serial number $13."
+if !$1 return fi
+foreach {
+$1,$1 s={max(w,h)} rm.
+('${dec2bin\ $13}') -. {'0'} r. $s
+transpose. b. $3 n. {1-$2},{1+$2}
++r. {{-2,w}+2*$s},100%,1,1
++mirror. y
+mv... $! transpose. r. 100%,{-4,h+2*$s},1,1
++mirror. x
+...,...,1,1,1
+polygon. 3,0,0,{$s-1},{$s-1},0,{$s-1},1,0
+polygon. 3,100%,0,{w-$s},100%,100%,100%,1,0
+..,..,1,1,1
+polygon. 3,1,0,100%,{$s-2},100%,0
+polygon. 3,1,100%,100%,{h-$s+1},100%,100%,1,0
+_frame_painting[-6--3] ${4-6},${9-12}
+{-7,w+2*$s},{-7,h+2*$s},1,3
+j. [-7],0,0,0,0,1,...,1 rm[-7] mirror... y
+j. [-6],0,{h-$s},0,0,1,...,1 rm[-6,-3]
+j. [-4],0,0,0,0,1,..,1 rm[-4] mirror.. x
+j. ...,{w-$s},0,0,0,1,..,1 rm[-3,-2]
+..,..,1,1,-255 r. ..,..,1,1,0,0,0.5,0.5 +. 255 +b. $7 n. 0,$8 max[-2,-1] c. 0,255
+a[-2--1] c
+r.. .,.,1,100%,0,0,0.5,0.5 blend alpha
+}
+_frame_painting :
+foreach {
++*. $2 +*.. $3 *... $1 a[-3--1] c
+100%,100%
+i=0 do rand. 0,1 remove_pixels. {100-$5}% b. $6 >=. 50% i+=1 while "m=$5/200;(iam+0.2) && "$i"<10"
+b. $7 g. +[-2,-1] n. -$4,$4
++[-2,-1] c. 0,255
+}
+#@cli frame_pattern : M>=3,_constrain_size={ 0 | 1 } : M>=3,_[frame_image],_constrain_size={ 0 | 1 }
+#@cli : Insert selected pattern frame in selected images.
+#@cli : Default values: 'pattern=0' and 'constrain_size=0'.
+#@cli : $ image.jpg frame_pattern 8
+frame_pattern : check $1>=3 skip "${2=0},${3=0}"
+to_colormode 0
+if ${"is_image_arg $2"}
+e[^-1] "Insert $1x$1 pattern frame on image$?, using frame image$2."
+pass$2 0
+foreach[^-1] { pass.
+wh={0,w},{0,h}
++r[1] {0,max(1,w/($1-2))},{0,max(1,h/($1-2))},1,100%,2
+r[0] {{0,w}+2*w},{{0,h}+2*h},1,100%,0,0,0.5,0.5
+[-1]x{$1+2} a[{-$1-2}--1] x j[0] .,0,0 j[0] .,0,{{0,h}-1-h} rm.
+[-1]x{$1+1} a[{-$1-2}--1] y j[0] .,0,0 j[0] .,{{0,w}-1-w} rm.
+if $3 r[0] $wh,1,100%,2 fi
+rm.
+} rm.
+else
+e[^-1] "Insert $1x$1 self-pattern frame on image$?."
+foreach {
+wh={w},{h}
++r {max(1,w/($1-2))},{max(1,h/($1-2))},1,100%,2 r.. {$1*w},{$1*h},1,100%,0,0,0.5,0.5
+[-1]x{$1+2} a[{-$1-2}--1] x j... .,0,0 j... .,0,{{-3,h}-1-h} rm.
+[-1]x{$1+1} a[{-$1-2}--1] y j.. .,0,0 j.. .,{{-2,w}-1-w} rm.
+if $3 r $wh,1,100%,2 fi
+}
+fi
+#@cli frame_round : frame_size[%]>=0,radius[%]>=0,_smoothness[%]>=0,_col1,...,_colN
+#@cli : Insert an inner round frame in selected images.
+#@cli : Default values: 'size=1, 'radius=30%', 'smoothness=0' and 'col=0,0,0,255'.
+frame_round : check "${1=1}>=0 && ${2=20%}>=0 && ${3=0}>=0" skip "${4=0},${5=$4},${6=$4},${7=255}"
+e[^-1] "Insert inner round frame on image$?, with size $1, radius $2, smoothness $3 and color (${4--1})."
+if !$1" && "!$2 return fi
+foreach {
+size_max:=round(min(w,h)/2)
+size:=cut(int(${"is_percent $1"}?$1*$size_max:$1),0,$size_max)
+radius_max:=round((min(w,h)-2*$size)/2)
+radius:=cut(int(${"is_percent $2"}?$2*$radius_max:$2),0,$radius_max)
+if $size<1" && "$radius<1 continue fi
+{0,[w,h]}
+if $size>=1
+siz1:=$size-1
+rectangle. 0,0,100%,$siz1,1,1
+rectangle. 0,0,$siz1,100%,1,1
+rectangle. {w-$size},0,100%,100%,1,1
+rectangle. 0,{h-$size},100%,100%,1,1
+fi
+if $radius>=1
+shape_circle[] {1+2*$radius} ==. 0 s. yx,2
+j[1] [-4],$size,$size
+j[1] ...,{w#1-w#-3-$size},$size
+j[1] ..,$size,{h#1-h#-2-$size}
+j[1] .,{[w#1,h#1]-[w#-1,h#-1]-$size}
+rm[-4--1]
+fi
+if $3 b. $3 n. 0,1 fi
+100%,100%,1,{0,s} fc. ${4--1} j... .,0,0,0,0,1,.. k[0]
+}
+#@cli frame_seamless : frame_size>=0,_patch_size>0,_blend_size>=0,_frame_direction={ 0=inner (preserve image size) | 1=outer }
+#@cli : Insert frame in selected images, so that tiling the resulting image makes less visible seams.
+#@cli : Default values: 'patch_size=7', 'blend_size=5' and 'frame_direction=1'.
+#@cli : $ image.jpg +frame_seamless 30 array 2,2
+frame_seamless : check "$1>=0 && isint(${2=7}) && $2>0 && isint(${3=5}) && $3>=0" skip ${4=1}
+s0="inner" s1="outer"
+e[^-1] "Insert "${s{!!$4}}" seamless frame in image$?, with size $1, patch size $2 and blend size $3."
+foreach {
+w2={round(w/2)} h2={round(h/2)}
+w4={round(w/4)} h4={round(h/4)}
+if !$4 r {max(1,w-$1)},{max(1,h-$1)},1,100%,0,0,0.5,0.5 fi
+100%,100%,1,1,-1 r[-2,-1] {w+$1},{h+$1},1,100%,0,0,0.5,0.5 n. 0,1
+shift -$w2,-$h2,0,0,2
+inpaint_matchpatch.. [1],0,$2,10,$3
+rectangle. $1,$1,{w-1-$1},{h-1-$1}
+shift -$w4,-$h4,0,0,2
+inpaint_matchpatch.. [1],0,$2,10,$3
+rm.
+shift {$w4+$w2},{$h4+$h2},0,0,2
+}
+#@cli frame_x : size_x[%],_col1,...,_colN
+#@cli : Insert outer frame along the x-axis in selected images.
+#@cli : Default values: 'col1=col2=col3=255' and 'col4=255'.
+#@cli : $ image.jpg frame_x 20,255,0,255
+frame_x : skip ${2=255},${3=$2},${4=$3},${5=255}
+e[^-1] "Insert $1 outer frame in image$? along the x-axis, with color (${2--1})."
+_frame $1,0,0,${2--1}
+#@cli frame_xy : size_x[%],_size_y[%],_col1,...,_colN
+#@cli : Insert outer frame along the x-axis in selected images.
+#@cli : Default values: 'size_y=size_x', 'col1=col2=col3=255' and 'col4=255'.
+#@cli : (eq. to 'frame').
+#@cli : $ image.jpg frame_xy 1,1,0 frame_xy 20,10,255,0,255
+frame_xy : skip ${2=$1},${3=255},${4=$3},${5=$4},${6=255}
+_gmic_s="$?" v + _$0 ${1--1}
+_frame_xy :
+e[0--3] "Insert $1x$2 outer frame in image"$_gmic_s" along the xy-axes, with color (${3--1})."
+_frame $1,$2,0,${3--1}
+#@cli frame_xyz : size_x[%],_size_y[%],_size_z[%]_col1,...,_colN
+#@cli : Insert outer frame along the x-axis in selected images.
+#@cli : Default values: 'size_y=size_x=size_z', 'col1=col2=col3=255' and 'col4=255'.
+frame_xyz : skip ${2=$1},${3=$2},${4=255},${5=$4},${6=$5},${7=255}
+e[^-1] "Insert $1x$2x$3 outer frame in image$? along the xyz-axes, with color (${4--1})."
+_frame $1,$2,$3,${4--1}
+#@cli frame_y : size_y[%],_col1,...,_colN
+#@cli : Insert outer frame along the y-axis in selected images.
+#@cli : Default values: 'col1=col2=col3=255' and 'col4=255'.
+#@cli : $ image.jpg frame_y 20,255,0,255
+frame_y : skip ${2=255},${3=$2},${4=$3},${5=255}
+e[^-1] "Insert $1 outer frame in image$? along the y-axis, with color (${2--1})."
+_frame 0,$1,0,${2--1}
+_frame :
+foreach {
+nm={n}
+fw,fh,fd:=round($1*if(${is_percent\ $1},w,1)),round($2*if(${is_percent\ $2},h,1)),round($3*if(${is_percent\ $3},d,1))
+{[w,h,d]+2*[$fw,$fh,$fd]},100% fc[1] ${4--1}
+j[1] [0],$fw,$fh,$fd rm[0] => $nm
+}
+#@cli img2ascii : _charset,_analysis_scale>0,_analysis_smoothness[%]>=0,_synthesis_scale>0,_output_ascii_filename
+#@cli : Render selected images as binary ascii art.
+#@cli : This command returns the corresponding the list of widths and heights (expressed as a number of characters)
+#@cli : for each selected image.
+#@cli : Default values: 'charset=[ascii charset]', 'analysis_scale=16', 'analysis_smoothness=20%', 'synthesis_scale=16' and '_output_ascii_filename=[undefined]'.
+#@cli : $ image.jpg img2ascii ,
+img2ascii : check "${2=16}>0 && ${3=20%}>=0 && ${4=16}>0"
+skip "${1= !\042#$%&\047()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\133\\\135^_\140abcdefghijk""lmnopqrstuvwxyz\173|\174~}","${5=}"
+e[^-1] "Render image$? as binary ascii art, with charset '$1', analysis scale $2, analysis smoothness $3,
+synthesis scale $4 and output ascii filename '$5'."
+is_multi={$!>1}
+l[] {
+('"$1"') repeat w {
+C={`92`}${dec2oct\ {0,@$>}}
+0 t. $C,0,0,$2,1,1
+0 t. $C,0,0,$4,1,1
+} rm[0]
+= -1 = -1,0,100% autocrop = 0 = 0,0,100%
+l[0--2:2] { r {${-max_w}+1},100%,1,1,0,0,0.5 b $3 n 0,255 a z }
+l[1--1] { r {${-max_w}+1},100%,1,1,0,0,0.5 a z }
+}
+w={-2,w} h={-2,h}
+repeat $!-2 { l[$>,-2,-1] {
+luminance[0] n[0] 0,255
+nw={0,round(w/$w,1,1)}
+nh={0,round(h/$h,1,1)}
+if $> list_wh=$list_wh,$nw,$nh else list_wh=$nw,$nh fi
+s[0] y,-$h s[0--3] x,-$w r[0--3] $w,$h,1,1,0,0
+repeat $!-2 { l[$>,-2,-1] {
+rprogress {$>*100/($!-2)}
+ri[0] [1] -[0] [1] sqr[0] r[0] 1,1,100%,1,2 y[0]
+C={0,ym} rm[0]
++slices[1] $C mv. 0
+if narg("$5") +f[0] $C a[0,-1] c fi
+} }
+append_tiles[0--2] $nw,$nh
+if narg("$5") s[0] c l[1] {
+r $nw,$nh,1,1,1
+('"$1"') map[0] . k[0]
+s y i[1-$!] ('\n')
+a x
+if $is_multi filename=${filename\ "$5",$>} else filename="$5" fi
+ot $filename rm
+} fi
+} }
+rm[-2,-1] u $list_wh
+#@cli imagegrid : M>0,_N>0
+#@cli : Create MxN image grid from selected images.
+#@cli : Default value: 'N=M'.
+#@cli : $ image.jpg imagegrid 16
+imagegrid : skip ${2=$1}
+e[^-1] "Create $1x$2 image grid from image$?."
+foreach {
+({w},{h}) ($1,$2) /[-2,-1] round. 1 r.. {^},..,..,2 rm.
+({w},{h}) ($1,$2) *[-2,-1] r.. {^},..,..,2 rm.
+$1,$2,1,.,1 shift. 1,1 ri. ..,0,2 *
+}
+#@cli imagegrid_hexagonal : _resolution>0,0<=_outline<=1
+#@cli : Create hexagonal grids from selected images.
+#@cli : Default values: 'resolution=32', 'outline=0.1' and 'is_antialiased=1'.
+#@cli : $ image.jpg imagegrid_hexagonal 24
+imagegrid_hexagonal : check "isint(${1=32}) && $1>0 && ${2=0.1}>=0 && $2<=1"
+e[^-1] "Create hexagonal grid(s) from image$?, with resolution $1 and outline $2."
+foreach {
+l[] {
+({'CImg3d'},6,6)
+(0;{2*pi}) -. {pi/2} r. 1,7,1,1,3 +sin. cos.. a[-2,-1] x rows. 0,5 z. 0,2
+2,6,1,1,3,0 1,100%,1,1,y ++. 1 %. 6 rv[-2,-1] a[-3--1] x
+3,100%,1,1,1 1,100%,1,1,1 y a y
+*3d. {1-$2}
+++3d {sqrt(3)} ++3d {sqrt(3)/2},1.5
+col3d... 2 col3d.. 3 col3d. 4 +3d
+/3d 1.5
+}
+ny={1+round(0.5*$1,1,1)}
+nx={0,1+round($1*w/h*3/(sqrt(3)*4),1,1)}
+array3d. $nx,$ny,1,{4*sqrt(3)/3},2
+c3d. *3d. {0,h/$1}
+[0],[0] j3d. ..,50%,50%,0,1,2,0,0 rm..
+blend shapeaverage0
+}
+#@cli imagegrid_triangular : pattern_width>=1,_pattern_height>=1,_pattern_type,0<=_outline_opacity<=1,_outline_color1,...
+#@cli : Create triangular grids from selected images.
+#@cli : 'pattern type' can be { 0=horizontal | 1=vertical | 2=crossed | 3=cube | 4=decreasing | 5=increasing }.
+#@cli : Default values: 'pattern_width=24', 'pattern_height=pattern_width', 'pattern_type=0', 'outline_opacity=0.1' and 'outline_color1=0'.
+#@cli : $ image.jpg imagegrid_triangular 6,10,3,0.5
+imagegrid_triangular : check "$1>=1 && ${2=$1}>=1 && isint(${3=0}) && $3>=0 && $3<=5" skip ${4=0},${5=0}
+s0="horizontal" s1="vertical" s2="crossed" s3="cube"
+e[^-1] "Create triangular grid(s) from image$?, with pattern width $1, height $2, pattern type '"${s$3}"', ""outline opacity $4 and outline color (${5--1})."
+M={max($1,$2)}
+if $3==4" || "$3==5
+$M,$M,1,1,x>y ++. 2 a[-2,-1] x ++. 4 a[-2,-1] y
+$M,$M,1,1,"!x || !y || x==y" r. 200%,200%,1,1,0,2
+a[-2,-1] c
+if $3==5 mirror. y fi
+elif $3==3
+$M,$M,1,1,x>y 100%,100%,1,1,w-1-x>=y a[-2,-1] x ++. 2 mirror. y a[-2,-1] y
+++. 4 =. 4,50%,50% =.. 2 a[-2,-1] x label. 0,0
+(2,2,2,0,1,2,1,1,3,3,3,1,1,0) map.. . rm.
+100%,100%,1,1
+line. 0,0,{$M-1},{$M-1},1,1 line. {$M-1},$M,0,100%,1,1
+line. {$M-1},{$M-1},{3*$M-1},{$M-1},1,1 line. {2*$M},0,0,0,1,1
+line. {2*$M},0,100%,100%,1,1 line. {2*$M},100%,100%,0,1,1
+a[-2,-1] c
+elif $3==2
+$M,$M,1,1,x>y ++. 2 mirror. x a[-2,-1] x ++. 4 mirror. y a[-2,-1] y
+100%,100%,1,1,"!x || !y || x==int(w/2) || y==int(h/2) || x==y || w-1-x==y"
+a[-2,-1] c
+elif $3==1
+$M,$M,1,1,x>y 100%,100%,1,1,w-1-x<=y a[-2,-1] y ++. 2 mirror. x a[-2,-1] x
+100%,100%,1,1,"!x || x==int(w/2) || x==y || w-1-x==y"
+a[-2,-1] c
+else
+$M,$M,1,1,x>y 100%,100%,1,1,w-1-x>=y a[-2,-1] x ++. 2 mirror. y a[-2,-1] y
+100%,100%,1,1,"!y || y==int(h/2) || x==y || w-1-x==y"
+a[-2,-1] c
+fi
+repeat $!-1 {
+wh={$>,w},{$>,h}
+if $1>$2 r[$>] 100%,{$>,$1*h/$2} elif $1<$2 r[$>] {$>,$2*w/$1} fi
++r. [$>],[$>],1,2,0,2,0.5,0.5
+s. c
+blend[$>,-2] shapeaverage
++fc[$>] ${5--1} j[$>] .,0,0,0,0,$4,.. rm[-2,-1]
+r[$>] $wh,1,100%,2
+}
+rm.
+#@cli linearize_tiles : M>0,_N>0
+#@cli : Linearize MxN tiles on selected images.
+#@cli : Default value: 'N=M'.
+#@cli : $ image.jpg +linearize_tiles 16
+linearize_tiles : check "$1>0 && ${2=$1}>0"
+e[^-1] "Linearize $1x$2 tiles on image$?."
+foreach {
+nm={n}
+s={s} split_tiles $1,$2 s c
+foreach {
+wh={w},{h}
++f x +f. y +f. 1 y a[^0] x solve.. . rm.
+$wh,1,1,{@0}"*x + "{@1}"*y + "{@2} rm..
+}
+repeat int($!/$s) { a[-$s--1] c mv. 0 } append_tiles $1,$2 => $nm
+}
+#@cli map_sprites : _nb_sprites>=1,_allow_rotation={ 0=none | 1=90 deg. | 2=180 deg. }
+#@cli : Map set of sprites (defined as the 'nb_sprites' latest images of the selection) to other selected images,
+#@cli : according to the luminosity of their pixel values.
+#@cli : $ image.jpg resize2dy 48 repeat 16 ball {8+2*$>},${-rgb} mul[-1] {(1+$>)/16} done map_sprites 16
+map_sprites : check "isint($1) && $1>0 && isint(${2=0}) && $2>=0 && $2<=2"
+e[^-1] "Map set of $1 sprites to image selection$?."
+norm[0--{$1+1}] quantize[0--{$1+1}] $1,0,1
+slices[-$1--1] 0 r[-$1--1] ${max_wh[-$1--1]},1,100%,0,0,0.5,0.5
+if $2==1
+N={4*$1}
+repeat $!-$1 { *[$>] 4 +rand[$>] 0,3 round. +[$>,-1] }
+repeat $1 { l[{1+$<}] { +mirror xy +rotate 90 } }
+elif $2==2
+N={2*$1}
+repeat $!-$1 { *[$>] 2 +rand[$>] 0,1 round. +[$>,-1] }
+repeat $1 { l[{1+$<}] { +mirror xy } }
+else N=$1 fi
+r[-$N--1] 100%,100%,1,${max_s[-$N--1]} w={w} h={h} a[-$N--1] x
+r[^-1] ${w}00%,${h}00%,1,1 *[^-1] $w
+(0,{$w-1};0,{$w-1}^0,0;{$h-1},{$h-1}) r. $w,$h,1,2,3 round.
+repeat $!-2 { +r. [$>],[$>],1,2,0,2 r[$>] 100%,100%,1,2,0 +[$>,-1] +warp.. [$>],0,0,1 rv[$>,-1] rm. } rm[-2,-1]
+#@cli pack : is_ratio_constraint={ 0 | 1 },_sort_criterion
+#@cli : Pack selected images into a single image.
+#@cli : The returned status contains the list of new (x,y) offsets for each input image.
+#@cli : Parameter 'is_ratio_constraint' tells if the resulting image must tend to a square image.
+#@cli : Default values: 'is_ratio_constraint=0' and 'sort_criterion=max(w,h)'.
+#@cli : $ image.jpg repeat 10 +resize2dx[-1] 75% balance_gamma[-1] ${-rgb} done pack 0
+pack : skip ${1=0},${2=max(w,h)}
+e[^-1] "Pack image$? into a single image."
+if $!<2 return fi
+if ${-max_d}>1 error[0--3] "Command '$0': Selected images contain at least one volumetric image (depth>1).
+Should all be 2D." fi
+nm={0,n} to_colormode 0
+repeat $! { nm$>={$>,n} =>[$>] ${nm$>}:$> }
+m "_pack : ('{n}') l. { s +,{':'} u {t} rm }"
+if ['$2']=='n' sort_list +,n else sort_list -,"$2" fi
+offsets${-_pack[0]}=0,0
+N=$!
+i[0] 0
+do l[0,1,2] {
+w1,h1,w2,h2={[w#1,h#1,w#2,h#2]}
+slot,min_slot_area=-1,inf
+repeat h#0 {
+x,y,w,h={0,crop(0,$>,4,1)}
+slot_area={$w*$h}
+if $w>=$w2" && "$h>=$h2" && "$slot_area<=$min_slot_area
+slot,min_slot_area=$>,$slot_area
+fi
+}
+if $slot>=0
+x,y,w,h={0,crop(0,$slot,4,1)}
+j[1] [2],$x,$y offsets${-_pack[2]}=$x,$y
+l[0] {
+s y rm[$slot]
+area1={max(($w-$w2)*$h,$w2*($h-$h2))}
+area2={max(($w-$w2)*$h2,$w*($h-$h2))}
+if $area1>=$area2
+if $w2<$w i[$slot] ({$x+$w2},$y,{$w-$w2},$h) fi
+if $h2<$h i[$slot] ($x,{$y+$h2},$w2,{$h-$h2}) fi
+else
+if $w2<$w i[$slot] ({$x+$w2},$y,{$w-$w2},$h2) fi
+if $h2<$h i[$slot] ($x,{$y+$h2},$w,{$h-$h2}) fi
+fi
+a y if !$! 0 fi
+}
+rm[2]
+else
+if $1
+metric_h={abs($w1+$w2-max($h1,$h2))}
+metric_v={abs($h1+$h2-max($w1,$w2))}
+else
+metric_h={if($h2<$h1,$w2*($h1-$h2),$w1*($h2-$h1))}
+metric_v={if($w2<$w1,($w1-$w2)*$h2,($w2-$w1)*$h1)}
+fi
+if $metric_h<=$metric_v
+offsets${-_pack[2]}=$w1,0
+a[1,2] x,0
+if $h2<$h1 ($w1,$h2,$w2,{$h1-$h2}) a[0,-1] y
+elif $h2>$h1 (0,$h1,$w1,{$h2-$h1}) a[0,-1] y
+fi
+else
+offsets${-_pack[2]}=0,$h1
+a[1,2] y,0
+if $w2<$w1 ($w2,$h1,{$w1-$w2},$h2) a[0,-1] y
+elif $w2>$w1 ($w1,0,{$w2-$w1},$h1) a[0,-1] y
+fi
+fi
+fi
+} while $!>2
+rm[0]
+status=
+repeat $N { if narg($status) status=$status,${offsets$>} else status=${offsets$>} fi }
+=> $nm u $status
+um _pack
+#@cli puzzle : _width>0,_height>0,_M>=1,_N>=1,_curvature,_centering,_connectors_variability,_resolution>=1
+#@cli : Input puzzle binary mask with specified size and geometry.
+#@cli : Default values: 'width=height=512', 'M=N=5', 'curvature=0.5', 'centering=0.5', 'connectors_variability=0.5' and 'resolution=64'.
+#@cli : $ puzzle ,
+puzzle : check "isint(${1=512}) && $1>0 && isint(${2=$1}) && $2>0 && isint(${3=5}) && $3>0 &&
+isint(${4=$3}) && $4>0 && isint(${8=64}) && $8>0"
+skip ${5=0.5},${6=0.5},${7=0.5}
+e[^-1] "Draw $3x$4 puzzle pattern on image$?, with curvature $5, centering $6, connectors variability $7
+and resolution $8."
+l[] {
+if $4>=2 _puzzle[] $3,{$4-1},${5-8} +3d. 0,1 fi
+if $3>=2 _puzzle[] $4,{$3-1},${5-8} r3d. 0,0,1,-90 +3d. 1,$4 fi
+*3d {$1/$3},{$2/$4} quadrangle3d 0,0,0,{$1-1},0,0,{$1-1},{$2-1},0,0,{$2-1},0 p3d. 1 +3d col3d 1
+$1,$2 j3d. ..,0,0,0,1,1,0,0 rm..
+}
+_puzzle :
+R={$6*$1}
+repeat $2 {
+({'CImg3d'},$R,{$R-1})
+repeat $1 {
+sign={if(u<=0.5,-1,1)}
+center={$4*u(-0.25,0.25)}
+knob={$5*u(-0.05,0.12)}
+($>,0;{0.2+$center+$>},{-$sign*$3*0.1};{0.4+$center+$>},0;{0.35+$center+$>},{0.1*$sign};{0.45+$center+$>},{(0.15+$knob)*$sign};{0.55+$center+$>},{(0.15+$knob)*$sign};{0.65+$center+$>},{0.1*$sign};{0.6+$center+$>},0;{0.8+$center+$>},{-$sign*$3*0.1})
+}
+($1,0) a[-{$1+1}--1] y r. 2,$R,1,1,5 z. 0,2
+(2,0,1;2,{$R-2},{$R-1}) r. 3,{$R-1},1,1,3 round.
+3,{h},1,1,255 1,{h},1,1,255 y[-5--1] y a[-5--1] y +3d. 0,$>
+} +3d
+#@cli quadratize_tiles : M>0,_N>0
+#@cli : Quadratize MxN tiles on selected images.
+#@cli : Default value: 'N=M'.
+#@cli : $ image.jpg +quadratize_tiles 16
+quadratize_tiles : check "$1>0 && ${2=$1}>0"
+e[^-1] "Quadratize $1x$2 tiles on image$?."
+foreach {
+nm={n}
+s={s} split_tiles $1,$2 s c
+foreach {
+wh={w},{h}
++f x^2 +f. y^2 +f. x*y +f. x +f. y +f. 1 y a[^0] x
+solve.. . rm.
+$wh,1,1,{@0}"*x^2 + "{@1}"*y^2 + "{@2}"*x*y +"{@3}"*x + "{@4}"*y + "{@5} rm..
+}
+repeat int($!/$s) { a[-$s--1] c mv. 0 } append_tiles $1,$2
+=> $nm
+}
+#@cli rotate_tiles : angle,_M>0,N>0
+#@cli : Apply MxN tiled-rotation effect on selected images.
+#@cli : Default values: 'M=8' and 'N=M'.
+#@cli : $ image.jpg to_rgba rotate_tiles 10,8 drop_shadow 10,10 display_rgba
+rotate_tiles : skip ${2=8},${3=$2}
+e[^-1] "Apply $2x$3 tiled-rotation effect on image$?, with angle $1 deg."
+split_tiles $2,$3,1 rotate $1 append_tiles $2,$3
+#@cli shift_tiles : M>0,_N>0,_amplitude
+#@cli : Apply MxN tiled-shift effect on selected images.
+#@cli : Default values: 'N=M' and 'amplitude=20'.
+#@cli : $ image.jpg +shift_tiles 8,8,10
+shift_tiles : check "${2=$1}>=0" skip ${3=20}
+e[^-1] "Apply $1x$2 tiled-shift effect on image$?, with amplitude $3."
+foreach { $1,$2,1,2 noise. $3 r. ..,..,1,2 warp.. .,1,1,0 rm. }
+#@cli taquin : M>0,_N>0,_remove_tile={ 0=none | 1=first | 2=last | 3=random },_relief,_border_thickness[%],_border_outline[%],_outline_color
+#@cli : Create MxN taquin puzzle from selected images.
+#@cli : Default value: 'N=M', 'relief=50', 'border_thickness=5', 'border_outline=0' and 'remove_tile=0'.
+#@cli : $ image.jpg +taquin 8
+taquin : check "isint($1) && $1>0 & isint(${2=$1}) && $2>0"
+skip ${3=0},${4=50},${5=5%},${6=0},${7=0},${8=$7},${9=$8},${10=255}
+e[^-1] "Create $1x$2 taquin puzzle from image$?, with relief $4, border thickness $5, border outline $6 and
+outline color (${7--1})."
+foreach {
+nm={n}
+split_tiles $1,$2 r ${-min_wh},100%,100%,0
+100%,100%,1,1,1
+if ${"is_percent $5"} rectangle. {100*$5/2}%,{100*$5/2}%,{100-50*$5}%,{100-50*$5}%,1,0
+else rectangle. $5,$5,{w-1-$5},{h-1-$5},1,0 fi
+*. '1-2*(x/w,-1] { split_opacity[0] +[0] . a[^-1] c } } rm. c 0,255
+frame $6,$6,${7-10}
+if $3==3 f. 0 fi
+repeat $! { mv[$>] {u($!)} }
+if $3==1 f[0] 0 elif $3==2 f. 0 fi
+append_tiles $1,$2 => $nm
+}
+#@cli tunnel : _level>=0,_factor>0,_centering_x,_centering_y,_opacity,_angle
+#@cli : Apply tunnel effect on selected images.
+#@cli : Default values: 'level=9', 'factor=80%', 'centering_x=centering_y=0.5', 'opacity=1' and 'angle=0'
+#@cli : $ image.jpg tunnel 20
+tunnel : check "${1=9}>=0 && ${2=80%}>0" skip ${3=0.5},${4=0.5},${5=0.1},${6=0}
+e[^-1] "Apply tunnel effect on image$?, with depth $1, factor $2, centering ($3,$4), opacity $5 and angle $6."
+foreach {
+repeat $1 {
++r. $2,$2,1,100%,5
+if $6 100%,100%,1,1,1 rotate[-2,-1] $6,1,0 erode. 3 j... ..,{({-3,w}-w)*$3},{({-3,h}-h)*$4},0,0,$5,. rm[-2,-1]
+else j.. .,{({-2,w}-w)*$3},{({-2,h}-h)*$4},0,0,$5 rm. fi
+}
+}
+c 0,255
+#@cli :: Artistic
+#@cli boxfitting : _min_box_size>=1,_max_box_size>=0,_initial_density>=0,_min_spacing>0
+#@cli : Apply box fitting effect on selected images, as displayed the web page:
+#@cli : .
+#@cli : Default values: 'density=50', 'spreading=2', 'resolution=40%', 'line_opacity=10', 'line_precision=24' and 'mode=0'.
+#@cli : $ image.jpg linify 60
+linify : check "${1=40}>=0 && $1<=100 && ${2=2}>=0 && ${3=40%}>0 && ${4=10}>=0 && isint(${5=24}) && $5>0 &&
+isbool(${6=0})"
+e[^-1] "Apply linify effect on image$?, with density $1, spreading $2, resolution $3, line opacity $4,
+line precision $5 and "${"arg0 $6,subtractive,additive"}" mode."
+foreach {
+remove_opacity nm={n}
+100%,100%,1,{s},$6?0:255
+if {0,w>h} r2dx[0] {${"-is_percent $3"}?max(1,$3*w):min(w,$3)}
+else r2dy[0] {${"-is_percent $3"}?max(1,$3*h):min(h,$3)}
+fi
+n[0] 0,100
+if narg($_debug)" && "!{*,w} w[] ${-fitscreen[]\ {1,[w,h]}} fi
+eval "
+is_in(ind,P) = (P[0]>=0 && P[0]=0 && P[1]best_avg):(avgdensity):(ref $nm
+}
+#@cli mosaic : 0<=_density<=100
+#@cli : Create random mosaic from selected images.
+#@cli : Default values: 'density=30'.
+#@cli : $ image.jpg mosaic , +fill "I!=J(1) || I!=J(0,1)?[0,0,0]:I"
+mosaic : check "${1=30}>=0"
+e[^-1] "Apply mosaic effect on image$?, with density $1."
+foreach {
+100%,100%,1,2,'u<0.25*($1%)^4?[u,1]' s. c
+distance. 1 *. -1 watershed.. . rm.
+blend shapeaverage
+}
+#@cli old_photo
+#@cli : Apply old photo effect on selected images.
+#@cli : $ image.jpg old_photo
+old_photo :
+e[^-1] "Apply old photo effect on image$?."
+noise 20 bilateral 30,60 b 2 sharpen 100 frame_fuzzy 8%,8%,6,3 to_rgb shadow_patch 0.75 n 0,255 sepia
+#@cli pencilbw : _size>=0,_amplitude>=0
+#@cli : Apply B&W pencil effect on selected images.
+#@cli : Default values: 'size=0.3' and 'amplitude=60'.
+#@cli : $ image.jpg pencilbw ,
+pencilbw : skip ${1=0.3},${2=60}
+e[^-1] "Apply B&W pencil effect on image$?, with size $1 and amplitude $2."
+foreach {
+split_opacity l[0] { norm b $1 sharpen 4000 smooth $2,0,1 equalize sqrt n 0,255 }
+a c
+}
+#@cli pixelsort : _ordering={ + | - },_axis={ x | y | z | xy | yx },_[sorting_criterion],_[mask]
+#@cli : Apply a 'pixel sorting' algorithm on selected images, as described in the page :
+#@cli : x?(dx = xe - x + 1; Ndx = N*dx; Nx = N*x; copy(V,i(#0,Nx),Ndx); copy(i(#0,Nx),sort(V,$sort,dx,N),Ndx));
+);"
+r.. {-2,[$N,w/$N,h,d]},-1 permute.. yzcx a c
+#@cli polaroid : _size1>=0,_size2>=0
+#@cli : Create polaroid effect in selected images.
+#@cli : Default values: 'size1=10' and 'size2=20'.
+#@cli : $ image.jpg to_rgba polaroid 5,30 rotate 20 drop_shadow , drgba
+polaroid : check "${1=10}>=0 && ${2=20}>=0"
+e[^-1] "Create polaroid effect in image$?, with borders sizes $1 and $2."
+- 255 r {100+$1}%,{100+$1}%,1,100%,0,0,0.5,0.5 r 100%,{100+$2}%,1,100%,0,0,0 + 255
+#@cli polygonize : _warp_amplitude>=0,_smoothness[%]>=0,_min_area[%]>=0,_resolution_x[%]>0,_resolution_y[%]>0
+#@cli : Apply polygon effect on selected images.
+#@cli : Default values: 'warp_amplitude=300', 'smoothness=2%', 'min_area=0.1%', 'resolution_x=resolution_y=10%'.
+#@cli : $ image.jpg image.jpg polygonize 100,10 +fill "I!=J(1) || I!=J(0,1)?[0,0,0]:I"
+polygonize : check "${1=300}>=0 && ${2=2%}>=0 && ${3=0.1%}>=0 && ${4=10%}>0 && ${5=$4}>0"
+e[^-1] "Polygonize image$? with warp amplitude $1, smoothness $2, minimal area $3 and resolutions ($4,$5)."
+foreach {
++b $2 gradient_norm. g. a[-2,-1] c channels. 0,2 *. {1/0.1+max(abs(im),abs(iM))}
+resx={max(1,round(if(${is_percent\ $4},w*$4,w/$4)-1))}
+resy={max(1,round(if(${is_percent\ $5},h*$5,h/$5)-1))}
+plane3d 1,1,$resx,$resy *3d. {0,w-1},{0,h-1},1
+s3d. rm.. i.. (0;{h-1}) r.. 3,{h},1,1,3 round.. y..
+[-4] a[-7--2] y r. 3,{h/3},1,1,-1 z. 0,1 permute. yzcx
+repeat $1 { +warp[1] .,0,0,1 +[-2,-1] }
+permute. cxyz z. 0,2 y. j[2] .,0,8 rm[-3,-1]
+[0],[0] j3d. [1],0,0,0,1,2 rm[1]
+if $3>0
+min_area={0,if(${is_percent\ $3},$3*w*h,$3)}
++area. 0,1 >=. $min_area +.. 1 *.. . distance. 1 *. -1 watershed.. . rm.
+fi
+blend shapeaverage
+}
+#@cli poster_edges : 0<=_edge_threshold<=100,0<=_edge_shade<=100,_edge_thickness>=0,_edge_antialiasing>=0,0<=_posterization_level<=15,_posterization_antialiasing>=0
+#@cli : Apply poster edges effect on selected images.
+#@cli : Default values: 'edge_threshold=40', 'edge_shade=5', 'edge_thickness=0.5', 'edge_antialiasing=10', 'posterization_level=12' and 'posterization_antialiasing=0'.
+#@cli : $ image.jpg poster_edges ,
+poster_edges : check "${1=40}>=0 && $1<=100 && ${2=5}>=0 && $2<=100 && ${3=0.5}>=0 && ${4=10}>=0 &&
+${5=12}>=0 && $5<=15 && ${6=0}>=0"
+e[^-1] "Apply poster edge on image$?, with edge threshold $1, edge shade $2, edge thickness $3,
+edge antialiasing $4, $5 level of posterization and posterization antialiasing $6."
+foreach {
+split_opacity l[0] {
++g xy,1 a[-2,-1] c norm. b. $3 n. 0,255
+apply_curve. 1,0,1,{max(0,(100-($1%)^0.1*100)*255%)},0.99,{min(255,(101-($1%)^0.1*100+$2)*255%)},0.01,255,0 c. 0,1
+if $4 smooth. {min(50,$4)},0,1,{$4/40},{$4/40},0.8,90 fi
+if $5 autoindex[0] {round((4-sqrt($5+1))*32+2)} fi
+if $6 smooth[0] {min(50,$6)},0,1,{$6/40},{$6/40},0.8,90 fi
+*
+}
+a c
+}
+#@cli poster_hope : _smoothness>=0
+#@cli : Apply Hope stencil poster effect on selected images.
+#@cli : Default value: 'smoothness=3'.
+#@cli : $ image.jpg poster_hope ,
+poster_hope : check "${1=3}>=0"
+e[^-1] "Apply Hope stencil poster effect on image$?, with smoothness $1."
+foreach {
+to_rgb
+apc "smooth 200,0,1,$1,1"
+quantize 7,0 f 'if(i!=5,i,i+1-2*(y%2))'
+(0,32,47;0,32,47;209,1,23;209,1,23;90,141,145;-1,-1,-1;253,221,138) permute. yzcx
+map[0] [1] rm[1]
+}
+#@cli rodilius : 0<=_amplitude<=100,_0<=thickness<=100,_sharpness>=0,_nb_orientations>0,_offset,_color_mode={ 0=darker | 1=brighter }
+#@cli : Apply rodilius (fractalius-like) filter on selected images.
+#@cli : Default values: 'amplitude=10', 'thickness=10', 'sharpness=400', 'nb_orientations=7', 'offset=0' and 'color_mode=1'.
+#@cli : $ image.jpg rodilius 12,10,300,10 normalize_local 10,6
+#@cli : $ image.jpg normalize_local 10,16 rodilius 10,4,400,16 smooth 60,0,1,1,4 normalize_local 10,16
+rodilius : check "${1=10}>=0 && $1<=200 && ${2=10}>=0 && $2<=100 && ${3=400}>=0 && ${4=7}>0" skip ${5=0},${6=1}
+e[^-1] "Apply rodilius filter on image$? with amplitude $1, thickness $2, sharpness $3, $4 orientations,
+offset $5 and "${arg0\ !$6,brighter,darker}" color mode."
+foreach {
+split_opacity rv
+if !$6 negate. fi
++f. 0 => {-2,n}
+repeat round($4) {
+angle={$5+$>*180/round($4)}
++blur_linear.. $1%,{$1*$2/100}%,$angle,1 b. 0.7 sharpen. $3 max[-2,-1]
+}
+rm..
+if !$6 negate. fi
+rv a c
+}
+#@cli sketchbw : _nb_angles>0,_start_angle,_angle_range>=0,_length>=0,_threshold>=0,_opacity,_bgfactor>=0,_density>0,_sharpness>=0,_anisotropy>=0,_smoothness>=0,_coherence>=0,_is_boost={ 0 | 1 },_is_curved={ 0 | 1 }
+#@cli : Apply sketch effect to selected images.
+#@cli : Default values: 'nb_angles=2', 'start_angle=45', 'angle_range=180', 'length=30', 'threshold=3', 'opacity=0.03', 'bgfactor=0', 'density=0.6', 'sharpness=0.1', 'anisotropy=0.6', 'smoothness=0.25', 'coherence=1', 'is_boost=0' and 'is_curved=1'.
+#@cli : $ image.jpg +sketchbw 1 reverse blur[-1] 3 blend[-2,-1] overlay
+sketchbw :
+check "${1=2}>0 && ${3=180}>=0 && ${4=30}>=0 && ${5=3}>=0 && ${7=0}>=0 && ${8=0.6}>0 && ${9=0.1}>=0 &&
+${10=0.6}>=0 && ${11=0.25}>=0 && ${12=1}>=0"
+skip ${2=45},${6=0.03},${13=0},${14=0}
+e[^-1] "Apply B&W sketch effect on image$?."
+nb_angles,start_angle,angle_range,length,threshold,opacity,bgfactor,density,sharpness,anisotropy,smoothness,coherence,is_boost,is_curved=${1-14}
+length={max($length,1)}
+foreach {
+{0,[w,h,1,1,0]}
++gradient_norm[0] sqrt.
+diffusiontensors[0] $sharpness,$anisotropy,$smoothness,$coherence
+a[0,-1] c
+1,{$density*wh/sqrt($length)},1,2,round(u([w#0,h#0]-1)) # [2] = set of random points
+repeat $nb_angles {
+[0],[0],1,2,"
+const angle = ("$start_angle" + "$>"*"$angle_range"/"$nb_angles")*pi/180;
+const ca = cos(angle);
+const sa = sin(angle);
+T = I(#0);
+U = [ T[0]*ca + T[1]*sa, T[1]*ca + T[2]*sa ];
+if ("$is_boost",U/=(1e-8 + norm(U)));
+U"
+if $is_curved
+f[2] "*
+oub = ovb = ouf = ovf = 0;
+oixb = xb = xf = i0;
+oiyb = yb = yf = i1;
+oixf = oiyf = -1;
+op = "$opacity" * (i(#0,xf,yf,0,3)<"$threshold"?"$bgfactor":1);
+omop = 1 - op;
+if (op>0, repeat ("$length",dl,
+ixf = round(xf);
+iyf = round(yf);
+if (ixf!=oixf || iyf!=oiyf, (i(#1,ixf,iyf)*=omop)+=op; oixf = ixf; oiyf = iyf);
+uf = i(#-1,xf,yf,0,0,1,1);
+vf = i(#-1,xf,yf,0,1,1,1);
+if (ouf*uf + ovf*vf<0, uf*=-1; vf*=-1);
+xf+=uf;
+yf+=vf;
+ouf = uf;
+ovf = vf;
+ub = i(#-1,xb,yb,0,0,1,1);
+vb = i(#-1,xb,yb,0,1,1,1);
+if (oub*ub + ovb*vb<0, ub*=-1; vb*=-1);
+xb-=ub;
+yb-=vb;
+oub = ub;
+ovb = vb;
+ixb = round(xb);
+iyb = round(yb);
+if (ixb!=oixb || iyb!=oiyb, (i(#1,ixb,iyb)*=omop)+=op; oixb = ixb; oiyb = iyb);
+));
+I"
+else
+f[2] "*
+const l = "$length";
+x = i0;
+y = i1;
+u = i(#-1,x,y,0,0);
+v = i(#-1,x,y,0,1);
+op = "$opacity" * (i(#0,x,y,0,3)<"$threshold"?"$bgfactor":1);
+omop = 1 - op;
+polygon(#1,2,x - l*u,y - l*v,x + l*u,y + l*v,op,1);
+I"
+fi
+rm.
+}
+k.. * -1 n 0,255
+}
+#@cli sponge : _size>0
+#@cli : Apply sponge effect on selected images.
+#@cli : Default value: 'size=13'.
+#@cli : $ image.jpg sponge ,
+sponge : skip ${1=13}
+e[^-1] "Apply sponge filter on image$?, with brush size $1."
+foreach {
+100%,100%,1,1 noise. 20,2 ==. 1 ri. .. n. 0,1 *[-1,-2]
+_circle $1 dilate.. . rm.
+}
+_circle :
+if $1%2==0 2,2 else 1 fi
++. 1 r. $1,$1,1,1,0,0,0.5,0.5 distance. 1 n. 0,1 sqrt. c. 0.85,0.86 *. -1 n. 0,1
+#@cli stained_glass : _edges[%]>=0, shading>=0, is_thin_separators={ 0 | 1 }
+#@cli : Generate stained glass from selected images.
+#@cli : Default values: 'edges=40%', 'shading=0.2' and 'is_precise=0'.
+#@cli : $ image.jpg stained_glass 20%,1 cut 0,20
+stained_glass : check "${1=40%}>=0 && ${2=0.2}>=0" skip ${3=0}
+e[^-1] "Apply stained glass effect on image$?, with edges $1, shading $2 and thin-separators "${arg0\ !$3,enabled,disabled}"."
+foreach {
+im={im-1} - $im
++gradient_norm >=. $1 *.. .
+distance. 1 sharpen. 1e10 !=. 0
+if $3 skeleton. 0 fi
+distance. 1 watershed.. . +.. $im
+n. 0,1 ^. $2 *
+}
+#@cli stars : _density[%]>=0,_depth>=0,_size>0,_nb_branches>=1,0<=_thickness<=1,_smoothness[%]>=0,_R,_G,_B,_opacity
+#@cli : Add random stars to selected images.
+#@cli : Default values: 'density=10%', 'depth=1', 'size=32', 'nb_branches=5', 'thickness=0.38', 'smoothness=0.5', 'R=G=B=200' and 'opacity=1'.
+#@cli : $ image.jpg stars ,
+stars : check "${1=10%}>=0 && ${2=1}>=0 && ${3=32}>0 && ${4=5}>=1 && ${5=0.38}>=0 && $5<=1 && ${6=0.5}>=0"
+skip ${7=200},${8=$7},${9=$8},${10=1}
+e[^-1] "Add $1 random stars to image$?, with depth $2, size $3, $4 branches, thickness $5, smoothness $6,
+color ($7,$8,$9) and opacity $10."
+if !$1 return fi
+star3d $4,$5 col3d. 255 *3d. $3
+l. { repeat 4 { {round(2*$3)},{round(2*$3)} j3d. [0],50%,50%,0,1,2,0,0 r3d[0] 0,0,1,-90 } rm[0] }
+autocrop[-4--1] 0 r2dy[-4--1] $3 b[-4--1] $6,0 r[-4--1] 100%,100%,1,4
+repeat 4 { sh[{-1-$>}] 0,2 fc. $7,$8,$9 rm. }
+repeat $!-1 { [-4--1] l[$>,-4--1] {
+N={round(if(${is_percent\ $1},w*h*$1,$1)/4,1,1)}
+repeat 4 {
+2,$N rand. -1,1 1,$N rand. 0,1 a[-2,-1] x
+i.. ('CImg3d') +.. 0.5 i.. ($N;$N)
+(1,0;1,{$N-1}) r. 2,$N,1,1,3 round. 4,$N,1,1,1 y[-5,-3--1] a[-5--1] y
+rv[-2,-1] sprites3d.. .,1 rm. *3d. {0.75*{0,w}},{0.75*{0,h}},{1000*$2}
+j3d[0] .,50%,50%,0,$10,0,0,0 rm.
+}
+} }
+rm[-4--1]
+#@cli stencil : _radius[%]>=0,_smoothness>=0,_iterations>=0
+#@cli : Apply stencil filter on selected images.
+#@cli : Default values: 'radius=3', 'smoothness=1' and 'iterations=8'.
+#@cli : $ image.jpg +norm stencil. 2,1,4 +mul rm[0]
+stencil : check "${1=3}>=0 && ${2=1}>=0 && ${3=8}>=0"
+e[^-1] "Apply stencil filter on image$?, with radius $1, smoothness $2 and $3 iterations."
+n 0,1 repeat $3 { b $1 unsharp {$1+$2},1000 c 0,255 }
+#@cli stencilbw : _edges>=0,_smoothness>=0
+#@cli : Apply B&W stencil effect on selected images.
+#@cli : Default values: 'edges=15' and 'smoothness=10'.
+#@cli : $ image.jpg +stencilbw 40,4
+stencilbw : skip ${1=15},${2=10}
+e[^-1] "Apply B&W stencil effect on image$?, with edges $1 and smoothness $2."
+foreach {
+split_opacity luminance[0] n[0] 0,255
++edges[0] $1 quantize[0] 3,0,1 b[0] $2
+sharpen[0] 1000000 n[0] 0,1 *[0,-1] n[0] 0,255 a c
+}
+#@cli stylize : [style_image],_fidelity_finest,_fidelity_coarsest,_fidelity_smoothness_finest>=0,_fidelity_smoothnes_coarsest>=0,0<=_fidelity_chroma<=1,_init_type,_init_resolution>=0,init_max_gradient>=0,_patch_size_analysis>0,_patch_size_synthesis>0,_patch_size_synthesis_final>0,_nb_matches_finest>=0,_nb_matches_coarsest>=0,_penalize_repetitions>=0,_matching_precision>=0,_scale_factor>1,_skip_finest_scales>=0,_"image_matching_command"
+#@cli : Transfer colors and textures from specified style image to selected images, using a multi-scale patch-mathing algorithm.
+#@cli : If instant display window[0] is opened, the steps of the image synthesis are displayed on it.
+#@cli : 'init_type' can be { 0=best-match | 1=identity | 2=randomized }.
+#@cli : Default values: 'fidelity_finest=0.5', 'fidelity_coarsest=2', 'fidelity_smoothness_finest=3', 'fidelity_smoothness_coarsest=0.5', 'fidelity_chroma=0.1', 'init_type=0', 'init_resolution=16', 'init_max_gradient=0', 'patch_size_analysis=5', 'patch_size_synthesis=5', 'patch_size_synthesis_final=5', 'nb_matches_finest=2', 'nb_matchesc_coarsest=30', 'penalize_repetitions=2', 'matching_precision=2', 'scale_factor=1.85', 'skip_finest_scales=0' and 'image_matching_command'="s c,-3 match_pca[0] [2] b[0,2] xy,0.7 n[0,2] 0,255 n[1,2] 0,200 a[0,1] c a[1,2] c"'.
+stylize :
+check ${"is_image_arg $1"}" && isnum(${2=0.5}) && isnum(${3=2}) && ${4=3}>=0 && ${5=0.5}>=0 && ${6=0.1}>=0 && ""$6<=1 && isint(${7=0}) && $7>=0 && $7<=3 && isint(${8=16}) && $8>=0 && ${9=0}>=0 && isint(${10=5}) && ""$10>0 && isint(${11=5}) && $11>0 && isint(${12=$11}) && $12>0 && isint(${13=2}) && isint(${14=30}) && ""${15=2}>=0 && ${16=2}>=0 && ${17=1.85}>1 && isint(${18=0})>=0"
+skip "${19=s c,-3 match_pca[0] [2] b[0,2] xy,0.7 n[0,2] 0,255 n[1,2] 0,200 a[0,1] c a[1,2] c}"
+e[^-1] "Stylize image$? with style image $1."
+fidelity_finest,\
+fidelity_coarsest,\
+fidelity_smoothness_finest,\
+fidelity_smoothness_coarsest,\
+fidelity_chroma,\
+init_type,\
+init_resolution,\
+init_max_gradient,\
+patch_size_analysis,\
+patch_size_synthesis,\
+patch_size_synthesis_final,\
+nb_matches_finest,\
+nb_matches_coarsest,\
+penalize_repetitions,\
+matching_precision,\
+scale_factor,\
+skip_finest_scales=${2-18} \
+m "stylize_match : $19"
+init_resolution={max(2*$patch_size_analysis,$init_resolution)}
+mprec0={round(2+1.5*$matching_precision)}
+mprec1={1+round(4*$matching_precision)}
+is_window={*}
+pass$1
+repeat $!-1 { l[$>,-1] {
+to_colormode.. {s}
+nb_scales={1+round(log(min(w#0,h#0,w#1,h#1)/$init_resolution)/log($scale_factor),1,-1)}
+if {*} wsiz=${"fitscreen "{0,[w,h]}} w[0] $wsiz,0,"[G'MIC Stylize]" fi
+repeat $nb_scales { scale=$>
+size_factor={100/($scale_factor^$<)}
+if !$scale
++r[0,1] $size_factor%,$size_factor%,100%,100%,2 ws,hs={-2,[w,h]}
++to_color[0,1] channels[-2,-1] 0,2 gradient_norm[-2,-1]
+r. [-3],[-3],[-3],1,2 r.. [-4],[-4],[-4],1,2
+a[-3,-1] c a[-3,-1] c
+stylize_match[-2,-1]
+if $init_type==0
++matchpatch.. .,3,3,1,{2*$mprec0},{2*$mprec1},$penalize_repetitions
+else
+..,..,1,2,"round([x,y]*([w#-1,h#-1]-1)/([w,h]-1))" # Identity
+if d#-2>1 channels. 0,2 fi
+if $init_type==2 eval. ">P = u([w,h]-1); tmp = I(P); I(P) = I; I() = tmp" fi
+fi
+rm[-3,-2]
+if $init_max_gradient>0
++gradient_norm[0] r. ..,..,1,1,2 gt. $init_max_gradient
++.. 1 *[-2,-1] _inpaint_warping2d. --. 1
+fi
+if $is_window" && "!{*} break fi
+else
+factor={1-($scale-1)/max(1,$nb_scales-2)}
++r[0,1] $size_factor%,$size_factor%,100%,100%,2
++to_color[-2,-1] channels[-2,-1] 0,2 gradient_norm[-2,-1]
+a[-3,-1] c a[-3,-1] c
+stylize_match[-2,-1] mv[-2,-1] -3
+sh. 0 *. {-3,w/$ws} rm. sh. 1 *. {-3,h/$hs} rm. round.
++. 1 r. ...,...,1,100%,4 -. 1
+do
+f. "begin(const boundary = 1; nx = ny = vectors(); nx[0] = ny[1] = 1);
+i>=0?I:(
+j(-1)>=0?J(-1) + nx:
+j(0,-1)>=0?J(0,-1) + ny:
+j(1)>0?J(1) - nx:
+j(0,1)>0?J(0,1) - ny:I)"
+while im<0
+ws,hs={-2,[w,h]}
+if $<<$skip_finest_scales rm[-3,-2] continue fi
++warp_patch.. .,$patch_size_synthesis,$patch_size_synthesis,1
+if {*} w. fi
+fidelity={max(0,$fidelity_finest+($fidelity_coarsest-$fidelity_finest)*$factor)}
+fidelity_smoothness={$fidelity_smoothness_finest+($fidelity_smoothness_coarsest-$fidelity_smoothness_finest)*$factor}
+if $fidelity>0.1
+sh. 0,2 sh[-5] 0,2 +gradient_norm[-2,-1] rm[-4,-3]
+*. $fidelity argmax[-2,-1] b. xy,$fidelity_smoothness n. 0,{min(1,$fidelity)}
+sh[-5,-2] 0,2 srgb2lab[-2,-1] rm[-2,-1]
++*. $fidelity_chroma r. 100%,100%,1,2,1 a[-2,-1] c j.. [-5],0,0,0,0,1,. rm.
+sh. 0,2 lab2srgb. rm.
+fi
+rm[-4]
+nb_matches={max(0,round($nb_matches_finest+($nb_matches_coarsest-$nb_matches_finest)*$factor^2))}
+nb_scales1={$nb_scales-1}
+nb_matches1={$nb_matches-1}
+if {*} +r. $wsiz,1,100% to. "Scale "$scale/$nb_scales1": 0%",5,2,24 w. -1,-1,0 rm. fi
+repeat $nb_matches {
+matchpatch. ...,$patch_size_analysis,$patch_size_analysis,1,$mprec0,$mprec1,$penalize_repetitions,0,..
+-.. . abs.. diff={-2,ia} rm..
++warp_patch.. .,$patch_size_synthesis,$patch_size_synthesis,1
+if {*}" && "(!($>%5)" || "$nb_matches<=10)
++r. $wsiz,1,100%
+to. "Scale "$scale/$nb_scales1": "{round(100*($>+1)/$nb_matches)}%,5,2,24 w. -1,-1,0 rm.
+fi
+if $is_window" && "!{*} break fi
+if $diff<1 break fi
+}
+rm[-3,-1]
+fi
+if $is_window" && "!{*} break fi
+}
+if $is_window" && "!{*} k[0,1] break fi
++warp_patch[1] .,$patch_size_synthesis_final,$patch_size_synthesis_final,1 c. 0,255
+rv[0,-1] rm[-2,-1]
+} } rm.
+um stylize_match
+#@cli tetris : _scale>0
+#@cli : Apply tetris effect on selected images.
+#@cli : Default value: 'scale=10'.
+#@cli : $ image.jpg +tetris 10
+tetris : skip ${1=10}
+e[^-1] "Apply tetris effect on image$?, with scale $1."
+foreach { wh={w},{h},1,{s} r $1%,$1%,$1%,100%,2 n 0,255 quantize 10,1,0 r $wh b 2 sharpen 300,1 }
+#@cli warhol : _M>0,_N>0,_smoothness>=0,_color>=0
+#@cli : Create MxN Andy Warhol-like artwork from selected images.
+#@cli : Default values: 'M=3', 'N=M', 'smoothness=2' and 'color=20'.
+#@cli : $ image.jpg warhol 3,3,3,40
+warhol : skip ${1=3},${2=$1},${3=2},${4=20}
+e[^-1] "Create $1x$2 Andy Warhol-like artwork from image$?."
+r0={100/max($1,$2)}
+foreach {
+norm b $3 r $r0%,$r0%,1,100%,2 quantize 6 n 0,5 round 1
+repeat $1 {
+repeat $2 { (0,1,2,3,4,5) n. 32,224 6,1,1,2,128 noise. $4,0 c. 0,255 a[-2,-1] c ycbcr2rgb. +map[0] . rm.. }
+}
+append_tiles[^0] $1,$2 =>[1] {0,n} rm[0]
+}
+#@cli weave : _density>=0,0<=_thickness<=100,0<=_shadow<=100,_shading>=0,_fibers_amplitude>=0,_fibers_smoothness>=0,_angle,-1<=_x_curvature<=1,-1<=_y_curvature<=1
+#@cli : Apply weave effect to the selected images.
+#@cli : 'angle' can be { 0=0 deg. | 1=22.5 deg. | 2=45 deg. | 3=67.5 deg. }.
+#@cli : Default values: 'density=6', 'thickness=65', 'shadow=40', 'shading=0.5', 'fibers_amplitude=0', _'fibers_smoothness=0', 'angle=0' and 'curvature_x=curvature_y=0'
+#@cli : $ image.jpg weave ,
+weave : check "${1=6}>=0 && ${2=65}>=0 && $2<=100 && ${3=40}>=0 && $3<=100 && ${4=0.5}>=0"
+check "${5=0}>=0 && ${6=0}>=0 && ${7=0}>=0 && $7<=3 && ${8=0}>=-1 && $8<=1 && ${9=0}>=-1 && $9<=1"
+e[^-1] "Apply weave effect to image$?, with $1 strips, thickness $2, shadow $3, shading $4, ""fibers amplitude $5 and fibers smoothness $6, angle "{$7*22.5}" deg. and curvatures ($8,$9)."
+foreach { split_opacity l[0] {
+w={round(max(w,h)/$1,1,1)} h=$w s={(100-$3)*255%} p={max(0.01,$4)}
+1,$h =. 1,0,50% distance. 1 ^. $p c. 50%,100% r. {max(1,round($2*$w%))},100%
+$w,1 =. 1,50% distance. 1 ^. $p c. 50%,100% *. -1 r. 100%,{max(1,round($2*$h%))}
++*. -1 +*... -1 n[-4,-2] 0,$s n[-3,-1] $s,255
+{w},1 1,... rand[-2,-1] 0,1 b[-2,-1] $6% n[-2,-1] -$5,$5 ri. [-4] +[-5] . +[-4,-1] +[-5] . +[-2,-1]
++f... 255 a[-4,-1] c +f. 255 a[-2,-1] c
+amp_x={$8*($w-w)/2} amp_y={$9*($w-w)/2}
+r[-4--1] $w,$h,1,100%,0,0,0.5,0.5
+f[-4] 'i(x+$amp_x*sin(y/h*pi),y,0,c,1,2)' f. 'i(x-$amp_x*sin(y/h*pi),y,0,c,1,2)'
+f... 'i(x,y+$amp_y*sin(x/w*pi),0,c,1,2)' f.. 'i(x,y-$amp_y*sin(x/w*pi),0,c,1,2)'
+blend[-4,-3] alpha blend[-2,-1] alpha c[-2,-1] 0,255
+/[-2,-1] 255 . ... a[-4,-2] x a[-2,-1] x a[-2,-1] y rotate_tileable. {$7*22.5}
+r. ..,..,1,1,0,2 *[-2,-1]
+} a c }
+#@cli whirls : _texture>=0,_smoothness>=0,_darkness>=0,_lightness>=0
+#@cli : Add random whirl texture to selected images.
+#@cli : Default values: 'texture=3', 'smoothness=6', 'darkness=0.5' and 'lightness=1.8'.
+#@cli : $ image.jpg whirls ,
+whirls : skip ${1=3},${2=6},${3=0.5},${4=1.8}
+e[^-1] "Add random whirl texture to image$?, with texture $1, smoothness $2, darkness $3 and lightness $4."
+foreach {
+100%,100% noise. 0.3,2 ==. 1 repeat $1 { b. $2 +. 0.1 gradient_norm. ^. 0.2 }
+n. $3,$4 ri. .. * c 0,255
+}
+#@cli :: Warpings
+#@cli deform : _amplitude>=0,_interpolation
+#@cli : Apply random smooth deformation on selected images.
+#@cli : 'interpolation' can be { 0=none | 1=linear | 2=bicubic }.
+#@cli : Default value: 'amplitude=10'.
+#@cli : $ image.jpg +deform[0] 10 +deform[0] 20
+deform : skip ${1=10},${2=1}
+e[^-1] "Apply random smooth deformation on image$?, with amplitude $1."
+foreach { 2%,2%,1,2 noise. $1 r. ..,..,1,2,5 warp.. .,1,$2,1 rm. }
+#@cli euclidean2polar : _center_x[%],_center_y[%],_stretch_factor>0,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Apply euclidean to polar transform on selected images.
+#@cli : Default values: 'center_x=center_y=50%', 'stretch_factor=1' and 'boundary_conditions=3'.
+#@cli : $ image.jpg +euclidean2polar ,
+euclidean2polar : skip ${1=50%},${2=50%} check "${3=1}>0 && isint(${4=3}) && $4>=0 && $4<=3"
+e[^-1] "Apply euclidean to polar transform on image$?, with center point ($1,$2), stretch factor $3 and "${"arg0 $4,dirichlet,neumann,periodic,mirror"}" boundary conditions."
+foreach {
+cx={if(${is_percent\ $1},$1*(w-1),$1)}
+cy={if(${is_percent\ $2},$2*(h-1),$2)}
+R={sqrt(max($cx^2,(w-1-$cx)^2)+max($cy^2,(h-1-$cy)^2))}
+f 'r=$R*(x/(w-1))^$3;a=y*2*pi/(h-1);i($cx+r*cos(a),$cy+r*sin(a),z,c,1,$4)'
+}
+#@cli equirectangular2nadirzenith
+#@cli : Transform selected equirectangular images to nadir/zenith rectilinear projections.
+equirectangular2nadirzenith :
+e[^-1] "Transform equirectangular image$? to nadir/zenith rectilinear projections."
+foreach {
+100%,100%,1,2
+sh. 100%
+f. "
+X = 2*x/(w-1) - 1;
+Y = y/(h-1) - 0.5;
+if (X<0,
+sinphi1 = 1; X+=0.5,
+sinphi1 = -1; X-=0.5
+);
+rr = sqrt(X*X + Y*Y);
+cc = atan(2*rr);
+phi = rr==0?0:asin(cos(cc)*sinphi1);
+X = atan2(X,-Y*sinphi1)/pi;
+Y = phi/pi;
+(++X)*=0.5*w;
+(Y+=0.5)*=h;
+i(#-2) = X; Y;"
+warp[0] [1],0,0,1 k...
+}
+#@cli fisheye : _center_x,_center_y,0<=_radius<=100,_amplitude>=0
+#@cli : Apply fish-eye deformation on selected images.
+#@cli : Default values: 'x=y=50', 'radius=50' and 'amplitude=1.2'.
+#@cli : $ image.jpg +fisheye ,
+fisheye : skip ${1=50},${2=50},${3=50},${4=1.2}
+e[^-1] "Apply Fish-eye effect on image$?, centered at ($1%,$2%) with radius $3% and amplitude $4."
+if $4==0 return fi
+foreach {
+100%,100%,1,1 =. 1,$1%,$2% distance. 1 c. 0,$3% *. -1 n. 0,1 ^. {1/$4}
+i.. ({-$1/100},{1-$1/100};{-$1/100},{1-$1/100}^{-$2/100},{-$2/100};{1-$2/100},{1-$2/100}) r.. .,.,1,2,3
+n. 0,{max(w,h)} *[-2,-1]
+warp.. .,1,1,1 rm.
+}
+#@cli flower : _amplitude,_frequency,_offset_r[%],_angle,_center_x[%],_center_y[%],_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror}
+#@cli : Apply flower deformation on selected images.
+#@cli : Default values: 'amplitude=30', 'frequency=6', 'offset_r=0', 'angle=0', 'center_x=center_y=50%' and 'boundary_conditions=3'.
+#@cli : $ image.jpg +flower ,
+flower : skip ${1=30},${2=6},${3=0},${4=0},${5=50%},${6=50%},${7=3}
+e[^-1] "Apply flower deformation on image$?, with amplitude $1, frequency $2, offset $3, angle $4 deg. and
+center point ($1,$2)."
+if ${"is_percent $3"}
+transform_polar "r + (R*$3) + R*$1/100*cos(a*$2+$4*pi/180)","a",$5,$6,$7
+else
+transform_polar "r + $3 + R*$1/100*cos(a*$2+$4*pi/180)","a",$5,$6,$7
+fi
+#@cli kaleidoscope : _center_x[%],_center_y[%],_radius,_angle,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Create kaleidoscope effect from selected images.
+#@cli : Default values: 'center_x=center_y=50%', 'radius=100', 'angle=30' and 'boundary_conditions=3'.
+#@cli : $ image.jpg kaleidoscope ,
+kaleidoscope : skip ${1=50%},${2=50%},${3=100},${4=30},${5=3}
+e[^-1] "Create kaleidoscope effect from image$?, with center point ($1,$2), radius $3, angle $4 deg."
+euclidean2polar $1,$2,1,$5
+foreach { +columns 0,$3% rows. 0,$4% ri. ..,0,2 =>[1] {0,n} rm[0] }
+polar2euclidean $1,$2,1,$5
+#@cli map_sphere : _width>0,_height>0,_radius,_dilation>0,_fading>=0,_fading_power>=0
+#@cli : Map selected images on a sphere.
+#@cli : Default values: 'width=height=512', 'radius=100', 'dilation=0.5', 'fading=0' and 'fading_power=0.5'.
+#@cli : $ image.jpg map_sphere ,
+map_sphere : check "${1=512}>0 && ${2=512}>0 && ${5=0}>=0 && ${6=0.5}>=0" skip ${3=100},${4=0.5}
+e[^-1] "Map image$? on spheres in $1x$2 images, with radius $3, dilation $4 and fading $5."
+r2={($3*min($1,$2)/200)^2}
+foreach {
+i.. 100%,1,1,100%,0 =>[0] {1,n} a y
+({-$1/2},{$1/2}) ({-$2/2};{$2/2}) r[-2,-1] $1,$2,1,1,3 atan2. .. rm..
+$1,$2 =. 1,50%,50% distance. 1,3 /. $r2 sqrt. c. 0,1
+asin.
++.. {pi} *.. {({-3,w}-1)/(2*pi)}
+*. {2/pi} ^. $4 *. {{-3,h}-1} *. -1 +. {{-3,h}-1}
+if $5 +>=. 1 distance. 1 c. 0,$5% n. 0,1 ^. $6 c.. 1,100% -[-2,-1] fi
+r[-1,-2] 100%,100%,{-3,d}
++f. z a[-3--1] c
+warp.. .,0,1,1 rm.
+}
+#@cli nadirzenith2equirectangular
+#@cli : Transform selected nadir/zenith rectilinear projections to equirectangular images.
+nadirzenith2equirectangular :
+e[^-1] "Transform nadir/zenith rectilinear projection$? to equirectangular images."
+foreach {
+100%,100%,1,2
+sh. 100%
+f. "
+X = 2*x/(w-1) - 1;
+Y = y/(h-1) - 0.5;
+output = 1;
+if (Y>0.125,
+sinphi1 = 1; xc = -0.5,
+if (Y<-0.125,
+sinphi1 = -1; xc = 0.5,
+output = 0
+));
+cosc = sinphi1*sin(Y*pi);
+xx = cos(Y*pi)*sin(X*pi)/cosc;
+yy = -sinphi1*cos(Y*pi)*cos(X*pi)/cosc;
+if (abs(xx)>1, output=0);
+(xx*=0.5)+=xc;
+yy*=0.5;
+if (!output, xx = yy = -1);
+(++xx)*=0.5*w;
+(yy+=0.5)*=h;
+i(#-2) = xx; yy;"
+to_a[0] warp[0] [1],0,0,0 k...
+}
+#@cli polar2euclidean : _center_x[%],_center_y[%],_stretch_factor>0,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Apply euclidean to polar transform on selected images.
+#@cli : Default values: 'center_x=center_y=50%', 'stretch_factor=1' and 'boundary_conditions=3'.
+#@cli : $ image.jpg +euclidean2polar ,
+polar2euclidean : skip ${1=50%},${2=50%} check "${3=1}>0 && isint(${4=3}) && $4>=0 && $4<=3"
+e[^-1] "Apply polar to euclidean transform on image$?, with center point ($1,$2), stretch factor $3 and "${"arg0 $4,dirichlet,neumann,periodic,mirror"}" boundary conditions."
+foreach {
+cx={if(${is_percent\ $1},$1*(w-1),$1)}
+cy={if(${is_percent\ $2},$2*(h-1),$2)}
+R={sqrt(max($cx^2,(w-1-$cx)^2)+max($cy^2,(h-1-$cy)^2))}
+f "X = sqrt((x-"$cx")^2+(y-"$cy")^2);
+tmp = atan2((y-"$cy"),(x-"$cx"));
+Y = if(tmp<0,tmp+2*pi,tmp);
+i((X/"$R")^(1/$3)*(w-1),Y*(h-1)/(2*pi),z,c,1,$4)"
+}
+#@cli raindrops : _amplitude,_density>=0,_wavelength>=0,_merging_steps>=0
+#@cli : Apply raindrops deformation on selected images.
+#@cli : Default values: 'amplitude=80','density=0.1', 'wavelength=1' and 'merging_steps=0'.
+#@cli : $ image.jpg +raindrops ,
+raindrops : check "${2=0.1}>=0 && ${3=1}>=0 && isint(${4=0}) && $4>=0" skip ${1=80}
+e[^-1] "Apply raindrops deformation on image$?, with amplitude $1, density $2, wavelength $3 and $4 merging steps."
+foreach {
+100%,100% noise. $2,2 ==. 1 distance. 1 f. 'cos(i)/(1+i/(1e-8+$3))'
+if $4
+i.. (0,1,0;1,0,1;0,1,0) /.. 2 .
+repeat $4 { +convolve. ...,1 -. ... rm... } rm[-3,-2]
+fi
+g. a[-2,-1] c *. {$1/(1e-5+max(abs(im),abs(iM)))}
+warp.. .,1,1,1 rm.
+}
+#@cli ripple : _amplitude,_bandwidth,_shape={ 0=block | 1=triangle | 2=sine | 3=sine+ | 4=random },_angle,_offset
+#@cli : Apply ripple deformation on selected images.
+#@cli : Default values: 'amplitude=10', 'bandwidth=10', 'shape=2', 'angle=0' and 'offset=0'.
+#@cli : $ image.jpg +ripple ,
+ripple : skip ${1=10},${2=20},${3=2},${4=0},${5=0}
+e[^-1] "Apply ripple deformation on image$?, with amplitude $1, bandwidth $2, shape $3, angle $4 deg. and offset $5."
+theta={$4*pi/180} C={cos($theta)} S={-sin($theta)}
+foreach {
+100%,100%,1,1,"x" -. {w/2} 100%,100%,1,1,'y'
+-. {h/2-$5} *.. $S *. $C +[-2,-1]
+_ripple$3. $1,$2
++*. {-$S} *.. $C a[-2,-1] c
+warp.. .,1,1,1 rm.
+}
+_ripple0 : f {$1/2}*"(1-2*(i%"{2*$2}"<$2))"
+_ripple1 : f "I=(i%$2)/$2;$1*(2*if(I<0.5,I,1-I)-0.5)"
+_ripple2 : f {-$1/2}*"cos(i*"{2*pi/$2}")"
+_ripple3 : f {-$1/2}*"abs(cos(i*"{2*pi/$2}"))"
+_ripple4 : skip $* n 0,{h-1} 1,{h} rand. {-$1/2},{$1/2} m={im} M={iM} b. {$2/10} n. $m,$M map.. . rm.
+#@cli rotoidoscope : _center_x[%],_center_y[%],_tiles>0,_smoothness[%]>=0,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Create rotational kaleidoscope effect from selected images.
+#@cli : Default values: 'center_x=center_y=50%', 'tiles=10', 'smoothness=1' and 'boundary_conditions=3'.
+#@cli : $ image.jpg +rotoidoscope ,
+rotoidoscope : skip ${1=50%},${2=50%},${5=1} check "${3=10}>0 && ${4=3}>=0"
+e[^-1] "Create rotational kaleidoscope effect from image$?, with center point ($1,$2), $3 tiles and smoothness $4."
+foreach {
+repeat $3 { +rotate[0] {360/$3},1,$5,$1,$2 blend_edges $4 }
+}
+#@cli spherize : _radius[%]>=0,_strength,_smoothness[%]>=0,_center_x[%],_center_y[%],_ratio_x/y>0,_angle,_interpolation
+#@cli : Apply spherize effect on selected images.
+#@cli : Default values: 'radius=50%', 'strength=1', 'smoothness=0', 'center_x=center_y=50%', 'ratio_x/y=1', 'angle=0' and 'interpolation=1'.
+#@cli : $ image.jpg grid 5%,5%,0,0,0.6,255 spherize ,
+spherize : check "${1=50%}>=0 && ${3=0}>=0 && ${6=1}>0 && isint(${8=1}) && $8>=0 && $8<=2"
+skip "${2=1},${4=50%},${5=50%},${7=0}"
+e[^-1] "Apply spherize effect on image$?, with radius $1, strength $2, smoothness $3, center ($4,$5),
+x/y-ratio $6, angle $7 and "${"arg0 $8,nearest-neighbor,linear,cubic"}" interpolation."
+if !$1||!$2 return fi
+foreach {
+rmax={${"is_percent $1"}?0.5*sqrt((w-1)^2+(h-1)^2)*$1:$1}
+centerx={${"is_percent $4"}?(w-1)*$4:$4}
+centery={${"is_percent $5"}?(h-1)*$5:$5}
+strength={$2>0?$2:1-exp($2/5)}
+100%,100%,1,2,"
+begin(
+center = [ "$centerx","$centery" ];
+wh1 = [ w,h ] - 1;
+m2wh1 = 0.5*max(wh1);
+rmax = "$rmax"/m2wh1;
+const f = 1/"$strength";
+const ratio = $6;
+rotf = rot($7°);
+rotb = rot(-$7°);
+);
+xy = ([x,y] - center)/m2wh1;
+xy = rotf*xy;
+ratio>=1?(xy[1]*=ratio):(xy[0]/=ratio);
+r = norm(xy);
+z = r=1?(xy[1]/=ratio):(xy[0]*=ratio);
+xy = rotb*xy;
+xy = center + f*xy/(f + z)*m2wh1"
+b. $3
+warp.. .,0,$8,1 rm.
+}
+#@cli symmetrize : _x[%],_y[%],_angle,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror },_is_antisymmetry={ 0 | 1 },_swap_sides={ 0 | 1 }
+#@cli : Symmetrize selected images regarding specified axis.
+#@cli : Default values: 'x=y=50%', 'angle=90', 'boundary_conditions=3', 'is_antisymmetry=0' and 'swap_sides=0'.
+#@cli : $ image.jpg +symmetrize 50%,50%,45 +symmetrize[-1] 50%,50%,-45
+symmetrize : skip ${1=50%},${2=50%},${3=90},${4=3},${5=0},${6=0}
+e[^-1] "Symmetrize image$?, regarding axis ($1,$2,$3 deg.)."
+theta={$3*pi/180} u={cos($theta)} v={sin($theta)}
+if $6 symmetry_cond=A<0 else symmetry_cond=A>0 fi
+foreach {
+x0={if(${is_percent\ $1},w*$1,$1)}
+y0={if(${is_percent\ $2},h*$2,$2)}
+if $5 f 'A=($y0-y)*$u-($x0-x)*$v;X=x+2*($x0-x);Y=y+2*($y0-y);if($symmetry_cond,i(X,Y,z,c,1,$4),i)'
+else f 'A=($y0-y)*$u-($x0-x)*$v;X=x-2*$v*A;Y=y+2*$u*A;if($symmetry_cond,i(X,Y,z,c,1,$4),i)'
+fi
+}
+#@cli transform_polar : "expr_radius",_"expr_angle",_center_x[%],_center_y[%],_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Apply user-defined transform on polar representation of selected images.
+#@cli : Default values: 'expr_radius=R-r', 'expr_rangle=a', 'center_x=center_y=50%' and 'boundary_conditions=3'.
+#@cli : $ image.jpg +transform_polar[0] R*(r/R)^2,a +transform_polar[0] r,2*a
+transform_polar : skip "${1=R-r}","${2=a}",${3=50%},${4=50%},${5=3}
+e[^-1] "Apply custom polar transform with 'new_r = $1', 'new_a = $2', center point ($3%,$4%)."
+foreach {
+cx={if(${is_percent\ $3},$3*(w-1),$3)}
+cy={if(${is_percent\ $4},$4*(h-1),$4)}
+R={sqrt(max($cx^2,(w-1-$cx)^2)+max($cy^2,(h-1-$cy)^2))}
+f "R ="$R";
+r = sqrt((x-"$cx")^2 + (y-"$cy")^2);
+a = atan2(y-"$cy",x-"$cx");
+nr = ($1);
+na = ($2);
+i("$cx" + nr*cos(na), "$cy" + nr*sin(na), z, c,1,$5)"
+}
+#@cli twirl : _amplitude,_center_x[%],_center_y[%],_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Apply twirl deformation on selected images.
+#@cli : Default values: 'amplitude=1', 'center_x=center_y=50%' and 'boundary_conditions=3'.
+#@cli : $ image.jpg twirl 0.6
+twirl : skip ${1=1},${2=50%},${3=50%},${4=3}
+e[^-1] "Apply twirl deformation on image$?, with amplitude $1 and center point at ($2%,$3%)."
+euclidean2polar $2,$3,1,$4
+repeat $! { [$>],[$>],1,1,$1*x channels. -1,0 warp[$>] .,1,1,2 rm. }
+polar2euclidean $2,$3,1,1
+#@cli warp : [warping_field],_mode,_interpolation,_boundary_conditions,_nb_frames>0 : (+)
+#@cli : Warp selected images with specified displacement field.
+#@cli : 'mode' can be { 0=backward-absolute | 1=backward-relative | 2=forward-absolute | 3=forward-relative }.
+#@cli : 'interpolation' can be { 0=nearest-neighbor | 1=linear | 2=cubic }.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default values: 'mode=0', 'interpolation=1', 'boundary_conditions=0' and 'nb_frames=1'.
+#@cli : $ image.jpg 100%,100%,1,2,'X=x/w-0.5;Y=y/h-0.5;R=(X*X+Y*Y)^0.5;A=atan2(Y,X);130*R*if(c==0,cos(4*A),sin(8*A))' warp[-2] [-1],1,1,0 quiver[-1] [-1],10,1,1,1,100
+#@cli : $$ https://gmic.eu/oldtutorial/_warp
+#@cli warp_patch : [warping_field],patch_width>=1,_patch_height>=1,_patch_depth>=1,_std_factor>0,_boundary_conditions.
+#@cli : Patch-warp selected images, with specified 2D or 3D displacement field (in backward-absolute mode).
+#@cli : Argument 'std_factor' sets the std of the gaussian weights for the patch overlap,
+#@cli : equal to 'std = std_factor*patch_size'.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default values: 'std_factor=0.3' and 'boundary_conditions=3'.
+warp_patch : check ${is_image_arg\ $1}" && isint(${2=3}) && $2>=1 && isint(${3=$2}) && $3>=1 &&
+isint(${4=1}) && $4>=1 && isnum(${5=0.3}) && $5>0 && isint(${6=3}) && $6>=0 && $6<=3"
+e[^-1] "Patch-warp image$? with backward-absolute displacement field $1, using $2x$3x$4 patches, std factor $5
+and "${"arg0 $6,dirichlet,neumann,periodic,mirror"}" boundary conditions."
+if $2<=1 pass$1 warp[^-1] .,0 rm. return fi
+repeat $! { pass$1 l[$>,-1] {
+nm={0,n}
+[0],[0],[0],1,1 a[0,-1] c
+100%,100%,100%,{0,s}
+if s#1>=3 # 3D version
+eval[1] ">
+begin(
+const pw = $2;
+const ph = $3;
+const pd = $4;
+const stdf = $5;
+const boundary = $6;
+const pw1 = int(pw/2);
+const pw2 = pw - pw1 - 1;
+const ph1 = int(ph/2);
+const ph2 = ph - ph1 - 1;
+const pd1 = int(pd/2);
+const pd2 = pd - pd1 - 1;
+const pwhd = pw*ph*pd;
+return = vector(s);
+if (stdf<5,
+ref(vectorpwhd(),weights);
+offw = 0;
+for (zw = -pd1, zw<=pd2, ++zw,
+for (yw = -ph1, yw<=ph2, ++yw,
+for (xw = -pw1, xw<=pw2, ++xw,
+weights[offw++] = exp(-xw^2/(2*(stdf*pw)^2) - yw^2/(2*(stdf*ph)^2) - zw^2/(2*(stdf*pd)^2));
+);
+);
+);
+);
+);
+u = i(x,y,z,0);
+v = i(x,y,z,1);
+w = i(x,y,z,2);
+ref(crop(#0,u - pw1, v - ph1,w - pd1,pw,ph,pd,boundary),patch);
+stdf<5?
+draw(#2,patch,x - pw1,y - ph1,z - pd1,0,pw,ph,pd,s#0,-1,weights):
+draw(#2,patch,x - pw1,y - ph1,z - pd1,0,pw,ph,pd,s#0,-1);
+return"
+else
+eval[1] ">
+begin(
+const pw = $2;
+const ph = $3;
+const stdf = $5;
+const boundary = $6;
+const pw1 = int(pw/2);
+const pw2 = pw - pw1 - 1;
+const ph1 = int(ph/2);
+const ph2 = ph - ph1 - 1;
+const pwh = pw*ph;
+return = vector(s);
+if (stdf<5,
+ref(vectorpwh(),weights);
+offw = 0;
+for (yw = -ph1, yw<=ph2, ++yw,
+for (xw = -pw1, xw<=pw2, ++xw,
+weights[offw++] = exp(-xw^2/(2*(stdf*pw)^2) - yw^2/(2*(stdf*ph)^2));
+);
+);
+);
+);
+u = i(x,y,z,0);
+v = i(x,y,z,1);
+ref(crop(#0,u - pw1, v - ph1,pw,ph,boundary),patch);
+stdf<5?
+draw(#2,patch,x - pw1,y - ph1,0,0,pw,ph,1,s#0,-1,weights):
+draw(#2,patch,x - pw1,y - ph1,0,0,pw,ph,1,s#0,-1);
+return"
+fi
+s. c,-{0,s-1} /[-2,-1] k. => $nm
+} }
+#@cli warp_perspective : _x-angle,_y-angle,_zoom>0,_x-center,_y-center,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Warp selected images with perspective deformation.
+#@cli : Default values: 'x-angle=1.5', 'y-angle=0', 'zoom=1', 'x-center=y-center=50' and 'boundary_conditions=2'.
+#@cli : $ image.jpg warp_perspective ,
+warp_perspective : skip ${1=1.5},${2=0},${3=1},${4=50},${5=50},${6=2}
+e[^-1] "Apply perspective warp on image$?, with angles ($1 deg.,$2 deg.), zoom $3 and offsets ($4,$5)."
+foreach {
+(0,100) -. $4 /. 100 (0;100) -. $5 /. 100 r[-2,-1] ...,...,...,1,3
++*.. $2 +*.. $1 +[-2,-1] +. $3 /... . /[-2,-1]
+*.. 100 +.. $4 /.. 100 *.. {-3,w}
+*. 100 +. $5 /. 100 *. {-3,h}
+a[-2,-1] c warp.. .,0,1,$6 rm.
+}
+#@cli warp_rbf : xs0[%],ys0[%],xt0[%],yt0[%],...,xsN[%],ysN[%],xtN[%],ytN[%]
+#@cli : Warp selected images using RBF-based interpolation.
+#@cli : Each argument (xsk,ysk)-(xtk,ytk) corresponds to the coordinates of a keypoint
+#@cli : respectively on the source and target images. The set of all keypoints define the overall image deformation.
+#@cli : $ image.jpg +warp_rbf 0,0,0,0,100%,0,100%,0,100%,100%,100%,100%,0,100%,0,100%,50%,50%,70%,50%,25%,25%,25%,75%
+warp_rbf :
+e[^-1] "Warp image$? using RBF interpolation, with keypoints ($*)."
+$=arg N:=$#/4
+if int($N)!=$N error[0--2] "Command 'warp_rbf': Wrong number of arguments ($#)." fi
+foreach {
+4,$N
+repeat wh { a=${arg{1+$>}} isp=${"is_percent "$a} eval i[$>]=$isp?($>%2?w#0:h#0)*$a:$a }
+s. x,2 -. .. a[-2,-1] x permute. yzcx
+rbf. {0,[w,h]} warp[0] .,1,1,3 rm.
+}
+#@cli water : _amplitude,_smoothness>=0,_angle
+#@cli : Apply water deformation on selected images.
+#@cli : Default values: 'amplitude=30', 'smoothness=1.5' and 'angle=45'.
+#@cli : $ image.jpg water ,
+water : check ${2=1.5}>=0 skip ${1=30},${3=1},${4=45}
+e[^-1] "Apply water deformation on image$?, with amplitude $1, smoothness $2 and angle $3."
+foreach {
+25%,25%,25%,1 noise. $1 g. xy *.. {-sin($3*pi/180)} *. {cos($3*pi/180)} +[-2,-1] b. $2 *. 2
+r. ..,..,1,2,3 warp.. .,1,1,1 rm.
+}
+#@cli wave : _amplitude>=0,_frequency>=0,_center_x,_center_y
+#@cli : Apply wave deformation on selected images.
+#@cli : Default values: 'amplitude=4', 'frequency=0.4' and 'center_x=center_y=50'.
+#@cli : $ image.jpg wave ,
+wave : skip ${1=4},${2=0.4},${3=50},${4=50}
+e[^-1] "Apply wave deformation on image$?, with amplitude $1, frequency $2 and center point at ($3%,$4%)."
+foreach {
+100%,100% =. 1,$3%,$4% distance. 1
+*. $2 +sin. cos.. a[-2,-1] c *. $1
+warp.. .,1,1,1 rm.
+}
+#@cli wind : _amplitude>=0,_angle,0<=_attenuation<=1,_threshold
+#@cli : Apply wind effect on selected images.
+#@cli : Default values: 'amplitude=20', 'angle=0', 'attenuation=0.7' and 'threshold=20'.
+#@cli : $ image.jpg +wind ,
+wind : check "isint(${1=20}) && $1>=0 && ${3=0.7}>=0 && $3<=1" skip "${2=0},${4=20}"
+e[^-1] "Apply wind effect on image$?, with amplitude $1, angle $2 deg., attenuation $3 and threshold $4."
+if !$1 return fi
+dx,dy,fact:=[cexp([0,$2°]),(1-$3)^(1/$1)]
+foreach {
++gradient_norm >=. $4% M:=iM
+r. 100%,100%,1,.. *. ..
+repeat $1 { +shift. {round($>*[$dx,$dy])} max[0,-1] *. $fact remove_pixels. {100/$1}% }
+rm.
+}
+#@cli zoom : _factor,_cx,_cy,_cz,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Apply zoom factor to selected images.
+#@cli : Default values: 'factor=1', 'cx=cy=cz=0.5' and 'boundary_conditions=0'.
+#@cli : $ image.jpg +zoom[0] 0.6 +zoom[0] 1.5
+zoom : skip ${1=2},${2=0.5},${3=0.5},${4=0.5},${5=0}
+e[^-1] "Apply zoom effect on image$?, with factor $1 and center ($2,$3)."
+foreach {
+if d==1
+({(w-1)*$2*(1-1/$1)},{(w-1)*($2+(1-$2)/$1)})
+({({-2,h}-1)*$3*(1-1/$1)};{({-2,h}-1)*($3+(1-$3)/$1)})
+r[-2--1] ...,...,1,1,3 a[-2--1] c warp.. .,0,1,$5
+else
+({(w-1)*$2*(1-1/$1)},{(w-1)*($2+(1-$2)/$1)})
+({({-2,h}-1)*$3*(1-1/$1)};{({-2,h}-1)*($3+(1-$3)/$1)})
+({({-3,d}-1)*$4*(1-1/$1)}/{({-3,d}-1)*($4+(1-$4)/$1)})
+r[-3--1] [-4],[-4],[-4],1,3 a[-3--1] c warp.. .,0,1,$5
+fi
+rm.
+}
+#@cli :: Degradations
+#@cli cracks : 0<=_density<=100,_is_relief={ 0 | 1 },_opacity,_color1,...
+#@cli : Draw random cracks on selected images with specified color.
+#@cli : Default values: 'density=25', 'is_relief=0', 'opacity=1' and 'color1=0'.
+#@cli : $ image.jpg +cracks ,
+cracks : check "${1=25}>=0" skip ${2=0},${3=1},${4=0}
+e[^-1] "Add random cracks to image$?, with density $1, opacity $3 and color (${4--1})."
+foreach {
+cut={[im,iM]}
+100%,100%,1,2,'u<0.25*($1%)^4?[u,1]:[0,0]'
+s. c distance. 1 *. -1 watershed.. . rm.
++dilate. 3 -[-2,-1] !=. 0
+if $2
+f. "i?i:j(1)?2:j(-1)?0.5:i" n. 0,1
++fc.. ${4--1} *. .. !=.. 0 j... .,0,0,0,0,$3,..
+else
++fc.. ${4--1} j... .,0,0,0,0,$3,..
+fi
+k[0]
+}
+#@cli light_patch : _density>0,_darkness>=0,_lightness>=0
+#@cli : Add light patches to selected images.
+#@cli : Default values: 'density=10', 'darkness=0.9' and 'lightness=1.7'.
+#@cli : $ image.jpg +light_patch 20,0.9,4
+light_patch : skip ${1=10},${2=0.9},${3=1.7}
+e[^-1] "Apply light patches to image$?, with density $1, darkness $2 and lightness $3."
+foreach {
+n 0,255 $1,$1 noise. 40 ri. ..,5 c. 0,255
+n. $2,$3 * c 0,255
+}
+#@cli noise_hurl : _amplitude>=0
+#@cli : Add hurl noise to selected images.
+#@cli : Default value: 'amplitude=10'.
+#@cli : $ image.jpg +noise_hurl ,
+noise_hurl : skip ${1=10}
+e[^-1] "Add hurl noise to image$?, with amplitude $1%."
+foreach {
++f 0 noise. 10 n. {-2,[im,iM]} 100%,100%
+noise. $1,2 >. 0 ri. ..
+*.. . *. -1 +. 1 *[-3,-1] +
+}
+#@cli pixelize : _scale_x>0,_scale_y>0,_scale_z>0
+#@cli : Pixelize selected images with specified scales.
+#@cli : Default values: 'scale_x=20' and 'scale_y=scale_z=scale_x'.
+#@cli : $ image.jpg +pixelize ,
+pixelize : skip ${1=20},${2=$1},${3=$1}
+e[^-1] "Pixelize image$? with scales ($1%,$2%,$3%)."
+foreach { whd={w},{h},{d} r $1%,$2%,$3%,100%,2 r $whd }
+#@cli scanlines : _amplitude,_bandwidth,_shape={ 0=block | 1=triangle | 2=sine | 3=sine+ | 4=random },_angle,_offset
+#@cli : Apply ripple deformation on selected images.
+#@cli : Default values: 'amplitude=60', 'bandwidth=2', 'shape=0', 'angle=0' and 'offset=0'.
+#@cli : $ image.jpg +scanlines ,
+scanlines : skip ${1=60},${2=2},${3=0},${4=0},${5=0}
+e[^-1] "Apply scanlines effect on image$?, with amplitude $1, bandwidth $2, shape $3, angle $4 deg. and offset $5."
+theta={$4*pi/180} C={cos($theta)} S={-sin($theta)}
+foreach {
+100%,100%,1,1,"x" -. {w/2} 100%,100%,1,1,'y'
+-. {h/2-$5} *.. $S *. $C +[-2,-1]
+_ripple$3. $1,$2
+n. {-$1},$1
++ cut 0,255
+}
+#@cli shade_stripes : _frequency>=0,_direction={ 0=horizontal | 1=vertical },_darkness>=0,_lightness>=0
+#@cli : Add shade stripes to selected images.
+#@cli : Default values: 'frequency=5', 'direction=1', 'darkness=0.8' and 'lightness=2'.
+#@cli : $ image.jpg +shade_stripes 30
+shade_stripes : skip ${1=5},${2=1},${3=0.8},${4=2}
+e[^-1] "Add "${arg0\ !$2,vertical,horizontal}" shaded stripes to image$?, with frequency $1, darkness $3 and
+lightness $4."
+n 0,255 foreach { {max(1,w*($2!=0))},{max(1,h*($2==0))} noise. $1,2 ==. 1 distance. 1 ri. .. n. $3,$4 * c 0,255 }
+#@cli shadow_patch : _opacity>=0
+#@cli : Add shadow patches to selected images.
+#@cli : Default value: 'opacity=0.7'.
+#@cli : $ image.jpg +shadow_patch 0.4
+shadow_patch : skip ${1=0.7}
+e[^-1] "Apply shadow patches to image$?, with opacity $1."
+foreach {
+100%,100%,1,1 shift. -2,-2 shift. 1,1
+plasma. 3,0.3,8 abs. b. 1 c. 3%,15% ri. ..
+n. $1,1 *
+}
+#@cli spread : _dx>=0,_dy>=0,_dz>=0
+#@cli : Spread pixel values of selected images randomly along x,y and z.
+#@cli : Default values: 'dx=3', 'dy=dx' and 'dz=0'.
+#@cli : $ image.jpg +spread 3
+spread : skip ${1=3},${2=$1},${3=0}
+e[^-1] "Spread pixel of image$? randomly, with amplitudes ($1,$2,$3)."
+foreach {
+100%,100%,100%,3
+sh. 0 rand. {-$1},$1 rm.
+sh. 1 rand. {-$2},$2 rm.
+sh. 2 rand. {-$3},$3 rm.
+warp.. .,1,1,1 rm.
+}
+#@cli stripes_y : _frequency>=0
+#@cli : Add vertical stripes to selected images.
+#@cli : Default value: 'frequency=10'.
+#@cli : $ image.jpg +stripes_y ,
+stripes_y : skip ${1=10}
+e[^-1] "Add vertical stripes to image$?, with frequency $1."
+foreach { 100% noise. $1,2 ==. 1 *. 255 ri. .. *. 0.15 + c 0,255 }
+#@cli texturize_canvas : _amplitude>=0,_fibrousness>=0,_emboss_level>=0
+#@cli : Add paint canvas texture to selected images.
+#@cli : Default values: 'amplitude=20', 'fibrousness=3' and 'emboss_level=0.6'.
+#@cli : $ image.jpg +texturize_canvas ,
+texturize_canvas : check "${1=20}>=0 && ${2=3}>=0 && ${3=0.6}>=0 && ${4=80}"
+e[^-1] "Add canvas texture to image$?, with amplitude $1, fibrousness $2 and emboss level $3."
+foreach {
+{w},{h} rand. 0,255 +blur_x. $2 blur_y.. $2 +[-2,-1] g. a[-2,-1] c
++compose_channels. + orientation.. compose_channels.. + n.. $3,1 n. 0,255
+sharpen. 80 *[-2,-1] n. -$1,$1 + c 0,255
+}
+#@cli texturize_paper
+#@cli : Add paper texture to selected images.
+#@cli : $ image.jpg +texturize_paper
+texturize_paper :
+e[^-1] "Add paper texture to image$?."
+foreach {
+. 30%,30% noise. 1,2 ==. 1 r. ..,..,..,1,0 ifft.
+rm. shift. {round(w/2)},{round(h/2)},{round(d/2)},0,2 sharpen. 1 n. 1,1.2 ri. ..
+*[-2,-1] c. ..,.. rm..
+}
+#@cli vignette : _strength>=0,0<=_radius_min<=100,0<=_radius_max<=100
+#@cli : Add vignette effect to selected images.
+#@cli : Default values: 'strength=100', 'radius_min=70' and 'radius_max=90'.
+#@cli : $ image.jpg vignette ,
+vignette : check "${1=100}>=0 && ${2=70}>=0 && $2<=100 && ${3=90}>=0 && $3<=100"
+e[^-1] "Add vignette effect to image$?, with strength $1 and size $2."
+foreach {
+mM={[im,iM]} d={max(w,h)}
+$d,$d =. 1,50%,50% distance. 1 ri. ..,2
+c. $2%,$3% n. 0,$1 - c $mM
+}
+#@cli watermark_visible : _text,0<_opacity<1,_size>0,_angle,_mode={ 0=remove | 1=add },_smoothness>=0
+#@cli : Add or remove a visible watermark on selected images (value range must be [0,255]).
+#@cli : Default values: 'text=(c) G'MIC', 'opacity=0.3', 'size=53', 'angle=25', 'mode=1' and 'smoothness=0'.
+#@cli : $ image.jpg watermark_visible ,0.7
+watermark_visible : check "${2=0.3}>0 && $2<1 && ${3=53}>0 && ${6=0.5}>=0"
+skip "${1=\251\ G\47MIC}",${4=25},${5=1}
+e[^-1] ${arg0\ !$5,Add,Remove}" visible watermark '$1' on image$?, with opacity $2, size $3, angle $4 deg."
+foreach {
+0 t. "$1",0,0,$3,1,255 rotate. $4,0,0 b. $6 n. 0,255
+ri. ..,0,2 +. .. c. 0,255
+if $5 *. $2 *.. {1-$2} +
+else *. $2 - / {1-$2}
+fi
+c 0,255
+}
+#@cli :: Blending and Fading
+#@cli blend : [layer],blending_mode,_opacity[%],_selection_is={ 0=base-layers | 1=top-layers } : blending_mode,_opacity[%]
+#@cli : Blend selected G,GA,RGB or RGBA images by specified layer or blend all selected images together,
+#@cli : using specified blending mode.
+#@cli : 'blending_mode' can be { add | alpha | and | average | blue | burn | darken | difference |
+#@cli : divide | dodge | edges | exclusion | freeze | grainextract | grainmerge | green | hardlight |
+#@cli : hardmix | hue | interpolation | lchlightness | lighten | lightness | linearburn | linearlight | luminance |
+#@cli : multiply | negation | or | overlay | pinlight | red | reflect | saturation |
+#@cli : screen | seamless | seamless_mixed | shapeareamax | shapeareamax0 | shapeareamin | shapeareamin0 |
+#@cli : shapeaverage | shapeaverage0 | shapemedian | shapemedian0 | shapemin | shapemin0 | shapemax | shapemax0 |
+#@cli : shapeprevalent | softburn | softdodge | softlight | stamp | subtract | value | vividlight | xor }.
+#@cli : 'opacity' must be in range '[0,1]' (or '[0%,100%]').
+#@cli : Default values: 'blending_mode=alpha', 'opacity=1' and 'selection_is=0'.
+#@cli : $ image.jpg +drop_shadow , resize2dy[-1] 200 rotate[-1] 20 +blend alpha display_rgba[-2]
+#@cli : $ image.jpg testimage2d {w},{h} blend overlay
+#@cli : $ command "ex : $""=arg repeat $""# +blend[0,1] ${arg{$>+1}} text_outline[-1] Mode:\" \"${arg{$>+1}},2,2,23,2,1,255 done" image.jpg testimage2d {w},{h} ex add,alpha,and,average,blue,burn,darken
+#@cli : $ command "ex : $""=arg repeat $""# +blend[0,1] ${arg{$>+1}} text_outline[-1] Mode:\" \"${arg{$>+1}},2,2,23,2,1,255 done" image.jpg testimage2d {w},{h} ex difference,divide,dodge,exclusion,freeze,grainextract,grainmerge
+#@cli : $ command "ex : $""=arg repeat $""# +blend[0,1] ${arg{$>+1}} text_outline[-1] Mode:\" \"${arg{$>+1}},2,2,23,2,1,255 done" image.jpg testimage2d {w},{h} ex green,hardlight,hardmix,hue,interpolation,lighten,lightness
+#@cli : $ command "ex : $""=arg repeat $""# +blend[0,1] ${arg{$>+1}} text_outline[-1] Mode:\" \"${arg{$>+1}},2,2,23,2,1,255 done" image.jpg testimage2d {w},{h} ex linearburn,linearlight,luminance,multiply,negation,or,overlay
+#@cli : $ command "ex : $""=arg repeat $""# +blend[0,1] ${arg{$>+1}} text_outline[-1] Mode:\" \"${arg{$>+1}},2,2,23,2,1,255 done" image.jpg testimage2d {w},{h} ex pinlight,red,reflect,saturation,screen,shapeaverage,softburn
+#@cli : $ command "ex : $""=arg repeat $""# +blend[0,1] ${arg{$>+1}} text_outline[-1] Mode:\" \"${arg{$>+1}},2,2,23,2,1,255 done" image.jpg testimage2d {w},{h} ex softdodge,softlight,stamp,subtract,value,vividlight,xor
+blend : skip "${1=},${2=},${3=},${4=}"
+if !${"is_image_arg $1"}
+if ['$1']!=0 mode=$1 else mode=alpha fi
+if ['$2']!=0 opacity=$2 else opacity=1 fi
+e[0--3] "Blend image$? together, using '"$mode"' mode and opacity "$opacity"."
+repeat $!-1 { $0.. .,$mode,$opacity rm. }
+return
+fi
+if ['$2']!=0 mode=$2 else mode=alpha fi
+if ['$3']!=0 opacity:=$3 else opacity=1 fi
+if ['$4']!=0 selection_mode=$4 else selection_mode=0 fi
+if $selection_mode s0,s1=foreground,background else s0,s1=background,foreground fi
+e[^-1] "Blend "$s0" image$? with "$s1" image $1, using '"$mode"' mode and opacity "$opacity"."
+if !$opacity return fi
+pass$1 1
+foreach[^-1] { nm={n}
+pass. 0 if $selection_mode rv fi
+nb_col_channels,is_alpha_b,is_alpha_f:=max(s#0,s)>=3?3:1,!(s#0%2),!(s%2)||w $nm
+}
+rm.
+_blend_alpha :
+_blend_normal :
+_blend_and :
+&[1] [0]
+_blend_add :
++[1] [0] c[1] 0,255
+_blend_average :
++[1] [0] /[1] 2
+_blend_blue :
+sh[0] 0,1 j[1] [2] rm[2]
+_blend_burn :
++-[0] 255 +[1] 0.1 /[2] [1] rm[1] +[1] 1 *[1] 255 c[1] 0,255
+_blend_darken :
+min[1] [0]
+_blend_difference :
+-[1] [0] abs[1]
+_blend_divide :
++[1] 0.1 ^[1] -1 *[1] [0] *[1] 255 c[1] 0,255
+_blend_dodge :
+-[1] 255.1 ^[1] -1 *[1] [0] *[1] -255 c[1] 0,255
+_blend_edges :
++blend_edges 0.5 rm[1]
+_blend_exclusion :
++*[0,1] /[2] -127.5 +[1,2] +[1] [0]
+_blend_freeze :
+*[1] -255 -[1] 0.1 +-[0] 255 sqr[2] /[2] [1] rm[1] +[1] 1 *[1] 255 c[1] 0,255
+_blend_grainextract :
+-[1] [0] *[1] -1 +[1] 128 c[1] 0,255
+_blend_grainmerge :
++[1] [0] -[1] 128 c[1] 0,255
+_blend_green :
+sh[0] 0 sh[0] 2 j[1] [2] j[1] [3],0,0,0,2 rm[2,3]
+_blend_hardlight :
++*[0,1] /[2] 127.5 ++[0,1] *[3] 2 -[3] 255 -[3] [2] >[1] 128
+j[2] [3],0,0,0,0,1,[1] rm[1,3] c[1] 0,255
+_blend_hardmix :
++[1] [0] >=[1] 255 *[1] 255
+_blend_hue :
+to_color sh 0,2 rgb2hsv[2,3] sh[2] 1,2 j[1] [4],0,0,0,1 rm[4] hsv2rgb[2,3] rm[2,3]
+_blend_interpolation :
++*[0] {pi/255} *[1] {pi/255} cos[1,2] +[1,2] -[1] 2 *[1] -63.75 c[1] 0,255
+_blend_lighten :
+max[1] [0]
+_blend_lightness :
+to_color sh 0,2 rgb2lab[2,3] sh[2] 1,2 j[1] [4],0,0,0,1 rm[4] lab2rgb[2,3] rm[2,3]
+_blend_lchlightness :
+_blend_lightness
+_blend_luminance :
+to_color sh 0,2 rgb2ycbcr[2,3] sh[2] 1,2 j[1] [4],0,0,0,1 rm[4] ycbcr2rgb[2,3] rm[2,3]
+_blend_linearburn :
++[1] [0] -[1] 255 c. 0,255
+_blend_linearlight :
+*[1] 2 +[1] [0] -[1] 255 c[1] 0,255
+_blend_multiply :
+*[1] [0] /[1] 255
+_blend_negation :
++[1] [0] -[1] 255 abs[1] *[1] -1 +[1] 255
+_blend_or :
+-|[1] [0]
+_blend_overlay :
++*[0,1] /[2] 127.5 +[1] [0] *[1] 2 -[1] 255 -[1] [2] +<[0] 128 j[1] [2],0,0,0,0,1,[3] rm[2,3] c[1] 0,255
+_blend_pinlight :
+*[1] 2 +blend darken -[1] 256 +blend[0,1] lighten >=[1] 0
+j[2] [3],0,0,0,0,1,[1] rm[1,3]
+_blend_reflect :
+-[1] 255.1 *[1] -1 +sqr[0] /[2] [1] rm[1] c[1] 0,255
+_blend_red :
+sh[0] 1,100% j[1] [2],0,0,0,1 rm[2]
+_blend_saturation :
+to_color sh 0,2 rgb2hsv[2,3] shift[2,3] 0,0,0,-1,2 sh[2] 1,2 j[1] [4],0,0,0,1 rm[4] shift[2,3] 0,0,0,1,2
+hsv2rgb[2,3] rm[2,3]
+_blend_screen :
++-[0] 255 -[1] 255 *[1,2] /[1] 255 *[1] -1 +[1] 255
+_blend_shapeareamax :
+f[1] "begin(A = resize([ 0,(s-1)/s ],s,3));I+A" norm[1] round[1] 0.01 label[1] 0
++f[0] "begin(A = resize([ 0,(s-1)/s ],s,3));I+A" norm[2] round[2] 0.01 area[2] 0,0
+{1,iM+1},1,1,{0,s+1}
+f[1] ">area = i(#2); best = I[#3,i]; if (area>best[size(best) - 1], I[#3,i] = [ I(#0),area ]);i"
+rm[2] channels[2] 0,{s-2} map[1] [2] rm[2]
+_blend_shapeareamax0 :
+f[1] "begin(A = resize([ 0,(s-1)/s ],s,3));I!=0?I+A:I" norm[1] round[1] 0.01 label_fg[1] 0
++f[0] "begin(A = resize([ 0,(s-1)/s ],s,3));I+A" norm[2] round[2] 0.01 area[2] 0,0
+{1,iM+1},1,1,{0,s+1}
+f[1] ">area = i(#2); best = I[#3,i]; if (area>best[size(best) - 1], I[#3,i] = [ I(#0),area ]);i"
+rm[2] channels[2] 0,{s-2} point[2] 0,0,0,1,0 map[1] [2] rm[2]
+_blend_shapeareamin :
+f[1] "begin(A = resize([ 0,(s-1)/s ],s,3));I+A" norm[1] round[1] 0.01 label[1] 0
++f[0] "begin(A = resize([ 0,(s-1)/s ],s,3));I+A" norm[2] round[2] 0.01 area[2] 0,0
+{1,iM+1},1,1,{0,s+1},inf
+f[1] ">area = i(#2); best = I[#3,i]; if (areaarea = i(#2); best = I[#3,i]; if (areai(#2,i(#1,x,y,z,0),0,0,c)+=i;i"
++histogram[1] {w},0,{w-1} /[-2,-1] map[1] . rm.
+_blend_shapeaverage0 :
+f[1] "begin(A = resize([ 0,(s-1)/s ],s,3));I!=0?I+A:I" norm[1] round[1] 0.01 label_fg[1] 0 {iM+1},1,1,{0,s}
+f[0] ">i(#2,i(#1,x,y,z,0),0,0,c)+=i;i"
++histogram[1] {w},0,{w-1} /[-2,-1] point. 0,0,0,1,0 map[1] . rm.
+_blend_shapemedian :
+f[1] "begin(A = resize([ 0,(s-1)/s ],s,3));I+A" norm[1] round[1] 0.01 label[1] 0
+N={iM+1} $N,1,1,{s#0} $N,8,1,{s#0} s. x
+f[1] ">
+begin(siz = vector"$N"());
+k = i;
+k3 = k + 3;
+hk3 = h(#k3);
+copy(i[#k3,siz[k]++],I(#0),s#0,hk3,whd#0);
+if (siz[k]>=hk3,resize(#k3,1,round(1.5*hk3+1),1,s#0,0,0));
+end(repeat (size(siz),k, resize(#k+3,1,siz[k],1,s#0,0,0)));
+i"
+repeat s#0 { sh[3--1] $> $N,1,1,1,"ic(#"$N"+3+x)" j[2] .,0,0,0,$> rm[-{$N+1}--1] }
+map[1] [2] k[0,1]
+_blend_shapemedian0 :
+f[1] "begin(A = resize([ 0,(s-1)/s ],s,3));I!=0?I+A:I" norm[1] round[1] 0.01 label_fg[1] 0
+N={iM} {$N+1},1,1,{s#0} $N,8,1,{s#0} s. x
+f[1] ">
+begin(siz = vector"$N"());
+k = i;
+if (k,
+k1 = k - 1;
+k2 = k + 2;
+hk2 = h(#k2);
+copy(i[#k2,siz[k1]++],I(#0),s#0,hk2,whd#0);
+if (siz[k1]>=hk2,resize(#k2,1,round(1.5*hk2+1),1,s#0,0,0));
+);
+end(repeat (size(siz),k, resize(#k+3,1,siz[k],1,s#0,0,0)));
+i"
+repeat s#0 { sh[3--1] $> $N,1,1,1,"ic(#"$N"+3+x)" j[2] .,1,0,0,$> rm[-{$N+1}--1] }
+map[1] [2] k[0,1]
+_blend_shapemin :
+f[1] "begin(A = resize([ 0,(s-1)/s ],s,3));I+A" norm[1] round[1] 0.01 label[1] 0 {iM+1},1,1,{0,s},inf
+f[0] ">i(#2,i(#1,x,y,z,0),0,0,c) = min(i(#2,i(#1,x,y,z,0),0,0,c),i);i"
+map[1] [2] rm.
+_blend_shapemin0 :
+f[1] "begin(A = resize([ 0,(s-1)/s ],s,3));I!=0?I+A:I" norm[1] round[1] 0.01 label_fg[1] 0 {iM+1},1,1,{0,s},inf
+f[0] ">i(#2,i(#1,x,y,z,0),0,0,c) = min(i(#2,i(#1,x,y,z,0),0,0,c),i);i"
+point. 0,0,0,1,0 map[1] [2] rm.
+_blend_shapemax :
+f[1] "begin(A = resize([ 0,(s-1)/s ],s,3));I+A" norm[1] round[1] 0.01 label[1] 0 {iM+1},1,1,{0,s},-inf
+f[0] ">i(#2,i(#1,x,y,z,0),0,0,c) = max(i(#2,i(#1,x,y,z,0),0,0,c),i);i"
+map[1] [2] rm.
+_blend_shapemax0 :
+f[1] "begin(A = resize([ 0,(s-1)/s ],s,3));I!=0?I+A:I" norm[1] round[1] 0.01 label_fg[1] 0 {iM+1},1,1,{0,s},-inf
+f[0] ">i(#2,i(#1,x,y,z,0),0,0,c) = max(i(#2,i(#1,x,y,z,0),0,0,c),i);i"
+point. 0,0,0,1,0 map[1] [2] rm.
+_blend_shapeprevalent :
+label. 0,0 nb_labels:=iM+1 a c
++n. 0,255 100%,100%,1,1,"H = 0; repeat (s#-1,p,(H*=31)+=j(#-1,0,0,0,p)); int(H)%2048" rm.. # Compute color hashcodes
+1,1,1,{0,s+1}x2048
+eval[1] "begin(_color = tmp = vector(#s#0));
+color = I(#0);
+ind = i + 2;
+whdind = whd(#ind);
+found = 0;
+repeat (da_size(#ind),k,
+copy(_color,i(#ind,0,k,0,1),s#0,1,whdind);
+_color==color?(
+found = 1;
+copy(tmp,i[#ind,0],s#ind,1,whdind);
+copy(i[#ind,0],i[#ind,k],s#ind,whdind,whdind);
+copy(i[#ind,k],tmp,s#ind,whdind,1);
+break();
+);
+);
+found?++i[#ind,k]:da_push(#ind,[ 1,color ])"
+da_freeze[2--1] a[2--1] y rm..
+1,$nb_labels,1,{0,s}
+eval.. "P = I; region = P[size(P) - 1]; i[#-1,region][1] 255
+j[2] [3],0,0,0,0,1,[1] rm[1,3] c[1] 0,255
+_blend_softdodge :
++-[1] 255.1 ^[2] -1 *[2] [0] *[2] -127.5 +-[1] 255 ++[0] 0.1 /[3,4] *[3] 127.5 +[3] 255 +[1] [0] >[1] 255
+j[2] [3],0,0,0,0,1,[1] rm[1,3] c[1] 0,255
+_blend_softlight :
++/[0] 255 /[1] 255 +sqr. *[2] [1] *[1] [3] *[1] -2 *[2] 2 +[1-3] *[1] 255 c[1] 0,255
+_blend_stamp :
+*[1] 2 +[1] [0] -[1] 255 c[1] 0,255
+_blend_subtract :
+-[1] [0] *[1] -1 c[1] 0,255
+_blend_value :
+to_color sh 0,2 rgb2hsv[2,3] sh[2] 0,1 j[1] [4] rm[4] hsv2rgb[2,3] rm[2,3]
+_blend_vividlight :
+*[1] 2 +blend burn -[1] 256 +blend[0,1] dodge >=[1] 0
+j[2] [3],0,0,0,0,1,[1] rm[1,3]
+_blend_xor :
+xor[1] [0]
+#@cli blend_edges : smoothness[%]>=0
+#@cli : Blend selected images togethers using 'edges' mode.
+#@cli : $ image.jpg testimage2d {w},{h} +blend_edges 0.8
+blend_edges : check {$1>=0}
+e[^-1] "Blend image$? using 'edges' mode, with smoothness $1."
+if $!>1
+to_rgb ri[^0] [0],0,0,0.5,0.5
+foreach { +gradient_norm +. 1 b. $1 n. 1,10 sqr. s.. c *[-4--2] . a[-4--1] c }
+ri[^0] [0],0,0,0.5,0.5 + s. c /[-4--2] . rm. a[-3--1] c
+fi
+#@cli blend_fade : [fading_shape]
+#@cli : Blend selected images together using specified fading shape.
+#@cli : $ image.jpg testimage2d {w},{h} 100%,100%,1,1,'cos(y/10)' normalize[-1] 0,1 +blend_fade[0,1] [2]
+blend_fade :
+e[^-1] "Blend image$? together using fading pattern $1."
+r ${-max_whds},0
+pass$1 0 r. [0],[0],[0],100%,1 max. 0 min. {$!-2}
+repeat $!-1 { +-. $> abs. -. 1 *. -1 max. 0 *[$>,-1] } rm.
++
+_fade :
+ri.. ...,5 ri. ..,3 c. $1%,$2% n. 0,1 j... ..,0,0,0,0,1,. rm[-2,-1]
+#@cli blend_median
+#@cli : Blend selected images together using 'median' mode.
+#@cli : $ image.jpg testimage2d {w},{h} +mirror[0] y +blend_median
+blend_median :
+e[^-1] "Blend image$? using 'median' mode."
+if $!<2 return fi
+to_colormode 0 r ${-max_whd},100%,0,0,0.5,0.5,0.5
+if $!==2 + / 2
+else
+whds={w},{h},{d},{s} r 100%,100%,{d*s},1,-1 a c
+100%,100%,100%,1,"med(I(#0))" k. r $whds,-1
+fi
+#@cli blend_seamless : _is_mixed_mode={ 0 | 1 },_inner_fading[%]>=0,_outer_fading[%]>=0
+#@cli : Blend selected images using a seamless blending mode (Poisson-based).
+#@cli : Default values: 'is_mixed=0', 'inner_fading=0' and 'outer_fading=100%'.
+blend_seamless : check "${2=0}>=0 && ${3=100%}>=0" skip ${1=0}
+s0="non-mixed" s1="mixed"
+e[^-1] "Blend image$? using seamless mode (Poisson-based), in "${s{$1!=0}}" mode with inner fading $2 and
+outer fading $3."
+to_a[^0]
+if ['$3']!='100%'
+repeat $!-1 { l[0,1] {
++blend_seamless $1,$2,100% channels.. 100% !=.. 0 distance.. 1
+iM={-2,iM} ic={if(${is_percent\ $3},2*$3*$iM,1+$3)}
+if $ic<=$iM c.. 0,{max(1,$ic)} n.. 0,1
+else n.. 0,{max(0,2-$ic/$iM)}
+fi
+*.. -1 +.. 1
+j[0] [2],0,0,0,0,1,[1] rm[1,2]
+} }
+else
+repeat $!-1 { l[0,1] {
++r[0] 1,1,1,100%,2 avg={^} rm.
+split_opacity. !=. 0 *.. . erode. 3
+g[0,1] xy,1,2
+*[-3,-2] .
+if $1
++a[0,1] c +a[2,3] c norm[-2,-1]
+<[-2,-1] *[-2,-1]
+fi
+if $2
+distance. 0
+iM={iM} ic={if(${is_percent\ $2},2*$2*$iM,1+$2)}
+if $ic<=$iM c. 0,{max(1,$ic)} n. 0,1
+else n. 0,{max(0,2-$ic/$iM)}
+fi
+fi
+j[-5] ...,0,0,0,0,1,.
+j[-4] ..,0,0,0,0,1,.
+rm[-3--1]
+g[0] x,-1,2 g[1] y,-1,2 +
+ilaplacian 0
++fc. $avg
++[-2,-1]
+c 0,255
+} }
+fi
+#@cli fade_diamond : 0<=_start<=100,0<=_end<=100
+#@cli : Create diamond fading from selected images.
+#@cli : Default values: 'start=80' and 'end=90'.
+#@cli : $ image.jpg testimage2d {w},{h} +fade_diamond 80,85
+fade_diamond : skip ${1=70},${2=90}
+e[^-1] "Create ($1%,$2%) diamond-shaped fading from image$?."
+repeat int($!/2) { l[$>,{$>+1}] {
+(0,1,0;1,1,1;0,1,0) _fade $1,$2
+} }
+#@cli fade_linear : _angle,0<=_start<=100,0<=_end<=100
+#@cli : Create linear fading from selected images.
+#@cli : Default values: 'angle=45', 'start=30' and 'end=70'.
+#@cli : $ image.jpg testimage2d {w},{h} +fade_linear 45,48,52
+fade_linear : skip ${1=45},${2=30},${3=70}
+e[^-1] "Create ($2%,$3%) linear fading from image$?, with angle $1 deg."
+repeat int($!/2) { l[$>,{$>+1}] {
+64,64,1,1,"x*cos($1*pi/180) + y*sin($1*pi/180)" _fade $2,$3
+} }
+#@cli fade_radial : 0<=_start<=100,0<=_end<=100
+#@cli : Create radial fading from selected images.
+#@cli : Default values: 'start=30' and 'end=70'.
+#@cli : $ image.jpg testimage2d {w},{h} +fade_radial 30,70
+fade_radial : skip ${1=30},${2=70}
+e[^-1] "Create ($1%,$2%) radial fading from image$?."
+repeat int($!/2) { l[$>,{$>+1}] {
+100%,100% =. 1,50%,50% distance. 1 _fade $1,$2
+} }
+#@cli fade_x : 0<=_start<=100,0<=_end<=100
+#@cli : Create horizontal fading from selected images.
+#@cli : Default values: 'start=30' and 'end=70'.
+#@cli : $ image.jpg testimage2d {w},{h} +fade_x 30,70
+fade_x : skip ${1=30},${2=70}
+e[^-1] "Create ($1%,$2%) horizontal fading from image$?."
+repeat int($!/2) { l[$>,{$>+1}] { (0,1) _fade $1,$2 } }
+#@cli fade_y : 0<=_start<=100,0<=_end<=100
+#@cli : Create vertical fading from selected images.
+#@cli : Default values: 'start=30' and 'end=70'.
+#@cli : $ image.jpg testimage2d {w},{h} +fade_y 30,70
+fade_y : skip ${1=30},${2=70}
+e[^-1] "Create ($1%,$2%) vertical fading from image$?."
+repeat int($!/2) { l[$>,{$>+1}] { (0;1) _fade $1,$2 } }
+#@cli fade_z : 0<=_start<=100,0<=_end<=100
+#@cli : Create transversal fading from selected images.
+#@cli : Default values: 'start=30' and 'end=70'.
+fade_z : skip ${1=30},${2=70}
+e[^-1] "Create ($1%,$2%) transversal fading from image$?."
+repeat int($!/2) { l[$>,{$>+1}] { (0/1) _fade $1,$2 } }
+#@cli sub_alpha : [base_image],_opacity_gain>=1
+#@cli : Compute the minimal alpha-channel difference (opposite of alpha blending) between the selected images
+#@cli : and the specified base image.
+#@cli : The alpha difference A-B is defined as the image having minimal opacity, such that alpha_blend(B,A-B) = A.
+#@cli : Default value: 'opacity_gain=1'.
+#@cli : $ image.jpg testimage2d {w},{h} +sub_alpha[0] [1] display_rgba
+sub_alpha : check "${2=1}>=1 && "${"is_image_arg $1"}
+e[^-1] "Compute minimal alpha-channel difference between image$? and base image $1, with opacity gain $2."
+remove_opacity repeat $! { pass$1 0 l[$>,-1] {
+to_colormode 0 r ${-max_whd},100%,0,0,0.5,0.5
++>[0,1] *[2] 255
+-[0,2] [1] replace[2] 0,1
+i[2] [0] /[2,3]
+compose_channels[2] max
+*[2] $2 c[2] 0,1
++replace[2] 0,1 /[0,3] +[0,1] *[1] 255 a c
+} }
+#@cli :: Image Sequences and Videos
+#@cli animate : filter_name,"param1_start,...,paramN_start","param1_end,...,paramN_end",nb_frames>=0,_output_frames={ 0 | 1 },_output_filename : delay>0,_back and forth={ 0 | 1 }
+#@cli : Animate filter from starting parameters to ending parameters or animate selected images
+#@cli : in a display window.
+#@cli : Default value: 'delay=30'.
+#@cli : $ image.jpg animate flower,"0,3","20,8",9
+animate : skip ${1=30},${2=0},${3=""},${4=10},${5=1},"${6=}"
+if "isnum($1)"
+e[0--3] "Animate image$?, with a delay of $1 ms"${"if $2 u \", in back-and-forth mode\" else u \"\" fi"}.
+if !$! return fi
+speed,pause,direction,scale,frame=$1,-1,1,1,0
+is_same_size={"res = 1; s = [ w#0,h#0 ]; for (k = 1, k=0 direction=$pause pause=-1
+else pause=$direction direction=0 fi
+wait -1
+fi
+while {*}" && "!{*,Q}" && "!{*,ESC} w 0
+else
+e[0--3] "Compute animated version of filter '$1', from parameters $2 to $3 with $4 frames."
+if !($5||narg("$6")) return fi
+($2) ($3) y[-2,-1] x a[-2,-1] y r. 100%,$4,1,1,3 mv. 0 rprogress 0
+repeat $!-1 {
+u=$>
+e " > Animate image ["$>"]"
+repeat $4 { +l[0,1] {
+-$1. {0,@{$>*{0,w}}-{($>+1)*{0,w}-1}} rm[0]
+if narg("$6") o ${filename\ "$6",$u,$>} fi
+if !$5 rm fi
+rprogress {100*($>+1)/$4}
+e "\r > Animate image ["$u"] : Frame "{$>+1}"/$4 "
+} }
+rm[1]
+}
+rm[0]
+fi
+#@cli apply_camera : _"command",_camera_index>=0,_skip_frames>=0,_output_filename
+#@cli : Apply specified command on live camera stream, and display it on display window [0].
+#@cli : This command requires features from the OpenCV library (not enabled in G'MIC by default).
+#@cli : Default values: 'command=""', 'camera_index=0' (default camera), 'skip_frames=0' and 'output_filename=""'.
+apply_camera : check_opencv $0 skip "${1=},${4=}" check "${2=0}>=0 && ${3=0}>=0"
+e[^-1] "Apply command '$1' on camera stream ""#$2, with $3 frames skip and output filename '$4'."
+m "_apply_camera_com : $1"
+is_ext "$4",avi is_outavi=${}
+is_ext "$4",mp4 is_outmp4=${}
+is_fs=0
+l[] {
+i=0
+do
+camera $2,1,$3
+_apply_camera_com.
+if !$! 640,480,1,3 else k. fi
+if {*}" && "[w,h]!=[{*,d,e}]
++r2din. {*,d,e},1,0,0.5,0.5 r. {*,d,e},1,100%,0,0,0.5,0.5
+else .
+fi
+w. -1,-1,"[G'MIC] Camera ""#$2 ("{0,w}x{0,h}")"
+k[0]
+if narg("$4")
+if $is_outavi||$is_outmp4 z. 0,{w-(w%8)-1} o. "$4",25,mp4v,1
+else o. ${filename\ "$4",$i} i+=1
+fi
+fi
+if {*,S} o. gmic_camera.png fi
+is_ctrl:={*,CTRLLEFT}" || "{*,CTRLRIGHT}
+if !$is_fs" && "$is_ctrl" && "{*,-D} w[] {{*,w}*1.5},{{*,h}*1.5} fi
+if !$is_fs" && "$is_ctrl" && "{*,-C} w[] {{*,w}/1.5},{{*,h}/1.5} fi
+if $is_ctrl" && "{*,-F}
+if !$is_fs fs_wh={*,w,h} w[] {*,u,v},1,1 is_fs=1
+else w[] $fs_wh,1,0 is_fs=0
+fi
+fi
+if $is_ctrl" && "{*,-R} w[] {0,w},{0,h},1,0 is_fs=0 fi
+rm
+while {*}" && "!{*,ESC}" && "!{*,Q}
+camera $2,0
+}
+#@cli apply_files : "filename_pattern",_"command",_first_frame>=0,_last_frame={ >=0 | -1=last },_frame_step>=1,_output_filename
+#@cli : Apply a G'MIC command on specified input image files, in a streamed way.
+#@cli : If a display window is opened, rendered frames are displayed in it during processing.
+#@cli : The output filename may have extension '.avi' or '.mp4' (saved as a video), or any other usual image file
+#@cli : extension (saved as a sequence of images).
+#@cli : Default values: 'command=(undefined)', 'first_frame=0', 'last_frame=-1', 'frame_step=1' and 'output_filename=(undefined)'.
+apply_files : check "isint(${3=0}) && $3>=0 && isint(${4=-1}) && ($4>=0 || $4==-1) && ${5=1}>=1" skip "${2=},${6=}"
+e[^-1] "Apply command '$2' on input image files '$1', with first frame $3, last frame $4, frame step $5 and
+output filename '$6'.\n"
+files 3,"$1" _N=/{narg(${})-1} arg2var _file,${} v + _apply_stream[] "${_file{$frame+1}}","$2",${3-5},"$6"
+#@cli apply_video : video_filename,_"command",_first_frame>=0,_last_frame={ >=0 | -1=last },_frame_step>=1,_output_filename
+#@cli : Apply a G'MIC command on all frames of the specified input video file, in a streamed way.
+#@cli : If a display window is opened, rendered frames are displayed in it during processing.
+#@cli : The output filename may have extension '.avi' or '.mp4' (saved as a video), or any other usual image
+#@cli : file extension (saved as a sequence of images).
+#@cli : This command requires features from the OpenCV library (not enabled in G'MIC by default).
+#@cli : Default values: 'first_frame=0', 'last_frame=-1', 'frame_step=1' and 'output_filename=(undefined)'.
+apply_video : check_opencv $0 check "isint(${3=0}) && $3>=0 && isint(${4=-1}) && ($4>=0 || $4==-1) && ${5=1}>=1"
+skip "${2=},${6=}"
+e[^-1] "Apply command '$2' on input video file '$1', with first frame $3, last frame $4, frame step $5 and
+output filename '$6'.\n"
+_N= v + _apply_stream[] "\"$1\",$frame","$2",${3-5},"$6"
+_apply_stream : skip "${2=},${6=}"
+is_ext "$6",avi is_outavi=${}
+is_ext "$6",mp4 is_outmp4=${}
+frame=$3 i=0 go_on=1
+do
+l[] { $1 onfail go_on=0 }
+if $go_on
+e "\r > Frame ""#"$frame$_N" "
+frame+=$5
+l { $2 onfail error[0--5] "Command 'apply_stream': Specified command errored: "${} }
+if !$! continue fi
+if narg("$6")
+if $is_outavi||$is_outmp4 z. 0,{w-(w%8)-1} o. "$6",25,mp4v,1 else o. ${filename\ "$6",$i} i+=1 fi
+fi
+if {*}
+title="[G'MIC] Frame ""#"$frame
+if !narg($wh) wh=${fitscreen[]\ {[w,h]}} w. $wh,0,$title
+else w. -1,-1,0,$title
+fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,D} w[] {{*,w}*1.5},{{*,h}*1.5} wait -1 fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,C} w[] {{*,w}/1.5},{{*,h}/1.5} wait -1 fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,R} w[] {0,w},{0,h} wait -1 fi
+fi
+rm.
+fi
+while $go_on" && "($4==-1" || "$frame<=$4)
+if $is_outavi||$is_outmp4 o[] "$6",25,mp4v,0 fi
+#@cli average_files : "filename_pattern",_first_frame>=0,_last_frame={ >=0 | -1=last },_frame_step>=1,_output_filename
+#@cli : Average specified input image files, in a streamed way.
+#@cli : If a display window is opened, rendered frames are displayed in it during processing.
+#@cli : The output filename may have extension '.avi' or '.mp4' (saved as a video), or any other usual image
+#@cli : file extension (saved as a sequence of images).
+#@cli : Default values: 'first_frame=0', 'last_frame=-1', 'frame_step=1' and 'output_filename=(undefined)'.
+average_files : check "isint(${2=0}) && $2>=0 && isint(${3=-1}) && ($3>=0 || $3==-1) && ${4=1}>=1" skip "${5=}"
+e[^-1] "Average input image files '$1', with first frame $2, last frame $3, frame step $4 and
+output filename '$5'.\n"
+files 3,"$1" _N=/{narg(${})-1} arg2var _file,${} v + _average_stream[] "${_file{$frame+1}}",${2-4},"$5"
+#@cli average_video : video_filename,_first_frame>=0,_last_frame={ >=0 | -1=last },_frame_step>=1,_output_filename
+#@cli : Average frames of specified input video file, in a streamed way.
+#@cli : If a display window is opened, rendered frames are displayed in it during processing.
+#@cli : The output filename may have extension '.avi' or '.mp4' (saved as a video), or any other usual image
+#@cli : file extension (saved as a sequence of images).
+#@cli : This command requires features from the OpenCV library (not enabled in G'MIC by default).
+#@cli : Default values: 'first_frame=0', 'last_frame=-1', 'frame_step=1' and 'output_filename=(undefined)'.
+average_video : check_opencv $0 check "isint(${2=0}) && $2>=0 && isint(${3=-1}) && ($3>=0 || $3==-1) && ${4=1}>=1"
+skip "${5=}"
+e[^-1] "Average frames of input video file '$1', with first frame $2, last frame $3, frame step $4 and
+output filename '$5'.\n"
+_N= v + _average_stream[] "\"$1\",$frame",${2-4},"$5"
+_average_stream : skip "${5=}"
+is_ext "$5",avi is_outavi=${}
+is_ext "$5",mp4 is_outmp4=${}
+frame=$2 i=0 go_on=1 N=0
+imM=inf,-inf
+do
+l[] { $1 onfail go_on=0 }
+if $go_on
+e "\r > Frame ""#"$frame$_N" "
+imM={v=[$imM];[min(im,v[0]),max(iM,v[1])]}
+N+=1
+if $!>1 r ${-max_whds} + fi
+if narg("$5")
++/. $N c. $imM
+if $is_outavi||$is_outmp4 z. 0,{w-(w%8)-1} o. "$5",25,mp4v,1 else o. ${filename\ "$5",$i} i+=1 fi
+rm.
+fi
+if {*}
+title="[G'MIC] Frame ""#"$frame
++n 0,255
+if !narg($wh) wh=${fitscreen[]\ {[w,h]}} w. $wh,0,$title
+else w. -1,-1,0,$title
+fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,D} w[] {{*,w}*1.5},{{*,h}*1.5} wait -1 fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,C} w[] {{*,w}/1.5},{{*,h}/1.5} wait -1 fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,R} w[] {0,w},{0,h} wait -1 fi
+rm.
+fi
+frame+=$4
+fi
+while $go_on" && "($3==-1" || "$frame<=$3)
+/ $N c $imM
+if $is_outavi||$is_outmp4 o[] "$5",25,mp4v,0 fi
+#@cli fade_files : "filename_pattern",_nb_inner_frames>0,_first_frame>=0,_last_frame={ >=0 | -1=last },_frame_step>=1,_output_filename
+#@cli : Generate a temporal fading from specified input image files, in a streamed way.
+#@cli : If a display window is opened, rendered frames are displayed in it during processing.
+#@cli : The output filename may have extension 'avi' or 'mp4' (saved as a video), or any other usual image
+#@cli : file extension (saved as a sequence of images).
+#@cli : Default values: 'nb_inner_frames=10', 'first_frame=0', 'last_frame=-1', 'frame_step=1' and 'output_filename=(undefined)'.
+fade_files : check "isint(${2=10}) && $2>0 && isint(${3=0}) && $3>=0 &&
+isint(${4=-1}) && ($4>=0 || $4==-1) && ${5=1}>=1" skip "${6=}"
+e[^-1] "Fade input image files '$1', with $2 inner frames, first frame $3, last frame $4, frame step $5 and
+output filename '$6'.\n"
+files 3,"$1" _N=/{narg(${})-1} arg2var _file,${} v + _fade_stream[] "${_file{$frame+1}}",${2-5},"$6"
+#@cli fade_video : video_filename,_nb_inner_frames>0,_first_frame>=0,_last_frame={ >=0 | -1=last },_frame_step>=1,_output_filename
+#@cli : Create a temporal fading sequence from specified input video file, in a streamed way.
+#@cli : If a display window is opened, rendered frames are displayed in it during processing.
+#@cli : This command requires features from the OpenCV library (not enabled in G'MIC by default).
+#@cli : Default values: 'nb_inner_frames=10', 'first_frame=0', 'last_frame=-1', 'frame_step=1' and 'output_filename=(undefined)'.
+fade_video : check_opencv $0 check "isint(${2=10}) && $2>0 && isint(${3=0}) && $3>=0 &&
+isint(${4=-1}) && ($4>=0 || $4==-1) && ${5=1}>=1" skip "${6=}"
+e[^-1] "Fade frames of input video file '$1', with $2 inner frames, first frame $3, last frame $4, frame step $5 and
+output filename '$6'.\n"
+_N= v + _fade_stream[] "\"$1\",$frame",${2-5},"$6"
+_fade_stream : skip "${6=}"
+is_ext "$6",avi is_outavi=${}
+is_ext "$6",mp4 is_outmp4=${}
+frame=$3 i=0 go_on=1
+l { $1 onfail go_on=0 }
+if !$go_on return fi
+w={w} h={h} s={s}
+if {*} w. ${fitscreen\ $w,$h},0,"[G'MIC]" fi
+pframe=$frame frame+=$5
+do
+l[] { $1 onfail go_on=0 }
+if !$go_on break fi
+to_colormode. $s r. $w,$h
+repeat $2+2 {
+if $<
+title="[G'MIC] Frame ""#"$pframe" -> ""#"$frame$_N" ("{1+$>}/$2")"
+e "\r - "$title
++j[0] [1],0,0,0,0,{$>/($2+1)}
+if narg("$6")
+if $is_outavi||$is_outmp4 z. 0,{w-(w%8)-1} o. "$6",25,mp4v,1 else filename "$6",$i i+=1 o. ${} fi
+fi
+if {*}
+w. -1,-1,0,$title
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,D} w[] {{*,w}*1.5},{{*,h}*1.5} wait -1 fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,C} w[] {{*,w}/1.5},{{*,h}/1.5} wait -1 fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,R} w[] {0,w},{0,h} wait -1 fi
+fi
+rm.
+fi
+}
+rm[0] pframe=$frame frame+=$5
+while $go_on" && "($4==-1" || "$frame<=$4)
+if narg("$6")
+if $is_outavi||$is_outmp4 z. 0,{w-(w%8)-1} o[] "$6",25,mp4v,0 else filename "$6",$i o. ${} fi
+fi
+rm
+#@cli files2video : "filename_pattern",_output_filename,_fps>0,_codec
+#@cli : Convert several files into a single video file.
+#@cli : Default values: 'output_filename=output.mp4', 'fps=25' and 'codec=mp4v'.
+files2video : check "isint(${3=25}) && $3>0" skip "${2=output.mp4}",${4=mp4v}
+files=${"files \"$1\""} arg2var _file,$files nb_files=${}
+('$files') if w>128 z. 0,127 s_files={t}... else s_files=$files fi rm.
+e[^-1] "Convert image files '"$s_files"' into frames of output video '$2', with $3 fps and $4 codec.\n"
+repeat $nb_files { l[] {
+file=${_file{$>+1}}
+_file=${basename\ $file}
+e "\r - Image "{1+$>}/$nb_files" ["$_file"] -> [$2] "
+i $file o "$2",$3,$4,1
+rm
+onfail e "\n - Error occurred on input file '"$file"'.\n"
+} }
+o $"$2",0,0,0
+#@cli median_files : "filename_pattern",_first_frame>=0,_last_frame={ >=0 | -1=last },_frame_step>=1,_frame_rows[%]>=1,_is_fast_approximation={ 0 | 1 }
+#@cli : Compute the median frame of specified input image files, in a streamed way.
+#@cli : If a display window is opened, rendered frame is displayed in it during processing.
+#@cli : Default values: 'first_frame=0', 'last_frame=-1', 'frame_step=1', 'frame_rows=20%' and 'is_fast_approximation=0'.
+median_files : check "isint(${2=0}) && $2>=0 && isint(${3=-1}) && ($3>=0 || $3==-1) &&
+${4=1}>=1 && ${5=20%}>0 && isnum(${6=0})"
+s0="fast" s1="precise"
+e[^-1] "Compute median of input image files '$1', with first frame $2, last frame $3, frame step $4,
+frame rows $5, using "${s{!$6}}" algorithm."
+files 3,"$1" _N=/{narg(${})-1} arg2var _file,${}
+l[] {
+${_file{$frame+1}} => res f. 0
+v + _median_stream "${_file{$frame+1}}",${2-6} v -
+}
+#@cli median_video : video_filename,_first_frame>=0,_last_frame={ >=0 | -1=last },_frame_step>=1,_frame_rows[%]>=1,_is_fast_approximation={ 0 | 1 }
+#@cli : Compute the median of all frames of an input video file, in a streamed way.
+#@cli : If a display window is opened, rendered frame is displayed in it during processing.
+#@cli : This command requires features from the OpenCV library (not enabled in G'MIC by default).
+#@cli : Default values: 'first_frame=0', 'last_frame=-1', 'frame_step=1', 'frame_rows=100%' and 'is_fast_approximation=1'.
+median_video : check_opencv $0 check "isint(${2=0}) && $2>=0 && isint(${3=-1}) && ($3>=0 || $3==-1) &&
+${4=1}>=1 && ${5=100%}>0 && isnum(${6=1})"
+s0="fast" s1="precise"
+e[^-1] "Compute median frame of input video file '$1', with first frame $2, last frame $3, frame step $4,
+frame rows $5, using "${s{!$6}}" algorithm."
+_N=
+l[] {
+"$1",0 => res f. 0
+v + _median_stream "\"$1\",$frame",${2-6} v -
+}
+_median_stream :
+if $6
+e "- Retrieve min/max values of all frames.\n"
+frame=$2 go_on=1
+imM=inf,-inf
+do
+l[] { $1 onfail go_on=0 }
+if $go_on
+e "\r > Frame ""#"$frame$_N" "
+imM={v=[$imM];[min(im,v[0]),max(iM,v[1])]}
+if {*}
+title="[G'MIC] Frame ""#"$frame
+if !narg($wh) wh=${fitscreen[]\ {[w,h]}} w. $wh,1,$title
+else w. -1,-1,1,$title
+fi
+fi
+rm.
+frame+=$4
+fi
+while $go_on" && "($3==-1" || "$frame<=$3)
+_N=/{$frame-$4}
+fact={v=[$imM];dv=v[1]-v[0];dv<=0?0:255/dv}
+fi
+h1={h-1} drows={round(${is_percent\ $5}?$5*h:$5)}
+nb_iter={round(h/$drows,1,1)}
+repeat $nb_iter {
+row0={$drows*$>} row1={0,min(h,$row0+$drows-1)}
+e "- Iteration \#"{$>+1}/$nb_iter": Load rows "$row0-$row1/$h1".\n"
+frame=$2 go_on=1
+if $6
+N=0
+{w},$drows,256,{s} => hist
+do
+l[] { $1 => img onfail go_on=0 }
+if $img
+e "\r > Frame ""#"$frame$_N" "
+if {*}" && "!$>
+title="[G'MIC] Frame ""#"$frame
+if !narg($wh) wh=${fitscreen[]\ {img,[w,h]}} w[img] $wh,1,$title
+else w[img] -1,-1,1,$title
+fi
+fi
+rows[img] $row0,$row1 f[img] ":++i(#-2,x,y,round(i*"$fact"),c)"
+rm[img]
+frame+=$4 N+=1
+fi
+while $go_on" && "($3==-1" || "$frame<=$3)
+cumulate[hist] z
+N2={int($N/2)}
+[hist],[hist],1,[hist]
+if $N%2
+f. ":go_on = 1; for (z = 0, i(#"$hist",x,y,z,c)<"$N2" && z<256, ++z); z"
+else
+f. ":begin(N2p = "$N2"; N2n = N2p + 1);
+go_on = 1;
+for (zp = 0, i(#"$hist",x,y,zp,c) img onfail go_on=0 }
+if $go_on
+e "\r > Frame ""#"$frame$_N" "
+if {*}" && "!$>
+title="[G'MIC] Frame ""#"$frame
+if !narg($wh) wh=${fitscreen[]\ {[w,h]}} w. $wh,1,$title
+else w. -1,-1,1,$title
+fi
+fi
+rows. $row0,$row1
+frame+=$4
+fi
+while $go_on" && "($3==-1" || "$frame<=$3)
+e "\r > Compute median blending of "$!" frames."
+__median_stream
+}
+fi
+_N=/{$frame-$4}
+j[res] .,0,$row0
+if {*} w[res] -1,-1,1,"[G'MIC] Iteration ""#"$> fi
+rm.
+}
+e "- Done!"
+__median_stream :
+if $!<2 return
+elif $!==2 + / 2
+else
+f. ":
+stack = vector"{0,2*$!}"();
+stacksize = 0;
+push(elt0,elt1) = (stack[stacksize++] = elt0; stack[stacksize++] = elt1);
+pop() = (_s1 = stack[--stacksize]; _s0 = stack[--stacksize]; [_s0,_s1]);
+push(0,"$!" - 1);
+while (stacksize>0,
+range = pop();
+lo = range[0];
+hi = range[1];
+pivot = i(#int((lo + hi)/2));
+while (lo<=hi,
+while (i(#lo)=1,_smoothness>=0,_precision>=0
+#@cli : Create morphing sequence between selected images.
+#@cli : Default values: 'smoothness=0.1' and 'precision=4'.
+#@cli : $ image.jpg +rotate 20,1,1,50%,50% morph 9
+morph : check "$1>=0.5 && ${2=0.1}>=0 && ${3=4}>=0"
+nbf={round($1)}
+e[^-1] "Create morphing sequence between image$?, with "$nbf" inner frames, smoothness $2 and precision $3.\n"
+nchan=${-max_s} if $nchan<=4 to_colormode $nchan else channels 0,{$nchan-1} fi
+ri[^0] [0],3
+repeat $!-1 {
+nm={$>,n}
+l[$<,{$<+1}] {
+e "\r > Morph image "$>" to image "{$>+1}". "
++equalize[0,1] n[-2,-1] 0,255
++displacement[3] [2],$2,$3 +displacement[2] [3],$2,$3 rm[-4,-3]
+repeat $nbf+2 {
+if $>&&$<
+t={$>/($nbf+1)} omt={1-$t}
++*[2] $t +warp[0] .,1,1,1 rm.. *. $omt
++*[3] {1-$t} +warp[1] .,1,1,1 rm.. *. $t
++[-2,-1]
+fi
+}
+rm[2,3] mv[2--1] 1 =>[^] $nm
+}
+}
+#@cli morph_files : "filename_pattern",_nb_inner_frames>0,_smoothness>=0,_precision>=0,_first_frame>=0,_last_frame={ >=0 | -1=last },_frame_step>=1,_output_filename
+#@cli : Generate a temporal morphing from specified input image files, in a streamed way.
+#@cli : If a display window is opened, rendered frames are displayed in it during processing.
+#@cli : The output filename may have extension '.avi' or '.mp4' (saved as a video), or any other usual image
+#@cli : file extension (saved as a sequence of images).
+#@cli : Default values: 'nb_inner_frames=10', 'smoothness=0.1', 'precision=4', 'first_frame=0', 'last_frame=-1', 'frame_step=1' and 'output_filename=(undefined)'.
+morph_files : check "isint(${2=10}) && $2>0 && ${3=0.1}>=0 && ${4=4}>=0 &&
+isint(${5=0}) && $5>=0 && isint(${6=-1}) && ($6>=0 || $6==-1) && ${7=1}>=1" skip "${8=}"
+e[^-1] "Morph input image files '$1', with $2 inner frames, smoothness $3, precision $4, first frame $5,
+last frame $6, frame step $7 and output filename '$8'.\n"
+files 3,"$1" _N=/{narg(${})-1} arg2var _file,${} _morph_stream[] "${_file{$frame+1}}",${2-7},"$8"
+#@cli morph_rbf : nb_inner_frames>=1,xs0[%],ys0[%],xt0[%],yt0[%],...,xsN[%],ysN[%],xtN[%],ytN[%]
+#@cli : Create morphing sequence between selected images, using RBF-based interpolation.
+#@cli : Each argument (xsk,ysk)-(xtk,ytk) corresponds to the coordinates of a keypoint
+#@cli : respectively on the source and target images. The set of all keypoints define the overall image deformation.
+morph_rbf : check "$1>=0.5"
+nbf={round($1)}
+e[^-1] "Create morphing sequence between image$? using RBF interpolation, ""with "$nbf" inner frames and keypoints ($*)."
+$=arg N={($#-1)/4}
+if int($N)!=$N error[0--2] "Command 'morph_rbf': Wrong number of arguments ($#)." fi
+ri[^0] [0],3
+repeat $!-1 { nm={$>,n} l[$<,{$<+1}] {
+e "\r > Morph image "$>" to image "{$>+1}". "
+4,$N
+repeat wh { a=${arg{2+$>}} isp=${"is_percent "$a} eval i[$>]=$isp?($>%2?w#0:h#0)*$a:$a }
+permute. yzcx
++f. "[i0,i1,i2-i0,i3-i1]"
+f.. "[i2,i3,i0-i2,i1-i3]"
+rbf[-2,-1] {0,[w,h]}
+repeat $nbf+2 {
+if $>&&$<
+[0],[0],1,[0],"
+const interpolation = 1;
+const boundary = 3;
+const t = "$>"/("$nbf"+1);
+const omt = 1 - t;
+begin(print([t,omt]));
+ub = i(#2,x,y,0,0);
+vb = i(#2,x,y,0,1);
+uf = i(#3,x,y,0,0);
+vf = i(#3,x,y,0,1);
+omt*I(#0,x - t*uf,y - t*vf) + t*I(#1,x - omt*ub,y - omt*vb)"
+fi
+}
+rm[2,3] mv[2--1] 1 =>[^] $nm
+} }
+#@cli morph_video : video_filename,_nb_inner_frames>0,_smoothness>=0,_precision>=0,_first_frame>=0,_last_frame={ >=0 | -1=last },_frame_step>=1,_output_filename
+#@cli : Generate a temporal morphing from specified input video file, in a streamed way.
+#@cli : If a display window is opened, rendered frames are displayed in it during processing.
+#@cli : The output filename may have extension '.avi' or '.mp4' (saved as a video), or any other usual image
+#@cli : file extension (saved as a sequence of images).
+#@cli : This command requires features from the OpenCV library (not enabled in G'MIC by default).
+#@cli : Default values: 'nb_inner_frames=10', 'smoothness=0.1', 'precision=4', 'first_frame=0', 'last_frame=-1', 'frame_step=1' and 'output_filename=(undefined)'.
+morph_video : check_opencv $0 check "isint(${2=10}) && $2>0 && ${3=0.1}>=0 && ${4=4}>=0 &&
+isint(${5=0}) && $5>=0 && isint(${6=-1}) && ($6>=0 || $6==-1) && ${7=1}>=1" skip "${8=}"
+e[^-1] "Morph frames of input video file '$1', with $2 fading frames, smoothness $3, precision $4, first frame $5,
+last frame $6, frame step $7 and output filename '$8'.\n"
+_N= v + _morph_stream[] "\"$1\",$frame",${2-7},"$8"
+_morph_stream : skip "${8=}"
+is_ext "$8",avi is_outavi=${}
+is_ext "$8",mp4 is_outmp4=${}
+frame=$5 i=0 go_on=1
+l { $1 onfail go_on=0 }
+if !$go_on return fi
+w={w} h={h} s={s}
+if {*} w. ${fitscreen\ $w,$h},0,"[G'MIC]" fi
+pframe=$frame frame+=$7
+do
+l[] { $1 onfail go_on=0 }
+if !$go_on break fi
+to_colormode. $s r. $w,$h
+cutvals={[min(im#0,im#1),max(iM#0,iM#1)]}
+e "\r - Frame ""#"$pframe" -> ""#"$frame" "
++equalize[0,1] n[-2,-1] 0,255
++displacement[3] [2],$3,$4 +displacement[2] [3],$3,$4 rm[-4,-3]
+repeat $2+2 {
+if $<
+title="Frame ""#"$pframe" -> ""#"$frame" ("$>/$2") "
+e "\r - "$title
+t={$>/($2+1)} omt={1-$t}
++*[2] $t +warp[0] .,1,1,1 rm.. *. $omt
++*[3] {1-$t} +warp[1] .,1,1,1 rm.. *. $t
++[-2,-1] c. $cutvals
+if narg("$8")
+if $is_outavi||$is_outmp4 z. 0,{w-(w%8)-1} o. "$8",25,mp4v,1 else filename "$8",$i i+=1 o. ${} fi
+fi
+if {*}
+w. -1,-1,0,$title
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,D} w[] {{*,w}*1.5},{{*,h}*1.5} wait -1 fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,C} w[] {{*,w}/1.5},{{*,h}/1.5} wait -1 fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,R} w[] {0,w},{0,h} wait -1 fi
+fi
+rm.
+fi
+}
+rm[0,-2,-1] pframe=$frame frame+=$7
+while $go_on" && "($6==-1" || "$frame<=$6)
+if narg("$8")
+if $is_outavi||$is_outmp4 z. 0,{w-(w%8)-1} o[] "$8",25,mp4v,0 else filename "$8",$i o. ${} fi
+fi
+rm
+#@cli register_nonrigid : [destination],_smoothness>=0,_precision>0,_nb_scale>=0
+#@cli : Register selected source images with specified destination image, using non-rigid warp.
+#@cli : Default values: 'smoothness=0.2', 'precision=6' and 'nb_scale=0(auto)'.
+#@cli : $ image.jpg +rotate 20,1,1,50%,50% +register_nonrigid[0] [1]
+register_nonrigid : check ${is_image_arg\ $1}" && ${2=0.2}>=0 && ${3=5}>0 && ${4=0}>=0"
+e[^-1] "Register source image$? with destination image $1, using non-rigid warp with smoothness $2,
+precision $3 and $4 scale(s)."
+pass$1 0 equalize. n. 0,255
+repeat $!-1 {
++equalize[$>] n. 0,255 +displacement.. .,$2,$3,$4 rm..
+warp[$>] .,1,1,1 rm.
+} rm.
+#@cli register_rigid : [destination],_smoothness>=0,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }
+#@cli : Register selected source images with specified destination image, using rigid warp (shift).
+#@cli : Default values: 'smoothness=0.1%' and 'boundary_conditions=0'.
+#@cli : $ image.jpg +shift 30,20 +register_rigid[0] [1]
+register_rigid : check ${is_image_arg\ $1}" && ${2=0.1%}>=0 && isint(${3=0}) && $3>=0 && $3<=3"
+e[^-1] "Register source image$? with destination image $1, using rigid warp with smoothness $2."
+m "_register_rigid : b $2 equalize 256 n 0,1"
+pass$1 0 W,H,D,S={[w,h,d,s]}
+f={max(w,h)/1024}
+if $f<=1
+_register_rigid.
+repeat $!-1 {
+if {$>,w!=$W||h!=$H||d!=$D}
+error[0--4] "Images have incompatible sizes ("{$>,[w,h,d,s]}") and ("{[$W,$H,$D,$S]}")."
+fi
++_register_rigid[$>] phase_correlation. .. shift[$>] {^},0,$3 rm.
+}
+rm.
+else
++r. {[min(w,1024),min(h,1024),min(d,1024)]},100%,0,0,0.5,0.5
+rr2d.. 1024,1024,0,2
+_register_rigid[-2,-1]
+repeat $!-2 {
+if {$>,w!=$W||h!=$H||d!=$D}
+error[0--4] "Images have incompatible sizes ("{$>,[w,h,d,s]}") and ("{[$W,$H,$D,$S]}")."
+fi
++rr2d[$>] 1024,1024,0,2 _register_rigid.
+phase_correlation. ...
+s={$f*crop()} rm.
++shift[$>] $s,0,$3
+r. {[min(w,1024),min(h,1024),min(d,1024)]},100%,0,0,0.5,0.5 _register_rigid.
+phase_correlation. ..
+s={[$s]+crop()} rm.
+shift[$>] $s,0,$3
+}
+rm[-2,-1]
+fi
+um _register_rigid
+#@cli transition : [transition_shape],nb_added_frames>=0,100>=shading>=0,_single_frame_only={ -1=disabled | >=0 }
+#@cli : Generate a transition sequence between selected images.
+#@cli : Default values: 'shading=0' and 'single_frame_only=-1'.
+#@cli : $ image.jpg +mirror c 100%,100% plasma[-1] 1,1,6 transition[0,1] [2],5
+transition : check ${is_image_arg\ $1}" && $2>=0 && ${3=0}>=0 && $3<=100" skip ${4=-1}
+frame={round($4)} s0=" and shading $3" s1=", shading $3 and single-frame-only "$frame
+e[^-1] "Create transition sequence between image$? with $2 added frames, transition shape $1"${s{$4>0}}"."
+if $!<2" || "!$2 return fi
+to_colormode 0 r ${-max_whd},100%,0,0,0.5,0.5
+pass$1 0 norm. r. [0],[0],[0],1,3 n. 0,1 mv. 0
+repeat $!-2 { l[0,{$<+1},{$<+2}] {
+nm0={1,n}
+if $3 repeat $2 { if $4<0" || "$>==$frame
+val0={($>+0.5)/$2-$3%}
+val1={($>+0.5)/$2+$3%}
++f[0] '(i-$val0)/($val1-$val0)' c. 0,1
++j[2] [1],0,0,0,0,1,. rm..
+=> $nm0\ ""#{1+$>}
+fi } else repeat $2 { if $4<0" || "$>==$frame
++>=[0] {($>+0.5)/$2}
++j[2] [1],0,0,0,0,1,. rm..
+=> $nm0\ ""#{1+$>}
+fi } fi
+mv[2] $!
+} } rm[0]
+#@cli transition3d : _nb_frames>=2,_nb_xtiles>0,_nb_ytiles>0,_axis_x,_axis_y,_axis_z,_is_antialias={ 0 | 1 }
+#@cli : Create 3D transition sequence between selected consecutive images.
+#@cli : 'axis_x', 'axis_y' and 'axis_z' can be set as mathematical expressions, depending on 'x' and 'y'.
+#@cli : Default values: 'nb_frames=10', 'nb_xtiles=nb_ytiles=3', 'axis_x=1', 'axis_y=1', 'axis_z=0' and 'is_antialias=1'.
+#@cli : $ image.jpg +blur 5 transition3d 9 display_rgba
+transition3d : check "isint(${1=10}) && $1>=2 && isint(${2=3}) && $2>0 && isint(${3=$2}) && $3>0"
+skip ${4=1},${5=1},${6=0},${7=1}
+e[^-1] "Create 3D transition sequence between image$?, with $1 frames, $2x$3 tiles and rotation axis ($4,$5,$6).\n"
+if $!<2 return fi
+slices 0 to_rgb r ${-max_whds},3
+off=0 repeat $!-1 { l[{$>+$off},{$>+$off+1}] {
+e "\r > Generate transition from image "$>" to image "{$>+1}". "
+$2,$3,1,1,'$4'
+$2,$3,1,1,'$5'
+$2,$3,1,1,'$6'
+a[-3--1] z
+permute. zxyc r. 3,{$2*$3},1,1,-1
+repeat h { rot$>={@0-2} shift. 0,-1,0,0 }
+rm.
++split_tiles[-2,-1] $2,$3 mv[0,1] $!
+N={$2*$3} i=0 y=0
+repeat $3 {
+x=0
+repeat $2 {
+lw={$i,w} lh={$i,h}
+imageplane3d[$i] imageplane3d[$N] r3d[$N] ${rot$i},180 c3d[$i,$N] +3d[$i,$N]
+x$i=$x y$i=$y x+=$lw i+=1
+}
+y+=$lh
+}
+repeat $1-2 {
+repeat $N { r3d[$>] ${rot$>},{180/(1-$1)} ++3d[$>] ${x$>},${y$>},0 }
++3d[-$N--1] c3d.
+if $7
+i... {-2,2*[w,h]},1,3,-1
+*3d. 2 j3d... .,50%,50%,0,1,2,0,0 rm.
+to_rgba.. replace_color.. 0,0,-1,-1,-1,255,0,0,0,0
+downsize_aliased.. 50
+else
+i... {-2,w},{-2,h},1,3,-1 j3d... .,50%,50%,0,1,2,0,0 rm.
+to_rgba.. replace_color.. 0,0,-1,-1,-1,255,0,0,0,0
+fi
+}
+rm[0-{$N-1}]
+=>[1--2] {0,n}
+off+={$1-2}
+} }
+#@cli video2files : input_filename,_output_filename,_first_frame>=0,_last_frame={ >=0 | -1=last },_frame_step>=1
+#@cli : Split specified input video file into image files, one for each frame.
+#@cli : First and last frames as well as step between frames can be specified.
+#@cli : Default values: 'output_filename=frame.png', 'first_frame=0', 'last_frame=-1' and 'frame_step=1'.
+video2files : check "isint(${3=0}) && $3>=0 && isint(${4=-1}) && ($4>=0 || $4==-1) && isint(${5=1}) && $5>=1"
+skip ${2="frame.png"}
+e[^-1] "Split input video file '$1' into image frames '$2', with first frame $3, last frame $4, and frame step $5.\n"
+frame=$3 stopflag=0
+do l[] {
+i "$1",$frame
+if $!
+o ${"filename \"$2\","$frame} rm
+e "\r > Frame ""#"$frame
+frame+=$5
+else stopflag=1
+fi
+onfail stopflag=1
+} while !$stopflag" && "($frame<=$4" || "$4==-1)
+#@cli :: Convenience Functions
+#@cli alert : _title,_message,_label_button1,_label_button2,...
+#@cli : Display an alert box and wait for user's choice.
+#@cli : If a single image is in the selection, it is used as an icon for the alert box.
+#@cli : Default values: 'title=[G'MIC Alert]' and 'message=This is an alert box.'.
+alert : skip "${1=[G"{`39`}"MIC Alert]},${2=This is an alert box.},${3=OK}"
+if $!==1
+e[0--3] "Display alert box, with image$?, title '$1', message '$2' and buttons '${3--1}'."
+else
+e[0--3] "Display alert box, with title '$1', message '$2' and buttons '${3--1}'."
+fi
+if $!==1 logo= else logo=[] fi
++l$logo {
+if $!==1 to_rgb
+else
+64,64 polygon 3,50%,10%,10%,90%,90%,90%,1,1 b 3 >= 50%
++erode. 5 -. .. ==. 0
+polygon. 4,47%,43%,53%,43%,53%,66%,47%,66%,1,0 circle. 50%,76%,2,1,0
++*[0] 255 . 100%,100% a[-3--1] c -. '3*(y-h/2)' c. 0,255
+*. .. rm.. *[0] 255 rv a c
+drop_shadow 3,3,1 i[0] 100%,100%,1,3,200 blend alpha
+fi
+channels -1,2
+$=arg
+repeat $#-2 { label=${arg{$>+3}} 0 t. $label,0,0,16,1,-200 }
+r[^0] {min(128,max(64,${max_w[^0]}+12))},{min(48,max(24,${max_h[^0]}+12))},1,1,0,0,0.5,0.5
++[^0] 200 to_rgb[^0]
+mv[0] $!
+[0],[0],1,1,'(y-h/2)' *. -2 c. -30,30 +[0--3] . rm. c[^-1] 0,255
+foreach[^-1] {
++rectangle 0,0,100%,100%,1,0xFFFFFFFF,0
+rectangle. 1,1,{w-2},{h-2},1,0xFFFFFFFF,0
+line. 2,{h-3},{w-3},{h-3},1,150 line. {w-3},{h-3},{w-3},2,1,150
+line. 1,1,{w-3},1,1,255 line. 1,1,1,{h-3},1,255
+rectangle. 4,4,{w-5},{h-5},1,0xAAAAAAAA,0
++shift.. 1,1,0,0,2
+rectangle. 0,0,100%,100%,1,0xFFFFFFFF,0
+rectangle. 1,1,{w-2},{h-2},1,0xFFFFFFFF,150
+rectangle. 4,4,{w-5},{h-5},1,0xAAAAAAAA,0
+rectangle... 0,0,100%,100%,1,0xFFFFFFFF,0
+line... 1,{h-2},{w-2},{h-2},1,150 line... {w-2},{h-2},{w-2},1,1,150
+line... 0,0,{w-2},0,1,255 line... 0,0,0,{h-2},1,255
+i[0] 100%,100% =[0] 1,0,0
+a c
+}
++l {
+channels 0,3 sh 1,100% -[50%--1] 200 rm[50%--1] frame 8,8,0
+if $!<6 a[^-1] x else append_tiles[^-1] , fi
+0 t. "$2",0,0,16,1,0,-200,-200,-200 r. {w+16},{h+8},1,4,0
+a[-2,-1] x,0.5 rv a y,0.5
+sh 1,100% +. 200 rm.
+rectangle 0,0,100%,100%,1,0xFFFFFFFF,0
+line 0,0,{w-2},0,1,0,255,255,255 line 0,0,0,{h-2},1,0,255,255,255
+}
+rm..
++channels. 0
+(0,{w-1}) (0;{-2,h-1}) ri[-2,-1] ...,3 a[-2,-1] c round. rv[-2,-1] *[-2,-1]
+discard. 0 y. r. {h/2},2,1,1,-1
+channels.. 1,3 rv[-2,-1]
+100%,100% repeat w#-3 { x0={-3,i($>,0)} y0={-3,i($>,1)} rectangle. $x0,$y0,{$x0+{0,w}-1},{$y0+{0,h}-1},1,{1+$>} }
+a[-2,-1] c
+repeat 9 { if !{*$>} disp=$> break fi }
+if !narg($disp) error[0--4] "Command '$0': Cannot open display window for alert box." fi
+selected={if($#==3,0,-1)} clicked=-1
+do
++channels. 0,2
+if $clicked>=0
+x0={-3,i($clicked,0)} y0={-3,i($clicked,1)}
+sh[$clicked] 7,9
+j.. .,$x0,$y0 rm.
+elif $selected>=0
+x0={-3,i($selected,0)} y0={-3,i($selected,1)}
+sh[$selected] 4,6
+j.. .,$x0,$y0 rm.
+fi
+w$disp. 100%,100%,0,"$1" rm. wait
+xm={*$disp,x} ym={*$disp,y} bm={{*$disp,b}&1} val={i($xm,$ym,0,3)}
+if $bm" && "$val clicked={$val-1}
+elif $bm" && "!$val" && "$clicked>=0 selected=$clicked clicked=-1
+elif !$bm" && "$clicked>=0" && "$clicked==$val-1 break
+fi
+if {*$disp,ARROWRIGHT} selected={($selected+1)%{-2,w}} wait -1
+elif {*$disp,ARROWLEFT} selected={($selected-1)%{-2,w}+($selected==-1)} wait -1
+elif $selected>=0" && "{*$disp,ENTER} clicked=$selected break
+fi
+while {*$disp}" && "!{*$disp,ESC}
+w$disp 0 rm u $clicked
+}
+#@cli arg : n>=1,_arg1,...,_argN
+#@cli : Return the n-th argument of the specified argument list.
+arg : check "isint($1) && ($1)>0"
+$=arg u ${arg{1+($1)}}
+#@cli arg0 : n>=0,_arg0,...,_argN
+#@cli : Return the n-th argument of the specified argument list (where 'n' starts from '0').
+arg0 : check "isint($1) && ($1)>=0"
+$=arg u ${arg{2+($1)}}
+#@cli arg2img : argument_1,...,argument_N
+#@cli : Split specified list of arguments and return each as a new image (as a null-terminated string).
+arg2img :
+$=arg repeat $# { arg=${arg{1+$>}} ({'$arg'},0) => $arg }
+#@cli arg2var : variable_name,argument_1,...,argument_N
+#@cli : For each i in [1...N], set 'variable_name$i=argument_i'.
+#@cli : The variable name should be global to make this command useful (i.e. starts by an underscore).
+arg2var :
+$=arg u {$#-1} repeat ${} { $1{1+$>}=${arg{2+$>}} }
+#@cli autocrop_coords : value1,value2,... | auto
+#@cli : Return coordinates (x0,y0,z0,x1,y1,z1) of the autocrop that could be performed on the latest
+#@cli : of the selected images.
+#@cli : Default value: 'auto'
+autocrop_coords : skip ${1=auto}
+is_auto={['"$1"']=='auto'}
+w,h,d,value:=w,h,d,i(w-1,h-1,d-1)
++=. {1+$value},100%,100%,100% _autocrop$is_auto. ${1--1} =. $value,100%,100%,100%
+x0,y0,z0:=$w-w,$h-h,$d-d
+_autocrop$is_auto. ${1--1}
+x1,y1,z1:=$x0+w-1,$y0+h-1,$z0+d-1 rm.
+u $x0,$y0,$z0,$x1,$y1,$z1
+_autocrop0 : autocrop $*
+_autocrop1 : skip $* autocrop
+#@cli average_vectors
+#@cli : Return the vector-valued average of the latest of the selected images.
+average_vectors :
+if !w u "" return fi
+repeat s-1 { sh. $> res.={ia}, rm. }
+sh. 100% u $res{ia} rm.
+#@cli base642img : "base64_string"
+#@cli : Decode given base64-encoded string as a newly inserted image at the end of the list.
+#@cli : The argument string must have been generated using command 'img2base64'.
++base642img :
+base642uint8 "$1" unserialize.
+#@cli base642uint8 : "base64_string"
+#@cli : Decode given base64-encoded string as a newly inserted 1-column image at the end of the list.
+#@cli : The argument string must have been generated using command 'uint82base64'.
++base642uint8 :
+0
+eval "
+ref(vector256(),hash);
+for (k = _'A', k<=_'Z', ++k, hash[k] = k - _'A');
+for (k = _'a', k<=_'z', ++k, hash[k] = k - _'a' + 26);
+for (k = _'0', k<=_'9', ++k, hash[k] = k - _'0' + 52);
+hash[_'+'] = hash[_'-'] = 62;
+hash[_'/'] = hash[_'_'] = 63;
+s = ['$1'];
+const ss = size(s);
+ss>=2?(
+resize(#-1,1,ss*3/4 - (s[ss-1]==_'=') - (s[ss-2]==_'='),1,1);
+od = 0;
+for (os = 0, os>4);
+i[#-1,od++] = ((c2&15)<<4) | (c3>>2);
+i[#-1,od++] = ((c3&3)<<6) | c4;
+)
+)"
+=> "[unnamed]"
+#@cli basename : file_path,_variable_name_for_folder
+#@cli : Return the basename of a file path, and opt. its folder location.
+#@cli : When specified 'variable_name_for_folder' must starts by an underscore
+#@cli : (global variable accessible from calling function).
+basename : skip ${2=unused}
+l[] {
+({"'$1'"}) replace 92,47 s +,47
+if i==47 a y $2={t} u ""
+elif $!==1 u {t} $2=""
+else a[^-1] y u {t} $2={-2,t}
+fi
+rm
+}
+#@cli bin : binary_int1,...
+#@cli : Print specified binary integers into their octal, decimal, hexadecimal and string representations.
+bin :
+dec=${bin2dec\ ${^0}}
+e[^-1] "Convert binary integer"${arg0\ ($#>1),"",s}" '${^0}' to octal '"${dec2oct\ $dec}"',
+decimal '"$dec"', hexadecimal '"${dec2hex\ $dec}"' and string '"${dec2str\ $dec}"'."
+#@cli bin2dec : binary_int1,...
+#@cli : Convert specified binary integers into their decimal representations.
+bin2dec :
+$=arg res,sep= repeat $# { res=$res$sep${_$0\ ${arg{$>+1}}} sep=, } u $res
+_bin2dec :
+u {"str = v2s(abs($1));
+for (k = val = 0, str[k], ++k,
+c = str[k];
+(val<<=1)+=(c==_'0'?0:c==_'1'?1:nan);
+isnan(val)?break()
+); sign($1)*val"}
+#@cli cat : filename,_display_line_numbers={ 0 | 1 },_line_selection,
+#@cli : Print specified line selection of given filename on stdout.
+#@cli : Default values: 'display_line_numbers=1' and 'line_selection=^'.
+cat : skip "${2=},${3=}"
+if "isbool($2)" dln=$2 if "['$3']!=0" ls=${3--1} else ls=^ fi
+else dln=0 if "['$2']!=0" ls=${2--1} else ls=^ fi
+fi
+it "$1"
+1 eval.. ">i==10?da_push(0,-1):i!=13?da_push(i); end(da_freeze())"
+s. -,-1 0 rv[0,-1] rm.
+m "_$0 : u $""[]" sel=${"-_$0["$ls"]"} um _$0 k[$ls]
+e ""
+if $dln ($sel) foreach[^-1] { pass. 1 +e "#"{@$>}:" "{/{0,t}} rm. } else foreach { +e {/{t}} } fi
+rm
+_check120 :
+use_vt100
+it[] "$1" s +,10
+if !$! return fi
+1,$!,1,2,">begin(line = 1); is_lines=i[#y,0]==10; line+=is_lines?h#y:0; [is_lines || h#y<=120?-1:y,line]"
+lines={{@-1}-1} f. "I = I; if(I[0]<0,I[1]=-1); I"
+discard. -1
+if w
+r. 1,{h/2},1,2,-1
+repeat h {
+l,L={I[$>]}
+e $_vt100_c" - [Line "$_vt100_b$L$_vt100_n$_vt100_c", "$_vt100_b{$l,h}$_vt100_n$_vt100_c" chars]: "$_vt100_n{$l,t}
+}
+fi
+rm
+_total_lines+=$lines
+e " - Scanned : "${lines}" lines"
+check120 :
+_total_lines=0
+files 0,*.h c={`narg($files)?',':0`} if narg(${}) files=$files$c${} fi
+files 0,*.cpp c={`narg($files)?',':0`} if narg(${}) files=$files$c${} fi
+files 0,*.c c={`narg($files)?',':0`} if narg(${}) files=$files$c${} fi
+files 0,*.gmic c={`narg($files)?',':0`} if narg(${}) files=$files$c${} fi
+repeat narg($files) {
+arg0 $>,$files file=${}
+e " * File '"$file"'."
+v + _check120 $file v -
+}
+e " - Total scanned : "${_total_lines}" lines"
+#@cli color2name : R,G,B
+#@cli : Return the name (as a string, in English) that most matches the specified color.
+color2name :
+_color2name ($1^$2^$3) r. {-2,w},1,1,3 -[-2,-1] norm. arg0 {xm},${"u "{n}}
+('${}') replace. {'~'},{'" "'} u {t} rm[-2,-1]
+_color2name :
+if ['$__color2name']==0
+base642img "MiB1aW50OCBsaXR0bGVfZW5kaWFuCjg4MSAxIDEgMyAjMjU4MQp4nCVWeTjViRr+cu/MnZvubSoNDVmqqVSKc6xFWUOLJUSJaDmYQ459zfll38JJuQ7GNvYlxlIiu2ZUv4Mw5OBUllOyVs5kTvjmzHO/f7/leb/3eZ/3+6A6tMZ7abRrMedD+TFk63BorEjhF2D2nZ6pwTVYistbXkdhaOTjHMHhLNRJewY61sdasVClggZyAEDNpzlsjbfQ5gVNPn+JnKoQJHh55Ex8M+MyC+aLTv/cvog41QVpw1h7fp7xtKKGBwc8dn7+oM4n8N4ErywKQ/rTJzlT2UzPRyuJDdzK52zElbgv1/Aw3kIcyxYA2KHgugNYNcD3zSbWCTbIVk6YSdZONDkiCXdtuMJHgAinwrbvap93kz0FizYd0s5LZGuyhXtdOXke0tqJet60uTu61vRMLOTjrqIoWIvOHlz7LSB2BtunYsamYMWpHAaRH8VeRS64lBAtIAN/x5biGwdmTnDxVdkymCKqeanM15zZxpk8Ddsa22qXa/An+5VC1eVmxTNH33Uuxb6lmw/txdLeej6JXaGI5NofiNaVS6mvu4UDKetPEOVjAqqx+34rUHYIeTx3lwb3dBqS+MezPswp+9j25aOT+P8+raFv7PtOovo1a9FYucJxxGekSPjxjA8NJqo+NaZqh4DJbysr6wMbs6bCbicknK0YmS7EOcYOEQ2T6oLjgvQmTMPb8cpsqSfdqDJU+YcQYcdJrfVh74IZ0qB3LcilLZKga9dnqJU8xP+HULDC/TihhKcgUgZcWzLnhcK5QED+BwseIWclKnjxkOx8IwOUkc8Mcn0u4RVsPdy5tuEADuPLz6nTSeMXHKJbsFqADHhFXkMnIic3zWw9K8PgXVES7vkyyaodCsfJ2zRc+Ng1P78uGji19lvbnQIIgA0bDCG+NAL/zHaZxPmOlPLrg49BL1DY8+J1ZgnhQnnI/WcC4sLy491C7EhbttgMSs9F/bTDG5wp6I+M+ABIHrm8irFtT8squlpFOYjx7/2Rodj9Lcb57STgRTq8+8yHM1AcA3NwkhROCZHKwklhb8lg/8jHqS8mCX3LoN7LmXjJW904uoDRADLHebqQGy/0DC1qi6fByFY9XL2K9oW4IeR+FdA+fXrSbTA5kpvMTIteoPh/XtKFHMAcDkgJMH8QV4u9XfD803afhQ+Aq4u4jusZT5RFoA+Dlknro8jcFaUrvINZ+4JbaaP3HC5Jz/aIcp5DLewFJvY+61hnvd0YOXhLYPfD1EGv17DpinbVrFfiNIBfaowUNZ9d6XzQ283BkKvHKmPeePArNATb+FKpitk/02NC1NszmnDRS5YEKJLOZalffIMqIecyK96OGyXjQyMdT02nmhNut/Sd+kolzUYi7vjEe3rQNJkRJ+burSitOD9ek5AW4EP9AU8DrQTX6Gt7HmrrAD2RsgPSHku06Jh794ANZcjstAS79Zqjk0HGU7cUPXjlUCOt+x4BupUjThtrY3eGFPVcWZC1tfIuebsxECaEeHifcFrzcT9U/7U6WEfqj2UyV8LvlFcNt/hd73hVaOsyRbRgBVGSU1l4bfm+6hCygn3SwSNop5tjEUtxzjL2UgnobfxO3XAJUZHCE1d9xi1vql6u5ivlGO595oyN34bxyaXO1c/CXHy/jBdfEiRWCgcWXj5/kFvTE9uF+emInAtLpGfuGY/DvuxmKljJ6YHR0jvduV8tuBnBLeGdkK8AytWX08tbKxL5VIWjwkZWxzh8rTttw6h1Fb7Y3sBrrAoLhcER7+jE1vAUq9lf9u4w7eL+6TtWh1g35XX354zGYKPTFqOB5wwquTzwpaFehO84BijXC1xViEgiSbX2kWZnJNPPrjDH1cq++XdGc5bmDVD4rpS2f6ArmMuflcpcPD7TXQjgOv2cO+FKcg5pFW1NYcpQ99uVwGa1feLjQUfaTMZrkp9MGeWeLHAyv/iaWJRRgVg9P5FVyQdamlma0cmio2oK5eKXDeNp1B/MVEEexBRl9lm5GsHR7YYHL+721xUXO0Myt8SBvqPJXlqwrIMZQPJuN0vuSdiyRebkHUm9Q1pGgS79XQ2KBKvGq+DmOReHvD2sl5iA8hICg0b9oITswejizZ5KbW2lFffb9TRHfXuGvS4SaXqbhJp+in4MSGc5twLuZ64izoaEU7kjFqmkGVk+RNcwqsuI8jqrHbXUQfip2nq3esY1DvOv5vn5fJVU9hqHMobMTELYpmJU2EjzdLccvwNouEV+1Fx/Orn2m1p9TXkAnQ3hp25YXQhP20nmAupn8rCSYeBuc0REQ25G9HydGr4jB14trnMma+7f+2whUdz4/buWdjT4luPaZG4LZLSfbITS8C84KGFIr6eJLHPpQ4ewql4snM8Yu6vfJSf5HxDzVK/hXHu7ALhe1VzC7iPniInitxHHnlov7qScdSbkY3zBck/B1dxqbSV7hUo6yYbgo2wp3afSAwr6plV4tbilc6in17wCnqjtz5ONBZANUQ3bKKeqMRtUQXVxs6SBRZCRw/xY7FvtkT5tigBnQyFPwTohUBwU6BSNhCNAqkJwssRQgrnRiwGbmEIT01Qqujs1P6BXueGBrCYLQtpySIQ9MPzeudOXdPPpUnFRDH1ZhusuxV3hHku77M823UnSHMw2We8pxnaQG9tMwwe1NA2IN9suUsoJl1zRhQuEALqBRR0lT4sukg+W5FXTe+qO9QdoOXh8c8k2/MfkTYfc53CJej7MUfU72xjJ7ERWomTX7ojxLNpP8mNCFPQBcHZCi3lOMZ94j8z+gZRf3rQHlwnZvNfdZQCUr/hZeWPGinLnyVh1LAoJS/F/MQwOpmOWZSZiBtejFEzACT3KyFa+igWhEKRhqveljHNIrXxg1Gshg4wKDKvUSNQM5ZMthK1TvY8V+DMYVptmYm9axAnTA95IJrHtk28fS8y08wkP+tWxkuhHiWtM7/nRXYeP8QONb4XDbrlLPlqPi0FTtJ2cqY6c6xCn/+gpMJZ8Ck7TE5njwuZTN3+/0h9YQDgG1hU8UslH/qGm1GC7FhlqPjzEuD0xZnzP3c/vLr8o9p6IGq9JTbqizv8BZKyQLSlFEE+WHhDcB/fvDRddcNzjdMnD/YIhSY9iw1ltqtaeraZyEHgqKvn4uZg03W3/0CSJDWnMbM+T6mTmeYdz4pBMe1Pq6H/+suy/pF3O/tdg3zYAMeX4YO8CQtLpQGNhnhqIrowtJ1piwRckHAqd4F5gG0q2NVVWVHaI24Dv7PsqTopk9DdCAz9LSoNxugW07F0PvwQHmM0NdaSjp5Uz1Y9qW1iqAonuEHySEtfWQcT6g/3LvIr6fjAudeyt5cX2LdbZF2qY2LPp2mVnkgUYZfxsWoGmsE1RkL6/vNRu+31VWZHhMqsWarrvZnmkq2Ecgj5Zi335BVFiGsahN8fogf8+QoeIvz8lKiXye/2vIKUk6S/7jHMmMSAxMDgwNCAxIDEgIzQyNDMKeJxtWsl247oRzQdpk2SRk6Vnu9tqK5LcTr8dJEESnkBCDZJ2Uwt+e25NIN15R+cAt0ASQ6FGQA/zP/52tWlS7Fo//OFzml1tw254yN7Xsyum9zlsXT18Dyn6dnYV8rDqzj6HlEPbD9ex87OrGLa+wIvLAR/HmPrhJbv6QK1Vqnezq8qBbo/DrffnYdHlc/Rj4yLUpwlVnl4Seqs2PqP07bFvMIt6l9M4z7oNPztMILummVCpvvhC3nfbYxNcoZfdpi/E2zG0ePWMpSb0/rNzXFS0ErTnbRu2w3OoCAMe08nb2LmPYeeHHx7r/ZhdNUc8cOi5TRW+WdPypZMu+xSJMRcgKYc3v5ldu42ysaDhrveNkMwUQeljBx5cu5PPwzzEiEqf1vgNc1djedcu18PS7wDaNvrmGM4003527V2nw3j3Th35gJ25dZdL9Dt9Eg7DLT54Ee5ch+YntzZttorY+lGDaFuM/+yxr7Pr6LYnKQd0rg3DTcouKn6J4d0rXh3dLn00RNXbI8ZW6QDdtEPa723rrqPvICrDPSRiS2S4QLZsrjGlnaxUSLDtBpxP0Qkx7+oGmyLEt5uVgAWEK9X6/iIcKl+3QlyXl3kDGX3BahqBK3c+H0PWL1UbGP/A5ImfwG3Yd9xJc5xd4w0UNBbE6iRTzeFwbCFJYIQRIjnj3HXtxGZo2sGh584k/brb71HkQ1fvegKx/wAbCNWhIV7q9oBuTfmEWAVf106JV1an6/4CbpBwKuqq2Y3b+VY4LJCFB7DCU52FUdr/jdv74aobnl1ohfiWQgaqNjnsDt56q3zkMonY3kBoc6+V6Q+oXW/P8y7Ujr7JYbPBTpThc0WT1nqYLwjWrg2pLp/WPgbH75LSOZtDzqkd5926j42b3fidy8PN0cOw3PgI4aypBol3oLwNV10kyTag/Rl1nxN/rKTt5c3RVWd3oLka0gkeXd4mWhtANbZBwbpGzALmkzOZg9Q0qbyCSdUdRjqGGFiigLA6fQpu4GtrJqxyaqRx+Zi2mB9M/jq7XSDG8VyslcfHF7BYXUOodhvIIQOoKnQBUgOyZctGNbEsukxDQYE9GuFSqk0wxqf6YNueUlShSmf4Ea1Gngm5gLTaK7IihYm2I8EuRbbVYmS4tP7zLr3TVqUsxR5Lxpc6kVw3IdJrDdnnm7RxsTXqGTaT3ulTa4buJrWwFwPL5ewmewcVyaFqaMFSD69Xs5sutrDnO0zbZUynp/FRDIucth5O6aaHwpFhOXvFthX9NkInahjifNIxBRaVZJK7ZHQX/RaM38qCuOkhxZ2vMwyBkKQmw3///nchv3T1IZq/4pavR3cKAp/du1MEC52Hx5Qb+B5umbsDrKM+Zgs+7US1SPH2GHR0ddyMaeMYrBzZeMXeTftRwyT41E+WtWJh/J1m6yw0/HV9mPa17vLPLpHGMqnSf+veexE5jjtUpwUXDVVSFYypz4zjkIUkjNHK7fck9UKUaTN1doiGUOZT1Ka1Q8gEWIdKSnu98bnVCl3CCd6GSleYYDpVam+z2wxTAelOxpeu3R41fLnbJKjM3TZ3szsskd4gv3x3OJzhaVsCcBFwckWCOKIplG5coZV7d5WHcu1QQ9nJD9+BK3A2JDqePZ810G4b/u5hnGOEZRmbtD+KDu9IqXgF9471AFXHHdyDCxCsVIAw/d5h3fc+mxO4Dz7uBmIMQRhKNgz3sFAost+Qy2U0YHjyEtw3qRqVv1AEcP4+suEQ/t2njN1X7SETeJ+x3uMggZIREgwZxSsQbAGmkuLjC1GV9+auey+ErE3w0jXnDRl9ayhipbQykJ3NhmdsQ0pdbOh9F9/Jct93l0s/vFE5e3ChbjYJEf0DHHPCih48LDzvM9w0OcuHIzpWZjxE122pjwdyQL2arocXZT9ZnGHuW2xe2ApFHGNgs2DivmtIBsRCqfgqsYBF741QczhasofUQjdtONiaYLpPRN0PqyogTbg6k8xSu0yAAFk++472skyo7KwgixCFohBRkMWISmmQKBTvh8BnynR2SqyOPF5XV8SU2SPiRmeLeoRP8D87iD3QO8sYljl79A7chhIBQVHgRM9TKIt9TFFiPDNbj6mGa40ayz+mdGLHQqM/IrYxm02Yheuxq9vyxtPWQ8IOs6cI7xwoZIL9NAV/qiitgzqQqjxB4D5SrgB2/kx6TqoPIpjxZlzrywx1uURBf6Uabnv6DFOQAA3df40+KCM/PxCPogpLWdPhr19QkXlg78Ah5uwpQ3ehmmEDaXhq3AZTodjkCZtBUyuq9PSeoGBf3NlxQGSxZGlQHfviGm2/XFgnhy/w/F/oSaqxlXEG54DRu93sk5f4inH7ghGxRFS96D97XRY/QRBTPEAKMPuaNp6KwMX26GZfV69mj5+x5g65bjG3z+4cGpCXLgYQTcnDnh1ikKijs2O3bwYxdCNNsygEM2ZKIXspJEvhM6yv9StDUQl3Gfb7kerIdgmG+dgGmitTc95MGoRJlZMpUXT0OYDdLbrh3EhmxlACvYI/RXXaSiGSwE+WW5qKZSnDSzMvTyGvj7EGN0IsMP0P6FIsDaRYAjWwUaJENkqb1Ck5xi/a0Hrs1+SNMjXyHVwOzx3yEDASEoR1YxthoPGVNPA2ErBRa0Tw9UhxydODlFA4qiIV6GxguE5leu88BAWAt+nQKHzJB+Yo4RIZgUSkN3dbZFZ1GOCk6RlUB207EphndyIsZkjrsr1Gk1UwbOa20BozG/3oLvwQrmoeYIgBYQIDdXZMmGEPEPgVlJOR/oQ/j1EDpbkDM9mzzZFwgu9U7/ikas7hBpd8XsO4DTQBZKC0XwxhzCItPKdUT0ZhkvZBITkfcfFcaujHOJI/nbtfoeoqm9VI6K59atL9srbPb4jjUZGxxt++IOs8wb8//u1j1UX5qC/D9ZrFzf2O0v7JyZi2TJ9KBs9uWTqyZjG0Rpa4Wxs0g1DKpinUqFbWMCYG1jJNBbRtTAa0QWy7zopXaid+Sho7sFPUi0Q34qwLhcl8eD9t6OpNlxvq5BeflLJ1mIfdrsjeiG2GkxZbqzRxmjLi8d3Puy1tnz/ldRX428PPH043OuxqdkIGypzriVWch5PbpbGXKtgySYkS1QcqQprMkXQVxSBpM0PrrWn7YZ5IyRly8D5PO68mew53D9/YQMFg6mlnZVL4wrpIiGsQ0sK30Gmi0BvK320D4EH11S5KWG1g1F7YVgrh5n1uR373CCO2Wg2i1bNvbkdnqSfNRr45sLaxlX6Dq/0zaeD8jZJNnm1BZbxv3rIeRjIeQ4vkv3lIYaIsmodBEgNT/43OtY6pTfot/NzFzV62RyQiL4ixy4EgESytBJ6RhSrQwIEIMU2EmOcEViG+89PATyjN57xqhMO/ZtP0nzDp8kvd/5q9nOGWXxA5OutbXKfGarZ0Jc3WK0l2056QU1NMcjnC3/tYpV3BugOfqMn7bFOkEo4qLm90FBtLwj5py/A8sNUWBbz82tBhM+p9suPnl9fBzn9otguEO3s7k1kguoNg2QYv4HpaCraLwqLFsxkVVE4XmYID5jNdJnjSgvjTwkBuU6tHUSjakaWV/hEoUAqeOKa1aZzJkkNKz8B07teU/sEVznGAQlPeR+AR7Y0WmQHeAuJZ97WaqoV31Epl4aBQCzqrpvMwLuI4uTGaGuHk21whEidTQRELmW0OKNDeBDt3NUInqpTmHUbq5hkp6zAC6U8heP8Mk1IwUVFYt/AfrQWZi2NMv1AiLY3JmoTQeZAr8WrzQbSJsynzfMgjD3q0vQh12RWCa8CZPTmNe0wEq7Ei1WOmkHDmDfKRBYkahBoLZzGjhUUtWL8IlMu2RYpyT7DgKSU8oQhuQbE0yDPZQ9Qwh9RsLOSbJ10XJG7r6fTGHkq0Zpq4yB11nLtmsl1NT/c8dGJb5tHRqroYK6enAsPrYoWW6nxCSFbeYpnnVQi0lF1JCrbsSXEI7k+Eqr21kxU2vKALpMulkMwn4I6O3Wf/6UqCL5B35D8dXd6ojQRRuy1SzkT3DhrjLqFKW02bly40nNzSydvS/emOs/FYpyBOj/yEZrFbug87DCUodzRLvp8b5JrO3rtcKtfSQhiS2ZH+kdxvt854zPOZmE/Cxj/CdODBgYKKG2M97CC8/HHNtW70CD/1aE2T1GQSfRBEitTIu5pcj/BTT9b0uSe2hUvPV9TB3Ofy2LfHarYMfAbHvC5wuE+H7P7x7/9r+ic17YufXyLVroe7g8YWywRf245nWssElw7PUNvJ5jKRrKogyEagQBJVb1It+BbxhCA5i2UoaZFglihBUD0ELp0+kAEaSxcYfndRkLCA7oEo8yVeJth6OUtbpt5JCskHxFNazhakwbaDCVXVZccC1m3seJQvfalQak/5yhKaTHumCq28U8o2lNfdcSSHL1dQEbrTQMCyaiXlpY9WToJenvfK7X1b/h/wl5RO007aV44eIfkmX0Q3zbRrmn5LJezlY3QqsB21Z9SXQc9lLnqba8C6U8rkkm+65HBPIqvVlg7zWtRHBybokNsj3Wpdd8UMrrYU8wbj15jBFDQO4fl2G1W0aXonB/Urv6UrtZWnI3mKv6x3f0asKPfoWun8kVbBHp9sMJm3Yrg0nzWWbo7UQKeo+gVIlPRUVjSlxqmKdVIdkGrykMmiQPYYHjLQ+oSU3gXLToU68WpgmyONyBJkBJIrPvVcndIGWRkiinKmYmCcABrMJk8yxMmpyyqGytJaOj5uuU7cERmRVU38hIvUaHGVakrwdLkSJdKl+Mzsgt4GFJLHU8L8vtEyg0LwHJQyuVdSxp6YHsPj2rVB9W8k9SR/EhgqlBvqT2nylBiZ2NJdeKoqUiAZazykEijTa0Ok/2ZgVaGkfCtEzlqKxxshXWQjeKGWhEEnh1b8HwfxxSs6SqV+sOvELHJWmHR3LoKD1Ls1Lemz29JtuXJvjXWvJ5fv419v1uM10trldvyATC2XsjnroqWE2MQDRC6EAWtoYqUitoYuUEtG5kO3xGg5QhxgZdfHLpaQcw1bReGJN3K/d7Vu4zqQj/9IcQ/YSrSrrFzD27QJVYd4mI+y1xl6wnEGOL7nuyq0dSrl69yfLd5ad/u2MVhtoucDi/E4pCB7x0hdfDfJhtdds3VWKeeVWHKnDNflFXDxI0T5l4vFq+s+h/Hw8fVKhkVNPbxGyIgeJ02wvkMNwjiB/AUHRq81Fub4/0MrutB/pQsiBDV8V6CrR9s7xfJwJmnPfylo+vhO/5OSjurq07nP62KY3gESren/67lB+Coh3iulJcbq19XVva7nO9pu+5M5OJAhQgy1Hp5gA7/7g2vEj3z3tW8t+0CmhtQFhm4m16Z0ZPsJkR1CV6LtfxEn/RZN2UEXAjiFFEIrlMmO+P++ogkVSIffwzX0ZVaMiwHl0nc6EB7PIIQslkrIUReFtpWk2M7e6B8wYn/fvL/od1iXwzM+UnkLUWyR/dWKGzS7ZzwxOUy/weTnio/x3kK9a8AoEtE3mgEVw232h4Yg5/+nXuGBbeEtn1e9BTp4h2d6o9s32dT/utrtOqraI1wc1xQk/XB21qei9NtJhJIWfStJAbhCi8GN1CNwO6fDRioUnk+J3wfRxol06AM1e5+ov3qPzC79X2j246meq5z/QUEYKkStf/sfIaI+Kg=="
++store. __color2name
+else $__color2name
+fi
+#@cli covariance_vectors : _avg_outvarname
+#@cli : Return the covariance matrix of the vector-valued colors in the latest of the selected images
+#@cli : (for arbitrary number of channels).
+#@cli : Parameter 'avg_outvarname' is used as a variable name that takes the value of the average vector-value.
+covariance_vectors : skip "${1=avg}"
+$1=${-average_vectors}
+eval. "*begin(avg = [ "$""$1" ]; C = vector(#s^2,0));
+mI = I - avg;
+C+=mul(mI,mI,s);
+end(merge(C,+); C/=whd - 1; run('u ',v2s(C)))"
+#@cli da_freeze
+#@cli : Convert each of the selected dynamic arrays into a 1-column image whose height is the number of array elements.
+da_freeze :
+e[^-1] "Freeze dynamic array$?."
+$! eval. "da_freeze(#x)" rm.
+#@cli dec : decimal_int1,...
+#@cli : Print specified decimal integers into their binary, octal, hexadecimal and string representations.
+dec :
+e[^-1] "Convert decimal integer"${arg0\ ($#>1),"",s}" '${^0}' to binary '"${dec2bin\ ${^0}}"',"" octal '"${dec2oct\ ${^0}}"', hexadecimal '"${dec2hex\ ${^0}}"' and string '"${dec2str\ ${^0}}"'."
+#@cli dec2str : decimal_int1,...
+#@cli : Convert specifial decimal integers into its string representation.
+dec2str :
+u {`[${^0}]`}
+#@cli dec2bin : decimal_int1,...
+#@cli : Convert specified decimal integers into their binary representations.
+dec2bin :
+$=arg res,sep= repeat $# { res=$res$sep${_$0\ ${arg{$>+1}}} sep=, } u $res
+_dec2bin :
+u {`"const sgn = sign($1);
+const N = (isinf($1) || isnan($1)?1:1 + floor(log2(max(1,abs($1))))) + (sgn>=0?0:1);
+res = vectorN();
+sgn>=0?0:(res[0] = _'-');
+for (val = abs($1); k = size(res) - 1, k>=(sgn<0?1:0), --k, res[k] = _'0' + (val&1); val>>=1); res"`}
+#@cli dec2hex : decimal_int1,...
+#@cli : Convert specified decimal integers into their hexadecimal representations.
+dec2hex :
+$=arg res,sep= repeat $# { res=$res$sep${_$0\ ${arg{$>+1}}} sep=, } u $res
+_dec2hex :
+u {`"begin(tab = [ _'0',_'1',_'2',_'3',_'4',_'5',_'6',_'7',_'8',_'9',_'a',_'b',_'c',_'d',_'e',_'f' ]);
+const sgn = sign($1);
+const N = (isinf($1) || isnan($1)?1:1 + floor(log2(max(1,abs($1)))/4)) + (sgn>=0?0:1);
+res = vectorN();
+sgn>=0?0:(res[0] = _'-');
+for (val = abs($1); k = size(res) - 1, k>=(sgn<0?1:0), --k, res[k] = tab[val&15]; val>>=4); res"`}
+#@cli dec2oct : decimal_int1,...
+#@cli : Convert specified decimal integers into their octal representations.
+dec2oct :
+$=arg res,sep= repeat $# { res=$res$sep${_$0\ ${arg{$>+1}}} sep=, } u $res
+_dec2oct :
+u {`"const sgn = sign($1);
+const N = (isinf($1) || isnan($1)?1:1 + floor(log2(max(1,abs($1)))/3)) + (sgn>=0?0:1);
+res = vectorN();
+sgn>=0?0:(res[0] = _'-');
+for (val = abs($1); k = size(res) - 1, k>=(sgn<0?1:0), --k, res[k] = _'0' + (val&7); val>>=3); res"`}
+#@cli fibonacci : N>=0
+#@cli : Return the Nth number of the Fibonacci sequence.
+#@cli : $ echo ${"fibonacci 10"}
+#@cli : \n~~~\n[gmic]-0./ Start G'MIC interpreter.\n[gmic]-0./ 55\n[gmic]-0./ End G'MIC interpreter.\n~~~\n
+fibonacci : check "$1>=0"
+u {N=$1;if(N<2,N,for(n=N;F0=0;F1=1,n=n-1,F2=F0+F1;F0=F1;F1=F2))}
+#@cli file_mv : filename_src,filename_dest
+#@cli : Rename or move a file from a location $1 to another location $2.
+file_mv :
+e[^-1] "Move file '$1' to location '$2'."
+if ${-is_windows} x "move "$1" "$2 else x "mv "$1" "$2 fi
+#@cli filename : filename,_number1,_number2,...,_numberN
+#@cli : Return a filename numbered with specified indices.
+filename : skip "${1=default}"
+if $#==1 u "$1"
+else
+(${2--1}) => "$1" u {f}{b}
+repeat w {
+u ${}_{int(i/100000)%10}{int(i/10000)%10}{int(i/1000)%10}{int(i/100)%10}{int(i/10)%10}{i%10}
+shift. -1
+}
+if narg({'{x}'}) u ${}.{x} fi
+rm.
+fi
+#@cli filename_rand
+#@cli : Return a random filename for storing temporary data.
+filename_rand :
+do filename=${-path_tmp}gmic$_pid{`round(u(vector6(_'0'),vector6(_'9')))`}
+while isfile(['{/$filename}'])
+u $filename
+#@cli filename_dated : filename
+#@cli : Convert specified filename to one stamped with the current date (`filename_YYYYMMDD_HHMMSS.ext`).
+filename_dated :
+0 => "$1" ext={x} folder={f} basename={b} rm.
+if ['$ext']!=0 ext..=. fi
+u ${folder}${basename}_{`"
+str='00000000_000000';
+copy(str,v2s(date(0)),4);
+v = date(1); copy(str[4 + (v<10)],v2s(v),2);
+v = date(2); copy(str[6 + (v<10)],v2s(v),2);
+v = date(4); copy(str[9 + (v<10)],v2s(v),2);
+v = date(5); copy(str[11 + (v<10)],v2s(v),2);
+v = date(6); copy(str[13 + (v<10)],v2s(v),v<10?1:2);
+str"`}$ext
+#@cli files : _mode,path : (+)
+#@cli : Return the list of files and/or subfolders from specified path.
+#@cli : 'path' can be eventually a matching pattern.
+#@cli : 'mode' can be { 0=files only | 1=folders only | 2=files + folders }.
+#@cli : Add '3' to 'mode' to return full paths instead of filenames only.
+#@cli : Default value: 'mode=5'.
+#@cli files2img : _mode,path
+#@cli : Insert a new image where each vector-valued pixel is a string encoding the filenames returned by command ''files''.
+#@cli : Useful to manage list of filenames containing characters that have a special meaning in the G'MIC language,such as spaces or commas.
++files2img :
+if ['$$_$0_f2i']==0 m "_$0_f2i: $""=arg repeat $""# { ({'${arg{1+$>}}'}:^) } a y" fi
+files $"*" l[] { _$0_f2i[] ${} if !$! 0 fi }
+#@cli fitratio_wh : min_width,min_height,ratio_wh
+#@cli : Return a 2D size 'width,height' which is bigger than 'min_width,min_height' and has the specified w/h ratio.
+fitratio_wh :
+if $3*$2>$1 u {int($3*$2)},$2 else u $1,{int($1/$3)} fi
+#@cli fitscreen : width,height,_depth,_minimal_size[%],_maximal_size[%] : [image],_minimal_size[%],_maximal_size[%]
+#@cli : Return the 'ideal' size WxH for a window intended to display an image of specified size on screen.
+#@cli : Default values: 'depth=1', 'minimal_size=128' and 'maximal_size=85%'.
+fitscreen : skip "${2=},${3=},${4=},${5=}"
+if ${"is_image_arg $1"}
+l$1 { W,H,D={[w,h,d]} } if narg($2) m=$2 else m=25% fi if narg($3) M=$3 else M=85% fi
+else
+W,H=${1-2} if narg($3) D=$3 else D=1 fi if narg($4) m=$4 else m=25% fi if narg($5) M=$5 else M=85% fi
+fi
+eval "
+is_percent(str) = (unref(_is_pct); _is_pct=['#str']; _is_pct[size(_is_pct) - 1]==_'%');
+const u = "{*,u}";
+const v = "{*,v}";
+ms = round(is_percent("$m")?[ u,v ]*"$m":[ "$m,$m" ]);
+Ms = round(is_percent("$M")?[ u,v ]*"$M":[ "$M,$M" ]);
+s = [ "$W,$H" ];
+"$D">1?(s+="$D");
+s[0]Ms[0]?(s = [ Ms[0],s[1]*Ms[0]/s[0] ]);
+s[1]>Ms[1]?(s = [ s[0]*Ms[1]/s[1],Ms[1] ]);
+s[0] = max(1,s[0],ms[0]);
+s[1] = max(1,s[1],ms[1]);
+round(s)"
+#@cli fontchart
+#@cli : Insert G'MIC font chart at the end of the image list.
+#@cli : $ fontchart
++fontchart :
+e[^-1] "Generate G'MIC font chart."
+l[] {
+repeat 256 {
+if $>==92 char=\\ else char={`max(1,(c=$>;c>=23&&c<=28?32:c))`} fi
+0 t. {``$char},0,0,50,1,255
+}
+a z,0.5
+s z
+repeat $! {
+t[$>] $>,1,-1,13,1,200
+0 t. \\${dec2oct\ $>},1,-1,13,1,1
+100%,100%,1,1,200 j[$>] .,{$>,[w,h]-[w#-1,h#-1]},0,0,1,.. rm[-2,-1]
+}
+frame 1,1,128 append_tiles ,
+}
+font2cimgh :
+e[^-1] "Encode font image$? as a C-style string for CImg.h."
+foreach {
+bnm={0,b} W,H={[w/256,h]}
+e " > Encode font '"$bnm"'."
+if !isint($W) error[0--4] "Font image '"$bnm"' has wrong dimensions ("{[w,h,d,s]}")." fi
++f "i==im || i==iM" is_binary={im==1} rm.
+Mm=0 MM=100
+do
+M={floor(($Mm+$MM)/2)}
++compress_rle $is_binary,$M rows. 6,100% +. {32-im} iM={iM}
+if iM<126 Mm=$M rm. elif iM>126 MM=$M rm. fi
+while $iM!=126
+k. nb_chunks={1+int(h/65536)}
+e "\r > Encode font '"$bnm"' -> W = "$W", H = "$H", M = "$M", is_binary = "$is_binary",
+nb_chunks = "$nb_chunks"."
+replace_str "\\","\\\\"
+replace_str "\"","\\\""
+s y,-111
+repeat $! {
+if {$>,i[h-1]==_'\\'&&i[h-2]!=_'\\'} rows[$>] 0,{$>,h-2} rows[{$>+1}] -1,100% =[{$>+1}] {'\\'} fi
+l[$>] {
+i[0] ('" \""') ('\"')
+if !$< ('" };"') fi
+('\n')
+y a y
+}
+}
+repeat $nb_chunks-1 { ind={int($!*($>+1)/$nb_chunks)} l[$ind] { = {','},0,100% ('\n') y a y } }
+i[0] ('" static const char *const data_font"${W}x${H}"[] = {"\n')
+y a y ot $bnm.h
+}
+#@cli fps
+#@cli : Return the number of time this function is called per second, or -1 if this info is not yet available.
+#@cli : Useful to display the framerate when displaying animations.
+fps :
+if narg($_fps_fps)
+dt={$|-$_fps_time}
+if $dt>1 _fps_fps={round($_fps_nbframes/$dt)} _fps_time=$| _fps_nbframes=0 fi
+u $_fps_fps
+_fps_nbframes+=1
+else _fps_nbframes=0 _fps_time=$| _fps_fps=-1 u -1
+fi
+#@cli gcd : a,b
+#@cli : Return the GCD (greatest common divisor) between a and b.
+gcd : check "isint($1) && isint($2) && $1*$2!=0"
+_gcd {max(abs($1),abs($2))},{min(abs($1),abs($2))}
+_gcd :
+r={$1%$2} if $r u ${_gcd\ $2,$r} else u $2 fi
+#@cli hex : hexadecimal_int1,...
+#@cli : Print specified hexadecimal integers into their binary, octal, decimal and string representations.
+hex :
+dec=${hex2dec\ ${^0}}
+e[^-1] "Convert hexadecimal integer"${arg0\ ($#>1),s,""}" '${^0}' to binary '"${dec2bin\ $dec}"',
+octal '"${dec2oct\ $dec}"', decimal '"$dec"' and string '"${dec2str\ $dec}"'."
+#@cli hex2dec : hexadecimal_int1,...
+#@cli : Convert specified hexadecimal integers into their decimal representations.
+hex2dec :
+$=arg res,sep= repeat $# { res=$res$sep${_$0\ ${arg{$>+1}}} sep=, } u $res
+_hex2dec :
+u {"str = ['$1']; str[0]==_'-'?-s2v([['0x'],str[1,max(1,size(str)-1)]]):s2v([['0x'],str])"}
+#@cli hex2img : "hexadecimal_string"
+#@cli : Insert new image 1xN at the end of the list with values specified by the given hexadecimal-encoded string.
++hex2img :
+('"$1"') 1,{w/2}
+f. "*
+from_char(x) = x>=48 && x<=57?x - 48:x-87;
+off = 2*y;
+from_char(i[#-2,off])*16 + from_char(i[#-2,off + 1])"
+rm..
+#@cli hex2str : hexadecimal_string
+#@cli : Convert specified hexadecimal string into a string.
+#@cli : See also: ''str2hex''.
+hex2str : skip ${1=""}
+if !narg("$1") u "" return fi
+('$*') if w<2 rm. u "" return fi
+f. 'v=i-if(i>=97,87,48);if(x%2,v,v*16)' r. 2,{int(w/2)},1,1,-1 cumulate. x z. 1,1
+u {t} rm.
+#@cli img2base64 : _encoding={ 0=base64 | 1=base64url },_store_names={ 0 | 1 }
+#@cli : Encode selected images as a base64-encoded string.
+#@cli : The images can be then decoded using command 'base642img'.
+#@cli : Default values: 'encoding=0' and 'store_names=1'.
+img2base64 : check "isbool(${1=0}) && isbool(${2=1})"
+if isnum("$1") encoding=$1 else encoding=0 noarg fi
++serialize auto,1,$2 u ${uint82base64\ $encoding} rm.
+#@cli img2hex
+#@cli : Return representation of last image as an hexadecimal-encoded string.
+#@cli : Input image must have values that are integers in [0,255].
+img2hex :
+whds={w},{h},{d},{s} y. 2,{h}
+f.. "*
+to_char(x) = x>=0 && x<=9?48 + x:87 + x;
+i(#-1,0,y) = to_char(int(i/16));
+i(#-1,1,y) = to_char(i%16);
+i"
+u {t} rm. r. $whds,-1
+#@cli img2str
+#@cli : Return the content of the latest of the selected images as a special G'MIC input string.
+img2str :
+i[-2] 256
+eval. ">begin(off = 0);
+sep = x==w - 1?(y==h - 1?(z==d - 1?(c==s - 1?0:_'^'):_'/'):_';'):_',';
+it = v2s(i);
+off + size(it) + 1>=w(#-2)?resize(#-2,round(1.5*w(#-2)),1,1,1,0);
+for (k = 0, k] 'v=int(i)&15;v+if(v<10,48,87)'
+f[$>] 'v=int(i)>>4;v+if(v<10,48,87)'
+a[$>,-1] x
+}
+#@cli hex2img8
+#@cli : Convert selected hexadecimal representations (ascii-encoded) into 8bits-valued vectors.
+hex2img8 :
+e[^-1] "Convert hexadecimal representation$? (ascii-encoded) into 8bits-valued vectors."
+repeat $! {
+s. x,2 f[-2,-1] 'if(i>=97,i-87,i-48)' *.. 16 +[-2,-1] mv. 0
+}
+#@cli is_mesh3d
+#@cli : Return 1 if all of the selected images are 3D meshes, 0 otherwise.
+is_mesh3d :
+u 1 l { check3d 1 onfail u 0 }
+_is_mesh3d :
+u {"h>6 && int(i[0])==67 && int(i[1])==73 && int(i[2])==109 && int(i[3])==103 && int(i[4])==51 && int(i[5])==100"}
+#@cli is_change : _value={ 0=false | 1=true }
+#@cli : Set or unset the 'is_change' flag associated to the image list.
+#@cli : This flag tells the interpreter whether or not the image list should be displayed when the pipeline ends.
+#@cli : Default value: 'value=1'.
+is_change :
+l[] { check "isbool(${1=1})" arg=$1 onfail noarg arg=1 }
+if $arg 0 rm. elif {*9} w9[] -1,-1 else w9 0 fi
+#@cli is_half
+#@cli : Return 1 if the type of image pixels is limited to half-float.
+is_half :
+(2049) u {i==2048} rm.
+#@cli is_ext : filename,_extension
+#@cli : Return 1 if specified filename has a given extensioin.
+is_ext : skip "${1=},${2=}"
+0 => "_$1" u {"lowercase(['"{x}"'])==lowercase(['$2'])"} rm.
+#@cli is_image_arg : string
+#@cli : Return 1 if specified string looks like '[ind]'.
+is_image_arg : skip "${1=;}"
+u {"str = ['$1'];
+s1 = size(str) - 1;
+(str[0]==_'[' && str[s1]==_']') || (str[0]=='.' && str[s1]=='.') && min(str)>=45 && max(str)<=122"}
+#@cli is_pattern : string
+#@cli : Return 1 if specified string looks like a drawing pattern '0x......'.
+is_pattern : skip "${1=;}"
+u {"str = ['$1']; size(str)>2 && same(str,'0x',2)"}
+#@cli is_percent : string
+#@cli : Return 1 if specified string ends with a '%', 0 otherwise.
+is_percent :
+u {"s=['$1'];s[size(s)-1]==_'%'"}
+#@cli is_varname : string
+#@cli : Return 1 if specified string can be considered as a valid variable name.
+is_varname : skip "${1=}"
+u {"
+S = ['$1']; is_varname = 1;
+inrange(S[0],_'0',_'9')?(is_varname = 0):
+repeat(size(S),k, c = S[k];
+is_varname&=inrange(c,_'0',_'9') || inrange(c,_'a',_'z') || inrange(c,_'A',_'Z') || c=='_';
+!is_varname?break();
+);
+is_varname"}
+#@cli is_videofilename : filename
+#@cli : Return 1 if extension of specified filename is typical from video files.
+is_videofilename : skip "${1=}"
+0 => "_$1" u {"
+ext = lowercase(['"{x}"']);
+ext=='avi' || ext=='mov' || ext=='asf' || ext=='divx' || ext=='flv' || ext=='mpg' ||
+ext=='m1v' || ext=='m2v' || ext=='m4v' || ext=='mjp' || ext=='mp4' || ext=='mkv' ||
+ext=='mpe' || ext=='movie' || ext=='ogm' || ext=='ogg' || ext=='ogv' || ext=='qt' || ext=='rm' ||
+ext=='vob' || ext=='wmv' || ext=='xvid' || ext=='mpeg'"}
+rm.
+#@cli is_macos
+#@cli : Return 1 if current computer OS is Darwin (MacOS), 0 otherwise.
+is_macos :
+if !narg($_is_macos) _is_macos:=isdir('/Library/Apple/System/Library') fi
+u $_is_macos
+#@cli is_windows
+#@cli : Return 1 if current computer OS is Windows, 0 otherwise.
+is_windows :
+if !narg($_is_windows) _is_windows={['$OS']!=0" && "['$WINDIR']!=0} fi
+u $_is_windows
+#@cli lof : feature
+#@cli : Return the list of specified features (separated by commas) for each selected images.
+lof :
+foreach { res.=$c{"$*"} c=, } u $res
+#@cli math_lib
+#@cli : Return string that defines a set of several useful macros for the embedded math evaluator.
+math_lib :
+u "
+heap_size(ind) = i[#ind,whd(#ind)-1];
+heap_insert(ind,elt) = (
+_heap_siz = heap_size(#ind);
+_heap_siz>=h(#ind) - 1?resize(#ind,1,_heap_siz*2 + 2,1,s#ind,0);
+hind = h(#ind);
+unref(_heap_elt);
+_heap_elt = [ elt ];
+_heap_eltsiz = max(1,size(_heap_elt));
+copy(i[#ind,_heap_siz],_heap_elt[0],_heap_eltsiz,hind,1);
+for (_heap_pos = _heap_siz,
+_heap_pos && (_heap_par = int((_heap_pos + 1)/2) - 1; _heap_elt[0]i[#ind,_heap_right]?(
+_heap_swap = i[#ind,_heap_left]i[#ind,_heap_left]?(
+_heap_swap = _heap_left;
+):break();
+copy(i[#ind,_heap_siz],i[#ind,_heap_swap],_heap_eltsiz,hind,hind); # Use previous last elt as temporary for swap.
+copy(i[#ind,_heap_swap],i[#ind,_heap_pos],_heap_eltsiz,hind,hind);
+copy(i[#ind,_heap_pos],i[#ind,_heap_siz],_heap_eltsiz,hind,hind);
+_heap_pos = _heap_swap;
+);
+(heap_size(#ind)) = _heap_siz;
+);
+dar_size(ind) = i[#ind,h(#ind) - 1];
+dar_Back(ind) = I[#ind,dar_size(#ind) - 1];
+dar_back(ind) = i[#ind,dar_size(#ind) - 1];
+dar_insert(ind,elt,pos) = (
+ref(pos,_dar_pos);
+ref(elt,_dar_elt);
+_dar_siz = dar_size(#ind);
+ref(max(1,s(#ind),size(_dar_elt)),_dar_sizelt);
+if (_dar_pos<=_dar_siz,
+_dar_siz>=h(#ind) - 1?resize(#ind,1,_dar_siz*2 + 2,1,_dar_sizelt,0);
+for (_dar_c = 0, _dar_c<_dar_sizelt, ++_dar_c,
+copy(i(#ind,_dar_pos + 1,0,0,_dar_c),i(#ind,_dar_pos,0,0,_dar_c),_dar_siz - _dar_pos)
+);
+copy(i[#ind,_dar_pos],_dar_elt,_dar_sizelt,h(#ind),1);
+i[#ind,h(#ind) - 1] = ++_dar_siz;
+);
+);
+dar_insert(ind,elt) = (
+ref(elt,_dar_elt);
+_dar_siz = dar_size(#ind);
+ref(max(1,s(#ind),size(_dar_elt)),_dar_sizelt);
+_dar_siz>=h(#ind) - 1?resize(#ind,1,_dar_siz*2 + 2,1,_dar_sizelt,0);
+copy(i[#ind,_dar_siz],_dar_elt,_dar_sizelt,h(#ind),1);
+i[#ind,h(#ind) - 1] = ++_dar_siz;
+);
+dar_remove(ind,pos) = (
+ref(pos,_dar_pos);
+_dar_siz = dar_size(#ind);
+if (_dar_pos<_dar_siz,
+_dar_siz = --dar_size(#ind);
+for (_dar_c = 0, _dar_c0?--dar_size(#ind);
+);
+dist(A,B) = (
+norm(B - A);
+);
+dist(X,A,B) = (
+AB = B - A;
+P = A + dot(X - A,B - A)/max(1e-8,dot(AB,AB))*AB;
+dot(P - A,P - B)<=0?norm(P - X):min(norm(A - X),norm(B - X));
+);
+dist(A,B,C,D) = (
+min(dist(A,C,D),dist(B,C,D),dist(C,A,B),dist(D,A,B));
+);
+meig(A,m,n) = (
+unref(meig_m,meig_n);
+const meig_n = n;
+const meig_m = min(m,meig_n);
+ref(vector(#meig_m*meig_n),meig_V);
+ref(vector(#meig_m^2),meig_H);
+ref(expr('v',1,meig_n),meig_vj); meig_vj/=norm(meig_vj);
+repeat (meig_m,meig_j,
+copy(meig_V[meig_j*meig_n],meig_vj,meig_n);
+meig_vj = A*meig_vj;
+for (meig_i = 0, meig_i<=meig_j, ++meig_i,
+ref(meig_V[meig_i*meig_n,meig_n],meig_vi);
+meig_d = dot(meig_vj,meig_vi);
+meig_H[meig_j*meig_m + meig_i] = meig_d;
+meig_vj-=meig_d*meig_vi;
+);
+meig_nvj = norm(meig_vj);
+meig_H[meig_j*meig_m + meig_j + 1] = meig_nvj;
+meig_nvj<1e-12?break();
+meig_vj/=meig_nvj;
+);
+eig(meig_H)[0,m];
+);
+search_dichotomic(fn_x,target,epsilon,xmin,xmax) = (
+_dicho_fn(x) = _dicho_sgn*(fn_x);
+_dicho_epsilon = epsilon;
+_dicho_m = xmin;
+_dicho_M = xmax;
+_dicho_sgn = 1;
+_dicho_autom = isnan(_dicho_m);
+_dicho_autoM = isnan(_dicho_M);
+if (_dicho_autom, _dicho_m = -1);
+if (_dicho_autoM, _dicho_M = 1);
+_dicho_sgn = _dicho_fn(_dicho_m)>_dicho_fn(_dicho_M)?-1:1;
+_dicho_res = nan;
+_dicho_target = _dicho_sgn*target;
+_dicho_nb_attempts = 30;
+_dicho_autom?do (
+_dicho_fm = _dicho_fn(_dicho_m);
+_dicho_fm<_dicho_target?break();
+_dicho_m*=2;
+_(while), --_dicho_nb_attempts);
+_dicho_nb_attempts?(
+_dicho_autoM?do (
+_dicho_fM = _dicho_fn(_dicho_M);
+_dicho_fM>_dicho_target?break();
+_dicho_M*=2;
+_(while), --_dicho_nb_attempts);
+_dicho_nb_attempts?(
+_dicho_nb_attempts = 100;
+do (
+_dicho_c = (_dicho_m + _dicho_M)/2;
+_dicho_fc = _dicho_fn(_dicho_c);
+abs(_dicho_fc - _dicho_target)<_dicho_epsilon?(_dicho_res = _dicho_c; break()):
+_dicho_fc<_dicho_target?(_dicho_m = _dicho_c):
+(_dicho_M = _dicho_c);
+_(while), --_dicho_nb_attempts
+);
+);
+);
+_dicho_res;
+);
+search_dichotomic(fn_x,target,epsilon) = search_dichotomic(fn_x,target,1e-3,nan,nan);
+search_dichotomic(fn_x,target) = search_dichotomic(fn_x,target,1e-3);
+search_dichotomic(fn_x) = search_dichotomic(fn_x,0);
+arrow(ind,P0,P1,angle,length,opacity,color) = (
+unref(_da_color);
+_opacity = opacity;
+_da_color = color;
+_P0 = P0;
+_P1 = P1;
+_P0P1 = _P1;
+_P0P1-=_P0;
+if (length<0, _P0P1*=-length/100, _P0P1*=length/norm(_P0P1));
+coords = [ _P0,_P1,_P1,_P1 - rot(angle°)*_P0P1,_P1,_P1 - rot(-angle°)*_P0P1 ];
+repeat (3,_k, polygon(#ind,2,coords[4*_k,2],coords[4*_k+2,2],_opacity,_da_color));
+);
+spline(ind,P0,T0,P1,T1,opacity,color) = (
+unref(_ds_color);
+_P0 = P0;
+_P1 = P1;
+_opacity = opacity;
+_ds_color = resize(color,s#ind)*=abs(_opacity);
+_omopacity = 1 - max(_opacity,0);
+_C = mul([ 2,-2,1,1,-3,3,-2,-1,0,0,1,0,1,0,0,0 ],[ _P0,P1,T0,T1 ],2);
+_dt = _dtmin = 1/max(abs(_P1 - _P0));
+_P0 = inf;
+for (_t = 0, _t<=1, _t+=_dt,
+_P = round(mul([_t^3,_t^2,_t,1],_C,2));
+_dP = abs(mul([3*_t^2,2*_t,1,0],_C,2));
+_dt = min(_dtmin,0.75/max(_dP));
+if (_P0!=_P, I(#ind,_P) = _ds_color + _omopacity*I(#ind,_P));
+_P0 = _P;
+);
+nan;
+);
+thickspline(ind,P0,T0,P1,T1,thickness,opacity,color) = (
+unref(_ds_color);
+unref(_ds_mask);
+_P0 = P0;
+_P1 = P1;
+_opacity = opacity;
+_radius = thickness/2;
+_ds_color = resize(color,s#ind)*=abs(_opacity);
+_omopacity = 1 - max(_opacity,0);
+_C = mul([ 2,-2,1,1,-3,3,-2,-1,0,0,1,0,1,0,0,0 ],[ _P0,P1,T0,T1 ],2);
+_dt = _dtmin = 1/max(abs(_P1 - _P0));
+_P0 = inf;
+for (_t = 0, _t<=1, _t+=_dt,
+_P = round(mul([_t^3,_t^2,_t,1],_C,2));
+_dP = abs(mul([3*_t^2,2*_t,1,0],_C,2));
+_dt = min(_dtmin,0.75/max(_dP));
+if (_P0!=_P,
+ellipse(#ind,_P[0],_P[1],_radius,_radius,0,_opacity,_ds_color);
+);
+_P0 = _P;
+);
+nan;
+);
+triangle(ind,P0,P1,P2,opacity,color0,color1,color2) = (
+unref(_dt_color);
+unref(_dt_color0);
+unref(_dt_color1);
+unref(_dt_color2);
+_opacity = opacity;
+_dt_color0 = resize(color0,s#ind);
+_dt_color1 = resize(color1,s#ind);
+_dt_color2 = resize(color2,s#ind);
+_A = round(P0);
+_B = round(P1);
+_C = round(P2);
+_xmin = max(0,min(_A[0],_B[0],_C[0]));
+_xmax = min(w#ind-1,max(_A[0],_B[0],_C[0]));
+_ymin = max(0,min(_A[1],_B[1],_C[1]));
+_ymax = min(h#ind-1,max(_A[1],_B[1],_C[1]));
+_M = transpose([_A,1,_B,1,_C,1],3);
+for (_y = _ymin, _y<_ymax, ++_y,
+for (_x = _xmin, _x<_xmax, ++_x,
+_L = round(solve(_M,[_x,_y,1]),1e-5);
+if (min(_L)>=0,
+_dt_color = _L[0]*_dt_color0 + _L[1]*_dt_color1 + _L[2]*_dt_color2;
+copy(i(#ind,_x,_y,0,0),_dt_color,size(_dt_color),whd#ind,1,_opacity);
+);
+);
+);
+nan;
+);
+line_aa_plot(ind,x,y,o) = (
+_line_aa_o = o*line_aa_opacity;
+(I(#ind,x,y)*=1 - _line_aa_o)+=line_aa_color*_line_aa_o;
+);
+line_aa_fpart(x) = (x - floor(x));
+line_aa_rfpart(x) = (1 - line_aa_fpart(x));
+line_aa(x0,y0,x1,y1,opacity,color) = line_aa(#-1,#x0,#y0,#x1,#y1,opacity,color);
+line_aa(ind,x0,y0,x1,y1,opacity,color) = (
+line_aa_x0 = x0; line_aa_y0 = y0;
+line_aa_x1 = x1; line_aa_y1 = y1;
+line_aa_color = color;
+line_aa_opacity = opacity;
+line_aa_steep = abs(line_aa_y1 - line_aa_y0)>abs(line_aa_x1 - line_aa_x0);
+line_aa_steep?(swap(line_aa_x0, line_aa_y0); swap(line_aa_x1, line_aa_y1));
+line_aa_x0>line_aa_x1?(swap(line_aa_x0, line_aa_x1); swap(line_aa_y0, line_aa_y1));
+line_aa_dx = line_aa_x1 - line_aa_x0;
+line_aa_dy = line_aa_y1 - line_aa_y0;
+line_aa_gradient = line_aa_dx?line_aa_dy/line_aa_dx;1;
+line_aa_xend = round(line_aa_x0);
+line_aa_yend = line_aa_y0 + line_aa_gradient*(line_aa_xend - line_aa_x0);
+line_aa_xgap = line_aa_rfpart(line_aa_x0 + 0.5);
+line_aa_xpxl1 = line_aa_xend;
+line_aa_ypxl1 = floor(line_aa_yend);
+line_aa_steep?(
+line_aa_plot(#ind,line_aa_ypxl1,line_aa_xpxl1,line_aa_rfpart(line_aa_yend)*line_aa_xgap);
+line_aa_plot(#ind,line_aa_ypxl1 + 1,line_aa_xpxl1,line_aa_fpart(line_aa_yend)*line_aa_xgap);
+):(
+line_aa_plot(#ind,line_aa_xpxl1,line_aa_ypxl1,line_aa_rfpart(line_aa_yend)*line_aa_xgap);
+line_aa_plot(#ind,line_aa_xpxl1,line_aa_ypxl1 + 1,line_aa_fpart(line_aa_yend)*line_aa_xgap);
+);
+line_aa_intery = line_aa_yend + line_aa_gradient;
+line_aa_xend = round(line_aa_x1);
+line_aa_yend = line_aa_y1 + line_aa_gradient*(line_aa_xend - line_aa_x1);
+line_aa_xgap = line_aa_fpart(line_aa_x1 + 0.5);
+line_aa_xpxl2 = line_aa_xend;
+line_aa_ypxl2 = floor(line_aa_yend);
+line_aa_steep?(
+line_aa_plot(#ind,line_aa_ypxl2,line_aa_xpxl2,line_aa_rfpart(line_aa_yend)*line_aa_xgap);
+line_aa_plot(#ind,line_aa_ypxl2 + 1,line_aa_xpxl2,line_aa_fpart(line_aa_yend)*line_aa_xgap);
+):(
+line_aa_plot(#ind,line_aa_xpxl2,line_aa_ypxl2,line_aa_rfpart(line_aa_yend)*line_aa_xgap);
+line_aa_plot(#ind,line_aa_xpxl2,line_aa_ypxl2 + 1,line_aa_fpart(line_aa_yend)*line_aa_xgap);
+);
+line_aa_steep?(
+for (line_aa_x = line_aa_xpxl1 + 1, line_aa_x<=line_aa_xpxl2 - 1, ++line_aa_x,
+line_aa_plot(#ind,floor(line_aa_intery),line_aa_x,line_aa_rfpart(line_aa_intery));
+line_aa_plot(#ind,floor(line_aa_intery) + 1,line_aa_x,line_aa_fpart(line_aa_intery));
+line_aa_intery+=line_aa_gradient;
+);
+):(
+for (line_aa_x = line_aa_xpxl1 + 1, line_aa_x<=line_aa_xpxl2 - 1, ++line_aa_x,
+line_aa_plot(#ind,line_aa_x,floor(line_aa_intery),line_aa_rfpart(line_aa_intery));
+line_aa_plot(#ind,line_aa_x,floor(line_aa_intery) + 1,line_aa_fpart(line_aa_intery));
+line_aa_intery+=line_aa_gradient;
+);
+);
+);
+hsv2rgb(I...) = (
+ref([I],_I);
+_I[0]%=360;
+_I[1] = cut(_I[1],0,1);
+_I[2] = cut(_I[2],0,1);
+_c = _I[2]*_I[1];
+_x = _c*(1-abs((_I[0]/60)%2-1));
+(arg(1 + int(_I[0]/60),[_c,_x,0],[_x,_c,0],[0,_c,_x],[0,_x,_c],[_x,0,_c],[_c,0,_x])+=_I[2] - _c)*=255;
+);
+rgb2hsv(I...) = (
+ref([I],_I);
+_M = max(_I);
+_C = _M - min(_I);
+[ 60*(_C==0?0:_M==_I[0]?((_I[1] - _I[2])/_C)%6:_M==_I[1]?(_I[2] - _I[0])/_C + 2:(_I[0] - _I[1])/_C + 4),
+_M<=0?0:_C/_M, _M/255 ];
+);
+is_intriangle(P,A,B,C) = (
+_v0 = C - A;
+_v1 = B - A;
+_v2 = P - A;
+_dot00 = dot(_v0,_v0);
+_dot01 = dot(_v0,_v1);
+_dot02 = dot(_v0,_v2);
+_dot11 = dot(_v1,_v1);
+_dot12 = dot(_v1,_v2);
+_invDenom = 1/(_dot00*_dot11 - _dot01*_dot01);
+_u = (_dot11*_dot02 - _dot01*_dot12)*_invDenom;
+_v = (_dot00*_dot12 - _dot01*_dot02)*_invDenom;
+_u>=0 && _v>=0 && _u + _v<1);
+is_inquadrilateral(P,A,B,C,D) = (
+is_intriangle(P,A,B,D) || is_intriangle(P,B,C,D);
+);
+do_intersect(p0x,p0y,p1x,p1y,q0x,q0y,q1x,q1y) = (
+_o1 = _doi_orientation(p0x,p0y,p1x,p1y,q0x,q0y);
+_o2 = _doi_orientation(p0x,p0y,p1x,p1y,q1x,q1y);
+_o3 = _doi_orientation(q0x,q0y,q1x,q1y,p0x,p0y);
+_o4 = _doi_orientation(q0x,q0y,q1x,q1y,p1x,p1y);
+(_o1!=_o2 && _o3!=_o4) ||
+(!_o1 && _doi_on_segment(p0x,p0y,q0x,q0y,p1x,p1y)) ||
+(!_o2 && _doi_on_segment(p0x,p0y,q1x,q1y,p1x,p1y)) ||
+(!_o3 && _doi_on_segment(q0x,q0y,p0x,p0y,q1x,q1y)) ||
+(!_o4 && _doi_on_segment(q0x,q0y,p1x,p1y,q1x,q1y))
+);
+_doi_on_segment(px,py,qx,qy,rx,ry) = (
+inrange(qx,min(px,rx),max(px,rx)) && inrange(qy,min(py,ry),max(py,ry));
+);
+_doi_orientation(px,py,qx,qy,rx,ry) = (
+_doi_orientation_val = (qy - py)*(rx - qx) - (qx - px)*(ry - qy);
+_doi_orientation_val==0?0:_doi_orientation_val>0?1:2;
+);
+is_percent(str) = (unref(_is_pct); _is_pct=['#str']; _is_pct[size(_is_pct) - 1]==_'%');
+length_spline(P0,T0,P1,T1) = (
+_P0 = P0;
+_P1 = P1;
+_C = mul([ 2,-2,1,1,-3,3,-2,-1,0,0,1,0,1,0,0,0 ],[ _P0,_P1,T0,T1 ],2);
+_l = norm(_P1 - _P0);
+if (_l,
+_nl = _l + 1;
+_dt = 1/_l;
+while (_nl - _l>=0.01,
+_l = _nl;
+_nl = 0;
+__P0 = _P0;
+for (_t = 0, _t<=1, _t+=_dt,
+__P = mul([_t^3,_t^2,_t,1],_C,2);
+_nl+=norm(__P - __P0);
+__P0 = __P;
+);
+_dt = 1/max(1,_nl);
+);
+);
+_l
+);
+pexp(x) = (
+_pexp_x = abs(x);
+_pexp_x<2?-0.110353*_pexp_x^4 + 0.683221*_pexp_x^3 -1.17282*_pexp_x^2 + 1:0
+);
+proj(X,A,B) = (
+_AB = B - A;
+P = A + dot(X - A,_AB)/max(1e-8,dot(_AB,_AB))*_AB;
+);
+deltaE00(lab1,lab2) = (
+_deltaE00_deg2rad(deg) = (deg*pi/180);
+unref(_deltaE00_lab1); _deltaE00_lab1 = lab1;
+unref(_deltaE00_lab2); _deltaE00_lab2 = lab2;
+unref(_deltaE00_k_L); const _deltaE00_k_L = 1;
+unref(_deltaE00_k_C); const _deltaE00_k_C = 1;
+unref(_deltaE00_k_H); const _deltaE00_k_H = 1;
+unref(_deltaE00_deg360inrad); const _deltaE00_deg360inrad = _deltaE00_deg2rad(360);
+unref(_deltaE00_deg180inrad); const _deltaE00_deg180inrad = _deltaE00_deg2rad(180);
+unref(_deltaE00_pow25to7); const _deltaE00_pow25to7 = 25^7;
+_deltaE00_C1 = norm(_deltaE00_lab1[1,2]);
+_deltaE00_C2 = norm(_deltaE00_lab2[1,2]);
+_deltaE00_barC = (_deltaE00_C1 + _deltaE00_C2)/2;
+_deltaE00_G = 0.5*(1 - sqrt(_deltaE00_barC^7/(_deltaE00_barC^7 + _deltaE00_pow25to7)));
+_deltaE00_a1prime = (1 + _deltaE00_G)*_deltaE00_lab1[1];
+_deltaE00_a2prime = (1 + _deltaE00_G)*_deltaE00_lab2[1];
+_deltaE00_Cprime1 = norm(_deltaE00_a1prime,_deltaE00_lab1[2]);
+_deltaE00_Cprime2 = norm(_deltaE00_a2prime,_deltaE00_lab2[2]);
+_deltaE00_lab1[2]==0 && _deltaE00_a1prime==0?(
+_deltaE00_hprime1 = 0;
+):(
+_deltaE00_hprime1 = atan2(_deltaE00_lab1[2],_deltaE00_a1prime);
+_deltaE00_hprime1<0?(_deltaE00_hprime1+=_deltaE00_deg360inrad);
+_deltaE00_lab2[2]==0 && _deltaE00_a2prime==0?(
+_deltaE00_hprime2 = 0;
+):(
+_deltaE00_hprime2 = atan2(_deltaE00_lab2[2],_deltaE00_a2prime);
+_deltaE00_hprime2<0?(_deltaE00_hprime2+=_deltaE00_deg360inrad);
+);
+);
+_deltaE00_deltaLprime = _deltaE00_lab2[0] - _deltaE00_lab1[0];
+_deltaE00_deltaCprime = _deltaE00_Cprime2 - _deltaE00_Cprime1;
+_deltaE00_CprimeProduct = _deltaE00_Cprime1*_deltaE00_Cprime2;
+_deltaE00_CprimeProduct==0?(
+_deltaE00_deltahprime = 0;
+):(
+_deltaE00_deltahprime = _deltaE00_hprime2 - _deltaE00_hprime1;
+_deltaE00_deltahprime<-_deltaE00_deg180inrad?(
+_deltaE00_deltahprime += _deltaE00_deg360inrad;
+):_deltaE00_deltahprime>_deltaE00_deg180inrad?(
+_deltaE00_deltahprime -= _deltaE00_deg360inrad;
+);
+);
+_deltaE00_deltaHprime = 2*sqrt(_deltaE00_CprimeProduct)*sin(_deltaE00_deltahprime/2);
+_deltaE00_barLprime = (_deltaE00_lab1[0] + _deltaE00_lab2[0])/2;
+_deltaE00_barCprime = (_deltaE00_Cprime1 + _deltaE00_Cprime2)/2;
+_deltaE00_hprimeSum = _deltaE00_hprime1 + _deltaE00_hprime2;
+_deltaE00_Cprime1*_deltaE00_Cprime2==0?(
+_deltaE00_barhprime = _deltaE00_hprimeSum;
+):(
+abs(_deltaE00_hprime1 - _deltaE00_hprime2)<=_deltaE00_deg180inrad?(
+_deltaE00_barhprime = _deltaE00_hprimeSum/2;
+):(
+_deltaE00_hprimeSum<_deltaE00_deg360inrad?(
+_deltaE00_barhprime = (_deltaE00_hprimeSum + _deltaE00_deg360inrad)/2;
+):(
+_deltaE00_barhprime = (_deltaE00_hprimeSum - _deltaE00_deg360inrad)/2;
+);
+);
+);
+_deltaE00_T = 1.0 - (0.17*cos(_deltaE00_barhprime - _deltaE00_deg2rad(30))) +
+(0.24*cos(2*_deltaE00_barhprime)) +
+(0.32*cos(3*_deltaE00_barhprime + _deltaE00_deg2rad(6))) -
+(0.2*cos(4*_deltaE00_barhprime - _deltaE00_deg2rad(63)));
+_deltaE00_deltaTheta = _deltaE00_deg2rad(30)*
+exp(-((_deltaE00_barhprime - _deltaE00_deg2rad(275)) / _deltaE00_deg2rad(25))^2);
+_deltaE00_R_C = 2*sqrt(_deltaE00_barCprime^7/(_deltaE00_barCprime^7 + _deltaE00_pow25to7));
+_deltaE00_S_L = 1 + 0.015*(_deltaE00_barLprime - 50)^2/sqrt(20 + (_deltaE00_barLprime - 50)^2);
+_deltaE00_S_C = 1 + 0.045*_deltaE00_barCprime;
+_deltaE00_S_H = 1 + 0.015*_deltaE00_barCprime*_deltaE00_T;
+_deltaE00_R_T = -sin(2*_deltaE00_deltaTheta)* _deltaE00_R_C;
+sqrt((_deltaE00_deltaLprime/(_deltaE00_k_L*_deltaE00_S_L))^2 +
+(_deltaE00_deltaCprime/(_deltaE00_k_C*_deltaE00_S_C))^2 +
+(_deltaE00_deltaHprime/(_deltaE00_k_H*_deltaE00_S_H))^2 +
+_deltaE00_R_T*_deltaE00_deltaCprime/(_deltaE00_k_C*_deltaE00_S_C)*
+_deltaE00_deltaHprime/(_deltaE00_k_H*_deltaE00_S_H));
+);
+_next_edgel4(k,P,op) = (
+ref(P#[0],_u); ref(P#[1],_v);
+P#[2]==0?(i(#k,_u,_nv = _v + 1,0,0)#op?[ _u,_v,1 ]:i(#k,_nu = _u + 1,_nv,0,0)#op?[ _u,_nv,0 ]:[ _nu,_nv,3 ]):
+P#[2]==1?(i(#k,_pu = _u - 1,_v,0,0)#op?[ _u,_v,2 ]:i(#k,_pu,_nv = _v + 1,0,0)#op?[ _pu,_v,1 ]:[ _pu,_nv,0 ]):
+P#[2]==2?(i(#k,_u,_pv = _v - 1,0,0)#op?[ _u,_v,3 ]:i(#k,_pu = _u - 1,_pv,0,0)#op?[ _u,_pv,2 ]:[ _pu,_pv,1 ]):
+(i(#k,_nu = _u + 1,_v,0,0)#op?[ _u,_v,0 ]:i(#k,_nu,_pv = _v - 1,0,0)#op?[ _nu,_v,3 ]:[ _nu,_pv,2 ]);
+);
+next_edgel4_fg(k,P,fg) = _next_edgel4(#k,#P,!=fg); # Next edgel, 4-connexity (foreground value specified)
+next_edgel4_bg(k,P,bg) = _next_edgel4(#k,#P,==bg); # Next edgel, 4-connexity (background value specified)
+_previous_edgel4(k,P,op) = (
+ref(P#[0],_u); ref(P#[1],_v);
+P#[2]==0?(i(#k,_u,_pv = _v - 1,0,0)#op?[ _u,_v,3 ]:i(#k,_nu = _u + 1,_pv,0,0)#op?[ _u,_pv,0 ]:[ _nu,_pv,1 ]):
+P#[2]==1?(i(#k,_nu = _u + 1,_v,0,0)#op?[ _u,_v,0 ]:i(#k,_nu,_nv = _v + 1,0,0)#op?[ _nu,_v,1 ]:[ _nu,_nv,2 ]):
+P#[2]==2?(i(#k,_u,_nv = _v + 1,0,0)#op?[ _u,_v,1 ]:i(#k,_pu = _u - 1,_nv,0,0)#op?[ _u,_nv,2 ]:[ _pu,_nv,3 ]):
+(i(#k,_pu = _u - 1,_v,0,0)#op?[ _u,_v,2 ]:i(#k,_pu,_pv = _v - 1,0,0)#op?[ _pu,_v,3 ]:[ _pu,_pv,0 ]);
+);
+previous_edgel4_fg(k,P,fg) = _previous_edgel4(#k,#P,!=fg); # Previous edgel, 4-connexity (foreground value specified)
+previous_edgel4_bg(k,P,bg) = _previous_edgel4(#k,#P,==bg); # Previous edgel, 4-connexity (background value specified)
+_next_edgel8(k,P,op) = (
+ref(P#[0],_u); ref(P#[1],_v);
+P#[2]==0?(i(#k,_nu = _u + 1,_nv = _v + 1,0,0)#op?[ _nu,_nv,3 ]:i(#k,_u,_nv,0,0)#op?[ _u,_nv,0 ]:[ _u,_v,1 ]):
+P#[2]==1?(i(#k,_pu = _u - 1,_nv = _v + 1,0,0)#op?[ _pu,_nv,0 ]:i(#k,_pu,_v,0,0)#op?[ _pu,_v,1 ]:[ _u,_v,2 ]):
+P#[2]==2?(i(#k,_pu = _u - 1,_pv = _v - 1,0,0)#op?[ _pu,_pv,1 ]:i(#k,_u,_pv,0,0)#op?[ _u,_pv,2 ]:[ _u,_v,3 ]):
+(i(#k,_nu = _u + 1,_pv = _v - 1,0,0)#op?[ _nu,_pv,2 ]:i(#k,_nu,_v,0,0)#op?[ _nu,_v,3 ]:[ _u,_v,0 ]);
+);
+next_edgel8_fg(k,P,fg) = _next_edgel8(#k,#P,==fg); # Next edgel, 8-connexity (foreground value specified)
+next_edgel8_bg(k,P,bg) = _next_edgel8(#k,#P,!=bg); # Next edgel, 8-connexity (background value specified)
+_previous_edgel8(k,P,op) = (
+ref(P#[0],_u); ref(P#[1],_v);
+P#[2]==0?(i(#k,_nu = _u + 1,_pv = _v - 1,0,0)#op?[ _nu,_pv,1 ]:i(#k,_u,_pv,0,0)#op?[ _u,_pv,0 ]:[ _u,_v,3 ]):
+P#[2]==1?(i(#k,_nu = _u + 1,_nv = _v + 1,0,0)#op?[ _nu,_nv,2 ]:i(#k,_nu,_v,0,0)#op?[ _nu,_v,1 ]:[ _u,_v,0 ]):
+P#[2]==2?(i(#k,_pu = _u - 1,_nv = _v + 1,0,0)#op?[ _pu,_nv,3 ]:i(#k,_u,_nv,0,0)#op?[ _u,_nv,2 ]:[ _u,_v,1 ]):
+(i(#k,_pu = _u - 1,_pv = _v - 1,0,0)#op?[ _pu,_pv,0 ]:i(#k,_pu,_v,0,0)#op?[ _pu,_v,3 ]:[ _u,_v,2 ]);
+);
+previous_edgel8_fg(k,P,fg) = _previous_edgel8(#k,#P,==fg); # Previous edgel, 8-connexity (foreground value specified)
+previous_edgel8_bg(k,P,bg) = _previous_edgel8(#k,#P,!=bg); # Previous edgel, 8-connexity (background value specified)
+"
+#@cli mad
+#@cli : Return the MAD (Maximum Absolute Deviation) of the last selected image.
+#@cli : The MAD is defined as MAD = med_i|x_i-med_j(x_j)|
+mad :
+if $! +-. {ic} abs. u {1.4826*ic} rm. else u 0 fi
+#@cli max_w
+#@cli : Return the maximal width between selected images.
+max_w :
+_minmax_whds max,0,1
+#@cli max_h
+#@cli : Return the maximal height between selected images.
+max_h :
+_minmax_whds max,1,1
+#@cli max_d
+#@cli : Return the maximal depth between selected images.
+max_d :
+_minmax_whds max,2,1
+#@cli max_s
+#@cli : Return the maximal spectrum between selected images.
+max_s :
+_minmax_whds max,3,1
+#@cli max_wh
+#@cli : Return the maximal wxh size of selected images.
+max_wh :
+_minmax_whds max,0,2
+#@cli max_whd
+#@cli : Return the maximal wxhxd size of selected images.
+max_whd :
+_minmax_whds max,0,3
+#@cli max_whds
+#@cli : Return the maximal wxhxdxs size of selected images.
+max_whds :
+_minmax_whds max,0,4
+#@cli median_vectors
+#@cli : Return the median vector value of the last selected image (median computed channel by channel)
+median_vectors :
+u {"expr('med(crop(#-1,0,0,0,y,w#-1,h#-1,d#-1,1))',1,s#-1)"}
+#@cli min_w
+#@cli : Return the minimal width between selected images.
+min_w :
+_minmax_whds min,0,1
+#@cli min_h
+#@cli : Return the minimal height between selected images.
+min_h :
+_minmax_whds min,1,1
+#@cli min_d
+#@cli : Return the minimal depth between selected images.
+min_d :
+_minmax_whds min,2,1
+#@cli min_s
+#@cli : Return the minimal s size of selected images.
+min_s :
+_minmax_whds min,3,1
+#@cli min_wh
+#@cli : Return the minimal wxh size of selected images.
+min_wh :
+_minmax_whds min,0,2
+#@cli min_whd
+#@cli : Return the minimal wxhxd size of selected images.
+min_whd :
+_minmax_whds min,0,3
+#@cli min_whds
+#@cli : Return the minimal wxhxdxs size of selected images.
+min_whds :
+_minmax_whds min,0,4
+_minmax_whds :
+u {"
+mw = w; mh = h; md = d; ms = s;
+repeat (l,k,
+mw = $1(mw,w#k);
+mh = $1(mh,h#k);
+md = $1(md,d#k);
+ms = $1(ms,s#k);
+);
+([mw,mh,md,ms])[$2,$3]"}
+#@cli name2color : name
+#@cli : Return the R,G,B color that matches the specified color name.
+name2color :
+strvar "$1" name=${}
+_color2name
+names={`"s = ['"{n}"']; m = !(s-_'~')*(_'_'-_'~'); s+=m; lowercase(s)"`}
+l. {
+s x => $names u {$name,^} rm
+onfail rm error[0--3] "Command 'name2color': Unknown color '$1'."
+}
+#@cli nmd : eq. to 'named' : (+)
+#@cli named : _mode,"name1","name2",... : (+)
+#@cli : Return the set of indices corresponding to images of the selection with specified names.
+#@cli : After this command returns, the status contains a list of indices (unsigned integers),
+#@cli : separated by commas (or an empty string if no images with those names have been found).
+#@cli : (eq. to 'nmd').
+#@cli : 'mode' can be { 0=all indices (default) | 1=lowest index | 2=highest index | 3 = all indices (case insensitive) | 4 = lowest index (case insensitive) | 5 = highest index (case insensitive)}
+#@cli narg : arg1,arg2,...,argN
+#@cli : Return number of specified arguments.
+narg :
+u $#
+#@cli normalize_filename : filename
+#@cli : Return a "normalized" version of the specified filename, without spaces and capital letters.
+normalize_filename :
+('"$1"') f. 'if(i>=65&&i<=90,i+32,if(i==32,95,i))' u {t} rm.
+#@cli oct : octal_int1,...
+#@cli : Print specified octal integers into their binary, decimal, hexadecimal and string representations.
+oct :
+dec=${oct2dec\ ${^0}}
+e[^-1] "Convert octal integer"${arg0\ ($#>1),"",s}" '${^0}' to binary '"${dec2bin\ $dec}"', decimal '"$dec"',
+hexadecimal '"${dec2hex\ $dec}"' and string '"${dec2str\ $dec}"'."
+#@cli oct2dec : octal_int1,...
+#@cli : Convert specified octal integers into their decimal representations.
+oct2dec :
+$=arg res,sep= repeat $# { res=$res$sep${_$0\ ${arg{$>+1}}} sep=, } u $res
+_oct2dec :
+u {"str = v2s(abs($1));
+for (k = val = 0, str[k], ++k,
+c = str[k];
+(val<<=3)+=(c>=_'0' && c<=_'7'?c - _'0':nan);
+isnan(val)?break()
+); sign($1)*val"}
+ovh2stats : skip "${1=gmic.eu-*-*-*.log.gz}"
+e[^-1] "Generate statistics on the usage of G'MIC-Qt from OVH server logfiles '$1'."
+use_vt100
+files "$1" files=${}
+e "* Load log files."
+if !narg(${}) error[0--2] "No OVH logfiles matching name '$1' have been found." fi
+repeat narg(${}) {
+arg0 $>,$files file=${}
+day,month,year={"str = ['"$file"'];
+t1 = find(str,_'-') + 1;
+t2 = find(str,_'-',t1) + 1;
+t3 = find(str,_'-',t2) + 1;
+t1>0 && t2>t1 && t3>t2?(
+day = s2v(str,t1);
+month = s2v(str,t2);
+year = s2v(str,t3);
+[ day,month,year ];
+):[0,0,0]"}
+if !$day&&!$month&&!$year day,month,year=n.a fi
+e " > "$year/$month/$day:" "$_vt100_g$file$_vt100_n
+it $file
+=> ${year}_${month}_${day}
+}
+foreach {
+nm={n}
+s -,{'\n'}
+eval "
+str = ['G'MIC-Qt'];
+to_keep = vectorl();
+p = 0;
+repeat (l,k, find(#k,str)>=0?(to_keep[p++] = k));
+store('to_keep',to_keep,p);
+run('$to_keep k[{^}]')"
+if $!>1 i[1--2] ('\n') fi
+a y => $nm
+}
+e "\n* Analyze log files (day by day)."
++_ovh2stats
+e "\n* Analyze log files (all days)."
+a y _ovh2stats
+_ovh2stats :
+v + N=$!
+foreach {
+('{n}') replace. {'_'},{'^'} ({t})
+date={`[v2s(i0,0,4),_'/',i1<10?[_'0',i1+_'0']:v2s(i1,0,2),_'/',i2<10?[_'0',i2+_'0']:v2s(i2,0,2)]`}
+s -,{'\n'}
+eval "
+name = vector256();
+repeat (l,k,
+p = find(#k,_' ');
+copy(name,i[#k,0],p);
+name[p] = 0;
+run('name[',k,'] ',name);
+)"
+eval "
+const N = "$!";
+ref(vector(#2*N),tab);
+repeat (N,k,
+ref(name(#k,256),nam);
+for (i = j = 0, i=0?++gimp:
+find(str,'krita')>=0?++krita:
+find(str,'8bf')>=0?++_8bf:
+find(str,'paint.net')>=0?++paintdotnet:
+find(str,'digikam')>=0?++digikam:
+++standalone;
+find(str,'windows')>=0?++windows:
+find(str,'linux')>=0?++linux:
+find(str,'mac os')>=0?++macos:
+find(str,'bsd')>=0?++bsd:
+++unknown;
+(eos = find(str,0))<0?(eos = size(str));
+space = find(str,_' ',eos,-1);
+ver = sum(([ str[space + 1],str[space + 3],str[space + 5] ] - _'0')*[ 100,10,1 ]);
+++versions[ver];
+find(str,'_pre#')>=0?++prereleases;
+++ips;
+);
+store('features',
+[ips,gimp,krita,_8bf,paintdotnet,digikam,standalone,windows,linux,macos,bsd,unknown,prereleases]);
+store('versions',versions)"
+rm $features
+ips,gimp,krita,_8bf,paintdotnet,digikam,standalone,windows,linux,macos,bsd,unknown,prereleases={^}
+$versions
+a y
+if $N>1
+e " > "$date": "${_vt100_b}"Unique IPs"${_vt100_n}" = "$ips" (100%),"
+e " "${_vt100_m}${_vt100_b}"GIMP"${_vt100_n}" = "$gimp" ("{_round($gimp/$ips*100,0.1)}"%), "${_vt100_c}${_vt100_b}"Krita"${_vt100_n}" = "$krita" ("{_round($krita/$ips*100,0.1)}"%), "${_vt100_g}${_vt100_b}"8bf"${_vt100_n}" = "$_8bf" ("{_round($_8bf/$ips*100,0.1)}"%), "${_vt100_r}${_vt100_b}"Paint.NET"${_vt100_n}" = "$paintdotnet" ("{_round($paintdotnet/$ips*100,0.1)}"%), "${_vt100_m}${_vt100_b}"Digikam"${_vt100_n}" = "$digikam" ("{_round($digikam/$ips*100,0.1)}"%), "${_vt100_c}${_vt100_b}"Standalone"${_vt100_n}" = "$standalone" ("{_round($standalone/$ips*100,0.1)}"%)."
+e " "${_vt100_r}${_vt100_b}"Windows"${_vt100_n}" = "$windows" ("{_round($windows/$ips*100,0.1)}"%), "${_vt100_g}${_vt100_b}"Linux"${_vt100_n}" = "$linux" ("{_round($linux/$ips*100,0.1)}"%), "${_vt100_m}${_vt100_b}"Mac OS"${_vt100_n}" = "$macos" ("{_round($macos/$ips*100,0.1)}"%), "${_vt100_c}${_vt100_b}"BSD"${_vt100_n}" = "$bsd" ("{_round($bsd/$ips*100,0.1)}"%), "${_vt100_c}${_vt100_b}"Unknown"${_vt100_n}" = "$unknown" ("{_round($unknown/$ips*100,0.1)}"%)."
+e " "${_vt100_b}"Prereleases"${_vt100_n}" = "$prereleases" ("{_round($prereleases/$ips*100,0.1)}"%)."
+_ovh2stats_versions
+fi
+}
++ / $N round.
++z. 0,0,12,0 ips,gimp,krita,_8bf,paintdotnet,digikam,standalone,windows,linux,macos,bsd,unknown,prereleases={^} rm.
+summary0,summary1="Total: ","Average: "
+e " > "${summary{$N>1}}${_vt100_b}"Unique IPs"${_vt100_n}" = "$ips" (100%),"
+e " "${_vt100_m}${_vt100_b}"GIMP"${_vt100_n}" = "$gimp" ("{_round($gimp/$ips*100,0.1)}"%), "${_vt100_c}${_vt100_b}"Krita"${_vt100_n}" = "$krita" ("{_round($krita/$ips*100,0.1)}"%), "${_vt100_g}${_vt100_b}"8bf"${_vt100_n}" = "$_8bf" ("{_round($_8bf/$ips*100,0.1)}"%), "${_vt100_r}${_vt100_b}"Paint.NET"${_vt100_n}" = "$paintdotnet" ("{_round($paintdotnet/$ips*100,0.1)}"%), "${_vt100_m}${_vt100_b}"Digikam"${_vt100_n}" = "$digikam" ("{_round($digikam/$ips*100,0.1)}"%), "${_vt100_c}${_vt100_b}"Standalone"${_vt100_n}" = "$standalone" ("{_round($standalone/$ips*100,0.1)}"%)."
+e " "${_vt100_r}${_vt100_b}"Windows"${_vt100_n}" = "$windows" ("{_round($windows/$ips*100,0.1)}"%), "${_vt100_g}${_vt100_b}"Linux"${_vt100_n}" = "$linux" ("{_round($linux/$ips*100,0.1)}"%), "${_vt100_m}${_vt100_b}"Mac OS"${_vt100_n}" = "$macos" ("{_round($macos/$ips*100,0.1)}"%), "${_vt100_c}${_vt100_b}"BSD"${_vt100_n}" = "$bsd" ("{_round($bsd/$ips*100,0.1)}"%), "${_vt100_c}${_vt100_b}"Unknown"${_vt100_n}" = "$unknown" ("{_round($unknown/$ips*100,0.1)}"%)."
+e " "${_vt100_b}"Prereleases"${_vt100_n}" = "$prereleases" ("{_round($prereleases/$ips*100,0.1)}"%)."
+_ovh2stats_versions
+rm
+_ovh2stats_versions :
+v + +rows. 100%
+l. {
+ips={is}
++f x a y sort -,x eo0={min(9,find(crop(),0))}
+if $eo0
+str= v=0 c=
+for i($v,0)>0" && "$v<9 {
+str.=$c${_vt100_b}{i($v,1)}${_vt100_n}" ("{i($v,0)}": "{_round(i($v,0)/$ips*100,0.1)}"%)"
+v+=1 c=", "
+}
+e " "${_vt100_c}${_vt100_b}"Version"${_vt100_n}" = "$str".\n"
+fi
+rm
+}
+#@cli padint : number,_size>0
+#@cli : Return a integer with 'size' digits (eventually left-padded with '0').
+padint : check "isint($1)" skip ${2=4}
+u "" repeat $2 { u ${}{int($1/10^$<)%10} }
+#@cli path_cache
+#@cli : Return a path to store G'MIC data files for one user (whose value is OS-dependent).
+path_cache :
+if !narg({'$_path_cache'})
+_path_cache=$_path_rc
+if ['$GMIC_CACHE_PATH']!=0 _patch_cache=$GMIC_CACHE_PATH
+elif !${-is_windows}
+if isdir(['{/$HOME/.cache}']) _path_cache=$HOME/.cache/gmic/
+elif ['$XDG_CACHE_HOME']!=0 _path_cache=$XDG_CACHE_HOME/gmic/
+fi
+if !isdir('{/$_path_cache}') x "mkdir -p "$_path_cache fi
+fi
+fi
+u $_path_cache
+#@cli path_current
+#@cli : Return current folder from where G'MIC has been run.
+path_current :
+if !${-is_windows}
+filename=${-path_tmp}gmic_pwd
+l[] { x "pwd > "$filename it $filename autocrop {'\n'} autocrop {'" "'} u {t}/ rm onfail u "./" }
+else u "./"
+fi
+#@cli path_gimp
+#@cli : Return a path to store GIMP configuration files for one user (whose value is OS-dependent).
+path_gimp :
+if !narg({'$_path_gimp'})
+if narg({'${GIMP2_DIRECTORY}'}) _path_gimp=${GIMP2_DIRECTORY}
+elif narg({'${USERPROFILE}'}) _path_gimp=${USERPROFILE}
+elif narg({'${HOME}'}) _path_gimp=${HOME}
+fi
+if ${-is_windows} sep={`92`} else sep=/ fi
+if isdir(['{/$_path_gimp${sep}AppData${sep}Roaming${sep}GIMP${sep}2.10}'])
+_path_gimp=$_path_gimp${sep}AppData${sep}Roaming${sep}GIMP${sep}2.10${sep}
+elif isdir(['{/$_path_gimp${sep}AppData${sep}Roaming${sep}GIMP${sep}2.8}'])
+_path_gimp=$_path_gimp${sep}AppData${sep}Roaming${sep}GIMP${sep}2.8${sep}
+elif isdir(['{/$_path_gimp${sep}.config${sep}GIMP${sep}2.10}'])
+_path_gimp=$_path_gimp${sep}.config${sep}GIMP${sep}2.10${sep}
+elif isdir(['{/$_path_gimp${sep}.gimp-2.8}'])
+_path_gimp=$_path_gimp${sep}.gimp-2.8${sep}
+elif isdir(['{/$_path_gimp${sep}.gimp-2.6}'])
+_path_gimp=$_path_gimp${sep}.gimp-2.6${sep}
+else
+_path_gimp=${-path_tmp}
+fi
+fi
+u $_path_gimp
+#@cli path_tmp
+#@cli : Return a path to store temporary files (whose value is OS-dependent).
+path_tmp :
+if !narg({'$_path_tmp'})
+if narg({'${TMP}'}) _path_tmp=${TMP}
+elif narg({'${TEMP}'}) _path_tmp=${TEMP}
+elif narg({'${TMPDIR}'}) _path_tmp=${TMPDIR}
+elif narg({'${HOME}'}) _path_tmp="/tmp"
+fi
+if ${-is_windows} _path_tmp=$_path_tmp{`92`} else _path_tmp=$_path_tmp/ fi
+fi
+u $_path_tmp
+#@cli remove_copymark
+#@cli : Remove copymark suffix in names of selected images.
+remove_copymark :
+foreach {
+=> {`"
+nm = ['"{n}'"];
+const siz = size(nm);
+i = find(nm,'_c',siz - 1,-1);
+inrange(i,0,siz - 3) && inrange(nm[i + 2],_'1',_'9')?(
+ext = ['"{x}"'];
+size(ext)?copy(nm[i],[_'.',ext,0]):(nm[i] = 0);
+); nm;"`}
+}
+render_donations : skip "${1="$HOME"/work/src/private_tschumperle/gmic_donations.csv}",${2=0}
+use_vt100
+nb_months={$2?$2:4}
+l[] {
+"$1"
+eur2usd={1/0.873824}
+nb_entries={h}
+repeat $nb_entries { e=$>
+date_$e={`I(0,$e)`}
+name_$e={`I(1,$e)`}
+type_$e={`I(2,$e)`}
+currency_$e={`lowercase(I(3,$e))`}
+donation_$e={{`I(4,$e)`}}
+charge_paypal_$e={{`I(5,$e)`}}
+charge_lila_$e={{`I(6,$e)`}}
+mail_$e={`I(7,$e)`}
+message_$e={`I(8,$e)`}
+l[] {
+('${date_$e}') s -,{'/'} day_$e,month_$e,year_$e={0,t},{1,t},{2,t} rm
+edate_$e={${day_$e}+100*(${month_$e}+100*${year_$e})}
+}
+donation_charged_$e={${donation_$e}+${charge_paypal_$e}+${charge_lila_$e}}
+if '${currency_$e}'=='eur'
+donation_eur_$e=${donation_$e}
+donation_charged_eur_$e=${donation_charged_$e}
+donation_usd_$e={${donation_$e}*$eur2usd}
+donation_charged_usd_$e={${donation_charged_$e}*$eur2usd}
+else
+donation_usd_$e=${donation_$e}
+donation_charged_usd_$e=${donation_charged_$e}
+donation_eur_$e={${donation_$e}/$eur2usd}
+donation_charged_eur_$e={${donation_charged_$e}/$eur2usd}
+fi
+if ${donation_$e}>=10 col=$_vt100_r else col= fi
+e "- ["$_vt100_c$_vt100_b"#"$e$_vt100_n" - "$_vt100_c${date_$e}$_vt100_n"] "$col$_vt100_b{_${donation_$e}}" "${currency_$e}$_vt100_n" (paypal: "{_${charge_paypal_$e}}" "${currency_$e}," lila: "{_${charge_lila_$e}}" "${currency_$e}" ->"" "{_${donation_charged_$e}}" "${currency_$e}" ="" "{_${donation_charged_eur_$e}}" eur),"" from "${name_$e}" ("${mail_$e}") : '"$_vt100_b${message_$e}$_vt100_n"'"
+}
+rm
+e ""
+all_eur,all_usd,all_charged_eur,all_charged_usd,asep_eur,asep_usd=
+repeat $nb_months {
+edate={y=date(0);m=date(1)-1-$>;while(m<=0,--y;m+=12);100*y+m}
+s_month=${"arg "$edate%100",January,February,March,April,May,June,July,August,September,October,November,December"}
+s_year={int($edate/100)}
+month_eur,month_charged_eur,month_usd,month_charged_usd,msep_eur,msep_usd=
+nb_sponsors=0
+repeat $nb_entries { e=$>
+if $edate==int(${edate_$e}/100)
+currency=${currency_$e}
+val_eur=${donation_eur_$e}
+val_charged_eur=${donation_charged_eur_$e}
+val_usd=${donation_usd_$e}
+val_charged_usd=${donation_charged_usd_$e}
+nb_sponsors+=1
+if '${currency_$e}'=='eur'
+all_eur.=$asep_eur$val_eur
+all_charged_eur.=$asep_eur$val_charged_eur
+month_eur.=$msep_eur$val_eur
+month_charged_eur.=$msep_eur$val_charged_eur
+asep_eur=, msep_eur=,
+else
+all_usd.=$asep_usd$val_usd
+all_charged_usd.=$asep_usd$val_charged_usd
+month_usd.=$msep_usd$val_usd
+month_charged_usd.=$msep_usd$val_charged_usd
+asep_usd=, msep_usd=,
+fi
+fi
+}
+month_sum_eur={sum(0$month_eur)+sum(0$month_usd)/$eur2usd}
+month_sum_charged_eur={sum(0$month_charged_eur)+sum(0$month_charged_usd)/$eur2usd}
+e "* "$_vt100_c$_vt100_b$s_month" "$s_year": "$_vt100_n$_vt100_b{_$month_sum_eur}" eur"$_vt100_n" (charged: "{_$month_sum_charged_eur}" eur)"" = "{_sum(0$month_eur)}" eur"$_vt100_n" (charged: "{_sum(0$month_charged_eur)}" eur)"" + "{_sum(0$month_usd)}" usd (charged: "{_sum(0$month_charged_usd)}" usd)"
+600,30,1,3,'x<$month_sum_eur?[139,181,173]+(y>h/2?0:40):[220,230,240]' r. 500,30,1,3 c. 0,255
+shape_circle 24 s. x,2 s[-2,-1] y,2
+ri[-4] [-5],0,1,0,0 ri[-3] [-5],0,1,0,1 ri[-2] [-5],0,1,1,0 ri[-1] [-5],0,1,1,1 min[-4--1]
+channels. 0 *.. . *. 255 a[-2,-1] c
+r. {[w,h]+4},1,100%,0,0,0.5,0.5
+sh. 100% dilate_circ. 3 b. 1 rm.
+t. $s_month" "$s_year,0.02~,0.5~,24,0.5,0,0,0,255
+t. {_round($month_sum_eur)}" \37 = "{_round($month_sum_eur*$eur2usd)}" $",0.5~,0.5~,24,1,0,0,0,255
+t. $nb_sponsors" sponsor"${"if "$nb_sponsors"!=1 u s else u \"\" fi"},0.97~,0.5~,24,0.5,0,0,0,255
+}
+rv
+all_max={max($all_eur,[$all_usd]/$eur2usd)}
+all_min={min($all_eur,[$all_usd]/$eur2usd)}
+all_sum_eur={sum($all_eur)}
+all_sum_usd={sum($all_usd)}
+all_sum_charged_eur={sum($all_charged_eur)}
+all_sum_charged_usd={sum($all_charged_usd)}
+all_avg={avg($all_eur,[$all_usd]/$eur2usd)}
+all_med={med($all_eur,[$all_usd]/$eur2usd)}
+0 t. "Avg: "{_max(0.1,round($all_avg,0.1))}"\37 / ""Med: "{_max(0.1,round($all_med,0.1))}"\37 / ""Min: "{_max(0.1,round($all_min,0.1))}"\37 / ""Max: "{_max(0.1,round($all_max,0.1))}"\37",0,0,24,1,1
+*. 200 i[-2] 100%,100%,1,3 a[-2,-1] c
+rows -5,100% a y,0.5 r2dx 480
+if $2==0 o $HOME/work/src/gmic/html/img/donations_latest_months.png fi
+}
+total_eur={$all_sum_eur+$all_sum_usd/$eur2usd}
+total_charged_eur={$all_sum_charged_eur+$all_sum_charged_usd/$eur2usd}
+e "\n==> "$_vt100_c${_vt100_b}"TOTAL : "$_vt100_n$_vt100_b{_floor($total_eur)}" eur"$_vt100_n" (charged : "{_floor($total_charged_eur)}" eur)"" = "{_floor($all_sum_eur)}" eur (charged: "{_floor($all_sum_charged_eur)}" eur)"" + "{_floor($all_sum_usd)}" usd (charged: "{_floor($all_sum_charged_usd)}" usd)\n"
+sp gmicky,{h}
+l[-2,-1] {
+rgb={I(w-1)} to_rgba rv
+frame 10,10,0,0,0,0
+drgba $rgb a x
+shape_heart 82 +r. 100%,100%,1,3 hsv2rgb. rv[-2,-1] *. 255 a[-2,-1] c
+r. ..,..,1,100%,0,0,0.23,0.15 drop_shadow. 3,3,2,0,0
+blend alpha,0.7 r2dx 500
+if $2==0 o $HOME/Desktop/donations_latest_months.jpg,85 rm return fi
+}
+l[] {
+$HOME/work/src/gmic/html/img/icon_coin.png
+N=0
+text$N,r$N,g$N,b$N,file$N="2 \37",32,48,32,"don_2eur.png" N+=1
+text$N,r$N,g$N,b$N,file$N="5 \37",200,200,200,"don_5eur.png" N+=1
+text$N,r$N,g$N,b$N,file$N="10 \37",190,100,100,"don_10eur.png" N+=1
+text$N,r$N,g$N,b$N,file$N="+ \37",255,128,0,"don_moreeur.png" N+=1
+text$N,r$N,g$N,b$N,file$N="2 $",32,48,32,"don_2usd.png" N+=1
+text$N,r$N,g$N,b$N,file$N="5 $",200,200,200,"don_5usd.png" N+=1
+text$N,r$N,g$N,b$N,file$N="10 $",190,100,100,"don_10usd.png" N+=1
+text$N,r$N,g$N,b$N,file$N="+ $",255,128,0,"don_moreusd.png" N+=1
+repeat $N { +l[0] {
+frame. 10,10,0,0,0,0
+sh. 0,2
+(${r$>}^${g$>}^${b$>}) rgb2hsl[-2,-1] H,S={[R,G]} rm.
+l. { s c -[0] {ia#0-$H} %[0] 360 -[1] {ia#1-$S} +[2] 0.1 /[1] 2 c[1,2] 0,1 a c }
+hsl2rgb. rm.
+sh. 100% dilate_circ. 10 rm.
+100%,100% t. ${text$>},0.5~,0.5~,45%,1,255 dilate_circ. 10 +dilate_circ. 15 to_rgb.. a[-2,-1] c
+blend[-2,-1] alpha drop_shadow. 1,1 r2dx. 48 frame 10,5,0,0,0,0
+outfile=$HOME/work/src/gmic/html/img/${file$>}
+if !isfile('$outfile') o. $outfile fi
+rm.
+} }
+rm[0]
+}
+#@cli reset
+#@cli : Reset global parameters of the interpreter environment.
+reset :
+e[^-1] "Reset global parameters of the interpreter environment."
+db3d m3d md3d f3d l3d sl3d ss3d
+#@cli rgb
+#@cli : Return a random int-valued RGB color.
+rgb :
+u {round(u(255))},{round(u(255))},{round(u(255))}
+RGB : rgb
+#@cli rgba
+#@cli : Return a random int-valued RGBA color.
+rgba :
+u {round(u(255))},{round(u(255))},{round(u(255))},{round(u(255))}
+RGBA : rgba
+#@cli shell_cols
+#@cli : Return the estimated number of columns of the current shell.
+shell_cols :
+if ${-is_windows}" || "${-is_macos} u 80
+else
+filename_rand filename=${}
+l[] { cols=80 x "tput cols > "$filename it $filename if isint({t}) cols={{t}} fi rm onfail cols=80 rm }
+delete $filename
+u $cols
+fi
+#@cli size_value
+#@cli : Return the size (in bytes) of image values.
+size_value :
+u {str=['$_pixeltype'];str=='float32'?4:str=='float64'?8:0}
+#@cli std_noise
+#@cli : Return the estimated noise standard deviation of the last selected image.
+std_noise :
+if $! +laplacian. -. {ic} abs. u {1.4826*ic/sqrt(d==1?20:42)} rm. else u 0 fi
+#@cli str : string
+#@cli : Print specified string into its binary, octal, decimal and hexadecimal representations.
+str : skip "$1"
+dec={'"$*"'}
+e[^-1] "Convert string '$*' to binary '"${dec2bin\ $dec}"', octal '"${dec2oct\ $dec}"', decimal '"$dec"' and
+hexadecimal '"${dec2hex\ $dec}"'."
+#@cli strbuffer : buffer_size
+#@cli : Return a string describing a size for the specified buffer size.
+strbuffer :
+u {`"const limit = 10000;
+unit = vector4();
+siz = $1;
+siz=0"}
+#@cli strclut : "string"
+#@cli : Return simplified version of the specified string that can be used as a CLUT name.
+strclut :
+0 => "$1" nm={b} rm.
+u {`"ss = lowercase([['"{/$nm}"'],0]);
+const N = 2*size(ss);
+sd = vectorN();
+for (ps = pd = 0, ss[ps], ++ps,
+ss[ps]<=_' '?(sd[pd++] = _'_'):
+(ss[ps]==_'(' || ss[ps]==_')' ||
+ss[ps]==_'{' || ss[ps]==_'}' ||
+ss[ps]==_'[' || ss[ps]==_']' ||
+ss[ps]==_'\'' || ss[ps]==_'\"')?0:
+(ps && ss[ps]>=_'0' && ss[ps]<=_'9' && ss[ps-1]>=_'a' && ss[ps-1]<=_'z')?(sd[pd++] = _'_'; sd[pd++] = ss[ps]):
+(sd[pd++] = ss[ps]);
+); sd[pd] = 0; sd"`}
+#@cli strlen : string1
+#@cli : Return the length of specified string argument.
+strlen : skip "${1=}"
+u {narg({'"$1"'})}
+#@cli strreplace : string,search,replace
+#@cli : Search and replace substrings in an input string.
+strreplace : skip "${3=}"
+if narg("$3")
+ls=${strlen\ "$2"}
+lr={${strlen\ "$3"}-1}
+l[] {
+('"$1"':y) s +,{'"$2"'} s y,-$ls
+repeat $! { if [{$>,^}]==['"$2"'] rows[$>] 0,$lr f[$>] {'"$3"'} fi }
+a y u {t} rm
+}
+else
+l[] { ('"$1"') s -,{'"$2"'} a y u {t} rm }
+fi
+#@cli strlowercase : string
+#@cli : Return a lower-case version of the specified string.
+strlowercase :
+('"$*"') u {`lowercase([{^}])`} rm.
+#@cli struppercase : string
+#@cli : Return an upper-case version of the specified string.
+struppercase :
+('"$*"') u {`uppercase([{^}])`} rm.
+#@cli strvar : "string"
+#@cli : Return a simplified version of the specified string, that can be used as a variable name.
+#@cli : (version that creates a lowercase result, no longer than 128 chars).
+strvar :
+_strvar_fn="lowercase(c)" _strvar "$*"
+#@cli strcasevar : "string"
+#@cli : Return a simplified version of the specified string, that can be used as a variable name.
+#@cli : (version that keeps original case of specified string, no longer than 128 chars).
+strcasevar :
+_strvar_fn="c" _strvar "$*"
+_strvar :
+l[] {
+('"$*"':y) f. "c = i; inrange(c,_'0',_'9') || inrange(c,_'a',_'z') ||
+inrange(c,_'A',_'Z') || c==_'_'?"$_strvar_fn":_'_'"
+rows. 0,{min(h,128)-1} autocrop. {'_'}
+if inrange(i,_'0',_'9') i.. ('_') a[-2,-1] y fi
+do h={h} replace_str. "__","_" while h!=$h
+u {t} rm
+}
+#@cli strver : _version,_prerelease
+#@cli : Return the specified version number of the G'MIC interpreter, as a string.
+#@cli : Default value: 'version=$_version' and 'prerelease='.
+strver : skip "${1=},${2=}"
+if isnum("$1")" && $1>0" ver="$1" else ver=$_version noarg fi
+('$ver') r. {2*w-1} f. 'if(x%2,_'.',i)' u {t} rm.
+if s=['$2'];s!=0&&s!='0' u ${}" (pre-release \#"$2")" fi
+#@cli tic
+#@cli : Initialize tic-toc timer.
+#@cli : Use it in conjunction with 'toc'.
+tic :
+e[^-1] "Initialize timer."
+if !narg($_ticpos) _ticpos=0 fi _tic$_ticpos=$| _ticpos+=1
+#@cli toc
+#@cli : Display elapsed time of the tic-toc timer since the last call to 'tic'.
+#@cli : This command returns the elapsed time in the status value.
+#@cli : Use it in conjunction with 'tic'.
+toc :
+v=$^ _ticpos-=1 u {_$|-${_tic$_ticpos}}
+v 0 e[^-1] "Elapsed time: "${}" s". v $v
+#@cli uint82base64 : _encoding={ 0=base64 | 1=base64url }
+#@cli : Encode the values of the latest of the selected images as a base64-encoded string.
+#@cli : The string can be decoded using command 'base642uint8'.
+#@cli : Selected images must have values that are integers in [0,255].
+#@cli : Default values: 'encoding=0'.
+uint82base64 : skip "${1=0}"
+if isnum("$1") encoding=$1 else encoding=0 noarg fi
+{ceil(whds*4/3)+([0,2,1])[whds%3]}
+eval "
+hash = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
+"$encoding"?(hash[62] = _'-'; hash[63] = _'_');
+od = ov = n = 0;
+for (os = 0, os>2]; ov = v; n = 1):
+n==1?(i[#-1,od++] = hash[((ov&3)<<4) | (v>>4)]; ov = v; n = 2):
+(i[#-1,od++] = hash[((ov&15)<<2) | (v>>6)]; i[#-1,od++] = hash[v&63]; n = 0);
+);
+n==1?(i[#-1,od++] = hash[((ov&3)<<4)]; copy(i[#-1,od],_'=',2,1,0); od+=2):
+n==2?(i[#-1,od++] = hash[((ov&15)<<2)]; i[#-1,od++] = _'=');
+"
+u {t} rm.
+#@cli :: Other Interactive Commands
+#@cli demos : _run_in_parallel={ 0=no | 1=yes | 2=auto }
+#@cli : Show a menu to select and view all G'MIC interactive demos.
+demos : check "isint(${1=2}) && $1>=0 && $1<=2" check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+strver=${strver" "$_version,$_prerelease}
+e "\n
+------ "${g}"G\47MIC demos"$n" ------------------\n
+----\n
+---- "${c}"Mouse button"$n" to select a demo.\n
+---- Keys '"${c}"CTRL+D"$n"' to increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' to reset window size.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+-------------------------------------"
+l[] {
+entries="2048 game","Blobs Editor","Bouncing Balls","Connect Four","Fire Effect","Fireworks","Fish-Eye Effect","Fourier Filtering","Tower of Hano\357","Histogram Demo","Hough Transform","Jawbreaker","Virtual Landscape","The Game of Life","Light Effect","Mandelbrot Explorer","3D Metaballs","Minesweeper","Minimal Path","Pacman","Paint","Plasma Effect","RGB Quantization","3D Reflection","3D Rubber Object","Shade Bobs","Spline Editor","3D Starfield","Tetris","Tic-Tac-Toe","Image Waves","Fractal Whirls","Color Curves"
+commands=x_2048,x_blobs,x_bouncing,x_connect4,x_fire,x_fireworks,x_fisheye,x_fourier,x_hanoi,x_histogram,x_hough,x_jawbreaker,x_landscape,x_life,x_light,x_mandelbrot,x_metaballs3d,x_minesweeper,x_minimal_path,x_pacman,x_paint,x_plasma,x_quantize_rgb,x_reflection3d,x_rubber3d,x_shadebobs,x_spline,x_starfield3d,x_tetris,x_tictactoe,x_waves,x_whirl,_demo_color_curves
+nb_entries={narg($entries)}
+parallel_mode={1-if($1!=2,$1,$_cpus>=2)}
+l[] {
+repeat $nb_entries {
+arg0 $>,$entries entry=${}
+0 t. $entry,0,0,24,1,1
+}
+r ${-max_wh},1,1,0,0,0.5,0.5
+frame 12,6,0 a z
++n[0] 0,255
++shift[0] 1,3,0,0 max[0,-1]
++f[0] z+1
+1,1,100%,3,u(128,255) r. 1,[0],[0],3 *. 'y/(h-1)' r. [0],[0],[0],3,3
+200%,200%,1,1,"x = min(x,w-1-x); y = min(y,h-1-y); (x*y/wh)^0.7>0.01"
++dilate. 3 xor.. .
+distance.. 1 c.. 0,2 negate.. distance. 0 c. 0,2
+r2dx[-2,-1] 50% n[-2,-1] 0,1
++[0] ..
+*.. 100 +[1,-2]
+*[2,3] .
+rm.
+frame 4,4,0
+a c s z
+append_tiles 3 s c
+to_rgb[1] a[3-5] c
+0 t. "G\'MIC demos",2,2,32,1,1,1,1
+if $_prerelease 0 t. "Version:\n"$strver,40,1,18,1,1,1,1 rows. 2,100%
+else 0 t. "Version: "$strver,40,1,18,1,1,1,1 rows. -2,100%
+fi
+a[-2,-1] x,0.5
+b. 0.5 n. 0,1
+(255;255^255;16^128;0) r. ..,..,1,3,3 *[-2,-1] round. 1,-1 +!=. 0 channels. 1
+s=8
+r[^-2,-1] 100%,{h+h#0+2*$s+6},1,100%,0,0,0,1
+rectangle[0] 0,$s,100%,{$s+6+h-1},1,0.6
+rectangle[1] 0,$s,100%,{$s+6+h-1},1,120,32,32
+j[0] .,{(w#0-w)/2},{$s+3},0,0,-1
+j[1] ..,{(w#0-w)/2},{$s+3},0,0,1,. rm[-2,-1]
+c[0] 0,1
+=> menu_opac,menu_fgcol,menu_ind,menu_bgcol
+}
+arrow3d 20,20,0,0,0,0,20%,40%,40% col3d. 255,128,0 => cursor3d
+l[] {
+n=16
+chromeball64x64[] 200,100,64 n. 0,230 s. c,-3
+rgb2hsv.. r.. 100%,100%,$n,3 f.. "[z*360/d,G,B]" hsv2rgb..
+N={6*$n} P={2*$N-1}
+i[0] ('CImg3d') i[1] ($N,$P) i[2] 3,$N
+i[3] 2,$N,1,1,"x?y:1" i[4] 3,{$N-1},1,1,"x==0?2:x==1?y:y+1" y[3,4] a[3,4] y
+l[4] {
+s z i[0--2] (-128,{w},{h},3) 4,{$N-$n},1,1,'x==0?-128:x==1?y%$n:0'
+3,{$P-$N},1,1,200 y a y
+}
+l[5] {
+n 0,0.5 i[0] (-128,{w},{h},1) 4,{$N-1},1,1,-128,0,0,0
+1,{$P-$N},1,1,0.25 y a y
+}
+y a y
+=> background3d
+}
+{menu_fgcol,[w,h]},1,3 +plasma. 1,1,5 n. 0,230 water. 100
+(0.1;0.3^0.1;0.2^0.5;0.3) ri. ..,3 *[-2,-1]
+(0;1) r. ..,..,1,1,3 ^. 1.5 n. 0.2,1.15 *[-2,-1] n. 0,128
+=> background
+w. -1,-1,0,"[G'MIC - "$strver"]" cursor 0 w[] -1,-1,0,0,{([{*,u,v}]-[{*,w,h}])/2}
+omb,ind_clicked,cfx,cfy,cfz,alpha=0
+nfx,nfy,nfz={[g,g,g]} time0={$|-4}
+do
+mx,my,mb={menu_fgcol,x={*,x};y={*,y};[x<0?-1:x*(w-1)/({*,w}-1),y<0?-1:y*(h-1)/({*,h}-1),{*,b}]}
+ind={menu_ind,i($mx,$my)}
+if $mb" && "!$ind_clicked ind_clicked=$ind fi
+[background]
+3,$N,1,1,"const t = 0.8*"$|"; const a = "$alpha"; const oma = 1 - a;
+x==0?oma*cos("$cfx"*y + t) + a*cos("$nfx"*y + t):
+x==1?oma*sin("$cfy"*y + t) + a*sin("$nfy"*y + t):
+oma*sin("$cfz"*y + t) + a*sin("$nfz"*y + t)"
+y.
+j[background3d] .,0,8 rm.
++r3d[background3d] 1,2,3,{20*$|} *3d. {menu_fgcol,[w,h]/2-30},300 +3d. 0,0,300
+j3d.. .,50%,50%,0,1,1,0,0,200 rm.
+if $|-$time0>5 alpha+=0.02 fi
+if $alpha>1 alpha-=1 cfx,cfy,cfz=$nfx,$nfy,$nfz nfx,nfy,nfz={[g,g,g]} time0={$|-u*3} fi
+if $ind>0 +==[menu_ind]
+$ind j.. [menu_bgcol],0,0,0,0,{$mb" && "$ind_clicked==$ind?0.6:1},. rm.
+fi
+j. [menu_fgcol],0,0,0,0,1,[menu_opac]
+if $mx>0
++r3d[cursor3d] 1,1.3,0.6,{50*cos($|)}
+j3d.. .,$mx,$my,0,1,4,0,0,800,{-2,[w,h]/2},-1000,0.7 rm.
+fi
+w. -1,-1,0
+if {*,CTRLLEFT}" && "{*,D} w. 150%,150% elif {*,CTRLLEFT}" && "{*,C} w. 100%,100% fi
+rm.
+if !$mb" && "$omb" && "$ind_clicked" && "$ind_clicked==$ind
+m "com : v 1 "${arg\ $ind,$commands} parallel $parallel_mode,"l[] { com rm }" um com
+elif !$mb ind_clicked=0
+fi
+omb=$mb
+wait 20
+while {*}" && "!{*,ESC}" && "!{*,Q}
+rm w 0 } v 0 e ""
+_demo_color_curves :
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+if !narg($__demo_color_curve)
+e "\n
+------ "${g}"Color curves"$n" ----------------------------------------------------------------------------\n
+----\n
+---- "${c}"Left mouse button"$n" on a curve creates a new control point (or moves an existing one).\n
+---- "${c}"Right mouse button"$n" on a control point deletes it.\n
+---- "${c}"Left mouse button"$n" on the main image window shows the initial image until button is released.\n
+---- "${c}"Right mouse button"$n" on the main image window adds a keypoint to all curves from picked color.\n
+---- Key '"${c}"R"$n"' on a curve resets it.\n
+---- Keys '"${c}"CTRL+D"$n"' increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' decrease window size.\n
+---- Keys '"${c}"CTRL+R"$n"' reset window size.\n
+---- Keys '"${c}"ESC"$n"', '"${c}"Q"$n"' or '"${c}"ENTER"$n"' close the current window.\n
+----\n
+------------------------------------------------------------------------------------------------"
+__demo_color_curve=1 l[] { do rm sp ? while s!=3 } x_color_curves rgb __demo_color_curve=
+else
+e "\n
+------ "${g}"Color curves"$n" ----------------------------------------------------------------------------\n
+----\n
+---- Only "${c}"one session"$n" allowed at the same time !\n
+----\n
+------------------------------------------------------------------------------------------------"
+fi
+#@cli tixy : "expression"
+#@cli : Animate specified mathematical expression with a 16x16 grid of circles, using the rules described at .
+tixy : skip "${1=sin(t-sqrt((x-8)^2+(y-8)^2))}" check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r b=$_vt100_b
+if narg("$*") expr="$*" else expr="$1" fi
+l[] {
+('$expr')
+replace_str "%","%25"
+replace_str "&","%26"
+replace_str "(","%28"
+replace_str ")","%29"
+replace_str "+","%2B"
+replace_str ",","%2C"
+replace_str ";","%2C"
+replace_str "/","%2F"
+replace_str "[","%5B"
+replace_str "]","%5D"
+replace_str "|","%7C"
+replace_str "^","**"
+replace_str " ","+"
+url=https://tixy.land?code={t}
+rm
+}
+e "\n
+------ "${g}"tixy"$n" ------------------------------------------------------------------------------------\n
+----\n
+---- tixy - creative code golfing: "${g}"https://tixy.land"$n"\n
+----\n
+---- "$r${b}"Expression:"$n" "$expr"\n
+----\n
+---- "$r${b}"Corresponding URL:"$n" "$url"\n
+----\n
+---- "$r${b}"Rules:"$n"\n
+---- . Specified expression depends on 4 variables "${g}"(t,i,x,y)"$n" and is rendered as an animation.\n
+---- . Variables "${g}"x"$n" and "${g}"y"$n", in range "${c}"[0,15]"$n", are the spatial position of each dot.\n
+---- . Variable "${g}"i"$n", in range "${c}"[0,255]"$n", is the dot index, i.e. "${c}"i = x + 16*y"$n".\n
+---- . Variable "${g}"t>=0"$n" is the (decimal) number of elapsed seconds.\n
+---- . Specified expression "${g}"func(t,i,x,y)"$n" must return a complex value "${c}"c"$n".\n
+---- . Variable "${g}"z"$n" can be used as a shortcut for "${g}"[ x,y ]"$n".\n
+---- . Variable "${g}"j"$n" is the complex imaginary number "${g}"[ 0,1 ]"$n".\n
+---- . "${c}"cabs(c)"$n" in "${g}"[0,1]"$n" determines the radius of each dot at "${c}"(x,y)"$n".\n
+---- . "${c}"carg(c)"$n" in "${g}"[-pi,pi]"$n" determine the color of each dot at "${c}"(x,y)"$n".\n
+----\n
+---- Key '"${c}"SPACE"$n"' starts/stops recording animation as video file '"${c}"out.mp4"$n"'.\n
+---- Key '"${c}"ENTER"$n"' takes a screenshot of current image.\n
+---- Key '"${c}"A"$n"' enables/disables anti-aliasing.\n
+---- Key '"${c}"F"$n"' displays formula on the image.\n
+---- Key '"${c}"R"$n"' resets time.\n
+---- Keys '"${c}"CTRL+D"$n"' increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' decrease window size.\n
+---- Keys '"${c}"CTRL+R"$n"' reset window size.\n
+---- Keys '"${c}"ESC"$n"', '"${c}"Q"$n"' or '"${c}"ENTER"$n"' close the current window.\n
+------------------------------------------------------------------------------------------------"
+w[] 400,400,0,"[G'MIC] tixy: "$expr
+t0=$| is_recording=0 is_antialias=1 is_screenshot=0 is_formula=0 nb_frames=0
+360,1,1,3,[x,abs(cos(x/w*pi))^0.5,1] hsv2rgb. shift. -180,0,0,0,2 => cmap
+strvar $expr basename=${}
+do
+is_ctrl={{*,CTRLLEFT}" || "{*,CTRLRIGHT}}
+if $is_ctrl" && "{*,-D} w[] {1.25*[{*,w,h}]} rmn formula,mformula
+elif $is_ctrl" && "{*,-C} w[] {0.8*[{*,w,h}]} rmn formula,mformula
+elif $is_ctrl" && "{*,R} w[] 400,400 rmn formula,mformula
+elif {*,-A} is_antialias={!$is_antialias}
+elif {*,-F} is_formula={!$is_formula}
+elif {*,R} t0=$|
+elif {*,-SPACE}
+if $is_recording o[] $basename.mp4,15,0,0 nb_frames=0
+else t0=$| fi
+is_recording={!$is_recording}
+elif {*,-ENTER} is_screenshot=1
+fi
+m={min({*,w,h})} _is_antialias={$is_antialias" && "$m<512}
+{m=$m*($_is_antialias?2:1);[m,m]},1,3
+16,16,1,1,">begin(
+const b = w#-1/16;
+const t = "$|-$t0";
+j = [ 0,1 ];
+);
+i = x + 16*y;
+ref([ x,y ],z);
+val = ("$expr");
+n = cabs(val);
+r = floor(0.48*b*cut(n,0,1));
+a = (360+carg(val)*180/pi)%360;
+c = I[#"$cmap",a];
+r>1?ellipse(#-1,b*(x + 0.5),b*(y + 0.5),r,r,0,1,c):
+r>0?ellipse(#-1,b*(x + 0.5),b*(y + 0.5),1,1,0,0.5,c)"
+rm.
+if $_is_antialias r. 50%,50%,1,3,2 fi
+if {*,w}!={*,h} -. 128 r. {*,w,h},1,3,0,0,0.5,0.5 +. 128 fi
+if $is_formula
+if !narg($formula)
+0 t. {``$expr},0,0,48,1,255 frame. 5,5,0 +dilate. 11 max. 128 to_rgb..
+if w>0.75*{*,w} r2dx[-2,-1] {0.75*{*,w}} fi
+mv[-2,-1] 0 =>[0,1] formula,mformula
+fi
+j. [formula],0.5~,1~,0,0,1,[mformula],255
+fi
+if $is_screenshot o. $basename.png is_screenshot=0 fi
+if $is_recording o. $basename.mp4,15,0,1 nb_frames+=1 to. "Recording video\n[Frame \#"$nb_frames"]",0,0,5% fi
+w. rm. wait 40
+while {*}" && "!{*,ESC}" && "!{*,Q}
+rmn cmap,formula,mformula
+w[] 0
+#@cli x_2048
+#@cli : Launch the 2048 game.
+x_2048 : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"2048"$n" -----------------------------------------------\n
+----\n
+---- Join the numbers and get to the "${g}"2048"$n" tile!\n
+----\n
+---- Use your "${c}"arrow keys"$n" to move the tiles. When two tiles\n
+---- with the same number touch, they merge into one!\n
+---- This command is a port of the '"${c}"2048"$n"' game originally\n
+---- designed by "${c}"Gabriele Cirulli"$n", and available at:\n
+---- "${g}"http://gabrielecirulli.github.io/2048/"$n"\n
+----\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+--------------------------------------------------------------"
+l[] {
+score=0 f3d 50 m3d 0
+m "_x_2048_setrandom : +==[0] 0 f. 'if(i,4*y+x,-1)' discard. -1
+off={i[round(u(h-1))]} rm. x={$off&3} y={$off>>2} n={if(u<0.75,1,2)}
+=[0] $n,$x,$y [{2+$n}] c3d.
+repeat 6 { j3d[1] .,{78+$x*121},{190+$y*121},{10*$<},{(1+$>)/6} w[1] wait 20 }
+rm."
+m "_x_2048_object3d : +f[0] 'if(i,i*16+4*y+x,-1)' discard. -1
+N={h} repeat h { v={-{1+$>},@$>} ++3d[{2+($v>>4)}] {$v&3},{($v>>2)&3} }
++3d[-$N--1] rm.."
+i[0] 4,4
+b0=204,192,179 b1=238,228,218 b2=237,224,200 b3=242,177,121
+b4=245,149,99 b5=246,124,95 b6=246,94,59 b7=237,207,114
+c0=119,110,101 c1=249,246,242 s0=" "
+520,630,1,3 fc. 250,248,239
+t. "2048",20,10,86,1,$c0
+t. "Join the numbers and get to the 2048 tile!",20,90,20,1,$c0
+rectangle. 422,20,501,75,1,187,173,160 t. "SCORE",439,25,15,1,238,228,218
+repeat 12 {
+107,107,1,3 fc. ${b{min($>,7)}} +fc. ${c{$>>2}}
+s1={2^$>} 0 t. ${s{$>>0}},0,0,52,1,1
+r. ..,..,1,1,0,0,0.5,0.5 dilate_circ. 3 b. 0.5
+j... ..,0,0,0,0,1,.,1 rm[-2,-1]
+}
+frame_round[2--1] 0,20%,0.5,187,173,160 frame[2--1] 7,7,187,173,160
+to_rgb[2--1]
+r[2] 400%,400%,1,3,0,2 j[1] [2],18,130
+sprite3d[3--1]
+w[1] 100%,100%,0,"[G"{`39`}"MIC] 2048" insert_new=1
+repeat 2 { _x_2048_setrandom }
+do
+if $insert_new
+_x_2048_object3d *3d. 121 j[1] [2],18,130 j3d[1] .,78,190 rm.
+80,25,1,3 fc. $c1 0 t. $score,0,0,25,1,1,1,1 ri. ..,0,0,0.5,0.8
+rectangle[1] 422,45,501,69,1,187,173,160 j[1] ..,422,45,0,0,1,. rm[-2,-1]
+w[1] insert_new=0
+fi
+++[0] 1 f. 'j(-1)==i||j(1)==i||j(0,-1)==i||j(1,0)==i||i==1'
+if {0,iM==11}
+alert "Game Over","\nCongratulations! You got the 2048 title!\n\n Your score: "$score,"OK"
+break
+elif !iM
+alert "Game Over","\nBad luck! You lost the game!\n\n Your score: "$score,"OK"
+break
+fi
+rm.
+wait
+is_shift=0 um shift2048,ishift2048,vshift2048
+if {*,ARROWLEFT}
+m "shift2048:" m "ishift2048:" m "vshift2048:"
+is_shift=1
+elif {*,ARROWRIGHT}
+m "shift2048: rotate 180" m "ishift2048: rotate 180"
+m "vshift2048: s3d l[2] { r 3,{h/3},1,1,-1 s x -[0,1] 3 *[0,1] -1 a x y } a y"
+is_shift=1
+elif {*,ARROWUP}
+m "shift2048: rotate -90" m "ishift2048: rotate 90"
+m "vshift2048: s3d l[2] { r 3,{h/3},1,1,-1 s x rv[0,1] -[0] 3 *[0] -1 a x y } a y"
+is_shift=1
+elif {*,ARROWDOWN}
+m "shift2048: rotate 90" m "ishift2048: rotate -90"
+m "vshift2048: s3d l[2] { r 3,{h/3},1,1,-1 s x rv[0,1] -[1] 3 *[1] -1 a x y } a y"
+is_shift=1
+fi
+if {*,r} w[1] 100%,100% fi
+if $is_shift
+wait -1
+shift2048[0]
+repeat 2 {
+_x_2048_object3d
++s[0] y discard[-4--1] 0 y[-4--1] x r[-4--1] 4,1,1,1,0,0 a[-4--1] y
++==[0,-1] insert_new={$insert_new||!im} rm.
++f[0,-1] 'if(i,x,-1)' discard[-2,-1] -1 rv[-2,-1] -[-2,-1] rv[0,-2] rm..
+if (im||iM)&&!{*,k}
+/. 5 z. 0,2 y.
+repeat 5 {
+j.. .,0,8,0,0,-1
+j[1] [2],18,130 +vshift2048.. *3d. 121 j3d[1] .,78,190 rm.
+w[1] wait 20
+}
+fi
+rm[-2,-1]
+if !$> dscore=0
+[0] +f[0] 'if(i,i*16+4*y+x,-1)' discard. -1
+repeat h {
+x={i[$>]&3} y={(i[$>]>>2)&3} n={i[$>]>>4}
+if $x>0" && "{0,i($x-1,$y)}==$n
+=[0] 0,$x,$y =[0] {$n+1},{$x-1},$y =.. 0,$x,$y insert_new=1 dscore+={2^($n+1)}
+else =. -1,0,$>
+fi
+}
+score+=$dscore
+if iM<0 rm[-2,-1]
+else
+discard. -1
+rv[0,-2] _x_2048_object3d rv[0,-3] vshift2048. *3d. 121
+j[1] [2],18,130 j3d[1] .,78,190 rm[-3,-1]
+N={h} repeat h { v={-{1+$>},@$>} ++3d[{2+($v>>4)}] {$v&3},{($v>>2)&3} }
++3d[-$N--1] rm..
+0 t. +$dscore,0,0,33,1,1 100%,100%,1,3 fc. $c0
+repeat 6 {
++vshift2048... *3d. 121 +j3d[1] .,78,190
+j. ...,440,{40-3*$>},0,0,{min(1,$1
+{0,[w,h]},1,2
+repeat h#1 {
+r={1,i[2]*(1+i[3]*cos(i[4]+i[5]*$|*1000))}
+ellipse. {1,@0,1},$r,$r,0,1,{1,@6-7}
+d={sqrt(($x-{1,@0})^2+($y-{1,@1})^2)}
+if $d<$r nearest=$> fi
+shift[1] 0,-1,0,0,2
+}
+b. 15
++norm. +>=. 50 <=.. 40 *[-3,-1]
++*[0,-1] rm.. rv[-2,-1] *. 1.6 c. 0,255 +[-2,-1]
+if $fps>0 to. $fps" fps",5,{h-29},24,2,0.2 fi
+w.
+if {*,CTRLLEFT}" && "{*,D} w[] {2*[w,h]} elif {*,CTRLLEFT}" && "{*,C} w[] {[w,h]} fi
+rm.
+else
++to[0] "G\47MIC Blobs Editor",75,100,35,3,1,200,128,255
+to. "* Left mouse button : Create and move blobs.\n\n* Right mouse button : Remove blob.\n\n* Middle mouse button : Remove all blobs.\n\n* Key 'ESC' or 'Q' : Quit.\n\n* Colors and sizes of appearing blobs are\n chosen randomly",50,180,18,1,1,255
+w.
+if {*,CTRLLEFT}" && "{*,D} w[] {1.5*[w,h]} elif {*,CTRLLEFT}" && "{*,C} w[] {[w,h]} fi
+rm.
+fi
+wait 20
+if $x<0||$y<0 continue fi
+if $b&1
+if $nearest>=0" || "$moving>=0
+if $moving<0 moving=$nearest fi
+=[1] $x,0,$moving =[1] $y,1,$moving
+else
+($x,$y,{u(20,50)},{u(-0.3,0.3)},{u(0,pi/2)},{u(0,0.009)},{u(64,255)},{u(64,255)}) a[^0] y
+moving={h-1}
+fi
+elif $b&2
+if $nearest>=0 l[1] { s y rm[$nearest] a y } nearest=-1 fi
+elif $b&4
+k[0]
+else
+moving=-1
+fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+rm w 0 }
+#@cli x_bouncing
+#@cli : Launch the bouncing balls demo.
+x_bouncing : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Bouncing balls"$n" ------------------------------\n
+----\n
+---- Keys '"${c}"CTRL+D"$n"' to increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' to reset window size.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+-----------------------------------------------------"
+l[] {
+520,320,1,3 plasma 1,1,9 n 0,220
+N=12
+repeat $N {
+ball[] {round(u(32,80))},${-rgb}
+t$>={u(200)} x$>={0,u(10,w-10)} h$>={u(150,300)} vx$>={if(u<0.5,1,-1)*u(1,8)}
+}
+mv[0] $!
+w. {f=w<0.5*{*,u}?1.5:1;[w,h]*=f},0,"[G"{`39`}"MIC] Bouncing Balls"
+(0;0.7;1) r. {-2,w},70,1,1,3
+do
+[$N]
+repeat $N {
+bw={$>,w} bh={$>,h}
+y={${h$>}*abs(cos(${t$>}*pi/60))-$bh/2}
+dt=1
+if $y<0 d={-$y} y=0 bh-=$d bw+=$d dt={max(0.2,1-($d/$bh)^2)} else dt=1 fi
+if ${x$>}+$bw/2>w
+d={${x$>}+$bw/2-w} bw-=$d bh+={0.5*$d}
+if ${x$>}+$bw/4>w vx$>={-${vx$>}} fi
+fi
+if ${x$>}-$bw/2<0
+d={$bw/2-${x$>}} bw-=$d bh+={0.5*$d}
+if ${x$>}-$bw/4<0 vx$>={-${vx$>}} fi
+fi
++r[$>] $bw,$bh,1,4,3 s. c,-3
+j... ..,{max(0,min({$N,w-$bw},${x$>}-$bw/2))},{{$N,h}-{h}-$y-70},0,0,1,.,255 rm[-2,-1]
+t$>+=$dt
+x$>+={$dt*${vx$>}}
+}
++rows. {h-2*70},{h-1-70} mirror. y *. [{$N+1}]
+j.. .,0,{-2,h-71},0,0,0.5 rm.
+fps=${-fps} if $fps>0 to. $fps" fps",5,{h-29},24,2,0.2 fi
+if {*,CTRLLEFT}" && "{*,D} w[] {1.5*w},{1.5*h} elif {*,CTRLLEFT}" && "{*,C} w[] {w},{h} fi
+w. rm. wait 20
+while {*}" && "!{*,ESC}" && "!{*,Q}
+w 0 rm }
+#@cli x_color_curves : _colorspace={ rgb | cmy | cmyk | hsi | hsl | hsv | lab | lch | ycbcr | last }
+#@cli : Apply color curves on selected RGB[A] images, using an interactive window.
+#@cli : Set 'colorspace' to 'last' to apply last defined color curves without opening interactive windows.
+#@cli : Default value: 'colorspace=rgb'.
+x_color_curves : skip ${1=rgb}
+if ['"$1"']!='last'&&!{*,u} error[0--3] "Command '$0': No display available." return fi
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e[^-1] "Apply color curves of image$?, in the '$1' colorspace."
+if ['"$1"']=='last'
+if !narg($_xcc_colorbase) return fi
+__x_color_curves[] $_xcc_colorbase
+else
+e "\n
+------------------------------------------------------------------------------------------------\n
+----\n
+---- "${c}"Left mouse button"$n" on a curve creates a new control point (or moves an existing one).\n
+---- "${c}"Right mouse button"$n" on a control point deletes it.\n
+---- "${c}"Left mouse button"$n" on the main image window shows the initial image until button is released.\n
+---- "${c}"Right mouse button"$n" on the main image window adds a keypoint to all curves from picked color.\n
+---- Key '"${c}"R"$n"' on a curve resets it.\n
+---- Keys '"${c}"CTRL+D"$n"' increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' decrease window size.\n
+---- Keys '"${c}"CTRL+R"$n"' reset window size.\n
+---- Keys '"${c}"ESC"$n"', '"${c}"Q"$n"' or '"${c}"ENTER"$n"' close the current window.\n
+----\n
+------------------------------------------------------------------------------------------------"
+__x_color_curves[] $1 _xcc_colorbase=$1
+fi
+to_color
+foreach {
+if ['"$1"']!='last'
++r[0] ${fitscreen[]\ {0,[w,h,1]},128,70%},1,100%,3
++l. {
+xcc_goto s c histogram 256,0,255 xcc_info
+}
+__C0= __C1= __C2= __C3= __C4=
+if narg($__xcc_C0) __C0=$__xcc_C0 fi
+if narg($__xcc_C1) __C1=$__xcc_C1 fi
+if narg($__xcc_C2) __C2=$__xcc_C2 fi
+if narg($__xcc_C3) __C3=$__xcc_C3 fi
+if narg($__xcc_C4) __C4=$__xcc_C4 fi
+x={1,({*,u}-560-w)/2} y={1,({*,v}-h)/2}
+if $!==5
+parallel "w[] 256,256,0,0,"$x","$y",\"Curve: "$_title0"\" x_select_function1d... __C0,"$_color0"","w[] 256,256,0,0,"{$x+280}","$y",\"Curve: "$_title1"\" x_select_function1d.. __C1,"$_color1"","w[] 256,256,0,0,"$x","{$y+300}",\"Curve: "$_title2"\" x_select_function1d. __C2,"$_color2"","w. 100%,100%,0,0,"{$x+560}","$y" _x_color_curves[-4]"
+elif $!==6
+parallel "w[] 256,256,0,0,"$x","$y",\"Curve: "$_title0"\" x_select_function1d[-4] __C0,"$_color0"","w[] 256,256,0,0,"{$x+280}","$y",\"Curve: "$_title1"\" x_select_function1d... __C1,"$_color1"","w[] 256,256,0,0,"$x","{$y+300}",\"Curve: "$_title2"\" x_select_function1d.. __C2,"$_color2"","w[] 256,256,0,0,"{$x+280}","{$y+300}",\"Curve: "$_title3"\" x_select_function1d. __C3,"$_color3"","w. 100%,100%,0,0,"{$x+560}","$y" _x_color_curves[-5]"
+elif $!==7
+parallel "w[] 256,256,0,0,"$x","$y",\"Curve: "$_title0"\" x_select_function1d[-5] __C0,"$_color0"","w[] 256,256,0,0,"{$x+280}","$y",\"Curve: "$_title1"\" x_select_function1d[-4] __C1,"$_color1"","w[] 256,256,0,0,"$x","{$y+300}",\"Curve: "$_title2"\" x_select_function1d... __C2,"$_color2"","w[] 256,256,0,0,"{$x+280}","{$y+300}",\"Curve: "$_title3"\" x_select_function1d.. __C3,"$_color3"","w[] 256,256,0,0,"{$x+280}","{$y+600}",\"Curve: "$_title4"\" x_select_function1d. __C4,"$_color4"","w. 100%,100%,0,0,"{$x+560}","$y" _x_color_curves[-6]"
+fi
+k[0]
+fi
+xcc_goto
+repeat s { function1d[] 1,${__xcc_C$>} *. {255%} r. 256,1,1,1,5 c. 0,255 sh[0] $> map. .. rm[-2,-1] }
+xcc_backto
+}
+um xcc_goto,xcc_backto,xcc_info
+_x_color_curves :
+title={0,b} if narg({'{0,x}'}) title=$title.{0,x} fi ('$title') discard. {'~'} title={t} rm.
++drgba. w. 100%,100%,0,"[G"{`39`}"MIC] Image: "$title rm.
+xcc_goto. .
+oC0= oC1= oC2= oC3= oC4= viewmode=0
+do
+wait 100 need_refresh=0
+oviewmode=$viewmode is_ctrl={{*,CTRLLEFT}" || "{*,CTRLRIGHT}} x={*,x} y={*,y}
+if {*,r} need_refresh=1
+elif $is_ctrl" && "{*,-D} w[] {{*,w}*125%},{{*,h}*125%} need_refresh=1
+elif $is_ctrl" && "{*,-C} w[] {{*,w}*80%},{{*,h}*80%} need_refresh=1
+elif $is_ctrl" && "{*,-R} w[] {w},{h} need_refresh=1
+elif {*,b}&1 viewmode={x={*,x};if(x=0" && "$y>=0
+xc={$x*w/{*,w}} yc={$y*h/{*,h}} +z[0] $xc,$yc,$xc,$yc
+repeat s { (${__C$>},{i[$>]/255%},{i[$>]/255%}) r. 2,{w/2},1,1,-1 sort. +,y __C$>={^} rm. }
+rm. wait -1
+else viewmode=0
+fi
+need_refresh={$need_refresh||$oviewmode!=$viewmode}
+repeat s { if ['_${oC$>}']!=['_${__C$>}']
+function1d[] 1,${__C$>} *. {255%} r. 256,1,1,1,5 c. 0,255
++channels[0] $> map. .. j[1] .,0,0,0,$> rm[-2,-1]
+need_refresh=1 oC$>=${__C$>}
+fi }
+if $need_refresh
+if $viewmode==0
++xcc_backto[1]
+elif $viewmode%2
+w2={0,int(w/2)} b={$viewmode==1} +z[{!$b}] 0,{$w2-1} +z[$b] $w2,100%
+xcc_backto.. xcc_backto. a[-2,-1] x line. 50%,0,50%,100%,1,0
+else
++xcc_backto[0]
+fi
+if s>3 drgba. fi w. rm. refresh=0
+fi
+while {*}" && "!{*,ESC}" && "!{*,Q}" && "!{*,SPACE}" && "!{*,ENTER}
+w 0
+repeat 5 { if narg(${__C$>}) __xcc_C$>=${__C$>} __C$>=-1 fi }
+__x_color_curves :
+if ['"$1"']=='rgb'
+_color0="255,180,180" _color1="180,255,180" _color2="180,180,255" _color3="220,220,220"
+_title0=Red _title1=Green _title2=Blue _title3=Alpha
+m "xcc_goto:" m "xcc_backto:"
+m "xcc_info: (0,255;0,0;0,0) (0,0;0,255;0,0) (0,0;0,0;0,255) r[-3--1] 256,3,1,1,3
+a[0,-3] y a[1,-2] y a[2,-1] y"
+elif ['"$1"']=='cmy'
+_color0="180,255,255" _color1="255,180,255" _color2="255,255,100" _color3="220,220,220"
+_title0=Cyan _title1=Magenta _title2=Yellow _title3=Alpha
+m "xcc_goto: s c,-3 rgb2cmy[0] a c" m "xcc_backto: s c,-3 cmy2rgb[0] a c"
+m "xcc_info: (255,0;255,255;255,255) (255,255;255,0;255,255) (255,255;255,255;255,0) r[-3--1] 256,3,1,1,3
+a[0,-3] y a[1,-2] y a[2,-1] y"
+elif ['"$1"']=='cmyk'
+_color0="180,255,255" _color1="255,180,255" _color2="255,255,100" _color3="180,180,180" _color4="220,220,220"
+_title0=Cyan _title1=Magenta _title2=Yellow _title3=Key _title4=Alpha
+m "xcc_goto: s c,-3 rgb2cmyk[0] a c" m "xcc_backto: s c,-4 cmyk2rgb[0] a c"
+m "xcc_info: (255,0;255,255;255,255) (255,255;255,0;255,255) (255,255;255,255;255,0) (255,0) r[-4--1] 256,3,1,1,3
+a[0,-4] y a[1,-3] y a[2,-2] y a[3,-1] y"
+elif ['"$1"']=='hsi'
+_color0="255,220,220" _color1="220,220,220" _color2="180,180,180" _color3="220,220,220"
+_title0=Hue _title1=Saturation _title2=Intensity _title3=Alpha
+m "xcc_goto: s c,-3 rgb2hsi8[0] a c" m "xcc_backto: s c,-3 hsi82rgb[0] a c"
+m "xcc_info: 256,1,1,3,if(!c,x,128) 256,1,1,3,if(!c,0,if(c==1,x,128)) 256,1,1,3,if(!c,0,if(c==1,0,x))
+hsi82rgb[-3--1] permute[-3--1] xcyz a[0,-3] y a[1,-2] y a[2,-1] y"
+elif ['"$1"']=='hsl'
+_color0="255,220,220" _color1="220,220,220" _color2="180,180,180" _color3="220,220,220"
+_title0=Hue _title1=Saturation _title2=Lightness _title3=Alpha
+m "xcc_goto: s c,-3 rgb2hsl8[0] a c" m "xcc_backto: s c,-3 hsl82rgb[0] a c"
+m "xcc_info: 256,1,1,3,if(!c,x,128) 256,1,1,3,if(!c,0,if(c==1,x,128)) 256,1,1,3,if(!c,0,if(c==1,0,x))
+hsl82rgb[-3--1] permute[-3--1] xcyz a[0,-3] y a[1,-2] y a[2,-1] y"
+elif ['"$1"']=='hsv'
+_color0="255,220,220" _color1="220,220,220" _color2="180,180,180" _color3="220,220,220"
+_title0=Hue _title1=Saturation _title2=Value _title3=Alpha
+m "xcc_goto: s c,-3 rgb2hsv8[0] a c" m "xcc_backto: s c,-3 hsv82rgb[0] a c"
+m "xcc_info: 256,1,1,3,if(!c,x,255) 256,1,1,3,if(!c,0,if(c==1,x,128)) 256,1,1,3,if(!c,0,if(c==1,0,x))
+hsv82rgb[-3--1] permute[-3--1] xcyz a[0,-3] y a[1,-2] y a[2,-1] y"
+elif ['"$1"']=='lab'
+_color0="180,180,180" _color1="220,180,220" _color2="220,220,180" _color3="220,220,220"
+_title0=Lightness _title1=Chroma-A _title2=Chroma-B _title3=Alpha
+m "xcc_goto: s c,-3 srgb2rgb[0] apo[0] rgb2lab8,0,4 a c" m "xcc_backto: s c,-3 apo[0] lab82rgb,0,4 rgb2srgb[0] a c"
+m "xcc_info: 256,1,1,3,if(!c,x,128) 256,1,1,3,if(!c,240,if(c==1,x,128)) 256,1,1,3,if(!c,240,if(c==1,128,x))
+lab82rgb[-3--1] permute[-3--1] xcyz a[0,-3] y a[1,-2] y a[2,-1] y"
+elif ['"$1"']=='lch'
+_color0="180,180,180" _color1="220,180,220" _color2="255,220,220" _color3="220,220,220"
+_title0=Lightness _title1=Chroma _title2=Hue _title3=Alpha
+m "xcc_goto: s c,-3 srgb2rgb[0] apo[0] rgb2lch8[0],0,4 a c" m "xcc_backto: s c,-3 apo[0] lch82rgb[0],0,4
+rgb2srgb[0] a c"
+m "xcc_info: 256,1,1,3,if(!c,x,0) 256,1,1,3,if(!c,255,if(c==1,x,128)) 256,1,1,3,if(!c,220,if(c==1,128,x))
+lch82rgb[-3--1] permute[-3--1] xcyz a[0,-3] y a[1,-2] y a[2,-1] y"
+elif ['"$1"']=='ycbcr'
+_color0="180,180,180" _color1="220,220,255" _color2="255,220,220" _color3="220,220,220"
+_title0=Luma _title1=Blue\ chroma _title2=Red\ chroma _title3=Alpha
+m "xcc_goto: s c,-3 rgb2ycbcr[0] a c" m "xcc_backto: s c,-3 ycbcr2rgb[0] a c"
+m "xcc_info: 256,1,1,3,if(!c,x,128) 256,1,1,3,if(!c,128,if(c==1,x,128)) 256,1,1,3,if(!c,128,if(c==1,128,x))
+ycbcr2rgb[-3--1] permute[-3--1] xcyz a[0,-3] y a[1,-2] y a[2,-1] y"
+else error[0--3] "Command 'x_color_curves': Unknown specified color space '$1'."
+fi
+#@cli x_colorize : _is_lineart={ 0 | 1 },_max_resolution={ 0 | >=128 },_multichannels_output={ 0 | 1 },_[palette1],_[palette2],_[grabber1]
+#@cli : Colorized selected B&W images, using an interactive window.
+#@cli : When >0, argument 'max_resolution' defines the maximal image resolution used in the interactive window.
+#@cli : Default values: 'is_lineart=1', 'max_resolution=1024' and 'multichannels_output=0'.
+x_colorize : skip ${1=0},${3=0},${4=0},${5=0},${6=0} check "${2=1024}==0 || $2>=128" check_display $0
+s0="image" s1="lineart" s2="multichannel" s3="merged" use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e[^-1] "Colorize selected B&W "${s{!$1}}"$? interactively, with maximum resolution $2 and "${s{2+!$3}}" output."
+e "\n
+--------------------------------------------------------------------------------------\n
+----\n
+---- "${c}"Left mouse button"$n" creates a new colored control point (or moves an existing one).\n
+---- "${c}"Right mouse button"$n" or key '"${c}"X"$n"' over a control point deletes it.\n
+---- "${c}"Right mouse button"$n" or key '"${c}"P"$n"' anywhere else picks a color from the image.\n
+---- "${c}"Mouse wheel"$n", or keys '"${c}"CTRL+arrows UP/DOWN"$n"' zoom view in/out.\n
+---- '"${c}"CTRL+mouse wheel"$n"', '"${c}"SHIFT+mouse wheel"$n"' or "${c}"arrow keys"$n" move image in zoomed view.\n
+---- Key '"${c}"SPACE"$n"' updates the extrapolated color field.\n
+---- Key '"${c}"TAB"$n"' toggles between markers view modes.\n
+---- Key '"${c}"BACKSPACE"$n"' deletes the last control point added.\n
+---- Key '"${c}"PAGE UP"$n"' increases image contrast.\n
+---- Key '"${c}"PAGE DOWN"$n"' decreases image contrast.\n
+---- Key '"${c}"R"$n"' toggles color replace mode.\n
+---- Keys '"${c}"CTRL+D"$n"' increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' decrease window size.\n
+---- Keys '"${c}"CTRL+R"$n"' reset window size.\n
+---- Keys '"${c}"ESC"$n"', '"${c}"Q"$n"' or '"${c}"ENTER"$n"' exit the interactive window.\n
+----\n
+--------------------------------------------------------------------------------------"
+N=$!
+thread_main="_x_colorize[0] ${1--1}"
+thread_color="w[] 400,320,0,\"Palette: main\" x_select_color[] __color,255,255,255"
+is_palette1=${"is_image_arg[] $4"}
+if $is_palette1
+pass$4 1 ('{b}') discard. {'~'} palette_title1={t} rm.
+thread_palette1="w[] 400,400,0,\"Palette: "$palette_title1"\" x_select_palette["{$!-1}"] __color"
+fi
+is_palette2=${"is_image_arg[] $5"}
+if $is_palette2
+pass$5 1 ('{b}') discard. {'~'} palette_title2={t} rm.
+thread_palette2="w[] 400,400,0,\"Palette: "$palette_title2"\" x_select_palette["{$!-1}"] __color"
+fi
+is_grabber=${"is_image_arg[] $6"}
+if $is_grabber
+pass$6 1 ('{b}') discard. {'~'} palette_grabber={t} rm.
+thread_grabber="w[] ${\"fitscreen[] {[w,h,1]},128,50%\"},0,\"Grabber: "$palette_grabber"\"
+x_grab_color["{$!-1}"] __color"
+fi
+__color=255,255,255
+if !$is_palette1" && "!$is_palette2" && "!$is_grabber
+foreach[0-{$N-1}] { parallel $thread_main,$thread_color }
+else
+repeat $N { l[$>,$N--1] {
+parallel $thread_main,$thread_color,$thread_palette1,$thread_palette2,$thread_grabber
+} }
+fi
+k[0-{$N-1}]
+_x_colorize :
+name={n} title={b} if narg({x}) title=$title.{x} fi
+w={w} h={h}
+if $1
+if s==4 sh. 3 if abs(im-iM)>64 +*. -1 rm.. +. 255 else rm. sh. 0 fi
+else sh. 0
+fi
+n 0,255
+else
+if s==1 sh. 0
+else +luminance.
+fi
+fi
+=> img
+fdim=${fitscreen[]\ $w,$h} ww={arg(1,$fdim)} wh={arg(2,$fdim)} x0=0 y0=0 x1={w-1} y1={h-1}
+selection=-1 view_markers=2 contrast=9 xpan=-1 ypan=-1 replace_color= current_replace_color=
+if narg($_gui_control_points)>=6
+($_gui_control_points) r. {w/6},6,1,1,-1
+else 0
+fi
+=> points
+if $2>0 if $w>$h +r2dx[img] {min($2,$w)},2 else +r2dy[img] {min($2,$h)},2 fi else [img] fi
+__x_colorize. $1
+pw={potential,w} ph={potential,h}
+do
+if narg($replace_color)" && "{*,x}<0" && "{*,y}<0 wait 200 else wait fi
+x={*,x} y={*,y} b={*,b} o={*,-o}
+is_ctrl={{*,CTRLLEFT}" || "{*,CTRLRIGHT}}
+is_shift={{*,SHIFTLEFT}" || "{*,SHIFTRIGHT}}
+is_mouseout={$x<0" || "$y<0}
+x={$x0+$x*($x1-$x0+1)/$ww} y={$y0+$y*($y1-$y0+1)/$wh}
+oww=$ww owh=$wh ox0=$x0 oy0=$y0 ox1=$x1 oy1=$y1
+if {*,r}
+nww={*,d} nwh={*,e} m={min($nww,$nwh)}
+cx={($x0+$x1)/2} cy={($y0+$y1)/2} dx={$nww*($x1-$x0+1)/$ww} dy={$nwh*($y1-$y0+1)/$wh}
+x0={$cx-$dx/2} x1={$cx+$dx/2}
+y0={$cy-$dy/2} y1={$cy+$dy/2}
+ww=$nww wh=$nwh
+elif $is_ctrl" && "{*,-D}
+nww={min({*,u},$ww*1.25)} nwh={min({*,v},$wh*1.25)} m={min($nww,$nwh)}
+if $m==$nww ww=$m wh={$h*$m/$w} else ww={$w*$m/$h} wh=$m fi
+elif $is_ctrl" && "{*,-C}
+nww={$ww/1.25} nwh={$wh/1.25}
+if min($nww,$nwh)>=64 ww=$nww wh=$nwh fi
+elif $is_ctrl" && "{*,R}
+fdim=${fitscreen[]\ $w,$h} ww={arg(1,$fdim)} wh={arg(2,$fdim)}
+x0=0 y0=0 x1={$w-1} y1={$h-1}
+elif ($is_shift" && "$o<0)" || "{*,ARROWLEFT}
+dx={($x1-$x0)/6} x0-=$dx x1-=$dx
+elif ($is_shift" && "$o>0)" || "{*,ARROWRIGHT}
+dx={($x1-$x0)/6} x0+=$dx x1+=$dx
+elif ($is_ctrl" && "$o>0)" || "({*,ARROWUP}" && "!$is_ctrl)
+dy={($y1-$y0)/6} y0-=$dy y1-=$dy
+elif ($is_ctrl" && "$o<0)" || "({*,ARROWDOWN}" && "!$is_ctrl)
+dy={($y1-$y0)/6} y0+=$dy y1+=$dy
+elif $o>0" || "($is_ctrl" && "{*,ARROWUP})
+if $x1-$x0>16" && "$y1-$y0>16
+cx={if($x>=0" && "!{*,ARROWUP},$x,($x0+$x1)/2)}
+cy={if($y>=0" && "!{*,ARROWUP},$y,($y0+$y1)/2)}
+x0={$cx+($x0-$cx)*0.75} y0={$cy+($y0-$cy)*0.75}
+x1={$cx+($x1-$cx)*0.75} y1={$cy+($y1-$cy)*0.75}
+fi
+elif $o<0" || "($is_ctrl" && "{*,ARROWDOWN})
+zfactor={max(($x1-$x0+1)/$w,($y1-$y0+1)/$h)}
+if $zfactor<1.3
+cx={if($x>=0" && "!{*,ARROWDOWN},$x,($x0+$x1)/2)}
+cy={if($y>=0" && "!{*,ARROWDOWN},$y,($y0+$y1)/2)}
+x0={$cx+($x0-$cx)/0.75} y0={$cy+($y0-$cy)/0.75}
+x1={$cx+($x1-$cx)/0.75} y1={$cy+($y1-$cy)/0.75}
+dx={$zfactor^2*($w-$x0-$x1)/2} dy={$zfactor^2*($h-$y0-$y1)/2}
+x0+=$dx x1+=$dx y0+=$dy y1+=$dy
+else
+dx={($w-$x0-$x1)/2} dy={($h-$y0-$y1)/2}
+x0+=$dx x1+=$dx y0+=$dy y1+=$dy
+fi
+elif $b&4" && "!$is_mouseout
+if $panx<0" && "$pany<0 panx=$x pany=$y
+else dx={round($panx-$x)} dy={round($pany-$y)} x0+=$dx y0+=$dy x1+=$dx y1+=$dy
+fi
+else panx=-1 pany=-1
+fi
+if $ww!=$oww" || "$wh!=$owh" || "$ox0!=$x0" || "$oy0!=$y0" || "$ox1!=$x1" || "$oy1!=$y1 rm[baseview] fi
+N={points,w}
+if narg($baseview)" && "($b&3" || "{*,X}" || "{*,P})" && "$x>=0" && "$y>=0" && "$x<$w" && "$y<$h
+if $selection==-1" && "$N
+($x;$y) r. $N,2 -. [points] *. {max($ww,$wh)/max($x1-$x0,$y1-$y0)} sqr. s. y +[-2,-1]
+dmin={im} selection={if($dmin>25,-1,xm)} rm.
+fi
+if narg($replace_color)
+replace_color= wait -1
+elif $selection>=0
+if $b&1" && "$view_markers
++columns[points] $selection ox={i[0]} oy={i[1]} =. $x =. $y,0,1 j[points] .,$selection rm.
+rm[view]
+elif ($b&2" || "{*,X})" && "$view_markers
+if $N>1 +z[points] {$selection+1},100% j[points] .,$selection rm. r[points] {$N-1},100%,1,1,0
+else rm[points] 0 => points fi
+wait -1 rm[view]
+fi
+elif $b&1
+($x;$y;0) ($__color) y. y +. 1 a[-2,-1] y a[points,-1] x selection=$N
+if !$view_markers view_markers=2 fi
+rm[view]
+elif $b&2" || "{*,P}
+__color={colors,I($x*$pw/$w,$y*$ph/$h)}
+fi
+else selection=-1
+if {*,-SPACE}" && "narg($colors) replace_color= rm[colors]
+elif {*,-TAB} view_markers={($view_markers-1)%3} rm[view] wait -1
+elif !$is_ctrl" && "{*,-R}
+if narg($replace_color) replace_color= else replace_color=$__color fi
+rm[baseview] wait -1
+elif {*,PAGEDOWN} contrast={max(0,$contrast-1)} rm[view] wait -1
+elif {*,PAGEUP} contrast={min(9,$contrast+1)} rm[view] wait -1
+elif {*,BACKSPACE}" && "$N
+if $N>1 z[points] 0,{$N-2} else i=$points rm[points] i[$i] 0 =>[$i] points fi
+rm[view] wait -1
+fi
+fi
+w2={round(($x1-$x0)/2)} h2={round(($y1-$y0)/2)}
+if $x0<-$w2 x1-={$x0+$w2} x0=-$w2 fi
+if $y0<-$h2 y1-={$y0+$h2} y0=-$h2 fi
+if $x1>=$w+$w2 x0+={$w-1+$w2-$x1} x1={$w-1+$w2} fi
+if $y1>=$h+$h2 y0+={$h-1+$h2-$y1} y1={$h-1+$h2} fi
+if !narg($colors)
+N={points,w}
+if narg($view) to[view] "Processing...",5,5,20,2 w[view] fi
+if $N
+[points]
+sh. 0,0,0,0 *. {$pw/$w} rm.
+sh. 1,1,0,0 *. {$ph/$h} rm.
+pointcloud. -1,$pw,$ph
++compose_channels. max !=. 0 distance. 1 *. 0.02 +. 1 ^. -1 +. [potential]
+if !$1 dilate.. 3 fi
+watershed.. . rm. -. 1
+else [potential],[potential],1,3,255
+fi
+=> colors
+if narg($baseview) rm[baseview] fi
+fi
+if !narg($replace_color)" && "narg($points_replaced)
+rm[points,colors,view] =>[colors_replaced] colors =>[points_replaced] points current_replace_color=
+elif narg($replace_color)" && "['$__color']!=['$current_replace_color']
+if narg($colors_replaced) rm[colors_replaced,points_replaced] fi
+current_replace_color=$__color
+if {points,w}
++replace_color[colors] 0,0,$replace_color,$current_replace_color
++rows[points] 3,5 permute. xzcy -. 1
+replace_color. 0,0,$replace_color,$current_replace_color
++. 1 permute. xcyz +j[points] .,0,3 rm..
+else 0 0
+fi
+=> colors_replaced,points_replaced
+if narg($baseview) rm[baseview] fi
+fi
+if !narg($baseview)
+nx0={$x0*$pw/$w} ny0={$y0*$ph/$h}
+nx1={$x1*$pw/$w} ny1={$y1*$ph/$h}
++z[img] $x0,$y0,$x1,$y1
+r. $ww,$wh,1,100%,{if($ww baseview
+if narg($view) rm[view] fi
+fi
+if !narg($view)
+[baseview] r. 100%,100%,1,3
+if $contrast<9 /. {10-$contrast} +. {128*(1-1/(10-$contrast))} fi
+if $view_markers
+if $view_markers==2 rad1=5 rad2=3 else rad1=3 rad2=2 fi
+if narg($replace_color)" && "{points,w} ipoints=$points_replaced else ipoints=$points fi
+repeat w#$ipoints {
++columns[$ipoints] $>
+x={(i[0]-$x0)*$ww/(1+$x1-$x0)}
+y={(i[1]-$y0)*$wh/(1+$y1-$y0)}
+col={i[3]-1},{i[4]-1},{i[5]-1}
+rm.
+circle. $x,$y,$rad1,1,0 circle. $x,$y,$rad2,1,$col
+}
+fi
+if narg($replace_color)
+to. "Replace by",5,5,20,2
+rectangle. 80,8,111,25,1,0 rectangle. 82,10,109,23,1,$replace_color
+rectangle. 150,8,181,25,1,0 rectangle. 152,10,179,23,1,$current_replace_color
+fi
+=> view
+w[view] $ww,$wh,0,$title
+fi
+while {*}" && "!{*,ESC}" && "!{*,Q}" && "!{*,ENTER}
+if narg($view) to[view] "Processing fullres...",5,5,20,2 w[view] fi
+k[0,img,points]
+N={points,w} status=
+if $N
+status={points,^}
+[img] __x_colorize. $1
+pointcloud[points] -1,$w,$h
++compose_channels[points] max !=. 0 distance. 1 *. 0.02 +. 1 ^. -1 +[potential,-1]
+if !$1 zfact={{img,max(w,h)}/{potential,max(w,h)}} dilate[points] {int(3*$zfact)} fi
+watershed[points] [potential] -[points] 1 =>[points] colors
+else [img],[img],1,3,255 => colors
+fi
+if $3
+k[0,colors] a c
+else
+k[0,img,colors]
+if $1 +*[img] -1 +. 255 channels. -3,0 blend[colors,-1] alpha rm[0,img]
+else rgb2ycbcr[colors] j[colors] [img],0,0,0,0 rm[0,img] ycbcr2rgb[colors]
+fi
+fi
+a c => $name
+__color=-1
+u $status
+w 0
+__x_colorize :
+if $1
+n. 0,1 ^. 5 repeat 4 { +b. 0.5% min }
+else
+gradient_norm. n. 0,255 normalize_local. 3,3 *. -1 n. 0,255
+b. 0.05% n. 0,1 sqr. +b. 0.5% n[-2,-1] 0,1 min[-2,-1]
+fi
+=> potential
+#@cli x_connect4
+#@cli : Launch the Connect Four game.
+x_connect4 : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Connect Four"$n" --------------------------------------------\n
+----\n
+---- Connect four tokens in a row, column or diagonally\n
+---- to win the game.\n
+----\n
+---- "${c}"Left mouse button"$n" on a column inserts a new token.\n
+---- Keys '"${c}"SPACE"$n"' or '"${c}"ENTER"$n"' lets the computer play the turn\n
+---- (or restart game when it's over).\n
+---- Key '"${c}"ENTER"$n"' also enables autoplay for the current player.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' close the window.\n
+----\n
+----------------------------------------------------------------"
+l[] {
+7,6 => board
+R={board,u={*,u};v={*,v};int(0.5*min(u/w,v/h))}
+{2*$R},{2*$R} circle. 50%,50%,32%,1,1 b. 2% g. xy +[-2,-1] n. 0,1
++n. -1,0.5 abs. negate. +f. 200 rv[-3--1] a[-3--1] c hsv2rgb.
+to_rgba. circle. 50%,50%,27%,1,0
+{4*$R},{4*$R} circle. 50%,50%,20%,1,1 b. 1% g. xy +[-2,-1] n. 0,1 negate.
+sqrt. +n. -1,0.8 abs. negate. +f. 10 rv[-3--1] a[-3--1] c
+. sh. 0 f. 60 rm. hsv2rgb[-2,-1]
+100%,100% circle. 50%,50%,30%,1,255 a[-3,-2] .,c rm.
+r2dx[-3--1] $R s[-3--1] c,-3 rm...
+n[^0] 0,255 round[^0] =>[^0] cache,cachem,token0,token1,tokenm
++b[cachem] 2% shift. 1%,1%,0,0,2 max[cachem,-1]
+r[cache,cachem] 100%,{board,h*100}%,1,100%,0,2
+evalf="const op = 3 - p;
+case(dx,dy) = (
+pgood = pbad = 0;
+for (k = -2, k<2, ++k,
+X = x + k*dx;
+Y = y + k*dy;
+if (X>=0 && X=0 && Y=0 && val==op, pgood = -1, pgood+=!!val);
+if (pbad>=0 && val==p, pbad = -1, pbad+=!!val);
+);
+);
+pgood = arg(2 + pgood,0,1,2,4,100,1e8);
+pbad = arg(2 + pbad,0,1,2,4,10000,1e8);
+pgood - pbad;
+);
+case(1,0) + case(0,1) + case(1,1) + case(1,-1)"
+do
+if !narg($visu)
+{board,[w,h]*$R},1,3,64
+repeat h#$board { y=$>
+repeat w#$board { x=$>
+val={board,i($x,$y)} if $val j. [token{$val-1}],{$x*$R},{$y*$R},0,0,1,[tokenm],255 fi
+}
+}
++r[cache,cachem] {board,[w,h]*$R},1,100%,0,2 a[-2,-1] c blend[-2,-1] alpha
+=> visu w[visu] 100%,100%,0,"[G'MIC] Connect Four"
+turn=0 is_falling=0 x=-1 yv=0 dyv=0 winner=
+autoplayer0=0 autoplayer1=0
+fi
+if !narg($ymax)
+{board,w},1,1,1,"y = -1; repeat (h#"$board",k, if(!i(#"$board",x,k),y = k)); y" => ymax
+if iM<0 winner=-1,-1,-1 fi
+fi
+if narg($winner)
+[visu] => tmpvisu
+x={arg(1,$winner)} y={arg(2,$winner)} c={arg(3,$winner)}
+if $x<0
+if !narg($text)
+0 t. "Draw game",0,0,57,1,1 r2dx. {tmpvisu,w/2} expand_xy. 3,0 +dilate. 5 n.. 0,255 to_rgb..
+=> text,textm
+fi
+j[tmpvisu] [text],{tmpvisu,([w,h]-[w#$text,h#$text])/2},0,0,{0.7+0.3*sin(5*$|)},[textm]
+else
+repeat 4 {
+[token$turn]
+rgb2hsv. sh. 1,2 +. {0.4*sin(5*$|)} c. 0,1 rm. hsv2rgb.
+j. [cache],0,0,0,0,1,[cachem],255
+j[tmpvisu] .,{$R*[$x,$y]},0,0,1 rm.
+x+={$c!=2?1:0} y+={$c==1?0:$c==4?-1:1}
+}
+fi
+w[tmpvisu] 100%,100% rm[tmpvisu] wait 20
+if {*,-SPACE}" || "{*,-ENTER}
+rm[visu,ymax] f[board] 0 winner=
+fi
+elif !$is_falling
+if !${autoplayer$turn}
+x={visu,X={*,x};X<0?X:int(X*w#$board/w)}
+yM={i("#"$ymax,$x)}
+if {board,$x<0" || "$x>=w} w[visu] 100%,100%
+else
+[visu] $R,100%,1,3,($yM>=0?1:0)*($turn?[255,255,0]:[255,0,0])
+j.. .,{$x*$R},0,0,0,{$yM>=0?0.15:0.3} rm.
+w. 100%,100% rm.
+fi
+wait
+fi
+if {*,-b}&1" && "$yM>=0" && "$x>=0 is_falling=1 yv=0 dyv=1
+elif ${autoplayer$turn}" || "{*,-SPACE}" || "{*,ENTER}
+if {*,-ENTER} autoplayer$turn=1 fi
+max_score=-inf max_col=
+repeat w#$board { move1=$>
+yM1={i("#"$ymax,$move1)}
+if $yM1>=0
++=[board] {1+$turn},$move1,$yM1 => board1
+{board,w},1,1,1,"y = -1; repeat (h#"$board1",k, if(!i(#"$board1",x,k),y = k)); y" => ymax1
+opp_max_score=-inf opp_max_board={board,^}
+opp_turn={($turn+1)%2}
+repeat w#$board { move2=$>
+yM2={i("#"$ymax1,$move2)}
+if $yM2>=0
++=[board1] {1+$opp_turn},$move2,$yM2
++f. "const p = 1 + "$opp_turn"; "$evalf score={is+u} rm.
+if $score>$opp_max_score opp_max_score=$score opp_max_board={^} fi
+rm.
+fi
+}
+rm[board1,ymax1]
+{board,[w,h,1,1]},$opp_max_board
+f. "const p = 1 + "$turn"; "$evalf score={is+u} rm.
+if $score>$max_score max_score=$score max_col=$move1 fi
+fi
+}
+x=$max_col is_falling=1 yv=0 dyv=1
+fi
+else
+if !narg($column)
+$R,{board,h*$R},1,3,64
+repeat h#$board { v={board,i($x,$>)} if $v j. [token{$v-1}],0,{$>*$R},0,0,1,[tokenm],255 fi }
+=> column
+fi
+yM={i("#"$ymax,$x)}
+[column]
+j. [token$turn],0,$yv,0,0,1,[tokenm],255
+j. [cache],0,0,0,0,1,[cachem],255
+[visu] => tmpvisu
+j[tmpvisu] ..,{$R*$x},0,0,0 rm.. w[tmpvisu] 100%,100%
+if $yv>=$yM*$R
+j[visu] [tmpvisu] is_falling=0
+=[board] {$turn+1},$x,$yM
+rm[ymax,column]
++f[board] "if (!i,0,
+case_h = i==j(1) && i==j(2) && i==j(3);
+case_v = i==j(0,1) && i==j(0,2) && i==j(0,3);
+case_d1 = i==j(1,1) && i==j(2,2) && i==j(3,3);
+case_d2 = i==j(1,-1) && i==j(2,-2) && i==j(3,-3);
+case_h?1:case_v?2:case_d1?3:case_d2?4)"
+if iM winner={[xM,yM,i(xM,yM)]}
+else turn={($turn+1)%2}
+fi
+rm.
+fi
+rm[tmpvisu]
+yv={min($yM*$R,$yv+$dyv)} dyv+={visu,h/100}
+wait 20
+fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+rm w 0 }
+#@cli xz : eq. to 'x_crop'
+xz :
+_gmic_s="$?" v + _x_crop
+#@cli x_crop
+#@cli : Crop selected images interactively.
+#@cli : (eq. to 'xz').
+x_crop :
+_gmic_s="$?" v + _$0
+_x_crop :
+e[0--3] "Crop image"$_gmic_s" interactively."
+foreach {
+w ${"fitscreen "{[w,h,d]}},1,"[G'MIC] "{n}" - Interactive crop"
++select 2,{round([w,h,d]/2)},0,1 u={^} z.. $u rm.
+w[] 0 is_change
+}
+u $u
+#@cli x_cut
+#@cli : Cut selected images interactively.
+x_cut :
+e[^-1] "Cut image"$_gmic_s" interactively."
+foreach {
+wsiz0=${"fitscreen ."}
+value0,value1=-1,-1
+w[] $wsiz0,0,"[G'MIC] "{n}" - Interactive cut"
+0
+for {*}" && "!{*,ESC} {
+if [w#1,h#1]!=[{*,w,h}] # Generate image view
+rm[1] +slices[0] 50% r. {*,w,h},1,100%,1 w.
+fi
+mx,my,mb={*,x,y,b}
+if $mb" && "$mx>=0" && "$my>=0
+value0,value1={"dw1 = "{*,w}" - 1; value0 = "$mx"*100/dw1;
+dh1 = "{*,h}" - 1; value1 = "$my"*100/dh1;
+[ value0,value1 ];"}
+update_view=1
+fi
+if $update_view
+if $value0>=0" && "$value1>=0
++c[1] $value0%,$value1% n. 0,255
+to. "Min: "{_round($value0,0.1)}%"\n""Max: "{_round($value1,0.1)}%,1%,1%,{max(13,3.5*h%)}
+w. rm.
+else w.
+fi
+update_view=0
+fi
+wait
+if {*,r} update_view=1 fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,D}
+w[] {{*,w}*1.5},{{*,h}*1.5} wait -1 update_view=1
+fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,C}
+w[] {{*,w}/1.5},{{*,h}/1.5} wait -1 update_view=1
+fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,R}
+w[] $wsiz0 wait -1 update_view=1
+fi
+}
+w[] 0 rm. u $value0%,$value1% c ${}
+}
+#@cli x_fire
+#@cli : Launch the fire effect demo.
+x_fire : skip "${1=}" check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Fire effect"$n" ------------------------\n
+----\n
+---- Keys '"${c}"CTRL+D"$n"' to increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' to reset window size.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+-------------------------------------------"
+if "['$1']==0" label="G\47MIC" is_fps=1 else label="$1" is_fps=0 fi
+i[0] 100,32 w[0] {[4.5*w,6.75*h]},0,"[G"{`39`}"MIC] Fire Effect"
+if {*,w}<0.5*{*,u} w[] {[{*,w},{*,h}]*1.5} fi
+i[1] (0,255,255,255,255^0,0,255,255,255^0,0,0,128,255) r[1] 256,1,1,3,3
+i[2] (0,0,0;0,0,0;1,1,1;0,1,0) *[2] 0.21
+text3d $label,33,3,1
+mv. 3 c3d[3] n3d[3] *3d[3] 320 col3d[3] 255,205,130 db3d 0 f3d 300
+100,100 rand. 0,255 ellipse. 50%,50%,5,5,0,1,300 b. 10
+sharpen. 1000 shrink_xy. 1 n. 0,255 to_rgb. light3d . rm.
+angle=0
+do
+correlate[0] [2]
+{0,w},1 rand. 128,256 j[0] .,0,{{0,h}-1} rm.
++r[0] 400,200,1,1,3 map. [1]
++r3d[3] 0,1,0,$angle j3d.. .,50%,50%,0,1,5,0,0
+*3d. 0.25,0.16,1 j3d[0] .,50%,50%,0,1,3,0,0
+rm.
+angle+=3
+if $is_fps
+fps=${-fps} if $fps>0 to. $fps" fps",5,{h-22},16,1,0.2 fi
+fi
+w.
+if {*,CTRLLEFT}" && "{*,D} w[] {1.5*[w,h]} elif {*,CTRLLEFT}" && "{*,C} w[] {[w,h]} fi
+rm. wait 40
+while {*}" && "!{*,ESC}" && "!{*,Q}
+rm[0-3] w 0
+#@cli x_fireworks
+#@cli : Launch the fireworks demo.
+x_fireworks : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Fireworks"$n" --------------------------\n
+----\n
+---- Keys '"${c}"CTRL+D"$n"' to increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' to reset window size.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+--------------------------------------------"
+l[] {
+(16;64^64;32^128;32) r 320,160,1,3,3
+.
+w. ${"fitscreen .,35%"},0,"[G"{`39`}"MIC] Fireworks"
+time=0
+do
+time-=1
+if $!==2\ ||\ $time<0
+i[0] ({u(w)},\
+{h},\
+{u(-3,3)},\
+{u(2)-5},\
+{30+u(20)},\
+1.5,\
+255,255,255)
+time={u(20)}
+fi
+*. 0.99
+j. ..,0,0,0,0,0.2
+i=0
+repeat $!-2 {
+to_be_removed=0
+radius={if({$i,@4}>0,{$i,@5}/3,{$i,@5}*(1+2*({$i,@4}+2)/120))}
+ellipse. {$i,@0},{$i,@1},{$i,@5},{max(1,$radius)},{atan2({$i,@3},{$i,@2})*180/pi},0.6,{$i,@6-8}
+({$i,@2},{$i,@3},0,0.09,-1,0,0,0,0) +[$i,-1]
+if {$i,@0}<0\ ||\ {$i,@0}>=w\ ||\ {$i,@1}>=h\ ||\ $radius<0 to_be_removed=1 fi
+if {$i,@4}<0\ &&\ {$i,@4}>=-1
+color={min(255,80+u(200))},{min(255,80+u(200))},{min(255,80+u(200))}
+radius={u(10)}
+N={5+u(10)}
+repeat $N {
+angle={$>*2*pi/$N}
+i... ({$i,@0,1},{2*cos($angle)+{$i,@2}/1.5},{2*sin($angle)+{$i,@3}/1.5},-2,$radius,$color)
+}
+to_be_removed=1
+fi
+if $to_be_removed rm[$i] else i+=1 fi
+}
+fps=${-fps} if $fps>0 to. $fps" fps",3,{h-20},14,1,0.2 fi
+w. wait 20
+if {*,CTRLLEFT}" && "{*,D} w[] {3*w},{3*h} elif {*,CTRLLEFT}" && "{*,C} w[] {1.5*w},{1.5*h} fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+rm w 0 }
+#@cli x_fisheye
+#@cli : Launch the fish-eye effect demo.
+x_fisheye : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Fish-eye effect"$n" --------------------\n
+----\n
+---- "${c}"Mouse pointer"$n" moves fish-eye center.\n
+---- "${c}"Mouse buttons"$n" set fish-eye size.\n
+---- Keys '"${c}"CTRL+D"$n"' to increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' to reset window size.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+-------------------------------------------"
+if $!>0 a x n 0,255 r2dy 220 else
+120,90,1,3 rand. 0,255 plasma. 0.3,3 n 0,255
+t " G\47MIC\nFISH-EYE\n EFFECT",20,13,23,1,255 scale3x b 5 sharpen 1000
+f i+150-3*abs(y-h/2) c. 0,255 frame_fuzzy. 15,10,15,1.5,0 to_rgb.
+fi
+torus3d 20,6 col3d. {u(30,255)},{u(30,255)},{u(30,255)} +r3d. 1,0,0,90
+col3d. {u(30,255)},{u(30,255)},{u(30,255)} +3d. 15 +3d[-2,-1] *3d. 4 db3d 0 c3d.
+R=30
+w.. {1.25*{-2,w}},{1.25*{-2,h}},0,"[G"{`39`}"MIC] Fish-Eye Effect"
+do
+wait 40
+if {*,b}==1 R={min(80,$R+8)} fi
+if {*,b}==2 R={max(3,$R-8)} fi
++j3d.. .,{50+30*cos($|*2.5)}%,{50+30*sin($|*1.6)}%,{80+230*sin($|*2.6)},0.7,3,0,0 r3d.. 1,0.2,0.6,3
+if {*,x}>=0
+fisheye. {{*,x}*100/{*,w}},{{*,y}*100/{*,h}},$R
+fi
+w.
+if {*,CTRLLEFT}" && "{*,D} w[] {3*w},{3*h} elif {*,CTRLLEFT}" && "{*,C} w[] {1.5*w},{1.5*h} fi
+rm.
+if {*}==0" || "{*,ESC}" || "{*,Q} rm[-2,-1] w 0 return fi
+while 1
+#@cli x_fourier
+#@cli : Launch the fourier filtering demo.
+x_fourier : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Fourier-filtering"$n" ----------------------------------------\n
+----\n
+---- "${c}"Mouse buttons"$n" on the right image to set min/max frequencies.\n
+---- Keys '"${c}"CTRL+D"$n"' to increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' to decrease window size.\n
+---- Keys '"${c}"CTRL+R"$n"' to reset window size.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+-----------------------------------------------------------------"
+if !$! sp ? r2dx 400 fi
+foreach {
+need_update=1
+freqmin=0
+freqmax=100
+if w>3*{*,u}/5 r2dx. {3*{*,u}/10} fi
+if h>3*{*,v}/5 r2dy. {3*{*,v}/5} fi
++fft. => real,imag
++sqr[real,imag] +[-2,-1] sqrt. +. 1 log.
+n. 0,255 shift. {round(w/2)},{round(h/2)},0,0,2 to_colormode. {-2,s}
+=> logmag
++r2dy. 128 frame. 1,1,0 => thumb
+w[0,-2] -1,-1,0,"[G"{`39`}"MIC] Fourier Filtering"
+l {
+if !narg($first_time)
+parallel 0,"alert[thumb] \"[G"{`39`}"MIC Fourier Filtering]\",\"The G\47MIC Fourier filtering demo illustrates the effect\nof bandpass frequency filtering on an image. Use your mouse\nbuttons to select low and high bounds for the frequencies\ndisplayed on the Fourier representation of the image\n(right image).\",\"OK\""
+first_time=0
+fi
+do
+if $need_update
+[logmag],[logmag] => mask
+r={sqrt(w^2+h^2)*$freqmax/200} ellipse[mask] 50%,50%,$r,$r,0,1,1
+r={max(0,sqrt(w^2+h^2)*$freqmin/200-1)} if $r ellipse[mask] 50%,50%,$r,$r,0,1,0 fi
++*[logmag] [mask] +. [mask] /. 2 n. 0,255
+shift[mask] -{mask,round(w/2)},-{mask,round(h/2)},0,0,2
++*[real,imag] [mask]
+rm[mask]
+ifft[-2,-1] rm. n. 0,255
+rv[-2,-1]
+if {*} r[-2,-1] {{*,w}/2},{*,h} fi
+t. "Freq. Min/Max = "{int($freqmin)}"% / "{int($freqmax)}"%",5,5,13,1,255
+w[-2,-1] rm[-2,-1]
+need_update=0
+fi
+wait
+if {*,b}" && "{*,x}>={*,w}/2
+r={200*sqrt(({*,x}-3*{*,w}/4)^2+({*,y}-{*,h}/2)^2)/\
+sqrt(({*,w}/2)^2+{*,h}^2)}
+if {*,b}&1 freqmax=$r
+else freqmin={max(0,$r-3)}
+fi
+if $freqmin>=$freqmax freqmin=$freqmax fi
+need_update=1
+fi
+if {*,r} need_update=1 fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,D} w[] {{*,w}*1.5},{{*,h}*1.5} need_update=1 fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,C} w[] {{*,w}/1.5},{{*,h}/1.5} need_update=1 fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,R} w[] {2*{0,w}},{0,h} need_update=1 fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+w 0
+}
+rm[^0]
+} rm
+#@cli x_grab_color : _variable_name
+#@cli : Open a color grabber widget from the first selected image.
+#@cli : Argument 'variable_name' specifies the variable that contains the selected color values at any time.
+#@cli : Assigning '-1' to it forces the interactive window to close.
+#@cli : Default values: 'variable_name=xgc_variable'.
+x_grab_color : skip ${1=xgc_variable} check_display $0
+if !$! error[0--3] "Command '$0': Missing specified input image." fi
+l[0] { nm={n} => img
+e[^-1] "Open "${arg\ {0,s},GRAY,GRAYA,RGB,RGBA}" color grabber widget for image$?, with variable name '$1'."
+if !{*} w[] ${fitscreen[]\ {[w,h,1]},128,50%},0,0,-1,-1,"Grab a color" fi
+_x_grab_color +dilate. 3 => icon_mask *.. 255 to_rgb.. =>.. icon_sprite
+xc=5 yc=5 o$1=$$1
+cursor[0] 0
+do
+if !narg($visu0)
++r[img] {*,w},{*,h},1,100%,2 drgba. w. => visu0
+fi
+x={*,x} y={*,y} b={*,b} mouse_over={$x>=0" && "$y>=0}
+hc={narg($$1)?40:24}
+yc={visu0,nhc=h-$hc-8;!$mouse_over?$yc:$y<$hc||$yc+$hc>=h?nhc:$y>=nhc?5:$yc}
+if [0$ox,0$oy,0$ob,0$ohc,0$oyc,0$ocolor,0${o$1}]!=[$x,$y,$b,$hc,$yc,0$color,0$$1]
+[visu0] => visu
+if narg($color)
+24,$hc,1,[img] fc. $color
+if narg($$1) rectangle. 0,24,100%,100%,1,$$1 line. 0,24,100%,24,1,0 fi
+drgba. frame. 1,1,0 frame. 1,1,255 j[visu] .,$xc,$yc rm.
+0
+if narg($$1)
+t. "Position ("$X","$Y")\nColor ("{``$color}")\nSelected ("{``$$1}")",1,0,15,1,255
+else
+t. "Position ("$X","$Y")\nColor ("{``$color}")",1,0,15,1,255
+fi
++dilate. 5 r.. 100%,100%,1,3
+j[visu] ..,{30+$xc},$yc,0,0,0.85,.,255 rm[-2,-1]
+fi
+if $mouse_over
+X={img,round($x*(w-1)/({*,w}-1))}
+Y={img,round($y*(h-1)/({*,h}-1))}
+color={img,round(I($X,$Y))}
+j[visu] [icon_sprite],$x,{icon_sprite,$y-h+1},0,0,1,[icon_mask]
+if $b&1 $1=$color fi
+fi
+w[visu] rm[visu]
+ox=$x oy=$y ob=$b ohc=$hc oyc=$yc ocolor=$color o$1=$$1
+fi
+if arg(1,{'$1'})==_'_'" && "arg(2,{'$1'})==_'_' wait 50 else wait fi
+if {*,r} w[] -1 rm[visu0] yc=5 fi
+if ['$$1']=='-1' break fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+w 0 k[img] => $nm }
+u $color
+_x_grab_color :
+base642img[] "MSB1bnNpZ25lZF9jaGFyIGxpdHRsZV9lbmRpYW4KMSAzMzcgMSAxICMyNzcKeJyNiNlOwlAYBi9IDDcaY+LGpiJbj7tBKEbglTQE7dcbkZS1gfNXFCx""lK6WE83w+gDaaeG0mmWTm67NSea5s1Pz6Ot80tnrb/d3BnhkYBq3QKDyOTA5nmfqDnW2W5nK77Mj60yLXgZvrqm6Oq47MYWc4ZhnCJE2wrgjmBWFwRm""r/hNQ3ZqivKQIlCN0YQZdeQGgxzXOD1T3XWEMhVWMtz1Wmw4h1QHEOShogqQc67YPOBwpdmgpdWzDSY9DNFJS1wWUH/NZF926FTl4oel48tgui3C6KU""rMo7rWCYCvJg4k/fvp/5/dJq9QyuUy48UXMOZ5H7ah9ND2YRMbhUXgUsoLDgOnxsf++0/TX1zRf1fcNa0iPgw=="
+-. 127 decompress_rle.
+frame. 10,10,0
+r2dx. 24
+#@cli x_hanoi
+#@cli : Launch the Tower of Hanoi game.
+x_hanoi : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Tower of Hanoï"$n" ---------------------\n
+----\n
+---- "${c}"Left button"$n" and "${c}"mouse"$n" to move a disk.\n
+---- "${c}"Right button"$n" to rotate 3D view.\n
+---- Keys '"${c}"CTRL+D"$n"' to increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' to reset window size.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+-------------------------------------------"
+l[] {
+l[] {
+cylinder3d 1,10 r3d 1,0,0,90
+++3d 10,0,0 +-3d.. 10,0,0
+box3d 30,1,10 -3d. 15,0,5
++3d => rods3d
+400,400 noise. 1 fftpolar. f.. 'r=sqrt((x-w/2)^2+.01*(y-h/2)^2);i/(1+r)' ifftpolar[-2,-1] n. 0,31
+(86,50,50;132,36,12;218,109,66;231,207,180;255,193,140) permute. yzcx r. 32,1,1,3,3
+map.. . rm. b. 2% b. x,1% sharpen. 100 c. 0,255
+r3d.. 1,0,0,-90 texturize3d.. . r3d.. 1,0,0,90 rm.
+}
+l[] {
+6,1,1,3,'[360*x/w,0.9*(1-(x/w)^0.5),0.9]' hsi2rgb.
+ytop0=0
+repeat w#0 {
+R,r={3-0.3*$>},{1.6-0.22*$>}
+torus3d $R,$r,36,10
+300,300 plasma. 1,1,3 b. 20 sharpen. 300 n. 150,255 1,1,1,3,{0,I[$>]} r. ..,..,1,3 rv[-2,-1] blend[-2,-1]
+luminance,0.75
+texturize3d.. . rm.
+/3d. 1,1,{0.3+$r} r3d. 1,0,0,90 -3d. 0,0.8,0
+a$>,x$>,y$>,h$>=0,0,$ytop0,{1.8*$r/(0.3+$r)}
+ytop0+=${h$>}
+=> disk3d$>
+}
+rm[0]
+}
+w[] 640,400,0,"[G"{`39`}"MIC] Tower of Hano\357"
+1,3,1,3,'y==0?[32,128,100]:y==1?[64,16,0]:[0,0,0]' r. {*,w},{*,h},1,3,3 => background
+nb_moves,buttons,motion3d_x,motion3d_y=0
+x,rod,rod_source,rod_target,selected=-1
+fading=$| error=0
+do
+repeat 6 { +r3d[disk3d$>] 1,1,1,${a$>} +3d. {10*(${x$>}-1)},-${y$>},0 } +3d[-6--1] +3d. [rods3d]
+r3d. 1,0,0,20
+if !($buttons&2) r3d. 0,1,0.3,{5*cos(1.5*$|)} r3d. 0.3,0,1,{3*sin(0.8*$|)} fi
+r3d. 1,0,0,$motion3d_y r3d. 0,-1,0,$motion3d_x *3d. 20
+[background] j3d. ..,50%,70%,10,1,5,0,1,800,200,0,-3000,0.15,0.2
+t. "#Moves: "$nb_moves,2%,92%,20,1,255
+if $error (255^0^0) ri. .. j.. .,0,0,0,0,$error error={max(0,$error-0.2)} rm. fi
+if $|-$fading<1 *. {$|-$fading} fi
+w. wait 40
+if {*,CTRLLEFT}" && "{*,D} w[] {w*1.5},{h*1.5} elif {*,CTRLLEFT}" && "{*,C} w[] {w},{h} fi
+rm[-2,-1]
+top0,top1,top2,ytop0,ytop1,ytop2=-1
+repeat 6 {
+rod={round(${x$>})}
+if $selected!=$>" && "${y$>}+${h$>}>${ytop$rod} ytop$rod={${y$>}+${h$>}} top$rod=$> fi
+}
+prev_buttons=$buttons
+mouse_x,mouse_y,buttons={*,x},{*,y},{*,b}
+if $mouse_x>=0 x={2.6*($mouse_x/{*,w}-0.5)+1} rod={round($x)} fi
+if $mouse_x>=0" && "$buttons&2
+motion3d_x,motion3d_y={([$mouse_x,$mouse_y]/[{*,w},{*,h}]-0.5)*90}
+elif $mouse_x>=0" && "$buttons&1
+if $selected<0
+selected=${top$rod}
+rod_source={$selected<0?-1:$rod}
+fi
+if $selected>=0" && "$rod>=0
+if ${y$selected}<11 y$selected={min(11,${y$selected}+3)}
+else
+x$selected+={d=$rod-${x$selected};sign(d)*min(0.3,abs(d))}
+y$selected={x=${x$selected};11+1.5*sin(pi*abs(x-round(x)))}
+a$selected={x=${x$selected};45*sin(pi*abs(x-round(x)))}
+fi
+fi
+elif !$buttons
+if $rod>=0" && "$selected>=0
+if $rod_target<0
+if ${top$rod}<$selected rod_target=$rod nb_moves+={$rod_target!=$rod_source}
+else rod_target=$rod_source error=0.8
+fi
+fi
+x$selected=$rod_target
+a$selected=0
+ytop={max(0,${ytop$rod_target})}
+if ${y$selected}>$ytop y$selected={max($ytop,${y$selected}-3)}
+else x,rod,rod_source,rod_target,selected=-1
+fi
+fi
+fi
+if !($buttons&2)
+motion3d_x-={sign($motion3d_x)*min(1,abs($motion3d_x))}
+motion3d_y-={sign($motion3d_y)*min(1,abs($motion3d_y))}
+fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+w[] 0 rm }
+#@cli x_histogram
+#@cli : Launch the histogram demo.
+x_histogram : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Histogram demo"$n" -------------------------------\n
+----\n
+---- "${c}"Mouse"$n" to set parameters.\n
+---- "${c}"Right button"$n" or key '"${c}"SPACE"$n"' to reset.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+-----------------------------------------------------"
+if !$! sp ? to_rgb
+else k[0] to_rgb r2dy 300,2 if w>800 r 800,100%,1,3,2 fi n 0,255
+fi
++frame. 1,1,0
+300,{h},1,3,220
+t. "Gamma :",5,0,16,1,0
+t. "Contrast :",5,50,16,1,0
+t. "Brightness :",5,100,16,1,0
+t. "Smoothness :",5,150,16,1,0
+t. "Sharpness :",5,200,16,1,0
+t. "Clusters :",5,250,16,1,0
+a[-2,-1] x
+{w},200,1,3,255
+grid. 10%,10%,0,0,0.3,0xCCCCCCCC,0
+rectangle. 0,0,100%,100%,1,0xFFFFFFFF,0
+axes. 0,255,1,0,13,1,0
+frame[-2,-1] 5,5,220
+a[-2,-1] y
+clusters=64 sharpness=0 smoothness=0 contrast=1 brightness=0 gamma=1
+do
+[0]
+ia={ia}
+if $gamma /. 255 ^. {1/$gamma} *. 255 fi
+-. $ia *. $contrast +. $brightness +. $ia
+b. $smoothness
+sharpen. $sharpness
+c. 0,255
++j.. .,6,6
+sx={{0,w}+12}
+_x_histogram. {$gamma*100/4} j.. .,$sx,25 rm.
+_x_histogram. {$contrast*100/4} j.. .,$sx,75 rm.
+_x_histogram. {($brightness+128)*100/256} j.. .,$sx,125 rm.
+_x_histogram. {$smoothness*100/10} j.. .,$sx,175 rm.
+_x_histogram. {$sharpness*100/2000} j.. .,$sx,225 rm.
+_x_histogram. {$clusters*100/256} j.. .,$sx,275 rm.
++s.. c histogram[-3--1] $clusters,0,255 /[-3--1] {6*{0,wh}/$clusters} rm[-5]
++z[-4] 5,{0,h+16},{{-4,w}-5},{{-4,h}-6}
+graph. [-4],3,0,1,0,0.2,255,0,0
+graph. ...,3,0,1,0,0.2,0,255,0
+graph. ..,3,0,1,0,0.2,0,0,255
+rm[-4--2]
+j.. .,5,{0,h+16} rm.
+if {*,b}&1\ &&\ {*,x}<{0,w}\ &&\ {*,y}<{0,h}
+j. [0],6,6 to. Original,10,10,16
+fi
+w. {w},{h},0,"[G"{`39`}"MIC] Histogram Demo" rm.
+wait
+if {*,b}&1\ &&\ {*,x}>={0,w}-10
+if {*,y}>=25\ &&\ {*,y}<=42
+gamma={max(0,min(4,({*,x}-$sx)*4/280))}
+elif {*,y}>=75\ &&\ {*,y}<=92
+contrast={max(0,min(4,({*,x}-$sx)*4/280))}
+elif {*,y}>=125\ &&\ {*,y}<=142
+brightness={max(-128,min(128,({*,x}-$sx)*256/280-128))}
+elif {*,y}>=175\ &&\ {*,y}<=192
+smoothness={max(0,min(10,({*,x}-$sx)*10/280))}
+elif {*,y}>=225\ &&\ {*,y}<=242
+sharpness={max(0,min(2000,({*,x}-$sx)*2000/280))}
+elif {*,y}>=275\ &&\ {*,y}<=292
+clusters={max(2,min(256,({*,x}-$sx)*256/280))}
+fi
+fi
+if {*,b}&2\ ||\ {*,SPACE} clusters=64 sharpness=0 smoothness=0 contrast=1 brightness=0 gamma=1 fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+w 0 rm
+_x_histogram :
+val={max(0,min(100,$1))}
+280,2,1,3,255 line. 0,0,$val%,0,1,0,255,0 line. 0,1,$val%,1,1,240,255,62 r. 100%,16,1,3,3
+0 t. {round($val)}%,0,0,14,1,1 +*. -255 +. 255 r. 100%,100%,1,3
+j... .,{(280-w)/2},{(16-h)/2},0,0,1,.. rm[-2,-1]
+r. {w+2},{h+2},1,3,0,0,0.5,0.5
+#@cli x_hough
+#@cli : Launch the hough transform demo.
+x_hough : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Hough-transform"$n" -----------------------------------------\n
+----\n
+---- "${c}"Mouse buttons"$n" on the vote image to draw corresponding line.\n
+---- "${c}"Mouse buttons"$n" on the image to vote for all lines crossing.\n
+---- the clicked point.\n
+---- Key '"${c}"SPACE"$n"' to reset the hough window.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+-----------------------------------------------------------------"
+if !$! l[] { sp greece onfail testimage2d 400 } fi
+n 0,255
+foreach {
+r. ${fitscreen\ {[w,h]}},1,100%,3
+if !narg($first_time)
+parallel 0,"+l[0] { r2dy 128 frame 1,1,0 alert \"[G"{`39`}"MIC Hough Transform]\",\"The G\47MIC Hough transform demo illustrates the application\nof the Hough transform to detect lines in an image. Use your\nmouse buttons to explore the transform image and see how\nlines in images are represented by points in the transform.\",\"OK\" rm }"
+first_time=0
+fi
+rhomax={sqrt(w^2+h^2)/2}
++b. 1.5 hough. 512,400 b. 0.5 +. 1 log. n. 0,255
+w.. -1,-1,0,"[G"{`39`}"MIC] Image" w1. -1,-1,0,"[G"{`39`}"MIC] Hough Transform"
+do
+wait
+if {*,b}
+x0={{*,x}-{*,w}/2}
+y0={{*,y}-{*,h}/2}
+rho0={sqrt(($x0)^2+($y0)^2)}
+theta0={atan2($y0,$x0)}
+(0,{2*pi}) ($theta0,{$theta0-2*pi})
+r[-2,-1] {-3,w},1,1,1,3
+cos. *. $rho0 +<. 0 abs..
+*. {pi} +[-3,-1] %.. {2*pi}
+*.. {0.5*{-3,w}/pi} *. {{-3,h}/$rhomax}
+a[-2,-1] y
+repeat w { point.. {i($>,0)},{i($>,1)},0,0.3,255 }
+rm. w1.
+elif {*1,x}>=0" && "{*1,b}
+theta={{*1,x}*2*pi/{*1,w}}
+rho={{*1,y}*$rhomax/{*1,h}}
+x={{-2,w}/2+$rho*cos($theta)}
+y={{-2,h}/2+$rho*sin($theta)}
+x0={$x+1000*sin($theta)}
+y0={$y-1000*cos($theta)}
+x1={$x-1000*sin($theta)}
+y1={$y+1000*cos($theta)}
+..
+line. $x0,$y0,$x1,$y1,1,0x0F0F0F0F,255
+line. {$x0+1},$y0,$x1,$y1,1,0x0F0F0F0F,255
+line. $x0,{$y0+1},$x1,$y1,1,0x0F0F0F0F,255
+line. $x0,$y0,$x1,$y1,1,0xF0F0F0F0,0
+line. {$x0+1},$y0,$x1,$y1,1,0xF0F0F0F0,0
+line. $x0,{$y0+1},$x1,$y1,1,0xF0F0F0F0,0
+w. rm.
+elif {*,SPACE}" || "{*1,SPACE}
+rm. +b. 1.5 hough. 512,400 b. 0.5 +. 1 log. n. 0,255
+w1. -1,-1,0,"Hough Transform"
+elif {*,r} w..
+elif {*1,r} w1.
+fi
+while {*}" && "{*1}" && "!{*,ESC}" && "!{*,Q}" && "!{*1,ESC}" && "!{*1,Q}
+w 0 w1 0
+rm.
+if !{*}" || "!{*1} break fi
+}
+rm
+#@cli x_jawbreaker : 0<_width<20,0<_height<20,0<_balls<=8
+#@cli : Launch the Jawbreaker game.
+x_jawbreaker : check "${1=12}>0 && $1<20 && ${2=13}>0 && $2<20 && ${3=5}>0 && $3<=8" check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Jawbreaker"$n" --------------------------------------------\n
+----\n
+---- The goal of the game is to "${c}"remove the maximum number of\n
+---- balls on the board"$n", simply by clicking on them. But a\n
+---- colored ball can disappear only if it is grouped with at\n
+---- least one ball of the same color. The score is higher if\n
+---- you destroy larger sets of connected colored balls.\n
+----\n
+---- "${c}"Left mouse button"$n" to select/destroy balls on board.\n
+---- Key '"${c}"BACKSPACE"$n"' or '"${c}"SPACE"$n"' to undo the last move.\n
+---- Key '"${c}"S"$n"' to save snapshot of the current view.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+--------------------------------------------------------------"
+$1,$2 => board rand[board] 1,$3 round[board] 1
+. => undo
+40,40,1,4 => balls _x_jawbreaker_ball.
+autocrop. 0 expand_xy. 1,0 *. 1.5 c. 0,255 r. {{board,w}*w},{{board,h}*h},1,1,0,2 /. 255
+{w},{h},1,3 => back
+l. {
+rand 0,255 blur_xy 6,20 equalize 100,0,255 blur_xy 2,4
+sh 0 sh.. 1 sh... 2 /... 4 /.. 8 /. 2 rm[-3--1]
+}
+[back] => visu
+score=0
+undoscore=0
+render_board=1
+shapescorey=0
+shapescore=0
+do
+if $render_board
++abs[board] -. 1 *. {360/$3} +>=[board] 0 *. 0.9 +!=[board] 0
+ri[-3--1] [balls] [balls] *[-2,-1] a[-3--1] c hsv2rgb.
++compose_channels. + >. 0 dilate. 3
+j[visu] [back] j[visu] ..,0,0,0,0,1,. rm[-2,-1]
+if !$shapescorey w[visu] {back,w},{back,h},0,"[G"{`39`}"MIC] Jawbreaker (Score : "$score")" fi
+render_board=0
+fi
+if $shapescorey
++t[visu] "+"$shapescore,{*,x},{{*,y}-64+$shapescorey},32,{($shapescorey-1)/31},255
+shapescorey={max(0,$shapescorey-1)}
+w. {back,w},{back,h},0,"[G"{`39`}"MIC] Jawbreaker (Score : "$score")" rm. wait 25
+else wait fi
++f[board] "if(i,j(-1)==i || j(1)==i || j(0,1)==i || j(0,-1)==i,0)"
+if !is rm. break fi rm.
+if {*,r} render_board=1
+elif {*,S} o[visu] gmic_jawbreaker.png
+elif {*,BACKSPACE}" || "{*,SPACE}
+abs[undo] j[board] [undo]
+score=$undoscore
+render_board=1
+elif {*,x}>=0" && "{*,b}
+wait -1
+x={"int("{*,x}"*"{board,w}"/"{*,w}")"}
+y={"int("{*,y}"*"{board,h}"/"{*,h}")"}
+if {{board,i($x,$y)}>0}
+abs[board] flood[board] $x,$y,0,0,0,1,-{board,i($x,$y)}
++>=[board] 0 -. 1
+shapescore={(is+1)^2} shapescorey={if($shapescore,32,0)} rm.
+elif {board,i($x,$y)}
++flood[board] $x,$y,0,0,0,1,-1 ==. -1
+if is>1
+j[undo] [board]
+undoscore=$score
+flood[board] $x,$y,0,0,0,1,0
+repeat w#$board {
++columns[board] $> mirror. y
+h={board,h}
+l. { s -,0 a y if $! r 1,$h,1,1,0 mirror y else i 1,$h fi }
+j[board] .,$> rm.
+}
+rows[board] -1,100% f[board] "if(y==0,if(i(x,h-1),x,w),i)" sort[board] +,x rows[board] 1,100%
+score+={int((is-1)^2)}
+fi
+rm.
+else abs[board]
+fi
+render_board=1
+fi
+while {*}" && "!{*,Q}" && "!{*,ESC}
+if {*}" && "!{*,ESC}
+w[] {visu,w},{visu,h},0,"[G"{`39`}"MIC] Jawbreaker (Final Score : "$score")"
+260,85 => gameover t. "Game Over!",3,0,53,1,1 t. "Score : "$score,23,53,32,1,1
++dilate. 5 => "mgameover" *.. 255 r.. 100%,100%,1,3
+repeat 25 {
++r[gameover,mgameover] {400-12*($>+1)}%,{400-12*($>+1)}%
++j[visu] ..,{({visu,w}-w)/2},{({visu,h}-h)/2},0,0,{$>/25},.
+w. rm[-3--1] wait 25
+}
+do
+wait if {*,r} w[] {*,w},{*,h} wait -1 fi
+while {*}" && "!{*,Q}" && "!{*,ESC}" && "!{*,b}
+rm[gameover,mgameover]
+fi
+rm[board,undo,balls,back,visu]
+w 0
+_x_jawbreaker_ball :
+mwh={min(w,h)}
+sh 3 f. 0 rm.
+ellipse {0.5*$mwh},{0.5*$mwh},{0.5*$mwh-4},{0.5*$mwh-4},0,1,240,240,240,1
+sh 0,2 *. '($mwh+y-x)/(2*w)' rm.
+sh 3 *.. . dilate. 5 rm.
+sh 0,2 +. 'if(i&&(!j(-1)||!j(1)||!j(0,-1)||!j(0,1)),240/6,0)' rm.
+ellipse {$mwh*0.7},{$mwh*0.3},{min(30,$mwh*$mwh/512)},{min(30,$mwh*$mwh/512)},0,{min($mwh/64,1)},255,255,255,1
+#@cli x_landscape
+#@cli : Launch the virtual landscape demo.
+x_landscape : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Virtual landscape"$n" -------------------------------------\n
+----\n
+---- Enjoy the view!\n
+----\n
+---- Keys '"${c}"CTRL+D"$n"' to increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' to reset window size.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+--------------------------------------------------------------"
+l[] {
+W=150 H=350
+900,900 plasma. 1,1,6 b. 0.07% n. 0,255 => map
++g. *. 0.5 +[-2,-1] n. 0,1 ^. 2 n. -150,330
+equalize[map] 256 n[map] -400,160 c[map] 0,100%
+(0,102,51;149,175,124;102,42,0;255,255,255) permute. yzcx srgb2rgb. r. 256,1,1,3,3 rgb2srgb.
++n[map] 0,255 map. .. rm..
++. .. rm.. c. 0,255 => colors
+$W,$H,1,1,'x' y. x => x
+$W,$H,1,1,'1+x+y*w' y. x => offsets
+$W,$H,1,1,'0.5*y' => gmap Mgmap={iM}
+$W,$H,1,3 fc. 60,80,135 => ccolors
+$W,$H,1,1,'(y/$H)^2' => mcolors
+$W,400,1,1,'b=h-1-$Mgmap;if(y>=b,256+(y-b)*255/(h-1-b),y*255/b)' round.
+(96^16^128) (0^200^255) a[-2,-1] x r. 256,1,1,3,3
+(0^32^0) (0^64^128) a[-2,-1] x r. 256,1,1,3,3
+a[-2,-1] x map.. . rm.
+=> background
+quadrangle3d[] -0.45,0,0,0.45,0,0,0.55,1,0,-0.55,1,0 *3d. {$W/2},{$H/2} => viewrange3d
+(64^16^0) r. $W => groundcolor
+w[] 600,400,0,"[G"{`39`}"MIC] Virtual Landscape"
+do
+t={$|*0.03}
+xm={map,w/2+(w-$H/2)/2*cos(3.1*$t)}
+ym={map,h/2+(h-$H/2)/2*sin(2.8*$t)}
+u={map,(w-$H/2)*cos(2.5*$t)}
+v={map,(h-$H/2)*sin(9.7*$t)}
+a={atan2($v,$u)*180/pi}
++r3d[viewrange3d] 0,0,1,$a y. x
+({$xm+i[8]},{$xm+i[11]};{$xm+i[17]},{$xm+i[14]}^{$ym+i[9]},{$ym+i[12]};{$ym+i[18]},{$ym+i[15]}) rm..
+r. $W,$H,1,2,3 +warp[map,colors] .,0,1,0 rm...
+=> lmap,lcolors
++!=[lmap] 0 => ground
++[lmap] [gmap]
+j[lcolors] [ccolors],0,0,0,0,1,[mcolors]
+j[lcolors] [groundcolor]
++round[lmap] f. '>m=abs(j(0,-1));i>m?i:-m' => y0
++shift. 0,1 abs. +. 1 => y1
+*[y0,y1] [ground] rm[ground]
+r[lcolors,y0,y1] {$W*$H},1,1,100%,-1
++>[y0] 0 *. [offsets] discard. 0 y.
+if h
+-. 1 +warp[x] .,0,0,0 => lx
+warp[lcolors,y0,y1] ..,0,0,0 rm..
+N={h} ({'CImg3d'},{2*$N},$N)
++a[lx] [y0],x rm[y0] +a[lx] [y1],x rm[lx,y1] a[-2,-1] y z. 0,2
+1,$N,1,1,2 +f. y ++. $N a[-3--1] x
+mv[lcolors] $! permute. cyzx
+1,$N,1,1,1
+y[-5--1] y a[-5--1] y *3d. -1,-1
++j3d[background] .,{background,w-1},{background,h},0,1,1,0,0,0 rm[-3,-2]
+else
+rm[-5--1] [background]
+fi
+r. {*,w},{*,h},1,3
+fps=${-fps} if $fps>0 to. $fps" fps",5,5,24,2,0.2 fi
+w. -1,-1,0 rm.
+if {*,CTRLLEFT}" && "{*,D} w[] 900,600 elif {*,CTRLLEFT}" && "{*,C} w[] 600,400 fi
+wait 20
+while {*}" && "!{*,ESC}" && "!{*,Q}
+rm w 0 }
+#@cli x_life
+#@cli : Launch the game of life.
+x_life : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"The game of life"$n" --------------------------------------\n
+----\n
+---- The goal is to create the "${c}"biggest possible biological\n
+---- system"$n". You start with a stock of cells which you can\n
+---- spread over the board. For each new cells created\n
+---- simultaneously and spontaneously by your system, you\n
+---- gain more new cells to scatter.\n
+----\n
+---- "${c}"Left mouse button"$n" to scatter cells in stock.\n
+---- "${c}"Right mouse button"$n" to reset game.\n
+---- Key '"${c}"S"$n"' to save snapshot of the current view.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+--------------------------------------------------------------"
+i[0] 90,90,1,1,0
+i[1] [0] f[1] 0
+i[2] 400,400,1,3
+i[3] 1
+iteration=0
+score=0
+bestscore=0
+stock=500
+w[0] 400,400,0,"[G"{`39`}"MIC] The Game of Life"
+cursor[0] 0
+do
+(1,1,1;1,0,1;1,1,1) +correlate[0] .,0 rm..
++ir. 2,2 &. [0] ir.. 3,3 -|[-2,-1]
+rv[0,-1]
+if {*,x}>0" && "{*,b}==1" && "$stock>0
+nb={u*7}
+repeat $nb {
+x={{*,x}/{*,w}*{0,w}+u(-4,4)}
+y={{*,y}/{*,h}*{0,h}+u(-3,3)}
+=[0] 1,$x,$y
+=[1] $iteration,$x,$y
+point[2] {$x*{2,w}/{0,w}},{$y*{2,h}/{0,h}},0,0.8,255
+}
+stock={round(max(0,$stock-$nb))}
+fi
+-. [0] *. -1
+stock-={2*(min(0,int(is/16*$score/150)))}
++[1] [0]
+min. 0 +. 1 *[1,-1]
+if {*,b}==2
+f[0-2] 0 iteration=0 score=0 bestscore=0 stock=500 rm[3] i[3] 1
+fi
+if {3,w}==1
+rm[3] i[3] {u(3,12)},1,1,3,u(100,255)
+r[3] {u(100,300)}%,1,1,3,4
+point[3] 0,0,0,1,0
+r[3] {u(100,600)}%,1,1,3,5 c[3] 0,255
+fi
++r[1] {2,w},{2,h} &. 7 b. {1+$score*0.05}
+n. 0,{3,w} map. [3] *. 0.1 +[2,-1] /[2] 1.1
+[2] if {*,x}>0
+opac={0.7*min(1,$stock/500)} r={min(500,$stock)*cos($iteration)/100}
+ellipse. {*,x},{*,y},{15+$r},{15+$r},0,$opac,0,196,0
+ellipse. {*,x},{*,y},{10+$r},{10+$r},0,$opac,32,64,16
+ellipse. {*,x},{*,y},{5+$r},{5+$r},0,$opac,255,230,0
+fi
+t. "Living cells : "$score"\n"\
+"Stock : "$stock"\n""Score : "$bestscore,5,3,22,0.7,255
+w. {*,w},{*,h}
+if {*,S} o. gmic_life.png fi
+rm.
+if !($iteration%10)
+score={0,is} bestscore={max($score,$bestscore)}
+fi
+wait 60
+iteration+=1
+while {*}" && "!{*,ESC}" && "!{*,Q}
+rm[0-3] w 0
+#@cli x_light
+#@cli : Launch the light effect demo.
+x_light : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Light effect"$n" ------------------------\n
+----\n
+---- Move light position with "${c}"mouse"$n".\n
+---- "${c}"Mouse buttons"$n" fade light in/out.\n
+---- Keys '"${c}"CTRL+D"$n"' to increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' to reset window size.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+-------------------------------------------"
+0 t. " G\47MIC\nLight effect",0,0,80,1,255 expand_xy. 15,0 b. 3
+. n.. 0,1 r.. 100%,100%,1,3
+sh.. 0 *. 120 rm.
+sh.. 1 *. 70 rm.
+sh.. 0,50%,0,2 *. 120 rm.
+25%,25%,1,1 rand. -20,20 smooth. 10,0,1,1,4 ri. ..,3 b. 3 n. -100,100
++[-2,-1] g. xy a[-2,-1] c n. -150,150
+w[] {1.5*{-2,w}},{1.5*{-2,h}},0,"[G"{`39`}"MIC] Light Effect"
+cursor[0] 0
+light=70
+640,640 gaussian. $light n. 0,255
+t=0
+do
+if {*,x}>=0
+X={round((w-{*,x})/2)}
+Y={round((h-{*,y})/2)}
+else
+X={round((w-{-2,w}*(1+cos(2*$t)))/2)}
+Y={round((h-{-2,h}*(1+sin(2.5*$t)))/2)}
+t+=0.02
+fi
+if {*,b}&1 light={min(200,$light+10)} gaussian. $light n. 0,255 fi
+if {*,b}&2 light={max(10,$light-10)} gaussian. $light n. 0,255 fi
++z. $X,$Y,{$X+{-2,w}-1},{$Y+{-2,h}-1}
+warp. ...,1,0,1
+r. 100%,100%,1,3 +. [-4] c. 0,255
+fps=${-fps} if $fps>0 to. $fps" fps",5,5,16,1,0.2 fi
+w.
+if {*,CTRLLEFT}" && "{*,D} w[] {3*w},{3*h} elif {*,CTRLLEFT}" && "{*,C} w[] {1.5*w},{1.5*h} fi
+rm. if {*,x}>=0" && "!{*,b} wait else wait 20 fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+w[] 0 rm[-3--1]
+#@cli x_mandelbrot : _julia={ 0 | 1 },_c0r,_c0i
+#@cli : Launch Mandelbrot/Julia explorer.
+x_mandelbrot : skip ${1=0},${2=0.317},${3=0.03} check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Mandelbrot/Julia explorer"$n" -----------------\n
+----\n
+---- Select zooming region with "${c}"mouse"$n".\n
+---- "${c}"Click once"$n" to reset zoom factor.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+---- Key '"${c}"C"$n"' to print current fractal coordinates.\n
+----\n
+--------------------------------------------------"
+rm w 512,512,0 _x_mandelbrot_coords $1 _x_mandelbrot_palette
+do
+siz={min({*,w},{*,h})}
+$siz,$siz mandelbrot. {0,^},256,$1,{if($1,$2,0)},{if($1,$3,0)} map. [1]
+if $1 w. $siz,$siz,0,"[G"{`39`}"MIC] Julia Set c=("{0,@0-1}")-("{0,@2-3}"), c0=($2,$3)"
+else w. $siz,$siz,0,"[G"{`39`}"MIC] Mandelbrot Set c=("{0,@0-1}")-("{0,@2-3}")" fi
+w={w} h={h} round. select. 2,0,0,0,1
+if i[0]>0
+M={max(i[3]-i[0],i[4]-i[1])}
+if $M<5 _x_mandelbrot_coords $1 rm[1] _x_mandelbrot_palette mv. 1
+else ({{0,@0}+{@0}*({0,@2}-{0,@0})/$w};\
+{{0,@1}+{@1}*({0,@3}-{0,@1})/$h};{{0,@0}+({@0}+$M)*({0,@2}-{0,@0})/$w};{{0,@1}+({@1}+$M)*({0,@3}-{0,@1})/$h})
+fi
+rm[0] mv. 0
+fi
+rm.
+if {*,C}
+if $1 e "Julia set, at c = ("{0,@0-1}")-("{0,@2-3}"), with c0 = ($2,$3)."
+else e "Mandelbrot set, at c = ("{0,@0-1}")-("{0,@2-3}")."
+fi
+fi
+if !{*}" || "{*,ESC}" || "{*,Q} break fi
+wait -1
+while 1 rm w 0
+_x_mandelbrot_coords :
+if $1 (-2;-2;2;2) else (-2.1;-1.5;1.2;1.5) fi
+_x_mandelbrot_palette :
+6,1,1,3 rand. 20,255 r. 32,1,1,3,3 r. 1024,1,1,3,0,2 =. 0,0,0,0,0 =. 0,0,0,0,1 =. 0,0,0,0,2
+#@cli x_mask_color : _colorspace={ all | rgb | lrgb | ycbcr | lab | lch | hsv | hsi | hsl | cmy | cmyk | yiq },_spatial_tolerance>=0,_color_tolerance>=0
+#@cli : Interactively select a color, and add an alpha channel containing the corresponding color mask.
+#@cli : Argument 'colorspace' refers to the color metric used to compute color similarities, and can be basically
+#@cli : one of { rgb | lrgb | ycbcr | lab | lch | hsv | hsi | hsl | cmy | cmyk | yiq }.
+#@cli : You can also select one one particular channel of this colorspace, by setting 'colorspace' as
+#@cli : 'colorspace_channel' (e.g. 'hsv_h' for the hue).
+#@cli : Default values: 'colorspace=all', 'spatial_tolerance=5' and 'color_tolerance=5'.
+x_mask_color : check "${2=5}>=0 && ${3=5}>=0" skip ${1=all} check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e[^-1] "Interactively create color mask for image$?, with color space $1, spatial tolerance $2 and
+color tolerance $3."
+e "\n
+----------------------------------------------------------------------------------------------------\n
+----\n
+---- "${c}"Left mouse button"$n" adds a wanted color to the selection.\n
+---- "${c}"Right mouse button"$n" adds an unwanted colors to the selection.\n
+---- "${c}"Middle mouse button"$n" or key '"${c}"R"$n"' resets color mask.\n
+---- Key '"${c}"SPACE"$n"' or '"${c}"TAB"$n"' toggles view modes (masked RGB or mask).\n
+---- Keys '"${c}"CTRL+D"$n"' increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' decrease window size.\n
+---- Keys '"${c}"CTRL+R"$n"' reset window size.\n
+---- Keys '"${c}"ESC"$n"', '"${c}"Q"$n"' or '"${c}"ENTER"$n"' exit the interactive window.\n
+----\n
+----------------------------------------------------------------------------------------------------"
+l[] { _ac_$1 onfail error[0--3] "Command '$0' : Invalid colorspace '$*'." }
+m _ac_forward:$_f
+foreach {
+slices 0 basename {0,n} nm=${}
+wh=${fitscreen\ {[w,h,1]},128,1024}
++r $wh,1,100%,2
++_ac_forward. channels. $_s
+if {1,s>3} channels[1] 0,2 fi to_rgb[1]
+w[1] 100%,100%,0,$nm
+colors_add=-1 colors_sub=-1 visumode=0
+is_clicked=0 time=0 delay=0.1
+do
+time={$is_clicked?$time:$|}
+wait
+x={2,round({*,x}*(w-1)/({*,w}-1))}
+y={2,round({*,y}*(h-1)/({*,h}-1))}
+b={*,b}
+c=$x,$y,{2,I($x,$y)}
+is_add={arg(1,$colors_add)>=0}
+is_sub={arg(1,$colors_sub)>=0}
+is_ctrl={{*,CTRLLEFT}" || "{*,CTRLRIGHT}}
+is_resized=0
+refresh=0
+if $x>=0" && "$b&1
+if $is_add colors_add=$colors_add,$c else colors_add=$c fi
+is_clicked=1
+refresh={$|-$time>$delay}
+elif $x>=0" && "$b&2
+if $is_sub colors_sub=$colors_sub,$c else colors_sub=$c fi
+is_clicked=1
+refresh={$|-$time>$delay}
+elif $b&4" || "{*,R}
+colors_add=-1 colors_sub=-1 refresh=1 is_clicked=1
+elif !$b
+refresh={$is_clicked==1}
+is_clicked=0
+fi
+if {*,-TAB}" || "{*,-SPACE} visumode={($visumode+1)%3} refresh=1 fi
+if {*,r} is_resized=1
+elif $is_ctrl" && "{*,-D} w[] {1,1.25*[w,h]} is_resized=1
+elif $is_ctrl" && "{*,-C} w[] {1,0.8*[w,h]} is_resized=1
+elif $is_ctrl" && "{*,R} w[] ${fitscreen\ {0,[w,h,1]},128,1024} is_resized=1
+fi
+if $is_resized rm[1,2] +r {*,d},{*,e},1,3,2 +_ac_forward. channels. $_s refresh=1 fi
+if $refresh
+_x_mask_color[2] {$2*w#2/w#0},$3,{``$colors_add},{``$colors_sub} delay=${}
+if $visumode==0 +. 64 c. 0,255 +a[1,-1] c drgba. w. -1,-1,$nm" [half-masked]" rm.
+elif $visumode==1 +a[1,-1] c drgba. w. -1,-1,$nm" [masked]" rm.
+else w. -1,-1,$nm" [mask]"
+fi
+rm.
+time=$|
+fi
+while {*}" && "!{*,ESC}" && "!{*,Q}" && "!{*,ENTER}
+if arg(1,$colors_add)>=0 ($colors_add)
+r. {2+s#2},{w/(2+s#2)},1,1,-1 +z. 0,1 *. '{(w#0-1)/(w#2-1)},{(h#0-1)/(h#2-1)}'
+j.. . colors_add={-2,^} rm[-2,-1]
+fi
+if arg(1,$colors_sub)>=0 ($colors_sub)
+r. {2+s#2},{w/(2+s#2)},1,1,-1 +z. 0,1 *. '{(w#0-1)/(w#2-1)},{(h#0-1)/(h#2-1)}'
+j.. . colors_sub={-2,^} rm[-2,-1]
+fi
+rm[-2,-1] +_ac_forward channels. $_s
+_x_mask_color. $2,$3,{``$colors_add},{``$colors_sub}
+rm.. a c
+}
+um _ac_forward
+_x_mask_color :
+100%,100%
+is_add={arg(1,$3)>=0}
+is_sub={arg(1,$4)>=0}
+t0=$|
+if $is_add" || "$is_sub
+if $is_add
+($3) r. {2+s#0},{w/(2+s#0)},1,1,-1
+N_add={h} M_add={"M = vectorw(); fill(M,k,med(crop(k,1)));M"} rm.
+fi
+if $is_sub
+($4) r. {2+s#0},{w/(2+s#0)},1,1,-1
+N_sub={h} M_sub={"M = vectorw(); fill(M,k,med(crop(k,1)));M"} rm.
+fi
+f. "begin(
+const is_add = "$is_add";
+const is_sub = "$is_sub";
+const ss = sqrt(2)*$1;
+const sc = sqrt(2)*$2;
+colors_add = [ $3 ];
+colors_sub = [ $4 ];
+M_add = [ 0"$M_add"];
+M_sub = [ 0"$M_sub"];
+const N_add = 0"$N_add";
+const N_sub = 0"$N_sub";
+const siz = 2 + s#0;
+const siz2 = sqr(siz);
+sigma = vectorsiz(sc);
+sigma[0] = sigma[1] = ss;
+tensor(op) = (
+T = vectorsiz2();
+if (is_#op,
+for (k = 0, k={2*g} fy$>={2*g} fz$>={2*g} }
+w[0] -1,-1,0,"[G"{`39`}"MIC] 3D Metaballs"
+do
+repeat $M {
+x$>={w/2+0.5*(w-{2,w}-4)*cos(${fx$>}*$|)}
+y$>={h/2+0.5*(h-{2,h}-4)*sin(${fy$>}*$|)}
+z$>={d/2+0.5*(d-{2,d}-4)*sin(${fz$>}*$|)}
+}
+f[3] 0 repeat $M { j[3] [2],{${x$>}-{2,w/2}},{${y$>}-{2,h/2}},{${z$>}-{2,d/2}},0,-1 }
++r[3] 28,28,28,1,2 isosurface3d. 0.4 -3d. 12,12,12 *3d. 13 rv3d.
+r3d. 1,2,1,{100*$|}
+N={i[7]} (255,255,150;200,96,164;50,150,230) r. 3,$N,1,1,3 y. j.. .,0,{{-2,h}-4*$N}
+if !$mode circles3d.. 4 fi
+if !{1,w}
+0 t. ${s$mode},5,5,23,0.5,255,255,255 r. {w+5},100%,1,3,0 b. 0.7 n. 0,255
++dilate. 3 +j[0] ..,5,3,0,0,1,.,255 mv. 1 rm[2,-2,-1]
+fi
++j3d[1] ..,50%,50%,0,1,{if(!$mode,3,$mode)},0,0,300,0,0,-500,0.1,1.5
+fps=${-fps} if $fps>0 to. $fps" fps",5,{h-22},16,2,0.2 fi
+w.
+if {*,CTRLLEFT}" && "{*,D} w[] {2*w},{2*h} elif {*,CTRLLEFT}" && "{*,C} w[] {w},{h} fi
+rm[-3--1] wait 20
+if {*,b}" || "{*,SPACE} mode={($mode+if({*,b}&2,-1,1))%6} wait -1 rm[1] i[1] 0 fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+rm w 0 }
+#@cli x_minesweeper : 8<=_width=<20,8<=_height<=20
+#@cli : Launch the Minesweeper game.
+x_minesweeper : check "${1=20}>=8 && $1<=30 && ${2=$1}>=8 && $2<=30" check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Minesweeper"$n" -------------------------------------------\n
+----\n
+---- The goal is to "${c}"clear the minefield"$n" without detonating a\n
+---- mine.\n
+----\n
+---- "${c}"Left mouse button"$n" to try clearing one square.\n
+---- "${c}"Right mouse button"$n" to flag or unflag a square.\n
+---- "${c}"Middle mouse button"$n" to reset mine field.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+--------------------------------------------------------------\n"
+$1,$2 noise. 30,2 ==. 1 nb_mines={is} (1,1,1;1,0,1;1,1,1) +convolve.. .,0 rm.. +. 1 ==.. 0 *[-2,-1] => field
+do x={round(u(w-1))} y={round(u(h-1))} while i($x,$y)!=1
++f[field] 11 =. 12,$x,$y => board
+24,24,1,3,200 fc. 255,180,130
+ellipse. 12,12,4,4 line. 6,12,18,12 line. 12,6,12,18 line. 13,10,14,10,1,255 line. 13,11,14,11,1,255
+z. 1,1,{w-2},{h-2} frame. 1,1,0
++fc. 230,250,255
++t. "1",10,5,13,1,0,196,0 +t.. "2",9,5,13,1,0,128,0 +t... "3",9,5,13,1,0,0,255
++t[-4] "4",9,5,13,1,255,0,0 +t[-5] "5",9,5,13,1,200,0,0 +t[-6] "6",9,5,13,1,150,0,0
++t[-7] "7",9,5,13,1,128,0,0 +t[-8] "8",9,5,13,1,64,0,0
++f. 'if(x<=1||y<=1||x>=w-2||y>=h-2,if(x sprites
+(0,23;0,23^0,0;23,23) r. 24,24,1,2,3 r. {board,w*24},{board,h*24},1,2,0,2 => offsets
+.,.,1,3,255 frame. 1,1,0 frame. 23,23,255
+0 t. "Number of mines : "$nb_mines,0,0,18,1,100,200,255 negate. j.. .,{({-2,w}-w)/2},{{-2,h}-h-2} rm.
+=> canvas
+failed=0 succeeded=0 nb_flags=0 started=0
+do
++*[board] 24 r. [offsets],[offsets] channels. 0,1 +. [offsets] +warp[sprites] .,0,0,1 rm..
+j[canvas] .,24,24 rm.
+wait -1
+if $failed
+0 t. "Game\nOver!",3,3,38,1,255 r. 100%,100%,1,4 sh. 3 dilate. 5 /. 2 rm.
+drop_shadow. 5,5,1 blend[canvas,-1] alpha
+0 t. "Boom! You failed!",0,0,18,1,100,255,255 r. {canvas,w},100%,1,3,0,0,0.5,0.5 negate. j[canvas] .,0,3 rm.
+do w[canvas] {w},{h} wait while {*}" && "!{*,ESC}" && "!{*,Q}
+elif $succeeded
+0 t. "Success!",3,3,38,1,255 r. 100%,100%,1,4 sh. 3 dilate. 5 /. 2 rm.
+drop_shadow. 5,5,1 blend[canvas,-1] alpha
+0 t. "Congratulations! ("{round($|-$tic)}" s)",0,0,18,1,255,100,255 r. {canvas,w},100%,1,3,0,0,0.5,0.5
+negate. j[canvas] .,0,3 rm.
+do w[canvas] {w},{h} wait while {*}" && "!{*,ESC}" && "!{*,Q}
+else
++==[board] 10 nb_flags={is} rm.
+do
+if !$started tic=$| fi
+0 t. "Elapsed time : "{round($|-$tic)}" s / Flags : "$nb_flags,0,0,18,1,255,200,0
+r. {canvas,w},100%,1,3,0,0,0.5,0.5
+negate. j[canvas] .,0,3 rm.
+wait 50
+x={int(({*,x}-24)/24)} y={int(({*,y}-24)/24)} b={*,b}
+w[canvas] {w},{h},0,"[G"{`39`}"MIC] Minesweeper"
+while {*}" && "!{*,ESC}" && "!{*,Q}" && "!$b
+fi
+if $x>=0\ &&\ $y>=0\ &&\ $x<{board,w}\ &&\ $y<{board,h}
+if $b&1
+started=1 val={field,i($x,$y)}
+if $val==0 +==[field] 0 j[board] [field],0,0,0,0,1,. rm. failed=1
+elif $val==1
++flood[field] $x,$y,0,0,1,1,-1 ==. -1 dilate. 3 j[board] [field],0,0,0,0,1,. rm.
+else =[board] $val,$x,$y
+fi
+elif n={board,i($x,$y)};$b&2" && "n>=10" && "n<=11
+=[board] {if({board,i($x,$y)}==11,10,11)},$x,$y
+elif $b&4 f[board] 10
+fi
+fi
+if $nb_mines==$nb_flags\ &&\ {board,iM}!=11 succeeded=1 fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+w 0
+#@cli x_minimal_path
+#@cli : Launch the minimal path demo.
+x_minimal_path : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Minimal path"$n" ------------------------------------------\n
+----\n
+---- "${c}"Click on two points"$n" to compute and display the minimal\n
+---- path between those points. The ending point is then\n
+---- chosen as the next starting point for another path.\n
+---- Key '"${c}"S"$n"' to save snapshot of the current view.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+--------------------------------------------------------------"
+if !$! sp ? fi
+n 0,200 round 1
+foreach {
+w[0] -1,-1,0,"[G"{`39`}"MIC] Select Starting Point P0"
+if !narg($first_time)
+parallel 0,"+l[0] { r2dy 128 frame 1,1,0 alert \"[G"{`39`}"MIC Minimal Path]\",\"The G\47MIC minimal path demo illustrates how minimal paths\ncan be computed in images to detect and track edge points.\nUse your mouse to select desired starting and ending points,\nand see what is the minimal path computed between these points.\",\"OK\" rm }"
+first_time=0
+fi
++gradient_norm b. 1 f. exp(-i/10)
+to_rgb[0] +select[0] 0 P0={^}
+ellipse[0] {@0,1},3,3,0,1,255,0,255
+ellipse[0] {@0,1},3,3,0,1,0xFFFFFFFF,255,255,255
+rm.
+if min($P0)>=0
+p=1
+do
+w[0] -1,-1,0,"[G"{`39`}"MIC] Select Ending Point P"$p
++select[0] 0
+if {*,S}
+rm.
++to[0] "Saving snapshot...",5,5,13,1,1,255,255,255 w. rm.
+o[0] gmic_minimal_path.png
+wait -1
+else
+P1={^}
+ellipse[0] {@0,1},3,3,0,1,255,0,255
+ellipse[0] {@0,1},3,3,0,1,0xFFFFFFFF,255,255,255
+rm.
+if min($P1)>=0
++to[0] "Processing...",5,5,13,1,1,255,255,255 w. rm.
++minimal_path[1] $P0,$P1,1 transpose.
+pointcloud. 0 *. 255 r. 100%,100%,1,[0],0,0,0,0,0,0.5 ri. [0],0 -|[0,-1]
+P0=$P1 p+=1
+fi
+fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+fi
+rm[1] w 0
+}
+#@cli x_morph : _nb_frames>=2,_preview_fidelity={ 0=coarsest | 1=coarse | 2=normal | 3=fine | 4=finest }
+#@cli : Launch the interactive image morpher.
+#@cli : Default values: 'nb_frames=16' and 'preview_fidelity=3'.
+x_morph : check "isint(${1=16}) && isint(${2=3}) && $2>=0 && $2<=4" check_display $0
+if $!<2 error[0--3] "Command '$0': Requires at least two input images!" return fi
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r b=$_vt100_b
+e "\n
+------ "${g}"Interactive image morpher"$n" ---------------------------\n
+----\n
+---- "${b}"Source/target window:"$n"\n
+---- "${c}"Left mouse button"$n": Add new keypoint on current image\n
+---- and move it on the other one.\n
+---- "${c}"Right mouse button"$n": Add/move keypoint on current image.\n
+---- Key '"${c}"DELETE"$n"' or "${c}"middle mouse button"$n": Delete keypoint.\n
+---- Key '"${c}"SPACE"$n"' or "${c}"mouse wheel"$n": Toggle source/target.\n\n
+---- "${b}"In-between window:"$n"\n
+---- "${c}"Mouse wheel"$n": Change morphing time, from 0 to 1.\n
+---- "${c}"Left mouse button"$n": Reset morphing time to 0.5.\n\n
+---- "${b}"Both windows:"$n"\n
+---- Key '"${c}"TAB"$n"': Change keypoint radius.\n
+---- Key '"${c}"ENTER"$n"': Play/stop in-between animation.\n
+---- Key '"${c}"R"$n"': Reset keypoints.\n
+---- Key '"${c}"K"$n"': Show/hide keypoints.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"': Process fullres and exit.\n
+----\n
+-----------------------------------------------------------"
+offset=0
+radius_keypoints=3
+repeat $!-1 { l[{[$>,$>+1]+$offset}] {
+nm0={0,n} nm1={1,n}
+to_colormode 0
+rr2d ${-max_wh},2
+=> img0,img1
+256,1,1,1,"x>=4?x-2:1" map. 2 => colormap
+selected_keypoint=-1
+view_keypoints=1
+time_inbetween=0.5
+animate_inbetween=0
+move_other=0
+frame=0
+do
+if !narg($keypoints)
+if narg($__x_morph_keypoints) ($__x_morph_keypoints) r. 1,{w/5},1,5,-1
+else 1,4,1,5,"p = y%2; q = int(y/2); [ [ p,q,p,q ]*100,y ]"
+fi
+N0={h} => keypoints
+rmn warp0,warp1
+fi
+if !narg($imgb0)" || "!narg($imgb1)
+if {*} wdims=${"fitscreen "{*,d},{img0,{*,d}*h/w}}
+else wdims=${"fitscreen "{img0,[w,h,1]},128,50%}
+fi
+w[] $wdims,0,"[G'MIC] Interactive Morph"
+repeat 2 { +to_color[img$>] r. $wdims,1,100%,2 n. 0,255 => imgb$> }
+rmn imgr,warp0,warp1
+fi
+if (!narg($warp0)" || "!narg($warp1))
+subsamp:=arg(1+$2,8,6,4,2,1)
++_x_warp_rbf[keypoints] {imgb0,round([w,h]/$subsamp)}
++l[keypoints] { s c,-2 rv[0,1] a c } +_x_warp_rbf. {imgb0,round([w,h]/$subsamp)} rm..
+*[-2,-1] $subsamp
+r[-2,-1] {imgb0,[w,h]},1,100%,3
+=> warp0,warp1
+rmn imgm
+fi
+if !narg($imgr)
+[imgb$frame] => imgr
+if s==4 drgba. fi
+if $view_keypoints
+eval[keypoints] "*
+begin(
+fact = ([ w#"$imgb0",h#"$imgb0" ] - 1)/100;
+const radius1 = "$radius_keypoints";
+const radius2 = radius1 + 2;
+const opacity = min(1,3/"($radius_keypoints-1)");
+);
+X = round((I)[2*"$frame",2]*fact);
+y=="$selected_keypoint"?(ellipse(#-1,X,radius2+2,radius2+2,0,1,255));
+ellipse(#-1,X,radius2,radius2,0,opacity,0);
+ellipse(#-1,X,radius1,radius1,0,opacity,I[#"$colormap",i4]); I"
+fi
+w. -1,-1,0,"[G'MIC] Interactive Morph ("${"s0=Source s1=Target u ${s"$frame"}"}")"
+fi
+if !narg($imgm)
+t,onemt={t=$animate_inbetween?0.5*(1+sin(2*($time_inbetween+$|-$animate_inbetween))):$time_inbetween;[t,1-t]}
++*[warp1] $t *. -1 +warp[imgb0] .,1,2,3 rm.. *. $onemt
++*[warp0] $onemt *. -1 +warp[imgb1] .,1,2,3 rm.. *. $t
++[-2,-1] c. 0,255 => imgm
+w1. -1,-1,0,"[G'MIC] Interactive Morph (In-between)"
+fi
+if $animate_inbetween wait 40 else wait fi
+mb={*,b} mxy={[{*,x,y}]*100/([{*,w,h}]-1)} mouse_over={{*,x}>=0}
+if $mouse_over" && "($mb" || "{*,DELETE})" && "$selected_keypoint<0" && "h#$keypoints>0
+selected_keypoint={keypoints,"dmin = inf; kmin = -1; fact = ([w#"$imgr",h#"$imgr"]-1)%;
+repeat (h,k,
+dist = norm(((I[k])[2*"$frame",2] - ["$mxy"])*fact);
+dist=0 && dmin<"max(8,1.5*$radius_keypoints)"?kmin:-1"}
+fi
+if {*,-o}" || "{*,-SPACE}" || "{*1,-SPACE} frame={!$frame} rmn imgr fi
+if {*,-K}" || "{*1,-K} view_keypoints={!$view_keypoints} rmn imgr fi
+if {*,-R}" || "{*1,-R} rmn keypoints,imgr __x_morph_keypoints= fi
+if {*,-TAB}" || "{*1,-TAB}
+radius_keypoints={max(2,($radius_keypoints+2)%8)} view_keypoints=1 rmn imgr
+fi
+if {*,-ENTER}" || "{*1,-ENTER} animate_inbetween={$animate_inbetween?0:$|} fi
+if {*,r} rmn imgb0,imgb1 fi
+if {*1,r} rmn imgm fi
+if {*1,o}
+time_inbetween={max(0,min(1,$time_inbetween+0.05*{*1,-o}))} animate_inbetween=0 rmn imgm
+fi
+if {*1,-b} time_inbetween=0.5 animate_inbetween=0 rmn imgm fi
+if $mouse_over" && "($mb==1" || "$mb==2)" && "$selected_keypoint<0
+if $mb==1" && "!$move_other frame={!$frame} move_other=1 fi
+({keypoints,[$mxy,$mxy,h]})
+permute. zycx a[keypoints,-1] y
+selected_keypoint={keypoints,h-1}
+rmn imgr
+elif $mouse_over" && "($mb==1" || "$mb==2)" && "$selected_keypoint>=0
+if $mb==1" && "!$move_other frame={!$frame} move_other=1 fi
+({[$mxy]}) permute. zycx j[keypoints] .,0,$selected_keypoint,0,{2*$frame} rm.
+rmn imgr
+elif $mouse_over" && "$selected_keypoint>=0" && ("{*,-DELETE}" || "$mb==4") && "h#$keypoints>4 # Delete keypoint
+1,1,1,5,-1 j[keypoints] .,0,$selected_keypoint rm. discard[keypoints] -1 r[keypoints] 1,{keypoints,h/5},1,5,-1
+N0-={$selected_keypoint<$N0?1:0} selected_keypoint=-1
+rmn warp0,warp1,imgr
+elif !{*,b}" && "$selected_keypoint>=0
+if $move_other frame={!$frame} move_other=0 fi
+selected_keypoint=-1
+rmn warp0,warp1,imgr
+fi
+if $animate_inbetween rmn imgm fi
+while {*}" && "!{*,ESC}" && "!{*,Q}" && "{*1}" && "!{*1,ESC}" && "!{*1,Q}
+if !$< __x_morph_keypoints={keypoints,^} fi
+rmn colormap,imgb0,imgb1,warp0,warp1,imgr,imgm
++_x_warp_rbf[keypoints] {img0,[w,h]}
++l[keypoints] { s c,-2 rv[0,1] a c } +_x_warp_rbf. {img0,[w,h]} rm..
+=> warp0,warp1
+repeat $1 {
+t,onemt={t=$>/max(1,$1-1);[t,1-t]}
++*[warp1] $t *. -1 +warp[img0] .,1,2,3 rm.. *. $onemt
++*[warp0] $onemt *. -1 +warp[img1] .,1,2,3 rm.. *. $t
++[-2,-1] c. 0,255 => ${nm0}_$>
+if {*}" && "{*1} w1 0 fi
+if {*}" || "{*1}
+text="Processing frame \#"$>"/"{$1-1}"..."
+if {*} +r. {*,d,e},1,100%,2 to. $text,5,5,20,2 w. rm. fi
+if {*1} +r. {*1,d,e},1,100%,2 to. $text,5,5,20,2 w1. rm. fi
+fi
+}
+=> $nm1 k[-$1--1]
+offset+={$!-2}
+} } w0 0 w1 0
+#@cli x_pacman
+#@cli : Launch pacman game.
+x_pacman : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Pacman"$n" -----------------------------------------------\n
+----\n
+---- This is a G\47MIC implementation of the "${g}"pacman"$n" game.\n
+----\n
+---- Move the pacman to eat all pacdots on the different levels.\n
+---- Eating a pacgum makes pacman invincible for "${c}"10 seconds"$n",\n
+---- which mean pacman can eat ghosts during this time.\n
+---- Eating a ghost earns "${c}"100 pts"$n".\n
+---- Eating a cherry earns "${c}"10 pts"$n".\n
+---- Eating a strawberry earns "${c}"100 pts"$n".\n
+---- Eating an orange earns "${c}"1000 pts"$n".\n
+---- Eating a banana earns "${c}"5000 pts"$n".\n
+----\n
+---- "${c}"Arrow keys"$n" to control pacman.\n
+---- Keys '"${c}"CTRL+D"$n"' to increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' to reset window size.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+--------------------------------------------------------------"
+l[] {
+m "_pacman_ghost_base_gfx : 31,19 circle. 15,15,15,1,1 31,12,1,1,'y<4+8*abs(cos(x*0.3+0.25*pi*$""1))' a[-2,-1] y"
+repeat 4 {
+_pacman_ghost_standard_gfx 255,0,0,$> => ghost0_$>
+_pacman_ghost_standard_gfx 0,255,222,$> => ghost1_$>
+_pacman_ghost_standard_gfx 255,184,222,$> => ghost2_$>
+_pacman_ghost_standard_gfx 255,184,71,$> => ghost3_$>
+_pacman_ghost_afraid_gfx $> => ghosta_$>
+_pacman_ghost_base_gfx $> r. 16,16,1,1,2 => ghostm_$>
+_pacman_ghost_standard_gfx 0,0,0,$> => ghostd_$>
+_pacman_pacman_gfx $> => pacman_$>,pacmanm_$>
+}
++channels[ghostd_0] 0 !=. 0 => ghostdm
+_pacman_cherry_gfx _pacman_strawberry_gfx _pacman_orange_gfx _pacman_banana_gfx => fruit0,fruit1,fruit2,fruit3
+20,2,1,3,200 => gate
+score0,score1,score2,score3,score4=10,100,1000,5000,"Argh!"
+repeat 5 {
+0 t. ${score$>},0,0,13,1,255,255,255 autocrop. 0 expand_xy. 1,0 +dilate. 3 => score$>,scorem$>
+}
+time4=255,255,255 time3=255,255,32 time2=255,128,32 time1=255,32,32
+repeat 11 { 0 t. $<" s",0,0,23,1,${time{min(4,round(($<+1)/2))}} => time$< }
+0 t. "Get Ready!",0,0,32,1,255 autocrop. 0 expand_xy. 4,0 +dilate. 8 r.. 100%,100%,1,3 => get_ready,get_readym
+0 t. "Game\nOver!",0,0,53,1,255 autocrop. 0 expand_xy. 4,0 +dilate. 8 r.. 100%,100%,1,3 => game_over,game_overm
+score=0 level=-1 lives=3 is_quit=0
+do
+if $level<0
+_rlevel=33 _glevel=33 _blevel=255
+_pacman_map_level{((-$level-1)%6)+1} mw={w} mh={h} mw2={int(w/2)} mh2={int(h/2)}
+if $level<-6 replace. 3,2 fi
+. => map0,map
++shift[map] -1,0 +shift[map] 0,-1 +shift[map] 1,0 +shift[map] 0,1 a[-4--1] z !=. 1 => can_go
++==[map] 1 100%,100% =. 1,$mw2,$mh2 distance. 1,..,3 channels. 100%
+f. 'if(i==2,0,if(i==8,1,if(i==1,2,if(i==4,3,i))))' => path
++==[map] 2 pacdots={is} rm.
+level={-$level}
+fi
+f[map] 'if(i>=4,0,i)' +==[map] 1 expand_xy. 1,0 r. 1600%,1600% erode. 9 b. 2
+g. xy abs[-2,-1] +[-2,-1] >=. 80% b. 2 n. 0,1 shrink_xy. 16
++*. $_glevel +*.. $_blevel *... $_rlevel a[-3--1] c
+16,16,1,1,'x' +-[map] 1 max. 0 *. 16 r. 1600%,1600%
+16,16,1,1,'y' ri[-3,-1] ..,0,2 +[-2,-1] a[-2,-1] c
+16,16,1,3 _pacman_pacdots_gfx _pacman_pacgum_gfx a[-3--1] y
+warp. ..,0,0,1 rm.. -|[-2,-1] r. 100%,{h+24},1,3,0,0,0,1
+t. "Lives :",10,0,24,1,255 t. "Score :",{w-140},0,24,1,255
+if $lives +r[pacman_2] 12,12,1,4,2 r. {100*$lives}%,100%,1,4,0,2 j.. .,90,7 rm. fi => visu
+w[visu] {visu,f=h<0.5*{*,v}?1.5:1;[w,h]*=f},0,"[G"{`39`}"MIC] Pacman" cursor[0] 0
+0 t. "Level "$level,0,0,64,1,1 autocrop. 0 expand_xy. 4,0 (0,255^0,255^0,0) +map.. . rm.. dilate.. 8
+=> levelm_N,level_N
+repeat 4 { xg$>={16*$mw2} yg$>={16*$mh2+4*$>} dg$>=3 mg$>=0 }
+xp={16*10} yp={16*21} dp=-1 pacgum_timer=-1 fruit_timer=$| dying_pacman=0 is_get_ready=1
+xscore=0 yscore=0 nscore=0 oscore=0
+do
+t={int(6*$|)%4} left={if($pacgum_timer>=0,10-$|+$pacgum_timer,-1)}
+[visu]
+repeat 4 {
+mg=${mg$>} xg=${xg$>} yg={${yg$>}+24}
+if $mg==0 j. [ghost$>_$t],$xg,$yg,0,0,1,[ghostm_$t]
+elif $mg==1 t2={if($left>7,$t,if($left>3,int(12*$|)%4,int(24*$|)%4))} j. [ghosta_$t2],$xg,$yg,0,0,1,[ghostm_$t]
+elif $mg==2 j. [ghostd_$t],$xg,$yg,0,0,0.8,[ghostdm]
+else j. [ghost$>_$t],$xg,$yg,0,0,{$mg-2},[ghostm_$t] j. [ghostd_$t],$xg,$yg,0,0,1,[ghostdm]
+fi
+}
+if $dying_pacman
+_pacman_pacman_gfx {$dying_pacman/2} rotate[-2,-1] {90*(abs($dp)-1)} j... ..,$xp,{24+$yp},0,0,1,.,255 rm[-2,-1]
+dying_pacman+=1
+if $dying_pacman>64
+if $lives!=1 rm. break fi
+j. [game_over],{(w-{game_over,w})/2},{12+(h-{game_over,h})/2},0,0,{min(1,($dying_pacman-64)/50)},[game_overm],255
+rectangle. 90,7,101,18,1,0
+fi
+else
++rotate[pacman_$t,pacmanm_$t] {90*(abs($dp)-1)} j... ..,$xp,{24+$yp},0,0,1,.,255 rm[-2,-1]
+if $left>=0" && "($left>=5" || "$t<=2) j. [time{round($left)}],{(w-{time0,w})/2-10},1 fi
+fi
+t. $score,{w-60},3,20,1,255
+if $is_get_ready
+j. [level_N],{(w-{level_N,w})/2},{12+(h-1.5*{level_N,h})/2},0,0,1,[levelm_N]
+if int($|*4)%2 j. [get_ready],{(w-{get_ready,w})/2},{24+(h+{get_ready,h})/2},0,0,1,[get_readym],255 fi
+fi
+if $oscore>0 j. [score$nscore],$xscore,$yscore,0,0,$oscore,[scorem$nscore],255 oscore-=0.04 yscore-=1 fi
+j. [gate],158,223,0,0,0.6
+w.
+if {*,CTRLLEFT}" && "{*,D} w[] {2*w},{2*h}
+elif {*,CTRLLEFT}" && "{*,C} w[] {f=h<0.5*{*,v}?1.5:1;[w,h]*=f}
+fi
+rm.
+repeat 4 {
+xg=${xg$>} yg=${yg$>} dg=${dg$>} mg=${mg$>}
+if max(abs($xg-$xp),abs($yg-$yp))<=8
+if $mg==0" && "!$dying_pacman dying_pacman=1
+xscore=$xp yscore={$yp+12} oscore=1 nscore=4
+elif $mg==1 mg=2 mg$>=$mg score+=100
+xscore=$xp yscore={$yp+12} oscore=1 nscore=1
+fi
+fi
+if $mg>=2" && "($xg>>4)==$mw2" && "($yg>>4)==$mh2
+mg+=0.01
+if $mg>=3 mg=0 xg&=-2 yg&=-2 fi
+mg$>=$mg
+fi
+if !($xg&15)" && "!($yg&15)
+({u},{u},{u},{u};0,1,2,3)
+if $mg<2
+=. {u(0.6,1)},{if($mg==0,dX0=$xp-$xg;dY0=$yp-$yg;if(abs(dX0)>abs(dY0),if(dX0>0,0,2),if(dY0>0,1,3)),dX1=$xp-$xg;dY1=$yp-$yg;if(abs(dX1)0,2,0),if(dY1>0,3,1)))}
+=. 0,{($dg+2)%4}
+if $is_get_ready =. 0.8,{path,i({$xg>>4},{$yg>>4})} fi
+else =. 1,{path,i({$xg>>4},{$yg>>4})}
+fi
+sort. -,x
+repeat 4 { d={i($>,1)}
+if {can_go,i({$xg>>4},{$yg>>4},$d)} dg=$d break fi
+} rm.
+dg$>=$d
+fi
+u={D=${dg$>};(D==0)-(D==2)}
+v={D=${dg$>};(D==1)-(D==3)}
+xg$>={($xg+$u*(1+($mg==0)))%(16*$mw)}
+yg$>={($yg+$v*(1+($mg==0)))%(16*$mh)}
+}
+wait 22
+if !$dying_pacman
+d={if({*,ARROWRIGHT},1,if({*,ARROWDOWN},2,if({*,ARROWLEFT},3,if({*,ARROWUP},4,$dp))))}
+if !($xp&15)" && "!($yp&15)
+i={map,i({$xp>>4},{$yp>>4})}
+if $i==2 score+=10 pacdots-=1
+elif $i==3 pacgum_timer=$| repeat 4 { if !${mg$>} mg$>=1 dg$>={(${dg$>}+2)%4} fi }
+elif $i>=4 score+={${score{$i-4}}} xscore=$xp yscore={$yp+12} oscore=1 nscore={$i-4}
+fi
+=[map] 0,{$xp>>4},{$yp>>4}
+16,16,1,3 j[visu] .,$xp,{24+$yp} rm.
+d={if({can_go,i({$xp>>4},{$yp>>4},{abs($d)-1})},$d,$dp)}
+d={if({can_go,i({$xp>>4},{$yp>>4},{abs($d)-1})},$d,-abs($dp))}
+dp=$d
+else dp={if(abs($d-$dp)==2,$d,$dp)}
+fi
+is_get_ready={if($dp>0,0,$is_get_ready)}
+u={($dp==1)-($dp==3)}
+v={($dp==2)-($dp==4)}
+xp={($xp+2*$u)%(16*$mw)}
+yp={($yp+2*$v)%(16*$mh)}
+if $pacgum_timer>=0" && "$|>$pacgum_timer+10
+repeat 4 { xg$>&=-2 yg$>&=-2 mg$>={if(${mg$>}==1,0,${mg$>})} }
+pacgum_timer=-1
+fi
+if !$is_get_ready" && "($|-$fruit_timer)>=10
+x={round(u(0,{map0,w}))}
+y={round(u(0,{map0,h}))}
+if !{map,i($x,$y)}" && "{map0,i($x,$y)}==2
+n={min(3,int(abs(g*1.7)))} =[map] {4+$n},$x,$y j[visu] [fruit$n],{16*$x},{16*$y+24} fruit_timer=$|
+fi
+fi
+fi
+if !{*}" || "{*,Q}" || "{*,ESC} is_quit=1 fi
+while !$is_quit" && "$pacdots
+if $is_quit break
+elif $pacdots
+lives-=1
+else
+level={-$level-1} wait[0] -1
+rm[map0,map,can_go,path]
+fi
+rm[visu,level_N,levelm_N]
+while $lives
+rm w 0 }
+_pacman_ghost_standard_gfx :
+_pacman_ghost_base_gfx $4 (0,$1^0,$2^0,$3) map.. . rm.
+ellipse. 10,11,3,4,0,1,255 ellipse. 20,11,3,4,0,1,255
+r. 16,16,1,3,2 point. 5,{7-($4>=2)},0,1,1 point. 10,{7-($4>=2)},0,1,1
+_pacman_ghost_afraid_gfx :
+_pacman_ghost_base_gfx $1
+if $1<2 col=255,255,255 (0,0^0,0^0,208) else col=255,0,0 (0,248^0,248^0,248) fi
+map.. . rm. r. 16,16,1,3,2
+line. 4,4,6,6,1,$col,255 line. 4,6,6,4,1,$col,255
+line. 9,4,11,6,1,$col,255 line. 9,6,11,4,1,$col,255
+f. 'if(y>=9&&y<=10&&x>=2&&x<=13&&((int((x+1)/2)+y)%2),arg(c+1,$col),i)'
+_pacman_pacman_gfx :
+32,32,1,1,'X=x-15;Y=y-15;A=atan2(Y,X);R=sqrt(X^2+Y^2);R<15.5&&abs(A)>0.8*0.33*$1'
+(0,255^0,255^0,0^0,255) map.. . rm. r. 16,16,1,4,2 s. c,-3
+_pacman_pacdots_gfx :
+(255^184^151) r. 4,4,1,3 r. 16,16,1,3,0,0,0.5,0.5
+_pacman_pacgum_gfx :
+64,64,1,3 circle. 31,31,31,1,255,128,64 r2dx. 16
+_pacman_cherry_gfx :
+base642img[] "MSBpbnQ4IGxpdHRsZV9lbmRpYW4KNzYgMSAxIDEgIzU5CnicFYpBCgAxDALVXvv/p5ZtmsgmIMoM7k0Cx/ySYYIXrE5qOgTmE1KGlo""UW1pp1qVUqmkt3Hj9Whx3S"
+decompress_rle. (0,0,255,255^0,173,0,255^0,0,0,255) map.. . rm. r2dy. 14 r. 16,16,1,3,0,0,0.5,0.5
+_pacman_strawberry_gfx :
+base642img[] "MSBpbnQ4IGxpdHRsZV9lbmRpYW4KNzIgMSAxIDEgIzYwCnicJYlJDoAwEMOyHOH/H+UANJ0RBaRIlp1tJ4HAd9HFaoUtTNWC1yIPWT""5ew5em+lT994guKHgAoIoa8w=="
+decompress_rle. (0,0,255,255^0,173,0,255^0,0,0,255) map.. . rm. r2dy. 14 r. 16,16,1,3,0,0,0.5,0.5
+_pacman_orange_gfx :
+base642img[] "MSBpbnQ4IGxpdHRsZV9lbmRpYW4KNDQgMSAxIDEgIzQ2CnicBcHBDQAgDAOxXPjC/gsxU4VKi7DnAukKPU6SYjTVptxhbSv8wpVufU""wDEZ4="
+decompress_rle. (0,0,255,255^0,173,173,255^0,0,0,255) map.. . rm. r2dy. 14 r. 16,16,1,3,0,0,0.5,0.5
+_pacman_banana_gfx :
+base642img[] "MSBpbnQ4IGxpdHRsZV9lbmRpYW4KNzAgMSAxIDEgIzQ4CnicNcqxDQAgDMTANx0S++8aIC9ShObceC6QQoSJ5Ai5vWW2WTI6xr+bvL""U/BnUW3g=="
+decompress_rle. (0,255,255^0,173,255^0,0,255) map.. . rm. r2dy. 14 r. 16,16,1,3,0,0,0.5,0.5
+_pacman_map_level1 :
+base642img[] "MSBpbnQ4IGxpdHRsZV9lbmRpYW4KMjAxIDEgMSAxICM5Nwp4nGWOUQ6AMAhDKX56Be9/QnWJArEM9MdsGa9QYOsGiOy4FaZYHAo1aM""ezIJ+QJnszLsq2aRaf9Q9GiaBnGmEZhSe8wLOdVqO+My+cFdJj9OpVQ0vzRm8l/L954AHE9jns"
+decompress_rle. +mirror. x z. 1,100% a[-2,-1] x
+_rlevel=33 _glevel=33 _blevel=255
+_pacman_map_level2 :
+base642img[] "MSBpbnQ4IGxpdHRsZV9lbmRpYW4KMjA4IDEgMSAxICMxMDAKeJxljkEOAzEIAxn32C/0/y+MdlUloAKJemgvjAOG+PkCs8ElHsjRQk""0iycwS+/2jcuJlnhhhf3SxPKWw9DaJmYsbmLOqmyaXn92UsVV9Y+sweOvb7YB1vQPPDnV4a/ABHS45BA=="
+decompress_rle. +mirror. x z. 1,100% a[-2,-1] x
+_rlevel=200 _glevel=33 _blevel=33
+_pacman_map_level3 :
+base642img[] "MSBpbnQ4IGxpdHRsZV9lbmRpYW4KMjA5IDEgMSAxICMxMDEKeJxVTlsOwDAIAve5K+z+N+zStGomeyTdjwIKYT9IoHGAbpOgdQ3n1i""1ZinHdnO+20FuKg3nf4WIO3YolP8QEQ75CEkoKaUIDT3K95w8OZbp4lDcMj1PNUjXyDg+u4LTGC5LiOwA="
+decompress_rle. +mirror. x z. 1,100% a[-2,-1] x
+_rlevel=33 _glevel=200 _blevel=255
+_pacman_map_level4 :
+base642img[] "MSBpbnQ4IGxpdHRsZV9lbmRpYW4KMjEwIDEgMSAxICM5MAp4nHVPQQ6AMAhr8egX/P8TN+cGGSy6TBMTQgqlUPaDBDINLBJZbMQHqm""wq7e40eahgy8i/jDKB1QhlRWBzcPH09Rnr9ALTrHSOuN5N+IFF9LIY9uOPDitcQvE="
+decompress_rle. +mirror. x z. 1,100% a[-2,-1] x
+_rlevel=200 _glevel=200 _blevel=33
+_pacman_map_level5 :
+base642img[] "MSBpbnQ4IGxpdHRsZV9lbmRpYW4KMjA3IDEgMSAxICMxMDAKeJxdjlEKxCAMRPOmn3uF3v+ELXRrDE2qwrIgzPB8Mn52MDv4ihBbQy""jQyuRBz96RF8NmSYAb98s65j95Wd0bFqxG1MNV/s1ealMujRHdI5wtf9X0WnWmFWO/7JmJXScPVxI1Cg=="
+decompress_rle. +mirror. x z. 1,100% a[-2,-1] x
+_rlevel=200 _glevel=255 _blevel=33
+_pacman_map_level6 :
+base642img[] "MSBpbnQ4IGxpdHRsZV9lbmRpYW4KMTgzIDEgMSAxICM5Mgp4nGVO0QqAQAhz67Ff6P+/sK66TNqJUBCozDHn5gUwW9EIBnhi2nmBPQ""mHCeMwDbuzBNCH1oZeDBEiPSWiAoXU8Yfhn4PyiNc1X3i99NwUJPMoVyVs3PAASqEr4g=="
+decompress_rle. +mirror. x z. 1,100% a[-2,-1] x
+_rlevel=255 _glevel=130 _blevel=233
+#@cli x_paint
+#@cli : Launch the interactive painter.
+x_paint : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Interactive painter"$n" -----------------------\n
+----\n
+---- Use "${c}"mouse"$n" to select color and brush.\n
+---- "${c}"Left button"$n" draws a colored stroke.\n
+---- "${c}"Right button"$n" fills a colored region.\n
+---- "${c}"Arrow keys"$n" or '"${c}"SPACE"$n"' and '"${c}"BACKSPACE"$n"' to swap\n
+---- between available images.\n
+---- Key '"${c}"S"$n"' to save snapshot of the current view.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+--------------------------------------------------"
+to_rgb
+if !$! i[0] 512,512,1,3,255 =>[0] "[New image]" else k[0] fi
+1
+parallel "_x_paint[]","w[] 400,320,0,Palette x_select_color[] __color,0,0,0" k[0]
+_x_paint :
+pass[-2,-1] 1 ('{-2,n}') discard. {'_c1'} =>[0] {t} rm.
+__color={0,if(ia<128,vector3(255),vector3(0))}
+brushsize=1
+brushopacity=0
+brushangle=90
+brushthickness=1
+image=0
+refresh_image=1
+refresh_brush=1
+ox1=-1
+oy1=-1
+do
+if $refresh_brush
+rm. (32,64;64,32) r. 16,16,1,3,1 r. {8*48},{4*48},1,3,0,2
+repeat 4 { y=$>
+repeat 8 {
+ellipse. {48*$>+24},{48*$y+24},{2*$>+1},{(2*$>+1)*$brushthickness},$brushangle,{1-$y/4},255
+}
+}
+rectangle. {$brushsize*48},{$brushopacity*48},{$brushsize*48+47},{$brushopacity*48+47},1,0xFFFFFFFF,255,128,128
+{w},16,1,3 line. 0,50%,100%,50%,1,0x55555555,128,64,128
+bx={$brushangle*w/180}
+rectangle. {$bx-16},20%,{$bx+16},80%,1,128
+line. {$bx-16},20%,{$bx+16},20%,1,255 line. {$bx+16},20%,{$bx+16},80%,1,255
+line. {$bx-16},80%,{$bx+16},80%,1,64 line. {$bx-16},20%,{$bx-16},80%,1,64
+a[-2,-1] y
+16,{h-16},1,3 line. 50%,0,50%,100%,1,0x55555555,128,64,128
+by={$brushthickness*(h-16)}
+rectangle. 20%,{$by-16},80%,{$by+16},1,128
+line. 20%,{$by-16},80%,{$by-16},1,255 line. 80%,{$by-16},80%,{$by+16},1,255
+line. 20%,{$by-16},20%,{$by+16},1,64 line. 20%,{$by+16},80%,{$by+16},1,64
+a[-2,-1] x
+w3. {w},{h},0,"Brush"
+refresh_brush=0
+fi
+if $refresh_image
+w1[$image] {$image,w},{$image,h},0,"Image "\#$image" : "{$image,b}.{$image,x}
+refresh_image=0
+fi
+x1={*1,x} y1={*1,y}
+x2={*2,x} y2={*2,y}
+x3={*3,x} y3={*3,y}
+if $x1>=0
+if {*1,b}&1
+ox1={if($ox1<0,$x1,$ox1)}
+oy1={if($oy1<0,$y1,$oy1)}
+delta={max(abs($x1-$ox1),abs($y1-$oy1))}
+r1={2*$brushsize+1}
+r2={$r1*$brushthickness}
+dx={2*($x1-$ox1)/max(1,$delta)}
+dy={2*($y1-$oy1)/max(1,$delta)}
+o={1-($brushopacity/4)^0.04}
+repeat max(1,($delta+1)/2) {
+ellipse[$image] {$ox1+$>*$dx},{$oy1+$>*$dy},$r1,$r2,$brushangle,$o,$__color
+}
+ox1=$x1 oy1=$y1
+refresh_image=1
+else
+ox1=-1 oy1=-1
+if {*1,b}&2
+flood[$image] $x1,$y1,0,10,0,1,$__color
+refresh_image=1
+fi
+fi
+fi
+if {*1,ARROWRIGHT}" || "{*2,ARROWRIGHT}" || "{*3,ARROWRIGHT}" || "\
+{*1,ARROWUP}" || "{*2,ARROWUP}" || "{*3,ARROWUP}" || "{*1,SPACE}" || "{*2,SPACE}" || "{*3,SPACE}
+image={($image+1)%($!-2)} refresh_image=1
+elif {*1,ARROWLEFT}" || "{*2,ARROWLEFT}" || "{*3,ARROWLEFT}" || "{*1,ARROWDOWN}" || "{*2,ARROWDOWN}" || "{*3,ARROWDOWN}" || "{*1,BACKSPACE}" || "{*2,BACKSPACE}" || "{*3,BACKSPACE}
+image={($image-1)%($!-2)} refresh_image=1
+fi
+if {*1,S} o[$image] gmic_paint.png fi
+if {*3,b}" && "$x3>=0
+if $x3<384" && "$y3>=192 brushangle={$x3*180/(w-16)}
+elif $x3>=384" && "$y3<192 brushthickness={$y3/(h-16)}
+elif $x3<384" && "$y3<192 brushsize={int($x3*8/(w-16))} brushopacity={int($y3*4/(h-16))}
+fi
+refresh_brush=1
+fi
+wait
+while {*1}" && "!{*1,Q}" && "!{*1,ESC}
+__color=-1 w1[] 0 w2[] 0 w3[] 0 rm[-2,-1]
+#@cli x_plasma
+#@cli : Launch the plasma effect demo.
+x_plasma : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Plasma effect"$n" ----------------------\n
+----\n
+---- Keys '"${c}"CTRL+D"$n"' to increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' to reset window size.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+-------------------------------------------"
+l[] {
+N=8
+repeat $N {
+320,200,1,3 rand. 0,255 plasma. 1,0,7 n. 0,255
+amp={u(-40,40)} freq={round(u(2,6))} dir$>={if(u<0.5,-1,1)*round(u(1,2))}
+100%,100%,1,1,'$amp*cos(y*2*pi*$freq/h)'
+}
+{w+2},100%,1,1,'x' 100%,100%,1,1,'Y=(y-80+15*cos(x/30)+10*sin(x/22));if(Y<0||Y>=50,-1,Y)' a[-2,-1] c
+0 t. "** Welcome to G\47MIC, a powerful image processing framework **",0,0,50,1,255
+b. 0.5 n. 0,255
+M={w}
+w[] {0,f=1.5*h<0.5*{*,v}?3:1.5;[w,h]*=f},0,"[G"{`39`}"MIC] Plasma Effect"
+t=0 tt={-1.5*{0,w}}
+do
+tic=$|
+a={int($t)} a2={2*$a} a21={$a2+1}
+b={($a+1)%$N} b2={2*$b} b21={$b2+1}
++warp[$a2] [$a21],1,0,2
++warp[$b2] [$b21],1,0,2
+j.. .,0,0,0,0,{$t-$a} rm.
+shift[$a21] 0,${dir$a},0,0,2
+shift[$b21] 0,${dir$b},0,0,2
+if int($t+0.005)>int($t) dir$a={if(u<0.5,-1,1)*round(u(1,3))} fi
+t={($t+max(0.005,($|-$tic)))%$N}
++z.. $tt,{$tt+w-1+2}
+warp. [-4],0,0,0
+r. 100%,100%,1,3
++*. -1 +. 255
+j... .,0,0,0,0,1,..,255 rm.
+j.. .,-2,-2,0,0,1,.,255 rm.
+tt+={max(2,($|-$tic)*250)}
+if $tt>=$M tt={-1.5*{0,w}} fi
+fps=${-fps} if $fps>0 to. $fps" fps",5,5,16,1,0.2 fi
+w.
+if {*,CTRLLEFT}" && "{*,D} w[] {3*w},{3*h} elif {*,CTRLLEFT}" && "{*,C} w[] {1.5*w},{1.5*h} fi
+rm. wait 20
+while {*}" && "!{*,ESC}" && "!{*,Q}
+rm[{-2*$N-2}--1] w[] 0 }
+#@cli x_quantize_rgb : _nbcolors>=2
+#@cli : Launch the RGB color quantization demo.
+x_quantize_rgb : check "isint(${1=16}) && $1>1" check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"RGB Quantization"$n" --------------------------------------\n
+----\n
+---- This demo shows how RGB colors can be quantified using\n
+---- the "${c}"k-means algorithm"$n".\n
+----\n
+---- "${c}"Left mouse button"$n" on 3D view rotates the color cube.\n
+---- "${c}"Right mouse button"$n" on 3D view toggles colors/clusters mode.\n
+---- "${c}"Left mouse button"$n" on image toggles dithering mode,\n
+---- "${c}"Left mouse button"$n" on colormap adds a random color.\n
+---- "${c}"Right mouse button"$n" on colormap removes a color.\n
+---- Key '"${c}"R"$n"' init colormap with random values.\n
+---- Key '"${c}"U"$n"' init colormap with uniform sampling.\n
+---- Key '"${c}"M"$n"' init colormap with median-cut algorithm.\n
+---- Key '"${c}"SPACE"$n"' does a single iteration of k-means and pauses.\n
+---- Key '"${c}"ENTER"$n"' runs k-means algorithm.\n
+---- Keys '"${c}"CTRL+D"$n"' to increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' to reset window size.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+--------------------------------------------------------------"
+if !$! sp ? fi
+k[0] to_rgb if h>300 r2dy 300 round 1 fi => img
++r {w*h},1,1,3,-1 r. {min(w,8192)},1,1,3 => colors
+$1,1,1,3 rand. 0,255 round. 1 => centroids
+_x_quantize_rgb_3d (1,0,0,0;0,1,0,0;0,0,1,0) => pose3d
+_x_quantize_rgb_text "Colors",clustering0
+_x_quantize_rgb_text "Clusters",clustering1
+_x_quantize_rgb_text "Dithering: off",dithering0
+_x_quantize_rgb_text "Dithering: on",dithering1
+if {img,h<300} +r2dy[img] 300,1 else [img] fi
+{w+315},365,1,3,255 rm..
+rectangle. 4,4,305,305,1,0xFFFFFFFF,0
+rectangle. 309,4,{w-5},305,1,0xFFFFFFFF,0
+rectangle. 4,309,{w-5},360,1,0xFFFFFFFF,0
+.,.
+rectangle. 310,5,{w-6},305,1,1
+rectangle. 5,310,{w-6},360,1,2
+300,300,1,1,'(y<<11)+(x<<2)+3' j.. .,5,5 rm.
+a[-2,-1] c => visu
+dithering=0 clustering=0 pause=1 s0=off s1=on
+do
+if !narg($visu_3d)
++-[centroids] 3 ++[centroids] 3 a[-2,-1] x permute. cxyz y. -. 128
+j[obj3d] .,0,8 rm.
+[obj3d]
+if $clustering
+if {colors,iM}<256
++index[colors] [centroids] *. 256 +[colors,-1]
+fi
++channels[colors] 0 >>. 8 map. 2 permute. cxyz y. j.. .,0,{{-2,h}-$_N-h} rm.
+fi
+pose3d. {pose3d,^}
+600,600,1,3 j3d. ..,50%,50%,-150,1,2,0,0,600 *. 1.5 b. 0.75 c. 0,255 rm.. r2dx. 50%
+j. [clustering$clustering],2,0,0,0,1,[mclustering$clustering],255
+=> visu_3d j[visu] [visu_3d],5,5
+fi
+if !narg($visu_img)
++index[img] [centroids],{0.7*$dithering},1 if h<300 r2dy. 300,1 fi
+j. [dithering$dithering],2,0,0,0,1,[mdithering$dithering],255
+=> visu_img j[visu] [visu_img],310,5
+fi
+if !narg($visu_centroids)
++luminance[centroids] a. [centroids],y sort. +,x rows. 1 r. {visu,w-10},50,1,3
+0 t. "Colors: "{centroids,w},2,0,16,1,255,255,255 +dilate. 3 j... ..,2,2,0,0,1,.,255
+rm[-2,-1] => visu_centroids j[visu] [visu_centroids],5,310
+fi
+l[visu] {
+w -1,-1,0,"[G"{`39`}"MIC] RGB Quantization"
+if {*,CTRLLEFT}" && "{*,D} w[] {2*w},{2*h} elif {*,CTRLLEFT}" && "{*,C} w[] {w},{h} fi
+}
+x={int({*,x}*{visu,w}/{*,w})}
+y={int({*,y}*{visu,h}/{*,h})}
+b={*,b}
+i={visu,i($x,$y,0,3)}
+if $b&1" && "$i==1
+dithering={!$dithering} rm[visu_img] wait -1
+elif $b&1" && "$i==2
+(${-rgb}) y. c a[centroids,-1] x _x_quantize_rgb_3d rm[visu_3d,visu_img,visu_centroids] &[colors] 255
+pause=1 wait 100
+elif $b&2" && "$i==2" && "{centroids,w}>2
+r[centroids] {centroids,w-1} _x_quantize_rgb_3d rm[visu_3d,visu_img,visu_centroids] &[colors] 255
+pause=1 wait 100
+elif $b&2" && "$i>=3
+clustering={!$clustering} rm[visu_3d] wait -1
+elif {*,M}
++&[colors] 255 colormap. {centroids,w},0,0 rm[centroids] => centroids
+_x_quantize_rgb_3d rm[visu_3d,visu_img,visu_centroids] &[colors] 255
+pause=1 wait -1
+elif {*,R}
+rand[centroids] 0,255 round[centroids] 1
+_x_quantize_rgb_3d rm[visu_3d,visu_img,visu_centroids] &[colors] 255
+pause=1 wait -1
+elif {*,U}
+uniform_distribution {centroids,w},3 *. 255 rm[centroids] => centroids
+_x_quantize_rgb_3d rm[visu_3d,visu_img,visu_centroids] &[colors] 255
+pause=1 wait -1
+elif {*,ENTER}
+pause=0
+elif $b&1" && "$i>=3
+coords={visu,i($x,$y,0,3)-3} u1={(($coords>>2)&511)-150} v1={($coords>>11)-150}
+if !narg($u0) u0=$u1 v0=$v1 fi
+if $u0!=$u1" || "$v0!=$v1
+n0={sqrt(($u0)^2+($v0)^2)}
+nu0={if($n0>135,$u0*135/$n0,$u0)} nv0={if($n0>135,$v0*135/$n0,$v0)} nw0={sqrt(max(0,18225-($nu0)^2-($nv0)^2))}
+n1={sqrt(($u1)^2+($v1)^2)}
+nu1={if($n1>135,$u1*135/$n1,$u1)} nv1={if($n1>135,$v1*135/$n1,$v1)} nw1={sqrt(max(0,18225-($nu1)^2-($nv1)^2))}
+u={$nv0*$nw1-$nw0*$nv1} v={$nw0*$nu1-$nu0*$nw1} w={$nv0*$nu1-$nu0*$nv1} n={sqrt(($u)^2+($v)^2+($w)^2)}
+rotation3d[] $u,$v,$w,{-asin($n/18225)*180/pi} mv[pose3d] $! m*[-2,-1] => pose3d
+u0=$u1 v0=$v1 rm[visu_3d]
+fi
+elif !($b&1) u0=
+fi
+if !$pause" || "{*,SPACE}
+pause={*,-SPACE}
+&[colors] 255 +index[colors] [centroids] *. 256 +[colors,-1]
+repeat s#$colors { # Recompute centroid positions.
+sh[colors] $> +histogram. {centroids,w*256},0,{centroids,w*256-1} rm..
+i.. 256,1,1,1,'x' r.. {w},1,1,1,0,2 *.. . r[-2,-1] {centroids,w},1,1,1,2 max. 0.01 /[-2,-1]
+}
+a[-{colors,s}--1] c
+rm[centroids] => centroids
++>>[colors] 8 channels. 0 histogram. {centroids,w},0,{centroids,w-1}
+cmax={xM}
+repeat w {
+if !i($>) point[centroids] $>,0,0,1,{centroids,I($cmax)} point[centroids] $>,0,0,-0.001,${-rgb} fi
+}
+rm. c[centroids] 0,255
+if $visu_3d rm[visu_3d] fi
+if $visu_img rm[visu_img] fi
+if $visu_centroids rm[visu_centroids] fi
+wait 20
+else if $visu_img wait fi
+fi
+while {*}" && "!{*,Q}" && "!{*,ESC}
+rm w 0
+_x_quantize_rgb_3d :
+if $obj3d rm[obj3d] fi
++distribution3d[centroids] circles3d. 5 col3d. 255
+colorcube3d 1
++&[colors] 255 distribution3d. circles3d. 5 o3d. 0.2 +3d[-3--1]
+-3d. 128,128,128 => obj3d _N={i[7]}
+_x_quantize_rgb_text :
+0 t. "$1",0,0,16,1,255 r. {w+2},15,1,1,0,0,0.5,0.5 +dilate. 3 to_rgb..
+=> $2,m$2
+#@cli x_reflection3d
+#@cli : Launch the 3D reflection demo.
+x_reflection3d : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"3D reflection"$n" ----------------------\n
+----\n
+---- Keys '"${c}"CTRL+D"$n"' to increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' to reset window size.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+-------------------------------------------"
+200,400,1,3 rand. 0,255 plasma. 1,100 blur_xy. 30,2
+sh. 0 n. 0,90 rm. sh. 1 n. 0,60 rm. sh. 2 n. 0,180 rm.
++mirror. x [-2,-1] a[-4--1] x
++luminance. mirror. x b. 2 n. 0,255
+torus3d 45,16 col3d. 255,200,0
+spherical3d "125+32*abs(cos(2*theta))",51,50 s3d. rm.. i.. 3,{h},1,1,150,220,255,200,255,255 y.. a[-6--1] y
+spherical3d "150*abs(1+0.6*cos(3*phi)*sin(4*theta))",51,50
+r3d[-2,-1] 0,1,0,90 db3d 0
+xb,xl,anim=0
+w[] ${"fitscreen 400,400,1,35%"},0,"[G"{`39`}"MIC] 3D Reflection"
+do
+tic=$|
++rows. 8,{8+3*i[6]-1} +j... .,0,8,0,0,{if($anim<250,0,0.5-0.5*cos(($anim-250)/100))} rm..
++z[-6] $xb,0,{$xb+399},399 j3d. ..,75%,50%,0,1,3,0,0
++z[-6] $xl,0,{$xl+399},399
+xf={min(30,$anim-70)+20*cos(1.8*$|)}
+yf={50+20*sin(2.7*$|)}
+j3d. [-6],{20+$xf}%,$yf%,0,1,4,0,0
+l3d . rm. +j3d. ..,75%,50%,0,1,5,0,0 j.. .,0,0,0,0,0.6 rm[-3,-1]
+j3d. [-4],$xf%,$yf%,0,1,4,0,0
+fps=${-fps} if $fps>0 to. $fps" fps",5,{h-19},13,1,0.2 fi
+w. rm.
+if {*,CTRLLEFT}" && "{*,D} w[] 800,800 elif {*,CTRLLEFT}" && "{*,C} w[] 400,400 fi
+xb={($xb+6)%400}
+xl={($xl-6)%400}
+anim+=1
+r3d[-2,-1] {sin(0.5*$|)},{cos($|)},1,{max(0.005,$|-$tic)*33}
+r3d... -1,0.3,0.8,{max(0.005,$|-$tic)*100}
+wait 20
+while {*}" && "!{*,ESC}" && "!{*,Q}
+rm[-5--1] w[] 0
+#@cli x_rubber3d
+#@cli : Launch the 3D rubber object demo.
+x_rubber3d : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"3D rubber object"$n" -------------------\n
+----\n
+---- Keys '"${c}"CTRL+D"$n"' to increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' to reset window size.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+-------------------------------------------"
+rm
+sphere3d 150,0 torus3d 70,15 cylinder3d 20,40
+col3d... 200,200,200,0.3 col3d.. 128,200,76 col3d. 200,128,76
+c3d[-3--1] r3d. 1,0,0,70 +3d[-3--1] +3d. 10,-8,20 *3d. 1.5
+400,400,64,3
+{w},{h},1,3,'if(c==0,x,if(c==1,y,y*{1,d}/h))'
+{w},{h},1,3
+w[] ${"fitscreen .,35%"},0,"[G"{`39`}"MIC] 3D Rubber Object"
+frame=0
+do
+fps=${-fps}
+{w},{h},1,3 fc. 16,32,32 j3d. [0],50%,50%,0,1,3,0,0 j[1] .,0,0,$frame rm.
+r3d[0] 0.1,1,0.6,{3*cos($|*1.25)} r3d[0] 1,0.2,0.6,-1
++warp[1] [2],0,0,1 *[3] 0.8 *. 0.2 +[3] . rm.
+if $fps>0 to. $fps" fps",5,{h-29},24,2,0.2 fi
+w.
+if {*,CTRLLEFT}" && "{*,D} w[] {2*w},{2*h} elif {*,CTRLLEFT}" && "{*,C} w[] {w},{h} fi
+wait[0] 20
+sh[2] 2 -. 1 &. {{1,d}-1} rm.
+frame={($frame-1)%{1,d}}
+while {*}" && "!{*,ESC}" && "!{*,Q}
+rm w 0
+#@cli x_segment : _max_resolution={ 0 | >=128 }
+#@cli : Segment foreground from background in selected opaque RGB images, interactively.
+#@cli : Return RGBA images with binary alpha-channels.
+#@cli : Default value: 'max_resolution=1024'.
+x_segment : check "${1=1024}==0 || $1>=128" check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e[^-1] "Extract foreground from background in image$? interactively, with maximum resolution $1."
+e "\n
+----------------------------------------------------------------------------------------------------\n
+----\n
+---- "${c}"Left mouse button"$n" or key '"${c}"F"$n"' create a new foreground control point
+(or move an existing one).\n
+---- "${c}"Right mouse button"$n" or key '"${c}"B"$n"' create a new background control point
+(or move an existing one).\n
+---- "${c}"Mouse wheel"$n", or keys '"${c}"CTRL+arrows UP/DOWN"$n"' zoom view in/out.\n
+---- '"${c}"CTRL+mouse wheel"$n"', '"${c}"SHIFT+mouse wheel"$n"' or "${c}"arrow keys"$n" move image in zoomed view.\n
+---- Key '"${c}"SPACE"$n"' updates the extraction mask.\n
+---- Key '"${c}"TAB"$n"' toggles background view modes.\n
+---- Key '"${c}"M"$n"' toggles marker view modes.\n
+---- Key '"${c}"BACKSPACE"$n"' deletes the last control point added.\n
+---- Key '"${c}"PAGE UP"$n"' increases background opacity.\n
+---- Key '"${c}"PAGE DOWN"$n"' decreases background opacity.\n
+---- Keys '"${c}"CTRL+D"$n"' increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' decrease window size.\n
+---- Keys '"${c}"CTRL+R"$n"' reset window size.\n
+---- Keys '"${c}"ESC"$n"', '"${c}"Q"$n"' or '"${c}"ENTER"$n"' exit the interactive window.\n
+----\n
+----------------------------------------------------------------------------------------------------"
+foreach {
+name={0,n} title={0,b} if narg({0,x}) title=$title.{0,x} fi
+w={w} h={h} fdim=${fitscreen[]\ $w,$h} ww={arg(1,$fdim)} wh={arg(2,$fdim)} x0=0 y0=0 x1={w-1} y1={h-1}
+selection=-1 marker_mode=2 xpan=-1 ypan=-1 bg_mode=0 opacity=64
+to_rgb => img
+if narg($_gui_control_points)>=4
+($_gui_control_points) r. {w/4},4,1,1,-1
+else 0
+fi
+=> points
+if $1>0 if $w>$h +r2dx[img] {min($1,$w)},2 else +r2dy[img] {min($1,$h)},2 fi else [img] fi
+_x_segment.
+pw={potential,w} ph={potential,h}
+do
+wait
+x={*,x} y={*,y} b={*,b} o={*,-o}
+is_ctrl={{*,CTRLLEFT}" || "{*,CTRLRIGHT}}
+is_shift={{*,SHIFTLEFT}" || "{*,SHIFTRIGHT}}
+is_mouseout={$x<0" || "$y<0}
+x={$x0+$x*($x1-$x0+1)/$ww} y={$y0+$y*($y1-$y0+1)/$wh}
+oww=$ww owh=$wh ox0=$x0 oy0=$y0 ox1=$x1 oy1=$y1
+if {*,r}
+nww={*,d} nwh={*,e} m={min($nww,$nwh)}
+cx={($x0+$x1)/2} cy={($y0+$y1)/2} dx={$nww*($x1-$x0+1)/$ww} dy={$nwh*($y1-$y0+1)/$wh}
+x0={$cx-$dx/2} x1={$cx+$dx/2}
+y0={$cy-$dy/2} y1={$cy+$dy/2}
+ww=$nww wh=$nwh
+elif $is_ctrl" && "{*,-D}
+nww={min({*,u},$ww*1.25)} nwh={min({*,v},$wh*1.25)} m={min($nww,$nwh)}
+if $m==$nww ww=$m wh={$h*$m/$w} else ww={$w*$m/$h} wh=$m fi
+elif $is_ctrl" && "{*,-C}
+nww={$ww/1.25} nwh={$wh/1.25}
+if min($nww,$nwh)>=64 ww=$nww wh=$nwh fi
+elif $is_ctrl" && "{*,-R}
+fdim=${fitscreen[]\ $w,$h} ww={arg(1,$fdim)} wh={arg(2,$fdim)}
+x0=0 y0=0 x1={$w-1} y1={$h-1}
+elif ($is_shift" && "$o<0)" || "{*,ARROWLEFT}
+dx={($x1-$x0)/6} x0-=$dx x1-=$dx
+elif ($is_shift" && "$o>0)" || "{*,ARROWRIGHT}
+dx={($x1-$x0)/6} x0+=$dx x1+=$dx
+elif ($is_ctrl" && "$o>0)" || "({*,ARROWUP}" && "!$is_ctrl)
+dy={($y1-$y0)/6} y0-=$dy y1-=$dy
+elif ($is_ctrl" && "$o<0)" || "({*,ARROWDOWN}" && "!$is_ctrl)
+dy={($y1-$y0)/6} y0+=$dy y1+=$dy
+elif $o>0" || "($is_ctrl" && "{*,ARROWUP})
+if $x1-$x0>16" && "$y1-$y0>16
+cx={if($x>=0" && "!{*,ARROWUP},$x,($x0+$x1)/2)}
+cy={if($y>=0" && "!{*,ARROWUP},$y,($y0+$y1)/2)}
+x0={$cx+($x0-$cx)*0.75} y0={$cy+($y0-$cy)*0.75}
+x1={$cx+($x1-$cx)*0.75} y1={$cy+($y1-$cy)*0.75}
+fi
+elif $o<0" || "($is_ctrl" && "{*,ARROWDOWN})
+zfactor={max(($x1-$x0+1)/$w,($y1-$y0+1)/$h)}
+if $zfactor<1.3
+cx={if($x>=0" && "!{*,ARROWDOWN},$x,($x0+$x1)/2)}
+cy={if($y>=0" && "!{*,ARROWDOWN},$y,($y0+$y1)/2)}
+x0={$cx+($x0-$cx)/0.75} y0={$cy+($y0-$cy)/0.75}
+x1={$cx+($x1-$cx)/0.75} y1={$cy+($y1-$cy)/0.75}
+dx={$zfactor^2*($w-$x0-$x1)/2} dy={$zfactor^2*($h-$y0-$y1)/2}
+x0+=$dx x1+=$dx y0+=$dy y1+=$dy
+else
+dx={($w-$x0-$x1)/2} dy={($h-$y0-$y1)/2}
+x0+=$dx x1+=$dx y0+=$dy y1+=$dy
+fi
+elif $b&4" && "!$is_mouseout
+if $panx<0" && "$pany<0 panx=$x pany=$y
+else dx={round($panx-$x)} dy={round($pany-$y)} x0+=$dx y0+=$dy x1+=$dx y1+=$dy
+fi
+else panx=-1 pany=-1
+fi
+if $ww!=$oww" || "$wh!=$owh" || "$ox0!=$x0" || "$oy0!=$y0" || "$ox1!=$x1" || "$oy1!=$y1 rm[baseview] fi
+N={points,w}
+is_left_button={$b&1" || "{*,F}} is_right_button={$b&2" || "{*,B}}
+is_button={$is_left_button" || "$is_right_button}
+if narg($baseview)" && "$is_button" && "$x>=0" && "$y>=0" && "$x<$w" && "$y<$h
+if $selection==-1" && "$N
+($x;$y) r. $N,2 -. [points] *. {max($ww,$wh)/max($x1-$x0,$y1-$y0)} sqr. s. y +[-2,-1]
+dmin={im} selection={if($dmin>25,-1,xm)} rm.
+fi
+if $selection>=0
+if $marker_mode
++columns[points] $selection ox={i[0]} oy={i[1]}
+=. $x =. $y,0,1 =. {1+$is_left_button},0,3
+j[points] .,$selection rm. rm[view]
+fi
+else
+($x;$y;0;{1+$is_left_button}) a[points,-1] x selection=$N if !$marker_mode marker_mode=2 fi rm[view]
+fi
+else selection=-1
+if {*,SPACE}" && "narg($labels) rm[labels]
+elif {*,TAB}" && "narg($baseview)
+bg_mode={($bg_mode+1)%6} rm[baseview] wait -1
+elif {*,M}" && "narg($view)
+marker_mode={($marker_mode-1)%3} rm[view] wait -1
+elif {*,PAGEDOWN}" && "narg($baseview)
+opacity={max(0,$opacity-32)} rm[baseview] wait -1
+elif {*,PAGEUP}" && "narg($baseview)
+opacity={min(255,$opacity+32)} rm[baseview] wait -1
+elif {*,BACKSPACE}" && "$N
+if $N>1 z[points] 0,{$N-2}
+else i=$points rm[points] i[$i] 0 =>[$i] points
+fi rm[view] wait -1
+fi
+fi
+w2={round(($x1-$x0)/2)} h2={round(($y1-$y0)/2)}
+if $x0<-$w2 x1-={$x0+$w2} x0=-$w2 fi
+if $y0<-$h2 y1-={$y0+$h2} y0=-$h2 fi
+if $x1>=$w+$w2 x0+={$w-1+$w2-$x1} x1={$w-1+$w2} fi
+if $y1>=$h+$h2 y0+={$h-1+$h2-$y1} y1={$h-1+$h2} fi
+if !narg($labels)
+N={points,w}
+if narg($view) to[view] "Processing...",5,5,20,2 w[view] fi
+if $N
+[points]
+sh. 0,0,0,0 *. {$pw/$w} rm.
+sh. 1,1,0,0 *. {$ph/$h} rm.
+pointcloud. -1,$pw,$ph dilate. 3
+watershed. [potential] -. 1
+else [potential],[potential],1,1,1
+fi
+=> labels
+if narg($baseview) rm[baseview] fi
+fi
+if !narg($baseview)
+nx0={$x0*$pw/$w} ny0={$y0*$ph/$h}
+nx1={$x1*$pw/$w} ny1={$y1*$ph/$h}
++z[img] $x0,$y0,$x1,$y1
+r. $ww,$wh,1,100%,{if($ww=3 *. -1 +. 1 fi
+*. {255-$opacity} +. $opacity a[-2,-1] c
+if $bg_mode%3>=1 i.. 100%,100%,1,3,{(($bg_mode-1)%3)*255} blend[-2,-1] alpha
+else drgba.
+fi
+=> baseview
+if narg($view) rm[view] fi
+fi
+if !narg($view)
+[baseview] r. 100%,100%,1,3
+if $marker_mode
+if $marker_mode==2 rad1=5 rad2=3 opa=1 else rad1=3 rad2=2 opa=0.8 fi
+col0=255,0,0 col1=0,255,0
+repeat w#$points {
++columns[points] $> x={(i[0]-$x0)*$ww/(1+$x1-$x0)} y={(i[1]-$y0)*$wh/(1+$y1-$y0)} l={i[3]-1} rm.
+circle. $x,$y,$rad1,1,0 circle. $x,$y,$rad2,$opa,${col$l}
+}
+fi
+=> view
+w[view] $ww,$wh,0,$title
+fi
+while {*}" && "!{*,ESC}" && "!{*,Q}" && "!{*,ENTER}
+if narg($view) to[view] "Processing fullres...",5,5,20,2 w[view] fi
+k[img,points]
+N={points,w} status=
+if $N
+status={points,^}
+[img] _x_segment. pointcloud[points] -1,$w,$h
+zfact={{img,max(w,h)}/{potential,max(w,h)}} dilate[points] {int(3*$zfact)}
+watershed[points] [potential] -[points] 1 k[img,points]
+*. 255
+else k[img] [img],[img],1,1,255
+fi
+a c => $name
+}
+u $status
+w 0
+_x_segment :
+b. 0.2% gradient_norm. f. '1/(1+i^2)'
+=> potential
+#@cli x_select_color : _variable_name
+#@cli : Display a RGB or RGBA color selector.
+#@cli : Argument 'variable_name' specifies the variable that contains the selected color values (as R,G,B,[A])
+#@cli : at any time.
+#@cli : Its value specifies the initial selected color. Assigning '-1' to it forces the interactive window to close.
+#@cli : Default value: 'variable_name=xsc_variable'.
+x_select_color : skip ${1=xsc_variable} check_display $0
+rm
+n={narg($$1)} if !$n $1=0,0,0 fi
+rgba_mode={$n>=4} R={arg(1,$$1)} G={arg(2,$$1)} B={arg(3,$$1)} A={if($rgba_mode,arg(4,$$1),255)}
+e[^-1] "Open "${arg0\ $rgba_mode,RGB,RGBA}" color selector widget, with variable '$1' and starting color "($$1)"."
+if !{*} w[] {400+24*$rgba_mode},400,0,"Select a color" fi
+update_view=1 is_sv=0 is_h=0 is_a=0 colordb=0 is_thread_variable={arg(1,{'$1'})==_'_'" && "arg(2,{'$1'})==_'_'}
+m "add_preset : if !narg($_xsc_preset$""1) _xsc_preset$""1=$""2,$""3,$""4 fi"
+add_preset 0,0,0,0,0 add_preset 1,255,255,255 add_preset 2,255,0,0 add_preset 3,0,255,0
+add_preset 4,0,0,255 add_preset 5,255,255,0 add_preset 6,255,0,255 add_preset 7,0,255,255
+add_preset 8,50,50,50 add_preset 9,100,100,100 add_preset 10,150,150,150 add_preset 11,200,200,200
+um add_preset
+if !narg($_xsc_preset) _xsc_preset=11 fi
+($R^$G^$B) c. 0,255 rgb2hsv. H={i[0]} S={i[1]} V={i[2]} rm.
+do
+w={*,d} h={*,e} x={*,x} y={*,y} b={*,b}
+if !$!
+$w,$h,1,3,200
+if $rgba_mode x1={w-89} y1={h-57} x2={w-80} else x1={w-49} y1={h-57} x2={w-40} fi
+x0=8 y0=8 x3={$x2+31} x4={w-40} x5={$x4+31} x6={max($x0+232+32*$rgba_mode,w-152)} y6={$y1+7}
+rectangle {$x0-1},{$y0-1},{$x1+1},{$y1+1},1,0xFFFFFFFF,232
+line {$x0-1},{$y0-1},{$x1+1},{$y0-1},1,128
+line {$x0-1},{$y0-1},{$x0-1},{$y1+1},1,128
+(1;0) (0,1) r[-2,-1] {$x1-$x0+1},{$y1-$y0+1},1,1,3 i... 100%,100%,1,1,$H a[-3--1] c hsv2rgb. j.. .,$x0,$y0 rm.
+rectangle {$x2-1},{$y0-1},{$x3+1},{$y1+1},1,0xFFFFFFFF,232
+line {$x2-1},{$y0-1},{$x3+1},{$y0-1},1,128
+line {$x2-1},{$y0-1},{$x2-1},{$y1+1},1,128
+(359;0^1;1^1;1) r. {$x3-$x2+1},{$y1-$y0+1},1,3,3 hsv2rgb. j.. .,$x2,$y0 rm.
+if $rgba_mode
+rectangle {$x4-1},{$y0-1},{$x5+1},{$y1+1},1,0xFFFFFFFF,232
+line {$x4-1},{$y0-1},{$x5+1},{$y0-1},1,128
+line {$x4-1},{$y0-1},{$x4-1},{$y1+1},1,128
+(1;0) r. {$x5-$x4+1},{$y1-$y0+1},1,4,3 *. 255 drgba. j.. .,$x4,$y0 rm.
+fi
+t. "Current",$x0,{$y1+12},14,1,0
+if narg($_xsc_old)
+t. "Old",$x0,{$y1+34},14,1,0
+($_xsc_old) y. c r. 48,16 drgba. r. {w+2},{h+2},1,3,0,0,0.5,0.5 j.. .,{$x0+55},{$y1+32} rm.
+fi
+repeat 12 {
+(${_xsc_preset$>}) -. 255 r. 4,1,1,1,0 +. 255
+y. c r. 18,18 drgba. frame. 1,1,{255*($>==$_xsc_preset)}
+j.. .,{$x6+($>%6)*25},{$y6+($>>=6)*25} rm.
+}
+update_view=1
+fi
+if $update_view
+.
+cx={$x0+$V*($x1-$x0)} cy={$y0+(1-$S)*($y1-$y0)}
+if $cx>$x0 line. {$cx-1},$y0,{$cx-1},$y1,1,200 fi
+if $cx<$x1 line. {$cx+1},$y0,{$cx+1},$y1,1,200 fi
+if $cy>$y0 line. $x0,{$cy-1},$x1,{$cy-1},1,200 fi
+if $cy<$y1 line. $x0,{$cy+1},$x1,{$cy+1},1,200 fi
+line. $x0,$cy,$x1,$cy,1,0 line. $cx,$y0,$cx,$y1,1,0
+cy={$y0+(359-$H)*($y1-$y0)/359}
+if $cy>$y0 line. $x2,{$cy-1},$x3,{$cy-1},1,200 fi
+if $cy<$y1 line. $x2,{$cy+1},$x3,{$cy+1},1,200 fi
+line. $x2,$cy,$x3,$cy,1,0
+if $rgba_mode
+cy={$y0+(255-$A)*($y1-$y0)/255}
+if $cy>$y0 line. $x4,{$cy-1},$x5,{$cy-1},1,200 fi
+if $cy<$y1 line. $x4,{$cy+1},$x5,{$cy+1},1,200 fi
+line. $x4,$cy,$x5,$cy,1,0
+fi
+($H^$S^$V^$A) sh. 0,2 hsv2rgb. rm. round. R={i[0]} G={i[1]} B={i[2]}
+r. 48,16 drgba. r. {w+2},{h+2},1,3,0,0,0.5,0.5 j.. .,{$x0+55},{$y1+10} rm.
+t. "HSV ("{round($H)}","{round($S*255)}","{round($V*255)}")",{$x0+115},{$y1+24},14,1,0
+if $rgba_mode t. "RGBA ("$R","$G","$B","{round($A)}")",{$x0+115},{$y1+8},14,1,0
+else t. "RGB ("$R","$G","$B")",{$x0+115},{$y1+8},14,1,0
+fi
+('${dec2hex\ {$R*65536+$G*256+$B}}') -. {'0'} r. 6,1,1,1,0,0,1,0 +. {'0'}
+f. if(i>=_'a'" && "i<=_'z',i+_'A'-_'a',i)
+t.. "html ""#"{t},{$x0+115},{$y1+40},14,1,0 rm.
+w. 100%,100%,0 rm.
+if $rgba_mode $1=$R,$G,$B,$A else $1=$R,$G,$B fi
+update_view=0
+fi
+if $is_thread_variable wait 50 else wait fi
+ww={*,w} wh={*,h}
+is_ctrl={{*,CTRLLEFT}" || "{*,CTRLRIGHT}}
+if {*,r} ww={*,d} wh={*,e}
+elif $is_ctrl" && "{*,-D} ww={1.25*$ww} wh={1.25*$wh}
+elif $is_ctrl" && "{*,-C} ww={0.8*$ww} wh={0.8*$wh}
+elif $is_ctrl" && "{*,R} ww={400+24*$rgba_mode} wh=400
+fi
+ww={max(200,$ww)} wh={max(200,$wh)}
+if $ww!={*,w}" || "$wh!={*,h} w[] $ww,$wh rm fi
+if $b&1" && "$x>=0" && "$y>=0
+if !$is_h" && "!$is_a" && "($is_sv" || "($x>=$x0" && "$x<=$x1" && "$y>=$y0" && "$y<=$y1))
+S={max(0,min(1,1-($y-$y0)/($y1-$y0)))} V={max(0,min(1,($x-$x0)/($x1-$x0)))}
+update_view=1 colordb=0 is_sv=1 k[0]
+elif !$is_sv" && "!$is_a" && "($is_h" || "($x>=$x2" && "$x<=$x3" && "$y>=$y0" && "$y<=$y1))
+H={max(0,min(359,359-($y-$y0)*359/($y1-$y0)))}
+colordb=0 is_h=1 rm
+elif !$is_sv" && "!$is_h" && "($is_a" || "($x>=$x4" && "$x<=$x5" && "$y>=$y0" && "$y<=$y1))
+A={round(max(0,min(255,255-($y-$y0)*255/($y1-$y0))))}
+colordb=0 is_a=1 update_view=1 k[0]
+elif !$is_sv" && "!$is_h" && "!$is_a" && "{narg($_xsc_old)}" && "$x>=$x0+55" && "$x<=$x0+102" && "$y>=$y1+32" && "$y<=$y1+47
+($_xsc_old) y. c sh. 0,2 rgb2hsv. rm. H={i[0]} S={i[1]} V={i[2]} A={i[3]}
+colordb=0 rm
+elif !$is_sv" && "!$is_h" && "!$is_a" && "$x>=$x6" && "$x<=$x5" && "$y>=$y6" && "$y<=$y6+50" && "($x-$x6)%25<=20" && "($y-$y6)%25<=20
+p={int(($x-$x6)/25)+6*int(($y-$y6)/25)} (${_xsc_preset$p}) -. 255 r. 4,1,1,1,0 +. 255 y. c sh. 0,2 rgb2hsv. rm.
+H={i[0]} S={i[1]} V={i[2]} A={i[3]}
+colordb=0 rm
+elif !$is_sv" && "!$is_h" && "!$is_a" && "$x>=$x0+55" && "$x<=$x0+102" && "$y>=$y1+10" && "$y<=$y1+27
+_xsc_old=$R,$G,$B,$A colordb={($colordb+1)%2}
+if !$colordb
+_xsc_preset$_xsc_preset=$R,$G,$B,$A _xsc_preset={($_xsc_preset-1)%12}
+fi
+rm wait -1
+else colordb=0
+fi
+elif !$b is_sv=0 is_h=0 is_a=0
+fi
+if {*,ARROWUP} colordb=0 S={min(1,$S+1/256)} update_view=1 k[0] wait -1
+elif {*,ARROWDOWN} colordb=0 S={max(0,$S-1/256)} update_view=1 k[0] wait -1
+elif {*,ARROWRIGHT} colordb=0 V={min(1,$V+1/256)} update_view=1 k[0] wait -1
+elif {*,ARROWLEFT} colordb=0 V={max(0,$V-1/256)} update_view=1 k[0] wait -1
+elif {*,PAGEUP} colordb=0 H={min(359,$H+1)} rm wait -1
+elif {*,PAGEDOWN} colordb=0 H={max(0,$H-1)} rm wait -1
+fi
+if ['$$1']=='-1' break fi
+if (($rgba_mode" && "['$$1']!='$R,$G,$B,$A')" || "(!$rgba_mode" && "['$$1']!='$R,$G,$B'))" && "$x<0" && "$y<0" && "!$is_sv" && "!$is_h" && "!$is_a
+($$1) y. c -. 255 r. 1,1,1,4,0 +. 255 sh. 0,2 rgb2hsv. rm.
+H={i[0]} S={i[1]} V={i[2]} A={i[3]} rm
+fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+rm w 0
+if $rgba_mode u $R,$G,$B,$A else u $R,$G,$B fi
+_xsc_old=${}
+#@cli x_select_function1d : _variable_name,_background_curve_R,_background_curve_G,_background_curve_B
+#@cli : Open an interactive window, where the user can defined its own 1D function.
+#@cli : If an image is selected, it is used to display additional information :
+#@cli : - The first row defines the values of a background curve displayed on the window (e.g. an histogram).
+#@cli : - The 2nd, 3rd and 4th rows define the R,G,B color components displayed beside the X and Y axes.
+#@cli : Argument 'variable_name' specifies the variable that contains the selected function keypoints at any time.
+#@cli : Assigning '-1' to it forces the interactive window to close.
+#@cli : Default values: 'variable_name=xsf_variable', 'background_curve_R=220', 'background_curve_G=background_curve_B=background_curve_T'.
+x_select_function1d : skip ${1=xsf_variable},${2=220},${3=$2},${4=$2} check_display $0
+e[^-1] "Open 1D function widget, with variable name '$1'."
+if $! k[0] fi
+is_additional_data=$!
+if !{*} w[] 400,400,0,"Create a 1D function" fi
+reset_w={*,w} reset_h={*,h}
+if !narg($$1) $1=0,0,100,100 fi
+($$1) => points y. x r. 2,{w/2},1,1,-1
+is_thread_variable={arg(1,{'$1'})==_'_'" && "arg(2,{'$1'})==_'_'} selected=-1 X=-1 Y=-1
+do
+if !narg($baseview)
+{{*,d}-48},{{*,e}-48},1,3,255
+if $is_additional_data
+100%,100% +rows[0] 0 graph.. .,3,0,0,0,1,1 rm. c. 0,1
++fc.. ${2-4} j... .,0,0,0,0,1,.. rm[-2,-1]
+fi
+grid. {(w-1)/8},{(h-1)/8},0,0,0.2,0xCCCCCCCC,0
+line. 0,100%,100%,0,0.2,0
+frame. 24,24,200
+rectangle. 23,23,{w-24},{h-24},1,0xFFFFFFFF,232 line. 23,23,23,{h-24},1,128 line. 23,23,{w-24},23,1,128
+if $is_additional_data" && "{0,h}>1
+if {0,h}>2 +rows[0] 1,3 else +rows[0] 1 r. 100%,3 fi
+r. {-2,w-48},3,1,1,3 permute. xzcy r. 100%,8 frame. 1,1,0
+j.. .,23,{-2,h-19} rotate. -90 j.. .,{-2,w-19},23 rm.
+fi
+=> baseview
+l { rm[view] onfail }
+fi
+if !narg($view)
++z[baseview] 24,24,{baseview,w-25},{baseview,h-25} r. 200%,200%
+function1d[] 1,{points,^}
+l. {
+c 0,100 transpose
+i[0] ({'CImg3d'},{h},{h-1})
+i.. 1,100%,1,1,y 1,100% a[-3--1] x
+1,{h-1},1,1,2 +f. y ++. 1 a[-3--1] x
+4,100%,1,1,1 y a y col3d 0
+}
+*3d. {-2,(w-1)/100},{-2,(1-h)/100}
+j3d.. .,0,100%,0,1,1,0,0 rm.
+repeat h#$points {
+x={points,i(0,$>)} y={100-{points,i(1,$>)}}
+circle. $x%,$y%,6,1,0xFFFFFFFF,0
+}
+if $selected>=0
+x={points,i(0,$selected)} y={100-{points,i(1,$selected)}}
+circle. $x%,$y%,3,1,0
+fi
+r. 50%,50%,1,3,2
++j[baseview] .,24,24 rm..
+if $X>=0" && "$Y>=0 t. "X: "{min(255,round(255*$X/100))}" Y: "{min(255,round(255*$Y/100))},24,6,12,1 fi
+=> view
+w[view]
+fi
+if $is_thread_variable wait 50 else wait fi
+x={*,x} y={*,y} b={*,b} is_ctrl={{*,CTRLLEFT}" || "{*,CTRLRIGHT}}
+X={($x-24)*100/({*,w}-49)} Y={100-($y-24)*100/({*,h}-49)}
+oww={*,w} owh={*,h} ww=$oww wh=$owh
+if {*,r} ww={*,d} wh={*,e}
+elif $is_ctrl" && "{*,-D} ww={view,w*125%} wh={view,h*125%}
+elif $is_ctrl" && "{*,-C} ww={view,w*75%} wh={view,h*75%}
+elif $is_ctrl" && "{*,R} ww=$reset_w wh=$reset_h
+elif !$is_ctrl" && "{*,R} rm[points] (0,0;100,100) => points $1={points,^} rm[view]
+elif $b&3
+is_inside={$X>=0" && "$Y>=0" && "$X<=100" && "$Y<=100}
+if $selected<0 +f[points] 'sqrt((i-$X)^2+(j(1)-$Y)^2)*{*,w}%' z. 0,0 selected={if(im>8,-1,ym)} rm. fi
+if $x>=0" && "$b&1" && "$selected>=0
+if {*,SHIFTLEFT}" || "{*,SHIFTRIGHT} X={points,i(0,$selected)} fi
+if {*,CTRLLEFT}" || "{*,CTRLRIGHT} Y={points,i(1,$selected)} fi
+if {points,$selected>0" && "$selected8,-1,ym)} $1={points,^} rm[view,-1]
+elif $b&2" && "$selected>0" && "$selected<{points,h-1}" && "$is_inside
+l[points] { s y rm[$selected] a y } wait -1 selected=-1 $1={points,^} rm[view]
+fi
+elif !($b&1) selected=-1
+fi
+ww={min(90%*{*,u},max(200,$ww))}
+wh={min(90%*{*,v},max(200,$wh))}
+if $oww!=$ww" || "$owh!=$wh w[] $ww,$wh rm[baseview,view] fi
+if ['$$1']=='-1' break fi
+if ['$$1']!=['{points,^}']
+rm[points] ($$1) => points y. x r. 2,{w/2},1,1,-1 l { rm[view] onfail }
+fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+w[] 0 u {points,^}
+if $is_additional_data rm[^0] else rm fi
+#@cli x_select_palette : _variable_name,_number_of_columns={ 0=auto | >0 }
+#@cli : Open a RGB or RGBA color selector widget from a palette.
+#@cli : The palette is given as a selected image.
+#@cli : Argument 'variable_name' specifies the variable that contains the selected color values (as R,G,B,[A])
+#@cli : at any time.
+#@cli : Assigning '-1' to it forces the interactive window to close.
+#@cli : Default values: 'variable_name=xsp_variable' and 'number_of_columns=2'.
+x_select_palette : skip ${1=xsp_variable},${2=0} check_display $0
+if !$! error[0--3] "Command '$0': Missing specified palette image." fi
+k[0] +r {w*h*d},1,1,{s},-1 to_color. rgba_mode={s==4} to_rgba. => palette
+e[^-1] "Open "${arg0\ $rgba_mode,RGB,RGBA}" color selector widget for palette$?, with variable name '$1'."
+if w>1024 error[0--3] "Command '$0': Too much colors ("{w}") in selected palette." fi
+if !{*} w[] 400,400,0,0,-1,-1,"Palette: "{0,b} fi
+selected=-1 oselected=-1
+do
+ww={*,w} wh={*,h}
+R={palette,round(i($selected,0,0,0))} G={palette,round(i($selected,0,0,1))}
+B={palette,round(i($selected,0,0,2))} A={palette,round(i($selected,0,0,3))}
+if $selected>=0" && "$oselected!=$selected
+if $rgba_mode $1=$R,$G,$B,$A else $1=$R,$G,$B fi
+fi
+if ['$$1']=='-1' break fi
+if !narg($baseview) l[palette] {
+{w},1,1,1,x +. 1
+s. x append_tiles[^0] $2
+M={w} N={h} 100%,100%,1,1,1
++r. {$ww-17},100%,1,1,4
+r.. 100%,{$wh-57},1,1,4
+r[-2,-1] .,.. -|[-2,-1]
+line. 100%,0,100%,100%,1,1
+line. 0,100%,100%,100%,1,1
+-. 1 *. -1
+r.. .,.,1,1,1 -.. 1
++map.. [0],0 drgba.
+rv[-2,-1] *[-2,-1]
++!=.. -1 dilate. 3
+mv... $! +. 1 a[-3--1] c
+=> baseview
+}
+if narg($view) rm[view] fi
+fi
+if !narg($view)
+$ww,$wh,1,3,200
+if $selected<0 sh[baseview] 0,2
+else
++channels[baseview] 0,2 +channels[baseview] 4,4
+!=. {$selected+1} rectangle. 0,0,100%,100%,1,0xFFFFFFFF,1
++dilate. 5 -[-2,-1] *. -1 +dilate. 5 *.. 255
+r.. 100%,100%,1,3 j... ..,0,0,0,0,1,. rm[-2,-1]
+if $rgba_mode t.. "RGBA ("$R","$G","$B","$A")",8,{$wh-45},14,1,0
+else t.. "RGB ("$R","$G","$B")",8,{$wh-45},14,1,0
+fi
+($R^$G^$B) rgb2hsv. H={round(i[0])} S={round(i[1]*255)} V={round(i[2]*255)} rm.
+t.. "HSV ("$H","$S","$V")",8,{$wh-31},14,1,0
+('${dec2hex\ {$R*65536+$G*256+$B}}') -. {'0'} r. 6,1,1,1,0,0,1,0 +. {'0'}
+f. if(i>=_'a'" && "i<=_'z',i+_'A'-_'a',i)
+t... "html ""#"{t},8,{$wh-17},14,1,0 rm.
+fi
+sh[baseview] 3 j... ..,8,8,0,0,1,. rm[-2,-1]
+=> view w[view]
+fi
+if arg(1,{'$1'})==_'_'" && "arg(2,{'$1'})==_'_' wait 50 else wait fi
+is_ctrl={{*,CTRLLEFT}" || "{*,CTRLRIGHT}}
+if {*,r} ww={*,d} wh={*,e}
+elif $is_ctrl" && "{*,-D} ww={1.25*$ww} wh={1.25*$wh}
+elif $is_ctrl" && "{*,-C} ww={0.8*$ww} wh={0.8*$wh}
+elif $is_ctrl" && "{*,R} ww=400 wh=400
+fi
+ww={max(200,$ww)} wh={max(200,$wh)}
+if ($ww!={*,w}" || "$wh!={*,h})" && "narg($baseview) w[] $ww,$wh rm[baseview] fi
+oselected=$selected
+if narg($baseview)
+x={*,x} y={*,y} b={*,b}
+if $b&1" && "$x>=0" && "$y>=0
+if {baseview,i($x-8,$y-8,0,4)} selected={baseview,i($x-8,$y-8,0,4)-1} else selected=-1 fi
+rm[view] wait -1
+elif {*,ARROWUP}" && "$selected>=$M selected-=$M rm[view] wait -1
+elif {*,ARROWDOWN}" && "$selected<{0,w-$M} selected+=$M rm[view] wait -1
+elif {*,ARROWRIGHT}" && "$selected<{0,w-1} selected+=1 rm[view] wait -1
+elif {*,ARROWLEFT}" && "$selected>0 selected-=1 rm[view] wait -1
+fi
+fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+w 0 k[0]
+if $selected>=0 if $rgba_mode u $R,$G,$B,$A else u $R,$G,$B fi else u -1 fi
+#@cli x_shadebobs
+#@cli : Launch the shade bobs demo.
+x_shadebobs : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Shade bobs"$n" -------------------------------\n
+----\n
+---- Keys '"${c}"CTRL+D"$n"' to increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' to reset window size.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+-------------------------------------------------"
+rm t=100 w ${"fitscreen 512,512,1,35%"},0,"[G"{`39`}"MIC] Shade Bobs"
+do
+t+=0.015
+if $t>4*pi" || "{*,b}
+rx={v} ry={v} rz={v} rt={v} rcx={u(-0.6*0.6)} t=0
+N={20+round(u(80))} R={(2+round(u(40)))*min({*,w},{*,h})/300}
+if $obj3d rm[colormap,img,obj3d] fi
+{4+round(u(12))},1,1,3 noise[0] 255,2 ==. 1 r[0] 256,1,1,3,3 *[0] 255 shift[0] 1 => colormap
+(67.5;73.5;109.5;103.5;51.5;100.5;{2*$N};$N) 3,{2*$N},1,1,0
+1,$N,1,1,5 2,$N,1,1,'y+x*$N' a[-2--1] x z. 0,5
+4,$N,1,1,1 y[-3--1] a[-4--1] y => obj3d
+{*,w},{*,h} => img
+wait -1
+fi
+r={$ry+$rx*cos(6*$rz*$t)+(1-$rx)*sin(6*$rt*$t)}
+(0;{30*$ry*($N-1)}) ($t;{2*pi*($N-1)/$N+$t}) r[-2,-1] 1,$N,1,1,3
++.. {360*sin($rz*$t)} *.. {pi/180}
++sin[-2,-1] cos[-4,-3] *[-4,-2] $r *[-3,-1] $rcx +[-4,-3] +[-2,-1]
+*.. {{*,w}/2} *. {{*,h}/2} a[-2,-1] x
+++. $R -.. $R a[-2,-1] y z. 0,2 y. j[obj3d] .,0,8 rm.
+j3d[img] [obj3d],50%,50%,0,-1,2,0,0
+&[img] 255 +map[img] [colormap] w. rm. wait 20
+if {*,CTRLLEFT}" && "{*,D} w[] 1024,1024 elif {*,CTRLLEFT}" && "{*,C} w[] 512,512 fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+rm w 0
+#@cli x_spline
+#@cli : Launch spline curve editor.
+x_spline : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Spline curve editor"$n" --------------------------\n
+----\n
+---- "${c}"Mouse"$n" to insert/move/delete points.\n
+---- Key '"${c}"R"$n"' to reset the curve.\n
+---- Key '"${c}"SPACE"$n"' to shows/hide spline curve.\n
+---- Key '"${c}"P"$n"' to shows/hide control points.\n
+---- Key '"${c}"ENTER"$n"' to shows/hide control polygon.\n
+---- Key '"${c}"T"$n"' to shows/hide point tangents.\n
+---- Key '"${c}"I"$n"' to shows/hide point indices.\n
+---- Key '"${c}"C"$n"' to shows/hide point coordinates.\n
+---- Keys '"${c}"+"$n"' and '"${c}"-"$n"' to increase/decrease roundness.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+-----------------------------------------------------"
+if $! a x n 0,255 to_rgb else (0;0^0;128^0;0) r. 1024,1024,1,3,3 => "[G"{`39`}"MIC] Spline Editor" fi
+w[0] {0,[w,h]/2},0,0,{n}
+0
+roundness=0.5
+visuflags=23
+nearest=-1
+active=-1
+do
+if !{1,whds}
+rm[1] roundness=0.5 nearest=-1 active=-1
+i[1] ({0.2*w},{0.2*h};{0.2*w},{0.8*h};{0.8*w},{0.8*h};{0.8*w},{0.2*h})
+fi
+[1] ({{*,w}*2/{0,w}},{{*,h}*2/{0,h}}) *[-2,-1]
++shift[2] 0,-1,0,0,2 +shift[2] 0,1,0,0,2 -[-2,-1] *. $roundness
++s. x sqr[-2,-1] +[-2,-1] sqrt. r. 2 +/[-2,-1] rm..
++r[0] {2*[{*,w},{*,h}]},1,3
+if $visuflags&4 polygon. {2,h},{2,^},0.3,128,200,255 fi
+repeat h#1 {
+line. {2,@0-3},0.3,255,255,0
+if $visuflags&1
+spline. {2,@0-1},{3,@0-1},{2,@2-3},{3,@2-3},1,255
+fi
+if $visuflags&8
+thickline. {{2,@0}-{4,@0}*40},{{2,@1}-{4,@1}*40},{{2,@0}+{4,@0}*40},{{2,@1}+{4,@1}*40},3,1,0,255,0
+fi
+if $visuflags&16
+t. $>,{{2,@0}-10},{{2,@1}-42},35,1,255,255,0
+fi
+if $visuflags&32
+t. "("{round({1,@0})}","{round({1,@1})}")",{{2,@0}-50},{{2,@1}+16},30,1,100,200,255
+fi
+shift[1-4] 0,-1,0,0,2
+}
+if $visuflags&2 repeat h#1 {
+ellipse. {2,@0-1},10,10,0,1,0,0,0 ellipse. {2,@0-1},8,8,0,1,255,100,155 shift[2] 0,1,0,0,2
+} fi
+r2dx. 50% w. rm[3,4,-1] wait
+if {*,SPACE} visuflags+={if($visuflags&1,-1,1)} wait -1 fi
+if {*,P} visuflags+={if($visuflags&2,-2,2)} wait -1 fi
+if {*,ENTER} visuflags+={if($visuflags&4,-4,4)} wait -1 fi
+if {*,T} visuflags+={if($visuflags&8,-8,8)} wait -1 fi
+if {*,I} visuflags+={if($visuflags&16,-16,16)} wait -1 fi
+if {*,C}" && "!{*,CTRLLEFT}" && "!{*,CTRLRIGHT}
+visuflags+={if($visuflags&32,-32,32)} wait -1 fi
+if {*,PADADD}" && "$roundness<1 roundness*=1.1 wait -1 fi
+if {*,PADSUB}" && "$roundness>0.1 roundness*=0.9 wait -1 fi
+if {*,R}" && "!{*,CTRLLEFT}" && "!{*,CTRLRIGHT} rm. i[1] 0 wait -1 fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,D} w[] {{*,w}*1.5},{{*,h}*1.5} fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,C} w[] {{*,w}/1.5},{{*,h}/1.5} fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,R} w[] {0,w},{0,h} fi
+if {*,r} w[] fi
+if {*,b}==0 active=-1
+elif {*,x}>=0" && "{*,b}" && "$active==-1
+[2] ({2*[{*,x},{*,y}]}) -[-2,-1] sqr. s. x +[-2,-1]
+nearest={ym}
+if im<256 active=$nearest fi
+rm.
+fi
+rm[2]
+if {*,b}&1" && "{*,x}>=0" && "$active!=-1
+=[1] {{*,x}*{0,w}/{*,w}},0,$active
+=[1] {{*,y}*{0,h}/{*,h}},1,$active
+elif {*,b}&2" && "{*,x}>=0" && "{1,h}>3
+l[1] { s y rm[$nearest] a y } wait -1
+elif {*,b}&1" && "{*,x}>=0
+xy=({{*,x}*{0,w}/{*,w}},{{*,y}*{0,h}/{*,h}})
++shift[1] 0,-1,0,0,2 +. [1] /. 2
+$xy -[-2,-1] sqr. s. x +[-2,-1]
+ns={ym} rm.
+l[1] { s y i[{$ns+1}] $xy a y }
+active={$ns+1}
+fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
++shift[1] 0,-1,0,0,2 +shift[1] 0,1,0,0,2 -[-2,-1] *. $roundness
+[0],[0],1,1,2 rm[0]
+repeat h#1 { spline. {0,@0-1},{1,@0-1},{0,@2-3},{1,@2-3},1,1 shift[0] 0,-1,0,0,2 shift[1] 0,-1,0,0,2 }
+flood. 0,0,0,0,0,1,0
+rm[0,1] w 0
+#@cli x_starfield3d
+#@cli : Launch the 3D starfield demo.
+x_starfield3d : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"3D starfield"$n" ---------------------------------------\n
+----\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+-----------------------------------------------------------"
+l[] {
+('G\47MIC') s x
+x=0 N=$! repeat $N { 0 t. {$>,t},0,0,48,1,1 x$>=$x y$>=0 z$>={-3200-150*$>} x={$x+w+8} } k[50%--1]
+expand_xy 6,0 dilate_circ 5 b 0.5 expand_z 1,0 isosurface3d 10% *3d 1,1,5 rv3d
+repeat $N { col3d[$>] ${-rgb} }
+0 t. "Version "${-strver},0,0,48,1,1 r2dy. 18 +f. 255 to_rgb.
+random3d 2500 col3d. 255 *3d. 320,200,1000 -3d. 160,100
+l3d 0,0,-600
+w[] ${"fitscreen 640,400,1,35%"},0,"[G"{`39`}"MIC] 3D Starfield"
+t0=0 t=0
+do
+320,200,1,3
+l.. {
+s3d
+r[2] 3,{2,h/3},1,1,-1 s[2] x %[4] 1000
++/[4] 1000 *. -1 n. 0,2 c. 0,1 sqr. j.. . rm.
+a[2-4] x
+y a y
+}
+j3d. ..,50%,50%,-600,1,0,0,0,240 -3d.. 0,0,{min(12,$t0/10-4)}
+torus3d 100,30 col3d. 255,64,255
++col3d. 64,64,255 r3d. 1,0,0,-90 +3d. 65,0,0
++3d[-2,-1] c3d.
+r3d. 1,1,0,{-6*$t} r3d. 0,0,1,{2*$t}
+j3d.. .,{($t-200)*2}%,50%,0,0.25,3,0,0 rm.
+repeat $N {
++r3d[$>] 1,{$>%4},1,{-${z$>}/2}
+j3d.. .,{90+${x$>}},{60+${y$>}},${z$>},1,4,0,0 rm.
+z$>={tl=280+6*$<;if($t}+20),-20*($t-tl))}
+}
+if $t<280 op={max(0,min(1,($t-200)/20))}
+else op={max(0,1-($t-280)/20)}
+fi
+j. ...,{(w-{-3,w})/2},120,0,0,$op,[-4]
+w. wait 30 rm.
+t0+=1 t={$t0%350}
+if !$t x=0 repeat 5 { z$>={-3200-150*$>} } fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+w[] 0 rm
+}
+#@cli x_tetris
+#@cli : Launch tetris game.
+x_tetris : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Tetris"$n" --------------------------------------------\n
+----\n
+---- This is a G\47MIC implementation of the "${g}"Tetris"$n" game.\n
+----\n
+---- "${c}"Arrow keys"$n" to move/rotate the triominos.\n
+---- Key '"${c}"SPACE"$n"' to make the current triomino falling.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+----------------------------------------------------------"
+rm
+4,1,1,1,1,1,1,1
+3,2,1,1,1,0,0,1,1,1
+3,2,1,1,0,0,1,1,1,1
+2,2,1,1,1,1,1,1
+3,2,1,1,0,1,1,1,1,0
+3,2,1,1,0,1,0,1,1,1
+3,2,1,1,1,1,0,0,1,1
+=> m0,m4,m8,m12,m16,m20,m24
+if u<0.25
+i 2,1,1,1,1,1
+i 2,2,1,1,1,1,0,1
+i 3,1,1,1,1,1,1
+i 1,1,1,1,1
+i 3,2,1,1,1,1,1,1,0,1
+i 3,3,1,1,1,1,1,1,0,1,1,1,1
+=> m28,m32,m36,m40,m44,m48
+fi
+repeat $! { i={4*$>} l[m$i] { repeat 3 { +rotate[0] {90*($>+1)} => m{$i+$>+1} } } }
+N=$!
+3,$N,1,1,'u(16,224)' r. 3,400% => colors
+(0,-1,0;1,0,-1;0,1,0) *. 120 => mask
+repeat $N {
++r[m$>] 500%,500%,1,3 +correlate. [mask],0 r. 200%,200%,1,1,3 ri.. . *[-2,-1] c. 30%,100%
++r[m$>] .,.,1,3 +replace_color. 0,0,1,1,1,{colors,@{3*$>}-{3*$>+2}} rv[-3,-1] +[-3,-1] c.. 0,255
+channels. 0 *. 255 a[-2,-1] c => s$>
+}
+rm[colors,mask]
+fact={{s0,w}/{m0,w}}
+W=12 H=20
+$W,$H . => board,curr_board
+{$fact*$W},{$fact*$H},1,3 . => render,curr_render +channels. 0 => curr_render_mask
++rows[render] 0,50% plasma. 1,2 noise. 20 blur_y. 40%,1 +mirror. y a[-2,-1] y ri. [render]
+n. 0,64 blur_x. 1 100%,100% noise. 0.5,2 ==. 1 b. 1 *. 300 +[-2,-1] c. 0,255 => background
+time=$| score=0 fall_mode=0 gameover=0 n=-1 nn={round(u(0,$N-1))}
+do
+wait {if($fall_mode,-1,-20)}
+if $gameover
++j[background] [curr_render],0,0,0,0,0.7,[curr_render_mask],255
+to. "Game\nOver!",22,30%,32,2,1,255 w. rm.
+continue
+fi
+if $n<0
+l[board] {
+s y i=-1 repeat $! { if {$<,im} i=$<,$i fi }
+0 rm[$i] a y score+={2^(narg($i)-1)-1} r $W,$H,1,1,0,0,0,1 => board
+}
+if narg($i)>1 l[render] { s y,$H 0 rm[$i] a y r {$fact*$W},{$fact*$H},1,3,0,0,0,1 => render } fi
+n=$nn nn={round(u(0,$N-1))} x={$W/2} y=0 do_render=1 fall_mode=0
+fi
+if $do_render
+rm[curr_board,curr_render,curr_render_mask]
+[board] => curr_board j[curr_board] [m$n],{$x-int({m$n,w}/2)},$y,0,0,1,[m$n]
+[render] => curr_render sh[s$n] 3 j[curr_render] [s$n],{$fact*($x-int({m$n,w}/2))},{$fact*$y},0,0,1,.,255 rm.
++*[curr_board] 255 r. [curr_render],[curr_render] => curr_render_mask
+0 t. "Score : "$score" Next :",4,0,25,1,200 r. 50%,50%,1,3,2 +!=. 0 *. 255
+j[curr_render] ..,0,0,0,0,1,.,255 j[curr_render_mask] .,0,0,0,0,1,.,255 rm[-2,-1]
++*[m$nn] 196 r. 300%,300%,1,3 j[curr_render,curr_render_mask] .,{{curr_render,w}-w-4},3,0,0,1,.,196 rm.
+do_render=0
+fi
++shift[background] 0,{round(-13*$|*1.04^$score)},0,0,2
+j. [curr_render],0,0,0,0,1,[curr_render_mask],255
+w. ${"fitscreen .,20%"},0,"[G"{`39`}"MIC] Tetris" rm. cursor[0] 0
+if {*,SPACE} fall_mode=1 fi
+if {*,ARROWUP}" || "{*,ARROWLEFT}" || "{*,ARROWRIGHT}
+an={if({*,ARROWUP},n=$n+1;if(n%4,n,n-4),$n)}
+nx={w2=int({m$an,w}/2);max(w2,min($x-{*,ARROWLEFT}+{*,ARROWRIGHT},$W-({m$an,w}%2)-w2))}
++j[board] [m$an],{$nx-int({m$an,w}/2)},$y,0,0,-1,[m$an]
+if iM==1 x=$nx n=$an fi
+rm.
+do_render=1
+fi
+if {*,ARROWDOWN}" || "$|-$time>0.9^int($score/2)" || "$fall_mode
+y+=1
++j[board] [m$n],{$x-int({m$n,w}/2)},$y,0,0,-1,[m$n]
+if iM>1" || "$y+{m$n,h}>$H
+if $y<=1 gameover=1 fi
+j[board] [curr_board] j[render] [curr_render] n=-1
+fi
+rm.
+time=$| do_render=1
+fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+rm w 0
+#@cli x_threshold
+#@cli : Threshold selected images interactively.
+x_threshold :
+e[^-1] "Threshold image"$_gmic_s" interactively."
+foreach {
+wsiz0=${"fitscreen ."}
+value=-1
+w[] $wsiz0,0,"[G'MIC] "{n}" - Interactive threshold"
+0
+for {*}" && "!{*,ESC} {
+if [w#1,h#1]!=[{*,w,h}] # Generate image view
+rm[1] +slices[0] 50% r. {*,w,h},1,100%,1 w.
+fi
+mx,my,mb={*,x,y,b}
+if $mb" && "$mx>=0" && "$my>=0
+value={"w>h?( dw1 = "{*,w}" - 1; val = (dw1 - "$mx")*100/dw1; ):
+( dh1 = "{*,h}" - 1; val = (dh1 - "$my")*100/dh1; )"}
+update_view=1
+fi
+if $update_view
+if $value>=0
++ge[1] $value% *. 255
+to. "Threshold: "{_round($value,0.1)}%,1%,1%,{max(13,3.5*h%)}
+w. rm.
+else w.
+fi
+update_view=0
+fi
+wait
+if {*,r} update_view=1 fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,D}
+w[] {{*,w}*1.5},{{*,h}*1.5} wait -1 update_view=1
+fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,C}
+w[] {{*,w}/1.5},{{*,h}/1.5} wait -1 update_view=1
+fi
+if ({*,CTRLLEFT}" || "{*,CTRLRIGHT})" && "{*,R}
+w[] $wsiz0 wait -1 update_view=1
+fi
+}
+w[] 0 rm. u $value% ge ${}
+}
+#@cli x_tictactoe
+#@cli : Launch tic-tac-toe game.
+x_tictactoe : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Tic-Tac-Toe game"$n" -----------------\n
+----\n
+---- Use "${c}"mouse"$n" to select positions of the\n
+---- symbols. Close window to exit game.\n
+----\n
+-----------------------------------------"
+message=0
+counter=0
+player=0
+state=0
+tmp3=0
+tmp2=0
+tmp1=0
+_x_tictactoe2
+w. -1,-1,0," "
+do
+if $player message="Tic-Tac-Toe (O to play)"
+else message="Tic-Tac-Toe (X to play)"
+fi
+do
+w[] {w},{h},0,"[G"{`39`}"MIC] "$message wait
+if !{*}" || "{*,ESC}" || "{*,Q} w[] 0 rm return fi
+if {*,b}&1" && "{*,x}>20" && "{*,y}>20" && "{*,x}<400" && "{*,y}<400
+tmp3={int(({*,x}-15)/130)}
+tmp2={int(({*,y}-15)/130)}
+tmp1={4^($tmp2*3+$tmp3)}
+if int($state/$tmp1)%4 tmp1=-1 fi
+else tmp1=-1 fi
+while $tmp1<0
+_x_tictactoe{$player%2}
+j... ..,{"130*"$tmp3" + 15+u(-5,5)"},\
+{"130*"$tmp2" + 15+u(-5,5)"},0,0,1,.
+rm[-2--1]
+w.
+state+={(1+$player)*$tmp1}
+(21,1344,86016,4161,16644,66576,65793,4368;\
+0,0,0,0,1,2,0,0;\
+0,1,2,0,0,0,0,0;\
+3,3,3,4,4,4,5,6)
+repeat w {
+tmp1={@$>}
+if ($state&$tmp1)==$tmp1||($state&(2*$tmp1))==2*$tmp1
+_x_tictactoe{i($>,3)}
+j[-4] ..,{130*{-3,i($>,1)}+u(-5,5)},\
+{130*{-3,i($>,2)}+u(-5,5)},0,0,1,. rm[-2--1]
+if ($state&$tmp1)==$tmp1 w.. -1,-1,0,"Tic-Tac-Toe (X won!)"
+else w.. -1,-1,0,"Tic-Tac-Toe (O won!)"
+fi
+do wait
+if {*} w[] {*,w},{*,h} fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+rm w[] 0 return
+fi
+}
+rm.
+player={($player+1)%2}
+counter+=1
+while $counter<9
+w[] -1,-1,0,0,"Tic-Tac-Toe (Tied game!)"
+do wait
+if {*} w[] {*,w},{*,h} fi
+while {*}" && "!{*,ESC}" && "!{*,Q}
+w[] 0 rm
+_x_tictactoe :
+spread. 4 b. 6,1,0 sharpen. 0.8 n. 0,1
+__x_tictactoe :
++f. 1-i +n.. $2,255 +n... $3,255 n[-4] $1,255 a[-4,-2,-1] c
+_x_tictactoe0 :
+128,128,1,1,1 line. 15%,15%,85%,85%,1,0 line. 15%,85%,85%,15%,1,0 erode. 12
+_x_tictactoe deform. 4
+__x_tictactoe 40,40,160
+_x_tictactoe1 :
+128,128,1,1,1 ellipse. 50%,50%,22%,22%,0,1,0 ellipse. 50%,50%,15%,15%,0,1,1
+_x_tictactoe deform. 4
+__x_tictactoe 160,40,160
+_x_tictactoe2 :
+391,391,1,1,"!(x%130) || !(y%130)" r. 421,421,1,1,0,0,0.5,0.5 dilate. 3 _x_tictactoe f. 1-i
+100%,100% noise. 10 b. 8,0 sharpen. 1.5 n. 220,255 *[-2,-1] to_rgb.
+_x_tictactoe3 :
+421,130,1,1,1 line. 10%,60%,90%,60%,1,0 erode. 6
+_x_tictactoe rotate. {u(-6,6)},1,1,50%,50%
+__x_tictactoe 180,10,10
+_x_tictactoe4 :
+_x_tictactoe3 transpose[-2--1]
+_x_tictactoe5 :
+421,421,1,1,1 line. 10%,10%,90%,90%,1,0 erode. 6
+_x_tictactoe
+__x_tictactoe 180,10,10
+_x_tictactoe6 :
+421,421,1,1,1 line. 10%,90%,90%,10%,1,0 erode. 6 _x_tictactoe __x_tictactoe 180,10,10
+#@cli x_warp : _nb_keypoints_xgrid>=2,_nb_keypoints_ygrid>=2,_nb_keypoints_contours>=0,_preview_fidelity={ 0=coarsest | 1=coarse | 2=normal | 3=fine | 4=finest },_[background_image],0<=_background_opacity<=1
+#@cli : Launch the interactive image warper.
+#@cli : Default values: 'nb_keypoints_xgrid=nb_keypoints_ygrid=2', 'nb_keypoints_contours=0' and 'preview_fidelity=1'.
+x_warp : check "isint(${1=2}) && $1>=2 && isint(${2=$1}) && $2>=2 && isint(${3=0}) && $3>=0 &&
+isint(${4=1}) && $4>=0 && $4<=4 && ${6=0.5}>=0 && $6<=1" skip "${5=}" check_display $0
+if !$! error[0--3] "Command '$0': Requires at least one input image!" return fi
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Interactive image warper"$n" -----------------------------\n
+----\n
+---- "${c}"Left mouse button"$n": Add and move keypoint.\n
+---- "${c}"Right mouse button"$n": Delete keypoint.\n
+---- Key '"${c}"SPACE"$n"' or "${c}"middle mouse button"$n": Show/hide keypoints.\n
+---- Key '"${c}"TAB"$n"': Change keypoint radius.\n
+---- Key '"${c}"SHIFT"$n"': Toggle to original image.\n
+---- Key '"${c}"R"$n"': Reset keypoints.\n
+---- Keys '"${c}"ESC"$n"', '"${c}"ENTER"$n"' or '"${c}"Q"$n"': Process fullres and exit.\n
+----\n
+-------------------------------------------------------------"
+if ${"is_image_arg $5"} pass$5 store. background fi
+radius_keypoints=4
+foreach {
+nm={n} => img
+if narg($background) $background rr2d. {-2,[w,h]},2,3 store. rbackground fi
+selected_keypoint=-1
+view_keypoints=1
+do
+if !narg($imgb)
+if {*} wdims=${"fitscreen "{*,d},{img,{*,d}*h/w}}
+else wdims=${"fitscreen "{img,[w,h,1]},128,60%}
+fi
+w[] $wdims,0,"[G'MIC] Interactive Warp"
++to_color[img] r. $wdims,1,100%,2 n. 0,255 => imgb
+rmn warp,imgw,imgr
+fi
+if !narg($keypoints)
+if narg($__x_warp_keypoints) ($__x_warp_keypoints) r. 1,{w/4},1,4,-1
+else
+nbp,nbq=$1,$2
+1,{$nbp*$nbq},1,4,"const nbp = "$nbp"; const nbq = "$nbq";
+p = y%nbp;
+q = int(y/nbp);
+x = p*100/(nbp - 1);
+y = q*100/(nbq - 1);
+[ x,y,x,y ]"
+nbc=$3
+if $nbc>0
++b[imgb] 0.5 gradient_norm. sqrt. {round([w,h]/4)} gaussian. 20%
+1,$nbc,1,4,">
+begin(ref(crop(#-1),gauss));
+st = stats(#-2);
+iM = st[1];
+xM = st[8];
+yM = st[9];
+img = vector(#w#-1*h#-1,-iM);
+draw(#-2,img,xM - w#-1/2,yM - h#-1/2,0,0,w#-1,h#-1,1,1,-1,gauss);
+nxyM = [ xM,yM ]*100/([w#-2,h#-2]-1);
+[ nxyM,nxyM ]"
+rm[-3,-2]
+a[-2,-1] y
+fi
+fi
+N0={h} => keypoints
+rmn warp,imgw,imgr
+fi
+if !narg($warp)
+subsamp={arg(1+$4,8,6,4,2,1)}
++_x_warp_rbf[keypoints] {imgb,round([w,h]/$subsamp)} *. $subsamp
+r. {imgb,[w,h]},1,100%,3 +. '[x,y]'
+=> warp
+rmn imgw,imgr
+fi
+if !narg($imgw)
++warp[imgb] [warp],0,1,3 => imgw
+rmn imgr
+fi
+if !narg($imgr)
+[imgw]
+if narg($rbackground) $rbackground ri. .. j.. .,0,0,0,0,$6 rm. fi
+=> imgr
+if s==4 drgba. fi
+if $view_keypoints
+eval[keypoints] "*
+begin(
+col1 = [ 64,200,255 ];
+col2 = [ 255,255,255 ];
+fact = ([ w#"$imgw",h#"$imgw" ] - 1)/100;
+const radius1 = "$radius_keypoints";
+const radius2 = radius1 + 2;
+const opacity = min(1,3/"($radius_keypoints-1)");
+);
+X = round((I)[0,2]*fact);
+ellipse(#-1,X,radius2,radius2,0,opacity,0);
+ellipse(#-1,X,radius1,radius1,0,opacity,y<"$N0"?col1:col2); I"
+fi
+w.
+fi
+wait
+mb={*,b} mxy={[{*,x,y}]*100/([{*,w,h}]-1)} mouse_over={{*,x}>=0}
+if $mouse_over" && "$mb" && "$selected_keypoint<0" && "h#$keypoints>0 # Determine selected keypoint
+selected_keypoint={keypoints,"dmin = inf; kmin = -1; fact = ([w#"$imgr",h#"$imgr"]-1)%;
+repeat (h,k,
+dist = norm(((I[k])[0,2] - ["$mxy"])*fact);
+dist=0 && dmin<"max(8,1.5*$radius_keypoints)"?kmin:-1"}
+fi
+if {*,-SPACE}" || "$mb==4 view_keypoints={!$view_keypoints} rmn imgr fi
+if {*,-R} rmn keypoints __x_warp_keypoints= fi
+if {*,-TAB}
+radius_keypoints={max(2,($radius_keypoints+2)%16)} view_keypoints=1 rmn imgr
+fi
+if {*,SHIFTLEFT}" || "{*,SHIFTRIGHT}
+if {imgb,s==4} +drgba[imgb] w. rm. else w[imgb] fi
+do wait while {*,SHIFTLEFT}" || "{*,SHIFTRIGHT} rmn imgr
+fi
+if {*,r} rmn imgb fi
+if $mouse_over" && "$mb==1" && "$selected_keypoint<0
+wxy={warp,I([$mxy]*([w,h]-1)/100,1)*100/([w,h]-1)}
+({"[ "$mxy,$wxy" ]"}) permute. zycx a[keypoints,-1] y
+selected_keypoint={keypoints,h-1}
+rmn warp
+elif $mouse_over" && "$mb==1" && "$selected_keypoint>=0
+({"[ "$mxy" ]"}) permute. zycx j[keypoints] .,0,$selected_keypoint rm.
+rmn warp
+elif $mouse_over" && "$mb==2" && "$selected_keypoint>=0" && "h#$keypoints>4 # Remove keypoint
+1,1,1,4,-1 j[keypoints] .,0,$selected_keypoint rm. discard[keypoints] -1 r[keypoints] 1,{keypoints,h/4},1,4,-1
+N0-={$selected_keypoint<$N0?1:0} selected_keypoint=-1
+rmn warp
+elif !$mb selected_keypoint=-1
+fi
+while {*}" && "!{*,ESC}" && "!{*,Q}" && "!{*,ENTER}
+if !$< __x_warp_keypoints={keypoints,^} fi
++drgba[imgw] to. "Processing fullres...",5,5,20,2 w. rm.
+k[img,keypoints]
+_x_warp_rbf[keypoints] {img,[w,h]} +. '[x,y]'
+warp[img] .,0,2,3 rm. => $nm
+}
+c 0,255 w 0
+_x_warp_rbf :
+if !h $1,$2,1,2,[x,y] return fi
+$1,$2,1,2,"*
+begin(
+fact = ([w,h] - 1)/100;
+xy(p) = (I[#0,p])[0,2]*fact;
+const N = h#0;
+ref(vector(#N*N),A);
+ref(vector(#N*2),B);
+repeat (N,p,
+repeat (N,q, A[q + N*p] = A[p + N*q] = norm(xy(p) - xy(q)));
+copy(B[2*p],(I[#0,p])[2,2]*fact - xy(p),2);
+);
+W = solve(A,B,2);
+);
+res = [ 0,0 ];
+repeat (N,p,res += W[2*p,2]*(norm([x,y] - xy(p))));
+res"
+k.
+#@cli x_waves
+#@cli : Launch the image waves demo.
+x_waves : check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Image waves"$n" --------------------------\n
+----\n
+---- "${c}"Left mouse button"$n" to drop balls.\n
+---- "${c}"Right mouse button"$n" to rotate view.\n
+---- Keys '"${c}"CTRL+D"$n"' to increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' to reset window size.\n
+---- Keys '"${c}"CTRL+F"$n"' to switch fullscreen mode.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+---------------------------------------------"
+if !$! l[] {
+200,200 x={-1.06-u*0.1} y={-0.26-u*0.1}
+mandelbrot $x,$y,{$x+0.1},{$y+0.1},256
+16,1,1,3,u r. 256,1,1,3,3 shift. 1
+map[0] . rm. r2dx 100
++mirror y +mirror x + n 0,128
+shape_fern {2*w},70%,25 r2dx. {-2,3*w/4} to_rgb. ri. ..,0,0,0.5,0.5 n. 0,196 +[-2,-1] c. 0,255
+} else k[0] r[0] 100,100,1,3,2 fi
+i[0] (20;80;0^20;80;0^20;80;0) r[0] 400,300,1,3,3 water[0] 100,2
+w[0] ${"fitscreen [0],35%"},0,"[G"{`39`}"MIC] Image Waves"
+w={w} elevation3d. 0 rv3d.
+sh. 8,{7+3*i[6]},0,0 r. 3,{h/3},1,1,-1
+(0,1,0;1,0,1;0,1,0) /. 2
+ball[] 20,200,255,128,1,0.7,3.5
+0 $w,$w .
+l3d {$w/2},-200,-1000 sl3d 0.4 ss3d 0.8 f3d 500 time0=$|
+do
++convolve. [3],1 -. ... rm... b. 0.8 -. {ia}
+r. 1,{$w*$w},1,1,-1 j[2] .,2,0 r. $w,$w,1,1,-1
+[1]
+if {5,h} +l[5] {
+rows 0,2
+nb={w}
+i[0] ('CImg3d') i[1] ($nb,$nb) transpose[2]
+(1,0;1,{$nb-1}) r. 2,$nb,1,1,3 round.
+1,{4*$nb},1,1,1 y a y
+} [4] sprites3d.. .,1 rm. +3d[-2,-1] fi
+-3d. {$w/2},{$w/2} *3d. {0,0.9*max(w,h)/$w}
+r3d. 0,0,1,{if({*,b}&2,{*,x}*360/{*,w},$|*30)} r3d. 1,0,0,120
++j3d[0] .,50%,65%,30,1,3,0,0
+fps=${-fps} if $fps>0 to. $fps" fps",5,{h-22},16,2,0.2 fi
+w.
+if {*,CTRLLEFT}" && "{*,D} w[] {2.25*w},{2.25*h} elif {*,CTRLLEFT}" && "{*,C} w[] {1.25*w},{1.25*h}
+elif {*,CTRLLEFT}" && "{*,F}
+if !narg($is_fs) is_fs={*,w},{*,h} fw={min({*,u}*h/w,{*,v}*w/h)} w[] $fw,{$fw*h/w},0,1
+else w[] $is_fs,0,0 is_fs=""
+fi
+fi
+rm[-2,-1] wait 20
+if {*,b}&1||($|-$time0)>1 ({u*$w};{u*$w};70;0) a[5,-1] x time0={$|-u} fi
+if {5,h} l[5,-1] {
+sh[0] 2,2,0,0 sh[0] 3,3,0,0 -.. . +. 0.2 rm[-2,-1]
+s[0] x repeat $!-1 { coords={$<,@0-1} if {$<,@2}=0
+#@cli : Launch the fractal whirls demo.
+#@cli : Default values: 'opacity=0.2'.
+x_whirl : check "${1=0.2}>=0" check_display $0
+use_vt100 g=$_vt100_g c=$_vt100_c n=$_vt100_n r=$_vt100_r
+e "\n
+------ "${g}"Fractal whirls"$n" ----------------------------\n
+----\n
+---- Keys '"${c}"CTRL+D"$n"' to increase window size.\n
+---- Keys '"${c}"CTRL+C"$n"' to reset window size.\n
+---- Keys '"${c}"ESC"$n"' or '"${c}"Q"$n"' to exit.\n
+----\n
+--------------------------------------------------"
+5,5,1,3 256,256,1,3 [-1] w. ${"fitscreen 384,384,1,35%"},0,"[G"{`39`}"MIC] Fractal Whirls"
+tangle=0 tzoom=0 xc={(w-{-3,w})/2} yc={(h-{-3,h})/2}
+do
+rand... 0,255 j.. [-3],$xc,$yc,0,0
+f.. "*begin(R = rot(8*sin(-"$tangle")°)/(1.03+0.02*sin("$tzoom")); C=[w,h]/2); I((R*([x,y]-=C))+=C,0,0)"
+tangle+=0.001
+tzoom+=0.02
+j. [-2],0,0,0,0,$1 w.
+if {*,CTRLLEFT}" && "{*,D} w[] {3*w},{3*h} elif {*,CTRLLEFT}" && "{*,C} w[] {1.5*w},{1.5*h} fi
+wait 20
+while {*}" && "!{*,ESC}" && "!{*,Q}
+rm[-3,-2] w[] 0
+gui_crop_preview :
+if narg($_preview_x0) z 0$_preview_x0,0$_preview_y0,0$_preview_x1,0$_preview_y1 fi
+gui_resize_preview :
+if narg($_preview_width) r $_preview_width,$_preview_height,100%,100%,2 fi
+gui_resize_preview_area :
+if narg($_preview_area_width) r $_preview_area_width,$_preview_area_height,100%,100%,2 fi
+gui_crop_resize_preview :
+gui_crop_preview gui_resize_preview
+gui_preview_wh :
+u {0$_preview_area_width?[0$_preview_area_width,0$_preview_area_height]:0$_preview_width?[0$_preview_width,0$_preview_height]:min(w,h)>=256?[w,h]:[400,400]}
+gui_parallel_overlap :
+apo "$1",$3,{if($2,2^($2-1),0)}
+gui_preview :
+frame 1,1,0,0,0,255 montage B
+gui_layer_name :
+u ${"_gui_merge_layers[0] name,[unnamed]"}
+gui_layer_mode :
+u ${"_gui_merge_layers[0] mode,alpha"}
+gui_layer_opacity :
+u ${"_gui_merge_layers[0] opacity,100"}
+gui_layer_pos :
+u ${"_gui_merge_layers[0] pos,0,0"}
+gui_set_layer_name :
+foreach {
+opacity=${-gui_layer_opacity} mode=${-gui_layer_mode} pos=${-gui_layer_pos}
+=> "name($*),mode("$mode"),opacity("$opacity"),pos("$pos")"
+}
+gui_set_layer_mode :
+foreach {
+name=${-gui_layer_name} opacity=${-gui_layer_opacity} pos=${-gui_layer_pos}
+=> "name("$name"),mode($1),opacity("$opacity"),pos("$pos")"
+}
+gui_set_layer_opacity :
+foreach {
+name=${-gui_layer_name} mode=${-gui_layer_mode} pos=${-gui_layer_pos}
+=> "name("$name"),mode("$mode"),opacity($1),pos("$pos")"
+}
+gui_set_layer_pos :
+foreach {
+name=${-gui_layer_name} mode=${-gui_layer_mode} opacity=${-gui_layer_opacity}
+=> "name("$name"),mode("$mode"),opacity("$opacity"),pos("{round("$1")}","{round("$2")}")"
+}
+gui_merge_layers :
+if !$! return fi
+mode0=${"_gui_merge_layers. mode,alpha"}
+opacity0=${"_gui_merge_layers. opacity,100"}
+pos0=${"_gui_merge_layers. pos,0,0"}
+if $opacity0<100" || "['$pos0']!='0,0' 100%,100%,1,4 fi
+wh0={w},{h}
+wh=${-max_wh} r. $wh,1,100%,0
+repeat $!-1 { l[-2,-1] {
+rv
+mode=${"_gui_merge_layers[1] mode,alpha"}
+opacity=${"_gui_merge_layers[1] opacity,100"}
+pos=${"_gui_merge_layers[1] pos,0,0"}
+to_a[1] r[1] $wh,1,100%,0
+shift[1] ${u\ $pos},0,0
+to_colormode[0,1] 0
+blend $mode,{max(0,min(1,$opacity/100))}
+} }
+r $wh0,1,100%,0
+_gui_merge_layers :
+u {`"
+str = ["{'{n}'}"]; const sstr = size(str);
+def = ['${2--1}'];
+ker = ['$1(']; const sker = size(ker);
+const N = max(size(str),size(def));
+ref(vectorN(0),res);
+p = q = find(str,ker);
+p>=0?(
+q+=sker;
+r = find(str,'),',q);
+q = r>=0?r:(str[sstr-1]==_')'?sstr-1:-1);
+);
+q>=0?copy(res,str[p + sker],q - p - sker):(def = ['${2--1}']; copy(res,def,size(def)));
+for (p = 0, p=0, res[p=q++] = 26);
+res"`}
+gui_split_preview : check "isint(${2=0}) && $2>=0 && $2<=12 && ${5=0}>=0" skip "${3=nan},${4=nan}"
+__split_preview="$1" m "_split_preview : run $__split_preview k[0]"
+is_movable={!isnan($3)" && "!isnan($4)}
+posx,posy={$is_movable?cut([$3,$4],0,100):[50,50]}
+pw,ph=${-gui_preview_wh}
+foreach {
+is_failed=0
++l {
+apply_timeout _split_preview,0$_preview_timeout
+onfail
+if 0$_is_timeout gui_timeout_preview
+else gui_error_preview ${}
+fi
+is_failed=1
+}
+if $is_failed" || "!$2 k.
+else
+drgba rr2d $pw,$ph,0,2
+r {[max(w#0,w#1),max(h#0,h#1)]},1,100%,0,0,0.5,0.5
+posx,posy={round([$posx,$posy]*([w,h]-1)%)}
+if $2==1" || "$2==3
+1,[0],1,1,'y>=$posy?($2==1):($2==3)' r. [0],[0],1,1 j[0] [1],0,0,0,0,1,.
+elif $2==2" || "$2==4
+[0],1,1,1,'x>=$posx?($2==2):($2==4)' r. [0],[0],1,1 j[0] [1],0,0,0,0,1,.
+elif $2==5
+j[0] [1],0,$posy
+elif $2==6
+j[0] [1],$posx
+elif $2==7
+j[0] [1],0,{$posy-h}
+elif $2==8
+j[0] [1],{$posx-w}
+elif $2==9
+if !$posy k. elif $posy>=h k.. else r[0] 100%,$posy,1,100%,0,0,0,0.5 r[1] 100%,{h-$posy},1,100%,0,0,0,0.5 a y fi
+elif $2==10
+if !$posx k. elif $posx>=h k.. else r[0] $posx,100%,1,100%,0,0,0.5 r[1] {w-$posx},100%,1,100%,0,0,0.5 a x fi
+elif $2==11
+1,[0],1,1,'y>=$posy' [0],1,1,1,'x>=$posx' r[-2,-1] [0],[0],1,1 xor[-2,-1]
+j[0] [1],0,0,0,0,1,.
+elif $2==12
+1,[0],1,1,'y<=$posy' [0],1,1,1,'x>=$posx' r[-2,-1] [0],[0],1,1 xor[-2,-1]
+j[0] [1],0,0,0,0,1,.
+fi
+k[0]
+dir=0
+if isin($2,1,3,5,7,9,11,12)
+dir+=1
+line 0,$posy,100%,$posy,0.75,0xF0F0F0F0,255 line 0,$posy,100%,$posy,0.75,0x0F0F0F0F,0
+if $is_movable
+coords={p=[$posx,$posy];[p+[-10,-1],p+[10,-1],p+[0,-11]]}
+polygon 3,$coords,0.7,255
+polygon 3,$coords,0.7,0xFFFFFFFF,0
+coords={p=[$posx,$posy];[p+[-10,1],p+[10,1],p+[0,11]]}
+polygon 3,$coords,0.7,255
+polygon 3,$coords,0.7,0xFFFFFFFF,0
+fi
+fi
+if isin($2,2,4,6,8,10,11,12)
+dir+=2
+line $posx,0,$posx,100%,0.75,0xF0F0F0F0,255 line $posx,0,$posx,100%,0.75,0x0F0F0F0F,0
+if $2!=9" && "$is_movable
+coords={p=[$posx,$posy];[p+[-1,-10],p+[-1,10],p+[-11,0]]}
+polygon 3,$coords,0.7,255
+polygon 3,$coords,0.7,0xFFFFFFFF,0
+coords={p=[$posx,$posy];[p+[1,-10],p+[1,10],p+[11,0]]}
+polygon 3,$coords,0.7,255
+polygon 3,$coords,0.7,0xFFFFFFFF,0
+fi
+fi
+l[] {
+0 +t. "After",0,0,20,1,255 t.. "Before",0,0,20,1,255
+autocrop 0 z[0] {0,[-1,-1,w,h]} z[1] {1,[-1,-1,w,h]}
+if isin($2,3,4,7,8,12) rv fi
++dilate[-2,-1] 3 /[-2,-1] 255 r[-4,-3] 100%,100%,1,3
+}
+if {-4,"const c1 = "$posx">w+2; const c2 = "$posy">h+2; arg("$dir",c2,c1,c1&&c2)"}
+j[0] [-4],2,2,0,0,1,..
+fi
+if {-3,"const c1 = "$posx"h+2); arg("$dir",c2,c1,c1&&c2)"}
+j[0] [-3],{[w#0-3-w,isin($2,11,12)?2:h#0-3-h]},0,0,1,.
+fi
+k[0]
+fi
+}
+um _split_preview
+gui_print_preview : skip "${1=},${3=}" check "${2=32}>=0 && ${4=20}>=0"
+if $! k[0] fi
+drgba
+siz={0$_preview_area_width?[0$_preview_area_width,0$_preview_area_height]:[${fitscreen\ {[max(w,1),max(h,1),1]},400,800}]}
+sizw={arg(1,$siz)-8}
+if $! rr2d $siz,2,3 drgba else $siz,1,3,128 fi
+(1;0.5^1;0.5^0;1)
+(0,0.5,0;0.5,1,0.5;0,0.5,0) *. 0.65
+ri[-2,-1] ...,3 * c 0,255
+l[] {
+if ['"$1"']!=0 msg="$1" else msg=" " fi
+0 t. $msg,0,0,$2,1,255 i.. 100%,100%,1,3 fc.. 255,200,120 a[-2,-1] c r2dx. {min(w,arg(1,$sizw)-8)}
+r. 100%,140%,1,100%,0,0
+onfail rm
+}
+l[] {
+if ['"$3"']!=0 msg="$3" else msg=" " fi
+0 t. $msg,0,0,$4,1,255 i.. 100%,100%,1,3,255 a c
+('$msg') is_err={"crop(0,4)=='*** '"} rm.
+if $is_err
+x={"ref(crop(0,0,0,3,32,h,1,1),T);
+for (c = 32, c$sizw {
+x={"const c0 = "$sizw"-1;
+const c02 = c0/2;
+for (c = c0, c>=c02, --c, max(crop(#-1,c-2,0,0,3,5,h,1,1))<=0?break());
+c=c02, --c, max(crop(#-1,c,0,0,3,1,h,1,1))<=0?break());
+c "mode("$mode"),opacity("$opacity"),pos("{arg(1,$coords)}","{arg(2,$coords)}"),name("$nm")"
+}
+fx_logo : skip "${1= }"
+rm[^0]
+w,h=${-gui_preview_wh}
+({'"$1"'}) c. 0,127 r. 15,1,1,1,0,2 r. {w/3},1,1,3,-1 n. 0,255 100%,1,1,1,lerp(0,$w-1,x/(w-1)) rv[-2,-1] a[-2,-1] c
+rbf. $h transpose. r. $w,$h,1,3,3
+blend alpha,0.5
+to "$1",0.5~,0.5~,10%
+fx_support_us :
+if $!>0 k[0] fi
+gui_print_preview ""
+l[] {
+filename=${-path_tmp}gmic_donations.png
+need_update={"Y = date(0); M = date(1); D = date(2); date_current = Y*365 + M*31 + D;
+Y = date(0,'"{/$filename}"'); M = date(1,'"{/$filename}"');
+D = date(2,'"{/$filename}"'); date_file = Y*365 + M*31 + D;
+date_current - date_file>=15"}
+if $need_update i https://gmic.eu/img/donations_latest_months.png o. $filename
+else i $filename
+fi
+0 t. "Latest donations to the G'MIC project:",0,0,24,1,1 rows. 0,120% *. 255 channels. -3,0
+rv a y,0.5 drgba 200 frame 4,4,200 frame 2,2,0 to_rgba
+onfail rm
+}
+if w>w#0" || "h>h#0 rr2d. {-2,[w,h]},0 fi
+j.. .,{([w#0,h#0]-[w,h])/2},0,0,0.85
+rm.
+gui_download_all_data :
+l[] { clut foo rm onfail rm }
+_filenames_grain=${-_fx_simulate_grain}
+_url_grain=https://gmic.eu/data_film_presets
+_prefix_grain=grain_
+_ext_grain=cimgz
+_filenames_lightleak=${-_fx_light_leaks}
+_url_lightleak=https://gmic.eu/data_lightleaks
+_prefix_lightleak=
+_ext_lightleak=cimgz
+_filenames_sample=${-__sample}
+_url_sample=https://gmic.eu/img
+_prefix_sample=sample_
+_ext_sample=png
+_filenames_demos=gmic_demos
+_url_demos=https://gmic.eu/img
+_prefix_demos=
+_ext_demos=cimgz
+_n=0
+_N={narg($_filenames_grain,$_filenames_lightleak,$_filenames_logo,$_filenames_sample)}
+progress 0
+_gui_download_all_data[] grain,$1
+_gui_download_all_data[] lightleak,$1
+_gui_download_all_data[] logo,$1
+_gui_download_all_data[] sample,$1
+_gui_download_all_data[] demos,$1
+progress 100
+_gui_download_all_data :
+repeat narg(${_filenames_$1}) {
+filename=${_prefix_$1}${arg0\ $>,${_filenames_$1}}.${_ext_$1}
+e "Download "$filename
+if $2" || "!isfile(['{/${-path_cache}$filename}']) l[] {
+${_url_$1}/$filename o ${-path_cache}$filename rm onfail
+} fi
+progress {100*$_n/$_N}
+_n+=1
+}
+fx_friends :
+if $! ratio={w/h} else ratio=1 fi
+rm _heart80x73 scale3x r 150%,150%,1,1,0,0,0.5,0.5
++*. 70 +*.. 110 +*... 255 *[-4] 255 a c
+blur_radial 4 sharpen 300
+i.. ${fitratio_wh\ {w},{h},$ratio},1,3
+rand.. 0,255 sh.. 1,2 /. 2 rm.
+blur_radial.. 20 sharpen.. 50
+r. ..,..,1,4,0,0,0.5,0.5 blend alpha
+143,80,1,1,0 t. "Greetings to\n all G\47MIC\n friends!",2,-2,27,1,1
++dilate. 3 *.. 255 to_rgb.. j... ..,{[w#-3-w#-2,h#-3-h#-2]/2},0,0,1,.
+rm[-2,-1]
+_heart80x73 :
+40,73,1,1,0 ellipse 22,22,20,20,0,1,1 polygon 3,7,37,42,72,42,27,1,1 +mirror x a x
+fx_logo_ca :
+fx_logo "per al GIMP\n [ "${-strver}" ]"," per al GIMP\n[ "${-strver}" pre-release ""#"$_prerelease"]"
+fx_gmicky :
+rm
+if $1==0 sp gmicky => "name(Gmicky)"
+elif $1==1 sp gmicky_mahvin => "name(Gmicky)"
+elif $1==2 sp gmicky_wilber => "name(Gmicky & Wilber)"
+else sp roddy => "name(Roddy)"
+fi
+fx_gmicky_preview :
+fx_gmicky $* rr2d $_preview_area_width,$_preview_area_height,0,2
+fx_whatsnew_preview : skip "$*"
+file=${-path_cache}whatsnew.txt
+l[] {
+parse_gui whatsnew
+if isfile(['{/$file}']) it $file date={date([0,1,2],['{/$file}']):/} else 0 date={date([0,1,2]):/} fi
+utf82html.. utf82html.
+if $4 ot.. $file newfilters,delfilters= is_changes=0
+else
+newfilters,delfilters=
++- is_changes={max(abs(im),abs(iM))!=0} rm.
+if !w
+rm. s -,10
+repeat $! { newfilters.=" - "{$>,t}{`10`} }
+elif $is_changes
+eval "
+ref(vector256(),str0);
+ref(vector256(),str1);
+for (s0 = s1 = 0, s01 mirror y fi
+array_fade $1,$2,$5,$6,$8
+shift -$3%,-$4%,0,0,2
+fx_array_fade_preview :
+fx_array_fade $1,$2,$3,$4,$5,$6,$7,0
+fx_array_mirror : skip ${7=0}
+if $5==1 mirror x
+elif $5==2 mirror y
+elif $5==3 rotate 90
+elif $5==4 rotate 180
+elif $5==5 rotate 270
+fi
+if $7
+if $4==0 columns 0,{100-$7}%
+elif $4==1 rows 0,{100-$7}%
+elif $4==2 z 0,0,{100-$7}%,{100-$7}%
+elif $4==3 z {$7/2}%,{$7/2}%,{100-$7/2}%,{100-$7/2}%
+fi
+fi
+shift -$2%,-$3%,0,0,2
+array_mirror $1,$4,$6
+fx_array_mirror_preview :
+fx_array_mirror $1,$2,$3,$4,$5,0,$7
+fx_array_color :
+repeat $! { l. {
+$1,$2,1,3 rand. 0,255 to_colormode. {-2,s} ri. .. *. $3 *.. {1-$3} +[-2,-1]
+} mv. 0 }
+fx_array :
+shift -$3%,-$4%,0,0,2
+if $5&1 mirror x fi if $5>1 mirror y fi
+array $1,$2,$6
+fx_array_preview :
+fx_array $1,$2,$3,$4,$5,0
+fx_asciiart : skip "${10=},${11=},${12=}"
+foreach {
+to_rgb apply_gamma {10^$7} b $8% n 0,255
+if $1==0 dict="$2"
+elif $1==1
+dict=" 01"
+elif $1==2
+dict=" 0123456789"
+elif $1==3
+dict=" abcdefghijklmnopqrstuvwxyz"
+elif $1==4
+dict=" ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+elif $1==5
+dict=" !\042#$%&\047()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\133\\\135^_\140abcdefghijklmnopqrstu""vwxyz\173|\174~"
+elif $1==6
+dict=" \16\17\20\21"
+elif $1==7
+dict=" \200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217\220\221\222\223\224\225\226\227\230\231"
+fi
+if $6==1 negate fi
+if $-3 +img2ascii $dict,$3,$4%,$5,"$-2"/"$-1"
+else +img2ascii $dict,$3,$4%,$5
+fi
+wh=${}
+if $6==0 k. n 0,255
+elif $6==1 k. negate n 0,255
+elif $6==2" || "$6==3
+r[0] $wh,1,100%,1
+if $9>=7 luminance[0] fi
+if $9%7 quantize[0] {arg($9%7,2,3,4,8,12,16)-1},1,0 fi
+r[0] [1],[1],1,100% *[0] [1]
+if $6==2 rm[1]
+else *[1] 255 a c
+fi
+fi
+}
+fx_asciiart_preview :
+foreach {
+w={w} h={h}
+fx_asciiart $1,"$2",${3-9},0,foo,foo
+r $w,$h,1,100%,0,0,0.5,0.5
+}
+fx_chessboard :
+to_rgba chessboard ${1-14}
+fx_chessboard_preview :
+gui_split_preview "fx_chessboard $*",${-3--1}
+fx_dices :
+repeat 6 { {2*$2},{2*$2} _dice$> }
+if $3%2 negate[-6--1] fi
+frame_round[-6--1] 0,30%,0.5,128,128,128,0 frame[-6--1] 1,1,128,128,128,0
+r2dy[-6--1] $2 a[-6--1] x
+foreach[^-1] {
+pass.
++luminance[0] rv[1,2] r[0,1] {100*$1/$2}%,{100*$1/$2}%,1,100%,2 quantize[1] 6,0
+*.. $2 channels.. 0,1 r.. {$2*100}%,{$2*100}%
+$2,$2,1,2,'if(c,y,x)' r. ...,...,1,2,0,2 +[-3,-1] +warp. ..,0,0,1 rm...
+if $3<2 rm[0] mv. 0
+else r[0] [2],[2],1,100% rv[0,-1] blend[0,-1] multiply
+fi
+rm.
+}
+rm.
+_dice0 : ellipse. 50%,50%,5.2%,5.2%,0,1,255
+_dice1 : ellipse. 25%,25%,5.2%,5.2%,0,1,255 ellipse. 75%,75%,5.2%,5.2%,0,1,255
+_dice2 : _dice1 _dice0
+_dice3 : _dice1 ellipse. 25%,75%,5.2%,5.2%,0,1,255 ellipse. 75%,25%,5.2%,5.2%,0,1,255
+_dice4 : _dice3 _dice0
+_dice5 : _dice3 ellipse. 25%,50%,5.2%,5.2%,0,1,255 ellipse. 75%,50%,5.2%,5.2%,0,1,255
+_fx_drawn_montage :
+nb_layers={min(16,$!-1)}
+if !$nb_layers
+error="A top layout layer is missing for this filter to make it work properly!"
+if $-1 gui_warning_preview $error return
+else error $error
+fi
+fi
+pargs,args0,args1,args2,args3,args4,args5,args6,args7,args8,args9,args10,args11,args12,args13,args14,args15=${9-25}
+if $1!=$pargs
+('${args$1}') replace. {':'},{','} arg_R,arg_G,arg_B,arg_zoom,arg_xcenter,arg_ycenter,arg_angle=${u\ {t}} rm.
+else
+arg_R,arg_G,arg_B,arg_zoom,arg_xcenter,arg_ycenter,arg_angle=${2-8}
+fi
+args$1=$arg_R:$arg_G:$arg_B:$arg_zoom:$arg_xcenter:$arg_ycenter:$arg_angle
+status=\{$1\}\{$arg_R,$arg_G,$arg_B\}\{$arg_zoom\}\{$arg_xcenter\}\{$arg_ycenter\}\{$arg_angle\}\{$1\}\{$args0\}\{$args1\}\{$args2\}\{$args3\}\{$args4\}\{$args5\}\{$args6\}\{$args7\}\{$args8\}\{$args9\}\{$args10\}\{$args11\}\{$args12\}\{$args13\}\{$args14\}\{$args15\}
+c= repeat $nb_layers {
+('${args$>}') replace. {':'},{','} R$>,G$>,B$>,zoom$>,xcenter$>,ycenter$>,angle$>=${u\ {t}}
+cols=$cols$c${R$>},${G$>},${B$>} c=, rm. rotate[{1+$>}] {90*${angle$>}}
+}
+to_rgb[0] to_rgba[^0] $nb_layers,1,1,4,[inf,inf,-inf,-inf] [0],[0]
+f[0] "
+begin(colors = [ "$cols" ]);
+repeat ("$nb_layers",l,
+I==colors[3*l,3]?(
+if (xi(#-2,l,0,0,2), i(#-2,l,0,0,2) = x);
+if (y>i(#-2,l,0,0,3), i(#-2,l,0,0,3) = y);
+i(#-1,x,y) = l + 1;
+);
+); I"
+thumbnail=0 boundaries=0
+if $-1
+l={1+$1}
+if $l<=$nb_layers
+if {$l,w>h} +r2dx[$l] {(0$_preview_area_width?0$_preview_area_width:400)/6}
+else +r2dy[$l] {(0$_preview_area_height?0$_preview_area_height:400)/6} fi
+frame. 1,1,0,0,0,255 drgba. to. "#"$l,0,-2,13 to_rgba.
+mv. -3
+thumbnail=1
+fi
++f. "const boundaries = 1; ref(crop(x - 2,y - 2,5,5),V); if (min(V)==max(V),0,i)"
+(0,0,0,$cols) r. 3,{$nb_layers+1},1,1,-1 1,100%,1,1,y?255:0 a[-2,-1] x permute. yzcx map.. . rm.
+repeat $nb_layers {
+xmin,ymin,xmax,ymax={-3,I[$>]}
+if !isinf($xmin)" && "!isinf($ymin)" && "!isinf($xmax)" && "!isinf($ymax)
+xc$>,yc$>={0,0.5*([$xmin,$ymin]+[$xmax,$ymax]-6)*100/[w,h]}
+else xc$>,yc$>=-1024
+fi
+}
+mv. -3
+boundaries=1
+fi
+if iM>0
+repeat $nb_layers {
+l={$>+1} xmin,ymin,xmax,ymax={-2,I[$>]}
+if !isinf($xmin)" && "!isinf($ymin)" && "!isinf($xmax)" && "!isinf($ymax)
+dx={$xmax-$xmin+1}
+dy={$ymax-$ymin+1}
+nw,nh={$l,round(min(w/$dx,h/$dy)*[$dx,$dy]/(1+3*(${zoom$>}/10)^2))}
+r[$l] $nw,$nh,1,100%,0,0,{(100-${xcenter$>})%},{(100-${ycenter$>})%}
+r[$l] $dx,$dy,1,100%,6
+else r[$l] 1,1
+fi
+}
+to_rgba[0]
+f[0] "
+l = i#-1;
+l1 = l - 1;
+l<=0?I:(
+xmin = i(#-2,l1,0,0,0);
+ymin = i(#-2,l1,0,0,1);
+rx = x - xmin;
+ry = y - ymin;
+crop(#l,rx,ry,0,0,1,1,1,4);
+)"
+fi
+rm[-2,-1]
+if $boundaries blend[0,-1] alpha fi
+if $thumbnail
+drgba[0] rr2d[0] ${-gui_preview_wh}
+j[0] .,3,3,0,0,0.75
+rm.
+fi
+if $-1 repeat $nb_layers { to "#"{1+$>},${xc$>}%,${yc$>}%,13,1,0.75 } fi
+k[0] c 0,255
+u $status
+fx_drawn_montage :
+_fx_drawn_montage $*,0
+fx_drawn_montage_preview :
+_fx_drawn_montage $*,1
+fx_extract_objects :
+if $5 min_area=$5% else min_area=6 fi
+foreach {
+to_rgba
+nm=${-gui_layer_name}
+w={w} h={h}
+x={$1%*(w-1)}
+y={$2%*(h-1)}
+color={I($x,$y)}
+if $7==0
++replace_color $3,0,$color,0,0,0,0 autocrop_components. $4%,$min_area,$6,2
+repeat w {
++z[0] {1,i($>,0)},{1,i($>,1)},{1,i($>,3)},{1,i($>,4)}
+=> pos({1,i($>,0)}\,{1,i($>,1)})\,name($nm" "[$>])
+}
+rm[0,1]
+elif $7==1
+replace_color $3,0,$color,0,0,0,0
++autocrop_components[0] $4%,$min_area,$6,2
+autocrop_components[0] $4%,$min_area,$6,1
+repeat w { =>[$>] pos({i($>,0)}\,{i($>,1)})\,name($nm" "[$>]) } rm.
+fi
+$w,$h,1,4 fc. $color => name($nm" [background]")
+}
+fx_extract_objects_preview :
+x0,y0=${1,2}
+if $5 min_area=$5% else min_area=5 fi
+foreach {
+to_rgba
+x={$x0%*(w-1)}
+y={$y0%*(h-1)}
+color={I($x,$y)}
++replace_color $3,0,$color,0,0,0,0
+autocrop_components. $4%,$min_area,$6,2
+repeat w {
+xycoords={1,i($>,0)},{1,i($>,1)},{1,i($>,3)},{1,i($>,4)}
+rectangle[0] $xycoords,0.3,0,0,255,255
+rectangle[0] $xycoords,1,0xFFFFFFFF,0,0,0,255
+}
+drgba[0]
+to[0] {w}" objects",2,2,13,2,0.3,255,255,255,255
+k[0]
+if $8
+line 0,$y0%,100%,$y0%,0.5,0xF0F0F0F0,255 line 0,$y0%,100%,$y0%,0.5,0x0F0F0F0F,0
+line $x0%,0,$x0%,100%,0.5,0xF0F0F0F0,255 line $x0%,0,$x0%,100%,0.5,0x0F0F0F0F,0
+fi
+circle $x,$y,3,1,0,255,0 circle $x,$y,3,1,0xFFFFFFFF,0
+}
+fx_imagegrid :
+imagegrid $1,$2
+fx_imagegrid_hexagonal :
+foreach {
+if $3 r 200%,200%,1,100% fi
+imagegrid_hexagonal $1,$2
+if $3 r 50%,50%,1,100%,2 fi
+}
+fx_imagegrid_triangular :
+foreach {
+split_opacity l[0] { to_rgb imagegrid_triangular ${1-3},{$7/255},${4-6} }
+a c
+}
+fx_make_seamless :
+foreach {
+if $1 +b {20.5-$1/50}% -[0] [1] fc. ${average_vectors.} + fi
+}
+periodize_poisson c 0,255
+fx_make_seamless_preview :
+u={arg($3,2,1,2,3,4)} v={arg($3,1,2,2,3,4)}
+gui_split_preview "if !$2 fx_make_seamless $* fi if $3 array "$u","$v" fi",${-3--1}
+fx_frame_seamless :
+foreach {
+if $5 +b {20.5-$5/50}% -[0] [1] fc. ${average_vectors.} + fi
+}
+frame_seamless ${1-4} c 0,255
+fx_frame_seamless_preview :
+u={arg($7,2,1,2,3,4)} v={arg($7,1,2,2,3,4)}
+gui_split_preview "if !$6 fx_frame_seamless $* fi if $7 array "$u","$v" fi",${-3--1}
+fx_ministeck :
+foreach {
+if w>h r2dx {min($2,w)} else r2dy {min($2,h)} fi
+split_opacity l[0] {
++colormap. $1 index.. .
+[0],[0],1,1 rand[2] 0,1 dilate[2] $4 +[0,2]
+r[0] $3""00%,$3""00%
++g[0] xy,1 !=[-2,-1] 0 +f[0] 'i(x+1,y+1)-i(x,y)' !=[-3--1] 0 -|[-3--1]
+z[0,-1] 0,0,{w-2},{h-2}
+if $7 . fi
++shift. 1,1 *.. -1 +[-2,-1] b. {$6*$3/5} n. -$5,$5
+map[0] [1] rm[1] +[0,-1]
+if $7 ==[1] 0 * fi
+} r. [0],[0],1,100% a c
+}
+c 0,255
+fx_ministeck_preview :
+foreach {
+w={w} h={h}
+fx_ministeck $*
+r $w,$h,1,100%,0,0,0.5,0.5
+}
+fx_montage : skip "${2=A}"
+if !$! return fi
+code0=X code1="$2" code2=H code3=V code4=A code5=B
+if $3==1" && "$4<0.5 r {max(10,$4*200)}%,{max(10,$4*200)}%,1,100%,2 fi
+to_rgba if $14 rv fi if $13%$! mv[{$13%$!}--1] 0 fi
+if $11" || "$12 repeat $! { rotate[$>] {$11+u(-$12,$12)},1,0 } fi
+montage ${code$1},{if($3==0,$4,2+max(0,$4-0.5))},$15,"if $""7%2 mirror x fi if $""8%2 mirror y fi ""rotate {90*$""6} ""if $5||$6 ""r {max(1,$""4-2*($5+$6))},{max(1,$""5-2*($5+$6))},1,100%,2 ""frame $6,$6,${7-10} ""r {w+2*$5},{h+2*$5},1,100%,0,0,0.5,0.5 ""else r $""4,$""5,1,100%,2 fi "
+if $15 gui_autocrop_layers fi
+gui_set_layer_name "[Montage]"
+fx_montage_preview : skip "${2=A}"
+if !$! return fi
+w={w} h={h}
+if $3==1" && "$4<0.5 r {max(10,$4*200)}%,{max(10,$4*200)}%,1,100%,2 fi
+drgba
+code0=X code1="$2" code2=H code3=V code4=A code5=B
+to_rgba if $14 rv fi if $13%$! mv[{$13%$!}--1] 0 fi
+if $11" || "$12 repeat $! { rotate[$>] {$11+u(-$12,$12)},1,0 } fi
+montage ${code$1},{if($3==0,$4,2+max(0,$4-0.5))},0,"if $""7%2 mirror x fi if $""8%2 mirror y fi
+rotate {90*$""6}
+if $5||$6
+r {max(1,$""4-2*($5+$6))},{max(1,$""5-2*($5+$6))},1,100%,2 fs={min(53,max(w,h)/3)}
+frame $6,$6,${7-10}
+r {w+2*$5},{h+2*$5},1,100%,0,0,0.5,0.5
+0 t. \\\#$""1,0,0,$fs,1,255 expand_xy. 3,0 [-1]x3 a[-4--2] c
+dilate. {3+2*$fs/20} a.. .,c j[0] [1],{5+$5+$6},{$5+$6},0,0,1,[2],255 k[0]
+else
+r $""4,$""5,1,100%,2 fs={min(53,max(w,h)/3)}
+0 t. \\\#$""1,0,0,$fs,1,255 expand_xy. 3,0 [-1]x3 a[-4--2] c
+dilate. {3+2*$fs/20} a.. .,c j[0] [1],5,0,0,0,1,[2],255 k[0]
+fi "
+nw={w} nh={h}
+resize_ratio2d $w,{$h-16},2,2
+drgba
+i[0] 100%,15,1,3,240 t[0] "Estimated size : "{round(100*$nw/$w)}%" x "{round(100*$nh/$h)}%,2,0,16 r[0] 100%,16,1,3,0
+a y
+fx_puzzle :
+foreach {
+w={w} h={h} to_rgb
+puzzle $w,$h,$1,$2,$3,$4,$5
++b. $6%,0 g. xy +[-2,-1] n. -$7,$7 +[0,-1]
++b. $8%,0 n. 0,1 *. -1 +. 1 n. {(255-$9)/255},1 *[0,-1] c 0,255
+if $10!=100||$11||$12||$13||$14||$15||$16
++-. 1 label_fg. 0
++area_fg. 0,0 <. 50% -|... . ==. 0 *[-2,-1]
+distance.. 0 *.. -1 watershed. .. rm.. label. 0,0
+repeat iM+1 {
++==[1] $>
+coords=${autocrop_coords.\ 0}
++z[0] $coords z.. $coords rv[-2,-1] *.. . *. 255 a[-2,-1] c
+x$>={arg(1,$coords)+round(w/2)} y$>={arg(2,$coords)+round(h/2)}
+}
+rm[0,1]
+if $14 sort_list +,u fi
+if $16
+foreach {
+r2dy {max(0.1,$10+$11*v)}% rotate {$12+$13*v}
+if $15 expand_xy 1,0 fi
+cx={round(w/2)} cy={round(h/2)}
+sh 100% if $15 dilate. 3 fi
+i[0] $w,$h,1,4
+j[0] ..,{${x$>}-$cx},{${y$>}-$cy},0,0,1,.,255 rm[-2,-1]
+}
+else
+i[0] $w,$h,1,{s}
+repeat $!-1 {
+r2dy. {max(0.1,$10+$11*v)}% rotate. {$12+$13*v}
+if $15 expand_xy. 1,0 fi
+cx={round(w/2)} cy={round(h/2)}
+sh. 100% if $15 dilate. 3 fi
+j[0] ..,{${x$<}-$cx},{${y$<}-$cy},0,0,1,.,255 rm[-2,-1]
+}
+fi
+else rm.
+fi
+}
+fx_puzzle_preview :
+fx_puzzle ${1-15},0
+fx_shuffle_patches_preview :
+fx_shuffle_patches $*
+gui_crop_resize_preview
+fx_shuffle_patches :
+mode,recons,patch_size,overlap,overlap_std,seed=${1-6}
+foreach {
+nm={n} w,h:=w,h
+s c foreach { avg$>,std$>:=ia,id } a c
+ps:=min(w,h,$patch_size)
+if $recons==1 g xy,1 a c
+elif $recons==2 laplacian
+fi
+img2patches $ps,$overlap%,3
+s z srand $seed
+if isin($mode,0,2) sort_list +,u fi
+if $mode>0 foreach { rotate {90*round(u(3))} } fi
+a z
+patches2img $w,$h,$overlap%,$overlap_std%
+if $recons==1 s c,2 g.. x,-1,2 g. y,-1,2 + ilaplacian 0
+elif $recons==2 ilaplacian 0
+fi
+s c foreach { - {ia} / {id} * ${std$>} + ${avg$>} } a c
+c 0,255
+}
+fx_taquin :
+to_a foreach { srand $11 taquin $1,$2,$3,$4,$5%,$6,${7-10} }
+fx_rotate_tileable :
+if $3 array_mirror 1,{$3-1},1 fi
+rotate_tileable $1,{if($3==0,$2,$2/2)}
+fx_rotate_tileable_preview :
+l { fx_rotate_tileable $* onfail gui_warning_preview "Invalid image size" }
+fx_isolate_tiles :
+foreach {
+to_rgba
+if $5 sx={round(min(w,h)*max($1,$2)/100)} sy=$sx else sx={round(w*$1/100)} sy={round(h*$2/100)} fi
+if $6 bx={max($3,$4)} by=$bx else bx=$3 by=$4 fi
+s x,-$sx
+foreach { s y,-$sy r 100%,{100+$by}%,1,100%,0,0,0.5,0.5 a y }
+r {100+$bx}%,100%,1,100%,0,0,0.5,0.5 a x
+}
+_fx_normalize_tiles :
+repeat $! { l. { split_tiles $1,$2 n $3,$4 append_tiles $1,$2 } mv. 0 }
+fx_normalize_tiles :
+ac "_fx_normalize_tiles ${1-4}",$-1
+fx_parameterize_tiles :
+if $3
+quadratize_tiles $1,$2
+else
+linearize_tiles $1,$2
+fi
+c 0,255
+fx_shift_tiles :
+to_rgba shift_tiles $1,$2,$3
+if $4<1 repeat $! { s. c *. $4 a[-4--1] c mv. 0 } fi
+fx_rotate_tiles :
+to_rgba rotate_tiles $3,$1,$2 drop_shadow $4%,$5%,$6%
+gcd_aurora : skip ${1=6},${2=1},${3=0}
+repeat $! l[$>]
+to_rgb +deriche $1%,2,y deriche. $2%,0,x
+c. 0,255 n. 0,255
+if $3 blend average else k. fi
+done done
+fx_crayongraffiti2 :
+repeat $! l[$>] split_opacity l[0]
++b $3 hardsketchbw. $1,$2,$4,$5,$6 to_rgb
+negate. blur_xy.. $7,$7 reverse
+if $8==0 compose_lightness
+elif $8==1 compose_value
+elif $8==2 fx_compose_colordoping 1,1 fi
+done a c done done
+fx_crayongraffiti2_preview :
+gui_split_preview "fx_crayongraffiti2 ${1--2}",$-1
+fx_bokeh :
+_shape=$2
+srand $3
+foreach {
+nm=${-gui_layer_name} pos=${-gui_layer_pos}
+100%,100%,1,3
+(${4-13};${14-23}) if $1>2 r. 100%,$1,1,1,3 fi
+repeat $1 { +rows. $> _fx_bokeh... {^} rm. }
+rm. => "name("$nm"),opacity(100),mode(screen),pos("$pos")"
+rv
+if 0$_output_mode==0 gui_merge_layers
+elif 0$_output_mode<2 rm.
+fi
+}
+_fx_bokeh0 : shape_star $1,3
+_fx_bokeh1 : $1,$1,1,1,1
+_fx_bokeh2 : shape_diamond $1
+_fx_bokeh3 : shape_polygon $1,5,45
+_fx_bokeh4 : shape_polygon $1,6,45
+_fx_bokeh5 : shape_polygon $1,8,45
+_fx_bokeh6 : shape_polygon $1,10,45
+_fx_bokeh7 : shape_star $1,5
+_fx_bokeh8 : shape_circle $1
+fx_bokeh_preview :
+gui_split_preview "_output_mode=0 fx_bokeh $*",${-3--1}
+_fx_bokeh :
+radius1={r=max(w,h)*$2%;r+1-(r%2)}
+radius2={r=$radius1-($radius1*$3%);r+1-(r%2)}
+random3d $1 *3d. {-2,w},{-2,h},0
+_fx_bokeh$_shape $radius1
+if $radius2>=1 _fx_bokeh$_shape $radius2 ri. ..,0,0,0.5,0.5 *. {max(0,min(1,1-$4))} -[-2,-1] fi
+sigma={-3,$5%*w}
+r. {w+5*$sigma},{h+5*$sigma},1,1,0,0,0.5,0.5
+b. $sigma,0 n. 0,255
+sprites3d[1] [2],1 rm[2]
+l. {
+s3d r.. 3,{-2,h/3},1,1,-1 s.. x
+d={$10*255}
+rand[-4] {$6-$d},{$6+$d}
+rand... {$7-$d},{$7+$d}
+rand.. {$8-$d},{$8+$d}
+a[-4--2] x c.. 0,255 y a y
+}
+j3d[0] [1],0,0,0,{$9/255},1,0,0 rm[1]
+fx_brushify :
+_fx_brushify $*
+s0=0--3 s1=1--2 s2=0--2
+l[${s{$1==0?0:$1==1?1:2}},-1] { brushify[^-1] .,$3,{$5%},$6,$9,$10,$11,$12%,$13,$14,$15,$16,$17,$18 rm. }
+_fx_brushify :
+N={0.9*$4}
+if $1==0 +autocrop. i.. 100%,100%,1,3,1 blend[-2,-1] alpha rr2d. $N,$N,0,3
+elif $1==1 +autocrop[0] i.. 100%,100%,1,3,1 blend[-2,-1] alpha rr2d. $N,$N,0,3
+elif $1==2 $4,$4 rectangle. 10%,10%,90%,90%,1,1
+elif $1==3 shape_diamond. $N
+elif $1==4 shape_polygon $N,5
+elif $1==5 shape_polygon $N,6
+elif $1==6 shape_polygon $N,8
+elif $1==7 shape_circle. $N
+elif $1==8 $4,$4 gaussian. 30%,30%,0
+elif $1==9 shape_star $N
+elif $1==10 shape_heart $N
+fi
+norm. r. 100%,{max(0.01,100*$2)}%,1,1,2 r. $4,$4,1,1,0,0,0.5,0.5
+spread. $7 b. $8% n. 0,1
+fx_brushify_preview :
+if $1<2" && "$!<2
+gui_error_preview "When a custom brush (bottom or top layer) is specified, at least two layers are required
+for this filter to work.In this case, don't forget to set the 'Input layers' option!"
+return
+fi
+fx_brushify $*
+if $19
+_fx_brushify $*
+if $1==0 rm.. elif $1==1 rm[0] fi
+rr2d. {0,max(1,w/5)},{0,max(1,h/5)},0,2 n. 0,255
+frame. 3,3,0 frame. 1,1,255 frame. 1,1,0
+to_rgb. to. "Brush",4,2,13,2,1,255,255,0 to_a.
+j[^-1] .,2,2 rm.
+else
+if $1==0 rm. elif $1==1 rm[0] fi
+fi
+fx_cartoon_preview :
+gui_split_preview "cartoon $*",${-3--1}
+fx_circle_abstraction :
+foreach {
+b $4%
++colormap $1 index[0] [1],0,0
+[0],[0],1,4,0
+repeat $1 {
+rprogress {$>*100/$1}
++==[0] $>
+skeleton3d. 2,2,0,1,0
+if {@7}
+s3d. l[-6--1] {
+r[2] 3,{2,h/3},1,1,-1
+1,{2,h/2*$2%},1,1,1 r. 1,{2,h/2},1,1,4 r. 3,200% *[2,-1] y
+}
+a[-6--1] y col3d. {1,I($>)}
+[0],[0],1,4,0
+j3d. ..,0,0,0,1,{1+$5},0,0
+sh. 3 col3d... 255 j3d. ...,0,0,0,$3,{1+$5},0,0 rm.
+rm..
+blend[2,-1] alpha
+fi
+}
+k[2]
+if $6 +channels 3 <. 1 inpaint[0] [1],0,1 rm. channels. 0,2 fi
+if $7 n 0,255 fi
+rprogress 100
+}
+fx_circle_abstraction_preview :
+gui_split_preview "fx_circle_abstraction $*",${-3--1}
+fx_ColorAbstractionPaint :
+to_rgb
+pAbstraction=$1
+EllipseRatio=$2
+ValueOpacity=$3
+UseHue=$4
+MultiplyOpacity=$5
+UseSaturation=$6
+GrainMergeOpacity=$7
+NCA=$8
+CubeIt=$9
+KuwaIt=$10
+Soften=$11
+SoftenAll=$12
+DoNotCompose=$13
+ReverseOrder0=1
+ReverseOrder1=1
+ReverseOrder2=1
+eSmoothness=1
+eOpacity=0.8
+eOutline=1
+eDensity={1.5*$eSmoothness/10}
+pDetailsScale={$pAbstraction/2}
+pColor=1.5
+pSmoothness={10*$pAbstraction}
+eSmoothness={10+($pAbstraction-1)*(1-10)/(10-1)}
+ePrimaryRadius={0,($pAbstraction/5)*($pAbstraction/5)*sqrt(h)}
+eSecondaryRadius={$EllipseRatio/100*$ePrimaryRadius}
+cAbstraction={2+($pAbstraction-1)*(10-2)/(10-1)}
+CubeSize={4+($pAbstraction-1)*(10-4)/(10-1)}
++fx_ellipsionism[0] $ePrimaryRadius,$eSecondaryRadius,$eSmoothness,$eOpacity,1,$eDensity,0
+if $SoftenAll==1" && "$Soften>0 b. $Soften,0 fi
++fx_painting[0] $pAbstraction,$pDetailsScale,$pColor,$pSmoothness,1,0
+if $KuwaIt==1 fx_kuwahara. 2,$pAbstraction,0,0 fi
+if $Soften>0 b. $Soften,0 fi
++fx_color_abstraction[0] $cAbstraction,45,0.35,0
+if $NCA==1 negate. fi
+if $CubeIt==1 cubism. 600,$CubeSize,40,0.7,0 fi
+if $Soften>0 b. $Soften,0 fi
+if $DoNotCompose==0
+blend[0,1] value,$ValueOpacity,$ReverseOrder0
+if $MultiplyOpacity<0
+ReverseOrder1=0
+MultiplyOpacity={-1*$MultiplyOpacity}
+fi
+if $UseHue==0
+blend[0,1] multiply,$MultiplyOpacity,$ReverseOrder1
+elif $UseHue==1
+blend[0,1] hue,$MultiplyOpacity,$ReverseOrder1
+fi
+if $GrainMergeOpacity<0
+ReverseOrder2=0
+GrainMergeOpacity={-1*$GrainMergeOpacity}
+fi
+if $UseSaturation==0
+blend[0,1] grainmerge,$GrainMergeOpacity,$ReverseOrder2
+elif $UseSaturation==1
+blend[0,1] saturation,$GrainMergeOpacity,$ReverseOrder2
+fi
+k[0]
+fi
+if $DoNotCompose==1 rm[0] fi
+fx_ColorAbstractionPaint_Preview :
+gui_split_preview "fx_ColorAbstractionPaint ${1--2}",$-1
+fx_cpencil :
+repeat $! l[$>] split_opacity l[0]
++pencilbw $1,$2 blur_xy. 0.4,0.4
+quantize.. $3 n 0,255 to_rgb
+blur_xy.. $4,$4
+if $5==0 fx_compose_colordoping $6,0
+elif $5==1 fx_compose_darken $6,1
+elif $5==2 fx_compose_hardlight $6,0
+elif $5==3 fx_compose_grainmerge $6,0
+elif $5==4 fx_compose_lightness $6,1
+elif $5==5 fx_compose_multiply $6,0
+elif $5==6 fx_compose_softlight $6,0
+elif $5==7 fx_compose_value $6,1 fi
+done a c done done
+fx_cpencil_preview :
+gui_split_preview "fx_cpencil ${1--2}",$-1
+cl_comic :
+_output_mode=0
+foreach {
+simplif=$1
+nbBilatBord=$2
+methBord=$3
+methDesat=$4
+lineThick=$5
+forceTrait=$6
+antialias=$7
+addColors=$8
+augmLum=$9
+augmSat=$10
+nbBilatFin=$11
+colorEffect=$12
+flatColorEffect=$13
+bw=$14
+reliefEffect=$15
+specialEffect=$16
+finalAntialias=$17
+if $simplif==2
+fx_smooth_antialias. 100,0,2.5,0,50,50
+elif $simplif==3
+fx_smooth_antialias. 100,0,5,0,50,50
+elif $simplif==4
+fx_smooth_median. 3,255,0,0,50,50
+elif $simplif==5
+jeje_denoise_iuwt. 3,4,2,0
+jeje_denoise_iuwt. 3,4,2,0
+elif $simplif==6
+fx_smooth_anisotropic. 60,0.9,0.64,3.1,1.1,0.8,30,2,0,1,1,0,0,24
+elif $simplif==7
+meancurvature_flow. 20
+fi
+curv="0,0,"{50-$augmLum}","{50+$augmLum}",100,100,-1,0,0,"{50-$augmSat}","{50+$augmSat}",100,100,-1,0,0,100,100,-1,0,0,100,100,-1"
++fx_curves_interactive. 7,0,1,"7",$curv
+fx_smooth_nlmeans.. 4,4,10,5,0,0,24,0
+fx_smooth_bilateral.. 10,7,$nbBilatBord,0,0
++cut.. 0,255
+reverse[-2,-1]
+if $methBord==0
+blur[-3] {$lineThick}
+elif $methBord==1
+boxfilter[-3] xy,{$lineThick+0.01}
+elif $methBord==2
+median[-3] {($lineThick+0.01)*2}
+fi
+sub[-3,-2]
+if $methDesat==0
+fill.. "m = min(R,G,B); M = max(R,G,B); L = 0.5*(m + M); [L, L, L]"
+elif $methDesat==1
+fill.. "M = max(R,G,B); [M, M, M]"
+elif $methDesat==2
+fill.. "M = min(R,G,B); [M, M, M]"
+fi
+cut.. 0,255 n.. 0,255
+negate..
+threshold.. {$forceTrait+80}%
+n.. 0,255
+if $simplif>0
+fx_smooth_antialias.. 100,0,2.5,0,50,50
+fx_curves_interactive.. 7,0,1,"7","0,0,69,0,70,100,100,100,-1,0,0,100,0,-1,0,0,100,100,-1,0,0,100,100,-1"
+fi
+fx_smooth_antialias.. $antialias,0,1,0,50,50
+if $addColors==1
+mul[-2,-1]
+n. 0,255
+fx_smooth_bilateral. 10,7,$nbBilatFin,0,0
+if $colorEffect==1
+fx_custom_transform. "i","if(i<64,0, sqrt((i-64)/(256-64))*256 )","i","i","i","i",0
+elif $colorEffect==2
+fx_LCE. 80,0.5,1,1,0,0
+elif $colorEffect==3
+remove_opacity.
+rgb2hsv. split. c =>. val =>.. sat =>... hue
++mul[val] [sat] =>. ref
+sqrt[ref]
++sub[ref] 1 =>. subRef
+sub[val] 1 *[val] [subRef] negate[val]
+sub[sat] 1 *[sat] [subRef] negate[sat]
+rm[ref] rm[subRef]
+append[-3--1] c
+hsv2rgb.
+fi
+if $flatColorEffect==1
+(255,0,0,0,0,0,0,0,0,0,0,64,128,192,255,255,255,255,255,255,255,255,255,192,128,64^255,0,0,64,128,192,255,255,255,255,255,255,255,255,255,192,128,64,0,0,0,0,0,0,0,0^255,0,255,255,255,255,255,192,128,64,0,0,0,0,0,0,0,0,0,64,128,192,255,255,255,255)
+remove_opacity..
+index.. [-1],0,1
+rm.
+fx_smooth_antialias. 15,0,1,0,50,50
+elif $flatColorEffect==2
+otsu. 256 n. 0,255
+fx_smooth_antialias. 15,0,1,0,50,50
+elif $flatColorEffect==3
+fx_posterize. 150,30,1,32,0,0,0,0,50,50
+fx_custom_transform. "i","if(i<64,0, sqrt((i-64)/(256-64))*256 )","i","i","i","i",0
+elif $flatColorEffect==4
+if s==4 split_opacity. rm. fi
++colormap. 8
+index.. [-1],0,1
+rm.
+rgb2hsl. split. c
+n. 0,1
+append c hsl2rgb
+fi
+remove_opacity.
+if $bw==1
+fx_curves_interactive. 7,0,1,"7","0,0,16,100,100,100,-1,0,0,100,0,-1,0,0,100,100,-1,0,0,100,100,-1"
+elif $bw==2
+fx_blackandwhite. 0.299,0,0.587,0,0.114,0,0,0,0,0,0,0,0,0,2,0,0,0,16,4,0,0,0,50,50
+threshold. 33% n 0,255
+fx_smooth_antialias. 100,0.5,5,0,50,50
+fx_smooth_antialias. 100,0.5,5,0,50,50
+elif $bw==3
+fx_blackandwhite. 0.299,0,0.587,0,0.114,0,0,0,0,0,0,0,0,0,2,0,0,0,16,4,0,0,0,50,50
+otsu 4
+n 0,255
+fi
+else
+remove[-1]
+fi
+if $reliefEffect==1
++fx_curves_interactive. 7,0,1,"7","0,0,16,100,100,100,-1,0,0,100,0,-1,0,0,100,100,-1,0,0,100,100,-1"
+l.
+b. 3
+gradient2rgb. 0 n. 0,255
+[-1]
+rgb2hsv[-2,-1] split[-2,-1] c
+l[-3--1] +[-3] {315} %[-3] 360 done
+l[-6--4] +[-3] {135} %[-3] 360 done
+l[-3--1] a c hsv2rgb s c done
+l[-6--4] a c hsv2rgb s c done
+rm[^-6,-3]
+negate..
+/ 2
++. 128
+blend grainmerge,1
+done
+to_rgb
+blend grainmerge,1
+elif $reliefEffect==2
+fx_frame. 0,100,0,100,0,0,255,255,255,255,2,0,0,0,255
+fx_custom_transform. "i","if(i<64,0, sqrt((i-64)/(256-64))*256 )","i","i","i","i",0
+fx_illuminate_shape2d. 0,0,0,0,0,255,1,1,4,0,0,3,1,1,4,10,75,30,40,40,80,0.2,1,0,0,-2,-2,2,0,0,0
+crop. 2,2,{w-4},{h-4}
+fi
+if $specialEffect==1
++blur. 12.5
+add[-2,-1] *. 0.8 add. 40
+cut. 0,255
+fx_smooth_antialias. 100,2,5,0,50,50
+fx_frame_fuzzy. 12,12,30,5,255,255,255,255
+jeje_clouds. 50,0.5
+elif $specialEffect==2
+fx_curves_interactive. 7,0,1,"7","0,0,100,100,-1,0,0,65,35,100,100,-1,0,0,50,50,100,100,-1,0,0,100,100,-1"
+fx_stripes_y. 4,0,0,0,50,50
+fx_simulate_grain. 0,1,0.2,100,0,0,0,0,0,0,0,0,0
+fx_dirty. 1,1,0,0,0,50,50
+elif $specialEffect==3
++fx_smooth_antialias. 100,0,5,0,50,50
+fx_smooth_antialias. 100,0,5,0,50,50
+fx_smooth_antialias. 100,0,5,0,50,50
+fx_hardsketchbw. 80,100,1,0.1,50,0,0,0,50,50
+fx_smooth_antialias. 100,0,5,0,50,50
+fx_smooth_antialias. 100,0,5,0,50,50
+otsu. 4 n. 0,255
+fx_smooth_antialias. 15,0,1,0,50,50
+fx_smooth_antialias. 50,50,2.5,0,50,50
+blur.. 10
+fx_smooth_bilateral.. 10,7,6,0,0
+mul[-2,-1] n. 0,255
+fi
+if $finalAntialias==1
+fx_smooth_antialias 50,50,2.5,0,50,50
+elif $finalAntialias==2
+fx_smooth_antialias. 15,0,1,0,50,50
+fx_smooth_antialias 50,50,2.5,0,50,50
+fi
+}
+cl_comic_preview :
+gui_split_preview "cl_comic $*",${-3--1}
+fx_cubism :
+repeat $1 { cubism ${2--1} }
+fx_cubism_preview :
+gui_split_preview "fx_cubism $*",${-3--1}
+fx_cutout :
+foreach {
+split_opacity l[0] {
+median {10-$3}
+quantize $1
++luminance. round. area. 0,1 med={ic} rm.
+inpaint_holes {$med*$2%},0,1
+if $4 n 0,255 fi
+}
+a c
+}
+fx_cutout_preview :
+gui_split_preview "fx_cutout $*",${-3--1}
+fx_diffusiontensors :
+foreach {
+wh={[w,h]}
++diffusiontensors ${5-8}
+r2dx. {max(1,w*$1%)}
+dt. {round(125/max(1,$1))},$2,{$3<3?$3:0},$4
+if $3==3
+remove_opacity.. r.. .,.,1,100%,3 blend[0] [1],shapeaverage0 dilate. {1+2*$4} a c
+else k. fi
+r. $wh,1,100%,2
+}
+fx_diffusiontensors_preview :
+gui_split_preview "fx_diffusiontensors $*",${-3--1}
+fx_doodle : skip "$*"
+foreach {
+b $2 n 0,255 structuretensors b $3
+100%,100%,1,1,100
+if $7 w. ${"fitscreen ."},"[G'MIC] Doodle" fi
+_stopflag=0
+eval "
+const dt = 0.5;
+nb_strokes = nb_consecutive_fails = 0;
+while (nb_consecutive_fails<500*$1%,
+run('+store. canvas');
+P0 = u([w,h] - 1);
+length = 0;
+repeat (2,dir,
+P = P0;
+oiP = iP = round(P);
+C = I(#0,P); E = eig([ C[0], C[1], C[1], C[2] ]); oV = V = (dir?1:-1)*E[4,2];
+while (E[0]>$4^2 && (i(iP)>$5 || oiP==iP),
+i(iP) = 0;
+oiP = iP;
+P+=dt*V;
+iP = round(P);
+C = I(#0,P,1); E = eig([ C[0], C[1], C[1], C[2] ]); V = E[4,2];
+dot(oV,V)<0?(V*=-1);
+oV = V;
+iP!=oiP?++length;
+);
+);
+length<$6?(run('rm. $canvas'); ++nb_consecutive_fails):(
+!(++nb_strokes%15)?run('distance. 0');
+nb_consecutive_fails = 0;
+$7 && !(nb_strokes%30)?(
+nb_consecutive_fails = run('if !{*} u inf else +neq. 0 r. {*,w,h},1,1,2 w. rm. u 0 fi')
+);
+)
+)"
+k. != 0 * 255
+}
+fx_dreamsmooth :
+m "MergeChoise : $""=_mode" MergeChoise "add","alpha","and","average","blue","burn","darken","difference","divide","dodge","exclusion","freeze","grainextract","grainmerge","green","hardlight","hardmix","hue","interpolation","lighten","lightness","linearburn","linearlight","luminance","multiply","negation","or","overlay","pinlight","red","reflect","saturation","screen","shapeaverage","softburn","softdodge","softlight","stamp","subtract","value","vividlight","xor","edges","error"
+to_color
+Iterations=$1
+Eqa=$2
+MergingOption=$3
+Opacity=$4
+ReverseOrder=$5
+Smoothness=$6
+Threads=$7
+Overlap=$8
+repeat $! l[$>] split_opacity l[0]
+repeat $Iterations
+IWidth={0,round(w/($<+1))}
+IHeight={0,round(h/($<+1))}
+if $>!=0
+r. $IWidth,$IHeight,1,3,5,1
+fi
++r[0] $IWidth,$IHeight,1,3,5,1
+fx_smooth_anisotropic. {430/$Iterations*($<+1)},0.4,0.5,0.6,2,0.8,30,2,0,0,1,0,$Threads,$Overlap,0
+fx_smooth_anisotropic. {600/$Iterations*($<+1)},0.4,1,0.6,4,0.8,15,5,0,1,1,0,$Threads,$Overlap,0
+if $>!=0
+if $3!=42
+blend[-1,-2] ${_mode{$MergingOption+1}},$Opacity,$ReverseOrder
+fi
+if $3==42
+blend_edges[-1,-2] $Opacity,$Smoothness,$ReverseOrder
+fi
+if $Eqa
+equalize. 256
+fi
+fi
+done
+k.
+done a c done done
+fx_dreamsmooth_preview :
+gui_split_preview "fx_dreamsmooth ${1--2}",$-1
+fx_ellipsionism :
+ellipsionism ${^0}
+fx_ellipsionism_preview :
+gui_split_preview "fx_ellipsionism $*",${-3--1}
+fx_feltpen :
+foreach { +fx_hardsketchbw ${1-5},0,0 blend hardlight erode_oct $6 }
+fx_feltpen_preview :
+gui_split_preview "fx_feltpen $*",${-3--1}
+gtutor_fpaint :
+repeat $!
+l[$>]
+hasalpha={s>3}
+if $hasalpha
+split_opacity.
+rv[-2,-1]
+fi
+lh={h}
++b. {$1/1.25}%
+if $4
++luminance.
+rgb2hsl..
+s.. c
+rm[-4,-2]
+quantize[-2,-1] {round(5+15*(1-$1))},1,1
+gradient_norm[-2,-1]
+n[-2,-1] 0,255
++[-2,-1]
+else
+quantize. {round(5+15*(1-$1))},1,1
+gradient_norm.
+n. 0,255
+fi
+threshold. {80-60*$2}%
+dilate_circ. 8
+thinning.
+dilate_circ. 3
++diffusiontensors. 0.1,0.85,0.3,{4+8*$1}
+if $2<1
+.
+r2dy[-3,-1] {$lh*(0.25+0.75*$2)},5
+repeat 2
+smooth... .,{400*(1-$2)}
+done
+rm.
+r.. ...,...,..,..,5,0
+fi
+eigen.
+s.. c
+fill_color... {1-0.15*$3}
+fill_color.. {0.15*$3}
+a[-3,-2] c
+eigen2tensor[-2,-1]
+98%,98%,1,1 noise. {20-10*$3},2 ==. 1
+r. ..,..,.,.,0,0,0.5,0.5,0.5,0.5
+to_rgb.
+*. [-4]
++ac[-4] "* 0.6","hsl_s"
+ac. "* 0.85","hsl_l"
+repeat 2
+smooth[-2,-1] ...,{100*(6-5*$2)}
+done
++luminance..
+n. 0,0.7
++n[-5] 0,1
++[-2,-1]
+n. 0,1
+blend[-3,-2] add
+gradient.
+a[-2,-1] c
+100%,100%,1,2
+if $6
+fill_color. {cos(2*((180+$5)%360)*pi/360)},{sin(2*((180+$5)%360)*pi/360)}
++*[-2,-1]
+compose_channels. +
+cut. {ia},{iM}
+n. 0,1
+to_rgb.
+*. [-7]
+negate.
+n. 0,255
+blend[-4,-1] multiply,$6
+fi
+if $7
+fill_color. {cos(2*$5*pi/360)},{sin(2*$5*pi/360)}
++*[-2,-1]
+compose_channels. +
+cut. {ia},{iM}
+n. 0,1
+to_rgb.
+*. [-7]
+n. 0,255
+blend[-4,-1] screen,$7
+fi
+if $8
+fill_color. {cos(2*$5*pi/360)},{sin(2*$5*pi/360)}
++*[-2,-1]
+compose_channels. +
+cut. {ia},{iM}
+to_rgb.
+n. 0,255
+blend[-4,-1] screen,$8
+fi
+rm[-1,-2,-4,-5,-6]
+ac. "apply_curve 1,0,32,127,180,255,255","hsl_s"
+apply_gamma. 1.4
+if $hasalpha
+rv[-2,-1]
+a[-2,-1] c
+fi
+done
+done
+gtutor_fpaint_preview :
+gui_split_preview "gtutor_fpaint ${^0}",$-1
+fx_ghost :
+foreach {
+split_opacity l[0] {
+diffusiontensors. 1,1,$2,$3 eigen. compose_channels.. + sqrt.. n.. 1,100 ^.. $4 n.. 0,$1
+100%,100%
+eval.. "*
+ca = i(x,y,0,0);
+sa = i(x,y,0,1);
+N = i(#-3,x,y);
+x0 = x + N*ca;
+y0 = y + N*sa;
+x1 = x - N*ca;
+y1 = y - N*sa;
+polygon(#-1,2,x0,y0,x1,y1,-1,1);
+I"
+k. normalize_local $5,$6
+n 0,255 if $7 negate fi
+}
+a c
+}
+fx_ghost_preview :
+gui_split_preview "fx_ghost $*",${-3--1}
+fx_graphic_boost4 :
+repeat $! l[$>] split_opacity l[0]
+fx_unsharp 1,$1,30,3,0,$2,0.40,1,0,0,0
+if $3==1 break fi
++fx_pencilbw $4,$5,0,0,0
+if $6==1 k. break fi
+if $7==1 fx_smooth_anisotropic[1] 60,$8,$9,$10,1.1,0.8,30,2,0,1,1,0 fi
+if $11==1 k. break fi
+if $12==1 reverse fi
+if $13==0 fx_compose_hardlight $14,0
+elif $13==1 fx_compose_grainmerge $14,0
+elif $13==2 fx_compose_multiply $14,0
+elif $13==3 fx_compose_colorburn $14,0
+elif $13==4 fx_compose_overlay $14,0
+elif $13==5 fx_compose_value $14,1
+elif $13==6 fx_compose_darken $14,0
+elif $13==7 fx_compose_lightness $14,1
+elif $13==8 fx_compose_luminance $14,1
+elif $13==9 fx_compose_colordoping $14,0
+elif $13==10 fx_compose_comix_color $14,0,$15
+elif $13==11 fx_compose_graphicolor $14,0,$15
+elif $13==12 fx_compose_graphixcolor $14,0
+elif $13==13 fx_compose_vividedges $14,0.50,0,$15
+elif $13==14 fx_compose_darkedges $14,0.50,0,$15
+elif $13==15 fx_compose_vividscreen $14,0,$15
+elif $13==16 fx_compose_darkscreen $14,0,$15
+elif $13==17 fx_compose_interpolation $14,0 fi
+if $16==1 fx_smooth_anisotropic 60,$17,$18,$19,1.1,0.8,30,2,0,1,1,0 fi
+done a c done done
+fx_graphic_novelfxl :
+repeat $! l[$>] split_opacity l[0]
+if $1==0 fx_normalize_local $2,$3,$4,$5,1,3,0 fi
+if $6==0 +fx_pencilbw $7,$8,0,0,0 fi
+if $9==1 k. break fi
+if $10==1 fx_smooth_anisotropic. 60,$11,$12,$13,1.1,0.8,30,2,0,1,1,0 fi
+if $14==1 k. break fi
+if $15==1 reverse fi
+if $16==0 fx_compose_overlay $17,0
+elif $16==1 fx_compose_multiply $17,0
+elif $16==2 fx_compose_softlight $17,0
+elif $16==3 fx_compose_colorburn $17,0
+elif $16==4 fx_compose_darken $17,0
+elif $16==5 fx_compose_stamp $17,0
+elif $16==6 fx_compose_hardlight $17,0
+elif $16==7 fx_compose_value $17,1
+elif $16==8 fx_compose_grainmerge $17,0
+elif $16==9 fx_compose_freeze $17,0
+elif $16==10 fx_compose_lightness $17,1
+elif $16==11 fx_compose_luminance $17,1
+elif $16==12 fx_compose_colordoping $17,0
+elif $16==13 fx_compose_comix_color $17,0,$18
+elif $16==14 fx_compose_graphicolor $17,0,$18
+elif $16==15 fx_compose_graphixcolor $17,0
+elif $16==16 fx_compose_vividedges $17,0.50,0,$18
+elif $16==17 fx_compose_darkedges $17,0.50,0,$18
+elif $16==18 fx_compose_vividscreen $17,0,$18
+elif $16==19 fx_compose_darkscreen $17,0,$18
+elif $16==20 fx_compose_interpolation $17,0 fi
+if $19==1 fx_smooth_anisotropic 60,$20,$21,$22,1.1,0.8,30,2,0,1,1,0 fi
+done a c done done
+fx_hardsketchbw :
+b $3
+if $7==4 foreach { +hardsketchbw $1,$2,$4,$5,$6 blend hardlight } return fi
+hardsketchbw $1,$2,$4,$5,$6
+if $7&1 negate fi
+if $7==2 r 100%,100%,1,4 repeat $! { sh[$>] 3 *. -2 +. {2*255} c. 0,255 rm. }
+elif $7==3 r 100%,100%,1,4 repeat $! { sh[$>] 3 *. 2 c. 0,255 rm. }
+fi
+fx_hardsketchbw_preview :
+gui_split_preview "fx_hardsketchbw $*",${-3--1}
+fx_highlight_bloom :
+foreach {
+split_opacity l[0] {
++smooth $2,0.3,0.8,1,2
+-.. .
+amp=$3 do smooth. {min(50,$amp)},0.1,1,1,2 amp-=50 while $amp>0
++retinex. 16,lab,0,15 j.. .,0,0,0,0,{$4%} rm.
+ac. "normalize_local {$5%},5",lab_l
+*.. {$1%}
++ c 0,255
+}
+a c
+}
+fx_highlight_bloom_preview :
+gui_split_preview "fx_highlight_bloom $*",${-3--1}
+fx_poster_hope :
+foreach {
+split_opacity l[0] { apply_gamma {10^$1} poster_hope $2 } a c
+}
+fx_poster_hope_preview :
+gui_split_preview "fx_poster_hope $*",${-3--1}
+fx_houghsketchbw :
+b $1 n 0,255
+if $6==4 foreach { +houghsketchbw ${2-5} blend hardlight } return fi
+houghsketchbw ${2-5}
+if $6&1 negate fi
+if $6==2 r 100%,100%,1,4 repeat $! { sh[$>] 3 *. -2 +. {2*255} c. 0,255 rm. }
+elif $6==3 r 100%,100%,1,4 repeat $! { sh[$>] 3 *. 2 c. 0,255 rm. }
+fi
+fx_houghsketchbw_preview :
+gui_split_preview "fx_houghsketchbw $*",${-3--1}
+fx_illustration_look :
+repeat $! l[$>] nm=${-gui_layer_name}
+to_rgb => base_layer
++fx_smooth_anisotropic[base_layer] 20,0.16,0.63,0.6,2.35,0.8,30,2,0,1,1,0,1,24 => blur_layer
++blend[base_layer,blur_layer] grainextract => detail_layer
+if $2 rgb2hsv[blur_layer] sh[blur_layer] 1 -. {$2%} c. 0,1 rm. hsv2rgb[blur_layer] fi
+if $3 +fx_mix_rgb[blur_layer] 1,10,0,1,0,0,0.7,-10,0,0,10,0 j[blur_layer] .,0,0,0,0,{$3%} rm. fi
+if $1 +fx_map_tones_fast[blur_layer] 20,0.2,11,0 j[blur_layer] .,0,0,0,0,{$1%} rm. fi
+simplelocalcontrast_p[blur_layer] 25,1,50,1,1,1,1,1,1,1,1,1
++fx_graphic_novelfxl[blur_layer] 1,2,6,5,20,0,1.02857,200,0,1,0.0761905,0.0857143,0,0,0,2,1,1,1,1.25714,0.371429,1.04762 => graphicnovel_layer
+mv[detail_layer] 0 =>[detail_layer] "name("$nm" [Detail]),mode(grainmerge),opacity(100)"
+mv[graphicnovel_layer] 1 =>[graphicnovel_layer] "name("$nm" [Paint]),mode(normal),opacity(50)"
+mv[blur_layer] 2 =>[blur_layer] "name("$nm" [Base]),mode(normal),opacity(100)"
+rm[base_layer]
+if !$4 gui_merge_layers => "name("$nm"),mode(normal),opacity(100)" fi
+done done
+fx_illustration_look_preview :
+gui_split_preview "fx_illustration_look ${1-3},0",$-1
+jl_hsv_to_rgb :
+({360*$1}^$2^$3) hsv2rgb. u {^} rm.
+levels :
+_inplow={int($1)}
+_inphigh={int($2)}
+_gamma=$3
+_outlow={int($4)}
+_outhigh={int($5)}
+_tmp2=""
+if $_gamma!=1
+_tmp2="-apply_gamma "$_gamma
+apply_channels $_tmp2,$6,0
+fi
+_curve1="0,"
+if $_inplow>0
+_tmp1="0,"
+_curve1=$_curve1$_tmp1$_outlow","
+fi
+_curve1=$_curve1$_inplow","$_outlow","$_inphigh","$_outhigh
+if $_inphigh<255
+_curve1=$_curve1",255,"$_outhigh
+fi
+if ['$_curve1']!='0,0,0,255,255'
+_tmp2="-apply_curve "$_curve1
+apply_channels $_tmp2,$6,0
+fi
+fx_equalize_s :
+repeat $! l[$>] split_opacity l[0] to_rgb
+rgb2hsv sh 1,1 *. $1 +. $2 c. 0,1 rm. hsv2rgb
+done a c done done
+fx_kuwahara :
+ac "repeat $1 { kuwahara $2 }",$3,$4
+fx_kuwahara_preview :
+gui_split_preview "fx_kuwahara $*",${-3--1}
+cl_lineart:
+locContEnh=$1
+simplif=$2
+nbBilatBord=$3
+lineThick=$4
+forceTrait=$5
+antialias=$6
+addGrays=$7
+augmLum=$8
+nbBilatFin=$9
+type=$10
+finalAntialias=$11
+penDrawing=$12
+effect=$13
+foreach {
+if $type==2
+locContEnh=1
+augmLum=40
+fi
+if $penDrawing==2
+fx_smooth_anisotropic. 60,0.9,0.64,3.1,1.1,0.8,30,2,0,1,1,0,0,24
+fi
+fx_LCE. 80,{$locContEnh/2},1,1,0,0
+if $simplif==1
+fx_smooth_antialias. 100,0,5,0,50,50
+fi
+curv="0,0,"{50-$augmLum}","{50+$augmLum}",100,100,-1,0,0,30,70,100,100,-1,0,0,100,100,-1,0,0,100,100,-1"
++fx_curves_interactive. 7,0,1,"7",$curv
+fx_smooth_nlmeans.. 4,4,10,5,0,0,24,0
+fx_smooth_bilateral.. 10,7,$nbBilatBord,0,0
++cut.. 0,255
+reverse[-2,-1]
+blur[-3] {$lineThick}
+sub[-3,-2]
+fill.. "M = max(R,G,B); [M, M, M]"
+cut.. 0,255 n.. 0,255
+negate..
+threshold.. {$forceTrait+80}%
+n.. 0,255
+fx_smooth_antialias.. $antialias,0,1,0,50,50
+if $addGrays==1
+mul[-2,-1]
+n. 0,255
+fx_smooth_bilateral. 10,7,$nbBilatFin,0,0
+if $type==0
+fx_curves_interactive. 7,0,1,"7","0,0,60,0,80,100,100,100,-1,0,0,100,0,-1,0,0,100,100,-1,0,0,100,100,-1"
+elif $type==1
+remove_opacity.
++colormap. 8
+index.. [-1],0,1
+rm.
+rgb2hsl. split. c
+n. 0,1
+append c hsl2rgb
+fx_blackandwhite. 0.299,0,0.587,0,0.114,0,0,0,0,0,0,0,0,0,2,0,0,0,16,4,0,0,0,50,50
+fx_curves_interactive. 7,0,1,"7","0,0,20,80,100,100,-1,0,0,100,100,-1,0,0,100,100,-1,0,0,100,100,-1"
+elif $type>=2
+fx_blackandwhite. 0.299,0,0.587,0,0.114,0,0,0,0,0,0,0,0,0,2,0,0,0,16,4,0,0,0,50,50
+otsu 4
+n 0,255
+fi
+else
+remove[-1]
+fi
+if $finalAntialias==1
+fx_smooth_antialias. 15,0,1,0,50,50
+elif $finalAntialias==2
+fx_smooth_antialias. 15,0,1,0,50,50
+fx_smooth_antialias. 50,50,2.5,0,50,50
+elif $finalAntialias==3
+fx_smooth_antialias. 100,0.5,5,0,50,50
+fx_smooth_antialias. 100,0.5,5,0,50,50
+fi
+if $penDrawing>=1
+fx_pen_drawing. 10,0,50,50
+n 0,255
+otsu 4
+n 0,255
+fx_smooth_antialias. 15,0,1,0,50,50
+fx_smooth_antialias. 50,50,2.5,0,50,50
+fi
+if $effect==1
+fx_spread. 2,2,0,0,0,50,50
+elif $effect==2
++fx_curves_interactive. 7,0,1,"7","0,0,16,100,100,100,-1,0,0,100,0,-1,0,0,100,100,-1,0,0,100,100,-1"
+l.
+b. 3
+gradient2rgb. 0 n. 0,255
+[-1]
+rgb2hsv[-2,-1] split[-2,-1] c
+l[-3--1] +[-3] {315} %[-3] 360 done
+l[-6--4] +[-3] {135} %[-3] 360 done
+l[-3--1] a c hsv2rgb s c done
+l[-6--4] a c hsv2rgb s c done
+rm[^-6,-3]
+negate..
+/ 2
++. 128
+blend grainmerge,1
+done
+to_rgb
+blend grainmerge,1
+fi
+}
+cl_lineart_preview:
+gui_split_preview "cl_lineart $*",${-3--1}
+fx_linify :
+foreach {
+if $7 _debug=1 w ${-fitscreen\ {[w,h]}},0,"[Preview] G'MIC: Linify" fi
+linify $1,$2,$3%,$4,$5,$6
+}
+fx_linify_preview :
+gui_split_preview "fx_linify ${1-6},0",${-3--1}
+fx_lylejk_painting :
+foreach {
+nm={n}
++l { repeat $1 { b 0.75 unsharp 0.75,10.49 c 0,255 mv. 0 } }
+smooth. 300,0.26,1,0,7
+. rv[-3--1]
+blend[-2,-1] lighten,0.5
+blend[-2,-1] grainmerge,1
+fx_kuwahara. $2,$3,0,0
+texturize_canvas. $4,4 => $nm
+}
+fx_lylejk_painting_preview :
+gui_split_preview "fx_lylejk_painting $*",${-3--1}
+fx_Squiggly :
+SpreadNoiseAmount=$1
+SEgThrshld=$2
+SegSmooth=$3
+GNSmooth=$4
+GNLin=$5
+InvertLuminance=$6
+EnhanceColors=$7
+ToggleOrg=$8
+Chroma=$9
+ToneTr=$10
+ToneGm=$11
+OrgMergeCh=$12
+OrgOpacity=$13
+OrgReverseorder=$14
+repeat $! l[$>]
+if $ToggleOrg==1
+OrgMergeCh=30
+OrgReverseorder=1
+fi
+to_rgb
++fx_spread[0] $SpreadNoiseAmount,$SpreadNoiseAmount,0,0
+fx_segment_watershed[1] $SEgThrshld,$SegSmooth,0,0
++fx_gradient_norm[1] $GNSmooth,$GNLin,0,100,0,0
++blend[2,1] multiply
+if $InvertLuminance==1
+rgb2lab.
+s. c
+negate...
+a[-3--1] c
+lab2rgb.
+fi
+if $EnhanceColors==1
+fx_mix_ycbcr[3] 1,0,0,$Chroma,0,0,$Chroma,0,0,0,2,0
+fx_map_tones[0] $ToneTr,$ToneGm,0.1,30,0,0
+fx_blend[0,3] $OrgMergeCh,0,$OrgOpacity,0,0
+k[0]
+fi
+k.
+done done
+fx_Squiggly_Preview :
+gui_split_preview "fx_Squiggly ${1--2}",$-1
+fx_MorphoPaint :
+to_rgb[0]
++fx_morpho[0] $1,$2,0,2,0,$3,0
++fx_apply_curve[1] $4,50,$5,200,$6,-1,128,-1,128,-1,128,255,1,3,0,0,0
+fx_spread[1] $7,$7,0,0
+fx_gaussian_blur[2] $8,0,0,1,0,0,0
+fx_segment_watershed[1] $9,$10,0,0
++fx_painting[0] $11,$12,1.5,$13,1,0
+rm[0]
+rv[0,2]
+rv[1,2]
+if $14
+if $19==0 MorphoStrength={0} elif $19==1 MorphoStrength={$20} fi
+*[2] {$MorphoStrength/3}
+if $15==0 StrokeStrength={0} elif $15==1 StrokeStrength={$16} fi
+*[0] {$StrokeStrength/3}
+if $17==0 SegmentStrength={0} elif $17==1 SegmentStrength={$18} fi
+*[1] {$SegmentStrength/3}
++[1] [2]
++[1] [0]
+if $21 n[1] 0,255 fi
+rm[0,2]
+fi
+fx_MorphoPaint_preview :
+gui_split_preview "fx_MorphoPaint ${1--2}",$-1
+fx_paint_with_brush :
+predefined_style,previous_style,painting_order,nb_iterations,precision,details_threshold,background_threshold,sharpness,anisotropy,smoothness,coherence,twist_angle,twist_strength,init_canvas,brush_diameter_details,stroke_length_details,hue_randomness_details,saturation_randomness_details,value_randomness_details,opacity_details,brush_diameter_background,stroke_length_background,hue_randomness_background,saturation_randomness_background,value_randomness_background,opacity_background,brush_diameter_dynamics,stroke_length_dynamics,hue_randomness_dynamics,saturation_randomness_dynamics,value_randomness_dynamics,opacity_dynamics,spatial_step,angular_step,preview_progression,preview_type,preview_splitx,preview_splity=${1-38}
+style0=1,16,50,100,100,10,80,0.5,3,0,0,6,2,10,0,0,0,60,20,1,0,0,0,30,15,15,15,15,15,15,1,45
+style1=1,16,4,100,100,1,30,0.5,3,0,0,2,3,1,0,0,0,80,10,1,0,0,0,30,8,15,15,15,15,15,1,45
+style2=2,16,30,100,20,10,100,0.5,3,45,0,4,4,10,80,0,0,60,20,1,0,0,0,30,10,15,15,15,15,15,1,45
+style3=1,16,6.6,100,100,0,0,1.7,3,0,0,2,3,1,0,0,50,80,30,1,0,0,50,20,15,15,15,15,15,15,1,45
+style4=1,16,50,100,80,5,80,0.5,1.5,45,0,4,1,20,0,0,0,10,5,1,0,0,0,30,15,15,15,15,15,15,1,45
+style5=0,16,10,100,100,10,80,0.5,3,135,50,6,1,20,0,0,0,90,3,10,0,0,0,30,0,15,15,15,15,15,1,45
+style6=1,16,30,100,100,0,95,0.5,8,-1,-1,2,2,30,0,0,0,100,20,1,0,0,0,30,0,0,0,0,0,0,1,45
+style7=1,16,50,100,100,10,80,0.5,3,0,0,6,1,10,0,0,0,6,20,1,0,0,0,100,17.34,15,15,15,15,20,1,45
+if $predefined_style!=$previous_style" && "$previous_style>=0
+painting_order,nb_iterations,precision,details_threshold,background_threshold,sharpness,anisotropy,smoothness,coherence,twist_angle,twist_strength,init_canvas,brush_diameter_details,stroke_length_details,hue_randomness_details,saturation_randomness_details,value_randomness_details,opacity_details,brush_diameter_background,stroke_length_background,hue_randomness_background,saturation_randomness_background,value_randomness_background,opacity_background,brush_diameter_dynamics,stroke_length_dynamics,hue_randomness_dynamics,saturation_randomness_dynamics,value_randomness_dynamics,opacity_dynamics,spatial_step,angular_step=${style$predefined_style}
+fi
+foreach {
+to_color
++diffusiontensors {[$sharpness,$anisotropy]%},$smoothness,$coherence
+if $twist_strength>0
+if $twist_angle>=0
+f. "begin(Id = eye(2));
+T = [ i0,i1,i1,i2 ];
+eig = eig(T);
+const ang = $twist_angle°;
+U = lerp(eig[2,2],[ cos(ang),sin(ang) ],$twist_strength%);
+U/=max(1e-8,norm(U));
+UUt = mul(U,U,2);
+T = eig[0]*UUt + eig[1]*(Id - UUt);
+[ T[0],T[1],T[3] ]"
+else
+100%,100%,1,2 rand. -1,1 b. $coherence orientation.
+f.. "begin(Id = eye(2));
+T = [ i0,i1,i1,i2 ];
+eig = eig(T);
+U = lerp(eig[2,2],I(#-1),$twist_strength%);
+UUt = mul(U,U,2);
+T = eig[0]*UUt + eig[1]*(Id - UUt);
+[ T[0],T[1],T[3] ]"
+rm.
+fi
+elif $twist_strength<0
+if $twist_angle>=0
+f. "R = rot($twist_angle°);
+Rt = transpose(R,2);
+T = mul(mul(Rt,[ i0,i1,i1,i2 ],2),R,2);
+[ T[0],T[1],T[3] ]"
+else
+100%,100%,1,2 rand. -1,1 b. $coherence orientation.
+f.. "ang = atan2(i(#-1,x,y,0,1),i(#-1,x,y,0,0));
+R = rot(ang);
+Rt = transpose(R,2);
+T = mul(mul(Rt,[ i0,i1,i1,i2 ],2),R,2);
+[ T[0],T[1],T[3] ]"
+rm.
+fi
+fi
++gradient_norm.. 100%,100%,1,2,[x,y] a[-2,-1] c r. {wh},1,1,3,-1 sort. +,x
+r. {max(0.01,$precision)}%,1,1,3 z. {(100-$background_threshold)*$details_threshold%}%,$details_threshold%
+if $painting_order==0 100% rand. 0,100 rv[-2,-1] a[-2,-1] c sort. +,x channels. 1,100%
+elif $painting_order==2 mirror. x
+fi
+arg0 $init_canvas,"+f[0] 0","+f[0] 128","+f[0] 255","[0]","+b[0] 1%","+kuwahara[0] 10","+fx_vector_painting[0] 9"
+run ${}
+ind=0
+repeat inf { t=$>
+progress {$ind*100/w#2}
+100%,100%,1,{s#0+1}
+nb_strokes={max(1,w#2/$nb_iterations)}
+$nb_strokes,1,1,1,:${-math_lib}"
+begin(color_random = vector(#s#0));
+lambda(tau) = min(1,edge/(1e-8+tau));
+const brush_diameter_background = $brush_diameter_background;
+const brush_diameter_details = $brush_diameter_details;
+const brush_diameter_dynamics = $brush_diameter_dynamics;
+const stroke_length_background = $stroke_length_background;
+const stroke_length_details = $stroke_length_details;
+const stroke_length_dynamics = $stroke_length_dynamics;
+const opacity_background = 255*$opacity_background%;
+const opacity_details = 255*$opacity_details%;
+const opacity_dynamics = $opacity_dynamics;
+const hue_randomness_background = $hue_randomness_background%;
+const hue_randomness_details = $hue_randomness_details%;
+const hue_randomness_dynamics = $hue_randomness_dynamics;
+const saturation_randomness_background = $saturation_randomness_background%;
+const saturation_randomness_details = $saturation_randomness_details%;
+const saturation_randomness_dynamics = $saturation_randomness_dynamics;
+const value_randomness_background = $value_randomness_background%;
+const value_randomness_details = $value_randomness_details%;
+const value_randomness_dynamics = $value_randomness_dynamics;
+const spatial_step = max($spatial_step,0.1);
+const angular_step = max($angular_step,1);
+stroke = $ind + x;
+stroke=w#2 break fi
+}
+k.
+}
+if $predefined_style!=$previous_style
+u "{"$predefined_style"}{"$predefined_style"}""{"$painting_order"}{"$nb_iterations"}{"$precision"}{"$details_threshold"}{"$background_threshold"}""{"$sharpness"}{"$anisotropy"}{"$smoothness"}{"$coherence"}{"$twist_angle"}{"$twist_strength"}{"$init_canvas"}""{"$brush_diameter_details"}{"$stroke_length_details"}""{"$hue_randomness_details"}{"$saturation_randomness_details"}{"$value_randomness_details"}{"$opacity_details"}""{"$brush_diameter_background"}{"$stroke_length_background"}""{"$hue_randomness_background"}{"$saturation_randomness_background"}{"$value_randomness_background"}""{"$opacity_background"}""{"$brush_diameter_dynamics"}{"$stroke_length_dynamics"}""{"$hue_randomness_dynamics"}{"$saturation_randomness_dynamics"}{"$value_randomness_dynamics"}""{"$opacity_dynamics"}""{"$spatial_step"}{"$angular_step"}{"$preview_progression"}{"$preview_type"}{"$preview_splitx,$preview_splity"}"
+fi
+fx_paint_with_brush_preview :
+_is_preview=1
+gui_split_preview "fx_paint_with_brush $*",${-3--1}
+fx_painting : skip ${4=0},${5=0}
+foreach {
+to_colormode {max(3,s)} split_opacity rv
+repeat $1 { fx_normalize_local. 10,6,5,20,1,11 }
+fx_smooth_anisotropic. {100*$2},0.2,1,$2,{2*$2},0.8,90,2,0,1,1,2,1,16
+fx_mix_lab. 1,0,0,$3,0,0.5,$3,0,0.5,0,2,0
+if $5 fx_segment_watershed. 10,1,0 fi
+smooth. $4,0,1,1,1
+rv a c
+}
+fx_painting_preview :
+gui_split_preview "fx_painting $*",${-3--1}
+fx_pastell :
+MasterOpacity=$1
+BgTextured=$2
+ReverseEffect=$3
+RAmplitude=$4
+RThickness=$5
+RSharpness=$6
+ROrientations=$7
+ROffset=$8
+RColormode=$9
+GSmoothness=$10
+GLinearity=$11
+GNegativeColors=$12
+ActivateShakes=$13
+RiAmplitude=$14
+RiSize=$15
+ActivateLizards=$16
+WAmplitude=$17
+WSmoothness=$18
+ActivatePink=$19
+RDeform=$20
+RChannels=0
+GMinThreshold=0
+GMaxThreshold=100
+RiShape=3
+RiAngle=135
+if $ActivatePink==1 deform[0] $RDeform fi
++fx_rodilius[0] $RAmplitude,$RThickness,$RSharpness,$ROrientations,$ROffset,0,$RColormode,$RChannels,0
++fx_gradient_norm[0] $GSmoothness,$GLinearity,$GMinThreshold,$GMaxThreshold,$GNegativeColors,0
+fx_smooth_bilateral[0] 15,10,3,3,0
+if $ActivateLizards==1 water[0,2] $WAmplitude,$WSmoothness fi
+if $ActivateShakes==1 ripple[0,2] $RiAmplitude,$RiSize,$RiShape,$RiAngle,0 fi
+if $ReverseEffect==1 rv[0,2] fi
++blend[0,2] divide,1,0
+rv[1,3]
+blend[1,3] value,1,0
+if $BgTextured==1 fx_ellipsionism[0] 20,2,10,0.5,1,1,0 fi
+blend[0,1] alpha,$MasterOpacity,0
+k[0]
+fx_pastell_preview :
+gui_split_preview "fx_pastell ${1--2}",$-1
+fx_pen_drawing :
+drawing $1
+fx_pen_drawing_preview :
+gui_split_preview "fx_pen_drawing $*",${-3--1}
+fx_tk_photoillustration :
+repeat $! l[$>]
+if $26==1 scdo=50 scup=200 fi
+if $26==2 scdo=25 scup=400 fi
+if $26!=0 r $scdo%,$scdo% else fi
+if $21==0
+[^] +negate[1] [0] +negate[0]
+fx_gaussian_blur[2] {{{100-$18}/5}+0.5},0,0,1,0,0,0 fx_compose_dodge[1,2] 1
+if $23==1 fx_gaussian_blur[1] {{{100-$18}/10}+0.5},0,0,1,0,0,0 fi
+fx_gaussian_blur[3] {{{{{100-$18}/5}+1}*10}+10},0,0,1,0,0,0
+fx_compose_dodge[2,3] 1
+if $23==1 fx_gaussian_blur[2] {{{{100-$18}/10}+0.5}*3},0,0,1,0,0,0 fi
+reverse[1,2] fx_compose_multiply[1,2] {1-{$19/10}}
+tk_fx_channel_processing[1] {{1-$20}+0.1},1,0,0,0,0,100,256,0,0,0,2,7,0
+elif $21==1
++fx_laplacian $19,{99.99-$18},$18,1,1,0
+elif $21==2
++fx_gradient_norm $19,0.5,{99.99-$18},$18,1,0
+elif $21==3
++fx_highpass {-{$18-100.3}},{{10-$19}*0.7},0,1,0
+elif $21==4
++fx_pencilbw {100-$18},{$19*20},0,0,0
+elif $21==5
++fx_hardsketchbw {300+{{$18-50}*15}},{$19*10},$19,1,{50-{$18/2}},0,0,0
+elif $21==6
++fx_thin_edges $19,{{$18/5}-10},0,0
+elif $21==7
++fx_edges {$19/3.5},{95-$18},0,0
++fx_mix_hsv[0] 1,0,0,1,-1,0,1,0,0,0,2,0
+tk_fx_channel_processing[2] 1,1,0,{$19/10},4,{{$18-50}*2},100,256,0,0,0,2,7,0
+reverse[1,2] fx_compose_multiply[1,2] {0.5+{$20/2}}
+elif $21==8
++channels 2
+if $19<=5 fx_unsharp[1] 1,{2-{{$19*0.3}+0.5}},20,{5-$19},0.00,1.00,0.5,1,0,7,0
+else fx_gaussian_blur[1] {$19-5},0,0,1,0,0,0
+fi
+fi
+if $1!=3
+fi
+if $24==0
+if $1==0
+fx_map_tones[0] {$2/2.5},{1-{$2/2.5}},$2,{2+{$2*80}},3,0
+elif $1==1
+fx_map_tones[0] {$2/10},0.5,{10-{$2*2}},300,3,0
+elif $1==2
+fx_map_tones_fast[0] {$2*2},{$2/2.5},3,0
+elif $1==3
+fx_normalize_local[0] {$2*2},{1+{$2*25.2}},{$2*16},{$2*16},0,3,0
+elif $1==4
+fx_unsharp[0] 0,{{w+h}/100},0,$2,0,1,1,1,0,7,0
+elif $1==5
++negate[0]
+if $21!=9 reverse[1,2] fi
+fx_gaussian_blur[1] {{{w+h}/5}-{$2*{{w+h}/12.5}}},0,0,1,0,0,0
+to_gray[1] reverse[0,1] fx_compose_softlight[0,1] {$2/2.5}
+elif $1==6
+fx_tk_dri[0] {$2/2.5},{$2/5},{$2/2.5},{$2*2},{$2/2.5},1,1,0
+fi
+else
++to_rgba[0] +channels[0] 0
+if $21!=9 move[1] 4 fi
+negate[2]
+tk_fx_channel_processing[2] 1,1,2,0,0,0,100,256,0,0,0,2,7,0
+fx_gaussian_blur[2] {{w+h}/500},0,0,1,0,0,0
+to_gray[2]
+if $1==0
+fx_map_tones[1] {$2/2.5},{1-{$2/2.5}},$2,{2+{$2*80}},3,0
+elif $1==1
+fx_map_tones[1] {$2/10},0.5,{10-{$2*2}},300,3,0
+elif $1==2
+fx_map_tones_fast[1] {$2*2},{$2/2.5},3,0
+elif $1==3
+fx_normalize_local[1] {$2*2},{1+{$2*25.2}},{$2*16},{$2*16},0,3,0
+elif $1==4
+fx_unsharp[1] 0,100,0,$2,0,1,1,1,0,7,0
+elif $1==5
+negate[1] fx_gaussian_blur[1] {{{w+h}/5}-{$2*{{w+h}/12.5}}},0,0,1,0,0,0
+to_gray[1] to_rgba[1]
+elif $1==6
+fx_tk_dri[1] {$2/2.5},{$2/5},{$2/2.5},{$2*2},{$2/2.5},1,1,0 to_rgba[1]
+fi
+split[1] c
+if $21!=9 reverse[4,5] compose_multiply[4,5] append[-5,-4,-3,-2] c
+else reverse[3,4] compose_multiply[3,4] append[-4,-3,-2,-1] c
+fi
+if $1!=3 compose_rgba[0,1]
+else reverse[0,1] fx_compose_softlight[0,1] {$2/2.5}
+fi
+fi
+tk_fx_channel_processing[0] 1,$11,$10,0,0,0,100,256,0,0,0,2,7,0
+if $1==3
+fi
+if $3==0 fx_smooth_anisotropic[0] {$5*100},{$4*2},$4,$5,$5,0.80,30.00,2.0,0,1,1,0,1,0
+elif $3==1 fx_smooth_bilateral[0] {100-{$4*100}},{$5*25},1,0,0
+elif $3==2 fx_gaussian_blur[0] {$5*10},0,0,1,8,0,0
+elif $3==3 fx_segment_watershed[0] {$4*5},{$5/2},0,0
+elif $3==4 fx_morpho[0] 3,{$5*2+2},0,2,0,1,0
+elif $3==5 fx_smooth_selective[0] {$5*4},{$4*2},10,10,0,1,0
+elif $3==6 fx_smooth_haar[0] {10-{$4*10}},{round($5*5,1)},0,0,1,0
+elif $3==7 to_rgb[0] fx_kuwahara[0] {6-{$4*5}},{1+{$5*2.9}},0,0
+fi
+fx_mix_lab[0] 1,0,0,$17,$15,0,$17,$16,0,0,2,0
+if $25==0 fx_unsharp[0] 1,$6,20,$7,0.00,1.00,0.5,1,0,7,0
+else
++to_rgba[0] +fx_edges[0] $6,{30-{$7*5}},1,0
+if $21!=9 move[1] 4 fi
+fx_unsharp[1] 1,$6,20,$7,0.00,1.00,0.5,1,0,7,0
+fx_gaussian_blur[2] {{w+h}/500},0,0,1,0,0,0
+to_gray[2]
+split[1] c
+if $21!=9 reverse[4,5] compose_multiply[4,5] append[-5,-4,-3,-2] c
+else reverse[3,4] compose_multiply[3,4] append[-4,-3,-2,-1] c
+fi
+compose_rgba[0,1]
+fi
+if $22==0
+if $21==3 reverse fx_compose_overlay $20
+elif $21==8 reverse fx_compose_hardlight $20
+elif $21!=9 reverse fx_compose_multiply $20
+fi
+fi
+if $8==1
+fx_glow[0] $9,0,0
+elif $8==2
++fx_highpass[0] {$9*3},2,1,0,0
+if $22==1" && "$21!=9 reverse[1,2] fi
+reverse[0,1] fx_compose_overlay[0,1] {$9/40}
+elif $8==3 [0] [0]
+if $22==1" && "$21!=9 reverse[1,3] fi
+fx_compose_screen[1,2] 1 fx_gaussian_blur[1] {$9*3},0,0,1,0,0,0
+reverse[0,1] fx_compose_softlight[0,1] {$9/20}
+elif $8==4
+fx_smooth_anisotropic[0] 0,1.5,0.3,{$9/4},1.10,0.80,30.00,2.0,0,1,1,0,1,0
+elif $8==5
++fx_mix_hsv[0] 1,0,0,1,-1,0,1,0,0,0,2,0
+if $22==1" && "$21!=9 reverse[1,2] fi
+tk_fx_channel_processing[1] 1,1,0,0,4,0,{100-{$9*2.5}},256,0,1,0,2,0,0
+fx_gaussian_blur[1] $9,0,0,1,0,0,0
+tk_fx_channel_processing[1] 1,1,0,0,4,0,{50-{$9*2}},256,0,1,0,2,0,0
+tk_fx_replace_color[1] 1,0,0,0,0,255,0,0,0,0
+fx_gaussian_blur[1] {$9*2},0,0,1,0,0,0
+reverse[0,1] fx_compose_softlight[0,1] {0.25+{$9/150}}
+elif $8==6
+fx_smooth_anisotropic[0] 60,0.16,{{$9/50}+0.6},{{$9/9}+0.6},2.35,0.8,30,2,0,1,1,0,1
+fi
+if $26!=0 r $scup%,$scup% fi
+done done
+fx_tk_photoillustration_preview :
+gui_split_preview "fx_tk_photoillustration ${1--2}",$-1
+fx_polygonize_delaunay :
+foreach {
+to_rgba wh={[w,h]} if $11 r 150%,150%,1,100%,3 fi
+mM={[im,iM]} b $4 n $mM
++to_rgb. gradient_norm. ge. $2
+f. "!x || !y || x==w-1 || y==h-1?(u^0.25<$3%):(u^0.25<$1%?i:0)"
+{is+1},1,1,2 f.. ">begin(p = 0); i?(I[#-1,++p] = [x,y];p):0"
+delaunay.. 0
+if $5==4
++f[0] 0 f... "*i?(
+p = I(#1); P0 = I[#2,p[0]]; P1 = I[#2,p[1]]; P2 = I[#2,p[2]];
+W = solve([P0[0],P1[0],P2[0],P0[1],P1[1],P2[1],1,1,1],[x,y,1]);
+I(#-1) = cut(W[0]*I(#0,P0) + W[1]*I(#0,P1) + W[2]*I(#0,P2),0,255);
+);I"
+elif $5==3
++f[0] 0 f... "*i?(
+p = I(#1); P0 = I[#2,p[0]]; P1 = I[#2,p[1]]; P2 = I[#2,p[2]];
+I(#-1) = (I(#0,P0) + I(#0,P1) + I(#0,P2))/3;
+);I"
+elif $5==2
++norm[1] label_fg. 0 {iM+1},1,1,3 rand. 0,255 to_rgba. point. 0 map.. . rm.
+else
++norm[1] !=. 0 *. 255 channels. -3,0
+if $5 sh. 0,2 f. 255 rm. fi
+fi
+rm[0,2]
+if $6
+norm[0] f[0] "i!=j(1) || i!=j(0,1)"
++fc. ${7-10} j.. .,0,0,0,0,{$6%},... rm.
+fi
+k.
+if $11 r $wh,1,100%,2 fi
+}
+fx_polygonize_delaunay_preview :
+gui_split_preview "fx_polygonize_delaunay $*",${-3--1}
+fx_polygonize :
+polygonize $1,$2,{$3^2},$4,$5
+if $9 foreach {
++norm g. xy,1 !=[-2,-1] 0 -|[-2,-1] r. 100%,100%,1,4
+replace_color. 0,0,1,1,1,1,$6,$7,$8,$9
+blend alpha
+} fi
+fx_polygonize_preview :
+gui_split_preview "fx_polygonize $*",${-3--1}
+fx_poster_edges :
+if $1 bilateral 10,$1 fi
+poster_edges ${2-7}
+fx_poster_edges_preview :
+gui_split_preview "fx_poster_edges $*",${-3--1}
+fx_posterize :
+foreach {
+split_opacity l[0] {
+. amp=$1 do smooth. {min(50,$amp)},{$2%},1,$3,{2*$3} amp-=50 while $amp>0
+bilateral.. .,5,10 rm.
+srgb2rgb +colormap $4,0 rgb2srgb
+index.. .,0,0
+if $5 +area.. 0,0 <. $5 inpaint... .,0,3 rm. fi
+map.. . rm.
+if $6
++norm (0,1,0;1,1,1;0,1,0) +dilate.. . rm.. -[-2,-1] !=. 0 100%,100%,1,{0,s} j... .,0,0,0,0,{$6%},.. rm[-2,-1]
+fi
+if $7 n 0,255 fi
+}
+a c
+}
+fx_posterize_preview :
+gui_split_preview "fx_posterize $*",${-3--1}
+fx_pdithered :
++apply_gamma. $1 - 128 * $2 + 128 + $3 b. $4 c. 0,255 ditheredbw.
+quantize.. $5 to_rgb blur_xy.. $6,$6
+if $7==0 fx_compose_colordoping $8,0
+elif $7==1 fx_compose_darken $8,0
+elif $7==2 fx_compose_softlight $8,0
+elif $7==3 fx_compose_grainmerge $8,0
+elif $7==4 fx_compose_multiply $8,1
+elif $7==5 fx_compose_value $8,1 fi
+fx_pdithered_preview :
+gui_split_preview "fx_pdithered ${1--2}",$-1
+fx_quadtree :
+mode,precision,homogeneity,outline,radius1,radius2,anisotropy,only_leafs=${1-8}
+m "_qt : sh 3 u {w>1&&h>1?iv*(w*h)^"$homogeneity":-0.1} k[0]"
+foreach {
+to_rgb
+keep_only_leafs={$mode!=2" || "$only_leafs}
++norm. a c
+_qt ({d=max(w,h);[0,0,d-1,d-1]},0,${})
+repeat $precision {
++columns. 100% n={yM} rm.
+x0,y0,x1,y1,level={crop(0,$n,5,1)}
+xc={round(($x1+$x0)/2)} yc={round(($y1+$y0)/2)}
+xc1,yc1={[$xc,$yc]-1}
+level1={$level+1}
+B0=$x0,$y0,$xc1,$yc1 +crop[0] $B0,3 _qt. B0.=,$level1,${} rm.
+B1=$xc,$y0,$x1,$yc1 +crop[0] $B1,3 _qt. B1.=,$level1,${} rm.
+B2=$x0,$yc,$xc1,$y1 +crop[0] $B2,3 _qt. B2.=,$level1,${} rm.
+B3=$xc,$yc,$x1,$y1 +crop[0] $B3,3 _qt. B3.=,$level1,${} rm.
+if $keep_only_leafs
+sh. $n,$n,0,0 f. $B0 rm.
+($B1;$B2;$B3) a[-2,-1] y
+else
+=. -1,5,$n
+($B0;$B1;$B2;$B3) a[-2,-1] y
+else
+fi
+}
+shift. 2,0,0,0,2 sort. +,y levelmax={i(0,h-1)} shift. -2,0,0,0,2
+channels[0] 0,2 +structuretensors[0] a[0,-1] c
+r. {w+6},100%,1,1,0
+repeat h {
+x0,y0,x1,y1={crop(0,$>,4,1)}
++crop[0] $x0,$y0,$x1,$y1,3 r. 1,1,1,100%,2 y. x
+j.. .,{-2,w-6},$> rm.
+}
+permute. cyzx
+channels[0] 0,3 f[0] 0
+if $mode==0
+f. ">
+rectangle(ind,P0,P1,opacity,color) = (
+_P0 = P0;
+_P2 = P1;
+_P1 = [ _P2[0], _P0[1] ];
+_P3 = [ _P0[0], _P2[1] ];
+polygon(#ind,4,_P0,_P1,_P2,_P3,opacity,color);
+);
+begin(colo = [ 0,0,0,255 ]);
+P = I;
+Xpp = P[0,2];
+Xnn = P[2,2];
+col = [ P[6,3],255 ];
+if ("$outline"<=0,
+rectangle(#0,Xpp,Xnn,1,col);
+_(else),
+rectangle(#0,Xpp,Xnn,1,colo);
+rectangle(#0,Xpp + "$outline",Xnn - "$outline",1,col);
+);
+I"
+elif $mode==1
+f. ">
+P = I;
+Xpp = P[0,2];
+Xnn = P[2,2];
+Xnp = [ Xnn[0],Xpp[1] ];
+Xpn = [ Xpp[0],Xnn[1] ];
+col1 = [ P[6,3],255 ];
+col2 = [ P[6,3],64 ];
+T = [ P[9],P[10],P[10],P[11] ];
+eig = eig(T);
+angle = atan2(eig[5],eig[4])*180/pi;
+if ((angle>=0 && angle<90) || angle<-90,
+polygon(#0,3,Xpp,Xnp,Xnn,1,col1);
+polygon(#0,3,Xpp,Xnn,Xpn,1,col2);
+_(else),
+polygon(#0,3,Xnp,Xnn,Xpn,1,col1);
+polygon(#0,3,Xnp,Xpp,Xpn,1,col2)
+);
+I"
+else
+f. ">
+begin(colo = [ 0,0,0,255 ]);
+P = I;
+Xpp = P[0,2];
+Xnn = P[2,2];
+Xcc = (Xpp + Xnn)/2;
+R = (Xnn[0] - Xpp[0])/2;
+col = [ P[6,3],255 ];
+r = "$radius2"*R;
+R*="$radius1";
+T = [ P[9],P[10],P[10],P[11] ];
+eig = eig(T);
+anisotropy = (1 + eig[1])/(1 + eig[0]);
+r*=anisotropy^"$anisotropy";
+angle = atan2(eig[5],eig[4])*180/pi;
+if ("$outline">0, ellipse(#0,Xcc,R,r,angle°,1,colo));
+ellipse(#0,Xcc,R - "$outline",r - "$outline",angle°,1,col);
+I"
+if !$outline sh[0] 100% if !im solidify[0] 10% fi fi
+fi
+k[0]
+}
+um _qt
+fx_quadtree_preview :
+gui_split_preview "fx_quadtree $*",${-3--1}
+fx_rodilius :
+ac "rodilius ${1-5,7} repeat $6 { smooth 10,0,1,1,1,0.8,45 sharpen 30 } c 0,255",$8,$9
+fx_rodilius_preview :
+gui_split_preview "fx_rodilius $*",${-3--1}
+fx_shapeism :
+foreach {
+to_rgb
++gradient_norm b. $13% ^. $12 quantize. $6,0,0
+100%,100%,1,2
+repeat $6 {
++channels[2] 100% +>[1] $> !=.. 0 -|[-2,-1] a[2,-1] c
+size={if($6<=1,$7,$7+($8-$7)*$>/($6-1))}
+if $size<1 break fi
+if $5 {2*$size},{2*$size} _fx_shapeism$1. ${2-4} r2dy. $size
+else $size,$size _fx_shapeism$1. ${2-4}
+fi
++!=. 0 expand_xy[-2,-1] 1,0 n[-2,-1] 0,1
+if $10<1 dilate. 3 fi
+. a[-3--1] c
+rprogress "pack_sprites[-2,-1] 1,100,$9,$10,$11",{$>*100/$6},{($>+1)*100/$6}
+channels. 0,1
+}
+rprogress 97
+rm[1]
+channels. 0 +!=. 0 blend[0,-1] shapeaverage0 *[1] 255 a c
+i[0] 100%,100%,1,4 fc[0] $14,$15,$16,$17
+blend alpha
+rprogress 100
+}
+fx_shapeism_preview :
+gui_print_preview ""
+50%,50% _fx_shapeism$1. ${2-4} frame. 1,1,0 >=. 50% n. 0,255 r. 100%,100%,1,4
+ri. [0],0,0,0.5,0.5 -|
+_fx_shapeism0 :
+f 255 skip $*
+_fx_shapeism1 :
+polygon 3,50%,0,0,100%,100%,100%,1,1 skip $*
+_fx_shapeism2 :
+shape_circle {w} rm.. skip $*
+_fx_shapeism3 :
+shape_diamond {w} rm.. skip $*
+_fx_shapeism4 :
+star3d 3,1 *3d. {0,min(w,h)/2} j3d[0] .,50%,50%,0,1,2,0 k[0] skip $*
+_fx_shapeism5 :
+star3d 4,1 *3d. {0,min(w,h)/2} j3d[0] .,50%,50%,0,1,2,0 k[0] skip $*
+_fx_shapeism6 :
+star3d 5 *3d. {0,min(w,h)/2} j3d[0] .,50%,50%,0,1,2,0 k[0] skip $*
+_fx_shapeism7 :
+star3d $1,$2 *3d. {0,min(w,h)/2} r3d. 0,0,1,$3 j3d[0] .,50%,50%,0,1,2,0 k[0]
+fx_sharp_abstract :
+ac "rolling_guidance ${1-3}",$4
+fx_sharp_abstract_preview :
+gui_split_preview "fx_sharp_abstract $*",${-3--1}
+fx_SimpleNoiseCanvas :
+CanvasScale={$1}
+NoiseAmplitude=$2
+NoiseType=$3
+ThreadHorizLen=$4
+ThreadVertLen=$5
+OverAllBlur=$6
+HighCut=$7
+LowCut=$8
+CanvasMergeChoice=$9
+InvertCanvasColors=$10
+InvertImageColors=$11
+ReverseChoice=$12
+MergeChoice=$13
+PreserveCanvas=$14
+to_rgb[0]
+CanvasScale={1.2-$CanvasScale}
+(255^255^255)
+ri. [0]
+r[1] {100*$CanvasScale}%,{100*$CanvasScale}%
+if $NoiseType!=2 NoiseAmplitude={$NoiseAmplitude*10} fi
+fx_noise[1] $NoiseAmplitude,$NoiseType,0,1,0
+fx_ditheredbw[1] 1,1,0,0,0,0
++fx_gaussian_blur[1] 0,$ThreadHorizLen,0,1,0,0,0
++fx_gaussian_blur[1] 0,0,$ThreadVertLen,1,0,0,0
+n[2] 0,255
+n[3] 0,255
+if $CanvasMergeChoice==0 blend[2,3] average
+elif $CanvasMergeChoice==1 blend[2,3] multiply
+elif $CanvasMergeChoice==2 blend[2,3] darken
+elif $CanvasMergeChoice==3 blend_edges[2,3] 0.9
+fi
+fx_gaussian_blur[2] $OverAllBlur,0,0,1,0,0,0
+rm[1]
+ri[1] [0]
+($15^$16^$17)
+ri[2] [0]
+blend[1,2] multiply
+fx_apply_curve {$LowCut},-1,128,-1,128,-1,128,-1,128,-1,128,{$HighCut},1,3,0,0,0
+if $ReverseChoice==1 rv[0,1] fi
+if $InvertCanvasColors==1 negate[1] fi
+if $InvertImageColors==1 negate[0] fi
+if $MergeChoice==0 +blend[1,0] average
+elif $MergeChoice==1 +blend[1,0] multiply
+elif $MergeChoice==2 +blend[1,0] screen
+elif $MergeChoice==3 +blend[1,0] darken
+elif $MergeChoice==4 +blend[1,0] lighten
+elif $MergeChoice==5 +blend[1,0] difference
+elif $MergeChoice==6 +blend[1,0] negation
+elif $MergeChoice==7 +blend[1,0] exclusion
+elif $MergeChoice==8 +blend[1,0] overlay
+elif $MergeChoice==9 +blend[1,0] hardlight
+elif $MergeChoice==10 +blend[1,0] softlight
+elif $MergeChoice==11 +blend[1,0] dodge
+elif $MergeChoice==12 +blend[1,0] colorburn
+elif $MergeChoice==13 +blend[1,0] reflect
+elif $MergeChoice==14 +blend[1,0] freeze
+elif $MergeChoice==15 +blend[1,0] stamp
+elif $MergeChoice==16 +blend[1,0] interpolation
+elif $MergeChoice==17 +blend[1,0] grainextract
+elif $MergeChoice==18 +blend[1,0] grainmerge
+elif $MergeChoice==19 +blend[1,0] xor
+elif $MergeChoice==20 +blend_edges[1,0] 0.8
+fi
+if $ReverseChoice==1 rv[0,1] fi
+if $PreserveCanvas==0 rm[1] fi
+if $PreserveCanvas==1" && "$MergeChoice!=21 rv[1,2] fi
+if $MergeChoice!=21 rm[0] fi
+if $MergeChoice!=21" && "$PreserveCanvas==1 rv[0,1] fi
+fx_SimpleNoiseCanvasPreview :
+gui_split_preview "fx_SimpleNoiseCanvas ${1--2}",$-1
+fx_sketchbw : skip ${16=0}
+srand $16
+if $15==4 foreach { +sketchbw ${1-14} blend hardlight } return fi
+sketchbw ${1-14}
+if $15&1 negate fi
+if $15==2 r 100%,100%,1,4 repeat $! { sh[$>] 3 *. -2 +. {2*255} c. 0,255 rm. }
+elif $15==3 r 100%,100%,1,4 repeat $! { sh[$>] 3 *. 2 c. 0,255 rm. }
+fi
+fx_sketchbw_preview :
+gui_split_preview "fx_sketchbw $*",${-3--1}
+fx_smooth_abstract :
+foreach {
+split_opacity l[0] {
+srgb2rgb
+mM={[im,iM]} +b $4 n. $mM gradient_norm. <=. {50-$5}
+inpaint_pde[0] [1],$1%,$2,$3 rm.
+rgb2srgb c 0,255
+}
+a c
+}
+fx_smooth_abstract_preview :
+gui_split_preview "fx_smooth_abstract $*",${-3--1}
+fx_stylize :
+init_resolution={arg(1+$16,8,16,32,64,128,256)}
+colorspace=${"arg0 $11,all,lrgb,ycbcr,ycbcr,ycbcr_y,ycbcr_cbcr,lab,lab,lab_l,lab_ab"}
+match_colors="s c,-3 mv[1] 3 b[-2,-1] 1% negate[-2,-1] n[-2,-1] 0,1"
+luma,chroma=
+if $11==3" || "$11==7
+luma=_${"arg0 ($11==7),y,l"}
+chroma=_${"arg0 ($11==7),cbcr,ab"}
+fi
+if $10==1
+match_colors=$match_colors" ac[0,1] \"balance_gamma ,\","$colorspace$luma
+if narg($chroma) match_colors=$match_colors" ac[0,1] \"balance_gamma ,\","$colorspace$chroma fi
+elif $10==2
+match_colors=$match_colors" match_histogram[0] [1],256,"$colorspace$luma
+if narg($chroma) match_colors=$match_colors" match_histogram[0] [1],256,"$colorspace$chroma fi
+elif $10==3
+match_colors=$match_colors" match_pca[0] [1],"$colorspace$luma" c[0] 0,255"
+if narg($chroma) match_colors=$match_colors" match_pca[0] [1],"$colorspace$chroma" c[0] 0,255" fi
+fi
+if $12==1 match_colors=$match_colors" rgb2ycbcr[0,1] sh[0,1] 1,2 f[-2,-1] 128 rm[-2,-1] ycbcr2rgb[0,1]"
+elif $12==2 match_colors=$match_colors" srgb2lab[0,1] sh[0,1] 1,2 f[-2,-1] 0 rm[-2,-1] lab2srgb[0,1]"
+elif $12==3 match_colors=$match_colors" rgb2ycbcr[0,1] sh[0,1] 0 f[-2,-1] 128 rm[-2,-1] ycbcr2rgb[0,1]"
+elif $12==4 match_colors=$match_colors" srgb2lab[0,1] sh[0,1] 0 f[-2,-1] 50 rm[-2,-1] lab2srgb[0,1]"
+fi
+match_colors=$match_colors" b[0,1] xy,$13 foreach[0,1] { s c n 0,255 a c } *[-2,-1] {$14*255} a[0,-2] c a[1,-1] c"
+patch_penalization=$23
+if $1<2
+if $!<2 error "At least two layers are required in this mode." fi
+ind_first={$1==0?1:0} ind_style={$1==0?0:-1} N={$!-1} sh[$ind_style]
+else
+ind_first=0 N=$! ind_style= _fx_stylize {$1-2}
+fi
+is_window=0
+repeat $N { l[{$ind_first+$>},-1] {
+nm={0,n}
+if $2 +rr2d[1] {0,[w,h]*arg($2,0.1,0.2,0.3,0.5,0.75,1,1.5,2,2.5,3)},1,2 fi
+if $3==1 . +mirror. x +mirror[-2,-1] y a[-4--1] z
+elif $3==2 +l. { r {u={max(w,h)};[u,u]},1,100%,0,3,0.5,0.5 repeat 3 { +rotate[0] {90*$>},1,3,50%,50% } a z }
+elif $3==3 +l. { r {u={max(w,h)};[u,u]},1,100%,0,3,0.5,0.5 repeat 7 { +rotate[0] {45*$>},1,3,50%,50% } a z }
+fi
+if $4 wsiz=${"fitscreen "{0,[w,h]}} w[0] $wsiz is_window={*} fi
+stylize[0] .,${5-9},$15,$init_resolution,${17-22},$patch_penalization,${24-26},$match_colors
+k[0,1] =>[0] $nm
+if $is_window" && "!{*} break fi
+} }
+rm.
+if 0$_output_mode
+if narg($ind_style) rm[$ind_style] fi
+if $is_window" && "!{*} rm fi
+fi
+fx_stylize_preview :
+if $1<2
+if $!<2 gui_warning_preview "At least two layers are required when specifying a custom style." return fi
+ind_first={$1==0?1:0} ind_style={$1==0?0:-1} N={$!-1} sh[$ind_style]
+else
+ind_first=0 N=$! ind_style= _fx_stylize {$1-2}
+fi
+repeat $N { l[{$ind_first+$>},-1] {
+gui_no_preview[0] ,
++rr2d[1] {0,[w,h]*2/3},0,2 frame. 1,1,255 frame. 1,1,0,0,0,255 j[0] .,1%,30 rm. to[0] "Style:",1%,0,24
+} } rm.
+if narg($ind_style) rm[$ind_style] fi
+_fx_stylize :
+if isnum($1)
+name=${"arg0 $1","landscapenearantwerp,leviaducalestaque,littlebayatlaciotat,themandola","blackcolourpencil,colourpencilsepia,darkcolouredpencil,pencil,sketchingpastel,willowcharcoal","windowsopensimultaneously,portraitdemetzinger,greatwave,squareswithconcentriccircles,yellowredblue","deathandfire,inthestyleofkairouan,orientalpleasuregardenanagoria,polyphony2,redwaistcoat,thekiss","compositionredyellowblue,redtree,graytree,sangiorgiomaggioreatdusk,waterlilypond,wheatstacksendofsummer","scream,udnie,lesdemoisellesdavignon,seatedwoman,reservoirhortadeebro,convergence,summertime9a","almondblossom,irises,starrynight,wheatfieldwithcrows"}
+else name="$1"
+fi
+input_cached img/style_$name.png
+fx_vector_painting :
+foreach {
+split_opacity l[0] {
++luminance b. {10-$1}%,1,1
+f. "dmax = -1; nmax = 0;
+for (n = 0, ++n<=8,
+p = arg(n,-1,0,1,-1,1,-1,0,1);
+q = arg(n,-1,-1,-1,0,0,1,1,1);
+d = (j(p,q,0,0,0,1) - i)^2;
+d>dmax?(dmax = d; nmax = n):nmax;
+)"
+blend shapeaverage
+}
+a c
+}
+fx_vector_painting_preview :
+gui_split_preview "fx_vector_painting $*",${-3--1}
+fx_draw_whirl :
+foreach { split_opacity draw_whirl[0] $* a c }
+fx_draw_whirl_preview :
+gui_split_preview "fx_draw_whirl $*",${-3--1}
+fx_stencilbw :
+stencilbw $1,$2
+if $3||$4 foreach {
+split_opacity /[0] 255 i[0] 100%,100%,1,1,$4 i[0] 100%,100%,1,1,$3 a[0-2] c hsv2rgb[0] a c
+} fi
+fx_stencilbw_preview :
+gui_split_preview "fx_stencilbw $*",${-3--1}
+fx_blackandwhite :
+repeat $! { l. {
+split_opacity rv to_rgb. s. c
+*... $1 b... $2%
+*.. $3 b.. $4%
+*. $5 b. $6%
++[-3--1] /. {$1+$3+$5} c. 0,255
+adjust_colors ${7-11},0,255
+if $12||$13||$14
+100%,100% [-1]x2
+noise... 100,$17 b... $16% n... -$12,$12
+noise.. 100,$17 b.. $16% n.. -$13,$13
+noise. 100,$17 b. $16% n. -$14,$14
++tones[-4] 3 b[-3--1] $15%
+*[-6,-3] *[-4,-2] *[-2,-1]
++[-4--1] c. 0,255
+fi
+rv a c } mv. 0 }
+if $18 normalize_local $18,$19,$20,2%,1,0,255 fi
+if $22 n 0,255 fi
+if $21 to_pseudogray $21,1 fi
+fx_blackandwhite_preview :
+gui_split_preview "fx_blackandwhite $*",${-3--1}
+fx_charcoal :
+foreach {
+split_opacity l[0] {
+compose_channels max
+w={w} h={h}
+if $5 r. 150%,150%,1,1,6 fi
+if $4 equalize. n. 0,255 fi
+sharpen {$1*3} cut 0,255
+if $6 +ir $7,$8 fi
+ir[0] $2,$3
+if !$15 ==[0] 0 fi
+-|
++*[0] $10 +*[0] $11 *[0] $9
+a[-3--1] c replace_color 0,0,0,0,0,$12,$13,$14
+r $w,$h,1,100%,2
+}
+a c
+}
+fx_charcoal_preview :
+gui_split_preview "fx_charcoal $*",${-3--1}
+fx_colorize_interactive : skip "${4=},${5=},${6=}"
+N=$! nm={n}
+resolution={arg(1+$3,512,1024,2048,0)}
+=> "[G"{`39`}"MIC] Colorize"
+if [$9][0]==-1" || "[$8]!=[w,h] _gui_control_points= else _gui_control_points=$9 fi
+N=$!
+arg_palette1=0 l[] {
+0 => "$4" ext={x} rm
+if same(['$ext'],'gpl',-1,0) input_gpl "$4" arg_palette1=1 fi
+onfail rm
+}
+if $arg_palette1 arg_palette1=[{$!-1}] fi
+arg_palette2=0 l[] {
+0 => "$5" ext={x} rm
+if same(['$ext'],'gpl',-1,0) input_gpl "$5" arg_palette2=1 fi
+onfail rm
+}
+if $arg_palette2 arg_palette2=[{$!-1}] fi
+arg_grabber=0 l[] {
+0 => "$6" ext={x} rm
+i "$6" to_rgb arg_grabber=1
+onfail rm
+}
+if $arg_grabber arg_grabber=[{$!-1}] fi
+repeat $N {
+status=${x_colorize[$>]\ $1,$resolution,$2,$arg_palette1,$arg_palette2,$arg_grabber}
+}
+k[0-{$N-1}]
+if $2==1 foreach { channels {s-3},{s-1} }
+elif $2>=2
+foreach { +channels {s-3},{s-1} channels.. 0,{0,s-4} }
+if $2>=3 split_colors[1] 0,256,8 fi
+fi
+=>[^] $nm
+if !narg($status) status=-1 fi
+u \{$1\}\{$2\}\{$3\}\{"$4"\}\{"$5"\}\{"$6"\}\{0\}\{{w},{h}\}\{$status\}
+fx_colorize_interactive_preview : skip "${4=},${5=},${6=}"
+if $7
+gui_print_preview "No preview\n available",,"(Control points cleared)"
+u \{$1\}\{$2\}\{$3\}\{"$4"\}\{"$5"\}\{"$6"\}\{0\}\{{w},{h}\}\{-1\}
+else gui_no_preview ,
+fi
+fx_recolorize :
+repeat int($!/2) {
+if $3 s=$>,{$>+1} else s={2*$>},{2*$>+1} fi
+l[$s] rv[0,1] {
+channels[0] 0 to_rgb..
+to_rgba. split_opacity. !=. 0
+srgb2rgb[-3,-2] rgb2lab8[-3,-2] channels... 0 channels.. 1,2
++.. 1 *.. . +gradient_norm... *. -1 watershed... . rm. -.. 1
++diffusiontensors... $2,1,0.5,0.5 ==.. 0 *. .. rm..
+smooth.. .,{$1*80},0.8,60 rm.
+a[-2,-1] c lab82rgb. rgb2srgb.
+if $3 rgb2hsv. s. c i[2] 100%,100%,1,1,1 i[3] 100%,100%,1,2,0 a[0-2] c a[^0] c hsv2rgb rv fi
+}
+}
+fx_recolorize_preview :
+fx_recolorize $* a x
+fx_bwrecolorize :
+remove_opacity
+if $4 n 0,255 fi
+if $5==0
+(${9--2}) r. 4,$8,1,1,-1 permute. yzcx
+elif $5==1
+(0,255^0,255^0,255^255,255)
+elif $5==2
+(255,0^255,0^255,0^255,255)
+elif $5==3
+(0,44,115,143,196,244^0,20,84,119,184,235^0,5,44,73,144,200^255,255,255,255,255,255)
+else
+(0,359^1,1^1,1^255,255) r. 256,1,1,4,3 sh. 0,2 hsv2rgb. rm.
+fi
+if $6==0 r. 256,1,1,4,1
+elif $6==1 r. 256,1,1,4,3
+elif $6==2 r. 256,1,1,4,5 c. 0,255
+else r. 256,1,1,4,6
+fi
+if $7==1 sh. 0,2 rgb2hsv. sh. 2 f. x/w hsv2rgb.. rm[-2,-1] fi
+l[^-1] { luminance adjust_colors ${1-3} } map[^-1] . rm.
+fx_bwrecolorize_preview :
+gui_split_preview "fx_bwrecolorize ${^0}",${-3--1}
+fx_autofill_lineart :
+foreach {
+nm=${-gui_layer_name}
+is_alpha={s==2||s==4}
+if $is_alpha sh 100% is_alpha={im<128&&iM>128} rm. fi
+if $is_alpha +channels 100% negate.
+else +norm fi
+n. 0,255
+l. {
+repeat 1+$4 {
+fact={2^-$<}
+nw={0,max(1,round(w*$fact))}
+nh={0,max(1,round(h*$fact))}
++r[0] $nw,$nh,1,1,2 if $2 normalize_local. , fi +>=. {min(99.5,$1)}%
+if $colors
+scale2x[colors] r[colors] .,1 *[colors,-1] rv[-2,-1]
+fi
+label_fg. 0,1 b.. 0.8 watershed. .. rm.. => colors
+}
++area. 0,1 label_maxarea={"P=[xM,yM];i(#-2,P)-1"}
+if $3>1
+>. {$3*sqrt($3)} *[-2,-1]
+b.. 0.8 watershed. ..
+else
+rm.
+fi
+rm..
+N={iM}
+if $N
+-. 1
+srand 0 {iM+1},1,1,3,">[j(-1) + u(135,225),u(0,0.7),u(0.4,0.9)]"
+hsv2rgb. round. point. $label_maxarea,0,0,1,255
+map.. . rm.
+fi
+}
+if !$is_alpha gui_set_layer_mode.. multiply fi
+gui_set_layer_name. $nm" [colors]"
+}
+fx_autofill_lineart_preview :
+foreach {
+fx_autofill_lineart ${1-4}
+if $5 k. else rv blend multiply fi
+}
+fx_colorize_lineart :
+if $!<2 return fi
+if $1<2 selection=0,1 else selection=0,1,2 fi
+l[$selection] {
+if $1==0
+elif $1==1 rv
+elif $1==2 rm[1]
+elif $1==3 rm[2] rv
+fi
++to_rgba[0] split_opacity. +.. 1 !=. 0 *[-2,-1]
++norm[1] n. 0,1 +histogram. 2,0,1
+if i(0)>i(1) *.. -1 +.. 1 fi rm.
+b. $4% watershed.. . rm.
+-. 1
+if $2==0 rm[0] rv blend[0,1] multiply ind=-1
+elif $2==1 rm[0] rv ind=0
+elif $2==2 rm[0] ind=1
+elif $2==3 rv[1,2] ind=1
+elif $2==4 rv[0,1] ind=2
+fi
+if $3" && "$ind>=0 l[$ind] {
++mix_channels (65536,256,1)
+if $3==10 do
+iM={1,iM}
+if $iM>=0
++==[1] $iM area={is} replace[1] $iM,-1
++r. 100%,100%,1,3 *. [0]
+rv[-2,-1] *. 255 a[-2,-1] c => $area
+fi
+while $iM>=0 else
+label.
+if $3<10 %. {$3+1} fi
+repeat iM+1 { +==[1] $< area={is} +r. 100%,100%,1,[0] *. [0] rv[-2,-1] *. 255 a[-2,-1] c => $area }
+fi
+rm[0,1]
+sort_list +,n
+} fi
+}
+fx_colorize_lineart_preview :
+fx_colorize_lineart $1,0,$3,$4
+fx_colorize_lineart_smart :
+_fx_colorize_lineart_smart $*,-1 round
+fx_colorize_lineart_smart_preview :
+if $1==1" && "$!<2 gui_warning_preview "A top layer with color spots is missing, for this colorization mode." return
+elif $1==2" && "$!<2 gui_warning_preview "A bottom color layer is missing, for this colorization mode." return
+fi
+_fx_colorize_lineart_smart ${1-3},0,${5--1}
+_fx_colorize_lineart_smart :
+if $1==1" && "$!<2 error "A top layer with color strokes is missing, for this colorization mode."
+elif $1==2" && "$!<2 error "A bottom color layer is missing, for this colorization mode."
+fi
+min_color_area={$15^2}
+repeat $1?1:$! { inds=${arg0\ !!$1,$<,0--1} l[$inds] {
+ind_lineart={$1==1?1:0}
+nm=${gui_layer_name[$ind_lineart]} =>[$ind_lineart] lineart
+if $!>1 ind_colors={$1==1?0:1} nmc={$ind_colors,n} =>[$ind_colors] colors fi
+if $!>=3 rm[2--1] fi
+[lineart]
+is_alpha={s==2||s==4}
+if $is_alpha sh. 100% is_alpha={iM-im>64} rm. fi
+if $is_alpha channels. 100%
+else luminance. negate. fi
+>. {255*(1-$2%)}
+=> strokes
+_keep_keycoords={$-1==0}
+[strokes] close_binary. ${9-14},$min_color_area,$16 => new_strokes
+if $-1==0
++negate[strokes] *. 255 to_rgb.
++-[new_strokes] [strokes] dilate. 2
+100%,100%,1,3,[0,128,255] j... .,0,0,0,0,1,.. rm[-2,-1]
+if narg($keycoords) f[keycoords] "ellipse(#-1,(I)[0,2],3,3,0,1,[255,0,0]);I" rm[keycoords] fi
+=> geometry
+fi
+if $1==1
+to_rgba[$colors] [colors],[colors]
+f[colors] "i(#-1) = A<255?0:norm(R,G+0.3,B+0.6);I"
+label_fg. 0 {1+iM},1,1,{colors,s+1}
+f.. ">I[#-1,i]+=[ I(#"$colors"),1 ];I"
+s. c,{-s+1} /[-2,-1]
++l[new_strokes] { * -1 + 1 +b 1% b.. 1 min }
+watershed... .,0 rm. map.. . rm.
+if !$8 rm[strokes]
+else
+j[strokes] [new_strokes] distance[strokes] 0 *[strokes] -1
+eq[new_strokes] 0 label_fg[new_strokes] 0,0
+if $min_color_area +area_fg[new_strokes] 0,0 >. $min_color_area *[new_strokes,-1] fi
+watershed[new_strokes] [strokes],0 rm[strokes]
+srgb2rgb. guided. [new_strokes],{1+$8/5},0 rgb2srgb.
+fi
+rm[new_strokes]
+=> new_colors
+elif $1==2
+j[strokes] [new_strokes] distance[strokes] 0 *[strokes] -1
+eq[new_strokes] 0 label_fg[new_strokes] 0,0
+if $min_color_area +area_fg[new_strokes] 0,0 xy_bg={[xM,yM]} >. $min_color_area *[new_strokes,-1] fi
+watershed[new_strokes] [strokes],0 rm[strokes]
+to_color[colors] sh[colors] 0,2 rgb2hsv8. rm. blend[colors,new_strokes] shapemedian sh[colors] 0,2 hsv82rgb. rm.
+=>[colors] new_colors
+else
+j[strokes] [new_strokes] distance[strokes] 0 *[strokes] -1
+eq[new_strokes] 0 label_fg[new_strokes] 0,0
+if $min_color_area +area_fg[new_strokes] 0,0 xy_bg={[xM,yM]} >. $min_color_area *[new_strokes,-1] fi
+watershed[new_strokes] [strokes],0 rm[strokes]
+label[new_strokes] 0,0
++histogram[new_strokes] {new_strokes,[iM+1,0,iM]} equalize. 1024 n. 0,240
+ind_bg={xM}
+channels. 0,2 srand 0
+f. "[i,u(1,max(3,$6))/255,u(min(252,$7),255)/255]"
+. sh. 0 rand. 0,360 rm.
+hsi2rgb[-2,-1] *.. $5 *. {1-$5} +[-2,-1] round.
+point. $ind_bg,0,0,1,255 point. 0,0,0,1,255
+map[new_strokes] . rm.
+=>[new_strokes] new_colors
+fi
+ind_lineart=$lineart
+ind_colors=$new_colors
+if $4
+100%,100%,1,1,"const boundary = 1;
+J(#"$new_colors",1)!=I(#"$new_colors") || J(#"$new_colors",0,1)!=I(#"$new_colors")"
+*. 255 channels. -3,0 sh. 0,2 fc. 255,0,0 rm.
+gui_set_layer_name. $nm" [region delimiters]"
+mv. {$lineart+1}
+fi
+if !narg($nmc) gui_set_layer_name[$ind_colors] $nm" [colors]" fi
+gui_set_layer_name[$ind_lineart] $nm
+if $-1==-1
+if !$is_alpha gui_set_layer_mode[$ind_lineart] multiply fi
+if $3 l[{$1==1?1:0}] {
+if $is_alpha
+100%,100%,1,3,255 blend. [0],alpha,1 rgb2hsv. channels. 2 *. 255 negate.
+channels.. 0,{0,s-2} s={0,s} luminance[0] to_colormode[0] $s a c
+else
+s={s} to_rgb rgb2hsv channels 2 * 255 to_colormode $s
+fi
+} fi
+elif $-1==0
+if $is_alpha channels[$ind_lineart] 100% negate[$ind_lineart] fi to_rgb[$ind_lineart]
+n[$ind_lineart] 180,255
+blend[$ind_lineart,$ind_colors] multiply
++select_color[geometry] 0,255,255,255 ==. 0 j[$ind_lineart] [geometry],0,0,0,0,1,. k[$ind_lineart]
+elif $-1==1
+k[$ind_colors]
+else
+if $is_alpha channels[$ind_lineart] 100% negate[$ind_lineart] fi to_rgb[$ind_lineart]
+if $3 l[$ind_lineart] { s={s} to_rgb rgb2hsv channels 2 * 255 to_colormode $s } fi
+blend[$ind_lineart,$ind_colors] multiply k[$ind_lineart]
+fi
+} }
+fx_gcd_norm_eq : skip ${1=0.5},${2=0.5},${3=2}
+repeat $! l[$>]
+split_opacity
+l[0]
+to_rgb srgb2rgb gcd_gamma $3
+sh 0 sh.. 2 *.. $1 *. $2 k[0]
+norm / {sqrt(1+$1^2+$2^2)}
+gcd_gamma {1/$3} rgb2srgb
+done a c
+done done
+fx_gcd_norm_eq_preview :
+gui_split_preview "fx_gcd_norm_eq ${1--2}",$-1
+fx_ditheredbw :
+foreach {
+split_opacity l[0] {
+luminance adjust_colors ${1-3} b $6
+ditheredbw
+if $4" || "$5 / 255 i[0] 100%,100%,1,2 fc[0] $4,{$5%} a c hsv2rgb fi
+}
+a c
+}
+fx_ditheredbw_preview :
+gui_split_preview "fx_ditheredbw $*",${-3--1}
+fx_engrave :
+f={arg(1+$14,1,1.5,2,3)}
+r={$f*(0.2+$1)}
+foreach {
+nm=${-gui_layer_name} pos=${-gui_layer_pos}
+if $8 [0] fi
+l[0] { split_opacity l[0] {
+wh={w},{h}
+norm
+if $14 r {100*$f}%,{100*$f}%,1,1,3 fi
+if $7>0 [0] fi
+l[0] {
+amount={(0.5+$2)^2}
+repeat 5 { b $r unsharp $r,{1+$2} c 0,255 }
+smooth 100,0.1,1,{$f*$3},{$f*$4}
+>= {100-$5}%
+}
+if $7>0
+gradient_norm[1] b[1] $3 <[1] $7 max[0,1]
+fi
+if $6<0 area_fg 0,0 > {$f*$6*$6}
+elif $6>0 == 0 area_fg 0,0 > {$f*$6*$6} == 0
+fi
+* 255
+if $14 r $wh,1,1,2 fi
+} a c }
+if $!>1
+l[1] { split_opacity l[0] {
+f={arg(1+$14,1,1.5,2,3)}
+if $14 r {100*$f}%,{100*$f}%,1,100%,3 fi
+b {$f*$9} segment_watershed 5
+if $14 r $wh,1,100%,2 fi
+repeat $10 { guided 10,{$10*80} }
+rgb2hsv s c +... $11 +.. {$12%} +. $13% a c hsv2rgb
+} a c }
+=>[0] "mode(darken),name("$nm"),pos("$pos")"
+=>[1] "name("$nm" [colors]),pos("$pos")"
+fi
+}
+fx_engrave_preview :
+foreach { gui_split_preview "=> foo fx_engrave $* gui_merge_layers",${-3--1} }
+fx_freaky_bw :
+foreach {
+split_opacity l[0] {
+to_rgb
++expand_xy 1,0 channels. 0,4
+f. ">if (c!=4,i,
+Rx = i(x+1,y,0,0) - i(x,y,0,0);
+Ry = i(x,y+1,0,0) - i(x,y,0,0);
+Rn = Rx^2 + Ry^2;
+Gx = i(x+1,y,0,1) - i(x,y,0,1);
+Gy = i(x,y+1,0,1) - i(x,y,0,1);
+Gn = Gx^2 + Gy^2;
+Bx = i(x+1,y,0,2) - i(x,y,0,2);
+By = i(x,y+1,0,2) - i(x,y,0,2);
+Bn = Bx^2 + By^2;
+n = 1e-5 + max(Rn,Gn,Bn)^"{$2%}";
+val = 0;
+Rn>=Gn && Rn>=Bn?(i(x,y,0,3) = Rx/n; val=Ry/n):
+Gn>=Rn && Gn>=Bn?(i(x,y,0,3) = Gx/n; val=Gy/n):
+(i(x,y,0,3) = Bx/n; val=By/n);
+val
+)"
+channels. 3,4
+luminance[0] ia={0,ia}
+s. c
+f.. "i - i(x-1,y,0,0)"
+f. "i - i(x,y-1,0,0)"
++[-2,-1]
+ilaplacian. 0
+shrink_xy. 1 +. $ia n. 0,255
+j[0] [1],0,0,0,0,{$1%} rm.
+adjust_colors ${3-5}
+}
+a c
+}
+fx_freaky_bw_preview :
+gui_split_preview "fx_freaky_bw $*",${-3--1}
+fx_ink_wash :
+foreach {
+split_opacity l[0] {
+fx_pencilbw. $1,$2,0,0,0
+if $3==1 continue
+elif $3==0 fx_smooth_anisotropic. 60,$4,$5,$6,1.1,0.8,30,2,0,1,1,0,1,16
+fi
+if $7==1 normalize_local. 2,6,5,24,1,0,255
+elif $7==2 normalize_local. 2,6,5,24,1,0,255 fx_contrast_swm 2,0,0.512
+elif $7==3 fx_normalize_local. $8,$9,$10,$11,1,3,0
+fi
+}
+a c
+}
+fx_gcd_layeretch : skip ${1=16},${2=7},${3=14},${4=0.12},${5=100},${6=5},${7=4.65},${8=0},${9=0},${10=3},${11=1},${12=1},${13=0}
+repeat $! l[$>]
+w={w} h={h} sc=800 ml=$1 wl={min($2,$ml-1)}
+nwl={$ml-$wl} nwl={$nwl+($nwl%2==0)}
+if !$13 nw=$w nh=$h
+elif w>h nw={min($sc,w)} nh={$nw/w*h}
+else nh={min($sc,h)} nw={$nh/h*w} fi
+to_rgb[0] [0] r[1] $nw,$nh
+norm[1] n[1] 0,255 +tones[1] $ml
+repeat $ml-1 +[{-$<-1}] [{-$<-2}] done
+b[-$ml--1] $4%
+repeat $ml
+pc={($>+1)/$ml} msk={2+$>} {w},{h},1,1,0
+if $12 ang={$>/$nwl} else ang=$pc fi
+if $<>=$wl
+noise. {(1-$pc)*$5},2 ==. 1
+blur_linear. {$6+$pc*($7-$6)}%,0,{$ang*360+u(-$9,$9)+$8}
+quantize. $3,0 deform. {u*$10+1}
+fi
+r. $nw,$nh n. 0,255
+*[$msk,-1] progress {$pc*100}
+done
++[-$ml--1] c. 0,255
+n. 0,255 negate. apply_gamma. $11
+if $13 r. $w,$h,1,3,5 c. 0,255 fi
+k.
+done done
+fx_pencilbw :
+pencilbw $1,$2
+if $3" || "$4 foreach {
+split_opacity /[0] 255 i[0] 100%,100%,1,1,$4 i[0] 100%,100%,1,1,$3 a[0-2] c hsv2rgb[0] a c
+} fi
+fx_pencilbw_preview :
+gui_split_preview "fx_pencilbw $*",${-3--1}
+fx_pencil_portraitbw :
+foreach {
+split_opacity l[0] {
++b 2%
++blend divide rm.. luminance.
+fx_ink_wash.. 0,167,0,0.5,0.54,2.25,0,2,6,5,20
++fx_hardsketchbw. 80,32,1.89,0.21,31.46,0,0
++fx_sketchbw.. 1,$2,180,$1,$3,0.03,0,0.6,0.1,0.6,0.25,1,0,1,0
+blend[0,1] darken
+blend[0,1] multiply,0.5
+blend[0,1] lighten,$4
+normalize_local ,
+to_rgb +fc ${5-7} blend softlight
+}
+a c
+}
+fx_pencil_portraitbw_preview :
+gui_split_preview "fx_pencil_portraitbw $*",${-3--1}
+fx_stamp :
+foreach {
+split_opacity l[0] {
+wh={w},{h}
+norm
+if $7 r 150%,150%,1,1,3 fi
+noise $5
+if $1 otsu 256 else >= $2% fi
+b {if($7,1.5,1)*$3},0 sharpen $4 n 0,255
+apply_curve 1,0,0,101,33,170,229,255,255
+if $7 r $wh,1,1,2 fi
+if $6 negate fi
+}
+a c
+}
+fx_stamp_preview :
+gui_split_preview "fx_stamp $*",${-3--1}
+fx_gcd_etch :
+skip ${1=125},${2=153},${3=171},${4=185},${5=0.1} skip ${6=50},${7=80},${8=50},${9=10}
+skip ${10=15},${11=12},${12=20},${13=0} skip ${14=1},${15=0.3},${16=1},${17=0}
+repeat $! l[$>]
+w={w} h={h} sc=800 ml=4
+if w>h nw={min($sc,w)} nh={$nw/w*h} else nh={min($sc,h)} nw={$nh/h*w} fi
+to_rgb[0] [0] if $16 r[1] $nw,$nh fi
+b[1] $5% norm[1] negate[1] n[1] 0,255
++c[1] 0,{255-$4} +c[1] {255-$3},128 +c[1] {255-$2},192 +c[1] {255-$1},255 n[-3--1] 0,255
+{w},{h},1,1,0 noise. $6,2 ==. 1 deriche. $10,0,x,0
+{w},{h},1,1,0 noise. $7,2 ==. 1 {w},{h},1,3,0 fc. 0,-1,0 smooth.. .,30,30,0 rm.
+if $13 mirror. x fi
+{w},{h},1,1,0 noise. $8,2 ==. 1 deriche. $11,0,y,0
+{w},{h},1,1,0 noise. $9,2 ==. 1 deriche. $12,0,y,0
+quantize[-$ml--1] 2,0 deform[-$ml--1] $14
+repeat $ml *[{2+$>},-1] done
++[-$ml--1] n. 0,255 rm[1]
+negate. apply_gamma. $15
+if $16 r. $w,$h,1,3,5 c. 0,255 fi
+if $17 blend[0,1] shapeaverage else k. fi
+done done
+fx_gcd_etch_preview :
+gui_split_preview "fx_gcd_etch ${1--2}",$-1
+fx_color_abstraction :
+foreach {
+split_opacity l[0] { to_rgb b $1 s c quantize $2,1,0 area 0 ^ $3 n 0,255 }
+a c
+}
+fx_color_abstraction_preview :
+gui_split_preview "fx_color_abstraction $*",${-3--1}
+fx_apply_haldclut : skip "${2=}"
+mode=$1
+filename="$2"
+strength,brightness,contrast,gamma,hue,saturation,normalize=${3-9}
+if $mode<2
+if $!<2 gui_warning_preview "Input layer with HaldCLUT is missing" return fi
+ind_clut={$mode?$!-1:0}
+else
+l {
+0 => "$2" ext={x} rm.
+if lowercase(['$ext'])=='cube' input_cube "$2"
+else i "$2"
+fi
+ind_clut={$!-1}
+onfail gui_warning_preview "Specified HaldCLUT filename not found" return
+}
+fi
+if {$ind_clut,iM>512} /[$ind_clut] 255 fi
+if $normalize==1" || "$normalize==3
+foreach { if $>!=$ind_clut split_opacity balance_gamma[0] , a c fi }
+fi
+repeat $! { if $>!=$ind_clut +map_clut[$>] [$ind_clut] j[$>] .,0,0,0,0,{$strength%} rm. fi } rm[$ind_clut]
+adjust_colors $brightness,$contrast,$gamma,$hue,$saturation,0,255
+if $normalize==2" || "$normalize==3
+foreach { split_opacity n[0] 0,255 a c }
+fi
+fx_apply_haldclut_preview : skip "${2=}"
+if $1<2 gui_warning_preview "No preview available in this mode" return fi
+gui_split_preview "fx_apply_haldclut $1,\"$2\",${3--2}",${-3--1}
+apply_from_clut_set : skip "${1=}"
+m "_title : ('\"$""*\"') replace_str. \"_\",\" \" replace_str. \"iii\",\"III\" f. \"(!y || j(0,-1)==32) &&
+i>=_'a' && i<=_'z'?uppercase(i):i\" u {t} rm."
+is_file_error=0
+l[] {
+"$1" nb_cluts,ind:=l,($2-1)%l k[$ind]
+onfail rm is_file_error=1
+}
+if $is_file_error
+gui_error_preview "Unable to load specified CLUT set"
+else
+_title {n} clut_name=${}
+decompress_clut. {0$_is_preview?17:33} store. _clut
+if 0$_is_preview
+foreach { gui_split_preview "_apply_from_clut_set \"$1\",${2--1}",${-3--1} }
+to "#"{$ind+1}"/"$nb_cluts":\n"$clut_name,0.01~,1~,5%
+else
+foreach { _apply_from_clut_set $"*" }
+fi
+fi
+apply_from_clut_set_preview : skip "${1=}"
+_is_preview=1
+k[0] apply_from_clut_set $"*"
+_apply_from_clut_set : skip "${1=}"
+if isin($9,1,3) split_opacity n[0] 0,255 a c fi
+$_clut +map_clut.. . rm.. j.. .,0,0,0,0,{$3%} rm.
+adjust_colors ${4-8},0,255
+if isin($9,2,3) split_opacity n[0] 0,255 a c fi
+fx_adjust_colors :
+adjust_colors ${1-5},0,255
+fx_adjust_colors_preview :
+gui_split_preview "fx_adjust_colors $*",${-3--1}
+fx_boost_chroma :
+foreach {
+split_opacity l[0] {
++to_rgb
+if $2>=2
+srgb2rgb rgb2lab.
+if $2==2 sh. 1 sh.. 2 equalize[-2,-1] rm[-2,-1]
+else sh. 1,2 equalize. rm.
+fi
+lab2rgb. rgb2srgb
+else
+rgb2ycbcr.
+if $2==0 sh. 1 sh.. 2 equalize[-2,-1] rm[-2,-1]
+else sh. 1,2 equalize. rm.
+fi
+ycbcr2rgb.
+fi
+j.. .,0,0,0,0,{$1%} rm.
+}
+a c
+}
+fx_boost_chroma_preview :
+gui_split_preview "fx_boost_chroma $*",${-3--1}
+fx_boost_fade :
+foreach {
+100%,100%,1,3 rand. 0,1 b. {10-10*($1/10)^0.5} n. 0,255
+to_colormode 0 a z
+ac "s z match_histogram.. . rm.",${"arg0 $2,ycbcr_cbcr,lab_ab"}
+}
+fx_boost_fade_preview :
+gui_split_preview "fx_boost_fade $1,$2",${-3--1}
+#@cli afre_brightness : -300<=amount<=300,0<=smooth<=50
+#@cli : Enhance luminance brightness.
+#@cli : Default values: 'amount=50' and 'smooth=0'.
+afre_brightness : check "${1=50}>=-300 && ${2=0}>=0
+&& $1<=300 && $2<=50"
+if !$1 return fi e[] "[afre]^_^) brightness: Enhance luminance brightness of image$? using amount=$1 and smooth=$2."
+repeat $! l[$>] r={[im,iM]} . if $2>0 +afre_gui0_fast. 1,1e10
++>.. {100-$2}% blend_fade[1,2] . k[0,1] fi
+^.. {$1>0?0.5^($1/300):1} n.. $r afre_orien.. 1
++n. 0,1 f. "begin(const P=2^($1/100)); 1-(1-i)^P" n. $r
++n.. 0,1 f. "begin(const A=0.5; const P=0.05); if(i<=A,
+A-A*(i/A)^P,-A+A*((1-i)/A)^P)" n. 0,1 blend_fade[1,2] . k[0,1]
+afre_y50. 1 * c $r done done
+afre_brightness_preview :
+afre_brightness $*
+_fx_channel_processing :
+adjust_colors ${1-3} b. $4%
+if $5==1 c. $6%,$7%
+elif $5==2 c. $6%,$7% n. 0,255
+elif $5==3 n. $6%,$7%
+elif $5==4 ir. $6%,$7% *. 255
+fi
+if $8!=256 quantize. $8,1,0 fi
+if $9 equalize. fi
+if $10 negate. fi
+fx_channel_processing :
+repeat $! {
+l. {
+split_opacity rv to_rgb.
+fx_start_mix $11,$12
+ac. "_fx_channel_processing $1,$2,$3,$4,$5,$6,$7,$8,$9,$10",$13,1
+fx_end_mix $11
+if $!!=3 rv a c fi
+}
+mv. 0
+}
+fx_channel_processing_preview :
+gui_split_preview "fx_channel_processing $*",${-3--1}
+fx_channels2layers :
+foreach {
+nm=${-gui_layer_name} to_rgb
+if $1==0
+s[0] c
+r[0] 100%,100%,1,3,0,0,0,0,0,0 =>[0] "name("$nm" [red]),mode(add)"
+r[1] 100%,100%,1,3,0,0,0,0,0,0.5 =>[1] "name("$nm" [green]),mode(add)"
+r[2] 100%,100%,1,3,0,0,0,0,0,1 =>[2] "name("$nm" [blue]),mode(add)"
+elif $1==1
+rgb2cmy[0] -[0] 255 s[0] c
+r[0] 100%,100%,1,3,0,0,0,0,0,0 =>[0] "name("$nm" [cyan]),mode(difference)"
+r[1] 100%,100%,1,3,0,0,0,0,0,0.5 =>[1] "name("$nm" [magenta]),mode(difference)"
+r[2] 100%,100%,1,3,0,0,0,0,0,1 =>[2] "name("$nm" [yellow]),mode(difference)"
++[0-2] 255
+i[0] 100%,100%,1,3,255 =>[0] "name("$nm" [base]),mode(difference)"
+else
+rgb2hsv[0] s[0] c,-2
+r[0] 100%,100%,1,3,0,0 sh[0] 2 f. 1 rm. =>[0] "name("$nm" [color]),mode(normal)"
+r[1] 100%,100%,1,3,0,0,0,0,0,1 =>[1] "name("$nm" [value]),mode(value)"
+hsv2rgb[0,1] rv[0,1]
+fi
+}
+fx_channels2layers_preview :
+foreach {
+fx_channels2layers $*
+foreach { to "#"{1+$>},1,1,43,7,1,255 }
+frame 1,1,0 frame 3,3,255 append_tiles ,
+}
+fx_clut_from_ab : skip "${3=},${4=}"
+if $!<2 error "At least two input layers are needed to run this filter." fi
+repeat $!-1 { l[$<,-1] {
+nm=${gui_layer_name..}
+i[0] {a=0$_is_preview?32:64;[a,a,a]},4 f[1] ">I(#0,round(I(#2)*(w#0-1)/255))+=[R,G,B,1]; I"
+l[0] {
+s c,-3 +max. 1 /[-3,-1] ==. 0 inpaint_pde.. .,75%,1 distance. 0 *. {-1/(1+$5)} exp.
+f.. "f = i(#-1); f*I + (1-f)*[x,y,z]*255/(w-1)" rm.
+S={arg(1+$2,16,25,36,49,64,81,100,121,144,169,225,256)} if $S!=w r. $S,$S,$S,3,3 fi
+c 0,255
+}
+if $1==2
+is_png={str=lowercase(['"$4"']);find(str,'.png')==size(str)-4}
+is_cube={str=lowercase(['"$4"']);find(str,'.cube')==size(str)-5}
+if !$is_png" && "!$is_cube $!is_ciube error "Filename extension must be '.cube' or '.png'." fi
+if $is_png r[0] {0,r=round(whd^0.5);[r,r]},1,3,-1 o[0] "$3/$4"
+else
+if {0,w>32} r3dx[0] 32 fi
+output_cube[0] "$3/$4"
+fi
+rm[0]
+else
+r[0] {0,r=round(whd^0.5);[r,r]},1,3,-1
+if !$1 rm[1] fi
+=>[0] "name(CLUT to '"$nm"')"
+fi
+if 0$_output_mode k[0] fi
+} }
+fx_clut_from_ab_preview : skip "${3=},${4=}"
+if $!<2 gui_warning_preview "At least two input layers are needed to run this filter." return fi
+_is_preview,_output_mode=1 fx_clut_from_ab 0,4,0,0,$5
+foreach {
+r {a=round(cbrt(wh));[a,a,a]},3,-1
++r3dx. 24 _fx_clut_from_ab_preview.
+S={arg(1+$2,16,25,36,49,64,81,100,121,144,169,225,256)} if $S!=w#0 r[0] $S,$S,$S,3,3 fi
+r[0] {0,r=round(whd^0.5);[r,r]},1,3,-1
+rr2d[0] $_preview_area_width,$_preview_area_height,2,1 r2dx. 70%
+sh. 100% b. 1% n. 0,255 rm.
+blend alpha
+}
+file_attr={$1==2?2:1}
+u "{$1}{$2}{$3}_"$file_attr"{$4}_"$file_attr"{$5}"
+_fx_clut_from_ab_preview :
+foreach {
+fact={256/w}
+pointcloud3d +3d 0.5,0.5,0.5 *3d $fact circles3d {1.25*$fact} o3d {0.004*$fact}
+colorcube3d[]
+l. { s3d l.. { s y,6 repeat $! { sh[$>] 4,100%,0,0 /. 1.25 rm. } } a y }
+p3d. 1
+l. { repeat 8 { o={a=$>;0.5*[a&1,(a>>1)&1,(a>>2)&1]} ++3d[0] $o +-3d[0] $o } +3d }
+axes3d 64,64,64,24,R,G,B,0
++3d
+pose3d 1.2451,0.120715,-0.893986,-58.3864,-0.572953,1.28275,-0.62477,-11.6557,0.696784,0.839071,1.08374,-333.008,0,0,217,1
+snapshot3d {max(512,0$_preview_area_width,0$_preview_area_height)},1.22,255,255,255
+autocrop frame 10,10,255
+to_rgba flood 0,0,0,20,1,1,255,255,255,0
+}
+iain_cmyk_tone_p:
+apply_parallel_overlap "iain_cmyk_tone ${1--2}",0,${-1}
+iain_cmyk_tone:
+repeat $! l[$>] split_opacity l[0]
+rgb2cmyk
++split c
++apply_curve[1] 0,0,$1,128,$2,255,$3
++apply_curve[2] 0,0,$4,128,$5,255,$6
++apply_curve[3] 0,0,$7,128,$8,255,$9
++apply_curve[4] 0,0,$10,128,$11,255,$12
+add[-1,-2,-3,-4]
++apply_curve[1] 0,0,$13,128,$14,255,$15
++apply_curve[2] 0,0,$16,128,$17,255,$18
++apply_curve[3] 0,0,$19,128,$20,255,$21
++apply_curve[4] 0,0,$22,128,$23,255,$24
+add[-1,-2,-3,-4]
++apply_curve[1] 0,0,$25,128,$26,255,$27
++apply_curve[2] 0,0,$28,128,$29,255,$30
++apply_curve[3] 0,0,$31,128,$32,255,$33
++apply_curve[4] 0,0,$34,128,$35,255,$36
+add[-1,-2,-3,-4]
++apply_curve[1] 0,0,$37,128,$38,255,$39
++apply_curve[2] 0,0,$40,128,$41,255,$42
++apply_curve[3] 0,0,$43,128,$44,255,$45
++apply_curve[4] 0,0,$46,128,$47,255,$48
+add[-1,-2,-3,-4]
+add[1,5]
+add[2,5]
+add[3,5]
+add[4,5]
+a[-1,-2,-3,-4] c
++sub[0,1]
++cmyk2rgb[0] rgb2hsv[-1] split[-1] c remove[-1,-3] mul[-1] 255
+apply_curve[-1] 0,0,$49,64,$50,128,$51,192,$52,255,$53
+compose_multiply[-1,-2]
++sub[0,-1]
+if $54==0
+cmyk2rgb
+luminance[0]
++luminance[-1]
+compose_grainextract[-1,-2]
+compose_grainmerge[0,-1]
+keep[0]
+fi
+if $54==1
+keep[-1]
+c 0,255
+cmyk2rgb
+fi
+if $54==2
+keep[-1]
+cmyk2rgb
+c 0,255
+fi
+if $54==3
+keep[-1]
+n 0,255
+cmyk2rgb
+fi
+if $54==4
+keep[-1]
+cmyk2rgb
+n 0,255
+fi
+done a c done done
+fx_balance_gamma :
+foreach {
+split_opacity
+if $!>1 +!=. 0 *[0,-1] fi
+l[0] { balance_gamma ${1-3} if $4 n 0,255 fi }
+a c
+}
+fx_balance_gamma_preview :
+gui_split_preview "fx_balance_gamma $*",${-3--1}
+fx_colorblind_preview :
+gui_split_preview "colorblind $*",${-3--1}
+jl_colorgrading :
+if $1>0.01
+map_tones_fast 5%,$1
+fi
+_ystr=""
+if $2>0
+_mymin={$2}
+_mymax={255-$2}
+apply_channels "-apply_curve 0,0,$_mymin,255,255",ycbcr_cr,0
+apply_channels "-apply_curve 0,0,0,255,$_mymax",ycbcr_cb,0
+fi
+if $2<0
+_mymin={-$2}
+_mymax={255+$2}
+apply_channels "-apply_curve 0,0,$_mymin,255,255",ycbcr_cb,0
+apply_channels "-apply_curve 0,0,0,255,$_mymax",ycbcr_cr,0
+fi
+if $3!=1.0
+fx_equalize_s $3,0
+fi
+if $4!=1.0
+apply_channels "-apply_gamma $4",hsv_s,0
+fi
+if $5!=0
+_p1={64-$5}
+_p2={192+$5}
+_ystr=$_ystr" apply_curve 1,0,0,64,$_p1,192,$_p2,255,255"
+fi
+if $6!=0
+_p3={64-$6}
+_ystr=$_ystr" apply_curve 1,0,0,64,$_p3,128,128,192,192,255,255"
+fi
+if $7!=0
+_p4={192+$7}
+_ystr=$_ystr" apply_curve 1,0,0,64,64,128,128,192,$_p4,255,255"
+fi
+if $8>0
+_ystr=$_ystr" apply_curve 1,$8,0,64,64,255,255"
+fi
+if $9>0
+_p5=0
+_ystr=$_ystr" apply_curve 0,0,$9,255,255"
+fi
+if $9<0
+_p5={255+$9}
+_ystr=$_ystr" apply_curve 0,0,0,255,$_p5"
+fi
+if $10>0
+_p6=$10
+_p7={255-$10}
+_ystr=$_ystr" apply_curve 0,0,0,$_p6,0,$_p7,255,255,255"
+fi
+if $10<0
+_p6={-$10}
+_p7={255+$10}
+_ystr=$_ystr" apply_curve 0,0,$_p6,255,$_p7"
+fi
+if $11!=1.0
+_ystr=$_ystr" apply_gamma $11"
+fi
+if '$_ystr'!=0
+apply_channels $_ystr,hsv_v,0
+fi
+if $12>0
+to_rgb +rgb2hsl s. c rm.. rm.. *. 255 apply_curve. 1,0,0,63,0,127,255,192,0,255,0 +unsharp[0] 5%,$12,0 c. 0,255 c.. 0,255 rv[-1,-2] a[-1,-2] c blend alpha
+fi
+if $13>0
+unsharp 1%,$13,0
+c. 0,255
+fi
+if $14
+if $16+$22>360
+_shh={($16+$22-360)/360}
+else
+_shh={($16+$22)/360}
+fi
+_shs={$21/100}
+_shlev={$23}
+_midh={$19/360}
+_mids={$18/100}
+_midlev={$20}
+_highh={$16/360}
+_highs={$15/100}
+_highlev={$17}
+_satlev={$24}
+color_grade $_shh,$_shs,$_shlev,$_midh,$_mids,$_midlev,$_highh,$_highs,$_highlev,$_satlev
+fi
+if $24!=1.0
+fx_equalize_s $24,0
+fi
+if $25>0
+unsharp 0.5,$25
+c 0,255
+fi
+if $26>0
+apply_channels "-denoise_haar $26",ycbcr_cb,0
+apply_channels "-denoise_haar $26",ycbcr_cr,0
+fi
+color_grade :
+_shadownrgb=${-jl_hsv_to_rgb" "$1,1.0,{$2*0.40}}
+_midtonesrgb=${-jl_hsv_to_rgb" "$4,1.0,{$5*0.40}}
+_highlightsrgb=${-jl_hsv_to_rgb" "$7,1.0,{$8*0.40}}
+_crsh=${-arg" 1,"$_shadownrgb}
+_mgsh=${-arg" 2,"$_shadownrgb}
+_ybsh=${-arg" 3,"$_shadownrgb}
+_shlev=$3
+_crmid=${-arg" 1,"$_midtonesrgb}
+_mgmid=${-arg" 2,"$_midtonesrgb}
+_ybmid=${-arg" 3,"$_midtonesrgb}
+_midlev=$6
+_crhigh=${-arg" 1,"$_highlightsrgb}
+_mghigh=${-arg" 2,"$_highlightsrgb}
+_ybhigh=${-arg" 3,"$_highlightsrgb}
+_highlev=$9
+_satlev=$10
+_lowinred=0
+_hiinred=255
+_lowingreen=0
+_hiingreen=255
+_lowinblue=0
+_hiinblue=255
+_gammared=0.
+_gammagreen=0.
+_gammablue=0.
+_lowoutred=0
+_hioutred=255
+_lowoutgreen=0
+_hioutgreen=255
+_lowoutblue=0
+_hioutblue=255
+if $_crmid>0
+_gammared={$_gammared+0.4*$_crmid/100.}
+_gammagreen={$_gammagreen-0.3*$_crmid/100.}
+_gammablue={$_gammablue-0.3*$_crmid/100.}
+fi
+if $_crmid<0
+_gammared={$_gammared+0.3*$_crmid/100.}
+_gammagreen={$_gammagreen-0.4*$_crmid/100.}
+_gammablue={$_gammablue-0.4*$_crmid/100.}
+fi
+if $_mgmid>0
+_gammared={$_gammared-0.3*$_mgmid/100.}
+_gammagreen={$_gammagreen+0.4*$_mgmid/100.}
+_gammablue={$_gammablue-0.3*$_mgmid/100.}
+fi
+if $_mgmid<0
+_gammared={$_gammared-0.4*$_mgmid/100.}
+_gammagreen={$_gammagreen+0.3*$_mgmid/100.}
+_gammablue={$_gammablue-0.4*$_mgmid/100.}
+fi
+if $_ybmid>0
+_gammared={$_gammared-0.3*$_ybmid/100.}
+_gammagreen={$_gammagreen-0.3*$_ybmid/100.}
+_gammablue={$_gammablue+0.4*$_ybmid/100.}
+fi
+if $_ybmid<0
+_gammared={$_gammared-0.4*$_ybmid/100.}
+_gammagreen={$_gammagreen-0.4*$_ybmid/100.}
+_gammablue={$_gammablue+0.3*$_ybmid/100.}
+fi
+_gammared={$_gammared+1.}
+_gammagreen={$_gammagreen+1.}
+_gammablue={$_gammablue+1.}
+if $_midlev>0
+_gammared={$_gammared+0.4*$_midlev/100.}
+_gammagreen={$_gammagreen+0.4*$_midlev/100.}
+_gammablue={$_gammablue+0.4*$_midlev/100.}
+fi
+if $_midlev<0
+_gammared={$_gammared+0.3*$_midlev/100.}
+_gammagreen={$_gammagreen+0.3*$_midlev/100.}
+_gammablue={$_gammablue+0.3*$_midlev/100.}
+fi
+_crsh={$_crsh*0.3}
+_mgsh={$_mgsh*0.3}
+_ybsh={$_ybsh*0.3}
+if $_crsh>0
+_lowingreen={$_lowingreen+$_crsh}
+_lowinblue={$_lowinblue+$_crsh}
+_lowoutred={$_lowoutred+$_crsh}
+else
+_lowinred={$_lowinred-$_crsh}
+_lowoutgreen={$_lowoutgreen-$_crsh}
+_lowoutblue={$_lowoutblue-$_crsh}
+fi
+if $_mgsh>0
+_lowinred={$_lowinred+$_mgsh}
+_lowinblue={$_lowinblue+$_mgsh}
+_lowoutgreen={$_lowoutgreen+$_mgsh}
+else
+_lowingreen={$_lowingreen-$_mgsh}
+_lowoutred={$_lowoutred-$_mgsh}
+_lowoutblue={$_lowoutblue-$_mgsh}
+fi
+if $_ybsh>0
+_lowinred={$_lowinred+$_ybsh}
+_lowingreen={$_lowingreen+$_ybsh}
+_lowoutblue={$_lowoutblue+$_ybsh}
+else
+_lowinblue={$_lowinblue-$_ybsh}
+_lowoutred={$_lowoutred-$_ybsh}
+_lowoutgreen={$_lowoutgreen-$_ybsh}
+fi
+if $_shlev>0
+_lowoutred={$_lowoutred+$_shlev}
+_lowoutgreen={$_lowoutgreen+$_shlev}
+_lowoutblue={$_lowoutblue+$_shlev}
+fi
+if $_shlev<0
+_lowinred={$_lowinred-$_shlev}
+_lowingreen={$_lowingreen-$_shlev}
+_lowinblue={$_lowinblue-$_shlev}
+fi
+_crhigh={$_crhigh*0.3}
+_mghigh={$_mghigh*0.3}
+_ybhigh={$_ybhigh*0.3}
+if $_crhigh>0
+_hiinred={$_hiinred-$_crhigh}
+_hioutgreen={$_hioutgreen-$_crhigh}
+_hioutblue={$_hioutgreen-$_crhigh}
+else
+_hiingreen={$_hiingreen+$_crhigh}
+_hiinblue={$_hiinblue+$_crhigh}
+_hioutred={$_hioutred+$_crhigh}
+fi
+if $_mghigh>0
+_hiingreen={$_hiingreen-$_mghigh}
+_hioutred={$_hioutred-$_mghigh}
+_hioutblue={$_hioutblue-$_mghigh}
+else
+_hiinred={$_hiinred+$_mghigh}
+_hiinblue={$_hiinblue+$_mghigh}
+_hioutgreen={$_hioutgreen+$_mghigh}
+fi
+if $_ybhigh>0
+_hiinblue={$_hiinblue-$_ybhigh}
+_hioutred={$_hioutred-$_ybhigh}
+_hioutgreen={$_hioutgreen-$_ybhigh}
+else
+_hiinred={$_hiinred+$_ybhigh}
+_hiingreen={$_hiingreen+$_ybhigh}
+_hioutblue={$_hioutblue+$_ybhigh}
+fi
+if $_highlev>0
+_hiinred={$_hiinred-$_highlev}
+_hiingreen={$_hiingreen-$_highlev}
+_hiinblue={$_hiinblue-$_highlev}
+fi
+if $_highlev<0
+_hioutred={$_hioutred+$_highlev}
+_hioutgreen={$_hioutgreen+$_highlev}
+_hioutblue={$_hioutblue+$_highlev}
+fi
+levels $_lowinred,$_hiinred,$_gammared,$_lowoutred,$_hioutred,19
+levels $_lowingreen,$_hiingreen,$_gammagreen,$_lowoutgreen,$_hioutgreen,20
+levels $_lowinblue,$_hiinblue,$_gammablue,$_lowoutblue,$_hioutblue,21
+jl_colorgrading_preview :
+gui_split_preview "-jl_colorgrading $*",$-1
+fx_mask_color :
+cs=rgb,rgb_r,rgb_g,rgb_b,lrgb,lrgb_r,lrgb_g,lrgb_b,ycbcr_y,ycbcr_cbcr,ycbcr_cb,ycbcr_cr,ycbcr_cg,lab,lab_l,lab_ab,lab_a,lab_b,lch,lch_c,lch_h,hsv,hsv_h,hsv_s,hsv_v,hsi,hsi_i,hsl,hsl_l,cmyk_c,cmyk_m,cmyk_y,cmyk_k,yiq_y,yiq_iq
+foreach {
+to_rgb nm={n} => ${-gui_layer_name}
++x_mask_color ${arg0\ $1,$cs},$2,$3
+if $4==1 channels. 100% fi
+=> $nm rv
+}
+fx_color_presets :
+category=${arg0\ $1,abigailgonzalez,alexjordan,berat,cinematic,cinematic_travel,creative,editingcorp,ericellerbrock,filtergrade,hollywood,inavision,jtsemple,kylerholland,lutifyme,michaelezra,moviz,ohadperetz,oliviosarikas,on1,picturefx,pixelmator,pixlsus,purple11,rocketstock,shamoonabbasi,smallhd,toddblankenship,youssefhossam,others}
+presets=${-_fx_cluts_$category}
+index={arg(1+$1,${2-30})}
+thumbsize,strength,brightness,contrast,gamma,hue,saturation,normalize=${31-38}
+if $normalize==1" || "$normalize==3
+foreach { split_opacity balance_gamma[0] , a c }
+fi
+if $index>=2
+path_clut=${-path_cache}
+name=${arg0\ $index-2,$presets}
+clut $name,{0$_is_preview" && "!isfile(['{/${path_clut}clut_$name.cimgz}'])?17:48}
+repeat $!-1 { if $strength<100 +map_clut[$>] . j[$>] .,0,0,0,0,{$strength%} rm. else map_clut[$>] . fi }
+rm.
+adjust_colors $brightness,$contrast,$gamma,$hue,$saturation,0,255
+if $normalize==2" || "$normalize==3 foreach { split_opacity n[0] 0,255 a c } fi
+elif $index==1
+adjust_colors $brightness,$contrast,$gamma,$hue,$saturation,0,255
+if $normalize==2" || "$normalize==3 foreach { split_opacity n[0] 0,255 a c } fi
+else
+foreach { if max(w,h)>$thumbsize rr2d $thumbsize,$thumbsize,0,2 fi }
+N=$! +to "Original",1%,1%,7.5%,2
+Np={narg($presets)}
+repeat $Np {
+clut_name=${arg0\ $>,$presets}
+clut $clut_name mv. $N
+repeat $N {
+if $strength<100 [$>] +map_clut. [$N] j.. .,0,0,0,0,{$strength%} rm. else +map_clut[$>] [$N] fi
+adjust_colors. $brightness,$contrast,$gamma,$hue,$saturation,0,255
+if $normalize==2" || "$normalize==3 l. { split_opacity n[0] 0,255 a c } fi
+strcapitalize $clut_name clut_name=${}
+to. $clut_name,0.01~,0.01~,7.5%,2
+}
+rm[$N]
+progress {$>*100/($Np-1)}
+}
+k[$N--1] frame 1,1,0,0,0,255 - 128 append_tiles {s=floor(sqrt($!));w>h?[s,0]:[0,s]} + 128
+fi
+fx_color_presets_preview :
+_is_preview=1
+index={arg(1+$1,${2-30})}
+if !$index gui_warning_preview "Preview disabled in 'Collage' mode"
+else gui_split_preview "fx_color_presets $*",${39-41}
+fi
+u "{$1}{$2}_"{2*($1==0)}"{$3}_"{2*($1==1)}"{$4}_"{2*($1==2)}"{$5}_"{2*($1==3)}"{$6}_"{2*($1==4)}"{$7}_"{2*($1==5)}"{$8}_"{2*($1==6)}"{$9}_"{2*($1==7)}"{$10}_"{2*($1==8)}"{$11}_"{2*($1==9)}"{$12}_"{2*($1==10)}"{$13}_"{2*($1==11)}"{$14}_"{2*($1==12)}"{$15}_"{2*($1==13)}"{$16}_"{2*($1==14)}"{$17}_"{2*($1==15)}"{$18}_"{2*($1==16)}"{$19}_"{2*($1==17)}"{$20}_"{2*($1==18)}"{$21}_"{2*($1==19)}"{$22}_"{2*($1==20)}"{$23}_"{2*($1==21)}"{$24}_"{2*($1==22)}"{$25}_"{2*($1==23)}"{$26}_"{2*($1==24)}"{$27}_"{2*($1==25)}"{$28}_"{2*($1==26)}"{$29}_"{2*($1==27)}"{$30}_"{2*($1==28)}"{$31}_"{1+!$index}"{$32}{$33}{$34}{$35}{$36}{$37}{$38}{$39}{$40,$41}""{0}_"{2*($1!=28)}"{0}_"{2*($1==0)}"{0}_"{2*($1==1)}"{0}_"{2*($1==2)}"{0}_"{2*($1==3)}"{0}_"{2*($1==4)}"{0}_"{2*($1==5)}"{0}_"{2*($1==6)}"{0}_"{2*($1==7)}"{0}_"{2*($1==8)}"{0}_"{2*($1==9)}"{0}_"{2*($1==10)}"{0}_"{2*($1==11)}"{0}_"{2*($1==12)}"{0}_"{2*($1==13)}"{0}_"{2*($1==14)}"{0}_"{2*($1==15)}"{0}_"{2*($1==16)}"{0}_"{2*($1==17)}"{0}_"{2*($1==18)}"{0}_"{2*($1==19)}"{0}_"{2*($1==20)}"{0}_"{2*($1==21)}"{0}_"{2*($1==22)}"{0}_"{2*($1==23)}"{0}_"{2*($1==24)}"{0}_"{2*($1==25)}"{0}_"{2*($1==26)}"{0}_"{2*($1==27)}"{0}"
+_fx_cluts_abigailgonzalez :
+u blade_runner,blue_house,blue_ice,caribe,cinema,cinema_2,cinema_3,cinema_4,cinema_5,cinema_noir,cinematic_for_flog,day_4nite,eterna_for_flog,filmic,fuji_hdr,goldengate,matrix,monochrome_1,monochrome_2,old_west,science_fiction
+_fx_cluts_alexjordan :
+u action_magenta_01,action_red_01,adventure_1453,agressive_highligjtes_recovery_5,bleech_bypass_green,bleech_bypass_yellow_01,blue_dark,blue_shadows_01,bright_green_01,brownish,colorful_0209,conflict_01,contrast_with_highlights_protection,contrasty_afternoon,contrasty_green,cross_process_cp_130,cross_process_cp_14,cross_process_cp_15,cross_process_cp_16,cross_process_cp_18,cross_process_cp_3,cross_process_cp_4,cross_process_cp_6,dark_green_02,dark_green_1,dark_place_01,dream_1,dream_85,faded_retro_01,faded_retro_02,film_0987,film_9879,film_high_contrast,flat_30,green_2025,green_action,green_afternoon,green_conflict,green_day_01,green_day_02,green_g_09,green_indoor,green_light,harsh_day,harsh_sunset,highlights_protection,indoor_blue,low_contrast_blue,low_key_01,magenta_day,magenta_day_01,magenta_dream,memories,moonlight_01,mostly_blue,muted_01,night_01,only_red,only_red_and_blue,operation_yellow,orange_dark_4,orange_dark_7,orange_dark_look,orange_underexposed,protect_highlights_01,red_afternoon_01,red_day_01,red_dream_01,retro_brown_01,retro_magenta_01,retro_yellow_01,saturated_blue,smart_contrast,subtle_blue,subtle_green,yellow_55b,yellow_film_01
+_fx_cluts_berat :
+u brownbm,cineblue,cinebm4k,goldentime,green_and_orange,monochrome,sevsuz,sunlightlove,western,westernlut2
+_fx_cluts_cinematic :
+u deep,dimension,enchanted,flavin,frosted,shine,ultra_water,wipe
+_fx_cluts_cinematic_travel :
+u blue_cold_fade,bright_teal_orange,bright_warm,clear_teal_fade,cold_clear_blue,cold_clear_blue_1,deep_blue,deep_dark_warm,deep_high_contrast,deep_teal_fade,deep_warm_fade,faded_green,greenish_contrasty,greenish_fade,greenish_fade_1,hard_teal_orange,neutral_teal_orange,neutral_warm_fade,smooth_clear,smooth_green_orange,smooth_teal_orange,teal_fade,very_warm_greenish,warm_dark_contrasty,warm_fade,warm_fade_1,warm_neutral,warm_sunset_red,warm_teal
+_fx_cluts_creative :
+u anime,bleachbypass_1,bleachbypass_2,bleachbypass_3,bleachbypass_4,candlelight,colornegative,crispwarm,crispwinter,dropblues,edgyember,fallcolors,foggynight,futuristicbleak_1,futuristicbleak_2,futuristicbleak_3,futuristicbleak_4,horrorblue,latesunset,moonlight,nightfromday,redblueyellow,smokey,softwarming,tealmagentagold,tealorange,tealorange_1,tealorange_2,tealorange_3,tensiongreen_1,tensiongreen_2,tensiongreen_3,tensiongreen_4
+_fx_cluts_editingcorp :
+u ampio,asistas,atusa,basuco,beati,bisogno,boyado,calidum,colore,convold,cosa,culor,dimmer,ensaya,falua,farkling,fatos,fezzle,filo,foresta,huesio,husmes,huyan,ideo,jarklin,lavark,levex,litore,loro,lotta,maesky,mercato,molti,motus,mucca,nigrum,onda,padre,partia,perso,picola,randas,satid,scala,scrittle,seges,selor,sensum,sino,soldi,strano,stringa,tirare,tutto,upglow,valize,valsky,vita,vubes,wavefire
+_fx_cluts_ericellerbrock :
+u avalanche,black_star,helios,hydracore,hypnosis,killstreak,nemesis,night_blade_4,paladin,seringe_4,serpent,terra_4,victory,yellowstone
+_fx_cluts_filtergrade :
+u fgcinebasic,fgcinebright,fgcinecold,fgcinedrama,fgcinetealorange_1,fgcinetealorange_2,fgcinevibrant,fgcinewarm
+_fx_cluts_hollywood :
+u 12_years_a_slave,1917,ad_astra,aladdin,ant-man,aquaman,avengers_endgame,baby_driver,bad_boys_for_life,beauty_and_the_beast,black_panther,bohemian_rhapsody,bombshell,captain_marvel,city_of_god,creed_2,doctor_strange,dunkirk,fight_club,ford_v_ferrari,green_book,greyhound,i_tonya,inception,jojo_rabbit,joker,jumanji_the_next_level,jurassic_world_fallen_kingdom,justice_league,kingsman_the_golden_circle,knives_out,la_la_land,little_women,logan,mad_max_fury_road,marriage_story,moonlight_2,mother!,no_time_to_die,once_upon_a_time_in_hollywood,parasite,pirates_of_the_caribbean,rocketman,separation,sicario,spider-man_far_from_home,spotlight,star_wars_the_rise_of_skywalker,sully,tenet,the_dark_knight,the_darkest_hour,the_gentelmen,the_grand_budapest_hotel,the_hurt_locker,the_irishman,the_lighthouse,the_lobster,the_martian,the_revenant,the_shape_of_water,the_social_network,the_two_popes,the_way_back,thor_ragnarok,top_gun_maverick,uncut_gems,underwater,venom,war_for_the_planet_of_the_apes,wolf_of_wall_street,wonder_woman,x-men_dark_phoenix,zombieland_double_tap
+_fx_cluts_inavision :
+u 7drk_21,bc_darkum,brown_mobster,cold_ice,dark_man_x,film_gb-19,formula_b,gremerta,hitman,jwick_21,london_nights,louetta,nightlife,vfb_21,vintage_mob
+_fx_cluts_jtsemple :
+u brightgreen,crispromance,crushin,frostedbeachpicnic,justpeachy,lateafternoonwanderlust,lushgreensummer,magentacoffee,minimalistcaffeination,mysticpurplesunset,nostalgiahoney,springmorning,toastedgarden,winterlighthouse
+_fx_cluts_kylerholland :
+u kh1,kh2,kh3,kh4,kh5,kh6,kh7,kh8,kh9,kh10
+_fx_cluts_lutifyme :
+u hackmanite,herderite,heulandite,hiddenite,hilutite,howlite,hypersthene
+_fx_cluts_michaelezra :
+u deepskintones2,deepskintones3
+_fx_cluts_moviz :
+u moviz_1,moviz_2,moviz_3,moviz_4,moviz_5,moviz_6,moviz_7,moviz_8,moviz_9,moviz_10,moviz_11,moviz_12,moviz_13,moviz_14,moviz_15,moviz_16,moviz_17,moviz_18,moviz_19,moviz_20,moviz_21,moviz_22,moviz_23,moviz_24,moviz_25,moviz_26,moviz_27,moviz_28,moviz_29,moviz_30,moviz_31,moviz_32,moviz_33,moviz_34,moviz_35,moviz_36,moviz_37,moviz_38,moviz_39,moviz_40,moviz_41,moviz_42,moviz_43,moviz_44,moviz_45,moviz_46,moviz_47,moviz_48
+_fx_cluts_ohadperetz :
+u cold_simplicity_2,d_o_1,retro_summer_3,subtle_yellow,teal_moonlight,true_colors_8,vintage_warmth_1
+_fx_cluts_oliviosarikas :
+u analog_film_1,atomic_pink,beach_aqua_orange,beach_faded_analog,bw_but_yellow,city_dust,dark_orange_teal,day_to_night_kings_blue,duotone_blue_red,faded_pink-ish,flat_blue_moon,honey_light,infrared_-_dust_pink,neutral_pump,shade_kings_ink,sunset_aqua_orange,sunset_intense_violet_blue,sunset_violet_mood,violet_taste
+_fx_cluts_on1 :
+u 2-strip-process,aqua,aqua_and_orange_dark,berlin_sky,blues,bw_1,bw_2,bw_3,bw_4,bw_5,bw_6,bw_7,bw_8,bw_9,bw_10,chrome_01,cinematic-1,cinematic-2,cinematic-3,cinematic-4,cinematic-5,cinematic-6,cinematic-7,cinematic-8,cinematic-9,cinematic-10,classic_teal_and_orange,earth_tone_boost,fade_to_green,film_print_01,film_print_02,french_comedy,green_blues,green_yellow,landscape_1,landscape_2,landscape_3,landscape_4,landscape_5,landscape_6,landscape_7,landscape_8,landscape_9,landscape_10,lc_1,lc_2,lc_3,lc_4,lc_5,lc_6,lc_7,lc_8,lc_9,lc_10,moody_1,moody_2,moody_3,moody_4,moody_5,moody_6,moody_7,moody_8,moody_9,moody_10,nw-1,nw-2,nw-3,nw-4,nw-5,nw-6,nw-7,nw-8,nw-9,nw-10,oranges,portrait_1,portrait_2,portrait_3,portrait_4,portrait_5,portrait_6,portrait_7,portrait_8,portrait_9,portrait_10,purple_2,reds,reds_oranges_yellows,studio_skin_tone_shaper,vintage_chrome
+_fx_cluts_picturefx :
+u analogfx_anno_1870_color,analogfx_old_style_i,analogfx_old_style_ii,analogfx_old_style_iii,analogfx_sepia_color,analogfx_soft_sepia_i,analogfx_soft_sepia_ii,faux_infrared_bw_1,faux_infrared_color_p2,faux_infrared_color_p3,faux_infrared_color_r0a,faux_infrared_color_r0b,faux_infrared_color_yp1,goldfx_bright_spring_breeze,goldfx_bright_summer_heat,goldfx_hot_summer_heat,goldfx_perfect_sunset_01min,goldfx_perfect_sunset_05min,goldfx_perfect_sunset_10min,goldfx_spring_breeze,goldfx_summer_heat,technicalfx_backlight_filter,zilverfx_bw_solarization,zilverfx_infrared,zilverfx_vintage_bw
+_fx_cluts_pixelmator :
+u black_white_01,black_white_02,black_white_03,black_white_04,black_white_05,black_white_06,pmcinematic_01,pmcinematic_02,pmcinematic_03,pmcinematic_04,pmcinematic_05,pmcinematic_06,pmcinematic_07,classic_films_01,classic_films_02,classic_films_03,classic_films_04,classic_films_05,landscape_01,landscape_02,landscape_03,landscape_04,landscape_05,modern_films_01,modern_films_02,modern_films_03,modern_films_04,modern_films_05,modern_films_06,modern_films_07,pmnight_01,pmnight_02,pmnight_03,pmnight_04,pmnight_05,urban_01,urban_02,urban_03,urban_04,urban_05,vintage_01,vintage_02,vintage_03,vintage_04,vintage_05
+_fx_cluts_pixlsus :
+u amstragram,amstragram+,autumn,cinematic_lady_bird,cinematic_mexico,dark_blues_in_sunlight,delicatessen,expired_69,fadedlook,faded_print,hypressen,magenta_yellow,metropolis,modern_film,newspaper,night_spy,progressen,prussian_blue,seventies_magazine,street,sweet_bubblegum,sweet_gelatto,taiga,tarraco,unknown,uzbek_bukhara,uzbek_marriage,uzbek_samarcande,velvetia,warm_vintage,whiter_whites
+_fx_cluts_purple11 :
+u good_morning,going_for_a_walk,nah,once_upon_a_time,serenity,passing_by,smooth_sailing,undeniable,undeniable2,urban_cowboy,well_see,you_can_do_it
+_fx_cluts_rocketstock :
+u arabica_12,ava_614,azrael_93,bourbon_64,byers_11,chemical_168,clayton_33,clouseau_54,cobi_3,contrail_35,cubicle_99,django_25,domingo_145,faded_47,folger_50,fusion_88,hyla_68,korben_214,lenox_340,lucky_64,mckinnon_75,milo_5,neon_770,paladin_1875,pasadena_21,pitaya_15,reeve_38,remy_24,sprocket_231,teigen_28,trent_18,tweed_71,vireo_37,zed_32,zeke_39
+_fx_cluts_shamoonabbasi :
+u city_7,coffee_44,date_39,day_for_night,denoiser_simple_40,desert_gold_37,directions_23,drop_green_tint_14,elegance_38,golden_night_softner_43,golden_sony_37,green_15,happyness_133,hlg_1_1,industrial_33,morning_6,morroco_16,night_king_141,rest_33,shadow_king_39,spy_29,thriller_2,turkiest_42,vintage_163,wooden_gold_20
+_fx_cluts_smallhd :
+u apocalypse_this_very_moment,bboyz_2,bob_ford,life_giving_tree,moonrise,saving_private_damon,the_matrices
+_fx_cluts_others :
+u 60s,60s_faded,60s_faded_alt,alien_green,black_and_white,bleach_bypass,blue_mono,cinematic_01,cinematic_02,cinematic_03,color_rich,faded,faded_alt,faded_analog,faded_extreme,faded_vivid,expired_fade,expired_polaroid,extreme,fade,faux_infrared,golden,golden_bright,golden_fade,golden_mono,golden_vibrant,green_mono,hong_kong,instantc,k_tone_vintage_kodachrome,light_blown,lomo,mono_tinted,muted_fade,mute_shift,natural_vivid,nostalgic,orange_tone,pink_fade,purple,retro,rotate_muted,rotate_vibrant,rotated,rotated_crush,smooth_cromeish,smooth_fade,soft_fade,solarized_color,solarized_color_2,summer,summer_alt,sunny,sunny_alt,sunny_warm,sunny_rich,super_warm,super_warm_rich,sutro_fx,vibrant,vibrant_alien,vibrant_contrast,vibrant_cromeish,vintage,vintage_alt,vintage_brighter,warm,warm_highlight,warm_yellow
+_fx_cluts_toddblankenship :
+u bluearchitecture,bluehour,coldchrome,crispautumn,darkandsomber,hardboost,longbeachmorning,lushgreen,magichour,naturalboost,orangeandblue,softblackandwhite,waves
+_fx_cluts_youssefhossam :
+u cinematic_forest,city,darkness,hallowen_dark,sea
+fx_tk_colortemp :
+repeat $! l[$>] if $2==1 +luminance. to_rgb..
+s.. c avb={-2,127.5-ia} avg={-3,127.5-ia} avr={-4,127.5-ia}
++[-4] $avr +... $avg +.. $avb a[-4,-3,-2] c rv compose_luminance fi
+fx_mix_lab 1,0,0,1,{if({$1>=0},{$1/4},{$1*0.75})},0,1,$1,0,0,2,0 done done
+fx_tk_colortemp_preview :
+gui_split_preview "fx_tk_colortemp ${1--2}",$-1
+fx_colorful_blobs :
+N=12
+colorspace,bgR,bgG,bgB,bgA,display_controls,x0,y0,rx0,ry0,R0,G0,B0,p_x0,p_y0,p_rx0,p_ry0,x1,y1,rx1,ry1,R1,G1,B1,p_x1,p_y1,p_rx1,p_ry1,x2,y2,rx2,ry2,R2,G2,B2,p_x2,p_y2,p_rx2,p_ry2,x3,y3,rx3,ry3,R3,G3,B3,p_x3,p_y3,p_rx3,p_ry3,x4,y4,rx4,ry4,R4,G4,B4,p_x4,p_y4,p_rx4,p_ry4,x5,y5,rx5,ry5,R5,G5,B5,p_x5,p_y5,p_rx5,p_ry5,x6,y6,rx6,ry6,R6,G6,B6,p_x6,p_y6,p_rx6,p_ry6,x7,y7,rx7,ry7,R7,G7,B7,p_x7,p_y7,p_rx7,p_ry7,x8,y8,rx8,ry8,R8,G8,B8,p_x8,p_y8,p_rx8,p_ry8,x9,y9,rx9,ry9,R9,G9,B9,p_x9,p_y9,p_rx9,p_ry9,x10,y10,rx10,ry10,R10,G10,B10,p_x10,p_y10,p_rx10,p_ry10,x11,y11,rx11,ry11,R11,G11,B11,p_x11,p_y11,p_rx11,p_ry11=$*
+if !0$_is_preview display_controls=0 fi
+if $1==1 srgb2cs=srgb2rgb cs2srgb=rgb2srgb
+elif $1==2 srgb2cs=srgb2lab cs2srgb=lab2srgb
+fi
+{0,s=min(w,h);[s,s]},1,4 k. 100%,100%,1,1,1e-8
+repeat $N {
+rx$>,ry$>={"P = ["${x$>},${y$>}"];
+R = ["${rx$>},${ry$>}"];
+oP = ["${p_x$>},${p_y$>}"];
+oP==[-1,-1]?P + [10,0]:P!=oP?R + P - oP:R"}
+if !isnan(${x$>})
+x,y,rx,ry,R,G,B={"const w1 = (w - 1)%; const h1 = (h -1)%; "round([${x$>}*w1,${y$>}*h1,${rx$>}*w1,${ry$>}*h1,${R$>},${G$>},${B$>}])}
+r={max(1,round(norm($x-$rx,$y-$ry)))}
+if $1 ($R^$G^$B) $srgb2cs. R,G,B={^} rm. fi
+f. "*
+pexp(x) = x<2?(res = 1; px = x^2; res+=-1.17282*px; px*=x; res+=0.683221*px; px*=x; res+=-0.110353*px):0;
+const r = 1.2*"($r)";
+dist = norm(x-"$x",y-"$y")/r;
+w = pexp(dist);
+j(#0,0,0,0) += w*"$R";
+j(#0,0,0,0,1) += w*"$G";
+j(#0,0,0,0,2) += w*"$B";
+i + w;
+"
+fi
+}
+sh[0] 0,2 /. [1] if $1 $cs2srgb. fi
+f[0] "*begin(bg = [ "$bgR,$bgG,$bgB,$bgA" ]); i(#1)<0.5?bg:[R,G,B,255]" k[0]
+repeat $N {
+if !isnan(${x$>})" && "$display_controls
+x,y,rx,ry,R,G,B={"const w1 = (w - 1)%; const h1 = (h -1)%; "round([${x$>}*w1,${y$>}*h1,${rx$>}*w1,${ry$>}*h1,${R$>},${G$>},${B$>}])}
+circle $x,$y,3,0.85,0xFFFFFFFF,{v=avg(crop($x-3,$y-3,7,7))>128?0:255;[v,v,v,255]}
+rectangle {"const x = "$rx"; const y = "$ry"; [x-2,y-2,x+2,y+2]"},0.85,0xFFFFFFFF,{v=avg(crop($rx-3,$ry-3,7,7))>128?0:255;[v,v,v,255]}
+line $x,$y,$rx,$ry,0.5,0xF0F0F0F0,255 line $x,$y,$rx,$ry,0.5,0x0F0F0F0F,0,0,0,255
+fi
+}
+if 0$_is_preview
+u \{$colorspace\}\{$bgR,$bgG,$bgB,$bgA\}\{$display_controls\}\{$x0,$y0\}\{$rx0,$ry0\}\{$R0,$G0,$B0\}\{$x0,$y0,$rx0,$ry0\}\{$x1,$y1\}\{$rx1,$ry1\}\{$R1,$G1,$B1\}\{$x1,$y1,$rx1,$ry1\}\{$x2,$y2\}\{$rx2,$ry2\}\{$R2,$G2,$B2\}\{$x2,$y2,$rx2,$ry2\}\{$x3,$y3\}\{$rx3,$ry3\}\{$R3,$G3,$B3\}\{$x3,$y3,$rx3,$ry3\}\{$x4,$y4\}\{$rx4,$ry4\}\{$R4,$G4,$B4\}\{$x4,$y4,$rx4,$ry4\}\{$x5,$y5\}\{$rx5,$ry5\}\{$R5,$G5,$B5\}\{$x5,$y5,$rx5,$ry5\}\{$x6,$y6\}\{$rx6,$ry6\}\{$R6,$G6,$B6\}\{$x6,$y6,$rx6,$ry6\}\{$x7,$y7\}\{$rx7,$ry7\}\{$R7,$G7,$B7\}\{$x7,$y7,$rx7,$ry7\}\{$x8,$y8\}\{$rx8,$ry8\}\{$R8,$G8,$B8\}\{$x8,$y8,$rx8,$ry8\}\{$x9,$y9\}\{$rx9,$ry9\}\{$R9,$G9,$B9\}\{$x9,$y9,$rx9,$ry9\}\{$x10,$y10\}\{$rx10,$ry10\}\{$R10,$G10,$B10\}\{$x10,$y10,$rx10,$ry10\}\{$x11,$y11\}\{$rx11,$ry11\}\{$R11,$G11,$B11\}\{$x11,$y11,$rx11,$ry11\}
+fi
+fx_colorful_blobs_preview :
+_is_preview=1
+rm {s=min($_preview_area_width,$_preview_area_height)/2;[s,s]},1,1
+fx_colorful_blobs $*
+fx_colormap :
+foreach {
+split_opacity to_rgb[0]
+if $1>=2
+index[0] {$1-2},$2,1
+elif $1==1
+(${5-28}) z. 0,{3*$4-1}
+r. 3,{w/3},1,1,-1 permute. yzcx r. $3,1,1,3,3
+index[0] .,$2,1 rm.
+else
+autoindex[0] $3,$2,{if($3<=32,1,0)}
+fi
+a c
+}
+fx_colormap_preview :
+gui_split_preview "fx_colormap $*",${-3--1}
+is_ad,is_cu={2*[$1==0||$1==1,$1==1]}
+u "{$1}{$2}""{$3}_"$is_ad"{$4}_"$is_cu"{${5-7}}_"$is_cu"{${8-10}}_"$is_cu"{${11-13}}_"$is_cu"{${14-16}}_"$is_cu"{${17-19}}_"$is_cu"{${20-22}}_"$is_cu"{${23-25}}_"$is_cu"{${26-28}}_"$is_cu"{$29}{$30,$31}"
+#@cli afre_contrast : -200<=amount<=200
+#@cli : Enhance luminance contrast.
+#@cli : Default value: 'amount=50'.
+afre_contrast : check "${1=50}>=-200 && $1<=200"
+if !$1 return fi e[] "[afre]^_^) contrast: Enhance luminance contrast of image$? using amount=$1."
+repeat $! l[$>] r={[im,iM]} . afre_orien.. 1
+. +n. 0,1 f. "begin(const A=ia; const P=2^($1/100));
+if(i "Color curves"
+repeat 4 { __xcc_C$>=0,0,100,100 }
+if $4==$1 l[] { ($5) s -,-1 repeat $! { __xcc_C$>={$>,^} } rm } fi
+if $3
+_xcc_colorbase=${arg\ {$4+1},rgb,cmy,cmyk,hsi,hsl,hsv,lab,lch,ycbcr} x_color_curves last
+else
+x_color_curves ${arg\ {$1+1},rgb,cmy,cmyk,hsi,hsl,hsv,lab,lch,ycbcr}
+u "{$1}{$2}{$3}{$1}{"$__xcc_C0,-1,$__xcc_C1,-1,$__xcc_C2,-1,$__xcc_C3,-1,$__xcc_C4"}"
+fi
+if $2
+(0,255) (0;255) (0/255) r[-3--1] 2,2,2 a[-3--1] c
+if $2==2 r. 256,256,256,3,3 r. 4096,4096,1,3,-1
+else r. 64,64,64,3,3 r. 512,512,1,3,-1
+fi
+x_color_curves. last
+fi
+fx_curves_interactive_preview :
+fx_curves_interactive $1,0,1,$4,"$5"
+fx_customize_clut :
+if !narg($_N) N=64 else N=$_N fi N1={$N-1}
+$N,$N,$N,4
+if $2
+uniform_distribution {(1+$2)^3},3
+repeat w { point.. {round($N1*I[$>])},1,{255*I[$>]},1 } rm.
+fi
+$=arg
+repeat 24 {
+mode=${arg{13+7*$<}}
+if $mode
+sr=${arg{14+7*$<}} sg=${arg{15+7*$<}} sb=${arg{16+7*$<}}
+tr=${arg{17+7*$<}} tg=${arg{18+7*$<}} tb=${arg{19+7*$<}}
+xyz={round(($N1/255)*[$sr,$sg,$sb])}
+point. $xyz,1,{$mode==2?[$tr,$tg,$tb]:[$sr,$sg,$sb]},1
+fi
+}
+s c,-3
+if $1<100
++distance. 1
+if $1 ^. {1/(0.05+4*$1%)} else f. 0 fi
+n. 0,1 => influence mv. -3
+fi
+==. 0 inpaint_pde.. .,100%,1,20 rm. c. 0,255
+if $influence
+100%,100%,100%,3,[x,y,z] n. 0,255
+j. ..,0,0,0,0,1,...
+rm[-3,-2]
+fi
+if !$3 map_clut[^-1] .
+else repeat $!-1 {
++luminance[$>] +map_clut[$>] .. -. [$>]
+repeat $3 { guided. ..,2,50 } +[$>,-1] rm.
+} fi
+adjust_colors ${4-8},0,255
+if $9 foreach { split_opacity n[0] 0,255 a c } fi
+if $10
+if $10==2 r. 256,256,256,3,5 c. 0,255 fi
+siz={w^1.5} r. $siz,$siz,1,3,-1
+mv. 0
+else rm.
+fi
+fx_customize_clut_preview :
+if $11<7 gui_split_preview "fx_customize_clut ${1-9},0,0,${12--1}",$11
+elif $11==7
+rm fx_customize_clut ${1-9},1,0,${12--1}
+elif $11>=8
+_N={$11>=9?64:32}
+k[0] to_rgb w={w} h={h}
++fx_customize_clut ${1-9},1,0,${12--1} mv. 1
+r. $_N,$_N,$_N,3,-1 pointcloud3d. o3d. $12
+l[] {
+if $2
+uniform_distribution {(1+$2)^3},3
+repeat w { circle3d {0,round($_N*I[$>])},0.75 col3d. {0,255*I[$>]} } rm[0]
+fi
+$=arg
+repeat 24 {
+mode=${arg{13+7*$<}}
+if $mode
+sr=${arg{14+7*$<}} sg=${arg{15+7*$<}} sb=${arg{16+7*$<}}
+tr=${arg{17+7*$<}} tg=${arg{18+7*$<}} tb=${arg{19+7*$<}}
+xy={round(($_N/255)*[$sr,$sg])}
+z={round(($_N/255)*$sb)-0.1}
+circle3d $xy,$z,0.75 col3d. {$mode==2?[$tr,$tg,$tb]:[$sr,$sg,$sb]}
+fi
+}
+colorcube3d *3d. {$_N/255} o3d. 0.5 col3d. 0 p3d. 1
+}
++3d[2--1]
+pose3d. 5.10656,2.04904,2.723,-316.115,-0.0815767,4.97762,-3.59262,-41.7094,-3.40685,2.95212,4.16756,-118.811,0,0,203,1
+if $w>$h
+r2dx[0,1] {0,round(w/2)}
+to[0] "Before",2,0,13,1,0.75
+to[1] "After",2,0,13,1,0.75
+a[0,1] y r[0] 100%,$h,1,3,0
+else
+r2dy[0,1] {0,round(h/2)}
+to[0] "Before",2,0,13,1,0.75
+to[1] "After",2,0,13,1,0.75
+a[0,1] x r[0] $w,100%,1,3,0
+fi
+snapshot3d. {0,1.1*min(w,h)},1.2,64,64,64
+autocrop. -. 64 r. {0,max(w,$w-w)},{0,max(h,$h-h)},1,3,0,0,0.5,0.5 +. 64
+to. "RGB CLUT",2,0,13,1,0.75
+a {`$w>$h?_'x':_'y'`}
+fi
+#@cli afre_darksky : blend={ 0=softlight | 1=overlay },-100<=_contrast<=100,_smooth_method={ 0=fast_approx | 1=slow_accurate },0<=_smooth_radius<=3
+#@cli : Enhance landscape by darkening the sky.
+#@cli : Default values: 'blend=0', 'contrast=0', 'smooth_method=0' and 'smooth_radius=0'.
+afre_darksky : check "isbool(${1=0}) && ${2=0}>=-100 && isbool(${3=0}) && ${4=0}>=0 && $2<=100 && $4<=3"
+b=${arg\ 1+$1,softlight,overlay} m=${arg\ 1+$3,fast,slow} rd={int($4)} e[] "[afre]^_^) darksky: Darken sky of image$? using blend="$b", contrast=$2, smooth_method="$m" and smooth_radius="$rd"."
+repeat $! l[$>] if s<3||s>4 error[] "\n[afre]>_<) darksky: Select RGB images." fi done done
+repeat $! l[$>] r0={[im,iM]} n 0,255 +channels 1 +channels.. 2 -[^0]
+if $rd&&$3 afre_gui0_fast. $rd,1e0 elif $rd r1={[im,iM]}
+median. {$rd*2+1} n. $r1 fi c. 0%,0 +. 127 afre_contrast. {$2}
++afre_y50.. 1 r1={[im,iM]} afre_orien[0] 1 if $1 blend. ..,$b rm..
+else l[-2--1] rv afre_softlight 100 done fi n. $r1 *
+n $r0 done done
+afre_darksky_preview :
+afre_darksky $*
+fx_decompose_channels :
+if !$2
+if $4 to_rgba else to_rgb fi
+foreach {
+nm={n}
+split_opacity
+_s3=A _s4=A
+_fx_decompose_channels$1[0]
+s[0] c
+if !$3 a x => $nm
+else nm=${-gui_layer_name} repeat $! { gui_set_layer_name[$>] {``$nm}" ["${_s$>}"]" }
+fi
+}
+else
+channels 0 nbc={3+($1==10)} nb={$nbc+$4}
+if $3 repeat int($!/$nb) { l[0-{$nb-1}] {
+a[0-{$nbc-1}] c _fx_recompose_channels$1[0] a c
+} mv. 0 }
+else foreach { s x,$nb a[0-{$nbc-1}] c _fx_recompose_channels$1[0] a c }
+fi
+fi
+fx_decompose_channels_preview :
+foreach {
+_s3=A _s4=A
+fx_decompose_channels $1,$2,1,$4
+if !$2
+fs={round(min(w,h)*15%)}
+repeat $! { to[$>] ${_s$>},5,3,$fs,{max(2,round($fs/15))} }
+to_rgba
+fi
+}
+append_tiles ,
+_fx_decompose_channels0 : _s0=R _s1=G _s2=B
+_fx_decompose_channels1 : rgb2hsv8 _s0=H _s1=S _s2=V
+_fx_decompose_channels2 : rgb2hsl8 _s0=H _s1=S _s2=L
+_fx_decompose_channels3 : rgb2hsi8 _s0=H _s1=S _s2=I
+_fx_decompose_channels4 : rgb2yuv8 _s0=Y _s1=U _s2=V
+_fx_decompose_channels5 : rgb2ycbcr _s0=Y _s1=Cb _s2=Cr
+_fx_decompose_channels6 : rgb2xyz8 _s0=X _s1=Y _s2=Z
+_fx_decompose_channels7 : rgb2lab8 _s0=L _s1=a _s2=b
+_fx_decompose_channels8 : rgb2lch8 _s0=L _s1=c _s2=h
+_fx_decompose_channels9 : rgb2cmy _s0=C _s1=M _s2=Y
+_fx_decompose_channels10 : rgb2cmyk _s0=C _s1=M _s2=Y _s3=K
+_fx_decompose_channels11 : rgb2yiq8 _s0=Y _s1=I _s2=Q
+_fx_recompose_channels0 :
+_fx_recompose_channels1 : hsv82rgb
+_fx_recompose_channels2 : hsl82rgb
+_fx_recompose_channels3 : hsi82rgb
+_fx_recompose_channels4 : yuv82rgb
+_fx_recompose_channels5 : ycbcr2rgb
+_fx_recompose_channels6 : xyz82rgb
+_fx_recompose_channels7 : lab82rgb
+_fx_recompose_channels8 : lch82rgb
+_fx_recompose_channels9 : cmy2rgb
+_fx_recompose_channels10 : cmyk2rgb
+_fx_recompose_channels11 : yiq82rgb
+fx_detect_skin :
+to_rgb
+m "_fx_detect_skin :
+if $5 balance_gamma 128,128,128 fi
+if $1 detect_skin $2 else detect_skin $2,$6%,$7%,$8% fi
+M={iM} b $3% * {255*$M/iM} * $4 c 0,255"
+foreach {
+if $9
++_fx_detect_skin a c
+if $9>1 sh 100% *. -1 +. 255 rm. fi
+else _fx_detect_skin
+fi
+}
+um _fx_detect_skin
+fx_detect_skin_preview :
+gui_split_preview "fx_detect_skin $*",${-3--1}
+to_rgba
+if !$1
+circle $6%,$7%,$8%,0.3,0,255,0,255
+circle $6%,$7%,$8%,1,0xFFFFFFFF,0,255,0,255
+line {$6-0.25*$8}%,{$7-0.25*$8}%,{$6+0.25*$8}%,{$7+0.25*$8}%,1,255,255,0,255
+line {$6+0.25*$8}%,{$7-0.25*$8}%,{$6-0.25*$8}%,{$7+0.25*$8}%,1,255,255,0,255
+fi
+fx_equalize_hsv :
+cs=${"arg0 $1,hsi,hsl,hsv"}
+foreach {
+split_opacity l[0] {
+to_rgb
+9,1,1,4,{"V = [${6-30:3}]*pi/180; [cos(V),sin(V)]"},${7-31:3},{"V = [${8-32:3}];
+const sV = size(V);
+repeat (sV,k,
+v0 = k/sV;
+v1 = (k+1)/sV;
+V[k]*=(V[k]>0?(1 - v0):v1);
+); V"}
+r. 256,1,1,4,1
+sh. 3 b. $3 rm.
+f. "[ atan2(G,R)*180/pi,B,A,0 ]" channels. 0,2
++rgb2$cs.. +channels. 100% *. 256 round. map. ...
++[-2,-1] rm.. +channels. 100% ${cs}2rgb..
+if $4
+*. 255 bilateral.. .,$4,{2+$4}
+rgb2$cs.. /. 255 j.. .,0,0,0,2 ${cs}2rgb..
+fi
+rm.
+blend alpha,{$2%}
+}
+a c
+}
+fx_equalize_hsv_preview :
+if $5
+cs=${"arg0 $1,hsi,hsl,hsv"}
+rm {0.8*[${-gui_preview_wh}]},1,3,"$5==1?
+(H = S = 0; V = y/(h-1)):
+(H = x*360/(w-1); S = y/(h-1); V = y/(h-1));
+[H,S,V]"
+${cs}2rgb.
+fi
+gui_split_preview "fx_equalize_hsv $*",${-3--1}
+if $5 r. ${-gui_preview_wh},1,3,0,0,0.5,0.5 fi
+fx_hsv_equalizer :
+foreach {
+to_rgb rgb2hsv s c
++f[0] if(abs(i-$2)<$3/2|abs(i-$2-360)<$3/2|abs(i-$2+360)<$3/2,1,0)
++f[0] if(abs(i-$7)<$8/2|abs(i-$7-360)<$8/2|abs(i-$7+360)<$8/2,1,0)
++f[0] if(abs(i-$12)<$13/2|abs(i-$12-360)<$13/2|abs(i-$12+360)<$13/2,1,0)
++threshold[1,2] 0.01 *[-1,-2] [-1]x2 *[-1,3] *[-1,4] *[-1,5]
++*[3] $4 +*[4] $9 +*[5] $14 +[-1,-2,-3]
++[-1,0] %[0] 360
+if $5>=0 +*[3] -$5 else +*[3] {1/(1+$5)-1} fi +. 1
+if $10>=0 +*[4] -$10 else +*[4] {1/(1+$10)-1} fi +. 1
+if $15>=0 +*[5] -$15 else +*[5] {1/(1+$15)-1} fi +. 1
+*[-1,-2,-3] ^[1,-1]
+if $6>=0 +*[3] -$6 else +*[3] {1/(1+$6)-1} fi +. 1
+if $11>=0 +*[4] -$11 else +*[4] {1/(1+$11)-1} fi +. 1
+if $16>=0 +*[5] -$16 else +*[5] {1/(1+$16)-1} fi +. 1
+*[-1,-2,-3] ^[2,-1]
+rm[3,4,5] a[0,1,2] c hsv2rgb
+}
+fx_hsv_equalizer_preview :
+l. {
+if $1==0 fx_hsv_equalizer $1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12,$13,$14,$15,$16
+else
+to_rgb rgb2hsv s c
+(0,359) r. ..,{{0,h}/10},1,1,3 . f. 1
+j[0] [3],0,91% j[1] [4],0,91% j[2] [4],0,91% rm[-1,-2]
++f[0] if(abs(i-$2)<$3/2|abs(i-$2-360)<$3/2|abs(i-$2+360)<$3/2,1,0)
++f[0] if(abs(i-$7)<$8/2|abs(i-$7-360)<$8/2|abs(i-$7+360)<$8/2,1,0)
++f[0] if(abs(i-$12)<$13/2|abs(i-$12-360)<$13/2|abs(i-$12+360)<$13/2,1,0)
+-|[-3--1] +. 0.33 /. 1.33
+*[2,-1] a c hsv2rgb
+fi
+}
+gcd_hsl : skip ${1=1},${2=0},${3=0},${4=180},${5=0.2},${6=0},${7=1},${8=1}
+repeat $! l[$>]
+split_opacity to_rgb[0] rgb2hsv[0]
+if $6
++channels[0] 0
+histogram. 360,0,360
+hue={(xM+180)%360} rm.
+else hue=$4 fi
+sh[0] 1,1
+if $3 sat={-max(0,ia-0.5)} else sat=$2 fi
+-. 0.5 *. $1 +. $sat
++. 0.5 c. 0,1 rm.
+hsv2rgb[0]
++channels[0] 0 *. 66
++channels[0] 1 *. 129 +[-2,-1]
++channels[0] 2 *. 25 +[-2,-1]
++. 128 /. 256 +. 16
+apply_gamma. {max(0.001,$7)}
+if $8!=1 -. 128 *. $8 +. 128 fi
+c. 0,255
+sh[0] 0,0 sh[0] 1,1 sh[0] 2,2
+($hue^1^1) hsv2rgb. n. {1-$5},1
+*[-4] {@0} *... {@1} *.. {@2}
+rm[-4--1] rgb2ycbcr[0] j[0] . rm.
+ycbcr2rgb[0] a c
+done done
+gcd_hsl_preview :
+gui_split_preview "gcd_hsl ${1--2}",$-1
+gcd_hsv_select :
+skip ${1=0},${2=0.5},${3=1} skip ${4=180},${5=0.5},${6=0.5}
+skip ${7=2},${8=2} skip ${9=18},${10=0},${11=0},${12=0}
+repeat $! l[$>]
+to_rgba[0] remove_opacity[0]
+if !$12 [0] fi
+l.
+gcd_shrink
++rgb2hsv[0] s. c
+bh={$1-$4} th={$1+$4}
++ge[1] {360+$bh} +le[1] {$th-360}
+ir[1] {max($bh,0)},{min($th,360)}
+or[-2,-1] or[1,-1]
+ir[2] {$2-$5},{$2+$5}
+ir[3] {$3-$6},{$3+$6}
+and[-2,-1] and[-2,-1]
+meancurvature_flow[0] 3 median[0] 3
++[0] 1 +gradient_norm[0] +b. 2,1,1 min_patch. $9
+*[0,-1] *. -1
++*[0] [1] gt[0] 0 negate[1] *[0,1] *[0] 0.5 max[0,-1]
++watershed[0] . k. -. 1
+gcd_unshrink
+done
+if !$12
+channels. 0 ge. 0
++area. 0 +le. {($10%*max(w,h))^2}
++negate... *[-2,-1] inpaint... . rm.
+le. {($11%*max(w,h))^2} *. ..
+inpaint.. . rm. *. 255
+if $7>0 dilate. $7
+elif $7<0 erode. {abs($7)} fi
+if $8 b. $8,1,1 fi
+a[-2,-1] c
+fi
+c. 0,255
+done done
+iain_hue_light_dark_p:
+repeat $! l[$>]
+apply_parallel_overlap "iain_hue_light_dark ${1--2}",0,${-1}
+done done
+iain_hue_light_dark:
+repeat $! l[$>] split_opacity l[0]
++l[0]
+to_rgb
+if $20==0
+rgb2hsv8
+else
+rgb2hsl8
+fi
+s c
++apply_curve[0] 0,0,{128+$1},16,{128+$2},30,{128+$3},42,{128+$4},60,{128+$5},75,{128+$6},85,{128+$7},105,{128+$8},127,{128+$9},135,{128+$10},150,{128+$11},170,{128+$12},180,{128+$13},195,{128+$14},213,{128+$15},225,{128+$16},240,{128+$17},255,{128+$18}
+sub[-1] 128
+add[-1] $19
+add[-1,-2]
+a c
+if $20==0
+hsv82rgb
+else
+hsl82rgb
+fi
+done
++rgb2hsv[0]
+s[-1] c
+keep[0,1,-1,-2]
+mul[-1,-2] 255
+apply_curve[-2] 0,0,0,$22,0,$21,255,255,255
+apply_curve[-1] 0,0,0,$24,0,$23,255,255,255
+mul[-1] [-2]
+div[-1] 255
+remove[-2]
+c[-1] 0,255
+a[1,2] c
+blend[0,1] alpha
+if $25==1
+to_gray
+fi
+done a c done done
+#@cli afre_localcontrast : 1<=radius<=10,-100<=_amount<=100
+#@cli : Enhance local contrast.
+#@cli : Default values: 'radius=1' and 'amount=50'.
+afre_localcontrast : check "${1=1}>=1 && ${2=50}>=-100 && $1<=10 && $2<=100"
+if !$2 return fi rd={int($1)} e[] "[afre]^_^) localcontrast: Enhance local contrast of image$? using radius="$rd" and amount=$2."
+repeat $! l[$>] r0={[im,iM]} n 0,255 rgb2jzazbz 0 sh 0 r1={[im,iM]}
+. +afre_gui0_fast. $1,1e0 n. 0,1 f. "begin(const boundary=1;
+const D="$rd"*2+1; const P=4^($2/50));
+ref(crop(x-"$rd",y-"$rd",0,c,D,D,1,1),N); A=avg(i,med(N));
+if(i]
+fx_gaussian_blur $2,0,0,1,1,0,0
+luminance +luminance
+fx_apply_curve[1] 0,31,111,64,17,110,176,148,75,177,235,186,1,0,0,0,0
+fx_apply_curve[1] 0,31,111,64,17,110,176,148,75,177,235,186,1,0,0,0,0
+rv[0,1] fx_compose_value[0,1] $1,0
+if $3==1 fx_mix_rgb 1,50,0,1,50,0,1,-50,0,0,2,0
+elif $3==2 fx_mix_rgb 1,75,0,1,5,0,1,-25,0,0,2,0
+elif $3==3 fx_mix_rgb 1,70,0,1,40,0,1,-20,0,0,2,0
+elif $3==4 fx_mix_rgb 1,-5,0,1,0,0,1.1,12,0,0,2,0
+fi done done
+fx_tk_metallic_preview :
+gui_split_preview "fx_tk_metallic ${1--2}",$-1
+fx_mix_cmyk :
+foreach {
+split_opacity rv to_rgb.
+fx_start_mix $13,$14
+rgb2cmyk. s. c
+*[-4] $1 +[-4] $2 b[-4] $3%
+*... $4 +... $5 b... $6%
+*.. $7 +.. $8 b.. $9%
+*. $10 +. $11 b. $12%
+a[-4--1] c cmyk2rgb.
+fx_end_mix $13
+if $!!=3 rv a c fi
+}
+fx_mix_cmyk_preview :
+gui_split_preview "fx_mix_cmyk $*",${-3--1}
+fx_mix_hsv :
+foreach {
+split_opacity rv to_rgb.
+fx_start_mix $10,$11
+rgb2hsv. s. c -[-2,-1] 0.5
+*... $1 +... $2 b... $3%
+*.. $4 +.. $5 b.. $6%
+*. $7 +. $8 b. $9%
+%... 360 +[-2,-1] 0.5 c[-2,-1] 0,1 a[-3--1] c hsv2rgb.
+fx_end_mix $10
+if $!!=3 rv a c fi
+}
+fx_mix_hsv_preview :
+gui_split_preview "fx_mix_hsv $*",${-3--1}
+fx_mix_lab :
+foreach {
+split_opacity to_rgb[0]
+gui_parallel_overlap[0] "_fx_mix_lab $*",0,{3*max($3,$6,$9)}
+a c
+}
+_fx_mix_lab :
+fx_start_mix $10,$11
+rgb2lab. s. c
+*... $1 +... $2 b... $3%
+*.. $4 +.. $5 b.. $6%
+*. $7 +. $8 b. $9%
+a[-3--1] c lab2rgb.
+fx_end_mix $10
+fx_mix_lab_preview :
+gui_split_preview "fx_mix_lab $*",${-3--1}
+fx_mix_pca :
+foreach { split_opacity l[0] {
+to_rgb
+if [$14]==round(stats()[0,4],0.1) _avg={[$15][0,3]} C={[$15][3,9]} status=
+else
++rr2d 256,256,0,2 C=${"covariance_vectors. _avg"} rm.
+__status="{$1}{$2}{$3}{$4}""{$5}{$6}{$7}{$8}""{$9}{$10}{$11}{$12}""${13}""{"{round(stats()[0,4],0.1)}"}""{"$_avg,$C"}""{$16}{${17,18}}"
+fi
+if "$4 || $8 || $12" +l {
+f "begin(avg = ["$_avg"]; eig = eig(["$C"]); Pt = eig[3,9]); Pt*(I-avg)"
+s c repeat $! { vmax$>={$>,1.1*max(abs(im),abs(iM))} }
+rm
+} else vmax0,vmax1,vmax2=1 fi
+f "begin(
+do_gamma(val,vmax,gamma) = (vmax*sign(val)*(abs(val)/vmax)^gamma);
+const gamma0 = 10^-($4%);
+const gamma1 = 10^-($8%);
+const gamma2 = 10^-($12%);
+const vmax0 = "$vmax0";
+const vmax1 = "$vmax1";
+const vmax2 = "$vmax2";
+avg = ["$_avg"];
+eig = eig(["$C"]);
+for (k = 3, k<12, k+=3, eig[k]<0?copy(eig[k],eig[k,3]*=-1,3));
+Pt = eig[3,9];
+P = transpose(Pt,3);
+T = mul(P,diag(10^[$1,$5,$9]),3);
+R1 = rot(eig[3,3],$3°);
+R2 = rot(eig[6,3],$7°);
+R3 = rot(eig[9,3],$11°);
+T = mul(R1,mul(R2,mul(R3,T,3),3),3);
+avg_shift = avg + $2*eig[3,3] + $6*eig[6,3] + $10*eig[9,3];
+if ("0$_is_preview",
+L = [ 2,5,10]*sqrt(1e-5 + eig[0,3]);
+run('__cols=',v2s(round([
+avg - L[0]*eig[3,3],
+avg + L[0]*eig[3,3],
+avg - L[1]*eig[6,3],
+avg + L[1]*eig[6,3],
+avg - L[2]*eig[9,3],
+avg + L[2]*eig[9,3] ])));
+);
+);
+nI = Pt*(I - avg);
+($4 || $8 || $12)?(
+nI[0] = do_gamma(nI[0],vmax0,gamma0);
+nI[1] = do_gamma(nI[1],vmax1,gamma1);
+nI[2] = do_gamma(nI[2],vmax2,gamma2);
+);
+avg_shift + T*nI"
+c 0,255
+} a c } u $__status
+fx_mix_pca_preview :
+_is_preview=1
+__status=
+foreach {
+gui_split_preview "fx_mix_pca ${1-13},\"$14\",\"$15\",${16-18}",${-3--1}
+if $13
+rr2d ${-gui_preview_wh},0,1
+($__cols) r. 3,6,1,1,-1 permute. yzcx s. x,3
+r[-3--1] {w#0/2},13,1,3,3 c[-3--1] 0,255
+frame[-3--1] 1,1,0
+to[0] Primary,4,2,13,1 j[0] ...,64,4
+to[0] Secondary,4,17,13,1 j[0] ..,64,19
+to[0] Tertiary,4,32,13,1 j[0] .,64,34
+k[0]
+fi
+}
+u $__status
+fx_start_mix :
+if $1==1 +tones. 3 +[-2,-1] b[-2,-1] $2% ri[-2,-1] ... *. ... mv... $!
+elif $1==2 +tones. 3 +[-3,-1] b[-2,-1] $2% ri[-2,-1] ... *.. ... mv... $!
+elif $1==3 +tones. 3 +[-3,-2] b[-2,-1] $2% ri[-2,-1] ... *.. ... mv... $!
+fi
+fx_end_mix :
+if $1==1 *[-3,-1] +[-2,-1]
+elif $1==2 *[-2,-1] +[-2,-1]
+elif $1==3 *[-2,-1] +[-2,-1]
+fi
+c 0,255
+fx_mix_rgb :
+foreach {
+split_opacity rv to_rgb.
+fx_start_mix $10,$11
+-. 128 s. c
+*... $1 +... $2 b... $3%
+*.. $4 +.. $5 b.. $6%
+*. $7 +. $8 b. $9%
+a[-3--1] c +. 128 c. 0,255
+fx_end_mix $10
+if $!!=3 rv a c fi
+}
+fx_mix_rgb_preview :
+gui_split_preview "fx_mix_rgb $*",${-3--1}
+fx_mix_ycbcr :
+foreach {
+split_opacity rv to_rgb.
+fx_start_mix $10,$11
+rgb2ycbcr. -. 128 s. c
+*... $1 +... $2 b... $3%
+*.. $4 +.. $5 b.. $6%
+*. $7 +. $8 b. $9%
+a[-3--1] c +. 128 c. 0,255 ycbcr2rgb.
+fx_end_mix $10
+if $!!=3 rv a c fi
+}
+fx_mix_ycbcr_preview :
+gui_split_preview "fx_mix_ycbcr $*",${-3--1}
+fx_random_color_transformation :
+if $2" || "$3 srand __seed:=_round(u(100000)) else __seed=$1 fi
+random_clut $__seed
+amplitude:=$4%
+repeat $!-1 { l[$>,-1] {
++map_clut.. .
+j... .,0,0,0,0,$amplitude rm.
+} }
+rm.
+adjust_colors ${5-9}
+fx_random_color_transformation_preview :
+gui_split_preview "fx_random_color_transformation ${1--2}",${-3--1}
+to "Seed: \#"$__seed,5,5,5%,2
+u "{"$__seed"}{0}{0}{$4}{$5}{$6}{$7}{$8}{$9}{$10}{$11,$12}"
+fx_retinex :
+foreach {
++retinex $2,${"arg0 $3,hsi,hsv,lab,lrgb,rgb,ycbcr"},$4,$5,${7--1}
+if $6 guided. ..,$6,$6 fi
+j[0] .,0,0,0,0,{$1%} rm.
+c 0,255
+}
+fx_retinex_preview :
+gui_split_preview "fx_retinex $*",${-3--1}
+fx_retrofade :
+foreach {
+split_opacity l[0] {
++f 0
+repeat $1 {
++noise[0] $3 c. 0,255 autoindex. $2,0,0
++[-2,-1]
+progress {$>*100/$1}
+}
+k. n 0,255
+progress 100
+}
+a c
+}
+fx_retrofade_preview :
+gui_split_preview "fx_retrofade $*",${-3--1}
+iain_rgb_tone:
+repeat $! l[$>] split_opacity l[0]
+to_rgb
++split c
++apply_curve[1] 0,0,$1,128,$2,255,$3
++apply_curve[2] 0,0,$4,128,$5,255,$6
++apply_curve[3] 0,0,$7,128,$8,255,$9
+add[-1,-2,-3]
++apply_curve[1] 0,0,$10,128,$11,255,$12
++apply_curve[2] 0,0,$13,128,$14,255,$15
++apply_curve[3] 0,0,$16,128,$17,255,$18
+add[-1,-2,-3]
++apply_curve[1] 0,0,$19,128,$20,255,$21
++apply_curve[2] 0,0,$22,128,$23,255,$24
++apply_curve[3] 0,0,$25,128,$26,255,$27
+add[-1,-2,-3]
+add[1,4]
+add[2,4]
+add[3,4]
+a[-1,-2,-3] c
++sub[0,1]
++rgb2hsv[0] split[-1] c remove[-1,-3] mul[-1] 255
+apply_curve[-1] 0,0,$28,64,$29,128,$30,192,$31,255,$32
+compose_multiply[-1,-2]
++sub[0,-1]
+if $33==0
+luminance[0]
++luminance[-1]
+compose_grainextract[-1,-2]
+compose_grainmerge[0,-1]
+keep[0]
+fi
+if $33==1
+keep[-1]
+c 0,255
+fi
+if $33==2
+keep[-1]
+n 0,255
+fi
+done a c done done
+variance_noise :
+u {${-std_noise}^2}
+Saturation_EQ_p:
+repeat $! l[$>]
+apply_parallel_overlap "Saturation_EQ ${1-19}",
+done done
+Saturation_EQ:
+repeat $! l[$>] split_opacity l[0]
+to_rgb rgb2hsl8
+split[-1] c
++apply_curve[2] .5,0,{128+$1},31,{128+$2},63,{128+$3},95,{128+$4},128,{128+$5},160,{128+$6},192,{128+$7},224,{128+$8},255,{128+$9}
+++[0] {((($19/360)*255))*-1}
+mod[-1] 255
+apply_curve[-1] .5,0,{128+$10},31,{128+$11},63,{128+$12},95,{128+$13},128,{128+$14},160,{128+$15},192,{128+$16},224,{128+$17},255,{128+$18}
+sub[-1,-2] 128
+add[-1,-2]
+mul[-1] 2
+add[1,3]
+c[1] 0,255
+append c
+hsl82rgb
+done a c done done
+_fx_select_color :
+if $1==1 to_rgb
+elif $1==2 to_rgb rgb2ycbcr
+elif $1==3 channels 0
+elif $1==4 channels 1
+elif $1==5 channels 2
+elif $1==6 to_rgba channels 3
+elif $1==7 to_rgb rgb2ycbcr channels 0
+elif $1==8 to_rgb rgb2ycbcr channels 1,2
+elif $1==9 to_rgb rgb2hsv channels 0
+elif $1==10 to_rgb rgb2hsv channels 1
+fi
+fx_select_color :
+($5^$6^$7^$8) _fx_select_color. $1 color={^} rm.
+foreach {
+to_rgba
++_fx_select_color $1
+select_color[1] $2%,$color
+if $4 +area. 0,0 <=. {round($4^1.5)} inpaint.. .,0,3 rm. fi
+b[1] $3 n[1] 0,255
+if $9==0 sh[0] 100% &. [1]
+elif $9==1 rm[0]
+elif $9==2 -[1] 255 *[1] -1 sh[0] 100% &. [1]
+elif $9==3 rm[0] - 255 * -1
+else
+/[1] 255 +*[0,1] +*[1] $11 +*[1] $12 +*[1] $13 *[1] $10 a[1,-3--1] c -[1,2] +
+fi
+k[0]
+}
+fx_select_color_preview :
+gui_split_preview "fx_select_color $*",${-3--1}
+fx_selective_desaturation :
+foreach {
+to_color split_opacity l[0] {
++fc $1,$2,$3
+-[1] [0] norm[1] /[1] {1e-6+iM}
+if $4 *[1] -{max(0.01,$5)} +[1] 1
+else >=[1] {5*$5}%
+fi
+c[1] 0,1
+rgb2hsl[0] s[0] c
+mM={[im,iM]} repeat $6 { guided. [2],1,0.1 } n. $mM
+if $7==0 *[1,-1]
+elif $7==1 ($1^$2^$3) rgb2hsl. *[1] {i[1]} rm[-2,-1]
+else rv[1,-1] rm.
+fi
+a c hsl2rgb
+}
+a c
+}
+fx_selective_desaturation_preview :
+gui_split_preview "fx_selective_desaturation $*",${-3--1}
+fx_sepia :
+sepia adjust_colors ${1-3},0,0,0,255
+fx_sepia_preview :
+gui_split_preview "fx_sepia $*",${-3--1}
+fx_simulate_film :
+category=${arg0\ $1,bw,instant_consumer,instant_pro,fujixtransiii,negative_color,negative_new,negative_old,print,colorslide}
+presets=${-_fx_cluts_$category}
+index={arg(1+$1,${2-10})}
+thumbsize,strength,brightness,contrast,gamma,hue,saturation,normalize=${11-18}
+if $normalize==1" || "$normalize==3
+foreach { split_opacity balance_gamma[0] , a c }
+fi
+if $index>=2
+path_clut=${-path_cache}
+name=${arg0\ $index-2,$presets}
+clut $name,{0$_is_preview" && "!isfile(['{/${path_clut}clut_$name.cimgz}'])?17:48}
+repeat $!-1 { if $strength<100 +map_clut[$>] . j[$>] .,0,0,0,0,{$strength%} rm. else map_clut[$>] . fi }
+rm.
+adjust_colors $brightness,$contrast,$gamma,$hue,$saturation,0,255
+if $normalize==2" || "$normalize==3 foreach { split_opacity n[0] 0,255 a c } fi
+elif $index==1
+adjust_colors $brightness,$contrast,$gamma,$hue,$saturation,0,255
+if $normalize==2" || "$normalize==3 foreach { split_opacity n[0] 0,255 a c } fi
+else
+foreach { if max(w,h)>$thumbsize rr2d $thumbsize,$thumbsize,0,2 fi }
+N=$! +to "Original",1%,1%,7.5%,2,0.5
+Np={narg($presets)}
+repeat $Np {
+clut_name=${arg0\ $>,$presets}
+clut $clut_name mv. $N
+repeat $N {
+if $strength<100 [$>] +map_clut. [$N] j.. .,0,0,0,0,{$strength%} rm. else +map_clut[$>] [$N] fi
+adjust_colors. $brightness,$contrast,$gamma,$hue,$saturation,0,255
+if $normalize==2" || "$normalize==3 l. { split_opacity n[0] 0,255 a c } fi
+strcapitalize $clut_name clut_name=${}
+to. $clut_name,1%,1%,7.5%,2,0.5
+}
+rm[$N]
+progress {$>*100/($Np-1)}
+}
+k[$N--1] frame 1,1,0,0,0,255 - 128 append_tiles {s=floor(sqrt($!));w>h?[s,0]:[0,s]} + 128
+fi
+fx_simulate_film_preview :
+_is_preview=1
+index={arg(1+$1,${2-10})}
+if !$index gui_warning_preview "Preview disabled in 'Collage' mode"
+else gui_split_preview "fx_simulate_film $*",${19-21}
+fi
+u "{$1}{$2}_"{2*($1==0)}"{$3}_"{2*($1==1)}"{$4}_"{2*($1==2)}"{$5}_"{2*($1==3)}"{$6}_"{2*($1==4)}"{$7}_"{2*($1==5)}"{$8}_"{2*($1==6)}"{$9}_"{2*($1==7)}"{$10}_"{2*($1==8)}"{$11}_"{1+!$index}"{$12}{$13}{$14}{$15}{$16}{$17}{$18}{$19}{$20,$21}"
+_fx_cluts_bw :
+u agfa_apx_100,agfa_apx_25,fuji_neopan_1600,fuji_neopan_acros_100,ilford_delta_100,ilford_delta_3200,ilford_delta_400,ilford_fp_4_plus_125,ilford_hp_5_plus_400,ilford_hps_800,ilford_pan_f_plus_50,ilford_xp_2,kodak_bw_400_cn,kodak_hie_hs_infra,kodak_t-max_100,kodak_t-max_3200,kodak_t-max_400,kodak_tri-x_400,polaroid_664,polaroid_667,polaroid_672,rollei_ir_400,rollei_ortho_25,rollei_retro_100_tonal,rollei_retro_80s
+_fx_cluts_instant_consumer :
+u polaroid_px-100uv+_cold_--,polaroid_px-100uv+_cold_-,polaroid_px-100uv+_cold,polaroid_px-100uv+_cold_+,polaroid_px-100uv+_cold_++,polaroid_px-100uv+_cold_+++,polaroid_px-100uv+_warm_--,polaroid_px-100uv+_warm_-,polaroid_px-100uv+_warm,polaroid_px-100uv+_warm_+,polaroid_px-100uv+_warm_++,polaroid_px-100uv+_warm_+++,polaroid_px-680_--,polaroid_px-680_-,polaroid_px-680,polaroid_px-680_+,polaroid_px-680_++,polaroid_px-680_cold_--,polaroid_px-680_cold_-,polaroid_px-680_cold,polaroid_px-680_cold_+,polaroid_px-680_cold_++,polaroid_px-680_cold_++_alt,polaroid_px-680_warm_--,polaroid_px-680_warm_-,polaroid_px-680_warm,polaroid_px-680_warm_+,polaroid_px-680_warm_++,polaroid_px-70_--,polaroid_px-70_-,polaroid_px-70,polaroid_px-70_+,polaroid_px-70_++,polaroid_px-70_+++,polaroid_px-70_cold_--,polaroid_px-70_cold_-,polaroid_px-70_cold,polaroid_px-70_cold_+,polaroid_px-70_cold_++,polaroid_px-70_warm_--,polaroid_px-70_warm_-,polaroid_px-70_warm,polaroid_px-70_warm_+,polaroid_px-70_warm_++,polaroid_time_zero_expired_---,polaroid_time_zero_expired_--,polaroid_time_zero_expired_-,polaroid_time_zero_expired,polaroid_time_zero_expired_+,polaroid_time_zero_expired_++,polaroid_time_zero_expired_cold_---,polaroid_time_zero_expired_cold_--,polaroid_time_zero_expired_cold_-,polaroid_time_zero_expired_cold
+_fx_cluts_instant_pro :
+u fuji_fp-100c_--,fuji_fp-100c_-,fuji_fp-100c,fuji_fp-100c_alt,fuji_fp-100c_+,fuji_fp-100c_++,fuji_fp-100c_++_alt,fuji_fp-100c_+++,fuji_fp-100c_cool_--,fuji_fp-100c_cool_-,fuji_fp-100c_cool,fuji_fp-100c_cool_+,fuji_fp-100c_cool_++,fuji_fp-100c_negative_--,fuji_fp-100c_negative_-,fuji_fp-100c_negative,fuji_fp-100c_negative_+,fuji_fp-100c_negative_++,fuji_fp-100c_negative_++_alt,fuji_fp-100c_negative_+++,fuji_fp-3000b_--,fuji_fp-3000b_-,fuji_fp-3000b,fuji_fp-3000b_+,fuji_fp-3000b_++,fuji_fp-3000b_+++,fuji_fp-3000b_hc,fuji_fp-3000b_negative_--,fuji_fp-3000b_negative_-,fuji_fp-3000b_negative,fuji_fp-3000b_negative_+,fuji_fp-3000b_negative_++,fuji_fp-3000b_negative_+++,fuji_fp-3000b_negative_early,polaroid_665_--,polaroid_665_-,polaroid_665,polaroid_665_+,polaroid_665_++,polaroid_665_negative_-,polaroid_665_negative,polaroid_665_negative_+,polaroid_665_negative_hc,polaroid_669_--,polaroid_669_-,polaroid_669,polaroid_669_+,polaroid_669_++,polaroid_669_+++,polaroid_669_cold_--,polaroid_669_cold_-,polaroid_669_cold,polaroid_669_cold_+,polaroid_690_--,polaroid_690_-,polaroid_690,polaroid_690_+,polaroid_690_++,polaroid_690_cold_--,polaroid_690_cold_-,polaroid_690_cold,polaroid_690_cold_+,polaroid_690_cold_++,polaroid_690_warm_--,polaroid_690_warm_-,polaroid_690_warm,polaroid_690_warm_+,polaroid_690_warm_++
+_fx_cluts_fujixtransiii :
+u fuji_xtrans_iii_acros,fuji_xtrans_iii_acros+g,fuji_xtrans_iii_acros+r,fuji_xtrans_iii_acros+ye,fuji_xtrans_iii_astia,fuji_xtrans_iii_classic_chrome,fuji_xtrans_iii_mono,fuji_xtrans_iii_mono+g,fuji_xtrans_iii_mono+r,fuji_xtrans_iii_mono+ye,fuji_xtrans_iii_pro_neg_hi,fuji_xtrans_iii_pro_neg_std,fuji_xtrans_iii_provia,fuji_xtrans_iii_sepia,fuji_xtrans_iii_velvia
+_fx_cluts_negative_color :
+u agfa_ultra_color_100,agfa_vista_200,fuji_superia_200,fuji_superia_hg_1600,fuji_superia_reala_100,fuji_superia_x-tra_800,kodak_ektar_100,kodak_elite_100_xpro,kodak_elite_color_200,kodak_elite_color_400,kodak_portra_160_nc,kodak_portra_160_vc,lomography_redscale_100
+_fx_cluts_negative_new :
+u fuji_160c_-,fuji_160c,fuji_160c_+,fuji_160c_++,fuji_400h_-,fuji_400h,fuji_400h_+,fuji_400h_++,fuji_800z_-,fuji_800z,fuji_800z_+,fuji_800z_++,ilford_hp_5_-,ilford_hp_5,ilford_hp_5_+,ilford_hp_5_++,kodak_portra_160_-,kodak_portra_160,kodak_portra_160_+,kodak_portra_160_++,kodak_portra_400_-,kodak_portra_400,kodak_portra_400_+,kodak_portra_400_++,kodak_portra_800_-,kodak_portra_800,kodak_portra_800_+,kodak_portra_800_++,kodak_portra_800_hc,kodak_tmax_3200_-,kodak_tmax_3200,kodak_tmax_3200_+,kodak_tmax_3200_++,kodak_tmax_3200_alt,kodak_tri-x_400_-,kodak_tri-x_400,kodak_tri-x_400_+,kodak_tri-x_400_++,kodak_tri-x_400_alt
+_fx_cluts_negative_old :
+u ilford_delta_3200_-,ilford_delta_3200,ilford_delta_3200_+,ilford_delta_3200_++,fuji_neopan_1600_-,fuji_neopan_1600,fuji_neopan_1600_+,fuji_neopan_1600_++,fuji_superia_100_-,fuji_superia_100,fuji_superia_100_+,fuji_superia_100_++,fuji_superia_400_-,fuji_superia_400,fuji_superia_400_+,fuji_superia_400_++,fuji_superia_800_-,fuji_superia_800,fuji_superia_800_+,fuji_superia_800_++,fuji_superia_1600_-,fuji_superia_1600,fuji_superia_1600_+,fuji_superia_1600_++,kodak_portra_160_nc_-,kodak_portra_160_nc,kodak_portra_160_nc_+,kodak_portra_160_nc_++,kodak_portra_160_vc_-,kodak_portra_160_vc,kodak_portra_160_vc_+,kodak_portra_160_vc_++,kodak_portra_400_nc_-,kodak_portra_400_nc,kodak_portra_400_nc_+,kodak_portra_400_nc_++,kodak_portra_400_uc_-,kodak_portra_400_uc,kodak_portra_400_uc_+,kodak_portra_400_uc_++,kodak_portra_400_vc_-,kodak_portra_400_vc,kodak_portra_400_vc_+,kodak_portra_400_vc_++
+_fx_cluts_print :
+u fuji_3510_constlclip,fuji_3510_constlmap,fuji_3510_cuspclip,fuji_3513_constlclip,fuji_3513_constlmap,fuji_3513_cuspclip,kodak_2383_constlclip,kodak_2383_constlmap,kodak_2383_cuspclip,kodak_2393_constlclip,kodak_2393_constlmap,kodak_2393_cuspclip
+_fx_cluts_colorslide :
+u agfa_precisa_100,fuji_astia_100f,fuji_fp_100c,fuji_provia_100f,fuji_provia_400f,fuji_provia_400x,fuji_sensia_100,fuji_superia_200_xpro,fuji_velvia_50,fuji_astia_100_generic,fuji_provia_100_generic,fuji_velvia_100_generic,kodak_kodachrome_64_generic,kodak_ektachrome_100_vs_generic,kodak_e-100_gx_ektachrome_100,kodak_ektachrome_100_vs,kodak_elite_chrome_200,kodak_elite_chrome_400,kodak_elite_extracolor_100,kodak_kodachrome_200,kodak_kodachrome_25,kodak_kodachrome_64,lomography_x-pro_slide_200,polaroid_669,polaroid_690,polaroid_polachrome
+#@cli afre_softlight : -100<=amount<=100,_reverse_order={ 0 | 1 }
+#@cli : Blend image with itself or another image using softlight.
+#@cli : Default values: 'amount=50' and 'reverse_order=0'.
+afre_softlight : check "${1=50}>=-100 && isbool(${2=0}) && $1<=100"
+if !$1 return fi
+if $!>2 error[] "\n[afre]>_<) softlight: Select 1-2 images."
+elif $!==2&&$2 rv e0=" in reverse order"
+elif $!==1 . e1=" itself and"
+elif w#0!=w||h#0!=h||s#0!=s error[] "\n[afre]>_<) softlight: Select images with the same dimensions." fi
+if s#0!=1?s#0!=3 error[] "\n[afre]>_<) softlight: Select image(s) with 1 or 3 channels (I or RGB)." fi
+if $1<0 negate. fi
+e[] "[afre]^_^) softlight: Blend image$?"${e0}" using"${e1}" amount=$1."
+iM={0,iM} / $iM f.. "begin(const A=0.5*abs($1)/100+0.5);
+i#0^((A*2)^(A*(1-2*i#1)))" *.. $iM rm.
+afre_softlight_preview :
+afre_softlight $*
+gcd_hio_levels : skip ${1=1},${2=1},${3=39},${4=0},${5=1},${6=1},${7=0},${8=0},${9=0},${10=0}
+if $8 _gcd_hio_levels[0] ${1--4} else _gcd_hio_levels ${1--4} fi
+if $10" && "$!>1 rv blend alpha fi
+_gcd_hio_levels : skip ${1=1},${2=1},${3=39},${4=0},${5=1},${6=1},${7=0}
+repeat $! l[$>]
+split_opacity to_rgb[0] +gcd_srgb2luma[0]
+if $4!=0
+sh[0] 0 sh[0] 1 sh[0] 2,2
+({$3%360}^1^1) hsv2rgb. max. 0 *. $4 -. {ia}
++[-4] {@0} +... {@1} +.. {@2} rm[-4--1] max[0] 0
+fi
+gcd_hue_chroma[0] $3,$1,$2
+gcd_srgb2jpeg[0] j[0] . rm.
+max[0] 0 sh[0] 0 srgb={($5!=1" || "$6!=1)" && "$7}
+if $srgb srgb2rgb. fi
+gcd_gamma. $5
+if $6!=1
+m={iM/2} -. $m +sign. abs..
+gcd_gamma.. $6,1,$m *[-2,-1] +. $m
+fi
+if $srgb rgb2srgb. fi
+rm. gcd_jpeg2srgb[0] a c c 0,255
+done done
+gcd_hio_levels_preview :
+if $-2==7 gcd_hio_levels ${1--2},1
+else gui_split_preview "gcd_hio_levels $*",$-2 fi
+gcd_hue_chroma : skip ${1=0},${2=1},${3=1}
+if $2==1" && "$3==1 return fi
+repeat $! l[$>]
+h={($1%360)/60} x={1-abs($h%2-1)} y={if($x>0,1/$x,0)} h={int($h)+1}
+p={arg($h,0,1,1,2,2,0)} s={arg($h,1,0,2,1,0,2)} z={arg($h,2,2,0,0,1,1)}
+[0] sh. $p sh.. $s +*.. $x
++le. .. j... ..,0,0,0,0,1,. rm..
+eq. 0 +*.. $y j[-4] .,0,0,0,0,1,..
+rm[-4--1] sh. $z f. 0 rm.
+sh. $p +compose_channels[0] min +eq.. 0 +. ...
+if $3!=1
++/[-2,-1] -. 1 r. 100%,100%,1,3 *. [-5] +[0] .
++compose_channels[0] min -[0] . *[0] $3 +[0,-1] -[0,-1]
+fi
+if $2!=1 +-[-3,-2] *. $2 +[-3,-1] /[-2,-1] -. 1 *[-3,-1] rm. +
+else k[0] fi
+done done
+iain_tone_presets_p:
+repeat $! l[$>]
+apply_parallel_overlap "iain_tone_presets ${1--2}",0,${-1}
+done done
+iain_tone_presets:
+repeat $! l[$>] split_opacity l[0]
+if $1==0
++iain_rgb_tone 00,10,00,00,00,00,00,00,00,00,00,00,00,10,00,00,00,00,00,20,00,00,20,00,00,00,00,255,0,0,0,0,0
+fi
+if $1==1
++iain_cmyk_tone 00,00,00,00,00,00,-8,-20,00,00,00,-49,00,00,00,00,00,00,00,-25,00,00,17,0,00,00,00,00,00,00,35,-25,17,8,26,31,00,00,00,00,17,00,-9,-31,29,00,00,-9,188,255,181,133,72,1
+fi
+if $1==2
++iain_cmyk_tone 00,-38,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,-164,88,255,00,00,00,00,00,00,00,00,00,65,33,-15,00,00,00,00,00,00,00,00,00,00,00,-25,128,92,62,45,38,1
+fi
+if $1==3
++iain_cmyk_tone -25,50,00,25,00,00,25,00,00,00,00,00,025,25,00,-50,00,00,25,00,00,00,00,00,025,00,00,25,00,00,-50,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,36,178,255,169,94,2
+fi
+if $1==4
++iain_cmyk_tone 25,-50,00,-25,00,00,-25,00,00,00,00,00,-025,-25,00,50,00,00,-25,00,00,00,00,00,-025,00,00,-25,00,00,50,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,17,120,240,255,255,4
+fi
+if $1==5
++iain_cmyk_tone 000,00,00,00,00,00,00,00,00,00,00,-60,000,00,00,00,00,00,00,00,00,-22,40,161,000,00,00,0,00,00,00,00,28,33,33,16,00,00,00,00,00,00,00,00,00,77,-8,-80,255,255,255,255,255,0
+fi
+if $1==6
++iain_cmyk_tone 000,00,00,00,00,00,00,00,00,00,00,00,000,00,00,00,00,00,00,00,00,07,-20,-33,000,00,00,00,00,00,00,00,00,48,-65,-77,000,00,00,00,00,00,00,00,00,45,45,00,255,255,255,255,255,0,0
+fi
+if $1==7
++iain_cmyk_tone 000,20,00,00,08,00,00,00,00,00,-23,00,000,-13,00,0,17,00,00,00,00,-1,29,00,000,00,00,00,00,-12,00,00,00,19,68,18,000,00,00,00,00,00,00,00,00,-5,55,-15,128,255,255,255,255,0,0
+fi
++sub[0,1]
+mul[-1] {{$2/100}*-1}
++[0,-1]
+keep[0]
+if $3==0
+c 0,255
+else
+n 0,255
+fi
+done a c done done
+fx_transfer_histogram :
+to_rgb
+ref={$2?0:-1}
+match_histogram[^$ref] [$ref],256,$1
+c 0,255
+fx_transfer_histogram_preview :
+if $!<2 gui_print_preview "Warning:",,"This filter requires at least two input layers to work properly." return fi
+ref={$2?0:-1}
++store[$ref] _fx_trgb_ref
+gui_split_preview[^$ref] "$_fx_trgb_ref fx_transfer_histogram $1,0 rm.",${-3--1}
+_fx_trgb_ref=
+mv[$ref] $!
+repeat $!-1 { l[$>,-1] {
+rr2d[0] $_preview_area_width,$_preview_area_height,0,3 rr2d. {0,[w,h]/3},0,3
+to. Reference,2,2,13,1,1,255 frame. 2,2,255 frame. 1,1,0
+j[0] .,$3%,$4%
+rm.
+} }
+fx_gcd_transfer_colors_patch : skip ${1=6},${2=3},${3=5},${4=5},${5=0},${6=0}
+ref={if($5,$!-1,0)} n=$!
++gcd_extract_clut[$ref] ${1-4}
+map_clut[^-1,$ref] .
+if $6>0" || "$n==1
+r,s={arg(max($6,1),64,256)},{arg(max($6,1),512,4096)}
+r. $r,$r,$r,3,3 r. $s,$s,1,3,-1
+else rm. fi
+fx_gcd_transfer_colors_patch_preview :
+fx_gcd_transfer_colors_patch $*
+if !$5 rm[0] fi
+fx_transfer_pca :
+to_rgb
+ref={$2?0:-1}
+match_pca[^$ref] [$ref],$1
+c 0,255
+fx_transfer_pca_preview :
+if $!<2 gui_print_preview "Warning:",,"This filter requires at least two input layers to work properly." return fi
+ref={$2?0:-1}
++store[$ref] _fx_trgb_ref
+gui_split_preview[^$ref] "$_fx_trgb_ref fx_transfer_pca $1,0 rm.",${-3--1}
+_fx_trgb_ref=
+mv[$ref] $!
+repeat $!-1 { l[$>,-1] {
+rr2d[0] $_preview_area_width,$_preview_area_height,0,3 rr2d. {0,[w,h]/3},0,3
+to. Reference,2,2,13,1,1,255 frame. 2,2,255 frame. 1,1,0
+j[0] .,$3%,$4%
+rm.
+} }
+fx_transfer_rgb :
+to_rgb
+ref={$4?0:-1}
+match_rgb[^$ref] [$ref],0.25,$1,$2,{2^(4+$3)},$5,0
+c 0,255
+fx_transfer_rgb_preview :
+if $!<2 gui_print_preview "Warning:",,"This filter requires at least two input layers to work properly." return fi
+ref={$4?0:-1}
++store[$ref] _fx_trgb_ref
+gui_split_preview[^$ref] "$_fx_trgb_ref fx_transfer_rgb $1,$2,0,0,0 rm.",${-3--1}
+_fx_trgb_ref=
+mv[$ref] $!
+repeat $!-1 { l[$>,-1] {
+rr2d[0] $_preview_area_width,$_preview_area_height,0,3 rr2d. {0,[w,h]/3},0,3
+to. Reference,2,2,13,1,1,255 frame. 2,2,255 frame. 1,1,0
+j[0] .,$6%,$7%
+rm.
+} }
+_fx_tune_hsv :
+mode_dark,Rdark,Gdark,Bdark,Hdark,Sdark,Vdark,mode_light,Rlight,Glight,Blight,Hlight,Slight,Vlight,mode_avg,Ravg,Gavg,Bavg,Havg,Savg,Vavg,mode_red,Rred,Gred,Bred,Hred,Sred,Vred,mode_yellow,Ryellow,Gyellow,Byellow,Hyellow,Syellow,Vyellow,mode_green,Rgreen,Ggreen,Bgreen,Hgreen,Sgreen,Vgreen,mode_cyan,Rcyan,Gcyan,Bcyan,Hcyan,Scyan,Vcyan,mode_blue,Rblue,Gblue,Bblue,Hblue,Sblue,Vblue,mode_magenta,Rmagenta,Gmagenta,Bmagenta,Hmagenta,Smagenta,Vmagenta,preview_mapping=${1-64}
+all_colors=dark,light,avg,red,yellow,green,cyan,blue,magenta
+foreach { split_opacity l[0] {
+to_rgb
+colors,sep=
+repeat narg($all_colors) { color=${arg0\ $>,$all_colors} if ${mode_$color} colors.=$sep$color sep=, fi }
++srgb2lab channels. 0 darklight={"[I(#-2,xm,ym),I(#-2,xM,yM)]"} rm.
+dark={[$darklight][0,3]} light={[$darklight][3,3]}
++r. 1,1,1,3,2 avg={^} rm.
+eval. ">
+begin(
+red = yellow = green = cyan = blue = magenta = [0,0,0];
+best_red = best_yellow = best_green = best_cyan = best_blue = best_magenta = inf;
+test_color(color,tR,tG,tB) = (
+val = norm([tR,tG,tB]-[R,G,B]);
+val]
+to_rgb[0] +luminance[0] +luminance[0] +luminance[0]
+fx_mix_lab[0] $2,{$1*10},0,$3,0,0,$3,0,0,0,2,0
+tk_fx_channel_processing. 1,1,0,0,4,{$4/2.55},100,256,0,1,0,2,0,0
+tk_fx_channel_processing.. 1,1,0,0,4,{$4/2.55},{$5/2.55},256,0,0,0,2,0,0
+tk_fx_channel_processing... 1,1,0,0,4,0,{$5/2.55},256,0,1,0,2,0,0
+to_gray[-1,-2,-3] fx_gaussian_blur[-1,-2,-3] $6,0,0,1,0,0,0
++fc[0] $7,$8,$9 +fc[0] $11,$12,$13 +fc[0] $15,$16,$17 to_rgba[-1,-2,-3]
+s. c rv[-1,-9] compose_multiply[-1,-9] mv[-8] 9 a[-4,-3,-2,-1] c
+s.. c rv[-2,-8] compose_multiply[-2,-8] mv[-7] 7 a[-5,-4,-3,-2] c
+s... c rv[-3,-7] compose_multiply[-3,-7] mv[-6] 5 a[-6,-5,-4,-3] c
++fc[0] $19,$20,$21 rv[-1,-5]
+if $22==0 fx_compose_exclusion[-1,-5] $23
+elif $22==1 fx_compose_overlay[-1,-5] $23
+elif $22==2 fx_compose_softlight[-1,-5] $23
+elif $22==3 fx_compose_multiply[-1,-5] $23
+elif $22==4 fx_compose_screen[-1,-5] $23
+fi
+rv[-3,-4] fx_compose_lighten[-3,-4] $10
+rv[-2,-3] fx_compose_overlay[-2,-3] $14
+rv[-1,-2] fx_compose_darken[-1,-2] $18
+if $25!=0
++fc[0] 255,255,255 fx_frame_round_old. 2,$24,0,0,0,0,0,255,100,0.1,3
+fx_gaussian_blur. {$6*5},0,0,1,0,0,0
+rv[-1,-2] fx_compose_multiply[-1,-2] $25 fi
+done done
+fx_tk_vintage_preview :
+gui_split_preview "fx_tk_vintage ${1--2}",$-1
+fx_zonesystem :
+repeat $! l[$>] to_rgb rgb2lab s c n[0] {{$1-1}*10}%,{$2*10}%
+a c lab2rgb tk_fx_channel_processing $3,$4,0,0,0,0,100,256,0,0,0,2,7,0
+fx_apply_curve 0,$5,0,$6,255,-1,128,-1,128,-1,128,255,1,7,0,0,0
+done done
+fx_zonesystem_preview :
+gui_split_preview "fx_zonesystem ${1--2}",$-1
+fx_convolve : skip "${3=1}"
+ac "_fx_convolve $1,$2,\"$3\",${4--5}",$-4
+_fx_convolve :
+if $1 _fx_convolve$1[] else ($3) fi
+if !$4 *. $5 fi
+convolve[0--2] .,$2
+if $4 n 0,255 else c 0,255 fi
+rm.
+_fx_convolve1 : 3,3 f 1 normalize_sum
+_fx_convolve2 : 5,5 f 1 normalize_sum
+_fx_convolve3 : 7,7 f 1 normalize_sum
+_fx_convolve4 : 9,9 f 1 normalize_sum
+_fx_convolve5 : (1,0,-1;1,0,-1;1,0,-1)
+_fx_convolve6 : (1,1,1;0,0,0;-1,-1,-1)
+_fx_convolve7 : (1,0,-1;2,0,-2;1,0,-1)
+_fx_convolve8 : (1,2,1;0,0,0;-1,-2,-1)
+_fx_convolve9 : a={0.25*(2-sqrt(2))} b={0.5*(sqrt(2)-1)} ($a,0,-$a;$b,0,-$b;$a,0,-$a)
+_fx_convolve10 : a={0.25*(2-sqrt(2))} b={0.5*(sqrt(2)-1)} ($a,$b,$a;0,0,0;-$a,-$b,-$a)
+_fx_convolve11 : (0,1,0;1,-4,1;0,1,0)
+_fx_convolve12 : (1,0;0,-1)
+_fx_convolve13 : (0,1;-1,0)
+_fx_convolve14 : 3,3 f 1 r 7,7,1,1,4,0,0.5,0.5 autocrop normalize_sum
+_fx_convolve15 : 3,3 f 1 r 9,9,1,1,4,0,0.5,0.5 autocrop normalize_sum
+_fx_convolve16 : 3,3 f 1 r 11,11,1,1,4,0,0.5,0.5 autocrop normalize_sum
+fx_convolve_preview : skip "${3=1}"
+gui_split_preview "fx_convolve $1,$2,\"$3\",${4--1}",${-3--1}
+fx_curvature :
+foreach {
+split_opacity l[0] {
+b $1 iee
+if $4 abs fi
+c $2%,$3%
+if $5 negate fi
+n 0,255
+}
+a c
+}
+fx_curvature_preview :
+gui_split_preview "fx_curvature ${^0}",${-3--1}
+fx_dog :
+dog $1%,$2%
+if $5 norm fi
+c $3%,{100-$3}%
+if $4 negate fi
+n 0,255
+fx_dog_preview :
+gui_split_preview "gui_crop_preview fx_dog ${^0} gui_resize_preview",${-3--1}
+fx_distance :
+foreach {
+split_opacity l[0] {
+distance $1,$2
+if $3==0 c 0,255
+elif $3==1 n 0,255
+else % $4 n 0,255
+fi
+}
+a c
+}
+fx_distance_preview :
+gui_split_preview "fx_distance ${^0}",${-3--1}
+#@cli afre_edge : method={ 0=gradient | 1=standard_deviation },1<=thinning<=10,0.5<=_recovery<=4,0.5<=_brightness<=4,0.5<=_details<=4
+#@cli : Compute edge of selected images.
+#@cli : Default values: 'method=0', 'thinning=1', 'recovery=1', 'brightness=1' and 'details=1'.
+afre_edge : check "${2=1}>=1 && ${3=1}>=0.5 && ${4=1}>=0.5 && ${5=1}>=0.5 &&
+$2<=10 && $3<=4 && $4<=4 && $5<=4"
+e[] "[afre]^_^) edge: Compute edge of image$? using method=$1, thinning=$2, recovery=$3, brightness=$4 and details=$5."
+repeat $! l[$>] if $1 m "method : afre_sdpatch 1" else m "method : afre_gnorm" fi
+method im,ic,iM={[im,ic,iM]} ^ {1/$5} n $im,$iM
+repeat $2 +afre_box 1 method. r={[im,iM]} ^. $3 n. $r - done
+c $ic,$iM ^ {1/$4} n 0,$iM
+done done um method
+afre_edge_preview :
+afre_edge $*
+fx_edges :
+to_rgb b $1% edges $2%
+if $3 negate fi
+n 0,255
+fx_edges_preview :
+gui_split_preview "fx_edges ${^0}",${-3--1}
+fx_edge_offsets :
+repeat $! {
+os={s}
+b. $1% gradient_norm. >=. $2% skeleton. 0 distance. 1 round. 1 %. $3 >=. {max(1,$3-$4)}
+if !$5 negate. fi
+n. 0,255 to_colormode. $os
+mv. 0 }
+fx_edge_offsets_preview :
+gui_split_preview "fx_edge_offsets ${^0}",${-3--1}
+fx_extract_foreground :
+if !$! return fi
+resolution={arg(1+$3,512,1024,2048,0)}
+foreach {
+nm=${-gui_layer_name}
+initial_pos=${-gui_layer_pos}
+=> "[G"{`39`}"MIC] Interactive Foreground Extraction"
+if [$6][0]==-1" || "[$5]!=[w,h] _gui_control_points= else _gui_control_points=$6 fi
+status=${x_segment\ $resolution}
+sh 3 b. $1% if $2>0 dilate. {1+2*$2} elif $2<0 erode. {1-2*$2} fi
+rm.
+if $3==1 sh 3 max. 1 rm.
+elif $3==2 s c,-3 r. 100%,100%,1,4 rv =>[0] "name(Mask)" =>[1] "name("$nm")"
+elif $3==3
+.
+sh.. 0,2 +channels... 3,3 >=. 3 *[-2,-1] rm.
+sh. 0,2 +channels.. 3,3 <=. {255-3} *[-2,-1] rm.
+sh. 3 *. -1 +. 255 rm.
+gui_autocrop_layers[0]
+pos0=${gui_layer_pos[0]} pos1=${gui_layer_pos[1]}
+=>[0] "name("$nm" [foreground]),pos("{``{[$pos0]+[$initial_pos]}}")"
+=>[1] "name("$nm" [background]),pos("{``{[$pos1]+[$initial_pos]}}")"
+fi
+}
+if narg($status)>=4 u \{$1\}\{$2\}\{$3\}\{$4\}\{{w},{h}\}\{$status\} else u "" fi
+fx_gradient_norm :
+b $1 gradient_norm ^ $2
+c $3%,$4%
+if $5 negate fi
+n 0,255
+fx_gradient_norm_preview :
+gui_split_preview "fx_gradient_norm ${^0}",${-3--1}
+fx_gradient2rgb :
+b $1 gradient2rgb $4
+c $2%,$3%
+if $5 negate fi
+n 0,255
+fx_gradient2rgb_preview :
+gui_split_preview "fx_gradient2rgb ${^0}",${-3--1}
+fx_isophotes :
+if $3
+topographic_map $1,$2
+else
+b $2 isophotes $1
+fi
+fx_isophotes_preview :
+gui_split_preview "fx_isophotes ${^0}",${-3--1}
+fx_laplacian :
+b $1 laplacian
+if $4 abs fi
+c $2%,$3%
+if $5 negate fi
+n 0,255
+fx_laplacian_preview :
+gui_split_preview "fx_laplacian ${^0}",${-3--1}
+_fx_local_orientation :
+foreach {
+split_opacity l[0] {
+b $1% gradient_orientation 2 complex2polar rm[0--1:2]
+c $2%,$3%
+if $4 negate fi
+n 0,255
+}
+a c
+}
+fx_local_orientation :
+ac "_fx_local_orientation $1,$2,$3,$4",$5,2
+fx_local_orientation_preview :
+gui_split_preview "fx_local_orientation ${^0}",${-3--1}
+fx_morphological :
+ac "_fx_morphological ${1-3},\"$4\",${5-6}",$7,$8
+fx_morphological_preview :
+gui_split_preview "fx_morphological ${1-3},\"$4\",${5--1}",${-3--1}
+if $2==3
+('"$4"') f. "(i>=_'0' && i<=_'9') || i==_',' || i==_';'?i:-1"
+discard. -1 ({t}) rr2d. {0,max(24,w/6)},{0,max(24,h/6)},0,1 >. 0 *. 255
+to_rgba. frame. 1,1,0,0,0,0,255 frame. 1,1,255 frame. 1,1,0,0,0,0,255
+j[^-1] .,2,2,0,0,0.75 rm.
+else
+fi
+_fx_morphological :
+('"$4"') f. "(i>=_'0' && i<=_'9') || i==_',' || i==_';'?i:-1" discard. -1 ckernel={t} rm.
+if $2==0
+m "my_erode: erode $""1"
+m "my_dilate: dilate $""1"
+m "my_opening : opening $""1"
+m "my_closing : closing $""1"
+elif $2==1
+m "my_erode: erode_oct $""1"
+m "my_dilate: dilate_oct $""1"
+m "my_opening : opening_circ $""1"
+m "my_closing : closing_circ $""1"
+elif $2==2
+m "my_erode: erode_circ $""1"
+m "my_dilate: dilate_circ $""1"
+m "my_opening : opening_circ $""1"
+m "my_closing : closing_circ $""1"
+else
+m "my_erode : skip $""1 ("$ckernel") erode[^-1] . rm."
+m "my_dilate : skip $""1 ("$ckernel") dilate[^-1] . rm."
+m "my_opening : skip $""1 ("$ckernel") opening[^-1] . rm."
+m "my_closing : skip $""1 ("$ckernel") closing[^-1] . rm."
+fi
+if $1==0 m "my_action : my_erode $3"
+elif $1==1 m "my_action : my_dilate $3"
+elif $1==2 m "my_action : my_opening $3"
+elif $1==3 m "my_action : my_closing $3"
+elif $1==4 m "my_action : +my_erode $3 -"
+elif $1==5 m "my_action : +my_dilate $3 rv -"
+elif $1==6 m "my_action : +my_opening $3 -"
+elif $1==7 m "my_action : +my_closing $3 rv -"
+elif $1==8 m "my_action : +my_opening $3 +my_closing.. $3 +[-2,-1] /. 2 -"
+else m "my_action : +my_opening $3 my_closing.. $3 -"
+fi
+foreach {
+if !$6 split_opacity fi
+my_action[0]
+a c
+}
+if $5 foreach { split_opacity negate[0] a c } fi
+um my_erode,my_dilate,my_action
+fx_segment_watershed : skip ${4=1}
+ac "b $2 segment_watershed $1",$3,$4
+fx_segment_watershed_preview :
+gui_split_preview "fx_segment_watershed ${^0}",${-3--1}
+fx_skeleton :
+remove_opacity
+b $2% >= 50%
+if $1 thinning 1
+else
+distance 0 sharpen 1e10 >= 100%
+repeat $! { +erode[$>] 2 -[$>,-1] }
+fi
+* 255
+fx_skeleton_preview :
+gui_split_preview "fx_skeleton ${^0}",${-3--1}
+fx_superpixels :
+foreach {
++srgb2lab slic. ${1-3}
+if $4 +blend shapeaverage else +map. 2,2 fi
+if $5 f[1] "i!=j(1,0) || i!=j(0,1)" [0],[0],1,4 fc. ${6-9} to_rgba.. j.. .,0,0,0,0,$5,... k..
+else k.
+fi
+}
+fx_superpixels_preview :
+gui_split_preview "fx_superpixels ${^0}",${-3--1}
+fx_thin_edges :
+b $1% gradient_norm >= $2% thinning 1
+if !$3 negate fi
+n 0,255
+fx_thin_edges_preview :
+gui_split_preview "fx_thin_edges ${^0}",${-3--1}
+fx_breaks :
+foreach {
+if !$5 to_a fi
+100%,100%,1,1,"u<($3%)^6"
+if $1
+distance. 1 sharpen. 100000 neq. 0 distance. 1 b. $4 g. xy a[-2,-1] c
+else
+delaunay. 0 label_fg. 0,1 {1+iM},1,1,2 rand. -30,30 point. 0 map.. . rm.
+fi
+n. -$2,$2 warp[0] .,1,1,$5 rm.
+}
+fx_custom_deformation :
+if !$5 to_a fi
+repeat $! {
++norm. . f.. "$1" f. "$2"
+a[-2,-1] c warp.. .,$3,$4,$5,1 rm.
+mv. 0 }
+fx_circle_transform :
+foreach {
+to_rgba r={dx=($3-$1)*(w-1)%;dy=($4-$2)*(h-1)%;norm(dx,dy)}
+if $7==0 cond="i(X,Y,z,c,$8,$9)"
+elif $7==1 cond="if(N<"$r",i(X,Y,z,c,$8,$9),i)"
+else cond="if(N>"$r",i(X,Y,z,c,$8,$9),i)"
+fi
+f "U = x - w*$1%;
+V = y - h*$2%;
+N = sqrt(U*U + V*V);
+Nr = N - "$r";
+X = x + $5*Nr*U/N;
+Y = y + $6*Nr*V/N;
+"$cond
+}
+fx_circle_transform_preview :
+fx_circle_transform $*
+if $10
+rr2d ${-gui_preview_wh},0,1
+foreach {
+x0,y0={[$1,$2]*([w,h]-1)%}
+r={dx=($3-$1)*(w-1)%;dy=($4-$2)*(h-1)%;norm(dx,dy)}
+circle $x0,$y0,{$r-1},1,0xFFFFFFFF,0,0,0,255
+circle $x0,$y0,{$r+1},1,0xFFFFFFFF,0,0,0,255
+circle $x0,$y0,$r,1,0xFFFFFFFF,0,255,0,255
+}
+fi
+fx_conformal_maps :
+to_a
+expr0="$4"
+expr1="z"
+expr2="(z+1)/(z-1)"
+expr3="cos(z)"
+expr4="sin(z)"
+expr5="tan(z)"
+expr6="exp(z)"
+expr7="log(z)"
+expr8="1/(4*z^2-1)"
+expr9="-5*(z^3/3-z/4)/2"
+('${expr$1}')
+replace_str. "*","**"
+replace_str. "/","//"
+replace_str. "^","^^"
+replace_str. "exp(","cexp("
+replace_str. "log(","clog("
+replace_str. "cos(","ccos("
+replace_str. "sin(","csin("
+replace_str. "tan(","ctan("
+expr={t}
+rm.
+foreach {
+wh={$12?[$13,$14]:[w,h]}
+{(1+$11)*[$wh]},1,100%
+f. "begin(
+ccos(z) = (iz = [ -z[1],z[0] ]; (cexp(iz) + cexp(-iz)/2));
+csin(z) = (iz = [ -z[1],z[0] ]; (cexp(iz) - cexp(-iz)/2));
+ctan(z) = csin(z)//ccos(z);
+boundary = $10;
+interpolation = 1;
+const f = max(w,h);
+const f0 = max(w#0,h#0);
+i = [0,1];
+);
+z = (2*[ x,y ] - [ w,h ])/f;
+z = rot(-$6°)*z;
+z-= [ $8, $9 ];
+z/=[ 10^($5 + $7), 10^$5 ];
+z = ("$expr");
+if ($1, z = z^^[$2,$3]);
+z = rot($6°)*z;
+z = 0.5*(f0*z + [w#0,h#0]);
+I(#0,z)"
+r. $wh,1,100%,2
+rm..
+}
+fx_conformal_maps_preview :
+fx_conformal_maps ${1-3},"$4",${5-11},0,0,0
+souphead_droste10 :
+_souphead_droste10 ${1-26},0,${28-31}
+souphead_droste10_preview :
+_souphead_droste10 ${1--1}
+_souphead_droste10 :
+repeat $! l[$>]
+to_a
++f. 0
+sh. 0
+f. "*
+begin(InnerRadius = $1;
+OuterRadius = $2;
+Periodicity = $3;
+Strands = $4;
+Zoom = $5;
+Rotate = $6;
+XShift = $7;
+YShift = $8;
+XCenterShift = $9;
+YCenterShift = $10;
+StartingLevel = $11;
+NumberOfLevels = $12;
+LevelFrequency = $13;
+ShowBothPoles = $14;
+PoleRotation = $15;
+PoleLong = $16;
+PoleLat = $17;
+TilePoles = $18;
+HyperDroste = $19;
+FractalPoints = $20;
+AutoSetPeriodicity = $21;
+NoTransparency = $22;
+ExternalTransparency = $23;
+MirrorEffect = $24;
+Untwist = $25;
+DoNotFlattenTransparency = $26;
+ShowGrid = $27;
+ShowFrame = $28;
+Antialias = $29;
+XEdgeType = $30;
+YEdgeType = $31;
+r1 = InnerRadius/100;
+r2 = OuterRadius/100;
+p1 = Periodicity;
+p2 = Strands;
+xCenterShift = XCenterShift/100;
+yCenterShift = YCenterShift/100;
+W = (w-1)/2;
+H = (h-1)/2;
+xShift = (XShift*w/W)/100;
+yShift = (YShift*h/H)/100;
+tileBasedOnTransparency=!(NoTransparency);
+transparentPointsIn=!(ExternalTransparency);
+levelsToLookOut=StartingLevel;
+levelToShow=LevelFrequency;
+retwist=!(Untwist);
+if (AutoSetPeriodicity,p1=p2/2*(1+sqrt(1-(log(r2/r1)/pi)^2)));
+if (p1>0,rotate=-(pi/180)*Rotate,rotate=(pi/180)*Rotate);
+zoom=(Zoom+InnerRadius-1)/100;
+epsilon=0.01;
+if(retwist,xbounds0=-r2;xbounds1=r2;ybounds0=-r2;ybounds1=r2,ybounds0=0;ybounds1=2.1*pi;xbounds0=-log(r2/r1);xbounds1=-xbounds0);
+minDimension=min(w,h);
+xymiddle=0.5*(xbounds0+xbounds1);
+xymiddlei=0.5*(ybounds0+ybounds1);
+xyrangex=xbounds1-xbounds0;
+xyrangey=ybounds1-ybounds0;
+aspectRatio=w/h;
+xyrangex=xyrangey*aspectRatio;
+xbounds0=xymiddle-0.5*xyrangex;
+xbounds1=xymiddle+0.5*xyrangex;
+pLat = (PoleLat*w/W)/100;
+pLon = (PoleLong*w/W)/100;
+alpha=atan(p2/p1*log(r2/r1)/(2*pi));
+f=cos(alpha);
+beta=f*cos(alpha);
+betai=f*sin(alpha);
+if(p2>0,angle=2*pi*p1,angle=-2*pi*p1);
+if(MirrorEffect,angle=angle/Strands);
+);
+X=x-((w-1)/2);
+Y=((h-1)/2)-y;
+z=xbounds0+(xbounds1-xbounds0)*(X+w/2)/w;
+zi=ybounds0+(ybounds1-ybounds0)*(Y+h/2)/h;
+if(retwist,
+zinitial=z;
+zinitiali=zi;
+z=z-xShift;
+zi=zi-yShift;
+expo=cos(rotate);
+expoi=sin(rotate);
+zmid=(z-xymiddle)/zoom;
+zmidi=(zi-xymiddlei)/zoom;
+zx=(zmid*expo+zmidi*expoi);
+zy=(zmidi*expo-zmid*expoi);
+z=xymiddle+zx;
+zi=xymiddlei+zy,
+zinitial=r1*exp(z)*cos(zi);
+zinitiali=r1*exp(z)*sin(zi);
+expo=cos(rotate)*zoom;
+expoi=sin(rotate)*zoom;
+zx=zinitial*expo-zinitiali*expoi;
+zy=zinitial*expoi+zinitiali*expo;
+zinitial=zx;
+zinitiali=zy
+);
+if(ShowBothPoles,
+theta=(pi/180)*PoleRotation;
+xx=z;
+yy=zi;
+div=0.5*(1+xx^2+yy^2+((1-xx^2-yy^2)*cos(theta))-(2*xx*sin(theta)));
+xx=xx*cos(theta)+(0.5*(1-xx^2-yy^2)*sin(theta));
+z=xx/div;
+zi=yy/div,
+if(HyperDroste,
+zx=sin(z)*cosh(zi);
+zy=cos(z)*sinh(zi);
+z=zx;
+zi=zy
+);
+if(TilePoles,
+p=sqrt(z*z + zi*zi)^FractalPoints;
+frac=FractalPoints*atan2(zi,z);
+z=p*cos(frac);
+zi=p*sin(frac);
+z=2*z;
+zi=2*zi;
+p=cos(2*z)+cosh(2*zi);
+zx=sin(2*z)/p;
+zy=sinh(2*zi)/p;
+z=zx;
+zi=zy
+);
+);
+z=z+pLat;
+zi=zi+pLon;
+if(retwist,
+za=z/r1;
+zb=zi/r1;
+zx=0.5*log(za*za+zb*zb);
+zy=atan2(zb,za);
+z2=zx;
+z2i=zy,
+z2=z;
+z2i=zi
+);
+p=beta*beta+betai*betai;
+z=p1*(z2*beta+z2i*betai)/p;
+zi=p1*(z2i*beta-z2*betai)/p;
+rotatedscaledlogz=z;
+rotatedscaledlogzi=zi;
+logz=z2;
+logzi=z2i;
+zx=r1*exp(z)*cos(zi);
+zy=r1*exp(z)*sin(zi);
+z=zx;
+zi=zy;
+if(tileBasedOnTransparency && levelsToLookOut>0,
+if(!transparentPointsIn,
+ratio=r2/r1*cos(angle);
+ratioi=r2/r1*sin(angle),
+ratio=r1/r2*cos(angle);
+ratioi=-r1/r2*sin(angle)
+);
+p=sqrt(ratio*ratio+ratioi*ratioi)^levelsToLookOut;
+q=atan(ratioi/ratio);
+rp=p*cos(levelsToLookOut*q);
+rpi=p*sin(levelsToLookOut*q);
+zx=z*rp-zi*rpi;
+zy=z*rpi+zi*rp;
+z=zx;
+zi=zy;
+);
+colorSoFarR=0;
+colorSoFarG=0;
+colorSoFarB=0;
+colorSoFarA=0;
+alphaRemaining=1;
+ix=minDimension/2*(z+xCenterShift);
+iy=minDimension/2*(zi+yCenterShift);
+realx=ix+((w-1)/2);
+realy=((h-1)/2)-iy;
+if(realx<0 || realx>=w,
+if(XEdgeType==1,
+realx=realx%w;
+if(realx<0,realx=w+realx)
+);
+if(XEdgeType==2,
+realx=abs(realx%w);
+if(realx=h,
+if(YEdgeType==1,
+realy=realy%h;
+if(realy<0,realy=h+realy)
+);
+if(YEdgeType==2,
+realy=abs(realy%h);
+if(realyepsilon,sign=-1);
+if(!transparentPointsIn && alphaRemaining>epsilon,sign=1),
+radius=sqrt(z*z+zi*zi);
+if(radiusr2,sign=1)
+);
+if(sign<0,
+ratio=r2/r1*cos(angle);
+ratioi=r2/r1*sin(angle)
+);
+if(sign>0,
+ratio=r1/r2*cos(angle);
+ratioi=-r1/r2*sin(angle)
+);
+if(levelToShow>1,
+lograt=levelToShow*0.5*log(ratio*ratio+ratioi*ratioi);
+lograti=levelToShow*atan2(ratioi,ratio);
+ratio=exp(lograt)*cos(lograti);
+ratioi=exp(lograt)*sin(lograti)
+);
+iteration=StartingLevel;
+maxiteration=NumberOfLevels+StartingLevel-1;
+while(sign!=0 && iteration=w,
+if(XEdgeType==1,
+realx=realx%w;
+if(realx<0,realx=w+realx)
+);
+if(XEdgeType==2,
+realx=abs(realx%w);
+if(realx=h,
+if(YEdgeType==1,
+realy=realy%h;
+if(realy<0,realy=h+realy)
+);
+if(YEdgeType==2,
+realy=abs(realy%h);
+if(realyepsilon,sign=-1);
+if(!transparentPointsIn && alphaRemaining>epsilon,sign=1),
+radius=sqrt(z*z+zi*zi);
+colorSoFarR=ColorOutR;
+colorSoFarG=ColorOutG;
+colorSoFarB=ColorOutB;
+colorSoFarA=ColorOutA;
+if(radiusr2,sign=1)
+);
+iteration=iteration+1;
+);
+ColorOutR=colorSoFarR;
+ColorOutG=colorSoFarG;
+ColorOutB=colorSoFarB;
+ColorOutA=colorSoFarA;
+if(ShowGrid,
+gridzx=(logz+10*log(r2/r1))%log(r2/r1);
+gridzy=(logzi+10*2*pi)%(2*pi);
+if(gridzx(log(r2/r1)-epsilon) || gridzy(2*pi-epsilon),
+ColorOutR=0;
+ColorOutG=1;
+ColorOutB=0;
+ColorOutA=1;
+);
+gridzx=(rotatedscaledlogz+10*log(r2/r1))%log(r2/r1);
+gridzy=(rotatedscaledlogzi+10*2*pi)%(2*pi);
+if(gridzx(log(r2/r1)-epsilon) || gridzy(2*pi-epsilon),
+ColorOutR=0;
+ColorOutG=0;
+ColorOutB=1;
+ColorOutA=1;
+);
+);
+if(ShowFrame,
+gridzx=zinitial;
+gridzy=zinitiali;
+if(gridzx<(aspectRatio*r2) && gridzx>-(aspectRatio*r2) && gridzy-r2,
+dx=min((aspectRatio*r2)-gridzx,gridzx+(aspectRatio*r2));
+dy=min(r2-gridzy,gridzy+r2);
+if(dx<(4*epsilon) || dy<(4*epsilon),
+ColorOutR=1;
+ColorOutG=1;
+ColorOutB=1;
+ColorOutA=1
+);
+if(dx<(2*epsilon) || dy<(2*epsilon),
+ColorOutR=0;
+ColorOutG=0;
+ColorOutB=0;
+ColorOutA=1
+),
+ColorOutR=0.75*ColorOutR;
+ColorOutG=0.75*ColorOutG;
+ColorOutB=0.75*ColorOutB;
+ColorOutA=1
+);
+);
+if(!DoNotFlattenTransparency,ColorOutA=1);
+i(#1,x,y,0,1)=ColorOutG*255;
+i(#1,x,y,0,2)=ColorOutB*255;
+i(#1,x,y,0,3)=ColorOutA*255;
+ColorOutR*255"
+k..
+done done
+fx_crease :
+foreach {
+if !$3 to_a fi
+2,2,1,2,{"const w1 = w#-1-1; const h1 = h#-1 - 1; [ 0,w1,0,w1,0,0,h1,h1 ];"}
+r. {0,D=$2*[w,h]%;[max(D[0],1),max(D[1],1)]},1,2,3 noise. $1,1
+r. ..,..,1,2,3 warp.. .,0,1,$3 rm.
+}
+fx_distort_lens :
+if !$6 to_a fi
+undistort ${1-3},$4%,$5%,$6
+fx_drop_water :
+N={$!-$1}
+if $N<=0 error "At least two layers are required in this mode." fi
+repeat $N { l[{$!-$>-1}] {
+nm0={n} nm=${-gui_layer_name}
+=> img
+srand $5
+if $1
+pass[0] 0 to_a. channels. 100% >=. 50%
+r. [0],[0],1,1,0,0,0.5,0.5
+else
+100%,100%
+rmin={max(0.1,$3*(1-$4%))} rmax={max(0.1,$3)}
+repeat 10 {
+100%,100%
+random3d {max(1,$2)} *3d. {-2,w},{-2,h},0
+j3d.. .,0,0,0,1,1,0,0 rm.
+b. {$rmin+($rmax-$rmin)*$>/9}%,0,1
+j.. .,0,0,0,0,0.5 rm.
+}
+>=. 10%
+fi
+=> shape
++b[shape] 1% n. 0,30
+=> elevation
+g[elevation] xy a[-2,-1] c => grad
++*[grad] {grad,$6*max(w,h)/100} *. [shape] b. $15%
++warp[img] .,1,1,1 rm.. => refraction
++*[grad] -1 100%,100%,1,1,1 a[-2,-1] c orientation.
+a={$7*pi/180} ca={-cos($a)} sa={-sin($a)}
+mix_channels. ({(1-$10)*$ca},{(1-$10)*$sa},1) c. {100-$8}%,100% n. 0,1
+*. [shape] => spots
+mix_channels[grad] ($ca,$sa)
+n[grad] 0,1 *[grad] [shape]
++shift[shape] {-$11*$ca}%,{-$11*$sa}%,0,0,1
+-. [shape] >=. 1 b. $13% n. 0,1
+=> shadow
+b[shape] $14% n. 0,1
+=>[img] name($nm)
+*[shadow] 255 channels[shadow] -1,0 mv[shadow] 1
+=>[shadow] "name("$nm" [shadow]),mode(alpha),opacity("{$12*100}")"
+to_a[refraction] sh[refraction] 100% +b[shape] $15% *[-2,-1] rm.
+mv[refraction] 2
+=>[refraction] "name("$nm" [refraction]),mode(alpha)"
+channels[spots] -1,0 sh[spots] 0 f. 1 rm. *[spots] 255
+=>[spots] "name("$nm" [specular spots]),mode(alpha),opacity("{$9*100}")"
+rv[shape,grad] a[grad,shape] c *[grad] 255 b[grad] $15%
+=>[grad] "name("$nm" [gradient]),mode(grainmerge)"
+rv
+if !$16 gui_merge_layers => $nm0 fi
+} }
+if $1 rm[0] fi
+fx_drop_water_preview :
+N={$!-$1}
+if $N<=0 gui_warning_preview "At least two layers are required in this mode." return fi
+if $1
+repeat $N { l[{$!-$>-1}] {
+pass[0] 0 mv. 0
+fx_drop_water $* gui_merge_layers
+} }
+rm[0]
+else foreach { fx_drop_water $* gui_merge_layers }
+fi
+fx_equirectangular2nadirzenith :
+if $1 nadirzenith2equirectangular else equirectangular2nadirzenith fi
+fx_euclidean2polar :
+if !$4 to_a fi
+if $5 polar2euclidean $1%,$2%,$3,$4 else euclidean2polar $1%,$2%,$3,$4 fi
+fx_flower :
+if !$7 to_a fi
+amplitude,angle={dx=$3-$1;dy=$4-$2;[norm(dx,dy),-atan2(dy,dx)*180/pi]}
+flower $amplitude,$5,$6%,$angle,$1%,$2%,$7
+fx_flower_preview :
+fx_flower $*
+line $1%,$2%,$3%,$4%,1,0xF0F0F0F0,0
+line $1%,$2%,$3%,$4%,1,0x0F0F0F0F,255
+fx_rotoidoscope :
+if !$5 to_a fi
+rotoidoscope $1%,$2%,$3,$4%,$5
+fx_kaleidoscope :
+if !$7 to_a fi
+shift $3%,$4%,0,0,2 kaleidoscope $1%,$2%,$5,$6,$7
+fx_symmetrizoscope :
+if !$3 to_a fi
+repeat $1 {
+ang={$2+180*$>/max(1,$1-1)}
+symmetrize 50%,50%,$ang,$3,0,{if($4!=2,$4,$>%2)}
+}
+fx_morph_interactive :
+if [$3][0]!=-1 __x_morph_keypoints=$3 fi
+rv
+x_morph $1,$2
+repeat $! { gui_set_layer_name[$>] "Morphing ""#"$> gui_set_layer_pos[$>] 0,0 }
+rv
+u "{$1}{$2}{"$__x_morph_keypoints"}"
+fx_morph_interactive_preview :
+if $!<2 gui_warning_preview "This filter requires at least two input layers!" return fi
+rr2d ${-max_wh},0,3 + n 0,255
+if [$3][0]!=-1 gui_warning_preview "No preview available\n\nKeypoints from previous\nrun have been saved"
+else gui_warning_preview "No preview available"
+fi
+fx_warp_perspective :
+if !$8 to_a fi
+shift $6%,$7%,0,0,2 warp_perspective $1,$2,$3,$4,$5,$8
+fx_transform_polar :
+if !$6 to_a fi
+if $1==0
+transform_polar "$4","$5",$2%,$3%,$6
+elif $1==1
+transform_polar R-r,a,$2%,$3%,$6
+else
+transform_polar a*R/(2*pi),r*2*pi/R,$2%,$3%,$6
+fi
+fx_quadrangle :
+at_quadrangle $1%,$2%,$3%,$4%,$5%,$6%,$7%,$8%,${9-10}
+fx_quadrangle_preview :
+foreach {
+if !$10 to_a fi
+if $11 +fx_quadrangle $* rr2d. {0,[w,h]},2,3 fi
+polygon[{$11==1?1:0}] 4,$1%,$2%,$3%,$4%,$5%,$6%,$7%,$8%,0.25,255
+if $11>=2
+circle[0] $1%,$2%,4,1,0 circle[0] $1%,$2%,3,1,255,0,0
+circle[0] $3%,$4%,4,1,0 circle[0] $3%,$4%,3,1,0,255,0
+circle[0] $5%,$6%,4,1,0 circle[0] $5%,$6%,3,1,64,128,255
+circle[0] $7%,$8%,4,1,0 circle[0] $7%,$8%,3,1,255,255,0
+elif $11>0
+rm[0]
+fi
+if $!==2
+drgba to[0] Quadrangle to[1] Result frame 1,1,0
++a x a[0,1] y rr2d ${-gui_preview_wh},0,3
+k[{max(w#0,h#0)>max(w#1,h#1)?0:1}]
+fi
+}
+fx_reflect :
+repeat $! {
+to_rgba. +rows. {100-$1}%,100% mirror. y water. $7,$8
+s. c
+f[-4] "(i*(255-$6) + $6*$3)/255"
+f... "(i*(255-$6) + $6*$4)/255"
+f.. "(i*(255-$6) + $6*$5)/255" a[-4--1] c
+*. '(h^$2-y^$2)/h^$2' a[-2,-1] y
+100%,100%,100%,1,$11*$12*(x/w-0.5)
+100%,100%,100%,1,$11*$12*(y/h-0.5)
+100%,100%,100%,1,"$10*(x/w-0.5) + $9*(y/h-0.5) + $11"
+/... . +... 0.5 *... {-3,w}
+/[-2,-1] +. 0.5 *. {h}
+a[-2,-1] c warp.. .,0,1,0 rm.
+mv. 0 }
+autocrop 0,0,0,0
+fx_seamcarve :
+if $4
+if $!<2 error "Priority mask (top layer) is missing!" fi
+_fx_seamcarve
+fi
+seamcarve $1%,$2%,$4,$5,$3%
+if $4 repeat $! { channels[$>] 0,{$>,s-2} } fi
+c 0,255
+fx_seamcarve_preview :
+if $4
+if $!<2 to_rgb to "Priority mask (top layer) is missing!",5,5,18,2 return fi
+_fx_seamcarve
+fi
+foreach {
+w={w} h={h}
+seamcarve $1%,$2%,$4,$5,{max($3,10)}%
+if $4 channels 0,{s-2} fi
+to_rgba r $w,$h,1,100%,0,0,0.5,0.5
+}
+c 0,255
+_fx_seamcarve :
+mv[0] $!
+l. { s c k[0,1] >[1] [0] !=[0] 0 -[0] [1] *[0] -1 + * 256 }
+repeat $!-1 { a[$>] .,c } rm.
+fx_map_sphere :
+rotate {$8*90}
+if $6
+repeat $! {
+shift. {round(w/2)},0,0,0,2 +columns. {(1-$7/100)*w/2},{(1+$7/100)*w/2}
+100% gaussian. {0.1*w},{h},0 100% 100% a[-3--1] c r. ..,..,1,3
+smooth.. .,$6,5,0 rm.
+j.. .,{(1-$7/100)*{-2,w}/2} rm. shift. -{round(w/2)},0,0,0,2
+mv. 0 }
+fi
+shift $5%,0,0,0,2 to_rgba
+if $9
+repeat $! {
++rows[$>] 0 r. 1,1,1,4,2 RGBA$>={^}
+r. [$>],[$>],1,4 -[$>,-1]
+}
+fi
+map_sphere $1,$2,$3,$4,$10,$11
+if $9
+repeat $! {
+(${RGBA$>}) y. c r. [$>],[$>],1,4 +[$>,-1]
+}
+fi
+fx_map_sphere_preview :
+fx_map_sphere {w},{h},${3--1}
+fx_spherize :
+ratio={10^$6}
+spherize $1%,$2,$3%,$4%,$5%,$ratio,$7,$8
+cut 0,255
+fx_spherize_preview :
+cx,cy=${4,5}
+if $9 grid 5%,5%,50%,50%,0.6,255 fi
+fx_spherize ${1-3},$cx,$cy,${6--1}
+fx_square_circle :
+mode,interp,boundary,factx,facty,offx,offy=${1-7}
+if !$boundary to_a fi
+base="const interpolation = "$interp";
+const boundary = "$boundary";
+const offx = "$offx"%;
+const offy = "$offy"%;
+const factx = 10^-("$factx"%);
+const facty = 10^-("$facty"%);
+const w2 = int(w/2);
+const h2 = int(h/2);"
+if !$mode
+f $base"
+const tst = 2*sqrt(2);
+U = (2*x/(w-1) - 1)*factx + offx;
+V = (2*y/(h-1) - 1)*facty + offy;
+U2 = U^2;
+V2 = V^2;
+U2mV2 = U2 - V2;
+X = 0.5*(sqrt(max(0,2 + tst*U + U2mV2)) - sqrt(max(0,2 - tst*U + U2mV2)));
+Y = 0.5*(sqrt(max(0,2 + tst*V - U2mV2)) - sqrt(max(0,2 - tst*V - U2mV2)));
+(X+=1)*=w2 - 0.5;
+(Y+=1)*=h2 - 0.5;
+I(X,Y)"
+else
+f $base"
+X = (2*x/(w-1) - 1)*factx + offx;
+Y = (2*y/(h-1) - 1)*facty + offy;
+U = X*sqrt(abs(1 - 0.5*Y^2));
+V = Y*sqrt(abs(1 - 0.5*X^2));
+(U+=1)*=w2 - 0.5;
+(V+=1)*=h2 - 0.5;
+I(U,V)"
+fi
+fx_project_stereographic :
+is_inverse,centerx,centery,radangx,radangy,rechor,lrblur,dilation,mirror,boundary,ocenterx,ocentery=${1-11}
+if $centerx!=$ocenterx" || "$centery!=$ocentery
+deltax,deltay={[$radangx,$radangy]-[$ocenterx,$ocentery]}
+radangx,radangy={[$centerx,$centery]+[$deltax,$deltay]}
+fi
+status=\{$is_inverse\}\{$centerx,$centery\}\{$radangx,$radangy\}\{$rechor\}\{$lrblur\}\{$dilation\}\{$mirror\}\{$boundary\}\{$centerx,$centery\}
+nradangx,nradangy={[$centerx,$centery]+rot(-90°)*([$radangx,$radangy]-[$centerx,$centery])}
+init="const boundary = "$is_inverse?$boundary:2";
+const interpolation = 1;
+const dilation = 2^"$dilation";
+const centerx = "$centerx"%*(W-1);
+const centery = "$centery"%*(H-1);
+const radangx = "$nradangx"%*(W-1) - centerx;
+const radangy = "$nradangy"%*(H-1) - centery;
+const R = sqrt(radangx^2 + radangy^2);
+const theta0 = atan2(radangy,radangx);
+const pi2 = 2*pi;"
+m "_fx_project_stereographic_mirror : if !$""1 mirror y elif $""1==1 mirror xy elif $""1==3 mirror x fi"
+foreach {
+if !$boundary to_a fi
+if $rechor rotate $rechor,1,3 fi
+if $lrblur
+100%,1,1,1,!x||x==w-1 shift {round(w/2)},0,0,0,2 b. x,$lrblur% n. 0,1 +b.. x,$lrblur%
+r.. .,.,1,1 j... .,0,0,0,0,1,.. k[0] shift {-round(w/2)},0,0,0,2
+fi
+if $is_inverse
+100%,50%,1,100%,"*
+const W = w#0;
+const H = h#0;
+"$init"
+theta = theta0 + x*pi2/w;
+phi = (y/h - 0.5)*pi;
+z = R*sin(phi);
+rho = ((R + z)/(R - z))^(0.5/dilation)*R;
+X = centerx + rho*cos(theta);
+Y = centery + rho*sin(theta);
+I(#0,X,Y)"
+_fx_project_stereographic_mirror $mirror
+else
+_fx_project_stereographic_mirror $mirror
+{u=0$_is_preview?min(w,h):max(w,h);[u,u,1,s]},"*
+const W = w;
+const H = h;
+"$init"
+X = x - centerx;
+Y = y - centery;
+theta = atan2(Y,X);
+beta = ((X^2 + Y^2)/R^2)^dilation;
+z = R*(beta - 1)/(beta + 1);
+phi = asin(z/R);
+theta = ((theta - theta0)*w#0/pi2)%w#0;
+phi = (h#0*(phi/pi + 0.5))%h#0;
+I(#0,theta,phi)"
+fi
+k. } um _fx_project_stereographic
+if 0$_is_preview
+line $centerx%,$centery%,$radangx%,$radangy%,0.75,0xF0F0F0F0,255,255,255,255
+line $centerx%,$centery%,$radangx%,$radangy%,0.75,0x0F0F0F0F,0,0,0,255
+fi
+u $status
+fx_project_stereographic_preview :
+_is_preview=1
+fx_project_stereographic $"*"
+fx_symmetrize :
+if !$6 to_a fi
+angle={isnan($3)?$5:atan2($4-$2,$3-$1)*180/pi}
+symmetrize $1%,$2%,$angle,${6-8}
+fx_symmetrize_preview :
+fx_symmetrize $*
+rr2d ${-gui_preview_wh},0,1
+u,v={angle=isnan($3)?$5*pi/180:atan2($4-$2,$3-$1);[cos(angle),sin(angle)]}
+foreach {
+x0,y0,x1,y1={V=[$u,$v];([${1,2},${1,2}]+10000*[V,-V])*([w,h,w,h]-1)%}
+line $x0,$y0,$x1,$y1,1,0x0F0F0F0F,0,0,0,255
+line $x0,$y0,$x1,$y1,1,0xF0F0F0F0,255
+}
+fx_textured_glass :
+foreach {
+100%,100%,1,1
+if $7 plasma. 1,1,$7 else rand. 0,1 fi
+g. xy
+if $5
++gradient_norm... +. 1 b. $6 ^. -$5
+*... . *[-2,-1]
+fi
+blur_xy[-2,-1] $3,$4
+*.. {-2,$1/max(abs(im),abs(iM))}
+*. {$2/max(abs(im),abs(iM))}
+a[-2,-1] c
+warp.. .,1,1,1 rm.
+}
+fx_textured_glass_preview :
+gui_split_preview "fx_textured_glass $*",${-3--1}
+fx_twirl :
+if !$4 to_a fi
+twirl $1,$2%,$3%,$4
+fx_warp_interactive :
+if [$4][0]!=-1 __x_warp_keypoints=$4 fi
+x_warp $2,$2,$3,$1
+u "{$1}{$2}{$3}{"$__x_warp_keypoints"}"
+fx_warp_interactive_preview :
+if [$4][0]!=-1 __x_warp_keypoints=$4 fi
+foreach {
+rr2d $_preview_area_width,$_preview_area_height,0,3 to_color drgba
+if narg($__x_warp_keypoints) ($__x_warp_keypoints) r. 1,{w/4},1,4,-1
+else
+nbp,nbq=$2,$2
+1,{$nbp*$nbq},1,4,"const nbp = "$nbp"; const nbq = "$nbq";
+p = y%nbp;
+q = int(y/nbp);
+x = p*100/(nbp - 1);
+y = q*100/(nbq - 1);
+[ x,y,x,y ]"
+nbc=$3
+if $nbc>0
++b[0] 0.5 gradient_norm. sqrt. {round([w,h]/4)} gaussian. 20%
+1,$nbc,1,4,">
+begin(ref(crop(#-1),gauss));
+st = stats(#-2);
+iM = st[1];
+xM = st[8];
+yM = st[9];
+img = vector(#w#-1*h#-1,-iM);
+draw(#-2,img,xM - w#-1/2,yM - h#-1/2,0,0,w#-1,h#-1,1,1,-1,gauss);
+nxyM = [ xM,yM ]*100/([w#-2,h#-2]-1);
+[ nxyM,nxyM ]"
+rm[-3,-2]
+a[-2,-1] y
+fi
+fi
++_x_warp_rbf. {0,round([w,h]/4)} *. 4 r. [0],[0],1,100%,3 +. '[x,y]' warp[0] .,0,1,3 rm.
+eval. "*
+begin(
+col1 = [ 64,200,255 ];
+const radius1 = 3;
+const radius2 = radius1 + 2;
+fact = ([ w#0,h#0 ] - 1)%
+);
+X = (I)[0,2]*fact;
+ellipse(#0,X,radius2,radius2,0,1,0);
+ellipse(#0,X,radius1,radius1,0,1,col1); I"
+rm.
+if narg($__x_warp_keypoints)
+0 t. "Keypoints from previous\nrun have been saved",0,0,24,1,255
+frame. 5,5,0 +dilate_circ. 5 a[-2,-1] c blend alpha
+fi
+}
+fx_wind :
+if !$5 negate fi
+ac "wind ${1-4}",$6,$7
+if !$5 negate fi
+fx_wind_preview :
+gui_split_preview "fx_wind $*",${-3--1}
+fx_zoom :
+if !$4" && "$1<1 to_a fi
+zoom $1,{$2%},{$3%},0,$4
+fx_simulate_grain :
+__fx_simulate_grain ${arg\ {1+$1},${-_fx_simulate_grain}},${2-11},0,0
+_fx_simulate_grain :
+u orwo_np20,kodak_tmax400,kodak_tmax3200,kodak_trix1600,unknown
+fx_simulate_grain_preview :
+gui_split_preview "_fx_simulate_grain_preview $*",$-2
+_fx_simulate_grain_preview :
+__fx_simulate_grain ${arg\ {1+$1},${-_fx_simulate_grain}},${2-13}
+__fx_simulate_grain :
+bm0=alpha bm1=grainmerge bm2=hardlight bm3=overlay bm4=softlight bm5=alpha
+input_cached data_film_presets/grain_$1.cimgz
+r. $4%,$4%,1,1,6
+if $4>100 b. 1 fi
+sharpen. $5 c. 0,255
+repeat $!-1 { l[$>,-1] {
+split_opacity[0]
++syntexturize. {0,[w,h]}
+if $6 +syntexturize.. {w},{h} +syntexturize... {w},{h} a[-3--1] c fi
+c. 0,255
+adjust_colors. ${7-11}
+if $13 k[0,-1] rv
+else blend[0,-1] ${bm$2},{if($2<=4,$3,1)}
+fi
+a[^-1] c
+} } rm.
+fx_blur_angular :
+ac "blur_angular $1%,$2%,$3% sharpen $4",$6,$7
+fx_blur_angular_preview :
+fx_blur_angular $*
+if $5
+line 0,$3%,100%,$3%,0.5,0xF0F0F0F0,255 line 0,$3%,100%,$3%,0.5,0x0F0F0F0F,0
+line $2%,0,$2%,100%,0.5,0xF0F0F0F0,255 line $2%,0,$2%,100%,0.5,0x0F0F0F0F,0
+fi
+fx_blur_bloom :
+op=${"arg0 $4,+,max,min"}
+if !$7 ac "blur_bloom ${1-3},"$op",${5-6},xy",$9
+else
+wh={[w,h]}
+rotate $8,2,1
+ac "blur_bloom ${1-3},"$op",${5-6},x blur_bloom {$1*(1-$7)},${2-3},"$op",${5-6},y",$9
+rotate {-$8},2,1
+r $wh,1,100%,0,0,0.5,0.5 c 0,255
+fi
+fx_blur_bloom_preview :
+gui_split_preview "fx_blur_bloom $*",${-3--1}
+fx_blur_dof :
+_$0 ${1-10},0,$12
+fx_blur_dof_preview :
+_fx_blur_dof $*
+_fx_blur_dof :
+if !$3
+foreach {
+if $11 drgba fi
+split_opacity l[0] {
+rmax={(w*w+h*h)^0.5} R={$7*$rmax/100} r={$8*$rmax/100}
+t={$9*pi/180} u={cos($t)} v={sin($t)}
+l1={($rmax/(1e-8+$R))^2} l2={($rmax/(1e-8+$r))^2}
+a={$l1*($u)^2+$l2*($v)^2} b={$u*$v*($l1-$l2)} c={$l1*($v)^2+$l2*($u)^2}
+100%,100%,1,1,'X=(x-$5*w/100)/max(w,h);Y=(y-$6*h/100)/max(w,h);f=$a*X*X+2*$b*X*Y+$c*Y*Y;exp(-f^$10/2.5)'
+-[1] 1 *[1] -$1 ms={im} Ms={iM}
+if $11
++isoline3d[1] {0.1*$1} col3d. 255,255,0
++isoline3d[1] {0.5*$1} col3d. 255,128,0
++3d[-2--1]
+__fx_dof_blur[0,1] $2,$ms,$Ms,$4
+[0],[0],1,3 j3d. ..,0,0,0,1,1,0,0 rm..
+circle. $5%,$6%,3,1,255,255,255
++compose_channels. + !=. 0 dilate. 3
+j[0] ..,0,0,0,0,0.5,.,1 rm[-2,-1]
+else __fx_dof_blur[0,1] $2,$ms,$Ms,$4
+fi
+}
+if $11 k[0] fi a c
+}
+elif $!>1
+luminance. n. 0,1 ^. {10^$12}
+repeat $!-1 { +r. {$>,w},{$>,h},1,1,3 l[$>,-1] {
+split_opacity[0] __fx_dof_blur[0,-1] $2,0,$1,$4 a c
+} } rm.
+else drgba to "Depth-of-field (bottom layer) is missing !",2,2,13,2,1,255
+fi
+__fx_dof_blur :
+n[1] 0,{$1-1} round[1]
+[0],[0],1,{0,s+1}
+s=0
+repeat $1 {
++==[1] {if($4,$<,$>)} b. 2%
+j.. [0],0,0,0,0,-1,.,1
+j.. .,0,0,0,100%,-1
+rm.
+ns={$2+($3-$2)*($>+1)/($1-1)}
+b[0] {sqrt($ns^2-$s^2)}%
+s=$ns
+}
+s. c,{-s+1} /[-2,-1] rm[0,1]
+_fx_gaussian_blur :
+b $1,$4
+if $2>0 repeat $! { l. { s y b $2,$4 a y } mv. 0 } fi
+if $3>0 repeat $! { l. { s x b $3,$4 a x } mv. 0 } fi
+fx_gaussian_blur :
+ac "_fx_gaussian_blur $1,$2,$3,$4",$5,$6
+fx_gaussian_blur_preview :
+gui_split_preview "fx_gaussian_blur $*",${-3--1}
+fx_glow :
+ac "glow $1",$2,$3
+fx_glow_preview :
+gui_split_preview "fx_glow $*",${-3--1}
+fx_blur_linear :
+ac "blur_linear $1%,$2%,$3,$5 sharpen $4",$6,$7
+fx_blur_linear_preview :
+gui_split_preview "fx_blur_linear $*",${-3--1}
+_fx_blur_multidirectional :
+nb_orientations,angle_ref,angle_range,smoothness,kernel,boundary_conditions,sharpness,blend_mode,contrast=${1-9}
+foreach {
+if $blend_mode<3 +f {$blend_mode?0:inf} fi
+repeat $nb_orientations {
+angle={$angle_ref+$angle_range*($>/$nb_orientations-0.5)}
+$smoothness,1 gaussian. 20%,0.1
+if !$kernel f. "x>w/2?i:0" fi
+rotate. $angle,1
++convolve_fft[0] .,$boundary_conditions rm.. n. 0,255 sharpen. $sharpness
+if $blend_mode<3 ${arg0\ $blend_mode,min,max,+}[1,-1] fi
+}
+rm[0]
+if $blend_mode==6 blend_median
+elif $blend_mode>2 blend_edges {arg($blend_mode-2,0.5,1,2)}
+fi
+n 0,255 ac "normalize_local "$contrast,hsl_l
+}
+fx_blur_multidirectional :
+ac "_fx_blur_multidirectional ${1-9}",$10
+fx_blur_multidirectional_preview :
+gui_split_preview "fx_blur_multidirectional $*",${-3--1}
+fx_blur_radial :
+ac "blur_radial $1%,$2%,$3% sharpen $4",$6,$7
+fx_blur_radial_preview :
+fx_blur_radial $*
+if $5
+line 0,$3%,100%,$3%,0.5,0xF0F0F0F0,255 line 0,$3%,100%,$3%,0.5,0x0F0F0F0F,0
+line $2%,0,$2%,100%,0.5,0xF0F0F0F0,255 line $2%,0,$2%,100%,0.5,0x0F0F0F0F,0
+fi
+fx_chromatic_aberrations :
+U1={u=[${1-3}];u/max(1e-8,norm(u))}
+U2={u=[${10-12}];u/max(1e-8,norm(u))}
+foreach {
+to_color split_opacity l[0] {
+100%,100%,1,2,"*begin(U1 = ["$U1"]; U2 = ["$U2"]);
+V = I(#0);
+d1 = dot(V,U1); V-=d1*U1;
+d2 = dot(V,U2); V-=d2*U2;
+I(#0) = V;
+[ d1,d2 ]"
+s. c
+_fx_chromatic_aberrations.. ${4-9}
+_fx_chromatic_aberrations. ${13-18}
+a[-2,-1] c
++[0] '"*begin(U1 = ["$U1"]; U2 = ["$U2"]); i(#1,x,y,0,0)*U1 + i(#1,x,y,0,1)*U2"'
+rm.
+}
+a c
+}
+_fx_chromatic_aberrations :
+if $1==0
+100%,100%,1,2,[$2,$3]
+elif $1==1
+100%,100%,1,2,"
+ang = atan2(y - h/2, x - w/2);
+U = [ $2*cos(ang), $3*sin(ang) ]"
+elif $1==2
+100%,100%,1,2,"
+ang = atan2(x - w/2, -y + h/2);
+U = [ $2*cos(ang), $3*sin(ang) ]"
+else
+100%,100%,1,2,g s. c n.. 0,$1 n. 0,$2 a[-2,-1] c
+fi
+if $4
+s. c
+m,M={-2,[im,iM]} b.. $4 n.. $m,$M
+m,M={[im,iM]} b. $4 n. $m,$M
+a[-2,-1] c
+fi
+if $5
+100%,100% =. 1,50%,50% distance. 1 n. 0,1.4142 c. 0,1
+if $5>0 ^. {0.1+$6} n. {1-$5%},1
+else negate. 1 ^. $6 n. {1+$5%},1
+fi
+*[-2,-1]
+fi
+warp.. .,1,1,1 rm.
+fx_chromatic_aberrations_preview :
+gui_split_preview "fx_chromatic_aberrations $*",${-3--1}
+fx_gcd_crt : skip ${1=1.8},${2=1.8},${3=0},${4=0}
+repeat $! l[$>]
+to_rgb[0]
+expand_xy 12,0 24,14,1,3,0
+f. "if((x-c*4)%12<4,255,0)"
+f. "if(x%4==0,0,i)"
+f. "if((y%14==0)&&(x%24<12),0,i)"
+f. "if(((y-7)%14==0)&&((x+12)%24<12),0,i)"
+array. {0,round(w/24)},{0,round(h/14)},2
+z. 0,0,{0,w-1},{0,h-1}
+s c repeat 3 blend[-4,-1] shapeaverage0 done a c
+n. 0,255 meancurvature_flow. 4
+if $3
+{w},{h},1,1,0
+rectangle. 5%,5%,95%,95%,1,1
+b. 10% *[0,1]
+fi
+deriche. $1,0,x deriche. $2,0,y
+shrink_xy. 12 n. 0,255
+if $4 equalize. 256 fi
+done done
+fx_dirty :
+ac "_fx_dirty ${1-2}",$3,$4
+fx_dirty_preview :
+gui_split_preview "fx_dirty ${1--2}",${-3--1}
+_fx_dirty :
+foreach {
+dct 100%,100%,1,{if($2,1,s)} noise. $1,2
+==. 0 point. 0,0,0,1,1
+* idct c 0,255
+}
+fx_flip_blocks :
+foreach {
+if $5 ac "_fx_flip_blocks ${1-4}",$5
+else _fx_flip_blocks ${1-4}
+fi
+}
+_fx_flip_blocks :
+if ($3%2)" && "$1>1 s x,-$1 mirror x a x fi
+if ($3>1)" && "$2>1 s y,-$2 mirror y a y fi
+if $4!=1" && "$1>1" && "$2>1
+s y,-$2 N=$!
+s x,-$1 M={$!/$N}
+ap "rotate {($4-1)*90}"
+append_tiles $M,$N
+fi
+fx_flip_blocks_preview :
+gui_split_preview "fx_flip_blocks $*",${-3--1}
+fx_huffman_glitches :
+noise_level,split_mode,split_size,patch_overlap,colorspace,quantization,seed=${1-7}
+foreach {
+W,H,siz:=w,h,whds
+cspace=${"arg0 "$colorspace",rgb,cmyk,hcy,hsi,hsl,hsv,jzazbz,lab,lch,oklab,ycbcr,yiq"}
+if $colorspace rgb2$cspace fi
+s c foreach { im$>,iM$>:=im,iM } n 0,255 a c round
+if $quantization +colormap $quantization,0,0 index.. .,0,0 store. colormap fi
+huffman_tree mv. 0
+bloc_size:=max(1,round($split_size*max(w,h)%))
+if $split_mode==1 s. y,{-$bloc_size}
+elif $split_mode==2 s. x,{-$bloc_size}
+elif $split_mode==3 img2patches. $bloc_size,$patch_overlap%,2 s. z
+fi
+compress_huffman[^0] [0]
+eval "srand($seed);
+repeat($siz*($noise_level/100)^6,
+k = round(u(1,l - 1));
+off = round(u(4,whds#k - 1));
+bit = round(u(0,7));
+val = i[#k,off];
+mask = 1<<(int(u(8))%8);
+i[#k,off] = xor(val,mask);
+)"
+store[0] _tree ap "$_tree decompress_huffman[^-1] . rm."
+if $split_mode==1 a y
+elif $split_mode==2 a x
+elif $split_mode==3 a z patches2img. $W,$H,$patch_overlap%
+fi
+k.
+if $quantization $colormap map.. . rm. fi
+s c foreach { n ${im$>},${iM$>} } a c
+if $colorspace ${cspace}2rgb c 0,255 fi
+}
+fx_huffman_glitches_preview :
+gui_split_preview "fx_huffman_glitches $*",${-3--1}
+u "{$1}{$2}{$3}_"{$2?2:1}"{$4}_"{$2==3?2:1}"{$5}{$6}{$7}{$8}{$9,$10}"
+fx_jpeg_artefacts :
+base642img[] "MSBmbG9hdCBsaXR0bGVfZW5kaWFuCjggOCA2NCAxICMyMjIyCnic5Vs9q51FEC60kKtWMYpaCirYKCoI767iR6UoSangtdM/EAM2Fgab2FhaWdgIUXO""qVO8sXEHBVDFia6kgCBaCQSyu+5w8c3nv5p55Bg+3uSmGs19nP2Z2Zt752P39/bJ/G8PHF5+qD1y4v77+yNWyeulegPWy9bbW+9pJ7z9XH6s/f3KxdL""BeRr2hjDb0nfR+4OZyxwlw8UbHS4f1nehtBTg66f3kAyOU261OfDTiA/ehEV91ga8T208+cDlg5JNKPiknvR8ykfKwLuRlo7y0k96PegS8MxsB80RAn""ROBRYC9R0AZtxF45o1w+cXz9fHvztTnP7y7nv7z5dLBern1NvTht37/75P17Qt/lOsPPQqwXrbeth6D/6Hv3F2fl2/++WXqMPfyegzmwZz439e9755f""HwbMvTxjHqwFQBlt6MMYjMV/8F/MgbkwJ+bGGlgLa2Jt7AF7wRjMg/+hD3vG3nmGxr0Y5/S+euPGe/XVJ/ZKB+vlBkAZbeh77ctX6re/f1E6WC83AMp""oQ9+Zd++oV6+8WTpYLzcAymhD30+fPlee/e2zqcPcywZAGW3oO6J+aPw437jeuJ9xv+N5xvMCD/d1vABPL3QcdVjjpbcV4rb+2PGK8jsdxx3QjrZCvJ""evOl2A3/c7jTqs8dvbJtKkgK7A/eU+rsMEGoDOpJehjDb0YQzG4j+kpWEuzIm5sQbWwpqkc8NesCfsDXvEXrFn3oGGs+BMOBvOiLPizPgP+fzgW3Gsu""87wb4mxTj53fixjfeDxo+qb2suC/2+Z1+ub9uX1TefyOundSG/HlxFfjfRupHclvo34dno30tvpNZNeRnob6V1I75n0nknvQnr7fZl4XybSu5Lexvs2""8b45vSvp7fe18L4W0ruS3n7fC+97JV808oWRLyr5ppCvGvnKyFeVfFfIl418aeTLSr4t5GsjX8/ka+f76Yj6ofHjfON6437G/Y7nGc/rMtZlJfVBoz5""weXrAS9QHjfrAKI+N8tj1gVEfuDyfKc+N+sCoD2bqg4n6oPia1AeuTwr1SaU+KNQHE/VRoT5yfVBd9lCfVeoz1wfVdZPbSJvAv6ECsAjc5vq/oOZX+1""Pncx3nusp1zkJ3lL1+p37gXcad7GXb490CoIw212MYi//4XcNcmNPvNdbCmn4vo341v9qfOt8HH71V/7rzSulgvYx6Qxlt3vfg36cBxnZDGW3+v6F+a""Pw4n1pv7Ffzq/2p9YCb6x0nwMXZjpcOa7z3trUcAW6f6TgFLv07BDjvbRNwDEAZbf5dgrH4zx5lEebCnJgba2AtrOlyK+pX86v9qfO5LeQ20lgfeHzk""+RK0L30ut8ybrav51f7UOsRHIz6cHkZ6NOLTiM9Cesykh5EehfQw0mMiPQrpWUnPRnoU0qOqfjW/2p86H/nA5YDzbCWfFPKR85mRz5zvyxH1Q+PH+dR""6Y7+aX+1PrUd52yhvG+Vlo7w0ylujvDXKW6O8nSlvC+VtobwulNcT5W2lvHV5Xynvi+pX86v9qfMp+x6+ogiUfU0fVAQlAuWfgF8rAuUfUPb9Kdrnl/""p32E7/VuswXaJ93vvKKrCvV7Qhdm/aCQf2H77bd29+m69tMpTR5vYfxuI/+O8q8E9g7VP0L2BP2Bv2eIn+hVP85o/8A9QxZW9h37ucQd+1fkee7veow""9TLBYAy2q5Rr0T29dmF/U55d2C/uz4a6ofGK//EuJ9xv+N5xvMu7XvgfHew74Ez4BV4Bo6BW+B1h/a529erhX29WtjXmBPf9+g732ncYU1XfN9jLQDK""aEMfxmAs/rNL2w5zrRb+idXCP4E9YC/YE/aGPWKvO/QvLP0DXO+Qf0DZ9+Rz5ycb68q+Hnh85HkL2m3B/xvt+E378rryD+wG9j1wRXqXnYV9zvuAvsl""5dLSvSa9KelfS20jvifQupHcjvQvvy7z87+oI/4TLFtLbdhb+Bd4H3Nd5N/APYL29hb3s37P+nYA+8lUhX03kKyPfzcq+9m+Qswv7fcH3dkT90Hjlnx""j3M+53PM94XmXfU55OlKeF+qBQH0xL+xo0WQ32NeV5oTx3fVDcN+Q+HuqDRn1g1Afz0j+BuVeDf4L6aKY+MuoDoz6YlX8gESO3LWHbGP2xrp+InzfGS""w58kxjLeEpN9G8bvz/W9RPx823j7dvG7491/UT8fB07Zbx0rZsYT/VvZ9W/bfz+WNdPxMu3jbNvG68/1vUT8XMjvmxBr0J8lkT/tvH7Y10/ET/fNt6+""bfz+WNdPxM+N8tS/Pz3uZQt5GvVvG78/1vUT9nccP9f2t8ohCO3zhP8h9A8o/0PC/g7t+4T9HfoXlH2e8D+E/gHlf0jY36F9n7C/Q/+Css8T/ofQP6D""8Dwn7O7TvE/Z36F9Q9nnC/xD6B5T/IWF/h/Z9wv4O/QvKPk/4H0L/gPI/JOzv0L5P2N+hf0HZ5wn/Q+gfUP6HhP0d2vcJ+zv0Lyj7POF/CP0Dyv+QsL""9D+z5hf4f+BWWfJ/wPoX9A+R8S8XMVo1f5Ayp+r/IHwvnV/tT5EvFzFb9X+QMqfq/yB8L5E/kD4fkS8XMVv1f5Ayp+r/IHVL6Ayh8I10vEz1X8XuUPq""Pi9yh8I50/kD4TnS8TPVbxe5Q+o+L3KH1B5Aip/IFwnET9X8XuVP6Di9yp/IJw/kT8Qni8RP1fxe5U/oOL3Kn9A5Quo/IFwvUT8XMXvVf6Ait+r/IFw""/kT+QHg+lZ+fyL8P7XvlP1D2u/IPJN4fhO8LVH5+Iv8+tO9V/n3i/UHoH0i8PwjfF6j8/ET+ffg+QPkPEu8Pwvz+xPuD8H2Bys9P5N+H7wNU/n3i/UG""Y3594fxC+L1D5+Yn8+9C+V/4DZb8r/0Di/UH4vkDl5yfy78P3ASr/PvH+IMzvT7w/CN8XqPz8RP59+D5A+Q8S7w/C/P7E+4PwfYHKz0/k34f2vcq/T7""w/CP0DifcH4fuC/wBiGjbi"
+base642img[] "MSBmbG9hdCBsaXR0bGVfZW5kaWFuCjggOCA2NCAxICMyOTE3CnicjVsxjybFEV0JB4iDyHdYhhAJIznBAiSS6ZbBkb3YS4glHOI/4ENyQuDTOsAJIRG""BEyP7di+6cKo5yZY4J95DmxKChIREYMln5ODo1/OqXd9KU1XZzX37Tc+rqqlX9aq+o6Ojevr+T+rvlh/VH9x6uh716189d79c/un9cue1pwo+O//pu/""Xhw9/WF/5+Mv62vnet/vzHn5Qb37xe8D189vs//Lr+4i8/G/d5853H6r+/d7d89sGrBffE9/DZP/734jjjN7e+Lp989efy4Jnny6NHj4o9H9e/NOfj3""zgP98T3cP3u4x+V+3ffKufffr7g7/AsOA/3xDU+++F/bpRXvvxwwT3wnHgWnIdrfA+fPfnFswvw4lx87/y1p6Rft/48rT9Pe+O5+4Jnw/PjjO9/8zqu""W7dH65hbee8a/m5gw/kPPnhV8D181u3RTt55rOHewI1n+9czz0u/bv1+rX+nvX3rawFePf+sn9+vxZ4PvMANTH/79vO1X0u3R+v2aDcf/0jwPdwbeF/""68sO1X0t/VunPI5/efUuAF7iB99oXz679Wro9pNtDbvf7Af8bm73HucDf7VDUH8BfNn8LcONvuh2KxgP+7mTztwA3nrvboWg84B5vb/4W4Ab+boei8Q""D89nzgPzPnA//Nzd8DN/B3OywaD8D/6ebvgRv36XZYNB6A//bm7xW4gb/bYdF4AP4723mtx72YeBjPA/w3NrwN55t4GPbAc3624R0+MfEw7IF7Pdjwt""v68YuJh2AP49XxgM/Ewzgf+8w1v63Fv42HYA/hf2fAK/s/Ew7AH7v3khlf6fVYTD8MexC/EX4i/8fxK/EL8lfgb8VfiF+KvxN+IvxK/EH8h/kb8lfiF""+Avxz/OJfyX+QvxC/JX4V+IvxC/EX4h/Jf6F+IX4C+Nf9DzGvzD+GuN/4mX8C+O/Mf4nXsa/MP4b418UL+NfGP+N8T/PZ/zP8xn/Ey/jf2X8C+N/4mX""8r4x/YfyvipfxvzL+xfgb+a8w/1Xmn2L8jfxXmP8q85/1N/JfYf6rzH/V+Bv5rzD/VeY/62/kv8L8N883/kb+W5j/KvOf9Tfy38L8V5j/ivE38t/C/F""eY/0b+Z74ddiD/CflHyH9N/U3+a+Q/If819Tf5r5H/hPzX1N/kPyH/Cflvnk/+m+eT/5r6m/wn5L+V/Cfqb/KfkP9W8p+ov8l/K/lvPQr4X/n7+Ap/3""yN/R/yLd+k6+eain4/rv/bzX+7PhvMt3xG/EP/I1X/sn93p9v9vtzHsiGvaX2j/ybe0f6P9x5m4F95fvKO0n8B+/+w2OiP/efyv+Rp4Lwx/H5O/I/7F""PfE94H2ixx/eseusRz7u8Qe8mu8Y/7MeQvwDr+ZbfK9f126P2u1R+f41zbd8/2Y9hvcPeIEbeG9v70/B9/AZ3p+I/5W/7xn+7niKxkPEv8D/8ebvBc+""Pez/BfHyxxb8w/xXmv8L8N84CfubfAtzAj3jSeMDfMf8W5t/K/DvsAvw3N38P3MCPfKjxEPG/8vfxFf5We0T8C/zkn9LjfjHxMOwB/OS/Sv7TeBj2AP""4bG95Rd5t4GPbAc5N/K/lX42HYA/jPNryV/KnxMOwR8b/y9/EV/ib+kH+JfyH+lfgL8QvxF+IX4q/E34i/EH8j/kr8jfgL8Tfir8TfiH8hfiH+Qvwt4""n/l73uGvy82eww7RPzL+F8UL+N/YfwXxn9RvIz/wvivjP+Jl/FfGP+V8T/xMv4L478y/idexv/C+C8R/xt/I/9N/mb+C/nX+Bv5b2X+E+a/1fhb2P9M""PoRfjL8HjzD/NeY/629h/zX5GBiNv0e/w/zXmP8k4n/l7+Mr/E3+k4h/yX9F/U3+W8h/i6132P8K+9/xXpD/qvqb/FfJfwf1Fvvvxv572Jj8V9Xf5L9""C/lsi/rd8YftvxNPZ1n9PviN+If5RY0f8HfG/5Uvar9B+o3/P6g979UvE/9pvAS/jZ9YT7L9F8x3jf9ZDiP+IvyP+B17Nl3x/Zj2F9yerP+zVLxH/a/""+NeGH+EOYP7b+F+a8w/xXmv2GXiL8j/sezMH+uzJ/C/DnsktUf9uqXiP+Bn/xx0H+rPfB35L9C/tN4GPaI+Dvi/3PTv5M/NR6GPbL6w179EvE/8a8nV""/pv4q/EvxC/vg+F+CXi74j/z03/zvqpaD19nfpjRn/Yq18i/tf+W/Ey/teT//ffwvq3sP4trH+HHSL+jvif8b8qXsb/yviXrP6wV79E/G/8Xdg/TD5h""/63+FvY/kw+RFyL+jvjf+Hth/zT5FHkhqz/s1S8R/9t6wfbf5D/t94r6m/xXyH9LxN8R/9t6if1zYf88+ves/rBXv0T8H+nnmf5b9WrbfyNXnG/1n6v""/R/ODqP6wej31m4P6I+L/SD/P9t94JupXc56B9yfS/6P5QVR/nJr6g/rdnOdo/+fxf6SfZ/tvvBPULwv1yxEPkf4fzQ+i+uPU1B/Ubyv122b4b5f/I/""08039Tvz7ov9Uekf4fzQ+i+uOU9cdD1h8mHoY9Iv6P9PNM/835xUH/Tfw6/9jV/6P5QVR/EH8h/nZq6g/khYj/I/08238rXsb/wvgvkf4fzQ+i+uPU1""B+c31XO75rWPx7/R/p5tv9m/lutno28EOn/0fwgqj+Mv4Xz26nnq/7j8X+kn2f6b51X2P6b/LdE+n80P4jqDzuv4fz+oP5I8P/kO+IX4l8Nfo//3fl9""gv8n3xF/I34x+D3+d/cXEvwvmu8Y/7MeMvHv8b87v0/wf9N8x/if9ZCJf4//3f2FBP8L89/C/FeY/8TkP4//3fl9gv8b819h/qvMf83kP4//3f2FBP9""P/Z78p/GwGP7z+N+d3yf4v5H/KvlP46EY/vP4391fSPD/1O9Z/4jWw6b+8fjfnd8n+L+x/qmsf5rWw6b+8fjf3V9I8L+w/l1Y/xbWv2LqX4//3fl9gv""8b69/C+rey/m2m/vX4391fSPC/+ntl/zP50PQ/Hv+78/sE/6u/hf3P5EPT/3j87+4vJPh/1jvsf4X972r6X4//3fl9gv9nvcP+t7H/FdP/evzv7i8k9""H93fp7Q/6feTf3jgH8T+r+7P5DQ/6febeuHe6wfEvq/Oz9P6P+Tf6l/zXmI0b88/d/dH0jo/031zgtTPxyzfkjo/+78PKH/T/6l/tmof1ajf3r6v7s/""kND/G/XPWT9Q/2yqfwb6vzs/T+j/lfp3o/49+dfo357+7+4PJPT/Rv37oH5QeyT0f3d+ntD/K+cfjfOPyb9m/uHp/+7+QEL/b5x/HNQPxB/2/9H8PKH""/T/7l/Ktx/lXN/MvT/939gYT+3zj/mvUD519N51+B/u/OzxP6/+Rfzj+nHm7mn57+7+4PJPR/9bdcmPqB+S+c/0fz84T+P+cdnH8f8G9C/3f3BxL6/5""x32PqB/Bf2/xF/Wr7b2f9z5/eJ/T+3fsjoD97+QmL/z+XPy3j/z53fJ/b/3Pohqz/s7S8k9v9c/ryM9//c+X1i/8+tH7L6w97+QmL/z+XPy3j/z53fJ""/b/3Pohoz94+wuJ/T+XPy/j/T93fp/Y/3Prh4z+4O0vJPb/XP68jPf/3Pl9Yv/PrR+y+sPe/kJi/8/lT+Pvvf0/d36f2P9z64es/rC3v5DY/3P509Y7""O/t/7vw+sf/n1g8Z/cHbX4j4P5qfZ/vvPf0+0v+j/YGo/ojmF4nf/7nz82z/vaffR/p/tD8Q1R/R/CLx+z93fp7tv/f0+0j/j/YHovojml8kfv/nzs+""z/feefh/p/9H+QFR/RPOLxO//3Pl5tv/e0+8j/T/aH4jqj2h+kfj9nzs/z/bfe/p9pP9H+wNR/RHNLxK//3Pn59n+e0+/j/T/aH8gqj+i+UXi93/u/D""zbf+/p95H+H+0PRPVHNL/4DgTd2gQ="
+=> dct,idct
+(16,11,10,16,24,40,51,61;12,12,14,19,26,58,60,55;14,13,16,24,40,57,69,56;14,17,22,29,51,87,80,62;18,22,37,56,68,109,103,77;24,35,55,64,81,104,113,92;49,64,78,87,103,121,120,101;72,92,95,98,112,100,103,99)
+f. "const S = $1<50?5000/$1:200-2*$1; max(1,round((S*i+50)/100,1,-1))"
+=> Q
+repeat $!-3 { l[$>,-3--1] {
+l[0] { w,h={[w,h]} r {w+(-w%16)},{h+(-h%16)},1,100%,0,3 rgb2ycbcr s c r[-2,-1] 50%,50%,1,1,2 round. }
+repeat 3 {
+[$>]
+f[$>] "begin(boundary = 2; ref(vector64(),res));
+if (!(x%8) && !(y%8),
+ref(crop(x,y,8,8),src);
+repeat (8,l, repeat (8,k, off = k + 8*l; res[off] = sum(src*crop(#"$dct",0,0,off,8,8,1))));
+draw(#-1,res,x,y,8,8);
+); i"
+round.
++r[Q] {$>,w},100%,1,1,0,2 /.. . round.. *[-2,-1]
+f. "begin(boundary = 2; ref(vector64(),res));
+if (!(x%8) && !(y%8),
+ref(crop(x,y,8,8),src);
+repeat (8,l, repeat (8,k, off = k + 8*l; res[off] = sum(src*crop(#"$idct",0,0,off,8,8,1))));
+draw(#"$>",res,x,y,8,8);
+); i"
+rm.
+round[$>]
+}
+l[^3--1] { r ${-max_wh},1,1,1 a c ycbcr2rgb round. r $w,$h,1,3,0 }
+} }
+rm[dct,idct,Q]
+fx_jpeg_artefacts_preview :
+gui_split_preview "fx_jpeg_artefacts $*",${-3--1}
+fx_lomo :
+remove_opacity
+foreach {
+to_rgb +gaussian {100-$1}%,{100-$1}% n. 0,1 *
+s c
+f[0] '255*atan((i-128)/128)'
+f[1] '255*tan((i-128)/128)'
+f[2] '255*atan((i-128)/255)'
+a c
+sharpen 1
+normalize 0,255
+}
+fx_lomo_preview :
+gui_split_preview "fx_lomo $*",${-3--1}
+fx_mess_with_bits :
+ac "_fx_mess_with_bits ${1-7}",$8
+_fx_mess_with_bits :
+foreach {
++l {
+b {($2/100)^2*100}% if $1 n 0,255 fi * $3 round
+if $4==1 f "for (k = res = 0, k<15, ++k, res|=((i>>k)&1)<<(15-k))"
+elif $4==2 f "res = ((i>>8)&255) | ((i&255)<<8)"
+fi
+f "begin( mask = (65535>>(15-max($5,$6))) & (65535<>8,$1&255]}
+foreach {
+if $2 .,.,1,. noise_perlin. {r=2^$4;s=max(w,h)*$3%;[max(1,s/r),max(1,s*r)]},1,$seedx,$seedy *. $2 + fi
+if $5 .,.,1,. noise_perlin. {r=2^$7;s=max(w,h)*$6%;[max(1,s/r),max(1,s*r)]},1,$seedx,$seedy *. $5 + fi
+if $8 .,.,1,. noise_perlin. {r=2^$10;s=max(w,h)*$9%;[max(1,s/r),max(1,s*r)]},1,$seedx,$seedy *. $8 + fi
+if $11 .,.,1,. noise_perlin. {r=2^$13;s=max(w,h)*$12%;[max(1,s/r),max(1,s*r)]},1,$seedx,$seedy *. $11 + fi
+}
+fx_noise_perlin :
+ac "_fx_noise_perlin $*",$-4,1
+fx_noise_perlin_preview :
+gui_split_preview "fx_noise_perlin $*",${-3--1}
+fx_spread :
+ac "spread $1,$2",$3,$4
+fx_spread_preview :
+gui_split_preview "fx_spread $*",${-3--1}
+fx_stripes_y :
+ac "stripes_y $1",$2,$3
+fx_stripes_y_preview :
+gui_split_preview "fx_stripes_y $*",${-3--1}
+fx_8bits :
+remove_opacity
+foreach {
+w={w} h={h}
+r $1%,$1%,1,100%,2
++luminance sharpen. $2 otsu. 256 blend[-2,-1] shapeaverage0
+l. { s c quantize $3,1,1 a c }
+r. $w,$h,1,100%,1
+}
+fx_8bits_preview :
+gui_split_preview "fx_8bits $*",${-3--1}
+fx_pixelsort :
+_fx_pixelsort ${1-8},0
+_fx_pixelsort :
+foreach[0-{$4==0?-2:-1}] {
+if $3==0 +to_rgb channels. 0
+elif $3==1 +to_rgb channels. 1
+elif $3==2 +to_rgb channels. 2
+elif $3==3 +compose_channels +
+elif $3==4 +luminance
+elif $3==5 +to_rgb rgb2hsl. channels. 2
+elif $3==6 +to_rgb rgb2hsl. channels. 0
+elif $3==7 +to_rgb rgb2hsl. channels. 1
+elif $3==8 +compose_channels min
+elif $3==9 +compose_channels max
+else 100%,100%,1,1 rand. 0,100
+fi
+if $4==0 pass. 0 norm.
+elif $4==1 .
+elif $4==2 +gradient_norm[0]
+else +rand. 0,100
+fi
+b. $7% ir. $5%,{$6+0.01}%
+if $8 ==. 0 fi
+if $9 k. * 255
+else pixelsort[0] {`$1?_'+':_'-'`},{`$2==0?'x':$2==1?'y':$2==2?'xy':'yx'`},[1],[2] k[0]
+fi
+}
+fx_pixelsort_preview :
+_fx_pixelsort $*
+fx_rain :
+foreach {
+nm=${-gui_layer_name}
+100%,100% l. {
+noise 300 c 0,255 b 1,0
+c {100-$3}%,100%
++>= 40% blend shapeaverage0
+blur_linear $2,$4,$1
+max n 0,255 apply_gamma $5
+=> "name("$nm"),mode(screen),opacity("{$6*100}")"
+}
+rv
+}
+fx_rain_preview :
+gui_split_preview "foreach { fx_rain $* rv blend screen,$6 }",${-3--1}
+fx_shade_stripes :
+ac "shade_stripes $1,$2,$3,$4",$5,$6
+fx_shade_stripes_preview :
+gui_split_preview "fx_shade_stripes $*",${-3--1}
+fx_rebuild_from_similar_blocks :
+foreach {
+split_opacity l[0] {
+to_rgb w0,h0,S={[w,h,round(min(w,h)*$1%)]}
+r {ceil([w,h]/$S)*$S},1,100%,0,3,0.5,0.5
+M,N={[w,h]/$S}
+s yx,-$S a z
++l { b xy,$2% rgb2ycbcr sh. 0 *. $3 rm. }
+$M,$N,1,1,-1
+f. ":
+i<0?(
+ind = x + y*w;
+ref(crop(#1,0,0,ind,w#1,h#1,1),S);
+kmin = 0;
+dmin = inf;
+repeat (wh,k, k!=ind?(
+d = norm"{1+$4}"(S - crop(#1,0,0,k,w#1,h#1,1));
+d0&&$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
+if $rang_f||$rang_b
+repeat $spins { rotate[{$>+1}] {u($rang_f,$rang_b)},0,$bound,$cx%,$cy% }
+fi
+l[^0] {
+sel=0--1
+if $inv==1 sel..=^ fi
+if $inter>1
+ap[$sel:$inter] "mirror $__mir"
+elif $inter==-1
+repeat 2 {
+step:=floor(u(1,20))
+ap[$sel:$step] "mirror $__mir"
+}
+fi
+}
+a[^0] $dir
++gradient_norm.
+negate.
+deform[^0] $def
+blend[^0] edges,0.6
+blend $blending_mode,$str%
+done
+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 $*
+fx_streak :
+foreach {
+to_rgba
+if !$4 R,G,B,A=0 else R,G,B,A=${1-4} fi +select_color 0,$R,$G,$B,$A
+if $7==3 srgb2rgb.. fi
+f.. "
+const step = max(1,$5%*min(w,h));
+const angle = $6*pi/180;
+const dx = step*cos(angle);
+const dy = step*sin(angle);
+if (!i(#-1),I,
+ixf = xf = x; iyf = yf = y; lf = 0;
+if ($7>=1, while (i(#-1,ixf=round(xf),iyf=round(yf)), ++lf; xf-=dx; yf-=dy)); # Forward
+ixb = xb = x; iyb = yb = y; lb = 0;
+if ($7!=1, while (i(#-1,ixb=round(xb),iyb=round(yb)), ++lb; xb+=dx; yb+=dy)); # Backward
+$7==0?I(ixb,iyb):
+$7==1?I(ixf,iyf):
+$7==2?(lf]
+nm=${-gui_layer_name}
+sharp_radius=$1
+amount=$2
+threshold=$3
+constrant_radius=$4
+overshoot=$5
+channels=$6
+value_action=$7
+apply_channels "
+sharp_radius=$1
+amount=$2
+threshold=$3
+constrant_radius=$4
+overshoot=$5
++dilate_oct[0] $constrant_radius
++erode_oct[0] $constrant_radius
+unsharp[0] $sharp_radius,$amount,$threshold
+add[1] $overshoot
+sub[2] $overshoot
+blend[0,1] darken,1,0
+blend[0,1] lighten,1,0
+blend alpha,1,0",$channels,$value_action
+nm name($nm)
+done done
+jeje_dehaze :
+apply_channels "dehaze {2*$1+1},$2,$3,$4,$5,$6,$7 if $8 k[1] n 0,255 to_rgb else k[0] fi",rgb,1
+jeje_dehaze_preview :
+gui_split_preview "jeje_dehaze $1,$2,$3,$4,$5,$6,$7,$8",$9
+_fx_equalize_details :
+foreach {
+split_details 5,{max(0.1,$1)},{max(0.1,$2)}
+__fx_equalize_details[1] ${3-6},8
+__fx_equalize_details[2] ${7-10},4
+__fx_equalize_details[3] ${11-14},2
+__fx_equalize_details[4] ${15-18},1
++ c 0,255
+}
+__fx_equalize_details :
+threshold $1,1
+if $3==0 b {$2*$5/2}
+elif $3==1
+if $2>0
+m={im} M={iM} n. 0,255
+repeat int($2/5) { bilateral 15,{5*$5} }
+bilateral 15,{($2%5)*$5}
+*. {($M-$m)/255} +. $m
+fi
+else smooth {$2*50},0.2,0.8,$5,$5 fi
+* {10^$4}
+fx_equalize_details :
+ac "gui_parallel_overlap \"_fx_equalize_details ${1-18}\",$21,$22",$19,$20
+fx_equalize_details_preview :
+gui_split_preview "fx_equalize_details $*",${-3--1}
+fx_tk_dri :
+repeat $! l[$>]
+if $6==1
++negate +to_rgba[0] +luminance[0] +to_rgba[0] +luminance[0]
+fx_gaussian_blur[1] {{{w+h}/20}*{1.1-$1}},0,0,1,0,0,0 to_gray[1]
+rv[0,1] fx_compose_softlight[0,1] $1
+fx_gaussian_blur[2] {{w+h}/200},0,0,1,1,0,0 negate[2] to_gray[2]
+s[1] c rv[4,5] compose_multiply[4,5] a[1,2,3,4] c rv[0,1]
+fx_compose_dodge[0,1] $2
+fx_gaussian_blur[2] {{w+h}/200},0,0,1,1,0,0 to_gray[2] s[1] c
+rv[4,5] compose_multiply[4,5] a[1,2,3,4] c rv[0,1]
+fx_compose_colorburn[0,1] $3 fi
+if $7==1 +map_tones[0] 0.50,0.70,$4,50
++normalize_local[0] $4,6.00,5.00,1.00
+rv[0,1] fx_compose_value[0,1] $5,0
+rv[0,1] fx_compose_value[0,1] $5,0 fi
+done done
+fx_tk_dri_preview :
+gui_split_preview "fx_tk_dri ${1--2}",$-1
+fx_equalize_local_histograms :
+b0="normal" b1="overlay" b2="softlight"
+foreach {
++ac "_fx_equalize_local_histograms ${1-6}",$7,1
+blend ${b$2},{$1%}
+}
+_fx_equalize_local_histograms :
++n 0,511 round.
+f. "
+begin(
+const boundary = 1;
+const N = $3;
+const sigma = ($6?1:-1)*(0.1+$4);
+ref(vector512(),weights);
+repeat (size(weights),k,
+weights[k] = sigma>=0?exp(-sqr(k/sigma)):1 - exp(-sqr(k/sigma))
+);
+);
+ref(vector512(0),bins);
+repeat (s,c,
+ref(crop(x - N,y - N,0,c,2*N + 1,2*N + 1,1,1),V);
+repeat (size(V),k,
+val = V[k];
+diff = abs(val - V[size(V)/2]);
+bins[val]+=weights[diff];
+);
+);
+sum = 0;
+repeat (size(bins),k,
+sum+=bins[k];
+bins[k] = sum;
+);
+bins/=max(1e-5,sum);
+P = I;
+size(P)==1?(P = bins[P[0]]; 0):
+size(P)==2?(P = [ bins[P[0]], bins[P[1]] ]; 0):
+size(P)==3?(P = [ bins[P[0]], bins[P[1]], bins[P[2]] ]; 0):
+size(P)==4?(P = [ bins[P[0]], bins[P[1]], bins[P[2]], bins[P[3]] ]; 0);
+P"
+n. 0,255
+if $5 norm.. bilateral. ..,$5,{2+$5} fi
+k.
+fx_equalize_local_histograms_preview :
+gui_split_preview "fx_equalize_local_histograms $*",${-3--1}
+fx_freaky_details :
+foreach {
+split_opacity l[0] {
+repeat $3 {
+. +-. 255 *. -1
+repeat $1 { bilateral. $2,{1.5*$2} }
+blend[-2,-1] vividlight blend overlay
+}
+}
+a c
+}
+n 0,255
+fx_freaky_details_preview :
+gui_split_preview "fx_freaky_details $*",${-3--1}
+fx_highpass :
+repeat $! l[$>]
+to_rgb +negate
+if $4==1 to_gray fi
+fx_gaussian_blur[1] $1,0,0,1,0,0,0
+compose_interpolation
+tk_fx_channel_processing 1,$2,0,0,0,0,100,256,0,0,0,2,0,0
+if $2>=4 tk_fx_channel_processing 1,{$2-3},0,0,0,0,100,256,0,0,0,2,0,0 fi
+tk_fx_channel_processing 1,1,0,0,1,50,100,256,0,0,0,2,0,0
+if $3==1 negate fi done done
+fx_highpass_preview :
+gui_split_preview "fx_highpass ${1--2}",$-1
+_fx_LCE :
+SpatialRadius=$1
+Amount=$2
+DarknessLevel=$3
+LightnessLevel=$4
+Threshold=0
++b. $SpatialRadius
+-. .. *. -$Amount
++norm. ge. $Threshold% ri. .. *[-2,-1]
++c. 0,100% c.. -100%,0 *.. $DarknessLevel *. $LightnessLevel +[-2,-1]
++[-2,-1] c. 0,255
+fx_LCE :
+ac "_fx_LCE $1,$2,$3,$4",$5,0
+fx_LCE_preview :
+gui_split_preview "fx_LCE ${1--2}",$-1
+fx_normalize_local :
+ac "normalize_local $1,$2,$3,$4,$5,0,255",$6
+fx_normalize_local_preview :
+gui_split_preview "fx_normalize_local $*",${-3--1}
+fx_local_processing :
+com0="n 0,255"
+com1="equalize 256,0,255 n 0,255"
+com=${com$1}
+if $6 com="s c "$com" a c" fi
+foreach {
+size={round(max(8,max(w,h)*$3%))}
++ac "at \""$com"\","$size","$size",1,$4%,$4%",$7
+if $5 +norm[0] bilateral[1] .,{$5/20}%,{2+$5/4} rm. fi
+blend alpha,{$2%}
+}
+fx_local_processing_preview :
+gui_split_preview "fx_local_processing $*",${-3--1}
+jeje_normalize_local_variance :
+apply_channels "normalize_local_variance $1,$2,$3,$4",$5,0
+c 0,255
+jeje_normalize_local_variance_preview :
+gui_split_preview "jeje_normalize_local_variance $1,$2,$3,$4,$5",$-1
+fx_magic_details :
+ac "_fx_magic_details ${1-5}",$6,1
+_fx_magic_details :
+foreach {
++bilateral $2,$3
++gradient_norm.. +. 1
+^. {$4>=0?3.1-$4:-3.1-$4}
+b. $5 n. 1,{1+$1}
+-... .. *[-3,-1] + c 0,255
+}
+fx_magic_details_preview :
+gui_split_preview "fx_magic_details $*",${-3--1}
+makeup_full:
+to_rgb
+sub[-1] 128 *[-1] .5 +[-1] 128
+split c
+name[0] red
+name[1] green
+name[2] blue
+sub[green] [red]
+bilateral[green] $1,$2
+add[green] [red]
+sub[blue] [red]
+bilateral[blue] $1,$2
+add[blue] [red]
+append[0,1,2] c
+-[-1] 128 *[-1] 2 +[-1] 128
+c 0,255
+make_up:
+to_rgb
+cropwidth={w}
+cropheight={h}
+resize[0] {w+(2-w%2)},{h+(2-h%2)},1,{s},0,1
+width={w}
+height={h}
+if $3==1
++resize 50%,50%,1,3,5
++makeup_full[1] {$1/2},$2
++resize[1] 200%,200%,1,3,5
++compose_grainextract[0,3]
+resize[2] {w},{h},1,3,5
++compose_grainmerge[2,4]
+keep[0,-1]
+else
+if $4==1
++makeup_full[0] $1,$2
+else
+makeup_full[0] $1,$2
+fi
+fi
+if $4==1
++rgb2hsl8[1]
+split[-1] c remove[-1,-2]
++[-1] 128
+mod[-1] 255
+apply_curve[-1] 0,0,0,130,0,136,255,155,255,160,0,255,0
+median[-1] 3
++edges[1] 10% n[-1] 0,1
+mul[-1,-2]
+a[1,2] c
+blend[0,1] alpha
+else
+keep[-1]
+fi
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+make_up_preview:
+gui_split_preview "make_up ${1--2}",$-1
+fx_tk_mask :
+repeat $! l[$>]
+if $8==1 +to_rgba. rv[-1,-2] fi to_rgb.
+if $2==1 channels. 0
+elif $2==2 channels. 1
+elif $2==3 channels. 2
+elif $2==4 rgb2cmy channels. 2
+elif $2==4 rgb2cmy channels. 1
+elif $2==4 rgb2cmy channels. 0
+elif $2==5 rgb2lab channels. 1
+elif $2==6 rgb2lab channels. 2
+fi to_rgb.
+if $1==0 luminance. +luminance.
+elif $1==1 rgb2hsv. channels. 1
+n. 0,255 .
+elif $1==2 rgb2hsv. channels. 0
+n. 0,255 .
+elif $1==3 rgb2lab. channels. 0
+n. 0,255 .
+fi
+c. $3,255 n. 0,255
+f.. "if(i<$4,if(c==0,i,i),0)"
+fx_gaussian_blur[-1,-2] $5,0,0,1,0,0,0
+compose_darken
+if $8==1 rv[-1,-2] fi
+tk_fx_channel_processing. 1,$6,0,0,0,0,100,256,0,0,0,2,0,0
+if $7==1 negate. fi
+if $8==1 s.. c rv[-1,-2]
+fx_compose_multiply[-1,-2] $9
+a[-4,-3,-2,-1] c
+fi done done
+fx_tk_mask_preview :
+gui_split_preview "fx_tk_mask ${1--2}",$-1
+_fx_mighty_details :
++smooth $3,0,1,0.5,0.5 -[1] [0]
++abs. sign.. M={iM} ^. {2-$2} *. {$M/iM} *[-2,-1]
++diffusiontensors[0] 0,1,0.5,0.5
+repeat $4 { smooth[1] [2],20 }
+*[1] {-$1/5} +
+fx_mighty_details :
+ac "_fx_mighty_details ${1-4}",$5,1
+n 0,255
+fx_mighty_details_preview :
+gui_split_preview "fx_mighty_details $*",${-3--1}
+fx_tk_portrait :
+repeat $! l[$>] to_rgb
+if narg($_previewflag)==0 _previewflag=0 fi
+if $1==3" || "$1==4 +luminance[0] elif $1==2 +channels[0] 2 fx_unsharp. 0,$21,30,$22,0.00,1.00,0.5,1,0,0,0 fi
++fx_edges[0] $24,$23,0,0 if $23==0 fc. 0 fi +fx_unsharp[0] 0,$21,30,$22,0.00,1.00,0.5,1,0,7,0
+if $_previewflag==4" && "$29==5 +tk_fx_select_color[0] ${12-18},0,0 else +tk_fx_select_color[0] ${12-18},1,0 fi
++fx_split_freq[0] $6 if $19==1 fc. 128,128,128 noise. {$6*2},0 luminance. fi
++fx_split_freq[0] $7
+rm[-2,-4]
++fx_tk_dri[0] {$8/100},{$8/200},{$8/200},0,0,1,0,0
+if $9==0 b. $5 rv[-1,-2] b. $4 b... $3
+elif $9==1 bilateral. $7,$5 rv[-1,-2] bilateral. $6,$4 bilateral... {$3/5},$3
+elif $9==2 smooth. $5 rv[-1,-2] smooth. $4 smooth... $3
+elif $9==3 median. $5 rv[-1,-2] median. $4 median... $3
+fi
+if ($_previewflag!=0" && "$_previewflag<=3)" || "($10<=1" && "$_previewflag==0)
+fx_compose_freq[-1,-2] rv[-1,-2] fx_compose_freq[-1,-2]
+if $11==1 to_rgba. b.. $14 s. c negate. +. [-5] a[-1,-2,-3,-4] c fi rm.. mv. 1
+to_rgba. s. c negate[-1,-5] +. [-5] a[-1,-2,-3,-4] c rm.. if $23==50 fc. 0,0,0,0 fi
+if $_previewflag==1" || "$_previewflag==2" || "($10==0" && "$_previewflag==0)
+if $1!=0" && "$1!=1 mv.. 0 fi
+if $20==1 fx_mix_lab.. $27,$26,0,$28,{if({$25>=0},{$25/4},{$25*0.75})},0,$28,$25,0,0,2,0
+elif $20==2 fx_mix_lab. $27,$26,0,$28,{if({$25>=0},{$25/4},{$25*0.75})},0,$28,$25,0,0,2,0
+elif $20==3 fx_mix_lab[-1,-2] $27,$26,0,$28,{if({$25>=0},{$25/4},{$25*0.75})},0,$28,$25,0,0,2,0
+fi
+fx_compose_alpha[-2,-3] {if({$1==0},{$2/100},1)},0 fx_compose_alpha[-1,-2] {if({$1==0},{$2/100},1)},0
+if $23==50 fx_unsharp[0] 0,$21,30,$22,0.00,1.00,0.5,1,0,0,0 fi
+if $_previewflag<=1
+if $1==1 fx_glow[0] {$2/10},0,0
+elif $1==2 fx_compose_hardlight[0,1] {$2/100}
+elif $1==3 fx_compose_screen[0,1] {$2/100}
+elif $1==4 fx_compose_multiply[0,1] {$2/100}
+fi
+if $20==0 fx_mix_lab[0] $27,$26,0,$28,{if({$25>=0},{$25/4},{$25*0.75})},0,$28,$25,0,0,2,0 fi
+fi fi fi done done
+fx_tk_portrait_preview :
+_previewflag=1
+if $29==1 _previewflag=2 elif $29==2" || "$29==3 _previewflag=3 elif $29>=4 _previewflag=4 fi
+if $29>=2 gui_split_preview "fx_tk_portrait ${1--2}",0
+else gui_split_preview "fx_tk_portrait ${1--2}",$-1 fi
+if $29==1 k[0] elif $29==2 k[2] elif $29==3 k[0] elif $29==4 k... elif $29==5 k...
+elif $29==6 k[-5] negate elif $29==7 k.. elif $29==8 k[0] elif $29==9 k. fi
+_previewflag=0
+iain_pyramid_processing:
+repeat $! l[$>]
+remove_opacity
+if $5==0
+colorspace="lab_l"
+elif $5==1
+colorspace="ycbcr_y"
+elif $5==2
+colorspace="rgb"
+fi
+ac[0] "
++l
+dilate=1
+blur=1
+mix=$3
+noise=$2
+levels=$1
+size={3^$levels}
+cropwidth={w}
+cropheight={h}
+resize {w+($size-w%$size)},{h+($size-h%$size)},{d},{s},0,1
+repeat $levels
+l[-1]
++resize[0] 33.33333%,33.33333%,{d},{s},2
++iain_resize_x3[-1]
+blur[-1] 1
+sub[0,-1]
+done
+done
+repeat $!-1
+l[{$>}]
++abs
+max={iM}
+dilate[-1] $dilate
+blur[-1] $blur
+max[-1] 0.00000000000000001
++fill[-1] $max
+div[-1] [-2]
+cut[-1] -1000000000,$noise
+mul[0,-1]
+k[0]
+done
+done
+to_rgb
+repeat $!-1
+iain_resize_x3[-1]
+blur[-1] 1
+add[-1,-2]
+done
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+replace_nan 0
+replace_inf 255
+n 0,255
+done
+if $4
+sub[-1] {-1,ia}
+mul[-1] $mix
+add
+c 0,255
+else
+mul[0] {1-$mix}
+mul[1] $mix
+add
+fi
+c 0,255",$colorspace
+done done
+fx_deblur :
+ac "gui_parallel_overlap \"deblur ${1-5} c 0,255\",$7,$8",$6,1
+fx_deblur_preview :
+gui_split_preview "fx_deblur $*",${-3--1}
+fx_unsharp_goldmeinel:
+ac "gui_parallel_overlap \"_fx_unsharp_goldmeinel $*\",$7,$8",$6,1
+_fx_unsharp_goldmeinel :
+deblur_goldmeinel $*
+if $5 c 0,255 else n 0,255 fi
+fx_unsharp_goldmeinel_preview:
+gui_split_preview "fx_unsharp_goldmeinel $*",${-3--1}
+jeje_hessian_sharpen :
+repeat $! l[$>]
+split_opacity l[0] repeat $3 hessian_sharpen $1,$2 done done a c
+if $4 c 0,255 n 0,255 else n 0,255 fi
+done done
+jeje_hessian_sharpen_preview :
+gui_split_preview "jeje_hessian_sharpen $1,$2,$3,$4",$-1
+fx_sharpen_inversediff :
+ac "repeat $2 { sharpen $1 c 0,255 }",$3,1
+fx_sharpen_inversediff_preview :
+gui_split_preview "fx_sharpen_inversediff $*",${-3--1}
+fx_sharpen_multiscale :
+ac "_fx_sharpen_multiscale $1,$2",$3
+fx_sharpen_multiscale_preview :
+gui_split_preview "fx_sharpen_multiscale $*",${-3--1}
+_fx_sharpen_multiscale :
+foreach {
+N={max(1,int(log2(min(w,h))-2))}
++l { repeat $N { +r. 50%,50%,1,100%,2 +r. ..,..,1,100%,5 -[-3,-1] } }
+guided[0] 4,100
+repeat $!-1 { l[0,{$>+1}] {
++ri[0] [1],2
++equalize.. 1024
+bilateral. ..,{2*$2%},100
+j[1] .,0,0,0,0,{$1%}
+k[0,1]
+} }
+rm[0]
+repeat $!-1 { r. ..,..,1,100%,5 +[-2,-1] }
+c 0,255
+}
+fx_unsharp_octave :
+ac "gui_parallel_overlap \"unsharp_octave $1,$2,$3,$4\",$6,$7",$5,1
+fx_unsharp_octave_preview :
+gui_split_preview "fx_unsharp_octave $*",${-3--1}
+fx_unsharp_richardsonlucy :
+deblur_richardsonlucy $*
+if $4 c 0,255 else n 0,255 fi
+fx_unsharp_richardsonlucy_preview :
+gui_split_preview "fx_unsharp_richardsonlucy $*",${-3--1}
+fx_sharpen_shock :
+ac "repeat $5 { sharpen $1,$2,$3,$4 c 0,255 }",$6,1
+fx_sharpen_shock_preview :
+gui_split_preview "fx_sharpen_shock $*",${-3--1}
+fx_sharpen_texture :
+ac "_fx_sharpen_texture ${1-2}",$3,1
+_fx_sharpen_texture :
+foreach {
++rolling_guidance $2,5,0.5 -. [0] *. $1 - c 0,255
+}
+fx_sharpen_texture_preview :
+gui_split_preview "fx_sharpen_texture $*",${-3--1}
+_fx_unsharp :
+repeat $! { repeat $8 {
+if $1==0 +b. $2 else +bilateral. $2,$3 fi
+-. .. *. -$4
++norm. >=. $5% ri. .. *[-2,-1]
+if $9 *. -1 fi
++c. 0,100% c.. -100%,0 *.. $6 *. $7 +[-2,-1]
++[-2,-1] c. 0,255
+} mv. 0 }
+fx_unsharp :
+ac "_fx_unsharp $1,$2,$3,$4,$5,$6,$7,$8,$9",$10,1
+fx_unsharp_preview :
+gui_split_preview "fx_unsharp $*",${-3--1}
+jeje_whiten_frequency :
+repeat $! l[$>] split_opacity l[0]
+whiten_frequency {exp($1/100)-1}
+if $2 c 0,255 n 0,255 else n 0,255 fi
+done a c done done
+jeje_whiten_frequency_preview :
+gui_split_preview "jeje_whiten_frequency $1,$2",$-1
+fx_split_details_alpha :
+remove_opacity
+foreach {
+repeat $1-1 {
+s={$3+($2-$3)*$>/if($1-2>0,$1-2,1)}
++_fx_split_details_alpha_blur. $s
+sub_alpha.. .,$4
+}
+}
+_fx_split_details_alpha_blur :
+if $1>=0.1 b. $1
+else
+if $1>=0.05 (1,4,7,4,1;4,16,26,16,4;7,26,41,26,7;4,16,26,16,4;1,4,7,4,1)
+else (1,2,1;2,4,2;1,2,1) fi
+normalize_sum. convolve.. . rm.
+fi
+fx_split_details_alpha_preview :
+foreach {
+fx_split_details_alpha ${1-4}
+if $5 remove_opacity[^-1] else to_rgba. fi
+N={int(sqrt($!))} N={round($!/$N,1,1)} r2dy {100/$N}%
+foreach { 0 text. "#"{1+$>}" ",1,1,24,1,255 +dilate. 5 to_rgba[1] j[0] [1],2,0,0,0,1,[2],255 k[0] }
+to_rgba frame 1,1,0 frame 3,3,255 append_tiles ,
+}
+fx_split_details_gaussian :
+remove_opacity
+foreach {
+nm=${-gui_layer_name}
+pos=${-gui_layer_pos}
+split_details $1,$2,$3
++[^0] 128 c[^0] 0,255 round
+repeat $!-1 { =>[{1+$>}] "mode(grainmerge), name"($nm" [scale ""#"{1+$>}"]), pos("$pos")" }
+=>[0] "name"($nm" [residual]), pos("$pos")"
+rv
+}
+fx_split_details_gaussian_preview :
+foreach {
+fx_split_details_gaussian $*
+if $4 equalize[^-1] 256 fi n[^-1] 0,255
+N={int(sqrt($!))} N={round($!/$N,1,1)} r2dy {100/$N}%
+foreach { 0 text. "#"{1+$>}" ",1,1,24,1,255 +dilate. 5 to_rgba[1] j[0] [1],2,0,0,0,1,[2],255 k[0] }
+to_rgba frame 1,1,0 frame 3,3,255 append_tiles ,
+}
+fx_split_details_wavelets :
+remove_opacity
+foreach {
+nm=${-gui_layer_name}
+pos=${-gui_layer_pos}
+split_details $1,0,0 rv +[^-1] 128 c[^-1] 0,255 round
+if $2 to_a[^-1] fi
+repeat $!-1 { =>[$>] "mode(grainmerge), name"($nm" [scale ""#"{1+$>}"]), pos("$pos")" }
+=> "name"($nm" [residual]), pos("$pos")"
+}
+fx_split_details_wavelets_preview :
+foreach {
+fx_split_details_wavelets $1,0
+if $3 equalize[^-1] 256 fi n[^-1] 0,255
+N={int(sqrt($!))} N={round($!/$N,1,1)} r2dy {100/$N}%
+foreach { 0 text. "#"{1+$>}" ",1,1,24,1,255 +dilate. 5 to_rgba[1] j[0] [1],2,0,0,0,1,[2],255 k[0] }
+to_rgba frame 1,1,0 frame 3,3,255 append_tiles ,
+}
+jeje_spotify :
+apply_channels "spotify $1,$2 apply_gamma $3 if $4 c 0,255 else n 0,255 fi",$5
+jeje_spotify_preview :
+gui_split_preview "jeje_spotify $1,$2,$3,$4,$5",$6
+#@cli afre_texture : -100<=coarse<=100,-100<=_medium<=100,-100<=_fine<=100
+#@cli : Enhance texture with detail scales.
+#@cli : Default values: 'coarse=0', 'medium=0' and 'fine=0'.
+afre_texture : check "${1=0}>=-100 && ${2=0}>=-100 && ${3=0}>=-100
+&& $1<=100 && $2<=100 && $3<=100"
+if !$1&&!$2&&!$3 return fi e[] "[afre]^_^) texture: Enhance texture of image$? using coarse=$1, medium=$2 and fine=$3 detail scales."
+repeat $! l[$>] r={[im,iM]} +afre_orien 1 +afre_y50.. 1 to_rgb.
+afre_details. 4 w1={20^($1/130)} w2={20^($2/100)} w3={20^($3/140)}
+if $1>0 *[3] $w1 elif $1<0 f[3] 0 median[2] {abs($1)/100*5} fi
+if $2>0 *[4] $w2 elif $2<0 f[4] 0 median[2] {abs($2)/100*9} fi
+if $3>0 *[5] $w3 elif $3<0 f[5] 0 median[2] {abs($3)/100*13} fi
++[2--1] c. $r *[^0] c. $r
++n.. 0,1 f. "begin(const M=0.5; const G=0.05);
+ref(if(i<=M,M-M*(i/M)^G,-M+M*((1-i)/M)^G),A)" n. 0,1
+blend_fade[0,1] . k[0]
+n $r done done
+afre_texture_preview :
+afre_texture $*
+iain_texture_enhance_p:
+apply_parallel_overlap "iain_texture_enhance ${1--2}",{$1*2},$-2
+iain_texture_enhance_p_preview :
+gui_split_preview "iain_texture_enhance_p ${1--2}",$-1
+iain_texture_enhance:
+tic
+ac "
+if $1%2!=0
++erode_circ[0] $1 dilate_circ[-1] $1
++dilate_circ[0] $1 erode_circ[-1] $1
+else
++erode_oct[0] $1 dilate_oct[-1] $1
++dilate_oct[0] $1 erode_oct[-1] $1
+fi
+sub[1] [0]
+sub[2] [0]
+add[1] [2]
+remove[2]
+mul[1] $2
++abs[1]
+pt1={min(0,($4-10))}
+apply_curve[-1] 0,0,0,$pt1,0,{$4+1},1,255,1
+(0.0579710145,0.1304347826,0.0579710145;0.1304347826,0.2463768116,0.1304347826;0.0579710145,0.1304347826,0.0579710145)
+convolve[-2] [-1]
+remove[-1]
+mul[1] [2]
+c[1] {$3*-1},$3
+sub[0] [1]
+keep[0]",$5
+c 0,255
+toc
+iain_texture_enhance_preview :
+gui_split_preview "iain_texture_enhance ${1--2}",$-1
+gcd_tone_enhance :
+skip ${1=0},${2=1},${3=0},${4=1},${5=128},${6=0},${7=1}
+skip ${8=0.5},${9=0},${10=0},${11=4},${12=0},${13=0}
+if $13 repeat $! l[$>]
+gcd_srgb2jpeg sh 1,2 median. 5,20 rm. gcd_jpeg2srgb c 0,255
+done done fi
+mode=${arg\ 1+$11,hsi_i,hsv_v,lab_l,lrgb,rgb,ycbcr_y}
+ac "_gcd_tone_enhance ${1-10}",$mode,{$12+1}
+_gcd_tone_enhance :
+repeat $! l[$>]
+if $9>0 bilateral 1%,$9 c 0,255 fi
++norm +bilateral.. 2%,30 norm. -[-2,-1]
++gradient_norm.. n. 0,1 oneminus. *[-2,-1]
+if $10 b. {0.025*$10}% fi
++n.. 0,255 median. 3 bilateral. 2%,30
+gcd_srgb2luma. -. $5 +abs. negate.
++max.. 0 min... 0 abs...
+if $8!=0.5
++n[{$8>0.5?-3:-1}] 0,1 +gcd_ibezier[0] {1-$8}
+j[0] .,0,0,0,0,1,.. rm[-2,-1]
+fi
++/... {if(iM#-3>0,iM#-3/(1/$2-1),1)} +. 1
++/... {if(iM#-3>0,iM#-3/(1/$7-1),1)} +. 1 *[-2,-1]
++/.. {if(iM#-2>0,iM#-2/(1/$4-1),1)} +. 1 *[-2,-1]
+m={0,iM} /[0] $m ^[0,-1] *[0] $m
+n... 0,$1 n.. 0,$6 n. 0,$3 *[-3--1] [-4] rm[-4] +
+done done
+fx_map_tones :
+ac "map_tones ${1-4}",$5,1
+n 0,255
+fx_map_tones_preview :
+gui_split_preview "fx_map_tones $*",${-3--1}
+fx_map_tones_fast :
+ac "map_tones_fast $1,$2",$3,2
+fx_map_tones_fast_preview :
+gui_split_preview "fx_map_tones_fast ${^0}",${-3--1}
+fx_yag_soften :
+Darken=$1
+Soften=$2
++fx_laplacian[0] 0,0,100,0,0,0
+if $Soften>0
+fx_gaussian_blur[1] {$Soften/10},0,0,1,0,0,0
+fi
++fx_mix_lab[0] 0.5,50,0.2,1,2,1,1,2,1,0,10,0
+if $Darken>0
++blend[0,2] softlight
+blend[0,3] multiply,{$Darken/100}
+fi
+blend[0,2] hardlight
+if $Soften!=100
+blend[0,1] grainextract
+elif $Soften==100
+rm[1]
+fi
+fx_yag_soften_preview :
+gui_split_preview "fx_yag_soften ${1--2}",$-1
+fx_droste :
+repeat $! {
+if $16==1 100%,100%,1,1,'x' 100%,100%,1,1,'y' a[-2,-1] c fi
+repeat $9 {
+x0={round($1*w/100)} y0={round($2*h/100)} x1={round($3*w/100)} y1={round($4*h/100)}
+x2={round($5*w/100)} y2={round($6*h/100)} x3={round($7*w/100)} y3={round($8*h/100)}
+100%,100%,1,2,-32767 polygon. 4,$x0,$y0,$x1,$y1,$x2,$y2,$x3,$y3,1,-65535
+sh. 0
+f. "if(i==-65535,
+x03 = "$x0"+(y-"$y0")/("$y3"-"$y0")*("$x3"-"$x0");
+x12 = "$x1"+(y-"$y1")/("$y2"-"$y1")*("$x2"-"$x1");
+(x-x03)/(x12-x03)*(w-1),i)"
+rm.
+sh. 1
+f. "if(i==-65535,
+y01 = "$y0"+(x-"$x0")/("$x1"-"$x0")*("$y1"-"$y0");
+y32 = "$y3"+(x-"$x3")/("$x2"-"$x3")*("$y2"-"$y3");
+(y-y01)/(y32-y01)*(h-1),i)"
+rm.
+xshift={w*$10/100} yshift={h*$11/100} alpha={-$12*pi/180}
+ca={cos($alpha)/$13} sa={sin($alpha)/$13} w2={w/2} h2={h/2}
+f. 'if(i==-32767,i,X=i(x,y,0,0)-$w2;Y=i(x,y,0,1)-$h2;if(c==0,$w2-$xshift+X*$ca-Y*$sa,$h2-$yshift+X*$sa+Y*$ca))'
+if $14==0 sh. 0 f. 'if(i==-32767,x,i)' rm. sh. 1 f. 'if(i==-32767,y,i)' rm.
+elif $14==1 sh. 0 f. 'if(i==-32767,x,w-1-i)' rm. sh. 1 f. 'if(i==-32767,y,i)' rm.
+elif $14==2 sh. 0 f. 'if(i==-32767,x,i)' rm. sh. 1 f. 'if(i==-32767,y,h-1-i)' rm.
+else sh. 0 f. 'if(i==-32767,x,w-1-i)' rm. sh. 1 f. 'if(i==-32767,y,h-1-i)' rm.
+fi
+if $16<2 warp.. .,0,{$16==0},$15 rm.
+else
++warp.. .,0,1,$15 rm..
+if $16==3 rv[-2,-1] fi
+blend[-2,-1] alpha
+fi
+}
+if $16==1 warp.. .,0,1,1 rm. fi
+mv. 0
+}
+fx_droste_preview :
+if !$17 fx_droste $* else polygon 4,$1%,$2%,$3%,$4%,$5%,$6%,$7%,$8%,0.3,0,0,0,255 fi
+polygon 4,$1%,$2%,$3%,$4%,$5%,$6%,$7%,$8%,1,0xFFFFFFFF,0,0,0,255
+fx_frame_blur :
+foreach {
+to_rgb sx={$1%*max(w,h)} sy={$2%*max(w,h)}
++r {w+$sx},{h+$sy},1,100%,3 b[1] $4%
+if $6 balance_gamma[1] ${7-9} fi
+if $10==1 n[1] 0,255 elif $10==2 n[1] 0,255 equalize[1] 256 fi
+rv
+z[1] {$3/2}%,{$3/2}%,{100-$3/2}%,{100-$3/2}%
+to_rgba[1]
+if $5 r={1+1/$5} sh[1] 100% f. '1-(abs(x/w-0.5)^$r+abs(y/h-0.5)^$r)^(1/$r)'
+v={min(i(w/2,0),i(w-1,h/2),i(w/2,h-1),i(0,h/2))}
+c. $v,{$v+0.5/max(w,h)} n. 0,255 rm. fi
+s={$11%*max(w,h)}
+r[1] {w+$s},{h+$s},1,4,0,0,0.5,0.5
+i[1] 100%,100%,1,3 fc[1] ${12-14} blend[1,2] alpha to_a.
+if $5 sh[1] 100% f. '1-(abs(x/w-0.5)^$r+abs(y/h-0.5)^$r)^(1/$r)'
+v={min(i(w/2,0),i(w-1,h/2),i(w/2,h-1),i(0,h/2))}
+c. $v,{$v+0.5/max(w,h)} n. 0,255 rm. fi
+rotate[1] $21,1,0
+r[1] [0],[0],1,4,0,0,$19,$20
++channels[1] 100% b. $17%,0 c. 0,{max(1,100-$18)}% n. 0,255
+shift. {round(w*$15%)},{round(h*$16%)},0,0,0 /. -255 +. 1 *[0,-1]
+blend alpha
+}
+fx_frame_fuzzy :
+foreach {
+sx={$1%*max(w,h)/2} sy={$2%*max(w,h)/2}
+frame_fuzzy $sx,$sy,${3-8}
+}
+fx_frame_mirror :
+foreach {
+{100+2*$1}%,{100+2*$2}%,1,100%,"
+const boundary = 3;
+const offx = (w - w#-1)*$3%;
+const offy = (h - h#-1)*$4%;
+const f_left = 2^$5;
+const f_right = 2^$6;
+const f_up = 2^$7;
+const f_bottom = 2^$8;
+x = x - offx;
+y = y - offy;
+x<0?(x*=-f_left):
+x>=w#-1?(x = w#-1 - 1 - f_right*(x - w#-1));
+y<0?(y*=-f_up):
+y>=h#-1?(y = h#-1 - 1 - f_bottom*(y - h#-1));
+I(#-1,x,y)" k.
+}
+fx_frame_mirror_preview :
+foreach {
+ws,hs={[w,h]} fx_frame_mirror $* wd,hd={[w,h]}
+rr2d $_preview_area_width,$_preview_area_height wp,hp={[w,h]}
+ws,hs={[$ws,$hs]*[$wp,$hp]/[$wd,$hd]}
+coords={off=([$wp,$hp]-[$ws,$hs])*[$3,$4]%;[off,off+[$ws,$hs]-1]}
+split_opacity 100%,100%,1,1,$9 rectangle. $coords,1,1 *[0,-1] a c
+rectangle $coords,0.75,0xF0F0F0F0,255
+rectangle $coords,0.75,0x0F0F0F0F,0,0,0,255
+}
+fx_frame_painting :
+if $14
+repeat $! {
+100%,100%,1,4 frame_painting. $1%,$2,$3%,${4-6},$7%,${8-13}
+rv[-2,-1] to_a. r. ..,..,1,4,0,0,0.5,0.5 mv[-2,-1] 0
+}
+else frame_painting $1%,$2,$3%,${4-6},$7%,${8-13}
+fi
+fx_frame_painting_preview :
+frame_painting $1%,$2,$3%,${4-6},$7%,${8-13}
+fx_frame_pattern :
+if $2" || "$!==1 repeat $3 { frame_pattern $1,$4 }
+else repeat $3 { frame_pattern[^0] $1,[0],$4 }
+fi
+fx_frame_pattern_preview :
+fx_frame_pattern ${1-3},1
+fx_frame :
+to_rgba repeat $! {
+z. $1%,$3%,$2%,$4%
+frame. $11,$11,${12-15}
+sx={$5%*max(w,h)} sy={$6%*max(w,h)}
+frame. $sx,$sy,${7-10}
+mv. 0 }
+cl_reliefFrame:
+frameType,frameSize,reliefWidth,reliefAmount,kaleido,frameBlur,frameHue,frameSat,frameLum,unifColor,colorR,colorG,colorB,grainType,grainAmount,grainFrameOn=$*
+if $grainType==2
+grainType=3
+fi
+foreach {
+remove_opacity.
+[-1]
+if $unifColor==0
+if $kaleido
+fx_kaleidoscope. 50,50,0,0,100,10,2
+fi
+b. $frameBlur
+l.
+rgb2hsl split c
++. $frameLum c. 0,1
++.. $frameSat c.. 0,1
++... $frameHue %... 360
+a c hsl2rgb
+done
+elif $unifColor==1
+fill. [$colorR,$colorG,$colorB]
+fi
+if $grainFrameOn==0
+fx_noise. $grainAmount,$grainType,16,1,0,50,50
+elif $grainFrameOn==1
+fx_noise.. $grainAmount,$grainType,16,1,0,50,50
+fi
+100%,100%,1,1,0
+fx_frame_round. $frameSize,20,1,255,255,255,255,0,0,3
+remove_opacity.
+n. 0,255
+[-1]
+if $frameType>=1
+negate.
+fi
+if $frameType>=2
+gradient_norm.
+fi
+if $frameType==3
+negate.
+fi
+fx_smooth_antialias. 100,10,5,0,50,50
+negate.
+l.
+b. $reliefWidth
+fill. if(abs(i)<1e-10,0,i)
+gradient2rgb. 0 n. 0,255
+[-1]
+rgb2hsv[-2,-1] split[-2,-1] c
+l[-3--1] +[-3] {315} %[-3] 360 done
+l[-6--4] +[-3] {135} %[-3] 360 done
+l[-3--1] a c hsv2rgb s c done
+l[-6--4] a c hsv2rgb s c done
+rm[^-6,-3]
+negate..
+/ 2
++. 128
+blend grainmerge,1
+done
+to_rgb.
+apply_curve. 1,0,{127-$reliefAmount},255,{128+$reliefAmount}
+fill[0] i#2*i#1+(255-i#2)*i n[0] 0,255
+rm.. rm..
+blend grainmerge,1
+if $grainFrameOn==2
+fx_noise. $grainAmount,$grainType,16,1,0,50,50
+fi
+}
+cl_circ :
+fill. stroke(d)=cut($4-abs(d/2),0,1);stroke(sqrt((x-$1)^2+(y-$2)^2)-$3)
+n. 0,255
+cl_innerCirc :
+xC=$1
+yC=$2
+radi=$3
+wid=$4
+nb=$5
+lvl=$6
+if $lvl>0
+angl={pi/$nb}
+sinu={sin($angl)}
+ra={$radi/(1+1/$sinu)}
+ray={$radi/(1+$sinu)}
++fill. 0
+[-1]x{$nb-1}
+foreach[1--1] {
+num=$>
+xA={$ray*cos(2*$num*$angl)}
+yA={$ray*sin(2*$num*$angl)}
+cl_circ {$xC+$xA},{$yC+$yA},$ra,$wid
+cl_innerCirc {$xC+$xA},{$yC+$yA},$ra,$wid,$nb,{$lvl-1}
+}
+fi
+fx_frame_round :
+to_rgba frame_round $1%,$2%,${3-7}
+fx_frame_smooth :
+foreach {
+sx={$1%*max(w,h)} sy={$2%*max(w,h)}
+100%,100%,1,1,0
+if $3 r={1+1/$3} f. '1-(abs(x/w-0.5)^$r+abs(y/h-0.5)^$r)^(1/$r)'
+v={min(i(w/2,0),i(w-1,h/2),i(w/2,h-1),i(0,h/2))} <=. $v
+fi
+frame $sx,$sy,1
+inpaint_pde[0] [1],100%,1,15
+rm.
+}
+c 0,255
+fx_old_photo :
+vignette ${1-3} old_photo
+fx_polaroid :
+vignette ${8-10} polaroid $1,$2 drop_shadow $3%,$4%,$5%,$6 rotate $7,1,0
+fx_tunnel :
+tunnel $1,$2%,{[${3,4}]%},${5-6}
+fx_vignette :
+foreach {
+to_rgb
+to_rgba split_opacity
+=. 0 vignette. ${1-3} a c +fc ${4-7} rv blend alpha
+}
+fx_bandpass :
+foreach { split_opacity ac[0] "bandpass $1%,$2%",$3,$4 a c }
+fx_bandpass_preview :
+gui_split_preview "fx_bandpass $*",${-3--1}
+fx_display_fft :
+to_rgb display_fft
+fx_fourier_transform :
+if $1 remove_opacity fi
+ind=0
+_preview_error=0
+for $ind<$! {
+gui_layer_name[$ind] nm=${}
+p:="s=['"$nm"'];find(s,' [FFT Magnitude] | ',size(s)-1,-1)"
+if $p>=0
+if $ind+1>=$!
+gui_resize_preview_area[$ind]
+gui_error_preview[$ind] "Two input layers are required. Please set 'Input Layers' mode accordingly."
+ind=$!
+_preview_error=1
+else l[$ind,{$ind+1}] {
+('$nm') +z. {$p+19},100% a0,b0=${u\ {t}} rm. z. 0,{$p-1} nm={t} rm.
+/.. $a0 +.. $b0
+/. {255/(2*pi)} -. {pi}
+exp.. -.. 1 ifftpolar
+c 0,255
+gui_set_layer_name $nm
+ind+=1
+} fi
+else l[$ind] {
+fftpolar +.. 1 log..
+a0,b0={0,_[255/(iM-im),im]}
+-.. $b0 *.. $a0
++. {pi} *. {255/(2*pi)}
+c 0,255
+gui_set_layer_name.. $nm" [FFT Magnitude] | "$a0,$b0
+gui_set_layer_name. $nm" [FFT Phase]"
+ind+=2
+} fi
+}
+fx_fourier_transform_preview :
+fx_fourier_transform $* k[0]
+if !$_preview_error gui_resize_preview fi
+fx_fourier_old : skip ${2=0}
+if $2 remove_opacity fi
+magic="GMICFFT" i=0
+for $i<$! {
+ni={$i+1} nm={$i,n} is_ifft=0
++columns[$i] 100%
+l. {
+mag,m0,M0,m1,M1=${u\ {t}}
+if ['$mag']=='$magic' is_ifft=1 fi
+onfail
+}
+rm.
+if !$is_ifft +rows[$i] 100% l. { mag,m0,M0,m1,M1=${u\ {t}} if ['$mag']=='$magic' is_ifft=2 fi onfail } rm. fi
+if !$is_ifft
++rows[$i] 100% l. { mag,m0,M0=${u\ {t}} if ['$mag']=='$magic' is_ifft=3 fi onfail } rm.
+if $is_ifft==3
+is_ifft=0 +rows[$ni] 100%
+l. { mag,m1,M1=${u\ {t}} if ['$mag']=='$magic' is_ifft=3 fi onfail } rm.
+fi
+fi
+if !$is_ifft
+l[$i] {
+fftpolar +.. 1 log.. m0,M0,m1,M1={[im#0,iM#0,im#1,iM#1]} n[-2,-1] 0,255
+if $1==0 ({'$magic,$m0,$M0,$m1,$M1'},0) y. a x
+elif $1==1 ({'$magic,$m0,$M0,$m1,$M1'},0) a y
+else ({'$magic,$m0,$M0'},0) a[-3,-1] y ({'$magic,$m1,$M1'},0) a[-2,-1] y
+fi
+=> $nm
+}
+else
+if $is_ifft==1 columns[$i] 0,{$i,w-2} s[$i] x,2
+elif $is_ifft==2 rows[$i] 0,{$i,h-2} s[$i] y,2
+else rows[$i,$ni] 0,{$i,h-2}
+fi
+l[$i,{$i+1}] { n[0] $m0,$M0 n[1] $m1,$M1 exp[0] -[0] 1 ifftpolar c 0,255 }
+fi
+i+={$1<2" || "$is_ifft>2?1:2}
+}
+fx_fourier_old_preview :
+if $2 remove_opacity fi
+dfft
+fx_watermark_fourier :
+watermark_fourier "$1",$2 c 0,255
+fx_align_layers :
+to_colormode 0
+r ${-max_wh},1,100%,0,0,0.5,0.5
+if ${4=0} _fx_revert_layers fi
+remove_opacity
+if $1 register_nonrigid[^-1] .,$2,0.1,$3
+else register_rigid[^-1] .,$2
+fi
+fx_align_layers_preview :
+fx_align_layers $1,$2,0 blend_edges 0.1
+_fx_revert_layers :
+repeat int($!/2) { rv[{2*$>},{2*$>+1}] }
+fx_blend_average_all :
+if $! to_rgba
+N=$! r ${-max_wh},1,100%,0,0,0.5,0.5
+_gb_fwd $1
++ / $N
+_gb_bwd $1
+fi
+_gb_fwd :
+to_color
+if $1==1 foreach { sh 0,2 srgb2rgb. rm. }
+elif $1==2 foreach { sh 0,2 srgb2rgb. rgb2lab. rm. }
+fi
+_gb_bwd :
+to_color
+if $1==1 foreach { sh 0,2 rgb2srgb. rm. }
+elif $1==2 foreach { sh 0,2 lab2rgb. rgb2srgb. rm. }
+fi
+fx_blend_edges :
+repeat int($!/2) { l[$>,{$>+1}] { if $3 rv fi +blend_edges[-2,-1] $2 rm... blend[-2,-1] alpha,$1 } }
+fx_blend_fade :
+if $!==1 return fi
+to_colormode 4
+_gb_fwd $7
+if $1==0 [0],[0],1,1,"$11"
+else _fx_blend_fade$1 $8,$9,$10 r. [0],[0],1,1,3
+fi
+n. {-($!-2)*$3},{($!-2)*(1+$3)}
+-. {$2*(1+$3)*($!-2)}
+c. 0,{$!-2}
+if $6 rv[^-1] fi
+if $5 round. 1
+else roundify. $4
+fi
+blend_fade[^-1] . rm.
+_gb_bwd $7
+c 0,255
+_fx_blend_fade1 : [0],[0],1,1,"a=$1*pi/2; x*cos(a) + y*sin(a)"
+_fx_blend_fade2 : [0],[0],1,1,0 =. 1,{($1+1)*50}%,{($2+1)*50}% distance. 1
+_fx_blend_fade3 : [0],[0],1,1,0 =. 1,{($1+1)*50}%,{($2+1)*50}% distance. 1 *. {0.01+$3/2} cos.
+_fx_blend_fade4 : [0],[0],1,1,"((x-w*($1+0.5))*(y-h*($2+0.5)))%(0.2*w*h*(1.001+$3))"
+fx_blend_median :
+_gb_fwd $1
+blend_median
+_gb_bwd $1
+fx_blend_seamless :
+rv
+_gb_fwd $4
+to_a[^0] r[^0] [0],[0],1,100%,0
+repeat $! { pos=${gui_layer_pos[$>]} shift[$>] ${u\ $pos},0,0 }
+if $5
++blend_seamless $1,$2%,$3%
+remove_opacity[0,-1] k[0,-1] rv sub_alpha[0] [1],1
+else
+blend_seamless $1,$2%,$3%
+fi
+_gb_bwd $4
+fx_blend_seamless_preview :
+fx_blend_seamless ${1-4},0
+fx_blend :
+mode=${arg0\ $1,add,alpha,and,average,blue,burn,custom_formula,darken,difference,divide,dodge,edges,exclusion,freeze,grainextract,grainmerge,green,hardlight,hardmix,hue,interpolation,lighten,lightness,linearburn,linearlight,luminance,multiply,negation,or,overlay,pinlight,red,reflect,saturation,shapeareamax,shapeareamax0,shapeareamin,shapeareamin0,shapeaverage,shapeaverage0,shapemedian,shapemedian0,shapemin,shapemin0,shapemax,shapemax0,shapeprevalent,softburn,softdodge,softlight,screen,stamp,subtract,value,vividlight,xor}
+m "_blend_custom_formula : f. \"a = i#0/255; b = i#1/255; 255*cut(($5),0,1)\""
+if $2==0 repeat int($!/2) { l[$>,{$>+1}] { rv blend $mode,{$3%} } }
+elif $2==1" && "$!>1 blend[^0] [0],$mode,{$3%},0 rm[0]
+elif $2==2" && "$!>1 blend[^-1] .,$mode,{$3%},1 rm.
+fi
+um _blend_custom_formula
+fx_blend_preview :
+fx_blend $"*"
+if $4 append_tiles , fi
+fx_split_colors : skip ${2=0}
+to_rgb
+foreach {
+nm=${-gui_layer_name}
+pos=${-gui_layer_pos}
+min_area={max(1,w*h*$3%)}
+split_colors $1,$2,$min_area
+=>[^] "name("$nm"),pos("$pos")"
+if $4 gui_autocrop_layers fi
+}
+fx_split_colors_preview :
+foreach {
++fx_split_colors ${1-4} drgba
+foreach { to ${arg\ {1+!!$>},"Original","#"$>},1,1,43,7,1,255 }
+frame 1,1,0 frame 3,3,255 to_rgba append_tiles ,
+}
+fx_fade_layers :
+if $!<2 return fi
+to_colormode 0
+r ${-max_wh},1,100%,0,0,0.5,0.5
+a z r 100%,100%,{(d-1)*$1+1},100%,3 s z
+fx_fade_layers_preview :
+if $!<2 return fi
+to_colormode 0
+r ${-max_wh},1,100%,0,0,0.5,0.5
+k[0,1] + / 2
+fx_append_tiles_preview :
+frame 1,1,0,0,0,255 append_tiles $1,$2
+fx_morph_layers :
+if ${4=0} _fx_revert_layers fi
+to_rgb morph $1,$2,$3
+fx_apply_multiscale : skip "${13=}"
+foreach {
+w0={w} h0={h}
+apply_scales "$13",$1,$2%,$3%,{10^$4},{arg(1+$5,1,3,5,6)}
+if $8" || "($9" && "$8!=$12) to_a N=$! repeat $! {
+angle={$9?$8+($12-$8)*$>/max($N-1,1):$8}
+rotate[$>] $angle
+} fi
+if $14
+if $15 siz=$w0,$h0 else siz=${-max_wh} fi
+r $siz,1,100%,{arg($14,1,3,5,6)}
+c 0,255
+fi
+w=${-max_w} h=${-max_h} N=$!
+repeat $! {
+cx={$9?$6+($10-$6)*$>/max($N-1,1):$6}
+cy={$9?$7+($11-$7)*$>/max($N-1,1):$7}
+gui_set_layer_pos[$>] {$>,($w-w)*$cx},{$>,($h-h)*$cy}
+}
+}
+fx_apply_multiscale_preview :
+foreach {
+fx_apply_multiscale $"*"
+N={int(sqrt($!))} N={round($!/$N,1,1)} r2dy {100/$N}%
+to_rgba
+max_wh=${-max_wh}
+N=$! foreach {
+cx={$9?$6+($10-$6)*$>/max($N-1,1):$6}
+cy={$9?$7+($11-$7)*$>/max($N-1,1):$7}
+r $max_wh,1,100%,0,0,$cx,$cy
+0 text. "#"{1+$>}" ",1,1,24,1,255 +dilate. 5 to_rgba[1] j[0] [1],2,0,0,0,1,[2],255 k[0]
+}
+frame 1,1,0 frame 3,3,255 append_tiles ,
+}
+fx_pack : skip "${8=}"
+if $4 to_rgba foreach {
+nm0={n} gui_layer_name nm=${}
+0 t. {``$nm},3,0,$5,1,1 frame. 1,1,0
+if $6 *. -1 fi
+n. 0,255 to_rgba. r. {[w+2,h+1,1,4]},0,0,0,1
+rv a y,{w#0>w?0.5:0} => $nm0
+} fi
+if $3 to_a fi
+repeat $! { gui_layer_name[$>] nm$>=${} =>[$>] {`lowercase(['${nm$>}'])`} }
+c0="w" c1="h" c2="max(w,h)" c3="w*h" c4="n"
+pack $2,${c$1} coords=${}
+if $7
+repeat 256 { filename "$8/gmic_pack.txt",$> filename=${} if isfile(['{/$filename}']) else break fi }
+if !narg($filename) filename="$8/gmic_pack.txt" fi
+l[] { repeat narg($coords)/2 {
+x={arg(1+2*$>,$coords)} y={arg(2+2*$>,$coords)}
+('"Image ""#"{1+$>}" ("${nm$>}"): "$x,$y\n')
+} a x ot $filename rm }
+fi
+=> "name(G'MIC packing),pos(0,0),mode(normal)"
+if $4 autocrop fi
+fx_pack_preview : skip "${8=}"
+if !$! return fi
+w={w} h={h}
+filled=0 repeat $! { filled={$>,$filled+w*h} }
+fx_pack $1,$2,$3,$4,$5,$6,0
+area={w*h}
+to_rgba rr2d $w,$h,0
+i[0] $w,16,1,4,255 t[0] "Filled: "{round(100*$filled/$area)}%,3,1,14,1,0,0,0,255
+a y,0.5
+u "{$1}{$2}{$3}{$4}""{$5}_"{2*$4}"{$6}_"{2*$4}"{$7}{$8}"
+fx_stroke :
+to_a
+foreach {
+nm={n}
+if !$26" && "$5 expand_xy $1,0 is_frame1=0 else expand_xy 1,0 is_frame1=1 fi
+split_opacity +l. {
+b $3
+if $6>=100
+shift $7,$8
+if $6!=100 wh={w},{h} r $6%,$6%,1,1,3 r $wh,1,1,0,0,0.5,0.5 fi
+else
+if $6!=100 wh={w},{h} r $6%,$6%,1,1,3 r $wh,1,1,0,0,0.5,0.5 fi
+shift $7,$8
+fi
+> {99.99-min(99.99,$2)}%
+distance $5,$4
+($9^$10^$11^$12)
+if $1>1 ($13^$14^$15^$16) a[-2,-1] x r. $1,1,1,4,3 c. 0,255 fi
+i.. ($21^$22^$23^$24) ($17^$18^$19^$20) if $5 rv[-3,-1] fi
+a[-3--1] x map.. .,1 rm.
+}
+a[0,1] c
+if $is_frame1 shrink_xy 1 fi
+if $25 rv fi
+=>[^] $nm
+}
+fx_stroke_preview :
+foreach { fx_stroke $* => foo gui_merge_layers }
+fx_tiles2layers :
+split_tiles $1,$2,$3
+fx_tiles2layers_preview :
+split_tiles $1,$2,$3 to_rgba frame 1,1,0,0,0,255 frame 3,3,0,0,0,0 append_tiles ,
+fx_tones2layers :
+sval=$2 eval={max($2,$3)}
+remove_opacity
+foreach {
+nm={n}
++luminance rv
+repeat $1-1 {
+[1]
+val0={$sval+($eval-$sval)*$>/($1-2)}
+val1={$sval+($eval-$sval)*($>+1)/($1-2)-1}
++ir[0] $val0,$val1
+if $5 *. [0] b. $4% n. 0,255
+else b. $4% n. 0,255
+fi
+a[-2,-1] c
+}
+rm[0] rv =>[^] $nm
+}
+fx_tones2layers_preview :
+fx_tones2layers $* rv
+r {100/$!}%,{100/$!}%,1,100%,2
+to_rgba frame 1,1,0,0,0,255 frame 3,3,0,0,0,0 append_tiles ,
+_fx_burn :
+foreach {
+w,h={[w,h]}
++norm
+fx_fourier_old. 2
++rows. 0,{$h-1} r. $2%,$2%,1,100%,0,0,0.5,0.5 b. $3%
+j.. .,{($w-w)/2},{($h-h)/2} rm.
+fx_fourier_old[-2,-1] 2
+blend overlay,$1
+}
+fx_burn :
+ac "_fx_burn ${1-3}",$4,$5
+fx_burn_preview :
+gui_split_preview "fx_burn ${^0}",${-3--1}
+fx_contrast_swm :
+foreach {
+split_opacity l[0] {
++luminance to_rgb
+blur_xy[1] $1,$1
+if $2==0 negate[1] fi
+rv blend hardlight,$3
+}
+a c
+}
+fx_dodgeburn :
+repeat $! l[$>] +luminance if $9==1 +fc[0] 128,128,128,255 fi
+tk_fx_channel_processing[1] 1,1,0,$2,4,0,{100-$1},256,0,1,0,2,0,0
+tk_fx_channel_processing[1] 1,1,{-{256-$3}},0,0,0,100,256,0,0,0,2,0,0
+fx_gaussian_blur[1] $4,0,0,1,0,0,0 +luminance[0]
+if $9==0 compose_dodge[0,1] else rv[1,2] compose_dodge[1,2] fi
+tk_fx_channel_processing. 1,1,0,$6,4,$5,100,256,0,0,0,2,0,0
+tk_fx_channel_processing. 1,1,{256-$7},0,0,0,100,256,0,0,0,2,0,0
+fx_gaussian_blur. $8,0,0,1,0,0,0
+if $9==0 compose_colorburn[0,1] else compose_colorburn[-1,-2] fi
+if $9==1 fx_gaussian_blur. $11,0,0,1,0,0,0 fi
+if $10==0 if $9==1 rm[0] fi fi done done
+fx_dodgeburn_preview :
+gui_split_preview "fx_dodgeburn ${1--2}",$-1
+fx_split_freq :
+repeat $!
++b. $1 -.. . /.. 2 +.. 128 rv[-2,-1]
+mv[-2,-1] 0 done
+fx_compose_freq :
+repeat int($!/2)
+-. 128 *. 2 +[-2,-1] c. 0,255
+mv. 0 done
+compose_alpha :
+e[^-1] "Compose image$? two-by-two, using alpha blending."
+repeat int($!/2) l[$>,{$>+1}]
+r. ..,..,..,100%,0,0,0.5,0.5
+to_colormode.. {a1=!({-2,s}%2);a2=!(s%2);max({-2,s}-a1,s-a2)+a1}
+to_colormode. {a=max({-2,s},s);a+(a%2)}
+if {-2,s==2" || "s==4}
+_compose_alpha.. _compose_alpha.
+sh. {s-1},{s-1} +*[-3,-1] rm.. +[-3,-2] -[-2,-1]
+sh. 0,{s-2} sh.. {-2,s-1},{-2,s-1}
+max. 1e-10 /.. . *. 255 rm[-2,-1]
+else
+sh. 0,{s-2} sh.. {-2,s-1},{-2,s-1} -.. [-4] *[-2,-1] /. 255 rm. +[-2,-1]
+fi
+done done c 0,255
+_compose_alpha :
+sh. 0,{s-2} sh.. {-2,s-1},{-2,s-1} max. 1e-10 /. 255 *[-2,-1] rm.
+fx_compose_alpha :
+if ${2=0} _fx_revert_layers fi
+repeat int($!/2)
+to_rgba. sh. 3,3 *. $1 rm.
+blend[-2,-1] alpha
+mv. 0 done
+fx_drop_shadow :
+* -1 + 255 vignette {255*$5},80,95 * -1 + 255
+drop_shadow $1%,$2%,$3%,$4,{!$7} rotate $6,1,0
+fx_drop_shadow3d :
+foreach { +_fx_drop_shadow3d $* }
+fx_drop_shadow3d_preview :
+foreach {
+if $13 _fx_drop_shadow3d $*
+else +_fx_drop_shadow3d $* rv blend alpha
+fi
+}
+_fx_drop_shadow3d :
+point3d 0,0,1 r3d. 1,0,0,$1 r3d. 0,1,0,$2 r3d. 0,0,1,$3
+u={i(0,8)} v={i(0,9)} w={i(0,10)} rm.
+to_a channels 100% if im==iM return fi
++f 'X=x/w-0.5;Y=y/h-0.5;A=($7-$4*$7/100)*$w/(X*$u+Y*$v+$7*$w);if(A<0,1e8,A)'
++*. 'y/h-0.5' *.. 'x/w-0.5' +.. {0.5-$5/100} +. {0.5-$6/100} *.. {w} *. {h}
+a[-2,-1] c warp[0] .,0,1,0 rm.
+b $8% n 0,$12 i.. ($9^$10^$11) r.. .,.,1,3 a[-2,-1] c
+fx_equalize_light :
+ac "_fx_equalize_light $1,$2",$3,1
+_fx_equalize_light :
+foreach {
+split_opacity l[0] {
+. +b. {max(0.1,100-$1)}% -[-2,-1]
+if $2 match_pca. .. else n. ..,.. fi
+rm..
+}
+a c
+}
+fx_equalize_light_preview :
+gui_split_preview "fx_equalize_light $*",${-3--1}
+fx_equalize_shadow :
+foreach { +negate blend softlight,$1 }
+fx_equalize_shadow_preview :
+gui_split_preview "fx_equalize_shadow $1",${-3--1}
+fx_guided_lightrays :
+bmode=${"arg0 $12,add,alpha,grainmerge,hardlight,lighten,lchlightness,luminance,overlay,softlight,value"}
+if $3 cond="i" else cond="i && !(j(-1) && j(1) && j(0,-1) && j(0,1))" fi
+if 0$_is_preview" && "$14 i[1] [0] gui_set_layer_opacity[1] 50 fi
+l[0] {
+if s==2" || "s==4 channels 100% else compose_channels max fi
+ge $6%
+100%,100%
+eval.. "*
+const L = $2<1?$2:$2^5;
+const Xl = $7<0?3*$7:$7>100?100+3*($7-100):$7;
+const Yl = $8<0?3*$8:$8>100?100+3*($8-100):$8;
+const xl = Xl*(w - 1)/100;
+const yl = Yl*(h - 1)/100;
+"$cond" && u<=$4%?(
+u = x - xl; v = y - yl;
+polygon(#-1,2,xl,yl,xl + L*u,yl + L*v,-1,255);
+)"
+equalize. 65536,1,{iM} n. 0,1 power={10^(-$1%)} ^. {max(1e-2,$power)} b. $5% n. 0,255
+i[-2] (${9-11}:cyzx) r.. .,.,1,3 a[-2,-1] c
+k. gui_set_layer_mode $bmode gui_set_layer_opacity $13
+}
+if 0$_is_preview gui_merge_layers
+elif 0$_output_mode k[0]
+fi
+fx_guided_lightrays_preview :
+_is_preview=1
+fx_guided_lightrays $*
+fx_illuminate_shape2d :
+input_type,output_type,keep_input_bg,preview_shapes,blending_mode,opacity=$1,$2,$7,$10,$16,$17
+blending_mode=${arg0\ $blending_mode,normal,lighten,screen,dodge,add,darken,multiply,burn,overlay,softlight,hardlight,grainmerge}
+keep_input_bg&={$!>1}
+if $output_type
+repeat $!-$keep_input_bg { _fx_illuminate_shape2d[$>] $* }
+else
+repeat $!-$keep_input_bg { if $keep_input_bg sel=$>,-1 else sel=$> fi l[$sel] {
+if !$keep_input_bg" && "$input_type>=2
+_fx_illuminate_shape2d $*
+elif $keep_input_bg" && "$input_type>=2
+_fx_illuminate_shape2d[0] $*
+elif !$keep_input_bg" && "$input_type<=1
++_fx_illuminate_shape2d $* rv
+else
+_fx_illuminate_shape2d[0] $*
+fi
+if !$preview_shapes" || "0$_is_preview!=1
+gui_set_layer_mode[0] $blending_mode
+gui_set_layer_opacity[0] $opacity
+if $!>1" && "(0$_output_mode==0" || "0$_is_preview==1)
+if $keep_input_bg" && "!0$_is_preview . fi
+gui_merge_layers[0,1]
+else k[0] fi
+fi
+} }
+fi
+fx_illuminate_shape2d_preview :
+_is_preview=1
+input_type,keep_input_bg,preview_interactive=$1,$7,$-2
+keep_input_bg&={$!>1}
+if $preview_interactive fx_illuminate_shape2d_preview_interactive $* fi
+if $keep_input_bg
+repeat $!-1 { l[$>,-1] {
+fx_illuminate_shape2d $*
+rv to_colormode 0 a z
+gui_split_preview "slices 50%,100%",$-1
+} }
+else
+gui_split_preview "fx_illuminate_shape2d $*",$-1
+fi
+fx_illuminate_shape2d_preview_interactive :
+_output_mode=0
+input_type,keep_input_bg=$1,$7
+keep_input_bg&={$!>1}
+repeat $!-$keep_input_bg { if $keep_input_bg sel=$>,-1 else sel=$> fi +l[$sel] {
+to_rgba
++_fx_illuminate_shape2d[0] $1,2,${3-6},0,1,""$9,0,${11-15},""${16-29},""0,0
+if $!>2 rm[0] elif $input_type>=2 sh[0] 0,2 f. 128 rm. fi
+siz=${fitscreen\ {[w,h,1]},256,640}
+wsiz0=${fitscreen\ $siz,1,30%,100%}
+wsiz=$wsiz0
+r $siz,1,100%,3
+s. c,-3 !=. 0 l.. { - 128 / 127 s c,-2 / } a[-2,-1] c
+rv s. c,-3
+(160,128;128,160) r. 16,16 r. ..,..,1,3,0,2
+30,30,1,1 circle. 50%,50%,15%,1,1 b. 4 n. 0,1
+100%,100%,1,3,[255,255,0]
+=> normal,rgb,alpha,background,light_alpha,light_rgb
+w[] $wsiz,0,0,{rgb,([{*,u},{*,v}]-[$wsiz])/2},"[G'MIC] Illuminate 2D Shape"
+cursor 0
+x0,y0,ox,oy,ob,olightz=-1
+lightz=2 clicked=0
+do
+x,y,b,mw={rgb,[{*,x},{*,y}]*[w,h]/[{*,w},{*,h}]},{*,b},{*,-o}
+lightz={cut($lightz-0.3*sign($mw)+($y0>=0?3*($y-$y0)/h),0.1,4)}
+if $x<0 x,y={rgb,ang=$|;(1+[cos(1.4*ang),sin(0.85*ang)])*[w,h]/2} fi
+if !$b" || "($b&1)
+if $b" && "!$clicked x0,y0=$x,$y
+elif !$b x0,y0=-1
+fi
+lightx,lighty={rgb,3.5*(2*[$x/w,$y/h]-1)}
+if [$ox,$oy,$ob,$olightz]!=[$x,$y,$b,$lightz]
++fx_illuminate_shape2d[normal,rgb] 4,0,${3-6},1,1,""$9,0,${11-15},""${16-25},$lightx,$lighty,$lightz,$29,""0,0
++j[background] .,0,0,0,0,1,[alpha],255 rm..
++r2dx[light_alpha,light_rgb] {light_rgb,8+$lightz*(w-8)} j... .,{[$x,$y]-[w,h]/2},0,0,1,.. rm[-2,-1]
+r. $wsiz,1,100% to. "Light: ("{``{_round([$lightx,$lighty,$lightz],0.1)}}")",2,2,16
+w. rm. wait 20
+else wait
+fi
+clicked=$b
+elif $b&2
++j[background] [rgb],0,0,0,0,1,[alpha],255
++r2dx[light_alpha,light_rgb] {light_rgb,8+$lightz*(w-8)} j... .,{[$x,$y]-[w,h]/2},0,0,1,.. rm[-2,-1]
+w. rm. wait
+fi
+if {*,CTRLLEFT}" && "{*,-D} w[] {1.5*[{*,w},{*,h}]} wsiz={*,w},{*,h}
+elif {*,CTRLLEFT}" && "{*,-C} w[] {0.75*[{*,w},{*,h}]} wsiz={*,w},{*,h}
+elif {*,CTRLLEFT}" && "{*,-R} w[] $wsiz0
+fi
+ox,oy,ob=$x,$y,$b
+while {*}" && "!{*,ESC}" && "!{*,Q}
+w 0 rm
+} }
+_fx_illuminate_shape2d :
+input_type,output_type,gR,gG,gB,gA,keep_input_bg,keep_output_transparency,min_shape_area,preview_shapes,dilation,shape_smoothness,bump_factor,weight_avg_max,resolution,blending_mode,opacity,ambient,diffuse,specular,shininess,light_smoothness,flatness,linearity,levels,lightx,lighty,lightz,normalize_illumination,preview_interactive,preview_mode=${1-31}
+nm={n}
+if $input_type==0
+to_rgba
++channels. 100% >. 0 .
+select_color... 0,$gR,$gG,$gB,$gA
+mv... $! -[-2,-1]
+elif $input_type==1
+to_rgba
++channels. 100% >. 0 *[-2,-1]
+if $min_shape_area>1 +quantize_area. {$min_shape_area^2} fi
+s. c,-{s-1} >. 0 rv[-2,-1]
+if s>1 f. "begin(A = resize([ 0,(s-1)/s ],s,3));I+A" norm. round. 0.01 fi
+label. 0,0 f. "j(1)!=i || j(0,1)!=i" thinning. 1 ==. 0 *. ..
+select_color... 0,$gR,$gG,$gB,$gA
+mv... $! -[-2,-1]
+elif $input_type==2
+to_a
+s c,-{s-1} >. 0 *.. . rv s. c S={$!-1} +[^0] /. $S
+elif $input_type==3
++channels 100% >. 0 *.. . rv
+f. "I==vector4(0)?[128,128,255,255]:I"
+channels. 0,2
+else
++channels 100% rv
+fi
+if 0$_is_preview" && "$preview_shapes
+if $input_type==3 k[0] else k. fi
++dilate. 3
+label_fg.. 0 srand 0 {-2,iM+1},1,1,3,'x==0?[0,0,0]:x==1?[255,255,255]:u([255,255,255])' map... . rm.
+*. 255 a c
+return
+fi
+if $input_type<=1
+shape2bump. {arg($resolution,2048,1024,512,256,128,64)},$weight_avg_max,{$dilation%*max(w,h)},$shape_smoothness
+fi
+if $input_type<=2
+if $input_type==2" && "$shape_smoothness mM={[im,iM]} guided. ..,$shape_smoothness%,100 n. $mM fi
+*. $bump_factor
+fi
+if $output_type==1
+if $input_type<=2
+if $keep_output_transparency k[-2,-1] n 0,255 rv a c
+else k. n 0,255
+fi
+else
+rm gui_error_preview "Cannot convert a normal map to a bump map." return
+fi
+elif $output_type==2
+if $input_type<=2 round 0.0001 bump2normal. f. "i(#-2)?I:[128,128,255]" fi
+if $keep_output_transparency k[-2,-1] rv *. 255 a c
+else k.
+fi
+else
+if $input_type<=2 g. xy a[-2,-1] c
+elif $input_type==3 -. 128 /. 127 s. c,-2 /[-2,-1]
+fi
+f. "*
+begin(
+const flatness = "$flatness";
+const ka = "$ambient"%;
+const kd = "$diffuse"%;
+const ks = "$specular"%;
+const alpha = "$shininess";
+const m1 = max(1,"$lightz");
+const mwh1 = max(w,h) - 1;
+light = [ "m1*$lightx,m1*$lighty,-$lightz" ];
+camera = [ 0,0,-"$lightz" ];
+);
+res = i#0?(
+P = [ 2*x/mwh1 - 1,2*y/mwh1 - 1,0 ];
+L = light - P;
+L/=norm(L);
+V = camera - P;
+V/=norm(V);
+N = -[ i0,i1,flatness ];
+N/=norm(N);
+R = 2*dot(N,L)*N - L;
+res = ka + kd*dot(L,N) + ks*max(dot(R,V),0)^alpha;
+):0;
+[ res,0 ]"
+channels. 0 *. 255 c. 0,255
+if $light_smoothness" || "$linearity
+mM={[im,iM]}
+if $light_smoothness b. $light_smoothness% fi
+if $linearity n. 0,1 ^. {10^-($linearity%)} fi
+n. $mM
+fi
+if $levels quantize. $levels,1,1 fi
+if $normalize_illumination n. 0,255 fi
+rv[-2,-1] *. 255 a[-2,-1] c
+=>[^] $nm
+if !$keep_output_transparency remove_opacity. fi
+fi
+=>[^] $nm
+_fx_lightglow :
+mode=${arg0\ $3,burn,dodge,freeze,grainmerge,hardlight,interpolation,lighten,multiply,overlay,reflect,softlight,stamp,value}
+repeat $! {
++gradient_norm. >=. {100-$1}% distance. 1 ^. $2 *. -1 n. 0,255 blend $mode,$4
+mv. 0 }
+fx_lightglow :
+ac "_fx_lightglow ${1-4}",$5
+fx_lightglow_preview :
+gui_split_preview "fx_lightglow $*",${-3--1}
+fx_light_leaks :
+filename=lightleak_${"padint $1",6}.cimgz
+input_cached data_lightleaks/$filename
+mode=${arg0\ $7,normal,lighten,screen,dodge,add,darken,multiply,burn,overlay,softlight,hardlight,difference,subtract,grainextract,grainmerge,divide,hue,saturation,value}
+mv. 0
+repeat $!-1 { l[0,{1+$<}] {
++r[0] {1,w},{1,h},1,3,5
+rotate. $2,1,1,50%,50%
+if $3>1" || "$4>1 f. 'w2=w/2;h2=h/2;X=x-w2;Y=y-h2;i(w2+X/$3,h2+Y/$4,0,c,1,0)' fi
+c. 0,255
+if $5 rgb2hsv. sh. 0 +. $5 rm. hsv2rgb. fi
+if $8
+nm=${gui_layer_name[1]}
+=> name($nm),opacity({$6*100}),mode($mode) rv[-2,-1]
+else blend[1,-1] $mode,$6 fi
+} }
+rm[0]
+fx_light_leaks_preview :
+gui_split_preview "fx_light_leaks ${1--5},0",${-3--1}
+_fx_light_leaks :
+u="" repeat 71 { if narg($u) u=$u, fi u=${u}lightleak_${"padint "$>,6} }
+u $u
+fx_light_patch :
+foreach { split_opacity ac[0] "light_patch $1,$2,$3",$4 a c }
+fx_lightrays :
+lightrays $1,$2%,$3%,$4,$5
+if $6 repeat $! { r[$>] 100%,100%,1,{{$>,s}+({$>,s}%2)} } fi
+fx_pop_shadows :
+foreach {
+split_opacity l[0] {
+.x2
+luminance.. negate.. imM={-2,[im,iM]} b.. $2% n.. $imM
+blend[0,1] overlay,$1
+max
+if $3 n 0,255 fi
+}
+a c
+}
+fx_pop_shadows_preview :
+gui_split_preview "fx_pop_shadows $*",${-3--1}
+fx_light_relief :
+b $11% light_relief ${1-5},{[$6,$7]%},${8-10}
+fx_shadow_patch :
+foreach { split_opacity ac[0] "shadow_patch $1",$2 a c }
+fx_slice_luminosity :
+remove_opacity
+foreach {
+to_rgb
+_fx_slice_luminosity $*
+if $2 i[0] [0] a[-2,-1] c fi
+rv
+}
+fx_slice_luminosity_preview :
+remove_opacity
+foreach {
+to_rgb
+_fx_slice_luminosity $*
+if $3==0 rm[0] channels {s-1}
+elif $3==1 100%,100%,1,1,128 a[0,-1] c r. 100%,100%,1,4 blend alpha
+elif $3==2 a c
+else +. 96 c. 0,255 a c
+fi
+}
+_fx_slice_luminosity :
+if $1==0 +compose_channels + /. 3
+elif $1==1 +luminance
+elif $1==2 +srgb2lab8. channels. 0
+else +compose_channels max
+fi
+if $4 +apply_curve[1] 0,{$5-$7-0.1},0,$5,255,$6,255,{$6+$8+0.1},0,512,0 fi
+if $9 +apply_curve[1] 0,{$10-$12-0.1},0,$10,255,$9,255,{$11+$13+0.1},0,512,0 fi
+if $14 +apply_curve[1] 0,{$15-$17-0.1},0,$15,255,$16,255,{$16+$18+0.1},0,512,0 fi
+if $19 +apply_curve[1] 0,{$20-$22-0.1},0,$20,255,$21,255,{$21+$23+0.1},0,512,0 fi
+rm[1] max[^0]
+fx_boxfitting :
+boxfitting ${1-4}
+if $5 to_rgba replace_color 0,0,0,0,0,255,0,0,0,0 fi
+fx_camouflage :
+foreach {
+split_opacity l[0] {
+channels 0 r {w+16},{h+16},1,1,0 rand 0,16
+amp=$3 do smooth {min(50,$amp)},0,1 amp-=50 while $amp>0
+shrink_xy. 8 n 1,$2 round
+repeat $1 { +area 0,0 <. {1+2^$>} inpaint[0] [1],0,3 rm. }
++colormap 0 n.. 0,{w-1}
+4,1,1,3,"col=[${4-15}];col[3*x,3]"
+r. ..,..,1,3,3 rm.. map.. . rm.
+}
+a c
+}
+fx_canvas :
+repeat $! { l. {
+if $4
+({cos($2*pi/180)}^{sin($2*pi/180)}) vector2tensor. r. ..,.. +smooth.. .,$1 rm.. sharpen. $3 c. 0,255
+({cos($6*pi/180)}^{sin($6*pi/180)}) vector2tensor. r. ..,.. smooth... .,$5 rm. sharpen.. $7 c.. 0,255
++[-2,-1] /. 2
+else
+({cos($2*pi/180)}^{sin($2*pi/180)}) vector2tensor. r. ..,.. smooth.. .,$1 rm. sharpen. $3 c. 0,255
+fi
+} mv. 0 }
+fx_canvas_preview :
+gui_split_preview "fx_canvas $*",${-3--1}
+jeje_clouds :
++clouds $1%,1,$2 blend alpha
+jeje_clouds_preview :
+jeje_clouds $1,$2
+fx_cracks :
+ac "cracks $1,$2,{$6/255},${3-5},255",$7
+fx_cracks_preview :
+gui_split_preview "fx_cracks $*",${-3--1}
+fx_crystal :
+foreach {
+split_opacity l[0] {
+s={s}
++gradient_norm >=. {(100-$3)/5} remove_pixels. {100-max(0.1,$1*$3%)}%,{is} *
++norm !=. 0 a c
+sigma=0.5
+do
++b. $sigma sigma*={(1+$2)}
+sh[0,-1] $s max. .. rm[-2,-1]
+f. 'W=i(x,y,z,$s);if(W<0.001||W>=1,0,if(c<$s,i/W,1))'
+if !iM rm[1] break fi
+sh. $s
+j[0] [1],0,0,0,0,1,[2] k[0]
+while 1
+channels 0,{$s-1}
+}
+a c
+}
+fx_crystal_preview :
+gui_split_preview "fx_crystal $*",${-3--1}
+fx_crystal_background :
+foreach {
+split_opacity l[0] {
+N={2*max(3,round((${"is_percent $2"}?4*wh*$2:$2)))}
+if $5 col="u([255,255,255])" else col="u(255)" fi
+srand $3 M={max(w,h)} 2,$N
+repeat $1 { rand. {-$M/2},{3*$M/2} polygon.. $N,{^},{-$4%},{$col} }
+rm. n 0,255
+}
+a c
+}
+jeje_fibers :
+100%,100%,1,1,0
+l.
+fibers $1,$2%,$3
+gt 0
+n 0,255
+done
+r. [0]
+max
+jeje_fibers_preview :
+gui_split_preview "jeje_fibers $1,$2,$3",$-1
+jeje_freqy_pattern :
+noise {$1*4}
+freqy_pattern {50/$2}%,{$3*2} n 0,255
+jeje_freqy_pattern_preview :
+gui_split_preview "jeje_freqy_pattern $1,$2,$3",$4
+fx_halftone :
+adjust_colors ${1-3},0,0,0,255 b $4
+foreach { split_opacity halftone[0] ${5-9} a c }
+fx_halftone_preview :
+gui_split_preview "fx_halftone $*",${-3--1}
+fx_generic_halftone :
+background,base_shape,max_radius,smoothness,antialiasing,bw_only,shape,shape_layout,shape_density,shape_smoothness,shape_angle=${1-11}
+afact:=arg0($antialiasing,1,1.25,1.5,2,2.5)
+if $shape sel=^ else sel=^0 fi
+foreach[$sel] {
+b {$smoothness/50}%
+if $bw_only luminance n 0,1 else n 0,1 s c fi
+ws,hs:=round([w,h]*$afact)
+delta:=max(2,round($afact*(100-$shape_density)))
+if $shape==0
+pass[0] 0
+if {s==2||s==4} channels. 100% else l. { s c + } fi
+r. {0,[w,h]},1,1,0,0 r. $ws,$hs,1,1,3
+b. $shape_smoothness ge. 0.5
+(0,1,0;1,1,1;0,1,0) +dilate.. . rm.. rv[-2,-1] -[-2,-1]
+if $shape_density distance. 1 round. mod. $delta ==. 0 fi
+elif $shape==1
+if $shape_layout==0
+{round([$ws,$hs]/$delta)},1,1,1 r. $ws,$hs,1,1,4,0,0.5,0.5
+elif $shape_layout==1
+$ws,$hs noise_poissondisk $delta
+else
+$ws,$hs,1,1,u<0.5*($shape_density%)^4
+fi
+elif $shape==2
+$ws,$hs,1,1,"const ang = $shape_angle°;
+const ca = cos(ang);
+const sa = sin(ang);
+!(round(sa*x-ca*y)%$delta)"
+elif $shape==3
+++ b. {$shape_smoothness/50}% r. $ws,$hs,1,1,3 otsu. 256 (0,1,0;1,1,1;0,1,0) +dilate.. . rm.. rv[-2,-1] -[-2,-1]
+distance. 1 round. mod. $delta ==. 0
+elif $shape==4
+$ws,$hs
+eval "
+const w2 = w/2;
+const h2 = h/2;
+const dt = 0.1°;
+const A = max(6,$delta)/(2*pi);
+const tmax = sqrt(w^2+h^2)/2/A;
+for (t = 0, t<=tmax, t+=dt,
+tdt = t + dt;
+ct = cos(t);
+st = sin(t);
+ctdt = cos(tdt);
+stdt = sin(tdt);
+r = A*t;
+xt0 = w2 + r*cos(t);
+yt0 = h2 + r*sin(t);
+xt1 = w2 + r*cos(tdt);
+yt1 = h2 + r*sin(tdt);
+polygon(2,xt0,yt0,xt1,yt1,1,1);
+)"
+fi
++distance. 1,0 max_patch. 5 +==.. 0 mul[-2,-1] distance. 1,0 *[-2,-1]
+foreach[^-1] {
+pass. 1 100%,100%,1,1,{$background?255:0}
+eval.. "*
+const col = $background?0:1;
+i?(
+lum = i(#0,round(x*w#0/w),round(y*h#0/h));
+$background?(lum = 1 - lum);
+R = round(i*lum*$max_radius%);
+$base_shape==1?(
+ellipse(#-1,x,y,R,R,0,1,col);
+):(
+x0 = x - R; y0 = y - R; x1 = x + R; y1 = y + R;
+polygon(#-1,4,x0,y0,x1,y0,x1,y1,x0,y1,1,col);
+)
+)"
+r. {0,[w,h]},1,1,2 k.
+}
+rm. a c
+if $antialiasing sqr fi
+n 0,255
+}
+fx_generic_halftone_preview :
+background,base_shape,max_radius,smoothness,antialiasing,bw_only,shape,shape_layout,shape_density,shape_smoothness,shape_angle=${1-11}
+if !$shape" && "$!<2 gui_error_preview "Missing top layer with halftoning shape." _persistent= return fi
+if "['${1--2}']==['$-1'] && "narg($_persistent)
+rm $_persistent
+else
+fx_generic_halftone $*
+if !$shape rm[0] fi
++store _persistent
+fi
+gui_crop_resize_preview
+u "{$1}{$2}{$3}{$4}{$5}{$6}{$7}""{"$shape_layout"}"_{$shape==1?2:0}"{"$shape_density"}""{"$shape_smoothness"}"_{isin($shape,0,3)?2:0}"{"$shape_angle"}"_{isin($shape,2)?2:0}"{${1--2}}"
+fx_hearts :
+ac "hearts $1",$2
+fx_hearts_preview :
+gui_split_preview "fx_hearts $*",${-3--1}
+fx_lava :
+foreach {
+split_opacity l[0] {
+norm
+100%,100% plasma. 1,1,{16-$1} smooth. $2,0,1,$3,$3,0.8,90 *
+gradient_norm n 0,255
+equalize map 3
+sharpen $4
+}
+a c
+}
+fx_lava_preview :
+gui_split_preview "fx_lava $*",${-3--1}
+fx_marble :
+foreach { split_opacity marble[0] {$1/10},{$2/10},$3,$4,$5,$6,$7,$8,$9%,$10% a c }
+fx_maze :
+foreach {
+w={w} h={h}
+r. {100/$1}%,{100/$1}%,1,100%,2
+if $3==0 f. 1
+elif $3==1 negate.
+fi
+maze_mask. $1 dilate. $2 *. 255
+if !$5 negate. fi
+if $4 r. $w,$h,100%,100% fi
+}
+fx_mineral_mosaic :
+foreach {
+to_rgb
++b $3 segment_watershed. $1 +norm.
+area. 0 +<=. {$2^2} inpaint.. . rm. label.
++f[0] 'if(c==0,x,y)' rv[-2,-1] +blend[-2,-1] shapeaverage,1,1
+-[-3,-1] rm[0,-2] channels. 0,1
+alpha={$5*pi/180} sh. 0 *. {cos($alpha)} rm. sh. 1 *. {sin($alpha)} rm. compose_channels. +
+normalize_local. 1000 n. -$4,$4
++ c 0,255
+}
+fx_mosaic :
+ac "foreach { split_opacity mosaic[0] $1 a c }",$2
+fx_mosaic_preview :
+gui_split_preview "fx_mosaic $*",${-3--1}
+fx_shapes :
+if $1
+remove_opacity
+foreach {
+if !$7 _fx_shapes $* * 255
+elif $7==1 split_opacity to_rgb[0] s[0] c repeat 3 { _fx_shapes[$>] $* } *[0-2] 255 a[0-2] c a c
+else +_fx_shapes $* r[0] $3%,$3% r[0] [1],[1] *
+fi
+}
+else
+if $!<=$2
+error[] "Command '$0': Some layers are missing in 'Custom layers' mode ("{$2+1}" expected at least, "$!" provided)." fi
+to_colormode[0-{$2-1}] ${max_s[0-{$2-1}]} remove_opacity[$2--1]
+repeat $!-$2 { l[0-{$2-1},{$2+$>}] {
+norm. w={w} h={h} r. $3%,$3%,1,1,2
+s={$4*max(round($w/w),round($h/h))}
+r0={$s*$5%} r1={$s*$6%}
+repeat $2 { r={round($r0+$>*($r1-$r0)/($2-1))} if $r +r[$>] $r,$r,1,100%,3 else 1,1 fi }
+r[-$2--1] $s,$s,1,100%,0,0,0.5,0.5
+map_sprites[$2--1] $2,$8
+} } rm[0-{$2-1}]
+fi
+fx_shapes_preview :
+if $1 foreach {
+w={w} h={h}
+gui_split_preview "fx_shapes ${1-3},1,${5--2}",$-1
+r $w,$h,1,100%,0,0,0.5,0.5
+} else
+if $!>$2 repeat $!-$2 { l[0-{$2-1},{$2+$>}] {
+w={w} h={h}
++fx_shapes ${1-3},1,${5--2} rm..
+r. $w,$h,1,100%,0,0,0.5,0.5
+} } rm[0-{$2-1}]
+else gui_warning_preview "Missing input layers!"
+fi
+fi
+_fx_shapes :
+norm w={w} h={h} r $3%,$3%,1,1,2
+s={(1+$10)*$4*max(round($w/w),round($h/h))}
+r0={$s*$5%} r1={$s*$6%}
+repeat $2 { r={round($r0+$>*($r1-$r0)/($2-1))} if $r _fx_shapes{$1-1}[] $r,$s else 1,1 fi }
+r[-$2--1] $s,$s,1,1,0,0,0.5,0.5
+if $9 rv[-$2--1] *[-$2--1] -1 +[-$2--1] 1 fi
+map_sprites $2,$8
+if $10 r 50%,50%,1,1,2 fi
+_fx_shapes0 :
+shape_circle $1
+_fx_shapes1 :
+$1,$1,1,1,1
+_fx_shapes2 :
+$1,$1,1,1 = 1,50%,50% distance 1,1 < {$1/2}
+_fx_shapes3 :
+$2,$2,1,1,'x+y<=2*$1-1'
+_fx_shapes4 :
+$2,$1,1,1,1
+_fx_shapes5 :
+$1,$2,1,1,1
+_fx_shapes6 :
+ball $1,200 n 0,1
+_fx_shapes7 :
+shape_heart 65 r $1,$1,1,1,2 >= 50%
+_fx_shapes8 :
+shape_star $1
+_fx_shapes9 :
+arrow3d 0,0,0,1,0,0,15%,40%,30% col3d 1 *3d $1 c3d
+$2,$2 j3d. ..,50%,50%,0,1,2,0,0
+rm.. +mirror y max
+_fx_shapes10 :
+S={$2+1-($2%2)}
+$S,$S,1,1,"X=x/(w-1);Y=y/(h-1);r=abs(0.5-sqrt(X^2+Y^2));a=atan2(y,x);r<0.1-0.17*(0.5-$1/$2)*sin(2*a)"
++mirror xy max
+_fx_shapes11 :
+_fx_shapes0 $* expand_xy 1,0 +erode 3 -
+_fx_shapes12 :
+_fx_shapes1 $* expand_xy 1,0 +erode 3 -
+_fx_shapes13 :
+_fx_shapes2 $* expand_xy 1,0 +erode 3 -
+_fx_shapes14 :
+_fx_shapes3 $* expand_xy 1,0 +erode 3 -
+_fx_shapes15 :
+_fx_shapes7 $* expand_xy 1,0 +erode 3 -
+_fx_shapes16 :
+_fx_shapes8 $* expand_xy 1,0 +erode 3 -
+_fx_shapes17 :
+_fx_shapes9 $* expand_xy 1,0 +erode 3 -
+fx_pack_ellipses :
+radius_min,radius_max,radius_dilation,isotropy_min,isotropy_max,isotropy_levels,orientation_ellipse,region_analysis,bgR,bgG,bgB,bgA,render_factor,preserve_size=$*
+isotropy_min,isotropy_max:="sort([ $isotropy_min,$isotropy_max ])/100"
+radius_min,radius_max:="sort([ $radius_min,$radius_max ])"
+render_factor+=1
+foreach {
+progress -1
+to_rgb
+nm={n} => img
+1,1,1,3 => set
++structuretensors[img] 1 b. 1% eigen.
+f.. "l0 = sqrt(i0); l1 = sqrt(i1); [1 - (l1 - l0)/l1,0]" channels.. 0
+if $isotropy_levels quantize.. $isotropy_levels,0,-1 fi
+n.. $isotropy_min,$isotropy_max =>.. isotropy
+if $orientation_ellipse==0 f[isotropy] 1 .
+elif $orientation_ellipse==1 +f. "[ atan2(-i0,i1),0 ]"
+else +f. "[ atan2(i1,i0),0 ]"
+fi
+channels. 0 => angles
+if $region_analysis +norm[img] b. 0.5% slic. {30*$region_analysis},0 g. xy,1 a[-2,-1] c norm. ge. 5%
+else 100%,100%
+fi
+=> contours
++==[contours] 0 => mask
+nb_attempts=0
+repeat inf {
+x0,y0,x1,y1:="
+const N = 4*$radius_max;
+wm1 = w#$mask - 1;
+hm1 = h#$mask - 1;
+Pc = round(u([wm1,hm1])); P0 = Pc - N/2; P1 = Pc + N/2;
+[ cut(P0[0],0,wm1), cut(P0[1],0,hm1), cut(P1[0],0,wm1), cut(P1[1],0,hm1) ]"
++z[mask] $x0,$y0,$x1,$y1 r. {[w,h]+2},1,1,0,0,0.5,0.5 distance. 0
+x,y,r:=$x0+xM-1,$y0+yM-1,min($radius_max,iM-1.25) rm.
+if $r>$radius_min
+r2={isotropy,max(1,$r*i($x,$y))}
+ellipse[mask] $x,$y,$r,$r2,{angles,rad2deg(i($x,$y))},1,0
+eval "da_push(#$set,[$x,$y,$r])"
+nb_attempts=0
+else
+if narg($contours) +[mask] [contours] rm[contours]
+else nb_attempts+=1 if $nb_attempts>10 break fi
+fi
+fi
+if !($>%100) progress {mask,cut(400*(1-ia)^3,0$progress,100)} fi
+}
+rm[mask]
+da_freeze[set]
+W,H={img,[w,h]}
+{img,round($render_factor*[w,h])} => mask
+eval[set] "
+const fact = $render_factor;
+r1 = fact*(i2 + $radius_dilation);
+r2 = max(1,r1*i(#$isotropy,i0,i1));
+ellipse(#$mask,round(fact*i0),round(fact*i1),r1,r2,i(#$angles,i0,i1),1,y + 1);
+I"
+r[img] {mask,[w,h]},1,100%,3
+blend[img] [mask],shapeaverage0
+!=[mask] 0 *[mask] 255
+a[img,mask] c
+if $preserve_size r[img] $W,$H,1,100%,2 fi
+k[img]
+100%,100%,100%,4 fc. $bgR,$bgG,$bgB,$bgA rv blend alpha => $nm
+progress 100
+}
+fx_pack_ellipses_preview :
+gui_split_preview "fx_pack_ellipses ${1-12},1,0"
+fx_pack_sprites :
+if $6
+if $!<2 error[] "Command '$0': Masking requires at least two input layers !
+(please check that 'Input Layers' is correctly set)." fi
+foreach[^-1] { to_rgba split_opacity +!=[1] 0 *[0] . a c autocrop 0 }
+remove_empty[0--2] +channels. 100% channels. -4,0 mv. 0
+pack_sprites[0--2] ${1-5}
+else
+foreach { to_rgba split_opacity +!=[1] 0 *[0] . a c autocrop 0 }
+remove_empty i[0] $7,$8,1,5 pack_sprites ${1-5}
+fi
+channels[0] 0,{0,s-2}
+fx_paper :
+ac "texturize_paper",$1
+fx_paper_preview :
+gui_split_preview "fx_paper $*",${-3--1}
+jeje_periodic_dots :
+tW={max(w,h)/$4}
+$tW,$tW
+periodic_dots. $*
+repeat $4*$4-1
+i .
+done
+append_tiles[1--1] $4,$4 k.
+if $5>0 n 0,255 map {$5-1} fi
+jeje_periodic_dots_preview :
+jeje_periodic_dots $*
+fx_pills :
+$=arg n:=$1?4:2
+foreach {
+w,h:=w,h rm
+repeat $1?3:1 {
+$w,$h,1,1,"begin(
+const cyc = "${arg$n}"*pi;
+const ang = "${arg{1+$n}}"°;
+const M = max(w,h);
+R = rot(ang);
+);
+x0 = lerp(-cyc,cyc,x/M);
+y0 = lerp(-cyc,cyc,y/M);
+x = x0*R[0] + y0*R[1];
+y = x0*R[2] + y0*R[3];
+sqrt(abs(sin(x + cos(y + sin(x + cos(y)))) * sin(y + cos(x + sin(y + cos(x))))))"
+n+=2
+}
+n 0,255
+a c
+}
+fx_pills_preview :
+fx_pills $*
+u "{$1}""{$2}_"{$1?0:2}"{$3}_"{$1?0:2}"{$4}_"{$1?2:0}"{$5}_"{$1?2:0}"{$6}_"{$1?2:0}"{$7}_"{$1?2:0}"{$8}_"{$1?2:0}"{$9}_"{$1?2:0}
+fx_plaid_texture :
+foreach {
+w={w} h={h} s={s}
+rows $1%
+b $5% sharpen $6
+r $w,$h,1,$s,2
++rotate[0] $3,1,2,50%,50%
+repeat $2-1 { +rotate[0] {$3+$4*($>+1)/($2-1)},1,2,50%,50% +[-2,-1] } rm[0]
+/ $2
+}
+fx_polka_dots :
+to_rgba polka_dots {$1*$2/100},${2--1}
+fx_color_ellipses :
+color_ellipses $1,$2,$3
+_fx_random_pattern :
+if $4 srand _seed={_round(u(100000))} else _seed=$3 fi
+srand $_seed
+random_pattern $1,$1,$2
+adjust_colors. ${5-9}
+mv. 0
+fx_random_pattern :
+if 0$_output_mode rm fi
+_fx_random_pattern $*
+fx_random_pattern_preview :
+_fx_random_pattern {max($_preview_area_width,$_preview_area_height)},${2--1}
+k[0] rr2d $_preview_area_width,$_preview_area_height,2,2
+to "Seed: \#"$_seed,5,5,5%,2
+u "{$1}{$2}{"{$4?$_seed:$3}"}{0}{$5}{$6}{$7}{$8}{$9}"
+jeje_rays :
+foreach {
+100%,100% rays. {[w*$1,h*$2]%},$3,$4 gt. {$5*100}%
+($6,$9^$7,$10^$8,$11) map.. . rm[0,-1]
+}
+jeje_rays_preview :
+gui_split_preview "jeje_rays $1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11",$-1
+fx_syntexturize :
+foreach {
+if $3 +b {20.5-$3/50}% -[0] [1] fc. ${average_vectors.} + c 0,255 fi
+syntexturize $1,$2
+}
+fx_syntexturize_preview :
+gui_split_preview "fx_syntexturize 100%,100%,$3",${-3--1}
+_fx_syntexturize_matchpatch_preview :
+foreach {
+if $7 +b {20.5-$7/50}% -[0] [1] fc. ${average_vectors.} + c 0,255 fi
+w={w} h={h}
+syntexturize_matchpatch 100%,100%,${3--1}
+to_rgba r $w,$h,1,4,0,0,0.5,0.5
+}
+fx_syntexturize_matchpatch_preview :
+gui_split_preview "_fx_syntexturize_matchpatch_preview ${1--2}",${-3--1}
+fx_rorschach :
+foreach {
+remove_opacity
+if $3==0 norm rorschach $1%,$2 * 255
+elif $3==1 to_rgb rorschach $1%,$2 * 255
+else +norm rorschach. $1%,$2 blend shapeaverage0
+fi
+}
+fx_satin :
+($4,$8^$5,$9^$6,$10^$7,$11) srgb2rgb. r. 256,1,1,4,3 rgb2srgb.
+foreach[^-1] {
+srand $3 channels 0 f 0
+repeat $1 {
+100%,100%,1,1,"begin(
+A = u([0,0],[w,h]-1);
+B = u([0,0],[w,h]-1);
+N = [0,-1,1,0]*(B - A);
+D = A + N;
+C = B + N;
+abc = solve([A,1,B,1,C,1,D,1],[0,255,255,0]);
+);
+dot(abc,[x,y,1])"
+c. 0,255 -- abs
+}
+b $2% gradient_norm negate n 0,255
+if $12 normalize_local , fi
+pass. 1 map.. . rm.
+sh. 0,2 adjust_colors. ${13-17} rm.
+}
+rm.
+fx_mad_rorscharchp :
+fx_rorschach $1,1,1
++mirror y
+if $2==0 fx_compose_average 1,0
+elif $2==1 fx_compose_grainextract 1,0
+elif $2==1 fx_compose_vividedges 1,1,0.5,1 fi
++fx_plaid_texture $3,2,0,90,$4,$5
+if $6==0 fx_compose_vividedges 1,1,0.5,1
+elif $6==1 fx_compose_average 1,0
+elif $6==2 fx_compose_difference 1,0
+elif $6==3 fx_compose_negation 1,0
+elif $6==4 fx_compose_negation 1,0
+elif $6==5 fx_compose_darkedges 1,1,0.8,1 fi
+if $7==0 fx_graphic_novelfxl 0,2,6,5,20,0,0.62,14,0,1,0.5,0.78,1.92,0,0,12,1,1,1,0.5,0.8,1.28,1.25,2,0,0.15,14,0,1,0.5,0.45,2,0,1,0,1,1,1,0.5,0.45,1
+elif $7==1 fx_graphic_novelfxl 0,7.2,14.65,5,20,0,1.06,36.14,0,1,0.5,0.85,1.93,0,0,8,1,1,1,0.5,0.95,2.89,1.25,2,0,0.15,14,0,1,0.5,0.45,2,0,1,0,1,1,1,0.5,0.45,1
+elif $7==2 fx_graphic_novelfxl 0,7.22892,14.6506,5,20,0,1.6,36.1,0,1,0.5,0.6,3.6,0,0,11,1,1,1,0.5,0.8,2.16,1.25,2,0,0.15,14,0,1,0.5,0.45,2,0,1,7,1,1,1,0.5,0.45,1
+elif $7==3 fx_graphic_novelfxl 0,7.22892,14.6506,5,20,0,1.59036,36.1446,0,1,0.5,0.590361,3.61446,0,1,17,1,1,1,0.5,0.795181,2.16867,1.25,2,0,0.15,14,0,1,0.5,0.45,2,0,1,7,1,1,1,0.5,0.45,1
+elif $7==4 fx_graphic_novelfxl 0,7.22892,14.6506,5,20,0,1.59036,36.1446,0,1,0.5,0.855422,1.92771,0,0,8,1,1,1,0.5,0.373494,2.89157,1.25,2,0,0.15,14,0,1,0.5,0.45,2,0,1,0,1,1,1,0.5,0.45,1
+elif $7==5 fx_graphic_novelfxl 1,7.22892,14.6506,5,20,0,1.06024,14,0,1,0.5,0.855422,1.3253,0,0,12,1,1,1,0.5,0.8,1.28,1.25,2,0,0.15,14,0,1,0.5,0.45,2,0,1,0,1,1,1,0.5,0.45,1
+elif $7==6 fx_graphic_novelfxl 1,7.22892,14.6506,5,20,0,1.06024,36.1446,0,1,0.5,0.855422,1.92771,0,0,7,1,1,1,0.5,0.951807,1.92771,1.25,2,0,0.15,14,0,1,0.5,0.45,2,0,1,0,1,1,1,0.5,0.45,1
+elif $7==7 fx_graphic_novelfxl 1,7.22892,14.6506,5,20,0,1.59036,36.1446,0,1,0.5,0.590361,3.61446,0,1,18,1,1,1,0.5,0.795181,2.16867,1.25,2,0,0.15,14,0,1,0.5,0.45,2,0,1,0,1,1,1,0.5,0.45,1 fi
+if $8==1 fx_array_mirror 1,0,0,2,0,$9
+elif $8==2 fx_array_mirror 1,0,0,3,0,$9 fi
+fx_seamless_turbulence :
+foreach {
+wh={w},{h} rm
+$wh,1,{if($6,3,1)} rand. 0,255
+$wh rand. {$3*pi/180-$4*10*pi},{$3*pi/180+$4*10*pi} +sin. cos.. a[-2,-1] c
+r[-2,-1] 130%,130%,1,100%,0,2,0.5,0.5 b. $2 orientation.
+vector2tensor.
+smooth.. .,$1,0.5,20 rm.
+r. $wh,1,100%,0,0,0.5,0.5
+if $5!=1 ia={ia} - $ia * $5 + $ia fi
+}
+c 0,255 n 0,255
+_fx_shockwaves :
+dct
+100%,100%,1,1,1 circle. 0,0,{$2+$3}%,1,{$1+1} circle. 0,0,$2%,1,1
+* idct c 0,255
+fx_shockwaves :
+ac "_fx_shockwaves ${1-3}",$4
+fx_shockwaves_preview :
+gui_split_preview "fx_shockwaves $*",${-3--1}
+fx_sponge :
+ac "sponge $1",$2
+fx_sponge_preview :
+gui_split_preview "fx_sponge $*",${-3--1}
+fx_stained_glass :
+foreach {
+split_opacity l[0] {
+to_rgb
+stained_glass $1,$2,$3
+n 0,255
+if $4 equalize. fi
+rgb2lab. sh. 1,2 *. $5 rm. lab2rgb.
+adjust_colors. ${6-8}
+}
+a c
+}
+fx_stained_glass_preview :
+gui_split_preview "fx_stained_glass $*",${-3--1}
+fx_stars :
+foreach { split_opacity stars[0] $1%,$2,$3,$4,$5,$6%,${7-9},{$10/255} a c }
+fx_stencil :
+if $5==0 norm stencil $1,$2,$3
+elif $5==1 stencil $1,$2,$3
+else repeat $! {
++norm. stencil. $1,$2,$3 >=. 50% blend[-2,-1] shapeaverage0
+mv. 0 } fi
+if $6 to_rgba replace_color 0,0,0,0,0,255,0,0,0,0 fi
+if $4 smooth {30*$4},0,1,1 fi
+fx_stencil_preview :
+gui_split_preview "fx_stencil $*",${-3--1}
+jeje_strip :
+theta={pi*$1/180}
+f '0.5*i*(1+$4*sin(2*pi*$2*(cos($theta)*x/w+sin($theta)*y/h)+2*pi*$3/180))'
+c 0,255
+jeje_strip_preview :
+gui_split_preview "jeje_strip $*",$-1
+fx_tetris :
+tetris $1
+fx_triangular_pattern :
+if !$! 1024,1024,1,3 fi
+W,H={0,[w,h]} f={arg0($14,1,1.5,2,3,4)*100} r[0] $f%,$f%,1,100%
+1,1,1,6
+eval "
+srand($1);
+const pn1 = $3;
+const pn2 = $4 + pn1;
+const pn3 = $5 + pn2;
+const pn4 = $6 + pn3;
+const pn5 = $7 + pn4;
+C = [ w#0,h#0 ]/2;
+da_push([ C,0,h#0-1,0,0 ],
+[ C,w#0-1,0,0,0 ],
+[ C,w#0-1,0,w#0-1,h#0-1 ],
+[ C,0,h#0-1,w#0-1,h#0-1 ]);
+repeat($2,
+n = int(u(pn5))%pn5;
+n = n. $t
+f. "u<($4%)^4?i:0"
+label_fg. 0,1 voronoi.
+if $5<3
+1,1,1,4,"$5==0?[0,0,0,255]:$5==1?[255,255,255,255]:$5==2?[128,128,128,0]"
+r. [0],[0],1,4 rv[0,-1] rm.
+else
+blend[0] .,shapeaverage
+fi
+if $6" && "$10
++f. "const boundary=1; i!=j(1) || i!=j(0,1)"
+dilate. $6
+1,1,1,4,"[${7-9},255]" r. [0],[0],1,4
+j[0] .,0,0,0,0,{$10/255},.. rm[-2,-1]
+fi
+if $11" && "$15
+1,{iM+1},1,3 eval.. "I[#-1,i]+=[x,y,1]" s. c,-2 /[-2,-1] rm..
+eval. "const r = ($11-1)*arg(1+$16,1,1.5,2,2.5); ellipse(#0,i0,i1,r,r,0,$15/255,[${12-14},255])"
+fi
+rm.
+r $wh,1,100%,2
+}
+fx_voronoi_preview :
+fx_voronoi ${1-15},{min(1,$16)}
+fx_whirls :
+ac "whirls $1,$2,$3,$4",$5
+fx_whirls_preview :
+gui_split_preview "fx_whirls ${1-5}",${-3--1}
+fx_blocks3d :
+foreach {
+nm=${"-gui_layer_name"}
+W={w} H={h} M={max(w,h)}
+if w>h r2dx $1 else r2dy $1 fi
+w={w} h={h} m={max(w,h)}
+if $3>0 mirror y fi
+imageblocks3d $3,$2%
+-3d. {$w/2},{$h/2} f={$4*$M/($m*(2-$16))} *3d $f,$f,{$f*abs($3*$1/100)}
+if $3>0 r3d 1,0,0,180 fi
+r3d 0,0,1,$5 r3d 1,0,0,-$6
+if $16 {2*$M},{2*$M},1,4,-1 else $M,$M,1,4,-1 fi
+f3d={0.5*w/tan($7*pi/360)} f3d $f3d
+l3d {$10*$f3d},{$11*$f3d},{$12*$f3d} sl3d $13 ss3d $14
+j3d. [0],$8%,$9%,0,1,{if($15,3,2)},0,1
+sh. 100% +. 1 *. 255 rm.
+if $20
+.,.,1,3,-1
+j3d. [0],$8%,$9%,0,1,3,0,1 rm[0]
+g. xy,1 +[-2,-1] norm. !=. 0
++r. 100%,100%,1,3
+sh. 0 *. $17 rm.
+sh. 1 *. $18 rm.
+sh. 2 *. $19 rm.
+j[0] .,0,0,0,0,{$20/255},.. rm[-2,-1]
+else rm[0]
+fi
+replace_color 0,0,-1,-1,-1,0,0,0,0,0
+if $16 r 50%,50%,1,4,2 fi
+c 0,255 => "name("$nm")"
+}
+_fx_coloredobject3d :
+to_rgb _fx_coloredobject3d$1$2 ${6-8} col3d. ${3-5}
+db3d 0
+fx_coloredobject3d :
+_fx_coloredobject3d "_",${1-4,6-8}
+repeat $!-1 {
++fx_render3d. {$>,w},{$>,h},$6,${9--1}
+sh. 3 *. {$5/255} rm.
+blend[$>,-1] alpha
+}
+rm.
+fx_coloredobject3d_preview :
+_fx_coloredobject3d "_preview_",${1-4,6-8}
+repeat $!-1 {
++fx_render3d. {$>,w},{$>,h},$6,${9--1}
+sh. 3 *. {$5/255} rm.
+blend[$>,-1] alpha
+} rm.
+_fx_coloredobject3d_0 : plane3d 1 *3d. $1,$2,1
+_fx_coloredobject3d_1 : box3d 1 *3d. $1,$2,$3
+_fx_coloredobject3d_2 : pyramid3d 1,1 *3d. $1,$2,$3
+_fx_coloredobject3d_3 : sphere3d 1 *3d. 1,{2*$2},{2*$3}
+_fx_coloredobject3d_4 : torus3d $1,{$2/2},100,50 *3d. $3,0.5,0.5
+_fx_coloredobject3d_5 : gyroid3d 24 *3d. $1,$2,$3
+_fx_coloredobject3d_6 : weird3d 32 *3d. $1,$2,$3
+_fx_coloredobject3d_7 : cup3d 128 *3d. $1,$2,$3
+_fx_coloredobject3d_preview_0 : plane3d 1 *3d. $1,$2,1
+_fx_coloredobject3d_preview_1 : box3d 1 *3d. $1,$2,$3
+_fx_coloredobject3d_preview_2 : pyramid3d 1,1 *3d. $1,$2,$3
+_fx_coloredobject3d_preview_3 : sphere3d 1 *3d. 1,{2*$2},{2*$3}
+_fx_coloredobject3d_preview_4 : torus3d $1,{$2/2},100,50 *3d. $3,0.5,0.5
+_fx_coloredobject3d_preview_5 : gyroid3d 8 *3d. $1,$2,$3
+_fx_coloredobject3d_preview_6 : weird3d 12 *3d. $1,$2,$3
+_fx_coloredobject3d_preview_7 : cup3d 64 *3d. $1,$2,$3
+_fx_elevation3d :
+if $3" && "$!>1
+repeat $!-1 { l[0,{1+$>}] {
++ri.. .,3
+n. 0,{abs($1)} *. {sign($1)} b. $2
+elevation3d.. . rm.
+} }
+else foreach { +norm n. 0,{abs($1)} *. {sign($1)} b. $2 elevation3d.. . rm. }
+fi
+db3d
+fx_elevation3d :
+_fx_elevation3d ${1-2},$17
+s0,s1=^,^0 fx_render3d[${s$17}] ${3--1}
+fx_elevation3d_preview :
+fx_elevation3d ${1-2},{w},{h},${5--1}
+if $17 rm[0] fi
+_fx_extrude3d :
+if $4" && "$!>1 repeat $!-1 { l[0,{$>+1}] { extrude3d. $1,$2,$3% t3d. .. } }
+else extrude3d $1,$2,$3%
+fi
+db3d 0
+fx_extrude3d :
+_fx_extrude3d ${1-3},$18
+s0,s1=^,^0 fx_render3d[${s$18}] ${4--1}
+fx_extrude3d_preview :
+fx_extrude3d ${1-3},{w},{h},${6--1}
+if $18 rm[0] fi
+_fx_imageobject3d :
+to_rgb foreach { _fx_imageobject3d$1$2 }
+db3d 0
+fx_imageobject3d :
+_fx_imageobject3d "_",$1 fx_render3d ${2--1}
+fx_imageobject3d_preview :
+w={w} h={h} _fx_imageobject3d "_preview_",$1 fx_render3d $w,$h,${4--1}
+_fx_imageobject3d_0 : imageplane3d
+_fx_imageobject3d_1 : imagecube3d
+_fx_imageobject3d_2 : imagepyramid3d
+_fx_imageobject3d_3 : imagesphere3d 128,64
+_fx_imageobject3d_4 : torus3d 100,30,100,50 t3d. .. rm..
+_fx_imageobject3d_5 : gyroid3d 24 t3d. .. rm..
+_fx_imageobject3d_6 : weird3d 32 t3d. .. rm..
+_fx_imageobject3d_7 : cup3d 128 t3d. .. rm..
+_fx_imageobject3d_8 : imagerubik3d 5,5
+_fx_imageobject3d_preview_0 : imageplane3d
+_fx_imageobject3d_preview_1 : imagecube3d
+_fx_imageobject3d_preview_2 : imagepyramid3d
+_fx_imageobject3d_preview_3 : imagesphere3d 64,32
+_fx_imageobject3d_preview_4 : torus3d 100,30,100,50 t3d. .. rm..
+_fx_imageobject3d_preview_5 : gyroid3d 8 c3d. n3d. t3d. .. rm..
+_fx_imageobject3d_preview_6 : weird3d 12 t3d. .. rm..
+_fx_imageobject3d_preview_7 : cup3d 64 t3d. .. rm..
+_fx_imageobject3d_preview_8 : imagerubik3d 3,3,5,5
+_fx_lathing3d :
+if $4" && "$!>1 repeat $!-1 { l[0,{$>+1}] { lathe3d. $1,$2%,$3 t3d. .. } }
+else lathe3d $1,$2%,$3
+fi
+db3d 0
+fx_lathing3d :
+_fx_lathing3d ${1-3},$18
+s0,s1=^,^0 fx_render3d[${s$18}] ${4--1}
+=> "pos(0,0),mode(alpha)"
+fx_lathing3d_preview :
+fx_lathing3d ${1-3},{w},{h},${6--1}
+if $18 rm[0] fi
+fx_mesh3d : skip "${1=},${2=}"
+filename="$1"
+old_filename="$2"
+xx,xy,yx,yy,sx,sy,cx,cy,ocx,ocy,rotx,roty,rotz,rendering_mode,face_orientation,materials,recR,recG,recB,focale,antialias,lx,ly,reset_pos=${3-26}
+R=30
+show_bb:=!$rendering_mode
+if $reset_pos xx,xy,yx,yy,sx,sy,cx,cy,ocx,ocy:=50+$R,50,50,50+$R,60,60,50,50,-1,-1 fi
+if $! W,H=${-max_wh} else W,H=1024,1024 fi
+0 => $filename ext={x} rm.
+if e=['$ext'];['$filename']!=0" && "e!='obj'" && "e!='off'" && "e!='gmz'
+gui_error_preview "Specified filename '"$filename"' is invalid\n(extension '"$ext"' is not supported)."
+return
+fi
+if $ocx>0" && "[$cx,$cy]!=[$ocx,$ocy] ncx,ncy=$ocx,$ocy else ncx,ncy=$cx,$cy fi
+ux,uy,vx,vy,sx,sy:="C = [$ncx,$ncy]; [ [$xx,$xy] - C,[$yx,$yy] - C,[$sx,$sy] - C ]"
+Ux,Uy,Uz,Vx,Vy,Vz,Wx,Wy,Wz:="
+const R = $R;
+const R2 = 2*R;
+coords3d(x,y) = (
+_t = atan2(y,x); _n = norm(x,y);
+_s = int(_n/R)%2?1:-1; _mn = _n%R2; _n = _mn0?_U/_nU:[ 0,0,-1 ];
+);
+U = coords3d($ux,$uy);
+V = coords3d($vx,$vy);
+W = cross(U,V); W/=norm(W);
+nV = cross(W,U); nV/=norm(nV);
+dot(nV,V)<0?(nV*=1);
+[ U,nV,W ]"
+vx,vy:="($Vz<0?1:2/norm($Vx,$Vy) - 1)*$R*[$Vx,$Vy]"
+l[] {
+if ['$filename']==['$old_filename']" && "narg($_persistent) $_persistent
+elif ['$filename']!=0 $filename +boundingbox3d. +store _persistent
+else
+torus3d 100,40,32,17 s3d r.. 3,{h#2/3},1,1,-1 f.. y%2?160-20*x:128+50*x y a y
+=> "Default Torus" +boundingbox3d. +store _persistent
+fi
+if $show_bb k. else rm. fi
+}
+nbv,nbp:=i[6],i[7]
+obj_name={b}
+fact:=min($W,$H)*norm($sx,$sy)/$R
+n3d. c3d. *3d. $fact
+if $rotx r3d. 1,0,0,{45*$rotx} fi
+if $roty r3d. 0,1,0,{45*$roty} fi
+if $rotz r3d. 0,0,1,{45*$rotz} fi
+pose3d. $Ux,$Vx,$Wx,0,$Uy,$Vy,$Wy,0,$Uz,$Vz,$Wz,0
+is_double:=$face_orientation==2
+if $face_orientation==1 rv3d. fi
+foc:=$fact*$focale%
+if $materials<2 p3d. 2 if !$materials col3d. $recR,$recG,$recB fi fi
+nlx,nly,nlz:=isnan($lx)?[$W*$cx%,$H*$cy%,-5e8]:[$W*($cx+4*($lx-$cx))%,$H*($cy+4*($ly-$cy))%,-10*$foc]
+if 0$_is_preview
+j3d[0] .,$cx%,$cy%,0,1,{$rendering_mode>0?$rendering_mode-1:1},$is_double,1,$foc,$nlx,$nly,$nlz rm.
+else
+afact:=arg0($antialias,1,1.5,2,3,4)
+if $afact>1 foc*=$afact *3d. $afact fi
+{[$W,$H]*$afact},1,3,-0.1
+j3d. ..,$cx%,$cy%,0,1,{$rendering_mode>0?$rendering_mode-1:1},$is_double,1,$foc,$nlx,$nly,$nlz rm..
+to_rgba. replace_color. 0,0,-0.1,-0.1,-0.1,255,0,0,0,0 r. $W,$H,1,4,2
+if 0$_output_mode>0 k. else blend alpha fi
+fi
+if 0$_is_preview
+line[0] $cx%,$cy%,{$cx+$ux}%,{$cy+$uy}%,1,255,0,0
+line[0] $cx%,$cy%,{$cx+$vx}%,{$cy+$vy}%,1,0,255,0
+line[0] $cx%,$cy%,{$cx+$sx}%,{$cy+$sy}%,1,0xF0F0F0F0,255,128,64
+line[0] $cx%,$cy%,{$cx+$sx}%,{$cy+$sy}%,1,0x0F0F0F0F,128,64,255
+to[0] "[ "$obj_name" ]\nVertices: "$nbv"\nPrimitives: "$nbp,0,0,4%
+fi
+=>[0] "name("$obj_name"),pos(0,0)"
+u "{"$filename"}{"$filename"}""{"{[$cx+$ux,$cy+$uy]}"}{"{[$cx+$vx,$cy+$vy]}"}{"{[$cx+$sx,$cy+$sy]}"}{"$cx,$cy"}{"$cx"}{"$cy"}""{"$rotx"}{"$roty"}{"$rotz"}{"$rendering_mode"}{"$face_orientation"}{"$materials"}""{"$recR,$recG,$recB"}{"$focale"}{"$antialias"}{"$lx,$ly"}{"$reset_pos"}"
+fx_mesh3d_preview : skip "${1=},${2=}"
+if !$! $_preview_area_width,$_preview_area_height,1,4
+else gui_merge_layers fi
+drgba
+_is_preview=1
+fx_mesh3d $"*"
+fx_random3d :
+foreach {
+f3d={0.5*max(w,h)/tan($5*pi/360)} f3d $f3d l3d {$6*$f3d},{$7*$f3d},{$8*$f3d} sl3d $9 ss3d $10
+to_rgb ({w},{h},{d},{s}) /. 2
+repeat $2 {
+({1,@0}) +. {1,@1} *. $3 /. 100 _fx_random3d$1 {^} rm..
+r3d. 1,1,0,{u(0,360)}
+({v}) *. {1,@0} ({v}) *. {1,@1}
++3d... {-2,^},{^},{u(-$4,$4)} rm[-2,-1]
+col3d. {u(255)},{u(255)},{u(255)}
+}
++3d[2--1] j3d[0] .,50%,50%,0,$12,$11,0,1 k[0]
+}
+_fx_random3d0 : box3d $1
+_fx_random3d1 : ($1) /. 2 cone3d {^},$1 rm..
+_fx_random3d2 : ($1) /. 2 cylinder3d {^},$1 rm..
+_fx_random3d3 : sphere3d $1,2
+_fx_random3d4 : ($1) /. 3 torus3d $1,{^} rm..
+fx_memoakten_algorithm_a_preview :
+fx_memoakten_algorithm_a $*
+gui_crop_resize_preview
+fx_memoakten_algorithm_a :
+seed,point_density,rate_ps,rate_ss,max_occ,centering,msl,Msl,angt,thickness,color_density,antialias,Rf,Gf,Bf,Rb,Gb,Bb,R0,G0,B0,R1,G1,B1,R2,G2,B2,R3,G3,B3=${1-30}
+fa:=arg0($antialias,1,1.5,2)
+foreach {
+nm={n} W,H:=w,h rm srand $seed
+$W,$H noise_poissondisk. {max(8,min(w,h)/max(2,$point_density))}
+1,1,1,2 eval.. "begin(da_push(#1,[0,0],[$W - 1,0],[$W - 1,$H - 1],[0,$H - 1])); i?da_push(#1,[x,y])" rm..
+1,1,1,2
+1,{"max(1,round($rate_ps*da_size(#0)%))"},1,1,">"${-math_lib}"
+begin(
+const mwh = min($W,$H);
+da_push(#1,[0,1],[1,2],[2,3],[3,0]);
+nb_pts = da_size(#0)
+);
+do (
+do (p0 = round(u(nb_pts - 1)); p1 = round(u(nb_pts - 1)), p0==p1);
+P0 = I[#0,p0]; P1 = I[#0,p1],
+!inrange(norm(P0 - P1),mwh*$msl%,mwh*$Msl%)
+);
+is_valid = 1;
+repeat (da_size(#1),k,
+S = I[#1,k]; q0 = S[0]; q1 = S[1];
+Q0 = I[#0,q0]; Q1 = I[#0,q1];
+is_valid&=!do_intersect(P0[0],P0[1],P1[0],P1[1],Q0[0],Q0[1],Q1[0],Q1[1]);
+!is_valid?break();
+);
+is_valid?(da_push(#1,[p0,p1]));
+" rm.
+channels. 0,2
+1,{"max(1,round($rate_ss*da_size(#1)))*100"},1,1,">"${-math_lib}"
+const cmin = lerp(0,0.5,$centering%);
+const cmax = lerp(1,0.5,$centering%);
+const mwh = min($W,$H);
+const angt = 1 - $angt%;
+nb_seg = da_size(#1);
+do (s0 = round(u(nb_seg - 1)); s1 = round(u(nb_seg - 1)),
+s0==s1 || i(#1,0,s0,0,2)>$max_occ || i(#1,0,s1,0,2)>$max_occ);
+S0 = I[#1,s0]; S1 = I[#1,s1];
+P0 = I[#0,S0[0]]; P1 = I[#0,S0[1]]; dP = P1 - P0; nP = norm(dP); ndP = dP/nP;
+Q0 = I[#0,S1[0]]; Q1 = I[#0,S1[1]]; dQ = Q1 - Q0; nQ = norm(dQ); ndQ = dQ/nQ;
+R0 = round(lerp(P0,P1,u(cmin,cmax)));
+R1 = round(lerp(Q0,Q1,u(cmin,cmax)));
+dR = R1 - R0; nR = norm(dR); ndR = dR/nR;
+inrange(nR,mwh*$msl%,mwh*$Msl%) && abs(dot(ndR,ndP))y>=4?(S = I; polygon(#-1,2,$fa*I[#0,S[0]],$fa*I[#0,S[1]],1,0))"
+k.
+srand $seed
++label_fg. 0,0
+1,{iM+1},1,6,[0,0,y,0,0,0] eval.. ">++i[#-1,i]" sh. 0 area_max:=iM rm.
+f. "[ i0*u(0.25,1),i0,y,0,0,0 ]" sort. +,y channels. 1,100%
+f. "begin(N = max(1,h*$color_density%));
+y>N || i0<8 || i0>=$area_max?[i0,i1,$Rb,$Gb,$Bb]:(
+rand = u;
+rand<0.25?[i0,i1,$R0,$G0,$B0]:
+rand<0.5?[i0,i1,$R1,$G1,$B1]:
+rand<0.75?[i0,i1,$R2,$G2,$B2]:
+[i0,i1,$R3,$G3,$B3]
+)"
+channels. 1,100% sort. +,y channels. 1,100%
+point. 0,0,0,1,$Rf,$Gf,$Bf
+map.. . rm.
+==.. 0
+if $thickness<=3 dilate[0] $thickness else dilate_circ[0] $thickness fi
+f. "i(#0)?[$Rf,$Gf,$Bf]:I" rm..
+r $W,$H,1,3,2 => $nm
+}
+fx_ball :
+ball $1,${5-7},${2-4}
+if $!>1 mv. 0 =>[0] "name(Ball),pos("{``{0,0.5*([${-max_wh}]-[w,h])}}")" else =>[0] "name(Ball)" fi
+fx_ball_preview :
+fx_ball $*
+if $!>1 rv[-2,-1] blend[-2,-1] alpha fi
+fx_circle_art :
+if !$2 f 0 return fi
+if $1==0
+{round(2*($2^1.5))}
+rand. -1,1 +rand. -1,1 +rand. -$3,$3 a[-3--1] y
+else
+{max(1,round($2*$7))}
+t0={$8*2*pi/180}
+rows. 0,2
+f. "r = x/(w-1);
+t = 2*pi*x/$2;
+if(y==0,(r^$11)*cos("$t0"+$13*t),
+if(y==1,(r^$12)*sin("$t0"+$14*t),
+max(0,$3*($9+($10-$9)*r))))"
+fi
+l. {
+transpose s x,-1 h={h}
+i[0] ({'CImg3d'},{2*$h},$h)
+++... . -[-4,-2] i .. i[-3,-1] 1,100% a[-6--1] x
+1,$h,1,1,5 1,$h,1,1,2*y ++. 1 a[-3--1] x z. 0,5
+3,$h,1,1,1 1,$h,1,1,-1 y a y
+}
+repeat $!-1 { l[$>,-1] {
+s={0,max(w,h)} rm[0]
+if $5 {2*$s},{2*$s} +*3d[0] $s
+else $s,$s +*3d[0] {$s/2}
+fi
+j3d[1] [2],50%,50%,0,1,2,0,0 rm[2]
+%. $4
+if $6 i.. 100%,100%,1,3 rand.. 0,255 plasma.. 1,1 equalize.. 256 n.. 0,255 blend[-2,-1] shapeaverage fi
+rv
+} }
+rm.
+n 0,255
+if $5 r 50%,50%,1,100%,2 fi
+fx_equation_parametric :
+foreach {
+w={w} h={h} rm
+$5,1,1,2,"t=$3+x*($4-$3)/($5-1);if(c==0,$1,$2)"
+channels. 0,2
+($8,$11^$9,$12^$10,$13) r. {-2,w},1,1,3,3 a c
+display_parametric $w,$h,{$6+$14*1.001},$7,$15,$16
+}
+fx_equation_plot :
+foreach {
+w={w} h={h} rm
+$4,1,1,$5,"X=$2+($3-$2)*x/($4-1);$1"
+dg $w,$h,$6,$7,$2,$3
+}
+fx_corner_gradient : skip ${17=0}
+foreach {
+wh={w},{h} rm
+($1,$5;$9,$13^$2,$6;$10,$14^$3,$7;$11,$15^$4,$8;$12,$16)
+_gb_fwd $17
+r. $wh,1,100%,3
+_gb_bwd $17
+}
+fx_custom_gradient_preview : skip "${15=}"
+foreach {
+if $4
++_fx_custom_gradient1 ${1-14},"$15",${16--1} +erode. 3 -[-2,-1] +dilate. 5 a[-2,-1] c n. 0,255
+fx_custom_gradient[0] ${1-14},"$15",${16--1},-1 blend alpha
+else fx_custom_gradient ${1-14},"$15",${16--1},-1
+fi
+if $14
++_fx_custom_gradient0[] ${1-14},"$15",${16--1} r. {{0,w}-16},16,1,4 frame. 1,1,0 j[0] .,8,{0,h-25} rm.
+fi
+}
+fx_custom_gradient : skip "${15=}"
+_fx_custom_gradient0 ${1-14},"$15",${16--1}
+if $-1>=0" && "narg("$15")
+dir_ggr=${-path_gimp}gradients
+0 => ${"normalize_filename \"$15\""} name_ggr={b} rm. output_ggr. $dir_ggr/$name_ggr.ggr,"$15"
+fi
+i.. (0^0^0^0) a[-2,-1] x
+repeat $!-1 { l[$>,-1] {
+_fx_custom_gradient1[0] ${1-14},"$15",${16--1}
++distance[0] 1,$11 +distance[0] 0,$11 *. -1 +[0] 1 +[0,-2,-1]
+m={$9%*{0,im}} M={$10%*{0,iM}}
+-[0] $m *[0] {1,(w-2)/($M-$m)} +[0] 1
+round[0] map[0] .
+} }
+rm.
+_fx_custom_gradient0 :
+if $16 4,8,1,1,${18-56} permute. yzcx
+else 8,1,1,3 srand $17 rand. 0,255 to_rgba.
+fi
+z. 0,{$5-1}
+if $13
+r. {200*$6}%,1,1,4,0,2
+__fx_custom_gradient0. $12,$8
+shift. {-round(w*0.5*$7%)},0,0,0,2 z. 0,{w/2-1}
+else
+__fx_custom_gradient0. $12,$8
+r. {100*$6}%,1,1,4,0,2 shift. {-round(w*$7%)},0,0,0,2
+fi
+__fx_custom_gradient0 :
+if $1==1 sh. 0,2 rgb2hsv. rm.
+elif $1==2 sh. 0,2 srgb2rgb. rgb2lab. rm.
+fi
+r. {$2*w},1,1,4,3
+if $1==1 sh. 0,2 hsv2rgb. rm.
+elif $1==2 sh. 0,2 lab2rgb. rgb2srgb. rm.
+fi
+_fx_custom_gradient1 :
+b $2%
+if $1==0
+to_a split_opacity
+if iM>im+32
+rm.. >=[0] {100-$3}%
+else
+rm. norm n 0,1
+if ia>0.5 <=[0] $3% else >=[0] {100-$3}% fi
+fi
+elif $1==1
+remove_opacity norm <= $3%
+elif $1==2
+remove_opacity norm >= {100-$3}%
+else
+to_a channels 100% >= {100-$3}%
+fi
+fx_line_gradient : skip "${10=}"
+_fx_line_gradient $*
+if narg("$10")
+dir_ggr=${-path_gimp}gradients
+0 => ${"normalize_filename \"$10\""} name_ggr={b} rm. output_ggr. $dir_ggr/$name_ggr.ggr,"$10"
+fi
+r 100%,64,1,100%
+fx_line_gradient_preview :
+foreach {
+to_rgba
+if $9 +_fx_line_gradient $* fi
+l[0] {
+line $1%,$2%,$3%,$4%,1,0xF0F0F0F0,255,255,255,255
+line $1%,$2%,$3%,$4%,1,0x0F0F0F0F,0,0,0,255
+}
+if $!>1 r. {{0,w}-32},32,1,4,1 frame. 1,1,0,0,0,255 j[0] [1],16,{{0,h}-48} rm. fi
+}
+_fx_line_gradient :
+at_line $1%,$2%,0,$3%,$4%,0 r {max(0.1,$5)}%,1,1,100%,1
+m "feature1 : channels 0"
+m "feature2 : channels 1"
+m "feature3 : channels 2"
+m "feature4 : to_rgb luminance"
+m "feature5 : to_rgb rgb2ycbcr channels 1"
+m "feature6 : to_rgb rgb2ycbcr channels 2"
+m "feature7 : to_rgb srgb2rgb rgb2lab channels 0"
+if $7 foreach { +feature$7 rv a y sort +,x rows 1 } fi
+if $6 r $6,1,1,100%,3 fi
+if $8 mirror x fi
+fx_linear_gradient : skip ${13=0}
+foreach {
+wh={w},{h} rm
+($1^$2^$3^$4) ($5^$6^$7^$8)
+if $9 rv[-2,-1] fi
+r $wh
+_gb_fwd $13
+fade_linear $10,$11,$12
+_gb_bwd $13
+}
+fx_radial_gradient : skip ${14=0}
+foreach {
+wh={w},{h} rm
+($1^$2^$3^$4) ($5^$6^$7^$8)
+if $9 rv[-2,-1] fi
+r $wh
+_gb_fwd $14
+100%,100% =. 1,$12%,$13% distance. 1 _fade $10,$11
+_gb_bwd $14
+}
+fx_random_gradient :
+foreach {
+to_rgba 100%,100% srand $2
+eval "repeat ($1,n,
+x = round(u(w-1));
+y = round(u(h-1));
+i(x,y) = 1;
+i(#0,x,y,0,0) = round(u(255));
+i(#0,x,y,0,1) = round(u(255));
+i(#0,x,y,0,2) = round(u(255));
+i(#0,x,y,0,3) = $7*255 + (1-$7)*round(u(255));
+)"
+if $7!=1 sh.. 100% n. 0,255 rm. fi
+==. 0
+sh.. 0,2 srgb2rgb. rm.
+inpaint_pde.. [1],100%,1 rm.
+b $3% n 0,255
+sh 0,2 rgb2srgb. balance_gamma. ${4-6} rm.
+}
+gtutor_hairlock :
+($4^$5^$6)
+rgb2hsl.
+hue={i[0]}
+sat={0.97*i[1]}
+light={i[2]}
+opac={$7/255}
+var={0.1*$8}
+rm.
+repeat $!
+l[$>]
++diffusiontensors. 1,0,0.1,{8*$1},0
+diffusiontensors.. 0,1,0.1,{20*$1},0
+eigen[-2,-1]
+rm.
+s. c
+rm.
+*. -1
++.
+n. 0,1
+mv. 0
+s.. c
+rm...
+*.. -1
++.. 1
++*.. 0
+rv[-1,-2]
+a[-3,-2] c
+eigen2tensor[-2,-1]
+100%,100%,1,3
+_hcolor. $hue,$sat,$light,$var,{0.05+0.5*$2},0.98,1
+dilate_circ. {2+2*$2}
++luminance.
+gt. 0.01
+*[-4,-1]
+n. 0,255
+replace_color. 0,0,0,0,0,$4,$5,$6
+rv[-2,-1]
+repeat 3
+smooth[-3,-2] .,{5+595*$3}
+done
+rm.
+rv[-2,-1]
+sharpen. {1.2*(1-$2)}
+n. 0,1
++_hlight. $9,$10,1
+*. ...
++[-3,-1]
++_hlight. $9,$10,$11
+...,...,...,...,255,255,255
+image[-4] .,0,0,0,0,1,..
+k[-4,-3]
+n. 0,{51*(1+4*$opac)}
+a[-2,-1] c
+n. 0,255
+done
+done
+gtutor_hairlock_preview :
+gui_split_preview "gtutor_hairlock ${^0}",$-1
+_hlight : check "${1=45}<=360 && $1>=0 && ${2=0.5}>=0 && ${3=0.5}>=0"
+if $2>0
+r2dx. 400%,5
+b. 2,1
+gradient_orientation. 2
+a[-2,-1] c
+({cos(2*$1*pi/360)}^{sin(2*$1*pi/360)})
+r. ..,..,.,.,1
+*[-2,-1]
+compose_channels. +
+cut. {ia},{iM}
+n. {195*$3-200},0
+exp.
+r2dx. 25%,5
+n. 0,{$2}
+else
+fill_color. 0
+fi
+to_rgb.
+#@cli _hcolor : h_mean,s_mean,l_mean,var,density,coverage,is_mod
+#@cli : Plot in selected images impulses centered around h,s,l means +/- var
+#@cli : at relative 0<=density<=1 wrt 1/2 image area: related to density=1
+#@cli : coverage: wrt image area, relative coverage 0<=coverage<=1 smaller
+#@cli : values give rise to unplotted regions around edges equal 1.0-coverage.
+#@cli : is_mod, boolean, if true, wraps negative values around to one.
+#@cli : Default values: mean=40,var=0,density=0.5,coverage=1,is_mod=True
+_hcolor : skip ${1=40},${2=0.5},${3=0.5},${4=0},${5=0.5},${6=1},${7=1}
+repeat $!
+l[$>]
+pcnt={0.5*w*h*$5}
+{$pcnt},1,1,1,({0,w}*(1-$6)/2)+{0,w}*$6*u
+{$pcnt},1,1,1,({0,h}*(1-$6)/2)+{0,h}*$6*u
+{$pcnt},1,1,1
+ra={$1/360.0}
+if $7
+{$pcnt},{s},1,1,360.0*($ra+$4*(2*g-1))%1
+{$pcnt},{s},1,1,($2+$4*(2*g-1))%1
+{$pcnt},{s},1,1,($3+$4*(2*g-1))%1
+else
+{$pcnt},{s},1,1,360.0*($ra+$4*(2*g-1))
+{$pcnt},{s},1,1,$2+$4*(2*g-1)
+{$pcnt},{s},1,1,$3+$4*(2*g-1)
+fi
+a[^0] y
+pointcloud. 0,{-2,w},{-2,h},1,{-2,s}
+rm..
+hsl2rgb.
+done
+done
+fx_hypotrochoid :
+{0,[w,h]*($10?1.5:1)}
+eval "
+const M = min(w,h)/2;
+const A = M*$2%;
+const B = A*$3%;
+const H = B*$4%;
+const S = M*$5%;
+const F = (A - B)/max(1e-5,B);
+const AmB = A - B;
+hypotrochoid(t) = (_t = t; round([ w/2 + AmB*cos(_t) + H*cos(F*_t), h/2 + AmB*sin(_t) - H*sin(F*_t) ]));
+oX = hypotrochoid(t);
+dt = 1;
+for (t = 0, t<$1*2*pi,
+do (
+X = hypotrochoid(t + dt);
+dist = abs(X[0] - oX[0]) | abs(X[1] - oX[1]);
+!dist?(dt*=2):
+dist>1?(dt/=1.25):
+(t+=dt),
+dist!=1;
+);
+S<1?(I(X) = $9):ellipse(X,S,S,0,1,$9);
+oX = X;
+)"
+r. [0],[0],1,1,2
+channels. -3,0 sh. 0,2 fc. ${6-8} rm.
+blend[0,-1] alpha
+fx_lightning :
+foreach {
+100%,100%
+l. {
+fact={max(w,h)/$3*$2%} srand $11
+repeat $1 {
+if $!<=1
+i=0
+new_level=1
+new_length=$3
+new_x=0
+new_y=0
+new_angle=$14
+else
+i={round(u(1,max(1,($!-1)*$6)))}
+level={$i,@-2}
+angle={$i,@-1}
+nb_points={$i,i[6]}
+p={round(($nb_points-2)*u($17%,$18%))}
+new_level={$level+1}
+new_length={max(2,round(($nb_points-$p)*u($19%,$20%)))}
+new_x={$i,i[8+3*$p]}
+new_y={$i,i[9+3*$p]}
+new_angle={$angle+u($21,$22)*if(u>0.5,1,-1)}
+fi
+_fx_lightning $new_length,$4,$5
+r3d. 0,0,1,$new_angle
++3d. $new_x,$new_y
++*3d. $fact [0],[0] j3d. ..,$12%,$13%,0,1,1,0,0 rm..
+dilation={$15*(if($23>0,1.5,10)^($23*($new_level-1)))}
+blur={max(0,-1+(1+$16)*(if($24>0,2,5)^($24*($new_level-1))))}
+opacity={min(1,$10/255*(2^($25*($new_level-1))))}
+dilate. $dilation b. $blur% n. 0,1 *. $opacity max[0,-1]
+($new_level;$new_angle) a[-2,-1] y
+progress {($>*100)/($1-1)}
+}
+k[0] * 255 i[0] 100%,100%,1,3 fc[0] ${7-9} a c
+}
+rv
+}
+fx_lightning_preview :
+foreach { fx_lightning $* rv blend alpha }
+_fx_lightning :
+l[] {
+({'CImg3d'},$1,{$1-1})
+1,$1 noise. $2,1 cumulate. b. $3 shift. 0,1 1,100%,1,1,y 1,100% a[-3--1] x
+1,{h-1},1,1,2 +f. y ++. 1 a[-3--1] x
+4,100%,1,1,1
+y a y
+}
+fx_lissajous :
+foreach {
+to_rgba
+{w},{h}
+f3d {0.5*max(w,h)/tan($4*pi/360)}
+lissajous3d $1,$5,$8,$6,$9,$7,$10
+r3d. 0,0,1,$13 r3d. 0,1,0,$12 r3d. 1,0,0,$11
+*3d. {0.5*$2*{-2,w}},{0.5*$3*{-2,h}},{0.5*$4*max({-2,w},{-2,h})}
+col3d. 1 j3d.. .,50%,50%,0,1,1,0,0 rm.
+distance. 1 >. $14% *.. . ==. 0
+r. 100%,100%,1,4
+sh. 0 *. $15 rm.
+sh. 1 *. $16 rm.
+sh. 2 *. $17 rm.
+sh. 3 *. $18 rm.
++[-2,-1]
+}
+fx_mandelbrot :
+if !narg($_size) _size={max(w,h)} fi
+rm $_size,$_size
+mandelbrot ${1-4},$6,{$5?[1,$7,$8]:[0,0,0]}
+srand $11 $9,1,1,3 rand. 0,255 r. {$9*$10},1,1,3,3 point. 0 map.. .,3 rm.
+fx_mandelbrot_preview :
+_size={min(${-gui_preview_wh})}
+if "$15 || $16 || $17"
+x0,y0,x1,y1={"P0 = [${1,2}];
+dP = [${3,4}] - P0;
+C = P0 + [${12,13}]%*dP;
+zfact = $14*($15?1:$16?0:-2);
+dC = 0.5*dP*(1 - 0.98*zfact);
+[C - dC,C + dC]"}
+status=\{$x0\}\{$y0\}\{$x1\}\{$y1\}\{$5\}\{$6\}\{$7\}\{$8\}\{$9\}\{$10\}\{$11\}\{50,50\}\{$14\}\{0\}\{0\}\{0\}\{$18\}
+px,py=50
+else
+x0,y0,x1,y1=${1-4}
+status=
+px,py=${12,13}
+fi
+fx_mandelbrot $x0,$y0,$x1,$y1,${5--1}
+x0r,y0r,x1r,y1r={"C = ["$px,$py"]%*w; dC = 0.5*w*(1 - 0.98*$14); round([C - dC, C + dC - 1])"}
+rectangle $x0r,$y0r,$x1r,$y1r,0.7,0xF0F0F0F0,255,255,255,255
+rectangle $x0r,$y0r,$x1r,$y1r,0.7,0x0F0F0F0F,0,0,0,255
+if $18 to "Z0 = ( "{_$x0}" , "{_$y0}" )\nZ1 = ( "{_$x1}" , "{_$y1}" )",2,2,16 fi
+u $status
+fx_neon_lightning :
+d={$13*255}
+foreach {
+100%,100%,1,4 rm[0]
+repeat $7 {
+x0={max(0,min(w,$1+u(-$3,$3)))} y0={max(0,min(h,$2+u(-$3,$3)))}
+x1={max(0,min(w,$4+u(-$6,$6)))} y1={max(0,min(h,$5+u(-$6,$6)))}
+u0={u(0,100)} v0={u(0,100)} u1={u(0,100)} v1={u(0,100)}
+R={max(0,min(255,u($10-$d,$10+$d)))}
+G={max(0,min(255,u($11-$d,$11+$d)))}
+B={max(0,min(255,u($12-$d,$12+$d)))}
+spline $x0%,$y0%,$u0%,$v0%,$x1%,$y1%,$u1%,$v1%,1,$R,$G,$B,1
+}
+s c,-3
+b[0] 3%
+distance. 1 *. -1 c. -{$9+1e-5},0 n. 0,1 sqrt.
++b. $8%,1 n. 0,1 sqrt. n[-2,-1] 0,255 max[-2,-1]
+. blend[0,1] value
+smooth 5,0,1,0.5,2,10,0
+/. 255 ^. $14 *. 255
+a c c 0,255
+}
+fx_newton_fractal : skip "${6=},${7=},${8=},${22=},${25=},${28=}"
+foreach {
+if !narg($_size) _size={max(w,h)} fi
+rm
+antialias={arg(1+$33,1,1.5,2,2.5,3,3.5,4)}
+{$antialias*[$_size,$_size]}
+if $5==1
+pz="z^^2 - 1" dpz="2*zn" d2pz="2"
+elif $5==2
+pz="z^^3 - 1" dpz="3*z^^2" d2pz="6*z"
+elif $5==3
+pz="z^^5 - 1" dpz="5*z^^4" d2pz="20*z^^3"
+elif $5==4
+pz="z^^6 + z^^3 - 1" dpz="6*z^^5 + 3*z^^2" d2pz="30*z^^4 + 6*z"
+elif $5==5
+pz="z^^8 + 15*z^^4 - 1" dpz="8*z^^7 + 60*z^^3" d2pz="56*z^^6 + 180*z^^2";
+else
+pz="$6" dpz="$7" d2pz="$8"
+fi
+if !narg($pz) pz="[1,0]" fi
+if !narg($dpz) dpz="[1,0]" fi
+if !narg($d2pz) d2pz="[1,0]" fi
+newton_fractal ${1-4},$38,$9,$10,{10^-$11},$pz,$dpz,$d2pz
+if $12==1
+channels 100%
+srand $15 $13,1,1,3 rand. 0,255 r. {$13*$14},1,1,3,3 point. 0 map.. .,3 rm.
+elif $12==2
+f "[ atan2(i1,i0),1,i2 ]" s c n... {[$17,$18]*360%} n. {[$19,$20]%} c. 0,1 a c
+${"arg0 $16,hsi,hsl,hsv"}2rgb
+else
+if $22
+s c,-2
+if $22&1 equalize 1024 fi
+if $22&2 /[-2] {-2,max(1e-5,abs(im),abs(iM))} n. 0,1 fi
+a c
+fi
+f "*begin(
+p(z) = ("$pz");
+dp(z) = ("$dpz");
+d2p(z) = ("$d2pz");
+);
+z = [ i0,i1 ];
+[ (0;$23),(0;$24),(0;$25) ]"
+if $26
+s c
+if $26&1 equalize 1024 fi
+if $26&2 normalize 0,1 fi
+a c
+fi
+* 255 mod 256
+if $21 ${"arg $21,hsi8,hsl8,hsv8,lab8"}2rgb fi
+fi
+r2dx $_size
+if $32 ac "+equalize 1024 j.. .,0,0,0,0,{$32%} rm.",ycbcr_y fi
+adjust_colors ${27-31},0,0,0,255
+}
+fx_newton_fractal_preview : skip "${6=},${7=},${8=},${22=},${25=},${28=}"
+is_custom_expression={$5==0?2:1}
+is_color_by_custom={$12==0?2:0}
+is_color_by_iter={$12==1?2:0}
+is_color_by_value={$12==2?2:0}
+_size0={min(${-gui_preview_wh})}
+_size={$_size0/arg(1+$44,1,1.5,2,2.5,3,3.5,4)}
+angle=$38
+if "$39 || $40 || $41"
+x0,y0,x1,y1={"P0 = [${1,2}];
+dP = [${3,4}] - P0;
+M = P0 + 0.5*dP;
+C = P0 + [${35,36}]%*dP;
+C = M + rot(-$38°)*(C - M);
+zfact = $37*($39?1:$40?0:-2);
+dC = 0.5*dP*(1 - 0.98*zfact);
+[ C - dC, C + dC ]"}
+px,py=50
+elif $42
+x0,y0,x1,y1=-2,-2,2,2
+px,py=50
+angle=0
+else
+x0,y0,x1,y1=${1-4}
+px,py=${35,36}
+fi
+fx_newton_fractal $x0,$y0,$x1,$y1,$5,"$6","$7","$8",${9-22},"$23","$24","$25",${26-32},0,${34-37},$angle,${39--1}
+foreach {
+r2dx $_size0,1
+x0r,y0r,x1r,y1r={"C = [ "$px,$py" ]%*w; dC = 0.5*w*(1 - 0.98*$37); round([ C - dC, C + dC - 1 ])"}
+rectangle $x0r,$y0r,$x1r,$y1r,0.7,0xF0F0F0F0,255,255,255,255
+rectangle $x0r,$y0r,$x1r,$y1r,0.7,0x0F0F0F0F,0,0,0,255
+if $43 to "Z0 = ( "{_$x0}" , "{_$y0}" )\nZ1 = ( "{_$x1}" , "{_$y1}" )",2,2,16 fi
+}
+u "{"$x0"}{"$y0"}{"$x1"}{"$y1"}{$5}""{$6}_"$is_custom_expression"{$7}_"$is_custom_expression"{$8}_"$is_custom_expression"{$9}{$10}{$11}{$12}""{$13}_"$is_color_by_iter"{$14}_"$is_color_by_iter"{$15}_"$is_color_by_iter"{$16}_"$is_color_by_value"{$17}_"$is_color_by_value"{$18}_"$is_color_by_value"{$19}_"$is_color_by_value"{$20}_"$is_color_by_value"{$21}_"$is_color_by_custom"{$22}_"$is_color_by_custom"{$23}_"$is_color_by_custom"{$24}_"$is_color_by_custom"{$25}_"$is_color_by_custom"{$26}_"$is_color_by_custom"{$27}{$28}{$29}{$30}{$31}{$32}{$33}""{$34}"_{$33==0?0:2}"{"$px,$py"}{$37}{"$angle"}{0}{0}{0}{0}{$43}{$44}"
+fx_plasma : skip ${4=0},${5=0}
+if $5 to_rgba else to_rgb fi
+if $4 rand 0,255 fi
+plasma $1,$2,$3 n 0,255
+balance_gamma ${6-8}
+fx_quick_copyright :
+i[0] 0 t[0] "$1",0,0,$2,1,$3,$4,$5 autocrop[0] 0 r[0] {{0,w}+2*$7},{{0,h}+2*$7},1,3,0,0,0.5,0.5
+i[1] 0 t[1] "$1",0,0,$2,1,1 autocrop[1] 0 r[1] {{1,w}+2*$7},{{1,h}+2*$7},1,1,0,0,0.5,0.5 dilate[1] {1+2*$7}
+rotate[0,1] {90*($10-1)}
+repeat $!-2 {
+if $8==0 j. [0],$9,$9,0,0,{$6/255},[1]
+elif $8==1 j. [0],{w-1-{0,w}-$9},$9,0,0,{$6/255},[1]
+elif $8==2 j. [0],$9,{h-1-{0,h}-$9},0,0,{$6/255},[1]
+else j. [0],{w-1-{0,w}-$9},{h-1-{0,h}-$9},0,0,{$6/255},[1]
+fi
+mv. 2
+}
+rm[0,1]
+fx_rainbow :
+foreach {
+100%,100% spline. 0,$1%,100,{-$3}%,100%,$2%,100,$4%,1,1
+flood. 0,0,0,0,0,1,1 flood. {w-1},0,0,0,0,1,1
+distance. 0 c. 0,255 n. 0,{$5*255}
+palette rainbow +luminance. c. 0,{min(100,200-$6)}% n. 0,255 a[-2,-1] c
+map.. . rm.
+if $6<100 sh. 3 *. {$6/100} rm. fi
+blend alpha
+}
+fx_shadebobs :
+channels 0 f 0
+foreach {
+t=0
+repeat $3 {
+repeat $1 {
+r={$6+$5*cos(6*$7*$t)+(1-$5)*sin(6*$8*$t)}
+a={(360*sin($7*$t)+30*$6*$>)*pi/180}
+ax={2*$>*pi/$1+$t}
+cx={(1+$9*cos($ax)+$r*cos($a))*w/2}
+cy={(1+$9*sin($ax)+$r*sin($a))*h/2}
+ellipse. $cx,$cy,$2%,$2%,0,-1,1
+}
+t+={$4%}
+}
+}
+& 255 if $10 map {$10-1} fi
+fx_sine_curve :
+preset,previous_preset,resolution,periods,dp,ratx,raty,ratz,mxa,mya,mza,mxb,myb,mzb,oxa,oya,oza,oxb,oyb,ozb,pxa,pya,pza,pxb,pyb,pzb,sxa,sya,sza,sxb,syb,szb,rotx,roty,rotz,zoom,focale,xc,yc,prev_xc,prev_yc,xr,yr,xa,ya,prev_xa,prev_ya,radius1,radius2,opacity,colR,colG,colB,antialiasing,preview_background=$*
+if !narg($_is_preview) _is_preview=0 fi
+if [$prev_xc,$prev_yc]!=[$xc,$yc]
+xr,yr,xa,ya,prev_xa,prev_ya+={d=[$xc,$yc]-[$prev_xc,$prev_yc];[d,d,d]}
+fi
+if [$prev_xa,$prev_ya]!=[$xa,$ya]
+delta_a={"
+a = [ "$xa" - "$xc", "$ya" - "$yc" ];
+b = [ "$prev_xa" - "$xc", "$prev_ya" - "$yc" ];
+(atan2(a[1],a[0]) - atan2(b[1],b[0]))*180/pi;
+"}
+xr,yr={[$xc,$yc]+rot($delta_a°)*[$xr-$xc,$yr-$yc]}
+else delta_a=0 fi
+if [$colR,$colG,$colB]==[0,0,0]" && "$preview_background==1 colR,colG,colB=255
+elif [$colR,$colG,$colB]==[255,255,255]" && "$preview_background==2 colR,colG,colB=0
+fi
+update_params=0
+if $preset!=$previous_preset
+periods=1
+ratx,raty,ratz=0.5,0.5,0
+mxa,mxb,mya,myb,mza,mzb=1,1,1,1,0,1
+oxa,oxb,oya,oyb,oza,ozb=90,90,0,0,0,0
+pxa,pxb,pya,pyb,pza,pzb=1
+sxa,sxb,sya,syb,sza,szb=0
+rotx,roty,rotz,zoom,focale=0,0,0,2,8
+if $preset==0
+ratx,raty,ratz=0 zoom=1
+elif $preset==1
+mxa,mxb,mya,myb=1,800,1,800 pxa,pxb,pya,pyb=1,3,1,4 sxa,sxb,sya,syb=0,1,0,2 oxa,oxb,oya,oyb=90,90,0,60
+elif $preset==2
+mxa,mxb,mya,myb=1,200,1,150 pxa,pxb,pya,pyb=1,3,1,4 sxa,sxb,sya,syb=0,1,0,2
+elif $preset==3
+mxa,mxb,mya,myb=9,512,1024,9 pxa,pxb,pya,pyb=1,3,1,4 sxa,sxb,sya,syb=0,1,0,2
+elif $preset==4
+mxa,mxb,mya,myb=80,1,80,1 pxa,pxb,pya,pyb=1,3,1,3
+elif $preset==5
+ratz=0.8 mza,mzb=7,1024 pza,pzb=1.6,2 rotz=45 zoom=1 focale=4
+elif $preset==6
+mxa,mxb,mya,myb=80,1,1,80 pxa,pxb,pya,pyb=1,3,1,3
+elif $preset==7
+mxa,mxb,mya,myb=150,1,1,100 pxa,pxb,pya,pyb=1,3,1,4 sxa,sxb,sya,syb=0,1,0,2
+elif $preset==8
+mxa,mxb,mya,myb=1,80,80,80 pxa,pxb,pya,pyb=1,3,1,4 sxa,sxb,sya,syb=0,1,0,2
+elif $preset==9
+mxa,mxb,mya,myb=2,200,200,1 pxa,pxb,pya,pyb=1,3,1,4 sxa,sxb,sya,syb=0,1,0,2
+elif $preset==10
+mxa,mxb,mya,myb=1,800,1,800 pxa,pxb,pya,pyb=1,3,1,3
+elif $preset==11
+mxa,mxb,mya,myb=1,10,1,10
+elif $preset==12
+mxa,mxb,mya,myb=1,400,1,200 pxa,pxb,pya,pyb=1,3,1,3 sxa,sxb,sya,syb=1,1,0,0
+elif $preset==13
+mxa,mxb,mya,myb=1,800,800,2 pxa,pxb,pya,pyb=1,3,1,4 sxa,sxb,sya,syb=0,1,0,2
+elif $preset==14
+mxa,mxb,mya,myb=1,30,1,60 pxa,pxb,pya,pyb=1,3,1,4 sxa,sxb,sya,syb=0,1,0,2
+elif $preset==15
+mxa,mxb,mya,myb=500,1,1,500 pxa,pxb,pya,pyb=1,3,1,4 sxa,sxb,sya,syb=0,1,0,2
+elif $preset==16
+mxa,mxb,mya,myb=1,80,80,1 pxa,pxb,pya,pyb=1,3,1,4 sxa,sxb,sya,syb=0,1,0,2
+elif $preset==17
+mxa,mxb,mya,myb=1,80,1,40 pxa,pxb,pya,pyb=1,3,1,4 sxa,sxb,sya,syb=0,1,0,2
+elif $preset==18
+ratx=0.6 mxa,mxb,mya,myb=9,400,200,9 pxa,pxb,pya,pyb=1,3,1,4 sxa,sxb,sya,syb=0,1,0,2
+fi
+fi
+W,H:=w#0?[w#0,h#0]:0$_is_preview" && "0$_preview_area_width?[0$_preview_area_width,0$_preview_area_height]:[1024,1024]
+nresolution={max(1,round($periods*1000000*($resolution%)^2))}
+nfocale={arg($focale,0.05,0.1,0.2,0.3,0.4,0.5,0.75,1,1.25,1.5,1.75,2,3,4,8,16,32,128,1024,16384)}
+noxa,noxb,noya,noyb,noza,nozb={[$oxa,$oxb,$oya,$oyb,$oza,$ozb]*pi/180}
+nantialiasing={arg0($antialiasing,1,1.25,1.5,2,3)}
+rW,rH={[$W,$H]*$nantialiasing}
+l[] {
+$nresolution,1,1,2,"*
+begin(
+const is_rot = "$rotx" || "$roty" || "$rotz";
+ref(rot(1,0,0,"$rotx"°),Rx);
+ref(rot(0,1,0,"$roty"°),Ry);
+ref(rot(0,0,1,"$rotz"°),Rz);
+R = mul(Rz,mul(Ry,Rx,3),3);
+const ang = atan2("$ya" - "$yc","$xa" - "$xc");
+const cosa = cos(ang);
+const sina = sin(ang);
+const c = 35;
+const dxr0 = "$xr" - "$xc";
+const dyr0 = "$yr" - "$yc";
+const dxr = cosa*dxr0 + sina*dyr0;
+const dyr = -sina*dxr0 + cosa*dyr0;
+const _dx = abs(dxr)/c; const dx = 2.5*c*(_dx<1?_dx:_dx^3);
+const _dy = abs(dyr)/c; const dy = 2.5*c*(_dy<1?_dy:_dy^3);
+);
+cpow(x,p,s) = (
+ref(x,_x);
+(!s?sign(_x):s==1?-sign(_x):s==2?-1:1)*abs(_x)^p
+);
+t = x/w*2*pi*"$periods";
+X = lerp(cpow(sin("$mxa"*t + "$noxa"),"$pxa","$sxa"),
+cpow(sin("$mxb"*t + "$noxb"),"$pxb","$sxb"),
+"$ratx");
+Y = lerp(cpow(sin("$mya"*t + "$noya"),"$pya","$sya"),
+cpow(sin("$myb"*t + "$noyb"),"$pyb","$syb"),
+"$raty");
+Z = lerp(cpow(sin("$mza"*t + "$noza"),"$pza","$sza"),
+cpow(sin("$mzb"*t + "$nozb"),"$pzb","$szb"),
+"$ratz");
+X*=dx%;
+Y*=dy%;
+is_rot?(P = R*[ X,Y,Z ]; X = P[0]; Y = P[1]; Z = P[2]);
+X*="$nfocale";
+Y*="$nfocale";
+Z = max(1e-5,Z + 1 + "$nfocale");
+pX = X/Z;
+pY = -Y/Z;
+ang?(X = cosa*pX - sina*pY; pY = sina*pX + cosa*pY; pX = X);
+const ax = "$zoom*$rW"; const bx = "$xc*$rW"%;
+const ay = "$zoom*$rH"; const by = "$yc*$rH"%;
+[ ax*pX + bx, ay*pY + by ]"
+$rW,$rH
+eval.. "*
+const mwh = min(w#-1,h#-1)*5%;
+const r1 = max(0.01,mwh*"$radius1"%);
+const r2 = max(0.01,mwh*"$radius2"%);
+const Mr = max(r1,r2);
+const opacity = ("$opacity"%)^3;
+X = R; Y = G;
+Mr<0?(
+i(#-1,X,Y) = lerp(i(#-1,X,Y),1,opacity);
+):(
+pX = i(x - 1,0,0,0);
+pY = i(x - 1,0,0,1);
+dX = X - pX;
+dY = Y - pY;
+ang = atan2(dY,dX)*180/pi;
+ellipse(#-1,X,Y,r1,r2,ang°,opacity,255);
+);
+I"
+rm..
+r. $W,$H,1,1,2 n 0,255
+i[0] 100%,100%,1,3 fc[0] $colR,$colG,$colB
+a[-2,-1] c
+}
+if 0$_is_preview
+if $!==1 i[0] $W,$H,1,3 fi
+if $preview_background [0],[0] f. {$preview_background==1?0:255} to_rgb. rv[0,-1] rm. fi
+blend[0,-1] alpha
+line. $xc%,$yc%,$xr%,$yr%,0.75,0xF0F0F0F0,238,0,85
+line. $xc%,$yc%,$xr%,$yr%,0.75,0x0F0F0F0F,255
+line. $xc%,$yc%,$xa%,$ya%,0.75,0xF0F0F0F0,238,85,0
+line. $xc%,$yc%,$xa%,$ya%,0.75,0x0F0F0F0F,0
+fi
+mv. 0
+if 0$_output_mode k[0] fi
+r,m,o,p,s,a={d=$dp;[d==0?2:0,d==1?2:0,d==2?2:0,d==3?2:0,d==4?2:0,d==5?2:0]}
+u "{"$preset"}{"$preset"}{"$resolution"}{"$periods"}{"$dp"}""{"$ratx"}_"$r"{"$raty"}_"$r"{"$ratz"}_"$r"{"$mxa"}_"$m"{"$mya"}_"$m"{"$mza"}_"$m"{"$mxb"}_"$m"{"$myb"}_"$m"{"$mzb"}_"$m"{"$oxa"}_"$o"{"$oya"}_"$o"{"$oza"}_"$o"{"$oxb"}_"$o"{"$oyb"}_"$o"{"$ozb"}_"$o"{"$pxa"}_"$p"{"$pya"}_"$p"{"$pza"}_"$p"{"$pxb"}_"$p"{"$pyb"}_"$p"{"$pzb"}_"$p"{"$sxa"}_"$s"{"$sya"}_"$s"{"$sza"}_"$s"{"$sxb"}_"$s"{"$syb"}_"$s"{"$szb"}_"$s"{"$rotx"}_"$a"{"$roty"}_"$a"{"$rotz"}_"$a"{"$zoom"}_"$a"{"$focale"}_"$a"{"$xc,$yc"}{"$xc"}{"$yc"}{"$xr,$yr"}{"$xa,$ya"}{"$xa"}{"$ya"}{"$radius1"}{"$radius2"}{"$opacity"}""{"$colR,$colG,$colB"}{"$antialiasing"}""{"$preview_background"}"
+fx_sine_curve_preview :
+_is_preview=1
+fx_sine_curve $*
+k[0]
+fx_superformula :
+foreach {
+to_rgba
+{w},{h}
+f3d {0.5*max(w,h)/tan($4*pi/360)}
+superformula3d $1,${4-7}
+r3d. 0,0,1,$10 r3d. 0,1,0,$9 r3d. 1,0,0,$8
+*3d. {0.5*$2*{-2,w}},{0.5*$3*{-2,h}}
+col3d. 1 j3d.. .,50%,50%,0,1,1,0,0 rm.
+distance. 1 >. $11% *.. . ==. 0
+r. 100%,100%,1,4
+sh. 0 *. $12 rm.
+sh. 1 *. $13 rm.
+sh. 2 *. $14 rm.
+sh. 3 *. $15 rm.
++[-2,-1]
+}
+fx_symmetric_shape2d :
+if !narg($_is_preview) _is_preview=0 fi
+foreach {
+100%,100%,1,4 _fx_symmetric_shape2d. $* rv
+if !0$_is_preview" && "0$_output_mode rm. fi
+}
+_fx_symmetric_shape2d :
+(${10-21}) f. "isnan(i)?-1024:i" discard. -1024 r. 2,{h/2},1,1,-1 permute. cyzx
+f. "x = R - $2; y = G - $3; [ atan2(y,x), norm(x,y) ]"
+l. { n={h} .x{$1-1} a y f "const pi2 = 2*pi; [ (R + int(y/"$n")*pi2/$1)%pi2, G ]" sort +,y }
+f. "[ $2*w#-2,$3*h#-2 ]/100 + [ G*cos(R), G*sin(R) ]*(min(w#-2,h#-2)-1)%" permute. cyzx
+coords={^} rm.
+if $22 polygon {narg($coords)/2},$coords,1,${23-25},{$26*255%}
+else polygon {narg($coords)/2},$coords,1,0xFFFFFFFF,${23-25},{$26*255%}
+fi
+fx_symmetric_shape2d_preview :
+_fx_symmetric_shape2d_preview $*
+_fx_symmetric_shape2d_preview :
+_is_preview=1
+cx1,cy1,cx2,cy2,cx3,cy3,cx4,cy4,cx5,cy5,cx6,cy6=${10-21}
+angx,angy=$6,$7
+if [$2,$3]!=[$4,$5]" || "[$angx,$angy]!=[$8,$9]
+dx,dy={[$2-$4,$3-$5]}
+repeat 6 { i={1+$>}
+cx$i,cy$i={"
+const cx = "${cx$i}";
+const cy = "${cy$i}";
+dang = atan2($7 - $3,$6 - $2) - atan2($9 - $3,$8 - $2);
+dsca = norm($6 - $2,$7 - $3)/norm($9 - $3,$8 - $2);
+[ $2,$3 ] + dsca*rot(dang)*[ cx - $4, cy - $5 ]"}
+}
+angx,angy={[$6+$2-$4,$7+$3-$5]}
+fi
+foreach {
+r {s=min(w,h);[s,s]},1,100%,0,0,0.5,0.5
+fx_symmetric_shape2d ${1-9},$cx1,$cy1,$cx2,$cy2,$cx3,$cy3,$cx4,$cy4,$cx5,$cy5,$cx6,$cy6,${22-26}
+rv blend alpha
+eval "
+t0 = atan2($7 - $3,$6 - $2);
+repeat ($1,k,
+const pi2 = 2*pi;
+const xc = $2*(w-1)%;
+const yc = $3*(h-1)%;
+x = xc + (w+h)*cos(t0 + 2*pi*k/$1);
+y = yc + (w+h)*sin(t0 + 2*pi*k/$1);
+polygon(-2,xc,yc,x,y,0.35,0xF0F0F0F0,255);
+polygon(-2,xc,yc,x,y,0.35,0x0F0F0F0F,0);
+)"
+}
+u "{$1}"\
+"{$2,$3}"\
+"{$2,$3}"\
+"{"$angx,$angy"}"\
+"{"$angx,$angy"}"\
+"{"$cx1,$cy1"}"\
+"{"$cx2,$cy2"}"\
+"{"$cx3,$cy3"}"\
+"{"$cx4,$cy4"}"\
+"{"$cx5,$cy5"}"\
+"{"$cx6,$cy6"}"\
+"{$22}"\
+"{$23,$24,$25}"\
+"{$26}"
+cl_tangentialCircle:
+showBig,radi,dime,wid,nb,lvl,backR,backG,backB,foreR,foreG,foreB,effect=$*
+grow=3
+dimens={$radi*$grow}
+rectWid={if($dime==1||$dime==2,w,$dimens)}
+rectHei={if($dime==1||$dime==2,h,$dimens)}
+chanNumb={if($effect,4,3)}
+$rectWid,$rectHei,1,$chanNumb,255
+radius={if($dime==2,$radi/300*min(w,h),$radi)}
+local.
+xC={w/2}
+yC={h/2}
+if $effect==1
+backR,backG,backB=$foreR,$foreG,$foreB
+elif $effect>=7
+backR,backG,backB=255,255,255
+foreR,foreG,foreB=0,0,0
+fi
+foreA=255
+backA={if($effect==1,0,255)}
+if $showBig==1
+cl_circ. $xC,$yC,$radius,$wid
+else
+n. 0,255
+fi
+cl_innerCirc. $xC,$yC,$radius,$wid,$nb,$lvl
+blend screen,1
+n. 0,1
+if $effect<=1
+fill. [i*$foreR+(1-i)*$backR,i*$foreG+(1-i)*$backG,i*$foreB+(1-i)*$backB,i*$foreA+(1-i)*$backA]
+elif $effect==2
+fx_rodilius. 15,1,0,$nb,90,0,1,0,0
+n. 0,1
+fill. [i*$foreR+(1-i)*$backR,i*$foreG+(1-i)*$backG,i*$foreB+(1-i)*$backB,i*$foreA+(1-i)*$backA]
+n. 0,255
+elif $effect==3
+fx_curvature 10,0,100,0,0
+fx_gradient2rgb 0,0,100,0,0
+apply_curve 1,0,0,16,240,255,255
+fx_smooth_antialias. 15,0,1,0,50,50
+fx_smooth_antialias. 50,50,2.5,0,50,50
+elif $effect==4
+fx_dog 1.4,1.5,0,0,0
+fx_gradient2rgb 0,0,100,0,0
+apply_curve 1,0,0,64,192,255,255
+fx_smooth_antialias. 15,0,1,0,50,50
+fx_smooth_antialias. 50,50,2.5,0,50,50
+elif $effect==5
+dog. 1.4,1.5
+remove_opacity.
+n. 0,255
+elif $effect==6
+fx_dog. 1.4,1.5,0,0,0
+apply_curve. 1,0,0,16,0,255,255
+cut. 0,255
+fx_distance. 0,2,1,0
+negate. [-1] [-1]
+fx_decompose_channels 8,1,1,0
+l.
++apply_curve. 1,0,0,240,16,255,255
+l.
+b. 2.5
+gradient2rgb. 0 n. 0,255
+[-1]
+rgb2hsv[-2,-1] split[-2,-1] c
+l[-3--1] +[-3] {315} %[-3] 360 done
+l[-6--4] +[-3] {135} %[-3] 360 done
+l[-3--1] a c hsv2rgb s c done
+l[-6--4] a c hsv2rgb s c done
+rm[^-6,-3]
+negate..
+/ 2
++. 128
+blend grainmerge,1
+done
+to_rgb
+blend grainmerge,1
+done
+fx_smooth_antialias. 15,0,1,0,50,50
+fx_smooth_antialias. 50,50,2.5,0,50,50
+sharpen 300
+elif $effect>=7
+fill. [i*$foreR+(1-i)*$backR,i*$foreG+(1-i)*$backG,i*$foreB+(1-i)*$backB,i*$foreA+(1-i)*$backA]
+remove_opacity.
+split. c rm. rm..
++fx_morphological. 0,2,10,"1,0,1; 0,1,0; 1,0,1",0,0,0,0
++fx_morphological. 0,2,20,"1,0,1; 0,1,0; 1,0,1",0,0,0,0
+if $effect==8 reverse[-3,-1] fi
+a c
+fi
+done
+mv[-1] 0
+if $dime==3 resize[0] {min(w,h)/3}%,{min(w,h)/3}%,1,$chanNumb,5 fi
+average_colors : average_vectors
+covariance_colors : covariance_vectors
+median_color :
+u {"expr('med(crop(#-1,0,0,0,y,w#-1,h#-1,d#-1,1))',1,3)"}
+gui_rep_tfrac:
+srand $35
+if !$2 rep_thorn_fractal $1,${3-14}
+else
+if $2==1 formulas="$15","$16"
+elif $2==2 formulas="$15","$16","$17","$18"
+elif $2==3 formulas="$15","$16","$17","$18","$19","$20"
+elif $2==4 formulas="$15","$16","$17","$18","$19","$20","$21","$22"
+elif $2==5 formulas="$15","$16","$17","$18","$19","$20","$21","$22","$23","$24"
+fi
+if $25
+if $26 rep_thorn_fractal {-1*$2},${3-14},$formulas,"$27","$28","$29","$30",{$31*($32?-1:1)}
+else rep_thorn_fractal {-1*$2},${3-14},$formulas,"$27","$28",{$31*($32?-1:1)}
+fi
+else rep_thorn_fractal {-1*$2},${3-14},$formulas
+fi
+fi
+if $33==0 n 0,255
+elif $33==1 n 0,360 r 100%,100%,100%,3 f [i0,1,1] hsv2rgb
+else n 0,1 $34,1,1,1 f. u(x/w#-1,(x+1)/w#-1) n. 0,16777215 r. 100%,100%,1,3 f. [i0-256*floor(i0/256),floor(i0/256)-256*floor(floor(i0/256)/256),i0/(256^2)] r. 4096,1,100%,100%,5 r[^-1] 100%,100%,100%,3 f[^-1] i(#-1,i0*w#-1,0,z,c,2) rm.
+fi
+gui_rep_tfrac_preview:
+gui_rep_tfrac ${1-14},"$15","$16","$17","$18","$19","$20","$21","$22","$23","$24",$25,$26,"$27","$28","$29","$30",${31-35}
+set_a={$2>=1?2:0}
+set_b={$2>=2?2:0}
+set_c={$2>=3?2:0}
+set_d={$2>=4?2:0}
+set_e={$2>=5?2:0}
+set_f={$2?($25&&abs($31)?2:1)}
+set_g={$2?($26&&abs($31)?($25?2:1):1)}
+set_h={$2?($25?2:1)}
+set_i={$33==2?2:0}
+u "{$1}_"{!$2?2:1}"{$2}""{$3}""{$4}""{$5}""{$6}""{$7}""{$8}""{$9}""{$10}""{$11}""{$12}""{$13}""{$14}""{$15}_"$set_a"{$16}_"$set_a"{$17}_"$set_b"{$18}_"$set_b"{$19}_"$set_c"{$20}_"$set_c"{$21}_"$set_d"{$22}_"$set_d"{$23}_"$set_e"{$24}_"$set_e"{$25}_"{$2?2}"{$26}_"$set_f"{$27}_"$set_f"{$28}_"$set_f"{$29}_"$set_g"{$30}_"$set_g"{$31}_"$set_h"{$32}_"$set_h"{$33}""{$34}_"$set_i"{$35}_"$set_i
+rep_generate_thorn_fractal_expression_generator:
+v1,v2,started=0
+previous_r_choice=-1
+if u<.5 status a symbol,mode=a,0
+else status b symbol,mode=b,1
+fi
+do
+v2+=1
+if u<$v1||$v2>6
+if $started break fi
+else
+v1:=$v1+u(-.2,.2)
+r:=u(13.1)
+r_choice:=int(u(0,4,1,0))
+if $r_choice==$previous_r_choice
+if u<.5 r_choice=($r_choice+1)%4
+else r_choice=($r_choice-1)%4
+fi
+fi
+if $mode symbol,mode=a,0
+else symbol,mode=b,1
+fi
+if $r<1 status cos(${})
+elif $r<2 status sin(${})
+elif $r<3 status tan(${})
+elif $r<4 status logabs(${})
+elif $r<5 status norm(${},$symbol)
+elif $r<6 status sqr(${})
+elif $r<7 status ${}/${arg\ 1+$r_choice,cos($symbol),sin($symbol),tan($symbol),logabs($symbol)}
+elif $r<8 status ${}*${arg\ 1+$r_choice,cos($symbol),sin($symbol),tan($symbol),logabs($symbol)}
+elif $r<9 status ${}+${arg\ 1+$r_choice,cos($symbol),sin($symbol),tan($symbol),logabs($symbol)}
+elif $r<10 status ${}-${arg\ 1+$r_choice,cos($symbol),sin($symbol),tan($symbol),logabs($symbol)}
+elif $r<11 status ${arg\ 1+$r_choice,cos($symbol),sin($symbol),tan($symbol),logabs($symbol)}/${}
+elif $r<12 status abs(${})
+elif $r<13 status avg($symbol,${})
+else status (${})
+fi
+previous_r_choice=$r_choice
+started=1
+fi
+while !((u<$v1&&$v2>1)||$v2>6)
+('${}')
+fill[-1] >"begin(
+const _a=_'a';
+const _b=_'b';
+separators='(,)';
+mode=0;
+old_char=0;
+previous_a_b_char=0;
+);
+if(isin(i,_a,_b),
+back_char=j(-1);
+front_char=j(1);
+if((back_char==separators[0]||back_char==separators[1])&&(front_char==separators[1]||front_char==separators[2]),
+mode?(
+check_with_previous_a_b_char=i==previous_a_b_char;
+if(check_with_previous_a_b_char,
+if(i==_a
+,previous_a_b_char=_b;_b;
+,previous_a_b_char=_a;_a;
+);
+,previous_a_b_char=i;i;
+);
+):(
+mode=1;
+previous_a_b_char=i;
+i;
+);
+,i);
+,i);
+"
+out={t}
+remove[-1]
+status $out
+_fx_tree:
+recursion_depth,random_seed,xratio,yratio,trunk_thickness,base_thickness,trunk_angle,avg_branching,std_branching,avg_leftangle,avg_rightangle,std_angle,avg_length,std_length,avg_thickness,std_thickness,Rt,Gt,Bt,At,Ot,Rl,Gl,Bl,Al,Ol,gammaRGBA,gammaO=${1-28}
+W,H,S={[w,h,min(w,h)]}
+l[] {
+if $2 srand $2 fi
+1,1,1,9,"
+const h_thickness = "$trunk_thickness"%/2;
+const hb_thickness = h_thickness*"$base_thickness"%;
+R = rot("$trunk_angle"°);
+C = [ 0.5,0 ];
+P0 = C + R*[ -hb_thickness,0 ];
+P1 = C + R*[ hb_thickness,0 ];
+P2 = C + R*[ h_thickness,0.5 ];
+P3 = C + R*[ -h_thickness,0.5 ];
+[ P0,P1,P2,P3,0 ]"
+repeat $recursion_depth {
+1,8,1,9
+eval.. ">
+const dangle = "$avg_rightangle" - "$avg_leftangle";
+ref(I,val);
+ref(val[0,2],P0);
+ref(val[2,2],P1);
+ref(val[4,2],P2);
+ref(val[6,2],P3);
+ndepth = val[8] + 1;
+A = (P0 + P1)/2;
+B = (P2 + P3)/2;
+AB = B - A;
+thickness = norm(B - P2);
+N = round(cut("$avg_branching" + v*"$std_branching",1,6));
+Nm1 = N<=1?1:N - 1;
+repeat (N,n,
+ang = cut("$avg_leftangle" + dangle*n/Nm1 + v*"$std_angle",-90,90);
+len = cut("$avg_length" + u(-1,-1)*"$std_length",0,200);
+rot = rot(ang°);
+nB = B + len%*rot*AB;
+orth = (nB - B);
+orth/=norm(orth);
+orth = [ -orth[1],orth[0] ];
+nthickness = thickness*("$avg_thickness" + v*"$std_thickness")%;
+Q0 = nB + nthickness*orth;
+Q1 = nB - nthickness*orth;
+da_push([ P3,P2,Q1,Q0,ndepth ]);
+);
+end(resize(#-1,1,da_size(),1,s#-1,0)); val"
+}
+a y
+1,100%,1,4,"[ i0#-1,i2#-1,i4#-1,i6#-1 ]"
+1,100%,1,4,"[ i1#-2,i3#-2,i5#-2,i7#-2 ]"
+sx,sy={10^[$xratio,$yratio]}
+-.. 0.5 *.. {-2,$S*$sx/(2.1*max(abs(iM),abs(im)))} +.. {$W/2} *. {$S*$sy/(1.05*max(iM))}
+f... "round([ i0#-2,i0#-1,i1#-2,i1#-1,i2#-2,i2#-1,i3#-2,i3#-1,i8 ])"
+rm[-2,-1]
+eval "ref(I,T); P0 = T[0,2]; P1 = T[2,2]; P2 = T[4,2]; P3 = T[6,2];
+I[0] = [ lerp(P0,P2,-2),lerp(P1,P2,-2),P2,P3,0 ]"
+$W,$H,1,4
+eval.. ">
+begin(
+RGBAt = [ "$Rt,$Gt,$Bt,$At" ];
+RGBAl = [ "$Rl,$Gl,$Bl,$Al" ];
+const gRGBA = 10^"$gammaRGBA";
+const gO = 10^"$gammaO";
+);
+ref(I,val);
+t = val[8]/"$recursion_depth";
+RGBA = lerp(RGBAt,RGBAl,t^gRGBA);
+O = lerp("$Ot,$Ol",t^gO)%;
+polygon(#-1,4,val[0,8],O,RGBA);
+(i0==i2 && i1==i3) || (i4==i6 && i5==i7)?polygon(#-1,2,i0,i1,i4,i5,O,RGBA);
+val"
+mirror xy
+rm..
+}
+fx_tree :
+_fx_tree. $* mv. 0
+if 0$_output_mode k[0] fi
+fx_tree_preview :
+foreach { _fx_tree $* blend alpha }
+fx_turbulence :
+remove_opacity turbulence ${^0}
+fx_animate_preview : skip ${4=1},${5=0},${6=$5}
+repeat $! {
+if $5 width=$5 else width={w} fi
+if $6 height=$6 else height={h} fi
+if $4 s. x,2 else . fi
+-$1.. $2 -$1. $3
+r[-2,-1] {max(w,{-2,w})},{max(h,{-2,h})},1,100%,3
+if !$4 columns.. 0,50% columns. 50%,100% fi
+a[-2,-1] x r. $width,$height,1,100%,2 drgba.
+line. 50%,0,50%,100%,1,0,0,0,255
+to. "Start",3,-1,13,2,1,255 to. "End",{w-24},{h-18},13,2,1,255
+mv. 0 }
+banding_denoise_v2 :
+if !$5 _banding_denoise_v2 $*
+else
+ts:=arg($5,64,128,256,512,1024,2048)
+apply_tiles "_banding_denoise_v2 $*",$ts,$ts,1,20%,20%,1,3
+fi
+_banding_denoise_v2 :
+foreach { split_opacity l[0] {
++bilateral $3,$4 bilateral. $3,$4 -.. .
+fftpolar..
+polygon... 4,0,{(h/2)+1},{50-$1}%,{(h/2)+1},{50-$1}%,{(h/2)-1},0,{(h/2)-1}
+polygon... 4,{50+$1}%,{(h/2)+1},{w},{(h/2)+1},{w},{(h/2)-1},{50+$1}%,{(h/2)-1}
+polygon... 4,{(w/2)+1},0,{(w/2)+1},{50-$2}%,{(w/2)-1},{50-$2}%,{(w/2)-1},0
+polygon... 4,{(w/2)-1},{h},{(w/2)+1},{h},{(w/2)+1},{50+$2}%,{(w/2)-1},{50+$2}%
+ifftpolar[-3,-2]
++ c 0,255
+} a c }
+banding_denoise_v2_preview :
+if $6==0 gui_split_preview "banding_denoise_v2 $*",${-3--1}
+else foreach { remove_opacity +banding_denoise_v2 ${1--1} - * 6 + 128 c 0,255 }
+fi
+banding_denoise:
+repeat 2 +bilateral[-1] $3,$4 keep[0,-1] done
++compose_grainextract[0,1]
+fftpolar[-1]
+polygon[-2] 4,0,{(h/2)+1},{50-$1}%,{(h/2)+1},{50-$1}%,{(h/2)-1},0,{(h/2)-1}
+polygon[-2] 4,{50+$1}%,{(h/2)+1},{w},{(h/2)+1},{w},{(h/2)-1},{50+$1}%,{(h/2)-1}
+polygon[-2] 4,{(w/2)+1},0,{(w/2)+1},{50-$2}%,{(w/2)-1},{50-$2}%,{(w/2)-1},0
+polygon[-2] 4,{(w/2)-1},{h},{(w/2)+1},{h},{(w/2)+1},{50+$2}%,{(w/2)-1},{50+$2}%
+ifftpolar[-1,-2]
+compose_grainmerge[1,2]
+keep[-1]
+banding_denoise_preview:
+if $5==0
+banding_denoise ${1--1}
+else
++banding_denoise ${1--1}
+compose_grainextract[0,1]
+-[-1] 128 *[-1] 5 +[-1] 128
+fi
+#@cli afre_cleantext : 0<=clean<=10,0.2<=_range<=1,0<=_black<=100,0<=_white<=100
+#@cli : Clean scanned text.
+#@cli : Default values: 'clean=8', 'range=1', 'black=80' and 'white=95'.
+afre_cleantext : check "${1=8}>=0 && ${2=1}>=0.2 && ${3=80}>=0 && ${4=95}>=0 &&
+$1<=10 && $2<=1 && $3<=100 && $4<=100"
+e[] "[afre]^_^) cleantext: Clean scanned text using clean=$1, range=$2, black=$3 and white=$4."
+c={int(11-$1)*2+1} +dilate $c erode. $c - n 0,255
+retinex , norm n 0,1 f 1-gauss(i,$2)
+if $3!=$4 c $3%,$4% else c $3%,{$4+0.5}% fi n 0,255 round
+afre_cleantext_preview :
+afre_cleantext $*
+fx_deinterlace :
+deinterlace 0 skip ${^0}
+fx_deinterlace_preview :
+gui_split_preview "fx_deinterlace $*",${-3--1}
+gcd_deinterlace2x : skip ${1=40},${2=0},${3=0},${4=2},${5=0},${6=1}
+if $3
+ca={if($5,1,h/w)} na={arg($3,1,{4/3},{5/4},{16/9},{1.6},{2.35},{1.85})}
+r {$ca*$na*w},100%,1,3,{arg($4+1,3,5,6)} c 0,255
+fi if $2==3 return fi
+repeat $! l[$>]
+w={w} h={h} d={d} hh={int($h/2)} rgb2yuv s c
+l[0] +shift 0,-1 r $w,$hh,$d,1,4 done
+l[-2,-1] r $w,2,$d,$hh,-1 +shift 0,0,0,-1 r $w,2,$d,50%,4 r $w,$hh,$d,1,-1 done
+a[0,2,3] c a[^0] c yuv2rgb
+if $2==0 scale_dcci2x ,,1 r 50%,100%,1,3,4
+elif $2==1 gcd_upscale_edge 2 r 50%,100%,1,3,4
+else
+a={2/3} b={-1/12} ($b,$a,$b;$b,$a,$b;0,0,0) +convolve[^-1] . rm...
+r 100%,200%,1,3,4 shift[-2,-1] 0,1 +[-3,-1] +[-3,-1]
+fi
+c 0,255 shift. 0,1 +- +norm. a={-192^-.5/$1} ($a,$a,$a;$a,0,$a;$a,$a,$a)
+convolve.. . rm. max. -1 +. 1 *[-2,-1] -[0,-1] rm.
+done done
+gcd_deinterlace2x_preview :
+gcd_deinterlace2x ${1},{if($6,max(2,$2),$2)},${3--1}
+fx_denoise :
+if $3 delete ${-path_cache}gmic_denoise_cnn.gmz fi
+repeat $2 { denoise_cnn $1,64 progress {round(($>+1)/$2*100)} }
+fx_denoise_preview :
+r2din 280,280,0,0,0.5,0.5
+gui_split_preview "fx_denoise $*",${-3--1}
+#@cli afre_denoisesmooth : radius>=1,_amount>=1
+#@cli : Denoise noisy image, or smooth low noise image.
+#@cli : \ \ Command is slow when the 'radius' and 'amount' are high.
+#@cli : \ \ Start small and increase as appropriate.\n
+#@cli : Default values: 'radius=3 and amount=25'.
+afre_denoisesmooth : check "${1=3}>=1 && ${2=25}>=1"
+e[] "[afre]^_^) denoisesmooth: Denoise noisy image, or smooth low noise image$? using radius=$1 and amount=$2.\n\ * Command is slow when the 'radius' and 'amount' are high.\n\ \ \ Start small and increase as appropriate."
+repeat $! l[$>] r={[im,iM]}
+. repeat $1 +normp. 1 afre_gui1_fast.. .,{$>+1} rm. done
+repeat $2 afre_gui1_fast.. . done rm.
+c $r done done
+afre_denoisesmooth_preview :
+afre_denoisesmooth $*
+#@cli afre_denoisesmooth_alt : radius>=1,_amount>=1
+#@cli : Denoise noisy image, or smooth low noise image.
+#@cli : \ \ Command is slow when the 'radius' and 'amount' are high.
+#@cli : \ \ Start small and increase as appropriate.\n
+#@cli : Default values: 'radius=3 and amount=25'.
+afre_denoisesmooth_alt : check "${1=3}>=1 && ${2=25}>=1"
+e[] "[afre]^_^) denoisesmooth_alt: Denoise noisy image, or smooth low noise image$? using radius=$1 and amount=$2.\n\ * Command is slow when the 'radius' and 'amount' are high.\n\ \ \ Start small and increase as appropriate."
+repeat $! l[$>] r={[im,iM]}
+. repeat $1 +normp. 1 afre_gui1_fast.. .,{$>+1},,0 rm. done
+repeat $2 afre_gui1_fast.. .,,,0 done rm.
+c $r done done
+afre_denoisesmooth_alt_preview :
+afre_denoisesmooth_alt $*
+fx_pahlsson_descreen : skip $*
+pahlsson_descreen
+fx_pahlsson_descreen_preview :
+gui_split_preview "fx_pahlsson_descreen 0",$-1
+pahlsson_descreen :
+repeat $! l[$>] split_opacity l[0] to_rgb
+rgb2cmyk
+split c
+name[-4] C
+pahlsson_descreen_channel[-4]
+name... M
+pahlsson_descreen_channel...
+name.. Y
+pahlsson_descreen_channel..
+name. K
+pahlsson_descreen_channel.
+append c
+cmyk2rgb
+done a c done done
+pahlsson_descreen_channel :
+basename={0,b}
+name[0] original
+crop1=0,0,{original,w-1},{original,h-1},0
+crop2=0,{original,h},100%,100%,0
+float2fft8[original]
+name[original] fft
+i [fft]
+name.. real
+name. imaginary
+crop[real] $crop1
+crop[imaginary] $crop2
+i [real]
+name. mask
+dog[mask] 0.5%,0.8%
+normalize[mask] 0,255
+threshold[mask] 64
+normalize[mask] 0,255
+negate[mask]
+ellipse[mask] 50%,50%,7%,7%,255,255,255,255
+i [mask]
+name. blurmask
+blur[blurmask] 1.6%
+normalize[blurmask] 0,255
+mul[mask,blurmask]
+div[mask] 256
+mul[mask,real]
+div[real] 256
+append[real] [imaginary],y
+name[real] fft
+remove[imaginary]
+fft82float[fft]
+#@cli float2int8
+#@cli : Convert selected float-valued images to 8bits integer representations.
+float2int8 :
+e[^-1] "Convert float-valued image$? to 8bits integer representations."
+repeat $! l[$>]
+s c repeat $! l[$>]
+m={im} M={iM} quantize 16777216,0,1
++>> 8 &. 255 +&.. 255 >>... 16
+({'$m,$M'}) a y
+done done a c
+done done
+#@cli int82float
+#@cli : Convert selected 8bits integer representations to float-valued images.
+int82float :
+e[^-1] "Convert 8bits integer representation$? to float-valued image$?."
+repeat $! l[$>]
+s c repeat $! l[$>]
+sh. {h-1},{h-1},0,0 m={t} rm.
+rows 0,{h-2} s y,3 *... 65536 *.. 256 -|
+skip ${n\ $m}
+done done a c
+done done
+#@cli float2fft8
+#@cli : Convert selected float-valued images to 8bits fourier representations.
+float2fft8 :
+e[^-1] "Convert float-valued image$? to 8bits fourier representations."
+repeat $! l[$>]
+fftpolar +.. 1 log.. float2int8[-2,-1] a y
+done done
+#@cli fft82float
+#@cli : Convert selected 8bits fourier representations to float-valued images.
+fft82float :
+e[^-1] "Convert float-valued image$? to 8bits fourier representations."
+repeat $! l[$>]
+s y,2 int82float exp.. -.. 1 ifftpolar
+done done
+gcd_despeckle : skip ${1=15},${2=30}
+repeat $! l[$>]
+ma={if(!$2,w*h,$2)}
++label. $1,1 nb={1+iM}
++histogram. $nb,0,{$nb-1}
+map.. . rm.
+le. $ma *. 255
+inpaint.. . rm.
+done done
+iain_nr_2019_preview:
+remove_opacity
+images={$!}
+gamma=$1
+shadows=$2
+light=$3
+mid_offset=$4
+desaturate=$5
+guide_mix=$6
+soften_guide=$7
+fine=$8
+mid=$9
+large=$10
+lookup=$11
+recovery_choice=$12
+recovery_amount=$13
+preview_shows=$14
+preview_tones_map=$15
+if $images>2
+gui_warning_preview "Too many input images detected. This filter requires 1 or 2 images as input."
+quit
+fi
+if $12==3" && "$images==1
+gui_warning_preview "No guide image detected. Guided Recovery requires two images, please set 'input layers' to 'active and below' or equivilent. The top layer should be the noisy version of the image and the bottom layer should be a denoised version"
+quit
+fi
+if $images==1
+[0]
+fi
+if $preview_tones_map
++l[-1]
+mid_tone_offset={$mid_offset/-5}
+luminance
+add {$mid_tone_offset*255}
+resize 25%,25%,100%,100%,2
+median 5
+line 0,0,0,100%,1,128
+line 0,0,100%,0,1,128
+line 0,100%,100%,100%,1,128
+line 100%,0,100%,100%,1,128
++gt[0] 85
++gt[0] 170
+laplacian[1,2]
+l[1]
++gt[0] 0
+lt[0] 0
+replace[0] 1,100
+replace[1] 1,1
+max[0,1]
+done
+l[2]
++gt[0] 0
+lt[0] 0
+replace[0] 1,255
+replace[1] 1,150
+max[0,1]
+done
+max[-1,-2]
++neq[-1] 0
+replace[-1] 1,255
+append[-1,-2] c
+scale2x[-1]
+scale2x[-1]
+k[-1]
+done
+fi
+l[0,1]
+if $preview_shows==0
+fine=$fine
+mid=$mid
+large=$large
++iain_nr_2019 $gamma,$shadows,$light,$mid_offset,$desaturate,$guide_mix,$soften_guide,$fine,$mid,$large,$lookup,$recovery_choice,$recovery_amount,$preview_shows,$preview_tones_map
+k[0,-1]
+sub
+noise_amp={_round((128/(max(abs(im),iM))),0.1)}
+mul $noise_amp
+add 128
+c 0,255
+elif $preview_shows==1
+fine=$fine
+mid=0
+large=0
++iain_nr_2019 $gamma,$shadows,$light,$mid_offset,$desaturate,$guide_mix,$soften_guide,$fine,$mid,$large,$lookup,$recovery_choice,$recovery_amount,$preview_shows,$preview_tones_map
+k[0,-1]
+sub
+noise_amp={_round((128/(max(abs(im),iM))),0.1)}
+mul $noise_amp
+add 128
+c 0,255
+elif $preview_shows==2
+fine=0
+mid=$mid
+large=0
++iain_nr_2019 $gamma,$shadows,$light,$mid_offset,$desaturate,$guide_mix,$soften_guide,$fine,$mid,$large,$lookup,$recovery_choice,$recovery_amount,$preview_shows,$preview_tones_map
+k[0,-1]
+sub
+noise_amp={_round((128/(max(abs(im),iM))),0.1)}
+mul $noise_amp
+add 128
+c 0,255
+elif $preview_shows==3
+fine=0
+mid=0
+large=$large
++iain_nr_2019 $gamma,$shadows,$light,$mid_offset,$desaturate,$guide_mix,$soften_guide,$fine,$mid,$large,$lookup,$recovery_choice,$recovery_amount,$preview_shows,$preview_tones_map
+k[0,-1]
+sub
+noise_amp={_round((128/(max(abs(im),iM))),0.1)}
+mul $noise_amp
+add 128
+c 0,255
+elif $preview_shows==4
+iain_nr_2019 $gamma,$shadows,$light,$mid_offset,$desaturate,$guide_mix,$soften_guide,$fine,$mid,$large,$lookup,$recovery_choice,$recovery_amount,$preview_shows,$preview_tones_map
+fi
+done
+blend alpha
+text_size=13
+if $images==1
+guide="Internal Guide"
+bg_colour=255
+text_colour=0
+else
+guide="External Guide"
+bg_colour=0
+text_colour=255
+fi
+box_size=100%
+rectangle 0,0,$box_size,20,0.5,$bg_colour
+text $guide,0.1~,4,$text_size,1,$text_colour
+if $14!=4
+rectangle {(w/2)-127*($noise_amp/2)},{h-20},{(w/2)+127*($noise_amp/2)},100%,0.5,$bg_colour
+text Noise\ amplified\ $noise_amp\ times,0.5~,{h-16},$text_size,1,$text_colour
+fi
+guide_recovery=0
+if $recovery_choice==0
+do_recovery=0
+elif $recovery_choice==1
+do_recovery=1
+slow=0
+recover_text="Fast Recovery"
+elif $recovery_choice==2
+do_recovery=1
+slow=1
+recover_text="Slow Recovery"
+elif $recovery_choice==3
+do_recovery=1
+slow=1
+guide_recovery=1
+recover_text="Guide Recovery"
+fi
+if $recovery_choice!=0
+text $recover_text,0.9~,4,$text_size,1,$text_colour
+fi
+iain_nr_2019:
+images={$!}
+if $images>2
+quit
+fi
+gamma=$1
+shadow=$2
+light=$3
+mid_tone_offset={$4/5}
+chroma=$5
+external_guide_strength=$6
+soften_guide=$7
+fine=$8
+mid={$9/3}
+large={$10/9}
+patch_size=3
+patch_size_b=3
+lookup_size={($11*2)+1}
+mid_lookup_size={($11*2)+1}
+large_lookup_size={($11*2)+1}
+smoothness_fine=0
+smoothness=0
+fast_approx=0
+std_deviation_s=10
+recovery_choice=$12
+recover=$13
+guide_recovery=0
+slow=0
+if $recovery_choice==0
+do_recovery=0
+elif $recovery_choice==1
+do_recovery=1
+elif $recovery_choice==2
+do_recovery=1
+slow=1
+elif $recovery_choice==3
+do_recovery=1
+slow=1
+guide_recovery=1
+fi
+remove_opacity
+colours={s}
+external_guide=1
+if $!==1
+[0]
+external_guide=0
+fi
+if $guide_recovery==0
+if $external_guide_strength<1
+[0]
+mul[1] $external_guide_strength
+mul[2] {1-$external_guide_strength}
+add[1,2]
+fi
+l[-1]
+if $colours!=1
+if $chroma>0
+redmul=.299
+greenmul=.587
+bluemul=.114
++split[0] c
+mul[1] $redmul mul[2] $greenmul mul[3] $bluemul
+add[1-3]
+if $chroma==1
+keep[1]
+else
+split[0] c name[0] red name[1] green name[2] blue name[3] luma
++sub[blue] [luma] name[-1] cb
++sub[red] [luma] name[-1] cr
+keep[luma,cb,cr]
+mul[cb,cr] {1-$chroma}
++add[cb] [luma] name[-1] blueout
++add[cr] [luma] name[-1] redout
+remove[1,2]
++mul[redout] $redmul +mul[blueout] $bluemul
+sub[luma] [-1] sub[luma] [-2]
+div[luma] $greenmul
+remove[-1,-2]
+move[2] 0
+append c
+fi
+fi
+fi
+sub 127
+div 128
+if $gamma!=1
+add 1
+pow $gamma
+sub 1
+fi
+sub $mid_tone_offset
++c[0] 0,100
+c[0] -100,0
+l[0]
+if $shadow>0
+fill i+($shadow*abs(i)*0.75)^2
+elif $shadow<0
+fill i-(abs(i)^3)*(abs($shadow))
+fi
+done
+l[1]
+if $light>0
+div[0] {(2^$gamma)-1}
+fill i-($light*abs(i)*0.75)^2
+mul[0] {(2^$gamma)-1}
+elif $light<0
+div[0] {(2^$gamma)-1}
+fill i+(abs(i)^3)*(abs($light))
+mul[0] {(2^$gamma)-1}
+fi
+done
+add
+add $mid_tone_offset
+mul 128
+add 127
+if $soften_guide
+l[0]
+(0,0.2,0;0.2,0.2,0.2;0,0.2,0)
+convolve[0] [1]
+rm[1]
+done
+fi
+done
++l[0,1]
+levels=2
+size={3^$levels}
+cropwidth={w}
+cropheight={h}
+if $colours>1 to_rgb fi
+resize {w+($size-w%$size)},{h+($size-h%$size)},{d},{s},0,1
+if $fine>0
+denoise[0] [1],$std_deviation_s,$fine,$patch_size,$lookup_size,$smoothness_fine,$fast_approx
+fi
++resize[0,1] 33.33333%,33.33333%,{d},{s},2
+rm[1]
++iain_resize_x3[-2]
+blur[-1] 1
+sub[0,-1]
+if $mid>0
+denoise[1] [2],$std_deviation_s,$mid,$patch_size,$mid_lookup_size,$smoothness_fine,$fast_approx
+fi
+l[1,2]
++resize[0,1] 33.33333%,33.33333%,{-1,d},{-1,s},2
+rm[1]
++iain_resize_x3[-2]
+blur[-1] 1
+sub[0,-1]
+if $large>0
+denoise[1] [2],$std_deviation_s,$large,$patch_size,$large_lookup_size,$smoothness_fine,$fast_approx
+fi
+done
+rm[-1]
+repeat 2
+iain_resize_x3[-1]
+blur[-1] 1
+add[-1,-2]
+done
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+c 0,255
+done
+rm[1]
+fi
+if $do_recovery
+sub[0] [1]
+if $colours!=1
+l[0] split c mul[0] 0.2126 mul[1] 0.7125 mul[2] 0.0722 add done
+fi
++blur[0] 10
+sub[0] [-1]
+rm[-1]
++abs[0]
+noise={-1,ia}
+blur[-1] 3
+bilateral[-1] [1],20,$noise
+blur[-1] 2
+fill[-1] 5/i
+mul[0] [-1]
+l[0]
+add 128
+resize[0] {w+256},{h+256},1,1,0,2,0.5,0.5
+if $slow
+iain_fft_denoise_stack[0] {2-$recover},0.5
+else
+iain_fft_denoise[0] {2-$recover},0.5
+fi
+crop[0] 128,128,{w-129},{h-129}
+sub 128
++blur 10
+sub
+done
+div[0] [-1]
+rm[-1]
+if $colours>1 to_rgb[0] fi
+add
+else
+k[-1]
+fi
+c 0,255
+iain_fft_denoise_stack:
+resize {w+128},{h+128},1,1,0,2,0.5,0.5
+offset1x=24
+offset1y=4
+offset2x=-10
+offset2y=21
+offset3x=27
+offset3y=27
+offset4x=6
+offset4y=38
++shift[0] $offset1x,$offset1y,0,0
++shift[0] $offset2x,$offset2y,0,0
++shift[0] $offset3x,$offset3y,0,0
++shift[0] $offset4x,$offset4y,0,0
+iain_fft_denoise[0] $1,$2
+iain_fft_denoise[1] $1,$2
+iain_fft_denoise[2] $1,$2
+iain_fft_denoise[3] $1,$2
+iain_fft_denoise[4] $1,$2
+shift[1] {$offset1x*-1},{$offset1y*-1},0,0
+shift[2] {$offset2x*-1},{$offset2y*-1},0,0
+shift[3] {$offset3x*-1},{$offset3y*-1},0,0
+shift[4] {$offset4x*-1},{$offset4y*-1},0,0
+blend_median
+crop 64,64,{w-65},{h-65}
+iain_fft_denoise:
+luminance
+cropwidth={w}
+cropheight={h}
+size={64}
+resize {w+($size-w%$size)},{h+($size-h%$size)},{d},{s},0,1
+tilew={w/64}
+tileh={h/64}
+split_tiles $tilew,$tileh
+foreach { fftpolar a z }
++blend_median
+mul[-1] $1
+repeat $!-1
+l[$>,-1]
+split z
++circle[0] 50%,50%,1,1,0
+blur[-1] 1
+mul[-1] {$1*$2}
+lt[-1] [2]
+circle[-1] 50%,50%,1,1,0
+mul[-1] [2]
+sub[0] [-1]
+c[0] 0,1e31
+k[0,1,2,3]
+append[0,1] z
+append[1,2] z
+done
+done
+rm[-1]
+foreach { s z ifftpolar }
+append_tiles $tilew,$tileh
+c 0,255
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+iain_fast_denoise_p:
+tic
+if $7
+apply_parallel_overlap "iain_fast_denoise ${1--1}",128,0
+else
+iain_fast_denoise ${1--1}
+fi
+toc
+iain_fast_denoise:
+repeat $! l[$>] nm={0,n} split_opacity l[0]
+fastluma1={$1*5000}
+fastluma2={$fastluma1*.9}
+fastluma3={$fastluma1*.65}
+fastluma4={$fastluma1*.44}
+fastchroma1={$2*5000}
+fastchroma2=$fastchroma1
+fastchroma3={$fastchroma2/2}
+fastchroma4={$fastchroma3/2}
+despeckle_threshold={($4/25)*100000}
+if $3!=1
+scale={255*1000}
+ex={$3}
+pt1x={$scale*0.025}
+pt2x={$scale*0.05}
+pt3x={$scale*0.075}
+pt4x={$scale*0.1}
+pt5x={$scale*0.125}
+pt6x={$scale*0.15}
+pt7x={$scale*0.175}
+pt8x={$scale*0.2}
+pt9x={$scale*0.225}
+pt10x={$scale*0.25}
+pt11x={$scale*0.275}
+pt12x={$scale*0.3}
+pt13x={$scale*0.325}
+pt14x={$scale*0.35}
+pt15x={$scale*0.375}
+pt16x={$scale*0.4}
+pt17x={$scale*0.425}
+pt18x={$scale*0.45}
+pt19x={$scale*0.475}
+pt20x={$scale*0.5}
+pt21x={$scale*0.525}
+pt22x={$scale*0.55}
+pt23x={$scale*0.575}
+pt24x={$scale*0.6}
+pt25x={$scale*0.625}
+pt26x={$scale*0.65}
+pt27x={$scale*0.675}
+pt28x={$scale*0.7}
+pt29x={$scale*0.725}
+pt30x={$scale*0.75}
+pt31x={$scale*0.775}
+pt32x={$scale*0.8}
+pt33x={$scale*0.825}
+pt34x={$scale*0.85}
+pt35x={$scale*0.875}
+pt36x={$scale*0.9}
+pt37x={$scale*0.925}
+pt38x={$scale*0.95}
+pt39x={$scale*0.975}
+pt40x={$scale*1}
+pt1y={(0.025^$ex)*$scale}
+pt2y={(0.05^$ex)*$scale}
+pt3y={(0.075^$ex)*$scale}
+pt4y={(0.1^$ex)*$scale}
+pt5y={(0.125^$ex)*$scale}
+pt6y={(0.15^$ex)*$scale}
+pt7y={(0.175^$ex)*$scale}
+pt8y={(0.2^$ex)*$scale}
+pt9y={(0.225^$ex)*$scale}
+pt10y={(0.25^$ex)*$scale}
+pt11y={(0.275^$ex)*$scale}
+pt12y={(0.3^$ex)*$scale}
+pt13y={(0.325^$ex)*$scale}
+pt14y={(0.35^$ex)*$scale}
+pt15y={(0.375^$ex)*$scale}
+pt16y={(0.4^$ex)*$scale}
+pt17y={(0.425^$ex)*$scale}
+pt18y={(0.45^$ex)*$scale}
+pt19y={(0.475^$ex)*$scale}
+pt20y={(0.5^$ex)*$scale}
+pt21y={(0.525^$ex)*$scale}
+pt22y={(0.55^$ex)*$scale}
+pt23y={(0.575^$ex)*$scale}
+pt24y={(0.6^$ex)*$scale}
+pt25y={(0.625^$ex)*$scale}
+pt26y={(0.65^$ex)*$scale}
+pt27y={(0.675^$ex)*$scale}
+pt28y={(0.7^$ex)*$scale}
+pt29y={(0.725^$ex)*$scale}
+pt30y={(0.75^$ex)*$scale}
+pt31y={(0.775^$ex)*$scale}
+pt32y={(0.8^$ex)*$scale}
+pt33y={(0.825^$ex)*$scale}
+pt34y={(0.85^$ex)*$scale}
+pt35y={(0.875^$ex)*$scale}
+pt36y={(0.9^$ex)*$scale}
+pt37y={(0.925^$ex)*$scale}
+pt38y={(0.95^$ex)*$scale}
+pt39y={(0.975^$ex)*$scale}
+pt40y={(1^$ex)*$scale}
+fi
+interpolation=1
+tic
+to_rgb
+mul[0] 1000
+if $3!=1
+apply_curve[0] 0,0,0,$pt1x,$pt1y,$pt2x,$pt2y,$pt3x,$pt3y,$pt4x,$pt4y,$pt5x,$pt5y,$pt6x,$pt6y,$pt7x,$pt7y,$pt8x,$pt8y,$pt9x,$pt9y,$pt10x,$pt10y,$pt11x,$pt11y,$pt12x,$pt12y,$pt13x,$pt13y,$pt14x,$pt14y,$pt15x,$pt15y,$pt16x,$pt16y,$pt17x,$pt17y,$pt18x,$pt18y,$pt19x,$pt19y,$pt20x,$pt20y,$pt21x,$pt21y,$pt22x,$pt22y,$pt23x,$pt23y,$pt24x,$pt24y,$pt25x,$pt25y,$pt26x,$pt26y,$pt27x,$pt27y,$pt28x,$pt28y,$pt29x,$pt29y,$pt30x,$pt30y,$pt31x,$pt31y,$pt32x,$pt32y,$pt33x,$pt33y,$pt34x,$pt34y,$pt35x,$pt35y,$pt36x,$pt36y,$pt37x,$pt37y,$pt38x,$pt38y,$pt39x,$pt39y,$pt40x,$pt40y
+fi
+redmul=.299
+greenmul=.587
+bluemul=.114
+to_rgb[0]
++split[0] c
+mul[1] $redmul
+mul[2] $greenmul
+mul[3] $bluemul
+add[1-3]
+split[0] c
+name[0] red
+name[1] green
+name[2] blue
+name[3] luma
++sub[blue] [luma]
+name[-1] cb
++sub[red] [luma]
+name[-1] cr
+keep[luma,cb,cr]
+if $despeckle_threshold>0
+iain_fast_despeckle[0] {1-$despeckle_threshold}
+fi
+if $1>0
+iain_fast_denoise_main[0] {$fastluma1},{$fastluma2},{$fastluma3},{$fastluma4},$interpolation
+fi
+if $2>0
+iain_fast_denoise_main[1] {$fastchroma1},{$fastchroma2},{$fastchroma3},{$fastchroma4},$interpolation
+iain_fast_denoise_main[2] {$fastchroma1},{$fastchroma2},{$fastchroma3},{$fastchroma4},$interpolation
+fi
+name[0] luma
+name[1] cb
+name[2] cr
++add[cb] [luma]
+name[-1] blueout
++add[cr] [luma]
+name[-1] redout
+remove[1,2]
++mul[redout] $redmul
++mul[blueout] $bluemul
+sub[luma] [-1]
+sub[luma] [-2]
+div[luma] $greenmul
+remove[-1,-2]
+move[2] 0
+append c
+if $5==1
+100%,100%,1,1,0
+noise[-1] 0.7,0
++laplacian[0]
+threshold[-1] 4
+dilate[-1] 3
+mul[-1] -1
+add[-1] 1
+mul[-2] [-1]
+remove[-1]
+add
+fi
+if $3!=1
+scale={255*1000}
+ex={1/$3}
+pt1y={(0.025^$ex)*$scale}
+pt2y={(0.05^$ex)*$scale}
+pt3y={(0.075^$ex)*$scale}
+pt4y={(0.1^$ex)*$scale}
+pt5y={(0.125^$ex)*$scale}
+pt6y={(0.15^$ex)*$scale}
+pt7y={(0.175^$ex)*$scale}
+pt8y={(0.2^$ex)*$scale}
+pt9y={(0.225^$ex)*$scale}
+pt10y={(0.25^$ex)*$scale}
+pt11y={(0.275^$ex)*$scale}
+pt12y={(0.3^$ex)*$scale}
+pt13y={(0.325^$ex)*$scale}
+pt14y={(0.35^$ex)*$scale}
+pt15y={(0.375^$ex)*$scale}
+pt16y={(0.4^$ex)*$scale}
+pt17y={(0.425^$ex)*$scale}
+pt18y={(0.45^$ex)*$scale}
+pt19y={(0.475^$ex)*$scale}
+pt20y={(0.5^$ex)*$scale}
+pt21y={(0.525^$ex)*$scale}
+pt22y={(0.55^$ex)*$scale}
+pt23y={(0.575^$ex)*$scale}
+pt24y={(0.6^$ex)*$scale}
+pt25y={(0.625^$ex)*$scale}
+pt26y={(0.65^$ex)*$scale}
+pt27y={(0.675^$ex)*$scale}
+pt28y={(0.7^$ex)*$scale}
+pt29y={(0.725^$ex)*$scale}
+pt30y={(0.75^$ex)*$scale}
+pt31y={(0.775^$ex)*$scale}
+pt32y={(0.8^$ex)*$scale}
+pt33y={(0.825^$ex)*$scale}
+pt34y={(0.85^$ex)*$scale}
+pt35y={(0.875^$ex)*$scale}
+pt36y={(0.9^$ex)*$scale}
+pt37y={(0.925^$ex)*$scale}
+pt38y={(0.95^$ex)*$scale}
+pt39y={(0.975^$ex)*$scale}
+pt40y={(1^$ex)*$scale}
+apply_curve[0] 0,0,0,$pt1x,$pt1y,$pt2x,$pt2y,$pt3x,$pt3y,$pt4x,$pt4y,$pt5x,$pt5y,$pt6x,$pt6y,$pt7x,$pt7y,$pt8x,$pt8y,$pt9x,$pt9y,$pt10x,$pt10y,$pt11x,$pt11y,$pt12x,$pt12y,$pt13x,$pt13y,$pt14x,$pt14y,$pt15x,$pt15y,$pt16x,$pt16y,$pt17x,$pt17y,$pt18x,$pt18y,$pt19x,$pt19y,$pt20x,$pt20y,$pt21x,$pt21y,$pt22x,$pt22y,$pt23x,$pt23y,$pt24x,$pt24y,$pt25x,$pt25y,$pt26x,$pt26y,$pt27x,$pt27y,$pt28x,$pt28y,$pt29x,$pt29y,$pt30x,$pt30y,$pt31x,$pt31y,$pt32x,$pt32y,$pt33x,$pt33y,$pt34x,$pt34y,$pt35x,$pt35y,$pt36x,$pt36y,$pt37x,$pt37y,$pt38x,$pt38y,$pt39x,$pt39y,$pt40x,$pt40y
+fi
+mul[0] 0.001
+c 0,255
+toc
+done a c nm $nm done done
+fastblur:
+repeat $!
+l[$<]
+(0.0579710145,0.1304347826,0.0579710145;0.1304347826,0.2463768116,0.1304347826;0.0579710145,0.1304347826,0.0579710145)
+convolve[0] [1]
+remove[-1]
+done
+done
+iain_fast_despeckle:
+(0,0.2,0;0.2,0.2,0.2;0,0.2,0)
++convolve[0] [1]
++sub[-1] [0]
+abs[-1]
++convolve[-1] [1]
+sub[-1] [-2]
+abs[-1]
+keep[0,2,-1]
+threshold[-1] $1
+mul[-1] 255
+append[1,2] c
+blend alpha
+iain_fast_denoise_main:
+cropwidth={w}
+cropheight={h}
+resize[0] {w+(8-w%8)},{h+(8-h%8)},1,{s},0,1
+width={w}
+height={h}
++resize[0] 50%,50%,{d},{s},2
++resize[1] $width,$height,{d},{s},$5
+fastblur[-1]
+sub[0] [2]
+remove[2]
++resize[1] 50%,50%,{d},{s},2
++resize[2] {$width/2},{$height/2},{d},{s},$5
+fastblur[-1]
+sub[1] [3]
+remove[3]
++resize[2] 50%,50%,{d},{s},2
++resize[3] {$width/4},{$height/4},{d},{s},$5
+fastblur[-1]
+sub[2] [4]
+remove[4]
++resize[3] 50%,50%,{d},{s},2
++resize[4] {$width/8},{$height/8},{d},{s},$5
+fastblur[-1]
+sub[3] [5]
+remove[5]
+rmsthresh[0] $1
+rmsthresh[1] $2
+rmsthresh[2] $3
+rmsthresh[3] $4
+resize[-1] {3,w},{3,h},{d},{s},$5
+fastblur[-1]
+add[-2] [-1]
+remove[-1]
+resize[-1] {2,w},{2,h},{d},{s},$5
+fastblur[-1]
+add[-2] [-1]
+remove[-1]
+resize[-1] {1,w},{1,h},{d},{s},$5
+fastblur[-1]
+add[-2] [-1]
+remove[-1]
+resize[-1] {0,w},{0,h},{d},{s},$5
+fastblur[-1]
+add[-2] [-1]
+remove[-1]
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+rmsthresh:
++abs[0]
+fastblur[1]
+threshold[1] {$1}
+fastblur[1]
+mul[0] [1]
+keep[0]
+iain_fast_denoise_p_preview:
+if $-2==0
+iain_fast_denoise ${1--3}
+fi
+if $-2==1
++iain_fast_denoise_p $1,0,1,$4,0,0,$7
+compose_grainextract
+sub 128
+mul 3
+add 128
+fi
+if $-2==2
++iain_fast_denoise_p 0,$2,1,$4,0,0,$7
+compose_grainextract
+sub 128
+mul 3
+add 128
+fi
+fx_inpaint_holes :
+inpaint_holes {$1^1.5},$2,$3
+fx_inpaint_morpho :
+foreach {
+R=$1 G=$2 B=$3 A=$4
+if !$A" && "(s==2" || "s==4) split_opacity +!=. 0 *[0,-1] a c R=0 G=0 B=0 fi
++round select_color. 0,{round([$R,$G,$B,$A])}
+if $5 dilate. {1+2*$5} fi
+inpaint_morpho.. [1]
+rm.
+}
+fx_inpaint_morpho_preview :
+fx_inpaint_morpho ${1-4},{1+$5}
+fx_inpaint_matchpatch :
+foreach {
+nm={n} R=$6 G=$7 B=$8 A=$9
+if !$A" && "(s==2" || "s==4) split_opacity +!=. 0 *[0,-1] a c R=0 G=0 B=0 fi
++round select_color. 0,{round([$R,$G,$B,$A])}
+if $10 dilate. {1+2*$10} fi
+if $11
+visu_size=${fitscreen[]" "{0,[w,h,1]},25%,50%}
+w1.. $visu_size,0,"[Preview] G'MIC: Inpaint [multi-scale]"
+fi
+srand 0 inpaint_matchpatch.. [1],${1-5}
+rm. => $nm
+}
+fx_inpaint_matchpatch_preview :
+fx_inpaint_matchpatch ${1-9},{1+$10},0
+_fx_inpaint_patch :
+foreach {
+R=$9 G=$10 B=$11 A=$12
+if !$A" && "(s==2" || "s==4) split_opacity +!=. 0 *[0,-1] a c R=0 G=0 B=0 fi
++round select_color. 0,{round([$R,$G,$B,$A])}
+if $13 dilate. {1+2*$13} fi
+inpaint.. [1],$1,{$1*$2},$3,1,{$4*$1},${5-8}
+rm.
+}
+fx_inpaint_patch :
+foreach {
+if $14
+bs={max(16,min(w,h)*arg(1+$14,100,75,50,25,10,5,2,1)%)}
+at "_fx_inpaint_patch $*",$bs,$bs,1,25%,25%,0,2
+else _fx_inpaint_patch $*
+fi
+}
+fx_inpaint_patch_preview :
+fx_inpaint_patch ${1-12},{1+$13},0
+fx_inpaint_pde :
+foreach {
+R=$4 G=$5 B=$6 A=$7
+if !$A" && "(s==2" || "s==4) split_opacity +!=. 0 *[0,-1] a c R=0 G=0 B=0 fi
++select_color 0,$R,$G,$B,$A
+if $8 dilate. {1+2*$8} fi
+inpaint_pde.. [1],$1%,$2,$3
+rm.
+}
+c 0,255
+fx_inpaint_pde_preview :
+fx_inpaint_pde ${1-7},{1+$8}
+local_similarity_mask:
+repeat $! l[$>]
+nm=${-gui_layer_name}
+x_location=$1
+y_location=$2
+keep=$3
+reject=$4
+colour_channel=$5
+if $6==0
+steps=100
+elif $6==1
+steps=25
+elif $6>1
+steps={min($6,($reject-$keep))}
+fi
+to_rgb
+if $colour_channel!=0
+if $colour_channel==1 channels 0 fi
+if $colour_channel==2 channels 1 fi
+if $colour_channel==3 channels 2 fi
+if $colour_channel==4 luminance fi
+if $colour_channel==5 rgb2lab[0] channels 1 fi
+if $colour_channel==6 rgb2lab[0] channels 2 fi
+if $colour_channel==7 rgb2hsv[0] channels 0 fi
+if $colour_channel==8 rgb2hsv[0] channels 1 fi
+if $colour_channel==9 rgb2hsv[0] channels 2 fi
+if $colour_channel==10 rgb2hsl[0] channels 2 fi
+if $colour_channel==11 rgb2cmyk[0] channels 0 fi
+if $colour_channel==12 rgb2cmyk[0] channels 1 fi
+if $colour_channel==13 rgb2cmyk[0] channels 2 fi
+if $colour_channel==14 rgb2cmyk[0] channels 3 fi
+fi
+n 0,255
+mul[0] 0.9
+{w},{h},1,1,0
+step_size={($reject-$keep)/$steps}
+repeat $steps
++flood[0] $x_location%,$y_location%,0,{$keep+($>*$step_size)},0,1,255 threshold[-1] 99%
+add[-1,-2]
+done
+keep[-1]
+n 0,255
+nm name($nm)
+done done
+createbc:
+(0.5,0.5,0;0,0,0;0,0,0)
+(0.5,0,0.5;0,0,0;0,0,0)
++convolve[0] [1]
++convolve[0] [2]
+keep[0,-1,-2]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbd:
+(0.5,0,0;0,0,0.5;0,0,0)
+(0.5,0,0;0,0,0;0,0,0.5)
++convolve[0] [1]
++convolve[0] [2]
+keep[0,-1,-2]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbe:
+(0.5,0,0;0,0,0;0,0.5,0)
+(0.5,0,0;0,0,0;0.5,0,0)
++convolve[0] [1]
++convolve[0] [2]
+keep[0,-1,-2]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbf:
+(0.5,0,0;0.5,0,0;0,0,0)
+(0,0.5,0.5;0,0,0;0,0,0)
++convolve[0] [1]
++convolve[0] [2]
+keep[0,-1,-2]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbg:
+(0,0.5,0;0,0,0.5;0,0,0)
+(0,0.5,0;0,0,0;0,0,0.5)
++convolve[0] [1]
++convolve[0] [2]
+keep[0,-1,-2]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbh:
+(0,0.5,0;0,0,0;0,0.5,0)
+(0,0.5,0;0,0,0;0.5,0,0)
++convolve[0] [1]
++convolve[0] [2]
+keep[0,-1,-2]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbi:
+(0,0.5,0;0.5,0,0;0,0,0)
+(0,0,0.5;0,0,0.5;0,0,0)
++convolve[0] [1]
++convolve[0] [2]
+keep[0,-1,-2]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbj:
+(0,0,0.5;0,0,0;0,0,0.5)
+(0,0,0.5;0,0,0;0,0.5,0)
++convolve[0] [1]
++convolve[0] [2]
+keep[0,-1,-2]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbk:
+(0,0,0.5;0,0,0;0.5,0,0)
+(0,0,0.5;0.5,0,0;0,0,0)
++convolve[0] [1]
++convolve[0] [2]
+keep[0,-1,-2]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbl:
+(0,0,0;0,0,0.5;0,0,0.5)
+(0,0,0;0,0,0.5;0,0.5,0)
++convolve[0] [1]
++convolve[0] [2]
+keep[0,-1,-2]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbm:
+(0,0,0;0,0,0.5;0.5,0,0)
+(0,0,0;0.5,0,0.5;0,0,0)
++convolve[0] [1]
++convolve[0] [2]
+keep[0,-1,-2]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbn:
+(0,0,0;0,0,0;0,0.5,0.5)
+(0,0,0;0,0,0;0.5,0,0.5)
++convolve[0] [1]
++convolve[0] [2]
+keep[0,-1,-2]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbo:
+(0,0,0;0.5,0,0;0,0,0.5)
+(0,0,0;0,0,0;0.5,0.5,0)
++convolve[0] [1]
++convolve[0] [2]
+keep[0,-1,-2]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbp:
+(0,0,0;0.5,0,0;0,0.5,0)
+(0,0,0;0.5,0,0;0.5,0,0)
++convolve[0] [1]
++convolve[0] [2]
+keep[0,-1,-2]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbq:
++createbc[0]
++createbd[0]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbr:
++createbe[0]
++createbf[0]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbs:
++createbg[0]
++createbh[0]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbt:
++createbi[0]
++createbj[0]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbu:
++createbk[0]
++createbl[0]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbv:
++createbm[0]
++createbn[0]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbw:
++createbo[0]
++createbp[0]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbx:
++createbq[0]
++createbr[0]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createby:
++createbs[0]
++createbt[0]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createbz:
++createbu[0]
++createbv[0]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createca:
++createbx[0]
++createby[0]
+iain_median_3_stack[0,1,2]
+keep[-1]
+createcb:
++createbz[0]
++createbw[0]
+iain_median_3_stack[0,1,2]
+keep[-1]
+megaclean:
++createca[0]
++createcb[0]
+iain_median_3_stack[0,1,2]
+keep[-1]
+cross:
++shift[0] 0,1,0,0,2
++shift[0] 0,-1,0,0,2
++shift[0] 1,0,0,0,2
++shift[0] -1,0,0,0,2
+iain_median_5_stack
+ex:
++shift[0] 1,1,0,0,2
++shift[0] 1,-1,0,0,2
++shift[0] -1,-1,0,0,2
++shift[0] -1,1,0,0,2
+iain_median_5_stack
+hybrid_median:
+ac "
+repeat $1
++cross[0]
++ex[0]
+iain_median_3_stack[0,1,2]
+done
+",$2
+iain_hybrid_median:
+repeat $1
++cross[0]
++ex[0]
+iain_median_3_stack[0,1,2]
+done
+iain_pixel_denoise:
+if $1==0
+ac "
+repeat $2
+megaclean
+done
+",$3
+elif $1==1
+hybrid_median[0] $2,$3
+elif $2==1
++l[0]
+(1,1,1;1,0,1;1,1,1)
+dilate[0] [1]
+rm[1]
+done
++l[0]
+(1,1,1;1,0,1;1,1,1)
+erode[0] [1]
+rm[1]
+done
+min[0,1]
+max[0,1]
+fi
+iain_pixel_denoise_p:
+if $5
+if $1==0
+ac "
+repeat $2
+apply_parallel_overlap \"megaclean \",4,0
+done
+",$3
+elif $1==1
+ac "
+apply_parallel_overlap \"iain_hybrid_median[0] $2\",4,0
+",$3
+elif $1==2
+ac "
+apply_parallel_overlap \"
++l[0]
+(1,1,1;1,0,1;1,1,1)
+dilate[0] [1]
+rm[1]
+done
++l[0]
+(1,1,1;1,0,1;1,1,1)
+erode[0] [1]
+rm[1]
+done
+min[0,1]
+max[0,1]
+\",4,0
+",$3
+fi
+else
+if $1==0
+ac "
+repeat $2
+megaclean
+done
+",$3
+elif $1==1
+ac "
+iain_hybrid_median_p[0] $2
+",$3
+elif $1==2
+ac "
++l[0]
+(1,1,1;1,0,1;1,1,1)
+dilate[0] [1]
+rm[1]
+done
++l[0]
+(1,1,1;1,0,1;1,1,1)
+erode[0] [1]
+rm[1]
+done
+min[0,1]
+max[0,1]
+",$3
+fi
+fi
+time=$|
+iain_pixel_denoise_p_preview:
+if $4==0
+iain_pixel_denoise_p ${1--1}
+fi
+if $4==1
++iain_pixel_denoise_p ${1--1}
+sub[0] [1]
+keep[0]
+n 0,255
+fi
+iain_recursive_median_p:
+if $5
+ac "
+apply_parallel_overlap \"
+repeat $2 median $1 done
+\",{$1*2},0
+",$3,0
+else
+ac "
+repeat $2 median $1 done
+",$3,0
+fi
+recursive_median:
+ac "repeat $3 median $1 done",$2,0
+iain_recursive_median_p_preview:
+if $-2==0
+iain_recursive_median_p $1,$2,$3,$4,$5
+fi
+if $-2==1
+remove_opacity
++iain_recursive_median_p $1,$2,$3,$4,$5
+sub[0] [1]
+keep[0]
+mul 2
+add 128
+fi
+fx_remove_hotpixels :
+remove_hotpixels $1,$2
+fx_remove_hotpixels_preview :
+gui_split_preview "fx_remove_hotpixels $*",${-3--1}
+jeje_scandoc :
+scandoc $1,$2%,$3%,$4%
+jeje_scandoc_preview :
+gui_split_preview "jeje_scandoc $1,$2,$3,$4",$-1
+fx_smooth_anisotropic :
+ac "repeat $11 { smooth $1,$2,$3,$4,$5,$6,$7,$8,$9,$10 }",$12 c 0,255
+fx_smooth_anisotropic_preview :
+gui_split_preview "fx_smooth_anisotropic $*",${-3--1}
+fx_smooth_antialias :
+foreach {
++diffusiontensors 0,1,1,$3,$3
++gradient_norm.. >=. $2% *[-2,-1]
+smooth.. .,{$1^1/3},0.5,120,2,1 rm.
+}
+fx_smooth_antialias_preview :
+gui_split_preview "fx_smooth_antialias $*",${-3--1}
+fx_smooth_bilateral : skip ${5=0},${6=0}
+ac "repeat $3 { bilateral $1,$2 }",$4
+fx_smooth_bilateral_preview :
+gui_split_preview "fx_smooth_bilateral $*",${-3--1}
+jeje_denoise_patch_dict :
++denoise_patch_dict {2^($1+2)},$2,$3,$4
+*[0] $5 *[1] {1-$5} + c 0,255
+jeje_denoise_patch_dict_preview :
+gui_split_preview "jeje_denoise_patch_dict ${1--2}",$-1
+fx_smooth_diffusion :
+ac "gui_parallel_overlap \"smooth $6,$1,$2,$3,$4,$5,0 c 0,255\",$8,$9",$7
+fx_smooth_diffusion_preview :
+gui_split_preview "fx_smooth_diffusion $*",${-3--1}
+fx_smooth_guided : skip ${6=0},${7=0}
+if $1" && "!narg($_guide)
+if $!<2 gui_warning_preview "Missing guide layer" return fi
+store[{$1==1?0:-1}] _guide
+fi
+if $1==0
+ac "repeat $4 { guided $2,$3 }",$5
+elif $1==1
+ac "$_guide r. ..,..,1,100%,0,0,0.5,0.5 repeat $4 { guided[0] [1],$2,$3 } rm.",$5
+if !narg($_is_preview) $_guide mv. 0 fi
+else
+ac "$_guide r. ..,..,1,100%,0,0,0.5,0.5 repeat $4 { guided[0] [1],$2,$3 } rm.",$5
+if !narg($_is_preview) $_guide fi
+fi
+fx_smooth_guided_preview :
+if $1" && "!narg($_guide)
+if $!<2 gui_warning_preview "Missing guide layer" return fi
+store[{$1==1?0:-1}] _guide
+fi
+_is_preview=1
+gui_split_preview "fx_smooth_guided $*",${-3--1}
+jeje_denoise_iuwt :
+denoise_iuwt $1,$2,{$3+1}
+jeje_denoise_iuwt_preview :
+gui_split_preview "jeje_denoise_iuwt $1,$2,$3",$-1
+fx_smooth_meancurvature :
+ac "gui_parallel_overlap \"meancurvature_flow $2,$1,$3 c 0,255\",$5,$6",$4
+fx_smooth_meancurvature_preview :
+gui_split_preview "fx_smooth_meancurvature $*",${-3--1}
+fx_smooth_median :
+ac "median $1,$2",$3
+fx_smooth_median_preview :
+gui_split_preview "fx_smooth_median $*",${-3--1}
+fx_smooth_nlmeans:
+foreach {
+if s==1 nlmeans $1,$2,$3,-_fx_smooth_nlmeans$4
+else ac "gui_parallel_overlap \"nlmeans $1,$2,$3,-_fx_smooth_nlmeans$4\",$6,$7",$5
+fi
+}
+_fx_smooth_nlmeans0 : s c abs max
+_fx_smooth_nlmeans1 : s c abs +
+_fx_smooth_nlmeans2 : norm
+_fx_smooth_nlmeans3 : if s>=3 channels 0,2 luminance else norm fi
+_fx_smooth_nlmeans4 : if s>=3 channels 0,2 srgb2rgb rgb2lab channels 0 else norm fi
+_fx_smooth_nlmeans5 :
+fx_smooth_nlmeans_preview:
+gui_split_preview "fx_smooth_nlmeans $*",${-3--1}
+fx_smooth_patch :
+ac "gui_parallel_overlap \"repeat $7 { denoise $1,$2,$3,$4,$5,$6 } c 0,255\",$9,$10",$8
+fx_smooth_patch_preview :
+gui_split_preview "fx_smooth_patch $*",${-3--1}
+fx_smooth_patchpca :
+ac "denoise_patchpca ${1-4} c 0,255",$5
+fx_smooth_patchpca_preview :
+gui_split_preview "fx_smooth_patchpca $*",${-3--1}
+fx_smooth_peronamalik :
+ac "gui_parallel_overlap \"peronamalik_flow $1,$3,$2,$4 c 0,255\",$6,$7",$5
+fx_smooth_peronamalik_preview :
+gui_split_preview "fx_smooth_peronamalik $*",${-3--1}
+fx_smooth_selective :
+ac "gui_parallel_overlap \"repeat $4 { blur_selective $1,$2,$3 } c 0,255\",$6,$7",$5
+fx_smooth_selective_preview :
+gui_split_preview "fx_smooth_selective $*",${-3--1}
+fx_smooth_skin :
+foreach {
+split_opacity l[0] {
+to_rgb
+if $5 +balance_gamma 128,128,128 else [0] fi
+if $1==0 channels. 0 f. 1 elif $1==2 detect_skin. $2 else detect_skin. $2,$6%,$7%,$8% fi
+M={iM} b. $3% *. {$M/iM} *. $4 c. 0,1
+split_details[0] 4,$9%,$10%
++_fx_smooth_skin[2] $12,$11
+j[2] .,0,0,0,0,1,.. rm[-2,-1]
+*. {10^$13} + c 0,255
+}
+a c
+}
+_fx_smooth_skin :
+if $1==0 b {$2/8}%
+else
+if $2>0
+m={im} M={iM} n 0,255
+repeat int($2/5) { bilateral 3%,{5*3} }
+bilateral 3%,{($2%5)*3}
+* {($M-$m)/255} + $m
+fi
+fi
+fx_smooth_skin_preview :
+if $14==0
+gui_split_preview "if $5 balance_gamma 128,128,128 fi if $1==0 f 1 elif $1==2 detect_skin $2 ""else detect_skin $2,$6%,$7%,$8% fi M={iM} b $3% * {255*$M/iM} * $4 c 0,255",${-3--1}
+elif $14==1
+gui_split_preview "b $9%",${-3--1}
+elif $14==2
+gui_split_preview "split_details 4,$9%,$10% k.. n 0,255",${-3--1}
+elif $14==3
+gui_split_preview "split_details 4,$9%,$10% k.. _fx_smooth_skin $12,$11 n 0,255",${-3--1}
+elif $14==4
+gui_split_preview "split_details 4,$9%,$10% k. n 0,255",${-3--1}
+else
+gui_split_preview "fx_smooth_skin $*",${-3--1}
+fi
+if $1==1
+to_rgb
+circle $6%,$7%,$8%,0.2,0,255,0
+circle $6%,$7%,$8%,0.4,0xFFFFFFFF,0,255,0
+line {$6-0.25*$8}%,{$7-0.25*$8}%,{$6+0.25*$8}%,{$7+0.25*$8}%,0.8,255,255,0
+line {$6+0.25*$8}%,{$7-0.25*$8}%,{$6-0.25*$8}%,{$7+0.25*$8}%,0.8,255,255,0
+fi
+fx_smooth_tv :
+ac "gui_parallel_overlap \"tv_flow $2,$1,$3 c 0,255\",$5,$6",$4
+fx_smooth_tv_preview :
+gui_split_preview "fx_smooth_tv $*",${-3--1}
+fx_smooth_haar :
+remove_opacity
+ac "gui_parallel_overlap \"denoise_haar $1,$3,$2 c 0,255\",$5,$6",$4
+fx_smooth_haar_preview :
+gui_split_preview "fx_smooth_haar $*",${-3--1}
+jeje_local_wiener :
+ac "local_wiener $1",$2,$3
+jeje_local_wiener_preview :
+gui_split_preview "jeje_local_wiener $*",$-1
+fx_solidify_td :
+foreach {
+to_rgba sh 0,{s-2} if $5 srgb2rgb. fi rm.
+if $4
+. sh. 100% if $4>0 erode. {1+2*$4} else dilate. {1-2*$4} fi rm.
+solidify. $1%,$2,$3
+rv blend alpha
+else
+solidify $1%,$2,$3
+fi
+if $5 rgb2srgb. fi
+}
+fx_solidify_td_preview :
+gui_split_preview "fx_solidify_td $*",${-3--1}
+unpurple : skip ${1=1},${2=0},${3=0},${4=0.33},${5=5},${6=0},${7=0}
+intensity=$1
+min_brightness=$2
+min_red_to_blue_ratio=$3
+max_red_to_blue_ratio=$4
+blur_std_variation=$5
+gentle=$6
+precision=$7
+if $gentle
+min_brightness=0.8
+min_red_to_blue_ratio=0.15
+fi
+repeat $!
+local[$>]
+if s==3
+has_alpha=0
+elif s==4
+has_alpha=1
+else
+error "Unsupported number of image channels "{s}
+fi
+split c
+if $has_alpha
+move. 0
+fi
+if $precision
+max_blue={(1<<$precision)-1}
+else
+max_blue.={iM}
+fi
++fill. "blue=i/"$max_blue";
+threshold="$min_brightness";
+grey_level=max(0,(blue-threshold))*1/(1-threshold);
+"$intensity"*grey_level"
+blur. $blur_std_variation,0,0
+append[-4,-3,-2,-1] c
+fill. "bl=min("$max_blue",("$max_blue"*i3));
+db=max((i2-i1), 0);
+dr=max((i0-i1), 0);
+mb=min(bl,db);
+r_diff=min(dr,mb*"$max_red_to_blue_ratio");
+b_diff=if("$min_red_to_blue_ratio">0,min(mb,r_diff/"$min_red_to_blue_ratio"),mb);
+bl=round(bl,0,-1);
+r_diff=round(r_diff,0,-1);
+b_diff=round(b_diff,0,-1);
+[i0-r_diff,i1,i2-b_diff]"
+split. c
+remove.
+if $has_alpha
+move[0] 4
+fi
+append c
+done
+done
+return
+unpurple_preview :
+gui_split_preview "unpurple $*",${-3--1}
+vis_min_brightness=2
+vis_min_red_to_blue=2
+gentle={$6}
+if $gentle
+vis_min_brightness=0
+vis_min_red_to_blue=0
+fi
+status "{$1}""{$2}"_$vis_min_brightness"{$3}"_$vis_min_red_to_blue"{$4}""{$5}""{$6}""{$7}""{$8}""{$9}"
+jeje_unstrip :
+unstrip $1,$2,$3
+if $5 tape powerspectrum
+else
+if -$4 n 0,255 else c 0,255 fi
+fi
+jeje_unstrip_preview :
+gui_split_preview "jeje_unstrip $1,$2,$3,$4,$5",$-1
+fx_scale_dcci2x : skip ${1=1.15},${2=5},${3=0}
+foreach { split_opacity scale_dcci2x ${1-3} a c c 0,255 }
+fx_scale_dcci2x_preview :
+z 25%,25%,75%,75% fx_scale_dcci2x $*
+fx_render3d : skip ${14=1}
+width={(1+$14)*$1} height={(1+$14)*$2}
+n3d c3d m3d {round($13)} f3d={0.5*max($width,$height)/tan($7*pi/360)}
+f3d $f3d l3d {$8*$f3d},{$9*$f3d},{$10*$f3d} sl3d $11 ss3d $12
+foreach {
+*3d {$3*max($width,$height)} r3d 0,0,1,{-$6} r3d 0,1,0,{-$5} r3d 1,0,0,{-$4}
+$width,$height,1,3,-1
+j3d. ..,50%,50% rm..
+to_rgba replace_color 0,0,-1,-1,-1,255,0,0,0,0
+if $14
+r $1,$2,1,100%,2 s c,-3 +. 1e-5 /[0] [1] *[0] 255 a c
+fi
+}
+fx_upscale_smart :
+to_rgb upscale_smart $1,$2,1,$3,$4,$5 c 0,255
+fx_upscale_smart_preview :
+repeat $! {
++r. $1,$2,1,1,0
+if w<{-2,w}" || "h<{-2,h}
+rm. /. 4
+0 t. "Downscaling is\nnot allowed!",5,5,20,1,255 r. ..,..,1,1,0,0,0.5,0.5
+-|[-2,-1]
+else
+z.. {50-50*{-2,w}/w}%,{50-50*{-2,h}/h}%,{50+50*{-2,w}/w}%,{50+50*{-2,h}/h}%
+rm. fx_upscale_smart. $1,$2,$3,$4,$5 c. 0,255
+fi
+mv. 0 }
+fx_scalenx :
+foreach {
+split_opacity
+if $2==1 rgb2ycbcr[0] round[0]
+elif $2==2 rgb2lab8[0] round[0]
+fi
+if $1==0 scale2x
+elif $1==1 scale3x
+elif $1==2 scale2x scale2x
+elif $1==3 scale3x scale2x
+elif $1==4 scale2x scale2x scale2x
+elif $1==5 scale3x scale3x
+elif $1==6 scale3x scale2x scale2x
+elif $1==7 scale2x scale2x scale2x scale2x
+elif $1==8 scale3x scale3x scale2x
+elif $1==9 scale3x scale3x scale3x
+fi
+if $2==1 ycbcr2rgb[0]
+elif $2==2 lab82rgb[0]
+fi
+a c
+}
+fx_scalenx_preview :
+z 40%,40%,60%,60%
+fx_scalenx $1,$2
+fx_animate_elevation3d : skip "${4=}"
+if $3 filename="$4/gmic_elevation3d.png" else filename="" fi
+_fx_elevation3d ${5-6},0
+animate fx_render3d,"${7-8},${10-19},$9","${7-8},${20-29},$9",$1,$2,{``$filename}
+fx_animate_elevation3d_preview : skip "${4=}"
+w={w} h={h}
+_fx_elevation3d ${5-6},0
+fx_animate_preview fx_render3d,$w","$h",${10-19},$9",$w","$h",${20-29},$9",0,$w,$h
+fx_animate_extrude3d : skip "${4=}"
+if $3 filename="$4/gmic_extrude3d.png" else filename="" fi
+_fx_extrude3d ${5-7},0
+animate fx_render3d,"${8-9},${11-20},$10","${8-9},${21-30},$10",$1,$2,{``$filename}
+fx_animate_extrude3d_preview : skip "${4=}"
+w={w} h={h}
+_fx_extrude3d ${5-7},0
+fx_animate_preview fx_render3d,$w","$h",${11-20},$10",$w","$h",${21-30},$10",0,$w,$h
+fx_animate_imageobject3d : skip "${4=}"
+if $3 filename="$4/gmic_imageobject3d.png" else filename="" fi
+_fx_imageobject3d "_",$5
+animate fx_render3d,"${6-7},${9-18},$8","${6-7},${19-28},$8",$1,$2,{``$filename}
+fx_animate_imageobject3d_preview : skip "${4=}"
+w={w} h={h}
+_fx_imageobject3d "_preview_",$5
+fx_animate_preview fx_render3d,$w","$h",${9-18},$8",$w","$h",${19-28},$8",0,$w,$h
+fx_text_pointcloud3d :
+W={w} H={h} M={round(1.5*max(w,h))} rm
+text_pointcloud3d "$2","$3",$4
+col3d. ${5-7} *3d. {0.7*$M}
+f3d 4000 db3d 0 m3d
+repeat $1 {
+rprogress {60*$>/$1}
+angle={$>*360/$1}
++r3d[0] 1,0,1,$angle
+$M,$M,1,3,-1 j3d. ..,50%,50%,0,1 rm..
+}
+rm[0] a z autocrop -1 to_rgba s z replace_color 0,0,-1,-1,-1,255,0,0,0,0
+if $11 N=$! foreach {
+rprogress {60+40*$>/$N}
+i[0] 100%,100%,1,4 fc[0] ${8-11} +channels. 3,3 +negate. b[-2,-1] $14% to_rgba.
+j[0] .,$12%,$13%,0,0,1,..,255 rm[-2,-1] blend alpha
+} fi
+if $W>$H r2dx $W else r2dy $H fi
+if $15>1
+i[{int($1/2)}] [{int($1/2)}]x{$15-1}
+i[0] [0]x{$15-1}
+fi
+fx_text_pointcloud3d_preview :
+fx_text_pointcloud3d 4,"$2","$3",$4,${5-7},${8-11},${12-14},1 drgba
+frame 1,1,0 append_tiles 2,2
+fx_transition3d :
+f3d $7
+transition3d $1,$2,$3,"$4","$5","$6",$8
+fx_transition3d_preview :
+if $!==1 gui_warning_preview "Missing input layer" return fi
+f3d $7
+k[0,1] transition3d 4,$2,$3,"$4","$5","$6",$8
+k[1,2]
+r[0] 50%,100%,1,100%,0
+r[1] 50%,100%,1,100%,0,0,1
+a x
+line 50%,0,50%,100%,1,0,0,0,255
+fx_animate_pencilbw : skip "${4=}"
+if $3 filename="$4/gmic_pencilbw.png" else filename="" fi
+animate pencilbw,"${5-6}","${7-8}",$1,$2,{``$filename}
+fx_animate_pencilbw_preview : skip "${4=}"
+fx_animate_preview pencilbw,"${5-6}","${7-8}"
+fx_animate_stencilbw : skip "${4=}"
+if $3 filename="$4/gmic_stencilbw.png" else filename="" fi
+animate stencilbw,"${5-6}","${7-8}",$1,$2,{``$filename}
+fx_animate_stencilbw_preview : skip "${4=}"
+fx_animate_preview stencilbw,"${5-6}","${7-8}"
+fx_animate_cartoon : skip "${4=}"
+if $3 filename="$4/gmic_cartoon.png" else filename="" fi
+animate cartoon,"${6-10},$5","${11-15},$5",$1,$2,{``$filename}
+fx_animate_cartoon_preview : skip "${4=}"
+fx_animate_preview cartoon,"${6-10},$5","${11-15},$5"
+fx_animate_edges : skip "${4=}"
+if $3 filename="$4/gmic_edges.png" else filename="" fi
+animate fx_edges,"${6-7},$5","${8-9},$5",$1,$2,{``$filename}
+fx_animate_edges_preview : skip "${4=}"
+fx_animate_preview fx_edges,"${6-7},$5","${8-9},$5"
+fx_fire_edges :
+fire_edges ${1-7} rv
+fx_fire_edges_preview :
+gui_split_preview "fire_edges $1,$2,$3,$4,1,$6,0",${-3--1}
+fx_lavalampbw :
+if !$! (255;100^64;16^128;0) r. 512,512,1,3,3 fi
+foreach {
+remove_opacity
+w={w} h={h}
++r $4%,$4%,1,1,0 [-1]x{$1-1} rand[^0] 0,1 stencil[^0] $5,0
+if $3 [1] fi
+morph[^0] $2,$6,0
+stencil[^0] $5,0
+r[^0] $w,$h,1,1,3 b[^0] 10 >=[^0] 50% *[^0] 255
+r[^0] 100%,100%,1,4 j[^0] [0] rm[0]
+if $3 rm. fi
+}
+if !$7 foreach { split_opacity n. 0,1 *[^-1] . rm. } fi
+fx_lavalampbw_preview :
+fx_lavalampbw 2,2,1,$4,$5,$6,$7 k[0]
+fx_animate_lissajous : skip "${4=}"
+if $3 filename="$4/gmic_lissajous.png" else filename="" fi
+animate fx_lissajous,"${5-22}","${23-40}",$1,$2,{``$filename}
+fx_animate_lissajous_preview : skip "${4=}"
+fx_animate_preview fx_lissajous,"${5-22}","${23-40}",0
+fx_moire :
+if 0$_is_preview" && "!narg($_preview_area_width) _preview_area_width,_preview_area_height=512 fi
+if $2 repeat $! { if $>" && "{$<,s==2||s==4} blend[$<] [{$<+1}],alpha,1,1 fi } fi
+if $4
+skip={"
+l<=6?1:(
+const l5 = int(l/5);
+const l4 = int(l/4);
+const l6 = int(l/6);
+5*l5==l?l5:
+6*l6==l?l6:
+4*l4==l?l4:(
+const r6 = abs(6*l6 - l);
+const r5 = abs(5*l5 - l);
+const r4 = abs(4*l4 - l);
+r5<=r4 && r5<=r6?l5:
+r6<=r4 && r6<=r5?l6:
+l4
+)
+)"}
+k[0--1:$skip]
+if $!>6 rm[6--1] fi
+fi
+N=$!
+foreach { if s==2||s==4 drgba 255 fi }
+if 0$_is_preview
+W,H=$_preview_area_width,$_preview_area_height
+if $3
+if $W>$H W={$H/sqrt(2)} else H={$W*sqrt(2)} fi
+fW,fH=$W,$H
+W,H/={arg($3,4,3,2,1)}
+fi
+elif $3
+W,H,fW,fH={"$3==1?[620,877]:$3==2?[827,1169]:$3==3?[1240,1754]:[2480,3508]"},2480,3508
+W,H,fW,fH={round([$W,$H,$fW,$fH]*0.95)}
+else
+W,H=${-max_wh}
+fi
+if $3" && "$5
+W,H=$H,$W fW,fH=$fH,$fW
+fi
+if !narg($fW) fW,fH=$W,$H fi
+foreach {
+if [w,h]!=[$W,$H]
+- 255
+rr2d {(100-$6)%*[$W,$H]},2,2
+r $W,$H,1,100%,0,0,0.5,0.5
++ 255
+fi
+}
+if $1
+100%,100%,1,100%,"i(#x%"$N",x,y,z,c)" rm[^-1]
+100%,100%,1,1,"x%"$N"?0:255"
+else
+100%,100%,1,100%,"i(#y%"$N",x,y,z,c)" rm[^-1]
+100%,100%,1,1,"y%"$N"?0:255"
+fi
+if $3
+ir={round(max($fW/$W,$fH/$H))*100}
+r $ir%,$ir%,1,100%,1
+r $fW,$fH,1,100%,0,1,0.5,0.5
+fi
+if $7" && "$8
+ax,ay={a=$7-1;[a%2?0.95:0.05,int(a/2)?0.95:0.05]}
+0 t. "#"$N,0,0,{0,h*$8%},1,255 autocrop. frame. 5%,15%,0 negate. to_rgb. j[^-1] .,$ax~,$ay~ rm.
+fi
+=> "name(Merged Frames),pos(0,0),opacity(100),mode(alpha)","name(Mask),pos(0,0),opacity(100),mode(alpha)"
+u $N
+fx_moire_preview :
+_is_preview=1
+fx_moire $*
+fx_tk_animateobject :
+if $!<=1 return fi
+if $15==0
+to_rgb if $9==0
+r {w*{$6/max(w,h)}},{h*{$6/max(w,h)}},1,{s},6 c 0,255
+if $14==0
+[-1,-2] [0] rv[0,1]
+blur_xy[0] $11 ir[0] $13,256 n[0] 0,255
+tk_fx_replace_color[0] 1,0,0,0,0,255,0,0,0,0
+blur_xy[0] $12 inpaint[1] [0]
+rm[0] rv[-1,-2]
+else [0] rv[0,1] rv[-1,-2]
+[0] [0]
+... .
+to_gray[-1,-2] ir[-1,-2] 128,256 n[-1,-2] 0,255
+s[1] c a[1,2,3,-1] c
+s[2] c a[2,3,4,-1] c
+rv[1,-1] compose_rgba[1,-1]
+rv[2,-1] compose_rgba[2,-1]
+to_rgb[1,2]
+fi
+dx={$1/$7} dy={$2/$7} dz=1 repeat $7
+shift[-1,-2] $dx%,$dy%
+if $3>=0 dz={$dz+{{$3}/$7}}
+else dz={$dz-{{{1-{10.01+$3}/10}}/$7}} fi
++fx_zoom[-1,-2] $dz,$4,$5,0
+to_gray. ir. 128,256 n. 0,255 to_rgb..
+s.. c a[-4,-3,-2,-1] c
+if $10!=0 unsharp. {$10/5},{$10/2},0 cut. 0,255 fi
+mv. -3 done rm[-1,-2] rv rv[-1,-2]
+index={-3} repeat $7
+.. rv[-1,-2] index={$index-1}
+rv[-3,$index] compose_rgba[-3,$index]
+done rm.. if $8==1 rv fi
+else
+if $14==0 frames={$!-1} counter={-5}
+[-1,-2]
++blur_xy. $11 ir. $13,256 n. 0,255
+tk_fx_replace_color. 1,0,0,0,0,255,0,0,0,0
+blur_xy. $12
+repeat $frames inpaint[$counter] .
+counter={$counter-1} done rm[-1,-4]
+[-1,-2]
+else frames={$!-2} +to_gray.
+s... c a[-5,-4,-3,-1] c
++to_gray. +fc. 0,0,0
+rv[-1,-4] compose_rgba[-1,-4] mv. -3
+fi
+counter={-6} dx=0 dy=0 dz=1 repeat $frames
+[-1,-2]
+shift[-1,-2] $dx%,$dy%
+if $3>=0 dz={$dz+{{$3}/$frames}}
+else dz={$dz-{{{1-{10.01+$3}/10}}/$frames}} fi
++fx_zoom[-1,-2] $dz,$4,$5,0
+to_gray. ir. 128,256 n. 0,255 to_rgb..
+s.. c a[-4,-3,-2,-1] c
+if $10!=0 unsharp. {$10/5},{$10/2},0 cut. 0,255 fi
+mv. $counter
+compose_rgba[$counter,{$counter-1}]
+dx={$dx+{$1/$frames}} dy={$dy+{$2/$frames}}
+counter={$counter-1}
+rm[-1,-2]
+done rm[-1,-2,-3,0]
+fi
+else
+to_rgb if $9==0
+r {w*{$6/max(w,h)}},{h*{$6/max(w,h)}},1,{s},6 c 0,255 fi
+dx=0 dy=0 dz=1 if $9==0 counter=$7 else counter={$!-1} fi
+index={-2} repeat $counter
+if $9==0 . mv. $index fi
+dx={$dx+{$1/$7}} dy={$dy+{$2/$7}}
+shift[$index] $dx%,$dy%
+if $3>=0 dz={$dz+{{$3}/$7}}
+else dz={$dz-{{{1-{10.01+$3}/10}}/$7}} fi
+fx_zoom[$index] $16,$4,$5,0
+fx_zoom[$index] $dz,$4,$5,0
+if $10!=0 unsharp[$index] {$10/5},{$10/2},0 cut[$index] 0,255 fi
+index={$index-1} done
+if $16!=1 rm. fi fi
+fx_tk_animateobject_preview:
+if $15==0 start_x={{xM/w}*100} start_y={{yM/h}*100} else start_x=50 start_y=50 fi
+fx_tk_animateobject ${1-6},1,${8--1} k[0]
+line[0] {$1+$start_x}%,{$2+$start_y-10}%,{$1+$start_x}%,{$2+$start_y+10}%,1,255,0,0
+line[0] {$1+$start_x-10}%,{$2+$start_y}%,{$1+$start_x+10}%,{$2+$start_y}%,1,255,0,0
+line[0] {$4*100}%,0%,{$4*100}%,{{$5*100}-5}%,1,255,255,0
+line[0] {$4*100}%,{{$5*100}+5}%,{$4*100}%,100%,1,255,255,0
+line[0] 0%,{$5*100}%,{{$4*100}-5}%,{$5*100}%,1,255,255,0
+line[0] {{$4*100}+5}%,{$5*100}%,100%,{$5*100}%,1,255,255,0
+fx_animate_rodilius : skip "${4=}"
+if $3 filename="$4/gmic_rodilius.png" else filename="" fi
+animate rodilius,"${6-10},$5","${11-15},$5",$1,$2,{``$filename}
+fx_animate_rodilius_preview : skip "${4=}"
+fx_animate_preview rodilius,"${6-10},$5","${11-15},$5"
+fx_animate_glow : skip "${4=}"
+if $3 filename="$4/gmic_glow.png" else filename="" fi
+animate glow,"$5","$6",$1,$2,{``$filename}
+fx_animate_glow_preview : skip "${4=}"
+fx_animate_preview glow,"$5","$6"
+fx_spatial_transition :
+to_rgba r ${-max_wh},1,100%,0,0,0.5,0.5
+shape=-1 formula=
+if $3==0
+elif $3==1 shape=0
+elif $3==2 formula="$4"
+elif $3==3 formula="sin(x*0.5*pi/w*(1+100*A))"
+elif $3==4 formula="sin(y*0.5*pi/h*(1+100*A))"
+elif $3==5 formula="atan2(y-h/2,x-w/2)%((1-A)*2*pi+0.001)"
+elif $3==6 formula="R=0.5*sqrt(w*w+h*h);sqrt((y-h/2)^2+(x-w/2)^2)%(0.001+R*(1-A))"
+elif $3==7 100%,100% plasma. 1,1,{8/(1+$5)} equalize. 1024
+fi
+if narg($formula)
+{w},{h},1,1,"A=$5;"$formula fi
+if $-1
+if $6==0 k[$shape] norm n 0,255
+elif $6==1" && "$7==0 rm[$shape] rm.
+elif $6==1" && "$7==1 rm[$shape] rm[0]
+elif $6==1
+transition[^$shape] [$shape],$1,$2,$7*($1-1) rm[$shape] rm[0--1:2]
+else
+transition[^$shape] [$shape],{$6*2},$2 rm[$shape] to_rgba
+fi
+if $!>1 to_rgba frame 2%,2%,0,0,0,0 append_tiles , fi
+else
+transition[^$shape] [$shape],$1,$2
+rm.
+fi
+=>[^] "name(transition),pos(0,0)"
+if narg($formula) u "{$1}{$2}{$3}{"$formula"}_"{$3==2?2:1}"{$5}{$6}{$7}{0}" fi
+fx_spatial_transition_preview :
+if ($3<=1" && "$!<3)" || "($3>1" && "$!<2)
+gui_print_preview "Warning:",,"This filter requires more input layers to work properly."
+return
+fi
+fx_spatial_transition ${1-3},"$4",${5-7},1
+mc_dragonfly :
+max_wh={$!>0?[${-max_wh}]:[512,512]}
+w,h={S=[$max_wh]*$1%;[max(S[0],1),max(S[1],1)]}
+l[]
+shape_dragonfly {($7?2:1)*min($w,$h)}
+if $7 r2dx 50% fi
+frame {2.5*$2}%,{2.5*$2}%,0 b $2% * $6 round c 0,255 autocrop
+100%,100%,1,3 fc. ${3-5} rv[-2,-1] a c
+gui_set_layer_name "Dragonfly"
+gui_set_layer_pos {0.5*([$max_wh]-[w,h])}
+done
+mv. 0
+mc_dragonfly_preview :
+mc_dragonfly $* blend[^0] [0],alpha rm[0]
+#@cli shape_kookaburra : _size>=0
+#@cli : Input a 2d kookaburra binary shape with specified size.
+#@cli : Default value: 'size=512'.
+#@cli : $ shape_kookaburra ,
+shape_kookaburra : check "${1=512}>=0"
+e[^-1] "Input a $1x$1 kookaburra binary shape." v -
+ir={round($1)}
+if !$ir 0
+else
+base642img "MiBzaG9ydCBsaXR0bGVfZW5kaWFuCjEgOTU5IDEgMSAjMTEwNwp4nI2VeWyVRRTFz3TfH6Eo7qLFSDSKgFBKSyGARSgICCggdYni0gaDiSHRhESjiYZocMEqFCioiNWispQlRNPUQsUCLbZQS21tKd33je7net+88nwvmugfv5z55r2Z755778wHH/gYGEDpTXVgHO/DJE7BNEZjOVdgHQ36JAnJTMEGvoKN3IjX+Do2cRPe4Jt4i2/jHb6LzdyM9/g+tnALPuCH+Jhb8QlT8Rm3YTu3I82Shh3cgZ2WnZZdll1IZzp2cw/2KJ/zC3zJvdirfMV92MevkcEM5Rt8y0xkcj/28zt8zwM4wIM4xEPKYRweIYtZyhEcsRzFMR5TjuMET+BH/oRsZiOHOcjlSeQxD6d5GvnMxzkW4jcW4QIv4neWooxlqGAFKlmJy7yMGtaino1oZiva2YFu9qCXfRjgIEgCYoyv+Bp/8TeBEmRCJMSESbhxiMOMktEmUpZgQLJxvSSiS/UGSUCz1XjUSA4i5X6UqYbLTTgnP2uMuTbGXJ7CKY0zT+P8VePM51mNtQAFPG/jLeIFG3OJxlzKSxp3Oco17gqNu5JVGns1qllj469lvXpoQAOb0MRm9dKCFrahje3WUwe70MVu662HvdZfH/st/epzkEMY4jCG1S8pFqExRnyMj3r3FT/jp/79JdAEKM48BEmwCdZchEioCZUwmxMn4RKheI4jTIRbHR5j77n/r97rw+17wkfeH+bW0JG4nOqKMdTWLtgS7NYg9eLy41SnvwD1GTCi/urbz9bfx+bCR3NiDARGbJ6oORvW3A1ZBjWXAxzQnDpz26d57sVVzXm35r5La9DJTkuH1qTd0q41akOrrZVLW7UPWywtto7NWs8mS5NbGy2NWu8GW/d6rX+dpU57oW5Ea21v1GiPXLFcsVRbqm3/VGkflWtflfEPey4uaZ85z0gJS3BRe69Ye7CYxdqLRTivfVloKdQeLcBZ7dczPKN968CwHNfzFoZ+OaoagquShV8YrOfhoPZ3INrlB5ykH5okU/veF/WSYe+CdO7WeyLd4rw30vQOcd4n2/gqKOPxKTdgUKKQypd17ztV16NX7tD59eiRcaop6JTb9T5K0XfcppqMVrlV1yfrGbxF9SU0ys16V72IOrlRn1/QMzlW//c8quU61XWokjG6z3P4U0br/s+iXBzYymdQKmFWSyQYH/FpPMUnkcQkrOVaPME1WKOs5mqs4io8zsewkiuxQu/W5XwUy7gMS7kUS/gIFnMxFnEREpmIhVyIBVygPIz5nI8EJuAhZR7nYS7nYo5lDmZzNmZZZiGe8ZipuHSme+w97/otjnGIVVwaa8feGosZbp2BGMWlMXbs0hhMd+v0/xx7rru2n+feLmK9xrHuZ++x99y/6z89xXn87unfqa6c/K3X1nh6jUa0Mo1TMdXyIKbot9LJZE62TOIDmMiJuJf3YAIn4G7ehfGMQhTHQiRIv69jEMlRiGAossr/As3XmqgxIDI2IDEgMSAjNTMKeJxzZ/BliGJgYIhmMGJIYVBgyGbIB8JshkSGJIZShiIgTASKFjNkAOkChlSGWKBaAORKCL8="
+decompress_rle. r. $ir,$ir,1,1,5 if $ir>512 b. 0.2% fi >=. 40%
+fi
+nm "[2d kookaburra shape]" v +
+mc_kookaburra :
+max_wh={$!>0?[${-max_wh}]:[512,512]}
+w,h={S=[$max_wh]*$1%;[max(S[0],1),max(S[1],1)]}
+l[]
+shape_kookaburra {($7?2:1)*min($w,$h)}
+if $7 r2dx 50% fi
+frame {2.5*$2}%,{2.5*$2}%,0 b $2% * $6 round c 0,255 autocrop
+100%,100%,1,3 fc. ${3-5} rv[-2,-1] a c
+gui_set_layer_name "Kookaburra"
+gui_set_layer_pos {0.5*([$max_wh]-[w,h])}
+done
+mv. 0
+mc_kookaburra_preview :
+mc_kookaburra $* blend[^0] [0],alpha rm[0]
+#@cli shape_rooster : _size>=0
+#@cli : Input a 2d rooster binary shape with specified size.
+#@cli : Default value: 'size=512'.
+#@cli : $ shape_rooster ,
+shape_rooster : check "${1=512}>=0"
+e[^-1] "Input a $1x$1 rooster binary shape." v -
+ir={round($1)}
+if !$ir 0
+else
+base642img "MiBzaG9ydCBsaXR0bGVfZW5kaWFuCjEgMTkyOSAxIDEgIzIzODEKeJyFl3l0lsUZxe9k+bInJAJhlUWBIJvSqGjV4gYiaEUxIKvIYgC1Lsj2IftioaKIIjsIiKAUq2VRrFBbq4IisgkIBBISEpZEZAsEmOud+T4CnJ6e/jHn99yZeWeemXlmeRGBCAMDKLU7Y1BMg0o2AiWMQOVyRuIXRiK9nFE4zihUKWc0fhXTxROM9jrEAE4xgCZqp5iX7Ci1EYPTSmXqK9N/e0lH4GYbg5OMxRmvI8M65godq3ZiUep1lHScymJxVsnpTOlSxuFcuY5X2WXd2o8pXjoe55Xv8i7Ij3bejwTpBOk4lQVwUf600xhOMlE6QdqVXcp3fiTKTgI9Y3x+W+9Pw3L9oPovZQas+r8o/9vaBPnTXDpKZYnqr7m+j0Ybm6Ty28Q2eMA+4FNr29qnVvZBfK72ptu2+A8rYY5tJ9bCStsZ/2YdrLVd8U/xX7Yn1rEuvrF9sJ7XY6O4jvXwvfgF62Oz7Yt/sAG2eGZgm31a7TbETzYba8Wd4me8AbvFT8WfbT+xEfbZ/lgj5oir2RgH7ADPPPsMVooHrZvDXvg7m2CvfQqfsKm+cWyG/eLHYq7thb+J+fLlI7FQfa8QD6uvv/JGFKvt5eIvans5b8Kvanu55uaUfc7ztPghf4ez9nkxE2X2Bc8L9iWV3wIrfshbAQ6UbgHDl9Xu7YgUV/BOBDhY/bdErPgJ70MCh2IVWyOJQY2lDVI82yKNr2is7VCRIzT2P6Ky5yOowlFie1QT14g1xNV8DLU4RuyAOhyr/MdxHSeoXhbqcaJnA07SnGYhg5M1x53QiFM0553QmK+LT6App2ptOqMZ3xS7oDnf0pp1QyZHKh4qah274xb1dZ5pWuMeaKH+zrECvmRP3K4+S5mCr9gbd3C84i5JcdEXd8mHU4rVr5mNlnxVdjy+5QDcw9f8XtnAZ3G/+nd7biOfQyu+oRiPxnd8Hm04TXs3Epv4EtrKly80fw9zuucjnCl/BuMxzpYvQ5HFufJjGDpxvhhEFy5UPMYptl9Edy6WHZDfL+JJLpGP0fL7JfTiMvkYJXsg+vBD+Rip/TAI2VyBb7RfStV+f34k28jXwXiGn8hfozEMxp+4MmwPwQtcpRgeioH8VByCQVzr9RB+rnkdiiDXeT2c68VhGMkvlT8MY/iV1+P4tdcT+a0YxCRu1PoMw2R+JwYxhZu0bkFM5Y9eT+NWr6dzu9Y1iJncofUejjncqfUPYh53i8PxLvcoroZjMfdpbwSxhDmKtyCWcr84XDGaq/0QVGzmaR8EFZP5sodp7xSozMXkIXwgvYaF0kH1uU3nQ0XF9Aj5vV0xkSZ7pGJkp+wU1Rmtud+t/Zeo78ZozvfoTImTPU5zm6N5jsYyxcYG9TtPMfk9D2K+YuIH9bdAsblF/Thu4xEs5F/wE49hkeJkF0s0htexh8c99/EE3lOsHuApzzye0dimoYBnPQtZhvf5No7yomcJYZbyHRdL4gx3XnueZ6JZxmXmA37wf9Iy1V96VXqfS8yScHqP7yktNou4yCzku2YBF5j5nG/mca6ZwzlKs80szjIzOdPM4DtmOt82b/EtM41vmqmcat7g62YKXzOTOdlM4p/Nq5xoJnC8GcexZgxHm9EcZUZyhHmFw80wDjVDONgM4stmoOL1Ip81A9jfZDPb9GFv8xR7mh7sbrqws+nILNOBHUx7PmIeYjvThg+YVrzf3Md7zb28J5zuNnezpWnJP5i7eKe5g7eb29jC3MpbzM3MNJlsbm7ijaYZm5ombGwas5G5gQ1NQ2aYBqxv6vF6cx3rmjqsY2qzlqnJGqY6q5mqrGIqs5KpyGtMGlNNBSabJM13PONMrOY/wCgTyQhjSJ2XF3DenkOpPY0SW4xj9giO2MMosoU4ZPN1Th/U+Z6rsz5HZ/lenes/Y5fdqbtiB7bbbdhqt+g++UF3S4zWdD3W23XhZDQ/a3UnfaZkdBaswmq9G8iPscqXOXs5Ppbt7l3LpVjmyxdhsV2ERfZdLLQLsMDOwzw7W3fdbMy2s5ScPcfrEK9Oc+3cq9I8fX9Zh+rM9m09qj5bY5ZNlS+/lw/ubq6JmTZZ47hNe6eB8mtihu7pc7pHylR+gTXwtnw8pXvmrMrLWB0TbKa/18tYDeOt7ifln2VV2TeqXkbYbqr4z1C9KrIb632RoTPN2Y30bsrQN+kYZzP0HsrQN+kYa+vpnZShs7gyxti6OCb7hOzRtrb2VYa+d3ZNHFZfx2WPstVQpHxnj7CVccjb6XjFpiBXdUqUH9R7JEf5xbLbq69j4qO2AY7oHeFYpLOlg/ILxcelC3iNZ76YJeYx1TNX7GjrY7/YSczRHdRR/u4TO4l7dRaF6PT1Ojcc62K38jvaOjpPHGt7Ztla2Ol5rc4bxxrYofpZtjq2Sz+ucW3zrCq6/KrY6pmOH339dGz2rKxzzLGS7ivHijrfXD8hZtlrdKddyTTdd8leh5imczE5nO++u6xDTNW9mRzOd+UhfTnf0eVX0H3lxp8aptMVyvmEZ+oVTBHT0Fn6W/FKvUHr0Fl6g9bHcZPiqIu4hdd67tD7rotidZfec12l9+jd1lV6r95njjl6g3VT/gG9rbpJ58qfs4rR7srL05vglGLX2fl6E/zq7WTZMYqP6uih/ALtz8OK/yd9W+6tHLIPKL9EPjypd2qu7u9i2T2Vf1D3S7Heoj19O86uLTtJ7QRk18FTyi+UfVR+91J+kfo6qjm5qOT0YZUd0bvFvWl6q+5RlR/RXXZGfvdW+THpIvl6UvPt9C96vxR6nYI+0sd11zl9IqxPSB/yY6uAvnpfn5Rd4HUqslV+RnPgxl6i+tkqL5U+KH1M7fdTeZl8cfqo6MrP04033vvUz7/Rk70+rO+yFbcHZBfJ7id7v/fF2dW97fy4ZDsf+oftfKWQHev7GhC282Q/q/29X3Pi2n1e+8TZ7psX7HUqj9Z+i8NA7dcCrcEeffOybSJfIvGz7EE6h9z/207N2WDbQmOPCNsBjethjSFG/bbX2B0f09zFyD/HgNhBc+T4kOoFNLY7/L+OW99s7bcicbP6ydbeWqF2n1asL/esoDeIY4reHBGa8yS9N4zWIlFvHscEJCjF6xyKK0+xiNG9ESPGhlNIh1LgCjukA1flhXTgv+r9r3SpfpT+UyL1/xdxRbqs9Res1PL0b3UXFlsxIDE1IDEgMSAjMzMKeJxzZ/BliGJgYChhyAdjPYZkhkyGXIZ0hiqgKABOuAT9"
+decompress_rle. r. $ir,$ir,1,1,5 if $ir>512 b. 0.2% fi >=. 40%
+fi
+nm "[2d rooster shape]" v +
+mc_paw :
+max_wh={$!>0?[${-max_wh}]:[512,512]}
+w,h={S=[$max_wh]*$1%;[max(S[0],1),max(S[1],1)]}
+l[]
+shape_paw {($7?2:1)*min($w,$h)}
+if $7 r2dx 50% fi
+frame {2.5*$2}%,{2.5*$2}%,0 b $2% * $6 round c 0,255 autocrop
+100%,100%,1,3 fc. ${3-5} rv[-2,-1] a c
+gui_set_layer_name "Paw"
+gui_set_layer_pos {0.5*([$max_wh]-[w,h])}
+done
+mv. 0
+mc_paw_preview :
+mc_paw $* blend[^0] [0],alpha rm[0]
+#@cli shape_mapleleaf : _size>=0
+#@cli : Input a 2d maple_leaf binary shape with specified size.
+#@cli : Default value: 'size=512'.
+#@cli : $ shape_mapleleaf ,
+shape_mapleleaf : check "${1=512}>=0"
+e[^-1] "Input a $1x$1 maple leaf binary shape." v -
+ir={round($1)}
+if !$ir 0
+else
+base642img "MiBzaG9ydCBsaXR0bGVfZW5kaWFuCjEgMTczNyAxIDEgIzE4ODkKeJyVl3lwldUZh383yb1JCIssCdBCKiVEQRGwWgLD4gaYUIpCkipLKyFkIQGxLe3UWurCUhEFREXEaWVsKzJBnWmt49qqrZVKHUQsLbYqRRBZpEDYcnPP2+eceyUk0mH6xzvv83u/s77nfOd8n9KUFlFEwrrsisgsTRkuppjLVKbLUpbLVrZrp3bBcpTj2qt9sA7qcNo6quNp60QbEXV2XdQlZV1dN3VrZbnKbWV5ymtj3V13rId6pCypz27JOq3b7OXS1Wy56u2iSgSfKWfd8L3x6err8hlnBr5ABf+HFbpC9XP9zmlN5HFg8On4AsYSDT5hmboEb5aNH6RBwQZrMPZ1F1HcvE+n3BAVsQ4W/DANa2PD3fCzWvJ5EXWKqJuuEW4ENlIjT9sojcLO5LH0e8pGaZzLoP9RupZcJWy0il3xWaxEJSlrYp2vxzfTj/fOYip1pSkrU1mwcpWnrK1O2reCn8qcnXk/TdPOalO/EJtK7EyrZjzH3BR8WvA+999ljRvdjcwrQ99nfI2uQvNZg0Y3Uz+0rOB/bO21lGc3W4Vusw5wlm6xmVpgHeEcYnX6KXw3zxbAt1sn/czO0x3wXfgl1gVfp4XWWYvhhfAieBH7bbHVh+cL4SXw3fiFlke7c3UPfJf10DJ4BWN27NM7rafutTlaib8duw++H78AWw4/YF/WT+xLlI1oFe09iL7NvoKv00PWS7fa+fjZWm299SPro4fhNZbPXL+qR+Bf0E8CPd/6aq3V6jHzec/X99AJ2nyM2DorIG99w3uyzmr0uPXTPLtQG6jbhP4lei66wfw7VaNfWaHmWH89ZbfoCbtA9TaA/ZShF9DrKVdvF1EvppfQT6LrbCB7JkuvoDegZ9sl9N0u7Nc/EmugrRpijty+gd6IrrIr9Gf4Oco0oSvRb9o8dJS2+qvCrmSNI9pC7Hnz+3cAsavw6cRuZixZtDdANxFzjO0dYi/Z5fq2Fetd8v+KDdU0G6+/wb+Hp8Db4VdtGPwNuD7wDfDf4dfgcvgf8OtwKbyDNdhk/twp0iS7Th+Q778wPmfD0RPRtXrLrknxXG21sZpMuQ8ZyzYbR3uTQ/w9uxYu00fwdsZXaqWUmYOlM0ev/bM5WAZ9ldCG1/XaSY4dehLv0UeM5d82SdfBO+GPaWNi4NnaDU+A95KrPfB46p+i7aPk9xN0MTrOuI/y/FPKFWP+3GpknF6P43mC8+t40GUagxnvyQn0Pp5fYzPgudoPXwWfZKyex1gVXK8D8NXwqcBllKlmTet1EL6S/dTEGA8wjtFwHD4IjyJ3cbTnESFeoyNhL5ennlUz3gzGMZU2aslLFXqGrghlK+EK2McrmUdFqNOMb+Q9HxnKzNAxnvm2m+2mwMNpM27fYZ6zYF9meogXhfj0EB8aeBrznaXL4Wb6P0Hfl2FxmxLil8LNdmOIFzHPuN0Q4kPJSzN8MtT18XK4Cvbx8hC/LMWn4K+R02bmf5IxDAnxUuKVGhzik+GZGhR4UuCBga+HK3RxipuIXwQn2Hc+3j+0M5F4ZeBE4BrKe54A11K+PrBfC9+OO4MTvCdx9tfFrL0LPFsDQpnxtFtHm56LQ5kLYYN9vJD2Hfu8mfIFsLH/fd2+9OXZx/sEHhv4fOqYjQmcb8/ga9XLnqb/WvW0BnSN8mwDukbd7El8tXKDrlZ324ivwj9Fn7OIez2Lcg1Bdw2+Gr0BXxvqOfrJpR2j3zz8mbqbrU/5J4LvbOdFOlmnSEfrEMmx7EimxSIxi2IZkXSL8FHllHDNanIndcId5246zr3zuT+qw+6wDrlDOugOYAf1GXbA7dd+t0+fuk+0x+3Wx26XdroP9YF7Xzvcdr3ntmqLe1ub3Sa94V7TH9zLetE9r+fcs/qNe0ZPu43a4Nbr1+5xrXM/16NujR5yq/QZd9Gzbjn7Pl+/c0vZSxfgF7HOA/F3kpdL9Vv3ul512/RO6GML48lj329mnP6OeEunmIefD5NnaonAcdcUOI35ZlhaJMrcY6ctGrSPR0yRNCxq6cE+z1OGLQ1nis9z1JaF+yHO2kTtPsaWyV6doZitwGfx7kxXJnyc+DHeMc/H4CO8JzHzc8vUId4Bz0c4Ew/YN5VlK3UY3sv+a28P6j/wbrtaObaasjHOyhFqZw+Tnxhn8BD6XcNZE+NML2Sej9BGjHO5jyLwPngrd22areX8i+mv3Oee98Jv8m0Qgfdwfr7o1tJHTC+7R1N+rXYRf8Gtpr8o67Q8nNkNbjHndYx1upW+o1rpavUv9P2uRv/Er8K/j3+A+A6er3ITSH1P7h7/rIS89eBOimmFG0POunOHRbXMjSZXeYw5qiV8l8e5s0/wfbGNcj9gHRv59ng3cB9y1JX7MAr3JhdduS+jms83936+Yd6mzHzXlXuhkzbD8/gP2MV30CbKlMB/Cj7G3ej/GZIW5Zs76lp0MtZa+/+LtjrznLGkbom16GSstU7+v2R9QbfEWnQy1lr7f5+2OvucsaRuif1vnd2mbiZz6rfrv+okDzMxIDE1IDEgMSAjMzMKeJxzZ/BliGJgYChhyAdjPYZkhkyGXIZ0hiqgKABOuAT9"
+decompress_rle. r. $ir,$ir,1,1,5 if $ir>512 b. 0.2% fi >=. 40%
+fi
+nm "[2d maple leaf shape]" v +
+mc_rooster :
+max_wh={$!>0?[${-max_wh}]:[512,512]}
+w,h={S=[$max_wh]*$1%;[max(S[0],1),max(S[1],1)]}
+l[]
+shape_rooster {($7?2:1)*min($w,$h)}
+if $7 r2dx 50% fi
+frame {2.5*$2}%,{2.5*$2}%,0 b $2% * $6 round c 0,255 autocrop
+100%,100%,1,3 fc. ${3-5} rv[-2,-1] a c
+gui_set_layer_name "Rooster"
+gui_set_layer_pos {0.5*([$max_wh]-[w,h])}
+done
+mv. 0
+mc_rooster_preview :
+mc_rooster $* blend[^0] [0],alpha rm[0]
+#@cli shape_paw : _size>=0
+#@cli : Input a 2d paw binary shape with specified size.
+#@cli : Default value: 'size=512'.
+#@cli : $ shape_paw ,
+shape_paw : check "${1=512}>=0"
+e[^-1] "Input a $1x$1 paw binary shape." v -
+ir={round($1)}
+if !$ir 0
+else
+base642img "MiBzaG9ydCBsaXR0bGVfZW5kaWFuCjEgMjAyNyAxIDEgIzIzNTcKeJyNl3d8V0UWxU8SCKQRFNBFEFFxQaXIhiQ0IbFQlC6gIl1IAkiRdXEtuytiYV1dWURUWBZEioiU0MsCClIMBBJaooAgnYCVppS5ft/7PX6CZssf8zlnkt97b+6Ze8/cUaQiIxQhMRqfjVSUK6GSLlqlXGnFuBh/xLpYRpziXbw/ElyCxliUngXftJL6k4/R+osro7FWWs/5GKPhV2CsRrhEvWXxeuEKTNCLAb7kY6JeLhbLamQYvff9Eq/SX/11/IwjWfMY8GVieIPfvehKaTQ4wkVpFFjWlVUiz5bxRwKxxRFnjEoT//OnouEJ/KacKrhrVdFdp8quisaxztGuqibw3rHuZk2yCnrH3aLJ9hv901XXVKukie42TbcqmuxqaoZV1RRXWzPtJk1zd2iWVdP7ri54iz5wSZpj1fWhS1a23arZLkXz7HbNdfU132pqnmuohVZbC1wjLbI7tNA11mKrq8XuTi2xJC11TbXMkrXcpYEpWuHStdxSwbv0b6uvVe5urbCG+tjdq5XWSKvBVXanPnHNwCZa51roY0vTBtcSTNen4Gq7Sznufq2xu7XRx3uU61rpE2umLa6N1lpz5YHrrIXyXVuwpba5duB92u7aa4O10k7X4TJsrUL3gD61tvrcdVKOtdOuAHe7ztpoHbTHxwe01z0Y4EPKtU760j0Mdtb+AA+4LtpsD+mgjw/rsOuqLWHsoqOum/Ksq44FWOS6g910PMATrofyrYe+CvBr10tbrae+8bGXvg3wO9db2+xRfR/gSfco2EenrsC+Og1utwydcX3ATJ0NY1/tsCz96DKKwX46B+60/jrvMsEBunAFPqaLv0DnssCBxBitFAvxPOosFV5gg4glVvV9Pph1xatBwLdbGTUM80Q18vkQ1vAz30keNw7zq9WE9RXY44zLeTk1LZaXV5rPh6rw/+IVlO7z3+uzYnihPXEFL+Rbaf+BN2XNhfYHfh/iBf6z3ppDvJC4mpinn8fLqi8+tSc8T1QGvrQ3mBdQ0xkWp33heTzzeP6f4c93om8GWu4L5jusFO9LDM+3WaQe5XtfBvN6Pvdy4Akls6Z95IzHU1jr/+Kp6LWXnNuBLik+93JwKH+vcAX/gjwtnvckh4eSD9cQb49f8Mf93+wyrz6G/Ip/Ts143FvPZ/YI+TaEZ6KUybyQ+tpCHhUQ90BiKjCvBgfxTHkNQt8d5tXsIO3GBwfzm9B8IN+txDye93TWJuZ77QbmMXynE7X+GDrdxLc74gcDtB9PTKX+PX4AX0y19vhGfx202+Dt8JJ+OoQ/puIl6+GHrRa8Nd6TBa8Db4U/Zeqo/Q5+H56VAU8inhb4WF94MrwZXtdHx/DJFLztI7Q+hlcm43er0LcIv0zGC1eiaRGemYRPrkDTInwzyRrjr93hTeEN8dzuOo5/1uVdS9DuOM/V4XuL0O4476uNZy/An47znZqsdZ49CG+m2/H6uehRBB+OFtnEPQsNiljni2iXbTdyXnRg3lIj2Zd5Vlnvo0WR3a9X0Hcu+znV2rDuVnoVfWeRvxPhx9DiNc6dNGI/yv9f5+xJw6+PoNcodE6ze+Ht9A++l47PH+Ybb6BzOvEcQvcxrCudGA+wlrHonG4N2JNOnLm1eLYeOdoZXpt6q8O+dtbbxNeEvdnFXo/jXGrM2VZIvOPRoCFr3k6OjOe5VOohF00mcEadxqsnoNdZPPpf6O7hRLT8EU+ehN7nXU+9i9YXAryIJ09mfYbXvofWYr+moHMEeziFGCLBqehbgv31sCT7P404o8Hp6FuK3JiOBjHky/voG8KWiiPHPkDP+AATyMWZ6FcmwERydSYaXkVOf4h+IWynctTEbPYihB1UgZqag3Yh7KhrqbdL6O1xRer4Emaz/9dR49noVSnAyjaMs76Lrg+wij0JPqIbAqxqfySHugbYTTcGeJM9dRl2183gQmq8mj0N9tQtxWIvVbdnisHeqnEZLkLjW+3ZAL2/9yGvotE/xN+0isQe4u+QV/N93pf9vI3+JMQnkSPLAj6ZHFgR8CleX+LzDPapEbX4NOvPYE+aUqMhPoN9XRvwmezlOp9nkufNqfsQn02Ob0CL+fA55P6nAZ/LnuX4PIvRHo+5xDvgP09SS1k83xE+zOcL2ZtczpFs+CL2Y7PP+1HPnt+F+FLz+gtvH/v5NZ8Hn8Pvl6NrHvs+O8yHsMYseq/enMkhvgKN8v3c6UfcGfigl1chnu/nWj88KAven7iz0KM/v/Fy1OMD4F4eZ9GXPRbma3jfVj/fM+GD4V5NZOJ3Q3hPL/YpE/2G+r3N5IDns+5JfHMdeZdPPBPh69Egn3qdEPA88nM87/V09fx5nM+fIvb21H0fNH4afdriDX3Q+Fl4KzwjxDdRU6NZx0b7M7wZfhPiOezla6xpoz3H8030N58P570N9DLr22TPs6Z6GkHu5toLrLWOngv4aquhZ8jxXHsJvapqGOv2+GL/DOrK90dSd13420iVJ47N9gr4UIAPgq+CncHXwI7g36nbB8DXwfbgKF1NTW+x0dR3a+ajVZaYttgY8D7mY/CBFuBYfOFevvMWeA/zt/GNdObvgE3BcYrFNzfZePylPvFNUGnOmhwwmrMoxybiT7WI/11F4bHrbTL+dTOxvkdvdz1xTqEnLMeZM407wnTuBzO4G8zUTPehZrnZ3AvmcCfIVrabp/luAfeARVrkFmuJW8odYBn9/wqtdKvo9z+i119Nn7+GHn8t/f16rXcb6Otz6OU3aZPL1Wa3hf49n959K337du1wO+nTC+jRP6M/30Vvvpt+fI++cHvpw/fRg++n7z5Iz31Qh9xheu0j9NlH6bGL6K+P01OfYHxFL/0N/fO3jO/om79nnKRPPsU4TX98Fp8/qx/cD/j8OWI9h89fwOMv4O8ODRz+bgxFRFiEPyItkhEVUcJK+KOklWRER5SyUuFR2kr7I8ZiwiPWYn814izuv4xf/z6W91x6d2hc+mZ0sA5vlIiIYn1R/jojWTMXaH8Y8VwkrovEd544zxHzD8R/Bh1Oo8dJtPmOO8a33Du+5i5ygvtJEXoeQdtD6LwfzYdy1rZmD7riDWnsSxvOqCT2qTk1+Vv2Lo0+4Br2tJEacGesx32yNnfOGq6abnAVtfLMTxH5r/cxIDE1IDEgMSAjMzMKeJxzZ/BliGJgYChhyAdjPYZkhkyGXIZ0hiqgKABOuAT9"
+decompress_rle. r. $ir,$ir,1,1,5 if $ir>512 b. 0.2% fi >=. 40%
+fi
+nm "[2d paw shape]" v +
+mc_flip :
+max_wh={$!>0?[${-max_wh}]:[512,512]}
+w,h={S=[$max_wh]*$1%;[max(S[0],1),max(S[1],1)]}
+l[]
+shape_flip {($7?2:1)*min($w,$h)}
+if $7 r2dx 50% fi
+frame {2.5*$2}%,{2.5*$2}%,0 b $2% * $6 round c 0,255 autocrop
+100%,100%,1,3 fc. ${3-5} rv[-2,-1] a c
+gui_set_layer_name "Flip"
+gui_set_layer_pos {0.5*([$max_wh]-[w,h])}
+done
+mv. 0
+mc_flip_preview :
+mc_flip $* blend[^0] [0],alpha rm[0]
+mc_information :
+max_wh={$!>0?[${-max_wh}]:[512,512]}
+w,h={S=[$max_wh]*$1%;[max(S[0],1),max(S[1],1)]}
+l[]
+shape_information {($7?2:1)*min($w,$h)}
+if $7 r2dx 50% fi
+frame {2.5*$2}%,{2.5*$2}%,0 b $2% * $6 round c 0,255 autocrop
+100%,100%,1,3 fc. ${3-5} rv[-2,-1] a c
+gui_set_layer_name "Information"
+gui_set_layer_pos {0.5*([$max_wh]-[w,h])}
+done
+mv. 0
+mc_information_preview :
+mc_information $* blend[^0] [0],alpha rm[0]
+#@cli shape_flip : _size>=0
+#@cli : Input a 2d flip binary shape with specified size.
+#@cli : Default value: 'size=512'.
+#@cli : $ shape_flip ,
+shape_flip : check "${1=512}>=0"
+e[^-1] "Input a $1x$1 flip binary shape." v -
+ir={round($1)}
+if !$ir 0
+else
+base642img "MiBzaG9ydCBsaXR0bGVfZW5kaWFuCjEgMTM3NSAxIDEgIzE3NzgKeJxdlnl0VdUVxr8bKWEqMgoOCIQkICQMFnPfe8l7CSGkSlAxGMQAUWODVFLKAkqRwYYGWUKtVsWpdaFVsOhCRERFREWlCghI0VIZa0WpUgeotra2nt3fOSqL+sdZv+z7Xu67dw/f/pSlrEiRxOm8Ik8DXUKlrlJVbrRqXK3qXL2ucVM01U3XT9x1mu+a1OwWabG7Sbe427TU3al73L1a5u7Xg+4hrXSPaJVbrTVurda5p7TebdBG97w2uZe02b2iLW6btrudet3t0m73pva4t7TP7dcBd0hvu3d02L2rI+59feCO6kP3sT5xx/R396k+c//U5+5f+sL9V186J3OKsuyUqIW1jLKtVdTa2kRtrV3U3jpEHa1T1Nm6RF3ttKibdY9Ot8X6ty3RmTZPB22+zrafaqfNUi+boc02XTn2Y22wqcq1Rq21Kcq3a7WKc45do+WcAdagZfYDFdjVutvqVWhXaSmn0CbqZrsC1mqJ1cGxWmgT4Bg12Xg4WvP4rNAu1Gy7HI7UTBsHv69pdhmsUKPVcN9hmmyXwowaAktUzz0KLKk6q4axJgQO1TjuOcCGqCZwkKrtYlio0YH9Ncougv00kt/sb3mqtFGwjyoCe6vcqnivs1UaeJZKeKZz7AylArsrYReon52mosDO+l5gRw2x89XXTtVAnr2vfZdn8WzLPSvJV2u+45nNGaE8+w659DyF3HpG5LpCw50/w1XOOfnvcleuYeEMUxnnG5a5Mnqx7ARLXakynG+YcZkTTLs0Oc7Sq/w9x1rAtOZaS/otQw2yYVrzrVW4/jNrE+ImawdLtMDaayvxz3m/rcTN1iHEN1inEC+yLrAYdtU24hutGyzWYvLluYT8ed5EPl8L7AFT+qX1pNeLdYv1CvyV5cCUbrVc7SC+jfrsIL7d+monXErddrik7qCOPr7LCpgTz0KYpPcGaRfxr21wiH9j5xIndS998YfA8wKX0S+74X2WCLzfUjCh39JXbxA/YGm9CR+k397g+nIrI05ohZXrj/AharWHz39H7fYQr6S2ng/TA3+Cj9ArbwVWBa6i1/bCR+k9z9X05j74GD27z8VwjPbDNfT6Aa6vZU48n2AWDnB9HTNyMHC8DsEnmas/w6eYKc+n7Uq0IdZ6Zs/zGebwL3ADc/kOfNYmBW60yehHrOeY3XcDp+g9+Lz9CE2J9QIz/p4r0iabRlykF5n9vwbO0PvwJZsJYzRhFvoT6/c2W0fhKzZHfwuciybFehUd8dxi1+sjuNWa9HHgAvQq1jZr1jH4mi0M3G6LdBwupy7H0c7t8JhbyOeezXw/5v8W8P8x92kK/Mhdz/1jfmcev+c5l9+PeY45gUfdbJ4v5jln8bwxzz1TLwfO4H2KeK/pgUfcNN63iPeeyvsXkZdG8hETTyE/MfG1gYfdZPIXk8dJ5NOzgfzG5Plq8h2T93qYgFdSj5i61FEfz4nUK6Zu46lfTB1rAw+4cdQ3AcdSb88aPQ73uzH0Q0xfVAfuZc+s5vpedxH943kh/ZSgr6ror5h+GwkT8Hz6L0EfVtKPniPozwT9WgGTsJz+TdDHZeQ5QV9n6O8kcZp+TxKX0P9+HlLMQzLMw32BMfOSZG7OY348hwbucucyX0nmbDDzliIexPz5uJB5TMGCwJ2uv+6EO1w/5tfHfZlnH+cx38Uwl3lPMfc5zH8KXeiFHhQT90QffNwDvSiGZwVuc2egJ57d0RfPbuhNCeyK/hSjQ11gCeyEPpWgXx3QKx+fin6lYXv0zF9vh76lYRv0Lo3utUL/fJyNHvq4Jfro2QK9zMAsXWdeRzPf0tbSk3T3//W47Ft6PexrHS8/ofHDT/r7K/2voG7+jKCO/vRDs3uiL/3R7F7slAI023MgWu05hB3Tmx00lJ3jWYRGeybYSTnoUIod5VmCNuegR2Voch92XTma7FmBJntWsvP6oFMj2YG56NQodmIuO3O05QdWo72eNTaAfXUJe7YQVrN3BwfWobV56Fg9GpvHjm6gNz0nU8N89KyRXOaz06ehpfno2kwbDi9nJ/m9WEvOL4DjqckoOAGfcDGso9Zj4BX4iLHQ+4pa9qr3GROh9x1XQe9DGqD3JT/ke96nNPL7X/mW3uiY9zE90S3va3rgcQ5xzrRf6D/4ntPxQN3wQl3xRJ3xRh3xSO3xSm3xTK3xTtl4qBaWFUWmyPBWX+KxvsBrfY7n+gfe6zge7BO82Id4sg/wZkfwaIfxam/j2Q7i3fbi4fbg5Xbj6V7H223H423B623G823C+23EA67HC67DE67BG67CI650K/QAnnEZ3vEePORSd6tuxlMuRh+b0cB5eM1ZaNhU9GkS2lOHrtSgFVX0TobZHchcdVrxPzrt8oExIDE1IDEgMSAjMzMKeJxzZ/BliGJgYChhyAdjPYZkhkyGXIZ0hiqgKABOuAT9"
+decompress_rle. r. $ir,$ir,1,1,5 if $ir>512 b. 0.2% fi >=. 40%
+fi
+nm "[2d flip shape]" v +
+mc_mail :
+max_wh={$!>0?[${-max_wh}]:[512,512]}
+w,h={S=[$max_wh]*$1%;[max(S[0],1),max(S[1],1)]}
+l[]
+shape_mail {($7?2:1)*min($w,$h)}
+if $7 r2dx 50% fi
+frame {2.5*$2}%,{2.5*$2}%,0 b $2% * $6 round c 0,255 autocrop
+100%,100%,1,3 fc. ${3-5} rv[-2,-1] a c
+gui_set_layer_name "Mail"
+gui_set_layer_pos {0.5*([$max_wh]-[w,h])}
+done
+mv. 0
+mc_mail_preview :
+mc_mail $* blend[^0] [0],alpha rm[0]
+#@cli shape_information : _size>=0
+#@cli : Input a 2d information binary shape with specified size.
+#@cli : Default value: 'size=512'.
+#@cli : $ shape_information ,
+shape_information : check "${1=512}>=0"
+e[^-1] "Input a $1x$1 information binary shape." v -
+ir={round($1)}
+if !$ir 0
+else
+base642img "MiBzaG9ydCBsaXR0bGVfZW5kaWFuCjEgMTYzOSAxIDEgIzE5MDMKeJxtl3lY1lUWx7+3yXEac0pnbDInH80Ze5pqZlrGabWy0txTJEIy19xN0ywXXFhcEcEFFRAVF0RUEFGUANnk5VVEQVFDRQXXtGemnGrKns6Z7+++P5DMP87zOef78v7ee8/v3HMPuAt3GRiA9usrjdBUWqClPIw20g7t5TE8Lk/iH/I0npUOeE5ewIvyMl6R1/C6vInO0gVdpTt6SE/0lj7oK37wlwC8K4HoL0EYIAMxSAZjiAzFMBmOETISo2UMxso4fCjjMUEmYpJ8jMnyCT6VKZgq0zBdgjFDZmKWzEaIhCJMwjFH5mKezMcCWYgIWYRIWYwoicYSWYqlsgzLJQYrZCVWSSziJB6rJQFrZC3WyjokSiLWywZslE1Iks3YLMnYIinYKtuwXVKRJmm0HUiXnciQXdgtmciUPdgre5ElnyFbcpAjudgneciXfBRIIQqlCPulGB7x0ErglQM4KKU4JGUoox2WIyiXClTIURyTY6iU4zguJ3BSPkeVVNFO4bScQbVU087inJxHjdTQanFBLuKiXMJluYwrchVX5Qtck3m4of64zlxcVz98KSG4pH3wb+aoRnuTs3BWe+Er5u2U9sQNmYGT2oMMxnHyG/Kodse3Mh3l2g3fkYfJ78lD5A/Meyl5kzxA/ihTUUL+xNijXSFkMWMl95NGp6GQutGpKGD8K8b5jO8m8xg3suyOxjod+xg3ZpzL+B7GuVzPb8kcxk3IbMb3umyqwWRP3Kcz8Bl5v8tmOpPsheaMs7jfPzC+xbfxgM5qwD54UGc3YF88pKH8vh9aufyThpH90FrD+Xv+Lt9BG53LdQWgrctHdB7XG4h2Op/7CMSfdQHZH38h8zQI7TWC+34Pj5IF+j4e00jmxcciHYTHNYr58rFYh+BJXcK8DiWXwqvD8HddjoP6ARnD9zACT+kKlOkoPK0rcURH4xmNRYWOxbMaj0odh39qAk7oeHTQNajSj/AvTcQZnYTndD3O6WQ8r0m4qFPwgibjKnP+om7Df5iTlzQdP3CPL2tH05H2ir5qXrX2mumknWivmzf0DdqbprN2pnUxb+lbtK6mm3ajdTc9tAetp+lJ66W9TW/a29rH9KH1VT/jR+un/sbf2jsmQANo75pADaT1N0Ea5Np7ZoAOoL1vBmoJ/svcDdQcrncRBmsmapm7wZqG07oYQ7iPSnKobmTdRmMY932Q/EDjmE+HMcz7Ugynn0OO4Hf36jKM5PvKIEfpHOzg34xmHWy1DMZmcgxzs4k5Hsu6SyLHUU/SVfjQfh5LRrMe4jCBz8i1XM73HoeP+N08XY2J9VzB95+Aj/mMAq6tjpP5rAJdi0/IQl3nMhFT+Gwfnc99LNQNmGb1Om5EMH+rSDfdxiTMZB3s180ukzHL5WyupVi3uExBiMtQcr/LYtZCONd6i9sxh/RoKuZyzbeYhnlW34H5Nq5jOha4XMi9lehOlxmIsHoGFtl4l8vdiHS52DLT5R5EuYxmburo1SwssXoWllrdR69mY5nL5Vb30au5iHG5wup13IeVVs/DKubYR0fPR6zVCxBndYeO7qNXixDvcrX93KHz+X4kWL0Ya6zu0NF99LKG17pcZ3UfvXoAiS7XW/3n9GopNtj9lmKj1R068SGXZazJdS6d+PBtPIJk0uOyRMsb0HkfFUix8dEGdHQfS/QYz4SjV2Kb1RvSef/Hsd3GdTyBVKufrGea1R068ecuq3jm6ujUXRXSbXyqAR3dR4+e4VlNcOnoPnq0ugHjqVdjl/38LHZb/Rzp6D+nR8+TTn84j0yr++jRGtLRa7HnF4wlL7B3xN1GR794R3r0Eu8WJ67jZd4pjn6FXMX4TlxJXq1nttUdOvEXd+AKnl8fi/VaA8ZQ/yVzyKI7cjl53WV7KGva57fDj6zzHPa5Qm2Lm1Z3/Da8L+r81viefjb7a4E+jP/V+63wHc+Az38I39b7Lel76C9hb/wjvuF58PkP0Pdy79H0W7Dv1/m/52xzgH4Ue2pz62dZvxn9g65/P/1S5n0x/fvwtfUj2ZOb4iueF59/L/0y129i/UzeKbl6D/3Drt+Y9+ER6+doI/rlrJUI9vwKy2QyQxdiC8+IwxSekZ2867eS6eQ2no0dvFu280w4TCVTOSOk8WxsJ9N5FhzuJLdyhtjF2k/hHbSb3MJ4D2s+mfFeMon3cZae5j0UzrWcYS8I4/qq2RvCuMdq9pAw5rKaPSaU7+kce1CorfF40suajtUQzmo17G0hnB1q2ftCONPVsjeGcGa4wN4ZgmNkFO++E6zZSManWKsRZDVrdT5Zw5qcy+ddYg2G8/eusVZCuL6v9UveLTNNsE43U3WK+VQnm0k60UzQ8WacjjGjdKQZrsPMUB1iBvEeD+IdH8B730/7ciboZbpzbujCWaITZ4yO+pJ5XjuYZ/Qp8zd9wvxVHzXttK1pra3Mg9rCNNPfmSb6G3O3GvOT3ORseoPz7DXOvxdwlrNypZSjlHN2vmRzLk9HimxEAmf9KM7EM/l/w1gZgn78P+QJaY6WV/4PhbIE3DEgMTUgMSAxICMzMwp4nHNn8GWIYmBgKGHIB2M9hmSGTIZchnSGKqAoAE64BP0="
+decompress_rle. r. $ir,$ir,1,1,5 if $ir>512 b. 0.2% fi >=. 40%
+fi
+nm "[2d information shape]" v +
+mc_phone :
+max_wh={$!>0?[${-max_wh}]:[512,512]}
+w,h={S=[$max_wh]*$1%;[max(S[0],1),max(S[1],1)]}
+l[]
+shape_phone {($7?2:1)*min($w,$h)}
+if $7 r2dx 50% fi
+frame {2.5*$2}%,{2.5*$2}%,0 b $2% * $6 round c 0,255 autocrop
+100%,100%,1,3 fc. ${3-5} rv[-2,-1] a c
+gui_set_layer_name "Phone"
+gui_set_layer_pos {0.5*([$max_wh]-[w,h])}
+done
+mv. 0
+mc_phone_preview :
+mc_phone $* blend[^0] [0],alpha rm[0]
+#@cli shape_shopping_cart : _size>=0
+#@cli : Input a 2d shopping_cart binary shape with specified size.
+#@cli : Default value: 'size=512'.
+#@cli : $ shape_shopping_cart ,
+shape_shopping_cart : check "${1=512}>=0"
+e[^-1] "Input a $1x$1 shopping_cart binary shape." v -
+ir={round($1)}
+if !$ir 0
+else
+base642img "MiBzaG9ydCBsaXR0bGVfZW5kaWFuCjEgMTM0NSAxIDEgIzEzNDIKeJytlWlQlXUUxp9jWippabmmuEI5jjlFkFcREC/34kbCVYlAQYGATAkHF1RwQZFFzS1TUzNX3PdtmpxmaiZrpj6UzdQH/aRT5mRZpq3/03Pf+/JyL5Cf+vDM7z3/dz/nOeePVmglEICadj0Ro00qUo0PPmqSzQcd+0xa0PF/XZcWcn2aEz/4OM3E4p62w0QzDMNMDGJMtKVoWzH2WmPc8rnm1zU9F4M8zZW9ulcu6AXqvJy3dU7PUWflrKMzciZEp+W0o1NyKkQn5aStE3qCOi7HHR2TYyE6KkcdHZEjQTqsh+SQo4NyMET1Uh+iA3LA1n7dJ/sceXBD3RYvajf+qwdr9Bb8zNFLFl/Q9dhDttNXLX5n3KQXN02STTd2kz8wfo/nG+nGLvIW4+b04kfy3SDeNp4mTMJO8ifGDdzB+38mtzv04o7NX4zXpgfvkL8yDqUH28i7jBuZjHsm2aYXW7jewPtcD9CLt8nfGQfzDzPGZjI28/4/bf7F9WD+TW7idQ38x4y1OQYbeV4ZBxM6zuZYbAiicD3AsVhPtmK8jnzIZmsdb3Mc3iTbMG6JD5Nr+Yy2FifhCZ1AZuEpxmtY40jGq3U2hlpcAJfF5XCTdVqHCRY3I0NTyF3IZVyrh1HMuFbPoszih1hh8TO+MwXVeoU59vMaPeXnTZwgV+ldvG9R8Ym+RLaXLy12katcr9I+8j3jKh0sdy1WSZWulBW6wlalVIZouSx3tEyW6tIgLZEljiqkXMtlvs6XEi2Rmfqa5Gu+ZGu2ZGiG+DRNxut48ahHEjReXOqSKI2SITpEIjVC+vC7emgP6aydJEzDpI22EWMMvXGffrxDj9/CDXMdV801fGO+xVfmCj43X+Cy+RQfmY/xgbmEC+YiTpszOGaOo94cxB6zBzvMTmwxW7HRbMJasxbVpgaVphLlpgJlZiFKTSlmm2IUmSLkmXxkm2xkmalIN+mYYFKQTA8m0edu9l6iSUSCGUUlIM7EYaSlkZZiOUNHWBphabgZbsllM3DsakGN51uWKyRueL7/fX4F3h+g/5viTbylBKrKVNGTbaVOa6XWUY3UOKp2WO1olayyPBHwxUpLwd5o9MIyxwMVUsHal1taLIt1kSzShbJQy6SMfpiv82SezpW5WiqlOkfm0B8lWizFOktm6Ux6pUiKtEAKNE/yNEdyNFMyNVzC9TIKbwvCTBekaUd8bXojU7vTAwMwQ/viuhmEQo3kvByC13Uw59tzeEOHcl5Fo1SjOHdcWKAx9NAILNLhnB9xqNBYGNZwqcaz70ejUhPZ70lYqW72s5d94sEjOgY17Ot27Ps69nUY+3ENe7kD+8Xfe49pKufFRHRSH+dKGvt9MuePD0+Sb1FdNZ1zbAq6aQa26svobjEDPTWTc/MVm5nopVM5f7NsTkW4ZnNOT7OZjb46nXM/x+Z09Ndc7g8zmjAXAzUf+zSvCfMRQe235k8BDjRjAZ4OYr0WBrEQB6lntOh/ZcNzm7+v+ff4vzOCCjDwHxFB/+XnQP77Xv7vgCD689GfudrN/PQLoj9/fZnTXcxnHzu/4cz5Tua7t53/XqzJdtajJ2vkr09P1mwbj7uznltYx25WXdNZ38nch6aw3j7WfRI60w8b6INOli9S8Th9so7+6GjtAyl4lD5aTf+0p69qrX3Cy3nt3zeSOH899N8o+tBNP8bTl6O4b42kT+PoVxd9G8v98EX6eBh+M1H0dTT9PRQl+jz9Phiz9Fn6P5J9MIjzsR/3joG4ZnogS8PZLx3h067oYFoj7sa//BfTxjEgMTUgMSAxICMzMwp4nHNn8GWIYmBgKGHIB2M9hmSGTIZchnSGKqAoAE64BP0="
+decompress_rle. r. $ir,$ir,1,1,5 if $ir>512 b. 0.2% fi >=. 40%
+fi
+nm "[2d shopping_cart shape]" v +
+mc_shopping_cart :
+max_wh={$!>0?[${-max_wh}]:[512,512]}
+w,h={S=[$max_wh]*$1%;[max(S[0],1),max(S[1],1)]}
+l[]
+shape_shopping_cart {($7?2:1)*min($w,$h)}
+if $7 r2dx 50% fi
+frame {2.5*$2}%,{2.5*$2}%,0 b $2% * $6 round c 0,255 autocrop
+100%,100%,1,3 fc. ${3-5} rv[-2,-1] a c
+gui_set_layer_name "Shopping Cart"
+gui_set_layer_pos {0.5*([$max_wh]-[w,h])}
+done
+mv. 0
+mc_shopping_cart_preview :
+mc_shopping_cart $* blend[^0] [0],alpha rm[0]
+#@cli shape_mail : _size>=0
+#@cli : Input a 2d mail binary shape with specified size.
+#@cli : Default value: 'size=512'.
+#@cli : $ shape_mail ,
+shape_mail : check "${1=512}>=0"
+e[^-1] "Input a $1x$1 mail binary shape." v -
+ir={round($1)}
+if !$ir 0
+else
+base642img "MiBpbnQgbGl0dGxlX2VuZGlhbgoxIDE5MzkgMSAxICMyMDIyCnic7ZlpjBVVGoaPxBA1REfHuiHqOC5xQhwNcYkaxyUagriM24i7McZoXGJc47jNqLgjgigCgmyyL80utIA2IrIJooOACAjYgi2INKuIWHe+d85T3Sffvf/0j8n8IC/f+1Sdc6rqVp33nA4tQgj2b58Q/wV0xynlcoP9p6H86/Wf1l5LVPUjpvuhqh81PQBV/ZhpK1T146YHmT5BLT3Y9F/U/zY9FFX9pGkJVf2UaWtU9dOmh5t2opb+yfQZaumfTZ+llh5t+hy19FjT56mlx5m+QC1tY/oStfSvpp2ppSeavkwtbWvahVp6kukr1FJ7HOWu1NLTTF+l7mZ6hml3avlnmr5GLf8s09eppeea9qCWnm/ak/oN03amvajltzftTS2/g+mb1PIvMu1DLf8S077U8i8z7Uct/wrT/tTyrzIdQC3/atOB1PKvNR1ELf8G08HU8m8yHUL9tunNpkOpddwtpsOoddytpsOpddxtpiOoddwdpqOo5d9tOpp6pOk9pmOoddy9pjXUOu5+07HUOu4h0/HU7Uy3md5g+rDpNaabTS9I+Fb4I/DvHW+EPwbf5PgW+BPwjY5vhj8J/87x7+Gd4N86vgn+LHyD4xvhz8PXO/4d/EX4N443wDvD6x1Xf9ebdjG92nSd4+vh3Th/rePfwLvD1zheT/894F85/jW8J3y14+vgvRnfSsfX0H9fzv/S8a/g/eArHF8NHwD/wvFV8EHw5Y6vhA9mfEsd/xI+FP654+rvOtMRtL/E8eWcPxr+H8eXwWvgnzm+FD6O/hc7/jl8AvwTx5fAJ9P+Isc/Y/xT4Asd/xReC//Y8cXwafQ/3/FP4DPg8xxfxPjq4HMdXwifRf9zHF9A+7PhHzk+Hz6H9j90fB58HnyW43PhC+AfOD4HvhA+0/GP4IsZX53jGs+1PAed/57js+BL4DMc/4D2l8GnOz4T/gV8muN18JWM713H34ev5vypjs9gfGvgUxyfDl8Hf8fxafB6+GTH34Wvh09yvBbeAJ/g+FTGvwk+3vF3OH8zfJzjk+Fb4GMdnwTfCq9xfCJ8B3y04xPgu+CjHB8P3w0f6fhYntse+AjHi+/KXvhwx8fQvkm5Y4jfuZRrvJq3hzhf49R8P9j5Gp9ywtvOV7/KF4OcP6wcc8oA52scA037O1/jUC7q53yN4y3Tt5yvcSh39XX+wHLMc286X+NQDuztfI1DObKX8zUO5cyeztc4lE/fcL7GoZz7uvP7lGM+fs35GodydXfnaxzK4686X+NQju/mfI1D64BXnK95XeuHLs7X+LTeeNn5GofWK52dr3E8bPqS8zWOB01fcH5X0/tDzEWpr/Hda/qc8zW+e0LMWamvcdxl+ozzNe47TZ+u0o78p6r0e1cVvyv9dqpyvfdV6Vf354Eq49RzfajKdfXgfvr7o+eldd+LVZ5vZpqb3lblfveC632/vcrz0++9ZPqT6d9Nf+F4//z74Ou7dLHpz9T+99MXX9+3C2k3477590H+NvwfGYf//fbHb6Teznn+9z8AX9/t80P8/mZV3p+B+Mrh54b4Hc+qvH+D8FWfHWLuz6q8v4PxNR/9jXazKu//EHzNa2eEuG7IQuX3Yyi+5sfTaLcUKr9Lw/HXmJ4aYu7OeE7pcSPwNZ+fFGLez0Ll928kvvJ02xBzdhYqv5+j8JVjT6DdUqj8Lo/BV149PsS8kYXK73oNvnJwmxBzS8Zz8vOafOXPv4SYc7NQOX+Mw1eOPJZ2S6FyXpqAr/x6VIi5NAuV89pEfOXBI0PMdVmonBcn4Sv/HRFiPlQ9zB03GV/59LAQ82QWKufpKfjKc61DzI1ZqJzvp+Irlx0aYj7MQmVuqMVXPjskxBxY4jn5/FVC/xBi/sxCZY6Zjq/+D0xqn4dm4CtXtQoxv2WhMlcV/eg+7s/1l0JlfqvDVw5qmdz3ie64mcm496Wdon2fl+Ur17RIfj8+dxb3tSPqc+1s/CuT++Jzv/zL0VrH5+Bfmtx/vy6RfzHH+Vw/H79D8pz9ukh+e9SvKz7Gb0c/dY4vwj+P4/y6pnh/zkl+t35dKP8s1K+rPsU/k35mO168x6dznF/XLcE/NXkP/bpY/smoX1cuxW+L+nXrcvwT0AWOF9+341G/Ll6B34br8Ovu4jt6HMf5dfsq/GNQv+5fjX9Uufk7mfLie34k/fh9h7X4h3Oc37dYh98a9fsexfxTQv2+ST3+H8vN80fKi3nuYLjft9mAf2C5eZ5KeTGftqIdv6/UAN8fXeV4MW+3RP2+1Sb8fVG/71Xkgxb07/fVfsAv583ze8qLHLIX/rXjjfA9eXOOSHmRd3bnsR+/r7id/ndyvt+X3MH52+B+X3MnvDFvzkUp3wXfnDfnq5Tvhm+E+33ZIic2wP2+7h74Bq7vB8f3cn31nL/F8SLXroU3Op4XzxW+1fFy8buh/+0J137CCs7bkfhaZy/D35n4/9s3xN+V+B31XtL+7sS/Su87x/+U+FeaLsTfk/hXmC7A/znxLzedi/9L4l9qOhs/T3ytB2bhlxP/EtOZ5t9IrfXAe3ncl1Ot3D8tj/dFdQfT2rx5X0btTMnj/VHd3nRSHq+/uN/j83jdTbnO6n8kdU0er7Mpb+bx+op6tNWXJfWoPF5nUy7O43U05ek8XkdRD7P6oqQemsfrasr9uVsH/L/+3da/1d9zq6n+XvxfihVCRzEgMTUgMSAxICMzOAp4nHNnYGDwBeIoBggoAeJ8JFoPiJOBOBOIc4E4HYiroGoBnXAE/Q=="
+decompress_rle. r. $ir,$ir,1,1,5 if $ir>512 b. 0.2% fi >=. 40%
+fi
+nm "[2d mail shape]" v +
+mc_barbed_wire :
+max_wh={$!>0?[${-max_wh}]:[512,512]}
+w,h={S=[$max_wh]*$1%;[max(S[0],1),max(S[1],1)]}
+l[]
+shape_barbedwire {($7?2:1)*min($w,$h)}
+if $7 r2dx 50% fi
+frame {2.5*$2}%,{2.5*$2}%,0 b $2% * $6 round c 0,255 autocrop
+100%,100%,1,3 fc. ${3-5} rv[-2,-1] a c
+gui_set_layer_name "Barbed Wire"
+gui_set_layer_pos {0.5*([$max_wh]-[w,h])}
+done
+mv. 0
+mc_barbed_wire_preview :
+mc_barbed_wire $* blend[^0] [0],alpha rm[0]
+#@cli shape_crosshair : _size>=0
+#@cli : Input a 2d crosshair binary shape with specified size.
+#@cli : Default value: 'size=512'.
+#@cli : $ shape_crosshair ,
+shape_crosshair : check "${1=512}>=0"
+e[^-1] "Input a $1x$1 crosshair binary shape." v -
+ir={round($1)}
+if !$ir 0
+else
+base642img "MiBzaG9ydCBsaXR0bGVfZW5kaWFuCjEgMjg5OSAxIDEgIzIyNDMKeJyVmGt0VcUZhj/2hJBAAiQhHBVBFCwolirWglisl4p4AS14oSAEBOQiJCigEQxIFEQuVoF6ARFEUUQF1CjFe0ELCFakSGmlbWxptaVClz9cq13tnj4z+8yZySGB+ONd37MnJ8k5++yZ73tfiSRqIk1EUMGhE6RzfLb0ii+Sy+P+MjAeLMPiUvmXTskRXSpj42L5Ev5CF0lF3Eo+h2t1K6mMW8oB+DNdKDPjFrIP3qcLZC68B/5EN5eFcXP5NfwRvCTOlw/hD+HH4W3wr3S+rIzzZCu8RefJGvg9+F3dTJ6Pm8nb8FvwBvgNeDNcE+fKJvh1nSubWX8NrmH9HdZfgV9mfUvcVDbAG+BtrL8Ev6ibyk7W18HrWN8Nr4XXwnvhZ+E1vGY//Az8NHwAXg0/BdfCq+CV8EH4SXgF/CX8BLxc58gheBn8OHw4zpHH4Efhr+FH4J/D38BL4SXwf+DF8GL4v/DD8EOwoJ/BD2olEVoEL2ItFy2EF1DzWZ8PP0AtQPPgeay3RvfDc1krRnPgOayVwvfB91JPQNVwNevt4NnwPdQOaBY8i9oRzYSrqJ1QFXw39TtoBjyD2hVNh++idkN3wZXU7uhO+E7q2egOeBr1XDQNnko9T0cyBZ4C90K3w7ex1hu+DZ4M/xCeDFdQf4Qq4HLqxfxsEjwJvhSeCE+E+6Jb4Qms9YMnwOPhK+Hx8Dj4angcPJZ6Dde3wLfAP4HHwGPgQfBoeDR8PTwKHgXfCN8M3wz/FB4Jj4SHwiPgEfAwuAwug8vg4fBweCQ8DB4Gj4Jvgm+Cx8BD4aHwWHgIPMS+34j/kbL/x3yewfBg+1mVZfNeyu17SskNcAW6ATbv19zH6+Hr7D2OqCn7maahQZbN9xPJQHig/d4iPn/K3oPp9l6k5Fp4BroWNvepCl0DD6DOQgMsm2cnkv5wf2o114avhu+19zolV1HnoKvgK6n32+8jZb+TB+Ar4Cuo87k23A9eYL+/lFxOXYT66rawYk9Echncl+r4MurD6MecVeZZWIIuTfNSfucS3QZF7L2I56aNfXYeRRdZVuxVBZfwfEVwRC2RC6nLUR9dDCv2ubLch7UV9rkskguoK9EFaV7Fa3rr1ijivIjkfPh86tOoVx1uJT2pa1BPy0qeQz/QLVEER+yNlnZ/PI++X4cL2UORvIDOtaw425T04NztwdpL6BzLirNPwS3YfxEcUVvI96gvo+6cwSF3p76KvluH8+Us6mvorIC7cU53o25CZ1pW8os0n0ndjM6wrDizEz6D+ibqallxpifclfo26mJZyTtp7kJ9l2vPEeeOYSW/tGdQHorgSE63rOghyvLprG1FnS0r+QAZ7szaB6iTZUXvSbgTdZs94xxHcpplJTuQ4dNY24FOtazoYZ53IsOnsrYTdbSs6HnKckfWPCv6YSSnpPljZPgU1j5GHSwreqc6ijvw809Qe8tKfoMMt2fNs5K9XJ+c5k9RNp9M3Rfwb1G7LG7H3/CsZD/XJ6X5d8jwSax5VvL7gD9DJ2bxibzes2J2iOhDCf/B9qS6bHrUHwP+E0odg1PU2oA/p7d5VtI2i9tS/9wA/wWVHoNNLz3YAP/V9lrHStocxTnytzS3oYb8BT+rn5WUWM5hFjs2l1D/znXjOUf+oc2s0Dg2M8UhrhvPOfLPRrGSouPwV+jbcdPM3/9KT6Dn5aHxcDmzTD79bRI8hb5VgKbIYV3JDNUSVcJVzF+tURU8m75SjGbDc+kTJcx2c+HDTY6t8LXV9KNiVJ31t8P/OZW+WYCmwhX03HzeZ3nWex/DrJSHRn/r+9GYe9y476o+bvhZCJ+dxj1r4bN5/Gc5fPaPtz8Srn+fNbQvHYd7N3uvN3Qe1MfZ50pD51B9nH2ehWdefZx9XoZnan2cfTYf0OGZfTQnZ38UcH09IarTQ/brsLcczUmPigKur3dFdXrdXh32QN8b9wQ9c492vTTkSHYHvXe39j057NV12ff2XUHP36X9LOBmhJCT2cHPFNuDWWO79jNIOJs4TmYWP8u8H8w472s/+2wJZqIt2s9K76VnqIT9bBXOXI6TWUxlZjQ3r5nZ7c1gpnPznZn1NgczoJsHzWy4KZgZX8/MksrOkm7GrAlmz1eCmdSxmVU3BjPsRu1n2/XBzLte+1n4xWBGfiGYndcFM/Va7WfttdrP4M9qP5ubOd3N7M9oP8uv1n7GX6397L9KO0+grD9wXuFJ7T3EE9p7C+MzLrQcyTKd+A/jRR7T3qMYv+K8yyPae5ql2nudxdp7IOOHnDd6SHvP9KD2Xsr4KuexFmrvveZr78nmae/VjG9zHs74Oeft7kuz8XzV2nnBxBcOSPtC4xedd5zJz5ynvFsn/tJ4zenae9BK7b2p8amDLCf+1XlZ42udx72d1znvO1l7T1yObkx75YnaeWiTEThvnfhs57mN/3Ze3Phy59GNX3fe3fj44ZYj6+/LrL+P7PUI6/sjmwe4bMD4d5cZmPfhsgTzXl3GYD6Pyx7M53eZhLlHY9NZRX/tMgzFfffZRj/tMw+Tf5gs5Fb7XPiM5GJ7L5LsxOQoLlPpo13Wouzz6jKYntpnM+dpn9mYveSynHN0kvHcYfeu+c6S7MfseZcJmfPCZEXT7XmTk8mQzHnnsiVzbrrMqb32WZTpByajmm37TE4muzJ91GVaJUHW1Ur7DKwQuWzM5GQL0plZrk6yNPO8q0zGZvI2xT5Jsrf/BZncv4Os7psgw/s6yPaOBJnfIdaXa5MFmlwwR1boJCM8CK/USXZYCz+lk0zxQJA17g8yyL3pbPI5eHeQWe7KZJm5sh02Ged6XrM1bpbJPk0OWgO/Cr/BustKa4IMdSP8lk6y1XWZzDXJX10WuyrOp98kGe2yuLnNbnfAJsf9SCeZ7qJM1tvC5r4mA/4UnhUX4vVS9P9CmxPX6iQznhwXMW+lmKGKZFxcKkfgw5xZZfEQuS4eIP3iS6R33EO6xO2k8Mj/Ae4IPV8xIDE1IDEgMSAjMzMKeJxzZ/BliGJgYChhyAdjPYZkhkyGXIZ0hiqgKABOuAT9"
+decompress_rle. r. $ir,$ir,1,1,5 if $ir>512 b. 0.2% fi >=. 40%
+fi
+nm "[2d crosshair shape]" v +
+mc_crosshair :
+max_wh={$!>0?[${-max_wh}]:[512,512]}
+w,h={S=[$max_wh]*$1%;[max(S[0],1),max(S[1],1)]}
+l[]
+shape_crosshair {($7?2:1)*min($w,$h)}
+if $7 r2dx 50% fi
+frame {2.5*$2}%,{2.5*$2}%,0 b $2% * $6 round c 0,255 autocrop
+100%,100%,1,3 fc. ${3-5} rv[-2,-1] a c
+gui_set_layer_name "Crosshair"
+gui_set_layer_pos {0.5*([$max_wh]-[w,h])}
+done
+mv. 0
+mc_crosshair_preview :
+mc_crosshair $* blend[^0] [0],alpha rm[0]
+#@cli shape_phone : _size>=0
+#@cli : Input a 2d phone binary shape with specified size.
+#@cli : Default value: 'size=512'.
+#@cli : $ shape_phone ,
+shape_phone : check "${1=512}>=0"
+e[^-1] "Input a $1x$1 phone binary shape." v -
+ir={round($1)}
+if !$ir 0
+else
+base642img "MiBzaG9ydCBsaXR0bGVfZW5kaWFuCjEgMTU2OSAxIDEgIzEzMzEKeJytl2tQVVUYhj80R9IkTTLUFBUGJURB7sjtYDlZWWlmgefA4S5qkvcbXiC72G0q07KypKvTWDaWZXkp85aXQGH60dTUTDP96ddm/P/t3u8954gcjjPW+GPNs58FrL332mut90P6Sb8oiRJBm3l5sMToMInVERKno+ROHSPxOl4SNFGSdKIka7Kk6GSZolMlXdMlU7MkR3MkT/OlQAukSIvFox60UilFC+dcjRLH9cg8vUm63VKZrwPoj+lAeplG08t1EN2rg+k+HUKv1Bi6X4fSq0DzajyzA6/V4eyv01h6A96jO0jzRo2jL9KR9CU6mm40X4r3NW/SsRy3SePpy3QcfblOoK8AzVdiXsxXgearNYm+BjRfq5Po6zFvIdp9mjWFbjTfpKl0o/kWzG93kOYtmkZvxZzbuK06jb5VM+hbNZP+NGj+jGbTnwXNn9Nc+jbQfJvm0V/AdzMPsFRe1Onsfwnf0vxlLaQbzV/B9+0O0vxVLaEbzbfjG3cHaeNu1xn0HXo3fYfeQ98Jmu/UmfQ3QPM39V76LtB8l86ivxXk23of7/OO3k83mu/WB+hG83d1Nv09fZC+Rx+iG23cPfowvQ00b9M59PdB8w/0EXiA5h/qPLrRcUvAR+G96bjF4Hx4gI5bJB/p4/AAHbcQLIMH6LgFYDl8On6/HJ4PLoAH6Li5uL8XHqDjZuP5fPAsPK8PnglWwDPwPhXwdLxvJTwN718Jn4L5ME7GvPnRn4J59MMnYZ6r4EmY/yp4gryu1fDx8hrouGPxfWvgo7EOauBxWB+18BFYN7Xw4VhXdfBhWG918Bh5Suvht2Cd1sNvls3aAB8oG0HH7Y91vxAehf2wUBZqI/ZhqC3CXuxpjfx5A/ZrvdSz1WEv12JfW6uRGrZq7PsqND/OgVCrxNnQ0yowP76IzSsLMLfhrRzzH97K8I0CLVJfT39kv/pvQtehe11939C1F2ed9wq9eNYQfbwOPX/FFVbwOsBAq+zDwFyE5sV/hX5e96Yfc9qbkfp6WMXr6+N/+d1rj1Edxhs55o0aqxpZFGCbGy1nsV4/dofKBfheN1ba4fvckdIB7nfHyCWs6wPuOPIg9mEn1vsh7EvjYTdZurAHjmHfdoLHsZ+7sDdOYp8bz2Dfd2G/nHdzyHY3D1wknThXjL/g3OnSJfIrzi3jbzjfunSp/E42yR/kMvmTXCF/kWvkb3KD/EO28vzrBO187NSW/+ktPIeN1n9Jt1yXG6/tHrkY9Iu6OaJ3gJG8Qzf1cWO7buR9wt0YyX/W5gjuwfdupl/APEby86D5eV0f0c+B5ud0XdDX8T5G6z+ra+lG85/w3SK50fyMrqYbzU/rKo57OsxPgeandCX9JGh+EuvD/ARofkKX93Hjj1hPTpDmx/VJutH8B6w7J0jz77EenSDNj+kTHPcoaH4U69b8CGh+RBfTD4Pmh7HOzb8DLZ+/RaaYH2LeeOQb5k+JfM1cKpGDzKkS+Yq5VSxfMseK5QBzrUi+YO4VyX7mYKF8zlwslM+YkwWyj7lZIJ8yV/NlL/M2Xz5h/uYit3298rqN+Z2NXC5nXu9m3mcgh60emIb6xuqDdOSw1Q1TUS9ZHZGK/LV6YzLqLqs/kuV5nQufiNy1+iQReWv1ywTkrNU38bKB9c4Y5KvVP6NQl1p9dAfq11nwWFnMuuo25KrVWbciQ60OG4KzfwZ8EHLIA49GPW513QCZw7qvv8xGPZiLmjELdWQGas001J+pqFGT9S5J1AT8f3C7VF3+F5FZ+PIxIDE1IDEgMSAjMzMKeJxzZ/BliGJgYChhyAdjPYZkhkyGXIZ0hiqgKABOuAT9"
+decompress_rle. r. $ir,$ir,1,1,5 if $ir>512 b. 0.2% fi >=. 40%
+fi
+nm "[2d phone shape]" v +
+fx_cupid :
+max_wh={$!>0?[${-max_wh}]:[512,512]}
+w,h={S=[$max_wh]*$1%;[max(S[0],1),max(S[1],1)]}
+l[] {
+shape_cupid {($7?2:1)*min($w,$h)}
+if $7 r2dx 50% fi
+frame {2.5*$2}%,{2.5*$2}%,0 b $2% * $6 round c 0,255 autocrop
+100%,100%,1,3 fc. ${3-5} rv[-2,-1] a c
+gui_set_layer_name "Heart"
+gui_set_layer_pos {0.5*([$max_wh]-[w,h])}
+}
+mv. 0
+fx_cupid_preview :
+fx_cupid $* blend[^0] [0],alpha rm[0]
+fx_gear :
+max_wh={$!>0?[${-max_wh}]:[512,512]}
+w,h={S=[$max_wh]*$1%;[max(S[0],1),max(S[1],1)]}
+l[] {
+shape_gear {($11?2:1)*min($w,$h)},${2-5}
+if $11 r2dx 50% fi
+frame {2.5*$6}%,{2.5*$6}%,0 b $6% * $10 round c 0,255 autocrop
+100%,100%,1,3 fc. ${7-9} rv[-2,-1] a c
+gui_set_layer_name "Gear"
+gui_set_layer_pos {0.5*([$max_wh]-[w,h])}
+}
+mv. 0
+fx_gear_preview :
+fx_gear $* blend[^0] [0],alpha rm[0]
+fx_heart :
+max_wh={$!>0?[${-max_wh}]:[512,512]}
+w,h={S=[$max_wh]*$1%;[max(S[0],1),max(S[1],1)]}
+l[] {
+shape_heart {($7?2:1)*min($w,$h)}
+if $7 r2dx 50% fi
+frame {2.5*$2}%,{2.5*$2}%,0 b $2% * $6 round c 0,255 autocrop
+100%,100%,1,3 fc. ${3-5} rv[-2,-1] a c
+gui_set_layer_name "Heart"
+gui_set_layer_pos {0.5*([$max_wh]-[w,h])}
+}
+mv. 0
+fx_heart_preview :
+fx_heart $* blend[^0] [0],alpha rm[0]
+mc_paint_splat :
+max_wh={$!>0?[${-max_wh}]:[512,512]}
+w,h={S=[$max_wh]*$1%;[max(S[0],1),max(S[1],1)]}
+l[]
+shape_paint_splat {($7?2:1)*min($w,$h)}
+if $7 r2dx 50% fi
+frame {2.5*$2}%,{2.5*$2}%,0 b $2% * $6 round c 0,255 autocrop
+100%,100%,1,3 fc. ${3-5} rv[-2,-1] a c
+gui_set_layer_name "Paint Splat"
+gui_set_layer_pos {0.5*([$max_wh]-[w,h])}
+done
+mv. 0
+mc_paint_splat_preview :
+mc_paint_splat $* blend[^0] [0],alpha rm[0]
+#@cli shape_barbedwire : _size>=0
+#@cli : Input a 2d barbed wire binary shape with specified size.
+#@cli : Default value: 'size=512'.
+#@cli : $ shape_barbedwire ,
+shape_barbedwire : check "${1=512}>=0"
+e[^-1] "Input a $1x$1 barbed wire binary shape." v -
+ir={round($1)}
+if !$ir 0
+else
+base642img "MiBpbnQgbGl0dGxlX2VuZGlhbgoxIDY5MSAxIDEgIzk3Mwp4nI2WSWyNURTHP1qvqvpqnh4RNSwIQWtKDAlaNbQUbdASG0QsEGJhQSIRK0OCDZFgIRYskEhEQsJWYowhhmpLa54aauh71//k+33ezUuFxcsv95xz7z3n3P+93ws6BkGgX4cg/AUwWZtyWWJWyv1htpgNbdxJ7CTGxJiYA2MeG5xztt4w/C9duF4JbMTe5MJ1S2Fkb2Zc4tk7i69cuP8c2ED8a88ey7DbuMyz2zpviC+DdeTdxn6fsc9lXh3rJf/hTzH+kuF/xvqZ/nkunPc//jh288+HT2TPz7Bb/FPZu5Kn2Rdgz4yP7I+Jb8+eJ34in7/Zy7E/kr3Lf9grXHgOzejqJ7oQXK74kbgqaHab/9o7pzhxtv5ysYedK+dg8d09f43YW3wrf1/xPfZasY/4TvYB4gfqXyn2t3GG/ZwL5zcyr9XhV1yCcTb5WfwN8v4qDqP+GejYrmBCHCN+d2n9GG+K3dDbaPpTgp5t/RHiJPEH/XL0846417sPI8XprGP9uSfu9/xjxRrxgXjAuy9n4AFxtZ2feJB7Y/bzYk/xuVho+hTXmi7EI9RpdVwUB6LDyfRxg+lTPEFfLO9L4lDqLxN/iVuD8B05zdjiLovvyXMQ9tFwGXVaP66Ih1lvFfsPRN+FjJd48Vep385vdxC+SwWc80LO0+Ku0b8WcZd4QZxI/3t6cdfFQ9S3Qzwrjucc4+RrcXdd+E620DfTwXbxNP1KUncUf5++Wp7HsW8TT6Krn8Q1efO6oJNT5LlFPCZO9eKb0bvlP4q8Z8Ey5pWLR5kX6c7OIUGfh7NOMdwnHhGnUZfFv2W+1TFEfEgfD7UTZ/reJW4U91CP5THY03Mr8e/Yd7u4Rtzp0u9KIki/a9/oh93/ceJmcYW4ibh6/J/xr6fudfTH9J5Hn+x8VotzPH+dOFOsFvsR15V87b1Yi910PVtc7MJ3yfz5GXG59DWffs4VK8VexMXxx+mL6WINbCPPJs5vkafPuLdu9N5Uu/T32I9PuvR72g3avCov3uqv4Dwy41PUX0X/X3rx0fcu15uX5N5F86K8bF5pEH7fOqKTLPQdzYvD9uZNYb9f5N/GOVd5cTH0Xkx8jnc/WhkvJc7e2SJv3e/os4S42+gnWieaH/lvsc80xt9Yp5R1XojVQfp72+LS/5NsbO/SMvpo4wmefTnnZ+NiF77z9ei80rNnodcadGj7F4i11JnDeDDnmeCexb2+FaDnVvTfwH5R/+27av4ixvb97eONX6VCnRVRd1Mq/G5H/kb+90T+ev5HjCH/vMqU+w2wUyNRMSAxNSAxIDEgIzM4Cnicc2dgYPAF4igGCCgB4nwkWg+Ik4E4E4hzgTgdiKugagGdcAT9"
+decompress_rle. r. $ir,$ir,1,1,5 if $ir>512 b. 0.2% fi >=. 40%
+fi
+nm "[2d barbed wire shape]" v +
+fx_sierpinski :
+foreach {
+split_opacity l[0] {
+100%,100% sierpinski. ${1-7}
++fc.. $8,$9,$10 j[0] .,0,0,0,0,$11,..,255 rm[-2,-1]
+}
+a c
+}
+mc_australia :
+max_wh={$!>0?[${-max_wh}]:[512,512]}
+w,h={S=[$max_wh]*$1%;[max(S[0],1),max(S[1],1)]}
+l[]
+shape_australia {($7?2:1)*min($w,$h)}
+if $7 r2dx 50% fi
+frame {2.5*$2}%,{2.5*$2}%,0 b $2% * $6 round c 0,255 autocrop
+100%,100%,1,3 fc. ${3-5} rv[-2,-1] a c
+gui_set_layer_name "Australia"
+gui_set_layer_pos {0.5*([$max_wh]-[w,h])}
+done
+mv. 0
+mc_australia_preview :
+mc_australia $* blend[^0] [0],alpha rm[0]
+#@cli shape_paint_splat : _size>=0
+#@cli : Input a 2d paint_splat binary shape with specified size.
+#@cli : Default value: 'size=512'.
+#@cli : $ shape_paint_splat ,
+shape_paint_splat : check "${1=512}>=0"
+e[^-1] "Input a $1x$1 paint_splat binary shape." v -
+ir={round($1)}
+if !$ir 0
+else
+base642img "MiBzaG9ydCBsaXR0bGVfZW5kaWFuCjEgMTYxNyAxIDEgIzIwNDEKeJx1lnlw1dUVx8/Nvry8bJCNQERKFEIxLAHZBASUFtl3AwQElE5bbGs3hNKRjqV1VxZlrVOnnY4dZ9qqdUpZDUteQgKEBGJEQAJkIXsAGwr39PO7eThMp/3jzPd77j333HPPuZuESIgRI4JEBSIkwkZLjPWJz8ZJXFB8TvdJrI2lL0aisYmyUdiGS5gNk7raMAm3EbKA9k80QvKtX/4BLrIJskcjZYlNkn86TJa9YIHtLvscpoAR92Cq7HeYJgeCuF/DGJcOhjrcp0YW2wzJCEp6EPdht9T1h8syZx8pTzmMcnhQY2S5w1gw7Ws8pHGygvZP1e+wUONlJf6OaCLYQ45pkjxte8kl/LRpN2nC/3qbLc3YX9fu0sI8621/uUnfvzRV2jUafYrc0Qz6Y+Gr5CtsPezE93s2RM7pd+hPkgZ8HbCh6L+QRsYdIp9fwJsZ9yn59Hgr8RXaSGzWMr+f9ig5r+ukQxNoj3b8Br4KqcsF+FfEUUidLsI7NQXuky/xc1vT5DB1qdHtYLxc1h1y1CbKVd0px2w3qdfdUkRdGvVdCZCXVn1PSlj/df2DHLdZ8m99X0ptmZTZE3LCnpSTTk45OWXLpdyeltNOKqTCViJn5IytkipbLdX2nJyzF+SCvSgX7SW5ZC/LN6nXHr0iueRvr9bKYPK7T+tkCHnYrw2SBx7QRocHtVmG0X9QW9DDwTZptx2yjDzt0g5ZTq1+rzdkJfX4o94EU+V97ZRnqMEHegvMpI5R1OaOrNJeUkLubqnCs6RUU8wqvU9OahrYW8o1A7xfKrUH2EfOgM+gn9VMsI9UgU+Dn4ErwWpwBf3V2tPh5+Byh5nmKfx5uMxhD7OUeTwsYN5q5lmsPR3mE1+1ppsFmu70+dStCn02dT1LXDOo+xlwCmuo0FSTCk9DUh3v0tOxT2dsD/xnMmdP7WWyNMvcr31MX+1rsjUbecA8qA8GpZ/pp/1Nf80xOTrADNCBZqA+ZB7SXJOrg8wgHWwG6xAnQ+6RoTo0KHlmmA4zw3W4eVgfNiN1pBmjY8x4HW8m6kQzWScT7xQzTaeZmTqTtcw283S+WagLWW++WaSLzRItIBcFQVxqzrK+N8Bz7PnXdIm5QJ1exa5Gk+UlXWRqqe9GfdI0UN8X8dPEnt6Az2by9oLOMy3gL3UOmOGwFVwPtoHrmL8dXKuz0NPledDTuzBd1oAd4M+JtR2/PwM7mOcnDlPkx+B18DmH3eVH2N/grP0A3Tt/39cZYKJ8F7zJOV+l00E/e89Dn6wgDzdY3zJw2j0ynX5PZjBuFj5nI3OIea7OJV9zHXqymvvvmsMw7o055lnOQQNrWv01cg8zdhbxeL48mY7/qTrVPKFPOPHq8W39lqvN4/q4eUwfM5N0EjLRTNAJ5lF9lPqNM2P1EfMIMkZHm1HUdaSTEQ5HORllRtM3xskY7Me6cV7tJ+CjSyawDzzx+HjXPw6fY7EfzfiRyAh8DmfvDGMP5bGX8thTdeR8OdjEOV0Jtuk35E+s8Qj9HdqP8xzh+HUdKH8jn0cdz+MuiQ7yEZzhSO6tGPSh1HI0Zy6Ru9nTB7NXRnE3pnA3evogcw37Gure6cbnsseGyxXO4y18H+E81OhQqSWWTzgf5zWXezJL/s55qdIc+H3wHHOKGBs44x9zngKM9fhHnK+97OM6+Iect7ex/StncCv4F87jFnx+wNnczB3wZ+1tNmkP2c1dtIlYtms3MEW2arJ5i72/SZPMm+yl18HXietlMFETkSSTFJQuPdEkaIKJ13jjV7/xqc/EaIyJ0igTqZEmQsNNmIaZUA0xIWqMcAeqvSO3bad02nbu1BZpsc3SbBulEblmG5BrQWmQBif192C91Ns6qbO1UstbdFs/k6u8YTf1jFTyFpS798F7M0p5O0qk2AZ4Wzwpwi6UPBcxLpw36BgY4bDOYRH3XJikU0ePV4KZyBX6K1h/L/hleCX3f2/0K87GJ33glx2Pk77wGsf9ko19jQYcfwB+CV4B7wf/0vF46c++uoh9Oe05jgfkFHwAcZyHn8RnjobwJgekjHkjuPvv8EaWso8i2BM3eTePM2c49W/jLS1mXCj3SKPu4l1NJMYdst1ul212m7xj35G37VbZimyxW5DNstlulF/bDbKBP9BtXc5/wftPFMhaxnZovqzhzW7V+fJT3vBmnSPP8a436kz5Ie9+nU6VZ8n/VZ0iq62Xg8nyPeutcxJxh8ku661nHPs1DImU3/Fn+4IzYTUb20julWh5l3/J56yxkzutEr2Rda3Bt3enVbDeJvTnmaMdm9NIM/lex1yt9JU7PY6Yo7CLcnlrcbrnO1xOkF9Pf4Hx9eSwzOl++RX+P+aOb0V/kT+Lx732Lp7o2jeyTo977b/hL/qRs4mX3zre1f4SOeni8fIyefLsvf/ZK/w/Pftm2l8N8ib4a/APwUbvTJHfgPsbxBOrX97gr1rCmjrc2Y2TN53uQ/eR3zjqlEyd45x+BdzidD96DPmOo67J7IkE9Gj2Vhy17tLb2FMXsNtBXUuJr5i+Hfy3TvB2FNO+0/Fk5oqnXv/Nu8H9spt/8v/n3V0cd3kJ/v8XLybuLp4Cj3W8jPYA8e4K8iLycZcfpX474aXMdZi/9zbi8fgi1nE8iCXEehfzWW8xa8onb4EgFrHeJ8nzMdazkNwfBRdQs8PEO586FhLTPOp8iHjmWu//Fy2zuBf2kLOZgf8A3He64TEgMTUgMSAxICMzMwp4nHNn8GWIYmBgKGHIB2M9hmSGTIZchnSGKqAoAE64BP0="
+decompress_rle. r. $ir,$ir,1,1,5 if $ir>512 b. 0.2% fi >=. 40%
+fi
+nm "[2d paint_splat shape]" v +
+fx_barnsley_fern :
+foreach {
+shape_fern {min(w,h)},$2%,$3,{$4%},$1 *. 255
+100%,100%,1,3,[${5-7}]
+rv[-2,-1] a[-2,-1] c
+if !$9 blend alpha,{$8/255}
+else => "name(Barnsley Fern),opacity("{round($8*100/255)})")" rv[-2,-1]
+fi
+}
+fx_barnsley_fern_preview :
+fx_barnsley_fern ${1-8},0
+mc_gum_leaf :
+max_wh={$!>0?[${-max_wh}]:[512,512]}
+w,h={S=[$max_wh]*$1%;[max(S[0],1),max(S[1],1)]}
+l[]
+shape_gumleaf {($7?2:1)*min($w,$h)}
+if $7 r2dx 50% fi
+frame {2.5*$2}%,{2.5*$2}%,0 b $2% * $6 round c 0,255 autocrop
+100%,100%,1,3 fc. ${3-5} rv[-2,-1] a c
+gui_set_layer_name "Gum Leaf"
+gui_set_layer_pos {0.5*([$max_wh]-[w,h])}
+done
+mv. 0
+mc_gum_leaf_preview :
+mc_gum_leaf $* blend[^0] [0],alpha rm[0]
+#@cli shape_australia : _size>=0
+#@cli : Input a 2d australia binary shape with specified size.
+#@cli : Default value: 'size=512'.
+#@cli : $ shape_australia ,
+shape_australia : check "${1=512}>=0"
+e[^-1] "Input a $1x$1 australia binary shape." v -
+ir={round($1)}
+if !$ir 0
+else
+base642img "MiBzaG9ydCBsaXR0bGVfZW5kaWFuCjEgMTUxMSAxIDEgIzE5MTQKeJx1Vnlw1tUVPTcJJEBCCBTZF8MyCooga0AQBKt1LFgRpAUBywyDiEV2EJCKYoGmQEcKUgIhbAYISwoiSysYBNl3CVuEIG0KoiJlyZflnZ7fyxeMnekfZ8657/2+t9z7vnsvIhBhMEB4Z0cEIl0UlroIhBiNScI6F4kCcWBPZgwyXALypaewIja6qrjHWEz3OgE/aDzQm6Rv6tt3va6C76RnsJJ0PL4VFzICc71dGTdY1etM7XmXhuusjg+05hxXCws910eKeK5rqG+jsJVxWOEM37Ox1onS/uXwiR+LRRFb6mwx2Ml4rHI9NF8Bf2cC1rpnNVcB/9BeGa6vxgLu43mde0nfV8V6P14NG8Q7+TPdpw926CyZsreLt7h+ZfgBfOxexjbPwXxNjb+Aj1lL3BObWVvjJbzV9fK83f0KfxPvcC/+D/eWb6Owi3WwU2cJ6T67y+jPWBdfKwYX+JLiUN7bV1055DCYL7Ur4Gv29THaw3qyK+FffFl2DD73dizyNB/4Zo++v+6q4d/so3gZsjR/w1WX3/sgU/o7V1O6NzZ5XUv6xbCuLf0CNrI+bjqtwZ7YIH3XNVZcSnSIkYhgM8W+xC7U+aLYSnEN7IelZ+v3D6Mck7VmM8+ZbC7+k3z0KKI5B1vYAjGcpzg/hljOV2xbIo5/ka9boTIXyNePI54LFaPWqMYlimlrVOcy+a8NanCFfFeW07HX81rsZ1vxOhwQP8D1OOx5I456zsTxMJ9gO323Gd/oLtelHxSHuEXvLVpj7ZDI3fJbjO7cXnO7ccuPBzoLtxXHa+yAZvJrPvcpRh3QXG89nweQyyQ8orXyeUixSsKjim2g/8lOaCF9TzqPT+AxrXePB71uqX2C8Wvsgsf1X8ovowt5TPt2RRsG7/64ztMVbVkZxTypsz6Fdl6f1vm6oz3zdLan0YHXtMYz4iRL8uhoHcNICo91YIcw2lv7MAI7+LYTn7DO7Gxd2MWe5JPWlV3voxu73cdT7G7d2cN68Gn7OZ+xZ/kLe47P2y/Z03qxj/VlX+vHX1t/9rcBHGADOciGcIgN5Ws2mmNtHMfbBE60icIkTrW3Oc3e4wybyVk222O2RzKTbYH8W8C5tpgptoRLLJXLLI1ptpwrbCVX2iqustX8yNKZbmu4xmMt11kGM2w919sGbrBN3GSZzLTN3GxbuMW2cqt9wm22TSjS+vuEQm6XjtQ7igzrKL2lQGfZQc977JC4iHvtiOaKuM+OKq7F/MKO8bgdF07whMfxsH2Mx/TN0f+DY/rmRPg3J+0kT9kp4TSzLZvn7BzP2wVetIseOZZTBhfLIIdfhZFj+bpHnnTwP82TXaBzlnCk3mGOFYqviovFV3jFcnnZLvGCbEPA57XnFf+2z4mDd31WHHmfQ+JcBvUi4Cj5JFu/D3yRbV9p31LkMtcu+7UvebvkzCV3ueD3OWdntUa2v2u2neEZ+5JfCme8PhMeK0Uwd5qnPQIfnZS/yvq6rJ+P8Igd5mHF6qDidtAOcL/tF75QvPZ57LW9wueK5x6PLMvy+Mx2c7ewy3YJn/JTYafiS+WgrbjDItWPj+THkHJTmv7791Q/luI874pTkM07yl2LcEr+KOYN5bMFekvXxfOVo64pz/1Zv8tV3pujscuqJckau6R8OEu4pPw4CSuZo3w5AWm8IB6HVJ5XPh2DpZ5HqU6ew3qOxGLl2GJmIINvYNF9PUL19CHFYi3WcTjms4niFOhhmMdG0muwlkORzIaKYzrWcAhmsoHG05HO3+IPyueBXs1X8b7qwY+6rv9+NQfjPdWtkHywyuvaeherdebB6gNqKo+txHLp6aqtd6TTOAi/V20OdCoHYhqreL2Ur+Bt1e/byuFLOEB9RpzXKeyv/iMW/+Fy3e83eEs9wy35+a/spj0rYJS3l+m+nTFA9g9MxYfKs/2UQ2+qDhXL3x+qFvSWHfQpxaopC1VTemkumC/kB9rD5J9W6PmTsbZ4XjH7XnaBYrRYazyn777VfzsUttt5PU9naYNOys2BXqQ61VHnyOdc7dtSOTgmrB9Ba+0f6IWqfY0U7wXixuL5WrdYcQnG5jDR8x8Vg0TxLPk5qCsh/W6m+owWWi/k884MxaC66kaczvyu/J6g2hKn806Xf6O0bqzO+g5SXUXVi2lIUZ91lVMx1U3BFDcZk4W33CRMchMx0U3ABDce44VxbizGeozBmDACPdqNDmMU3nRveox0Iz1+597ACDfC43X3Ooa74cJrGOaGYagbilfdYAxyA/GKG4D+6huKVbv7qZcr1Lspkr96qfco1H07qh8p0H3bqo8Maa6Vi9P7qY0W6nNu6y01V/9zU+/oIf32G903Xn1knHqcSi4a5XW/WrfU1KpnilIv+1NEqr+NxFn5McLrkvEfuWQ+Qus2LVJX7O1yWjMGMfJfRe1xTXmvifYL+oGm6m1DerdNXVOhCRrrTqVo5BrdR6JLFB5EQ/WwARq4BkJ91Peoh3rqp+p61EGdMGqr96ol1JRParoaqKFeO0H7VRHi1UeX3jlW56ogv0S78kg+9F/vDNGsMSAxNSAxIDEgIzMzCnicc2fwZYhiYGAoYcgHYz2GZIZMhlyGdIYqoCgATrgE/Q=="
+decompress_rle. r. $ir,$ir,1,1,5 if $ir>512 b. 0.2% fi >=. 40%
+fi
+nm "[2d australia shape]" v +
+mc_maple_leaf :
+max_wh={$!>0?[${-max_wh}]:[512,512]}
+w,h={S=[$max_wh]*$1%;[max(S[0],1),max(S[1],1)]}
+l[]
+shape_mapleleaf {($7?2:1)*min($w,$h)}
+if $7 r2dx 50% fi
+frame {2.5*$2}%,{2.5*$2}%,0 b $2% * $6 round c 0,255 autocrop
+100%,100%,1,3 fc. ${3-5} rv[-2,-1] a c
+gui_set_layer_name "Maple Leaf"
+gui_set_layer_pos {0.5*([$max_wh]-[w,h])}
+done
+mv. 0
+mc_maple_leaf_preview :
+mc_maple_leaf $* blend[^0] [0],alpha rm[0]
+#@cli shape_gumleaf : _size>=0
+#@cli : Input a 2d gum leaf binary shape with specified size.
+#@cli : Default value: 'size=512'.
+#@cli : $ shape_gumleaf ,
+shape_gumleaf : check "${1=512}>=0"
+e[^-1] "Input a $1x$1 gum leaf binary shape." v -
+ir={round($1)}
+if !$ir 0
+else
+base642img "MiBzaG9ydCBsaXR0bGVfZW5kaWFuCjEgOTY5IDEgMSAjNTk2CnichdXnVuMwEAXgiUMNvXdC76GFQICE3kkoSahPuu+xr7HPcM/OjGxFArP74zszNgdbVqQrCihIUIKIdf7mCiOBgEXVCJAM1fukrQ3au7UBjczURjQxU5tUs63NaKEW1UqtzNQUpdBGbWindtVBHaqTOtHFTO1S3dSNHupRvdSr+lSf6qd+DNCAGqRBDNGQGlbDaoRGMEqjaozGME7jzNQJmlCTNKnSlGZRTWOKptR0WE0/bc3QjDVLs9YczVnzNG8teP2CWqRFa4mWPMu07FmhlVirtIa1/8hQxrGO9R9s0EZoE5sxtmgrtI3tGFnKsh3sxMjRLna/2cNerDzynn3sf3OAg28OcRgqUIEVUfQc4chzjGPrBCfWKU6tM5xZ5zi3LnBhXeJSXeGKXdM1u8GN5xa3se5w96N73LOv993/c5914/X1d/9rLPFj88fwdTxGCSVVtrWsHvBgPXr9o+cJT+rZ1mergoqqosrc3lzX+yrVUFMveFGveA3V+ze8We94tz7wYX16/WfI7b9e+33ccz7sO6J3umOIxhSNsT5u8y3ud9XC76x6c1KxcxXN3VM4r4/O3Jftb1TS381dU9EauOZ1K2tY1rOsb1nvsv5lP0R7RPZMUfdVQfdYtO9kP+Z530b7Okc53fNZzgTJC8kOyRXJmAznkeSWZJrknGSfZKHkpeSn5KlkrWSw5LNktWS3ZLnk+yCT7JfzoIvPCDk/UnymtPD5ImdPA59HST6fjCSfa4Z77fdJPft+vh+Ez3BrwOdoEPN39370jF9//gJSgJz1MSAxNSAxIDEgIzMzCnicc2fwZYhiYGAoYcgHYz2GZIZMhlyGdIYqoCgATrgE/Q=="
+decompress_rle. r. $ir,$ir,1,1,5 if $ir>512 b. 0.2% fi >=. 40%
+fi
+nm "[2d gum leaf shape]" v +
+fx_snowflake :
+foreach {
+to_color split_opacity
+l[0] {
+shape_snowflake {min(w,h)},$1 100%,100%,1,3,[${3-5}]
+j[0] .,{([w#0,h#0]-[w#1,h#1])/2},0,0,$2,.. k[0]
+}
+a c
+}
+fx_dragoncurve :
+foreach {
+to_color split_opacity
+l[0] {
+shape_dragon {min(w,h)},$1,$2 100%,100%,1,3,[${4-6}]
+j[0] .,{([w#0,h#0]-[w#1,h#1])/2},0,0,$3,.. k[0]
+}
+a c
+}
+fx_tk_make3D :
+sh={-$2} sw={-$sh-$3} size1={w} size2={h} to_rgb[0] r[0] $size1,$size2 [0]
+if $11==0
++fx_tk_depthmap. $1,$4,$5,$6,$7,$8,$9,0,0,0 r. $size1,$size2
+fx_gaussian_blur. 0,{{w+h}/700},{{w+h}/350},1,0,0,0
+else if $!!=3
+error[] "For individual depth map select input mode ACTIVE AND BELOW" fi
+rv[1,-1] to_rgb. luminance.
+if $11==1
+if $9!=0
++fc[0] 128,128,128 +channels[0] 2 negate. c. 0,90
+n. 0,128 rv[-1,-2] compose_darken[-1,-2]
++channels[0] 0 negate. c. 165,255 n. 128,255 rv[-1,-2]
+compose_hardlight[-1,-2] rv[-1,-2]
+if $11==0 if $1!=20 fx_compose_average[-1,-2] {$9/5}
+else fx_compose_value[-1,-2] {$9/5},0
+tk_fx_channel_processing. 1,{$4/25},0,0,0,0,100,256,0,0,0,2,0,0
+fi
+else fx_compose_value[-1,-2] {$9/5},0 fi fi
+if $8!=0 +fx_highpass[0] 2,2,0,0,0
+tk_fx_replace_color. 5,0,128,128,128,255,0,0,0,255
+fx_morpho. 3,70,0,0,0,1,0 to_gray. av={ia}
+ir. $av,255 n. 0,255 blur_xy. 25
+rv[-1,-2] fx_compose_overlay[-1,-2] {$8/5} fi
+if $5!=0 +fx_isophotes[0] {{$5*3}+2},0,0,0
+fx_morpho. 3,{5-{$5/2}},0,0,0,1,0
+tk_fx_channel_processing. 1,1,255,0,0,0,100,256,0,0,0,2,0,0
+rv[-1,-2] fx_compose_overlay[-1,-2] {$5/10}
++fx_gradient_norm[0] {$6*2},{1.5-{0.1+{$5/3.6}}},0,100,0,0
+rv[-1,-2] compose_lighten[-1,-2] fx_segment_watershed. $5,$6,0,0
+fi
+if $7!=0 +luminance[0] fx_map_tones. 1,{0.25-{$7/20}},0,30,3,0
+rv[-1,-2] fx_compose_overlay[-1,-2] {$7/10} fi
+n. 0,255
+fi fi
+if $20==1 r {w*{$23/max(w,h)}},{h*{$23/max(w,h)}},1,3,6 c 0,255 fi
+if $20==0
+if $13!=15 if $19==0
+if $sw<=0 negate. fi
+r. $size1,$size2,1,2 s. c f. 0 n.. 0,$sw a[-1,-2] c
+warp.. .,1 shift.. $sh,0 rm.
+else
+. r[-1,-2] 100%,100%,1,2
+s. c f. 0 n.. 0,{abs($sw/2)} a[-1,-2] c
+negate.. s.. c f.. 0 n... 0,{-abs($sw/2)} a[-2,-3] c
+warp[-4] ..,1 warp... .,1
+shift... $sh,0 rm[-1,-2]
+fi fi
+else
+if $19==0
+count={$22} dev=0 repeat $count dev={$dev+{$sw/$22}}
+[0] rv[-1,-2]
+if $sw<=0 negate. fi
+r. 100%,100%,1,2 s. c f. 0
+if $21==0 n.. 0,$dev else n.. {-$dev},$dev fi
+a[-1,-2] c warp.. .,1 to_gray. n. 0,255
+if $sw<=0 negate. fi
+done rm[-1,0] rv
+else
+count={abs($22/2)} dev=0
+repeat $count dev={$dev+{$sw/$count}}
+.. rv[-1,-2]
+.. rv[-1,-2]
+. r[-1,-2] 100%,100%,1,2
+s. c f. 0
+if $21==0 n.. 0,{abs($dev/2)}
+else n.. {-abs($dev/2)},{abs($dev/2)} fi
+a[-1,-2] c
+negate.. s.. c f.. 0
+if $21==0 n... 0,{-abs($dev/2)}
+else n... {-abs($dev/2)},{abs($dev/2)} fi
+a[-2,-3] c
+warp[-4] ..,1 warp... .,1 rm.. to_gray. n. 0,255
+mv[-4] -1 done rm[-1,-2] mv[0--1:2] -1 rv[0-50%] mv[0] 50%
+fi fi
+if $20==0 if $18==1 if $13!=15
+if $sh>=0 z[-1,-2] $sh,0,{w},{h} else z[-1,-2] 0,0,{w+$sh},{h} fi
+if $19==0
+if $sw>=0 z[-1,-2] $sw,0,{w},{h} else z[-1,-2] 0,0,{w+$sw},{h} fi
+else z[-1,-2] {abs($sw/2)},0,{w-abs($sw/2)},{h}
+fi fi fi fi
+if $12==1 fx_blackandwhite 0.299,0,0.587,0,0.114,0,1,1,0,0,0,0,0,0,2,0,0,0,16,4,0,0,0 fi
+if $20==0
+if $13!=14&&$13!=15
+fx_tk_stereoimage[0,1] $13,$10,$14,$15,$16,$17
+elif $13==14 k[0,1]
+elif $13==15 k.
+fi
+fi
+if $13==14 apply_gamma $14 tk_fx_channel_processing 1,1,$15,0,0,0,100,256,0,0,1,10,7,0
+fx_mix_lab 1,0,0,$16,0,0,$16,0,0,0,2,0 fi
+fx_tk_make3D_preview :
+if $20==0 shpre={$2/3} swpre={$3/3} else shpre={$2*{400/$23}} swpre={$3*{400/$23}} fi
+if $11==1&&$!!=2 fc[0] 255,0,128,255 k[0] text "For individual depth map",10,80%,20,1,0,0,0,255
+text "select input mode ACTIVE AND BELOW.",10,90%,20,1,0,0,0,255
+else
+fx_tk_make3D $1,$shpre,$swpre,${4-12},{if({$20==1},14,$13)},${14-19},0,${21-23} if $13==14||$20==1 k[1] fi
+fi
+fx_tk_video3D : skip "${15=},${27=}"
+sh={-$2} sw={-$sh-$3} size1={w} size2={h}
+if narg($_previewflag)==0 _previewflag=0 fi
+if $_previewflag!=0 sh={$sh*{400/$22}} sw={$sw*{400/$22}} fi
+if $26==0
+if $34!=0||$35!=0
+if $34>=$!-$35" || "$35>=$!-$34 error[] "Fade out of frame range."
+fi fi
+if $13!=14 channels 0,2 fi
+if $_previewflag!=2 frames={$!} else frames=1 fi
+counter={$!} index=0
+if $_previewflag!=0 r 400,328 fi
+flag3d=0 if $41!=2
+if !($2==0" && "$3==0" && "$1==24" && "$13==14" && "$32!=0) flag3d=1
+repeat $frames
+[$index]
+if $40==0" || "$40==1
++fx_tk_depthmap[$index] $1,$4,$5,$6,$7,$8,$9,$38,$39,{w*{$37/1000}}
+r. $size1,$size2 fi
+if $40==1
+infilec="correction.png" inpathc="$27/"$infilec""
+input. $inpathc
+to_rgba[-1,-2] compose_rgba[-1,-2] to_rgb.
+elif $40==2
+infilec="depthmap.png" inpathc="$27/"$infilec""
+input. $inpathc
+elif $40==3
+if $_previewflag==2
+infilec="depthmap_"$_mapin".png" inpathc="$27/depthmaps/"$infilec""
+else
+infilec="depthmap_"{$frames-$index}".png" inpathc="$27/depthmaps/"$infilec""
+fi
+input. $inpathc
+rv[$index,-2]
+fi
+if $_previewflag!=0 r 400,328 fi
+if $10!=0
+if $_previewflag==2 [0] mv[-4] -1
+compose_difference[-1,-2] luminance. n. 0,255
+ir. 0,{{$37/2}+1} negate. n. 0,255
+else
+[$index] [{$index+1}]
+compose_difference[-1,-2] luminance. n. 0,255
+ir. 0,{{$37/2}+1}
+negate. n. 0,255
+if $index<=$frames-2 +negate. fi
+fi
+fi
+index={$index+1} done
+if $10!=0
+if $_previewflag==2
+if $42==0 infile={$29} elif $42==1 infile={$30} elif $42==2 infile={$43} fi
+if $infile==2 rv[-1,-2] else if $infile>=$29+2
+compose_difference[-4,-5] luminance[-4] n[-4] 0,255
+ir[-4] 0,1 negate[-4] n[-4] 0,255
+negate[-4] compose_darken[-1,-4]
+mv... -1 fi fi
+blur_xy.. {w*{$37/1000}}
+if $infile!=$29 if $10>=0 fx_compose_lighten[-1,-2] {abs($10)/5}
+else negate.. fx_compose_darken[-1,-2] {abs($10)/5} fi fi
+else
+rm. rm[{$counter+3}]
+repeat $frames-2
+mv[{$counter+6}] {$counter+2}
+compose_darken[{$counter+2},{$counter+3}]
+rv[{$counter+1},{$counter+2}]
+blur_xy[{$counter+1}] {w*{$37/1000}}
+if $10>=0
+fx_compose_lighten[{$counter+1},{$counter+2}] {abs($10)/5}
+else negate[{$counter+1}]
+fx_compose_darken[{$counter+1},{$counter+2}] {abs($10)/5}
+fi
+counter={$counter+2} done
+rv[-3,-4] blur_xy[-4] {w*{$37/1000}}
+if $10>=0 fx_compose_lighten[-3,-4] {abs($10)/5}
+else negate[-4] fx_compose_darken[-3,-4] {abs($10)/5} fi
+fi
+fi
+if $_previewflag==2 if $24!=0 rm.. fi fi
+index={-1} repeat $frames
+if $13!=15
+if $41==0 if $sw<=0 negate[$index] fi fi
+if $_previewflag!=2
+if $34!=0 if -$index<=$34 sw={{{-$index}/$34}*$sw} sh={{{-$index}/$34}*$sh}
+fi fi
+if $35!=0 if -($index+1)>=$frames-$35 sw={$sw*{{$frames-{-{$index+1}}}/$35}}
+sh={$sh*{{$frames-{-{$index+1}}}/$35}} fi fi fi
+if $41==0
+r[$index] 100%,100%,1,2 s[$index] c f[$index] 0 n[{$index-1}] 0,$sw
+a[$index,{$index-1}] c warp[{$index-1}] [$index],1
+shift[{$index-1}] $sh,0 rm[$index]
+else
+[$index]
+mv. {$frames+{$index+1}}
+r[$index,{$frames+{$index+1}}] 100%,100%,1,2
+s[$index] c f[$index] 0 n[{$index-1}] 0,{abs($sw/2)} a[$index,{$index-1}] c
+negate[{$frames+{$index+1}}] s[{$frames+{$index+1}}] c
+f[{$frames+{$index+2}}] 0 n[{$frames+{$index+1}}] 0,{-abs($sw/2)}
+a[{$frames+{$index+1}},{$frames+{$index+2}}] c
+warp[{$frames+{$index+0}}] [{$frames+{$index+1}}],1
+warp[{$index-1}] [$index],1
+shift[{$index-1}] $sh,0
+rm[$index,{$frames+{$index+1}}]
+fi
+fi
+sh={-$2} sw={-$sh-$3}
+if $_previewflag!=0 sh={$sh*{400/$22}} sw={$sw*{400/$22}} fi
+index={$index-1} done
+if $13!=15 if $_previewflag!=2
+if $24>=0 repeat $24 rm. [$frames]
+mv. $frames done
+else counter={1} repeat abs($24) rm[$frames]
+[{-$counter}] mv. {-$counter-1} counter={$counter+1} done fi
+fi fi
+if $20==1 if $13!=15
+if $sh>=0 z $sh,0,{w},{h} else z 0,0,{w+$sh},{h} fi
+if $sw>=0 z $sw,0,{w},{h} else z 0,0,{w+$sw},{h} fi
+fi fi
+fi fi
+if $_previewflag!=2
+if $32!=0 if $13!=15 repeat $! l[$>] fx_custom_code "$33",0,0,0 done done fi fi
+else
+if $32==1 if $13!=15 fx_custom_code[0,1] "$33",0,0,0 fi
+elif $32==2 if $13!=15 l[0] fx_custom_code "$33",0,0,0 done fi
+elif $32==3 if $13!=15 l[1] fx_custom_code "$33",0,0,0 done fi
+fi fi
+if $41==2 if $13==14" || "$13==15 error[] "Output format not allowed for image stream alignment" fi fi
+if $12==1 ac "fx_blackandwhite 0.3,0,0.6,0,0.1,0,1,1,0,0,0,0,0,0,2,0,0,0,16,4,0,0,0",rgb fi
+counter={$frames-1} index={-2}
+repeat $frames
+if $13!=14" && "$13!=15
+fx_tk_stereoimage[-1,$counter] $13,$11,$16,$17,$18,$19
+elif $13==15 rm[0,$index]
+fi counter={$counter-1} index={$index-1} done
+if $13==14 apply_gamma $16 tk_fx_channel_processing 1,1,$17,0,0,0,100,256,0,0,1,10,7,0
+fx_mix_lab 1,0,0,$18,0,0,$18,0,0,0,2,0 fi
+if $21==1 if $13!=13
+if $23==0 r $22,{$22*0.75},1,{s},6
+elif $23==1 r $22,{{$22*9}/16},1,{s},6
+elif $23==2 r $22,{{$22*2}/3},1,{s},6
+elif $23==3 r $22,{$22*0.5},1,{s},6
+elif $23==4 r $22,{{$22*9}/21},1,{s},6
+elif $23==5 r $22,{$22*{h/w}},1,{s},6 fi
+fi fi c 0,255
+if $25==1 rv fi
+if $14==1
+if $31==0" || "$13==15 end=".png" else end=".bmp" fi
+rv
+index={0} name=0
+if $13==14" && "$flag3d==1
+fileleft="$15/frame_left_"{$name+1}$end fileright="$15/frame_right_"{$name+1}$end
+else if $13!=15 filename="$15/frame_"{$index+1}$end
+else filename="$15/depthmap_"{$index+1}$end fi fi
+repeat $frames
+if $13==14" && "$flag3d==1
+output[$index] $fileright
+output[{$index+$frames}] $fileleft
+index={$index+1} name={$name+1}
+fileleft="$15/frame_left_"{$name+1}$end fileright="$15/frame_right_"{$name+1}$end
+else
+output[$index] $filename
+index={$index+1} if $13!=15 filename="$15/frame_"{$index+1}$end else filename="$15/depthmap_"{$index+1}$end fi
+fi
+done rv
+fi
+else
+if $31==0 end=".png" else end=".bmp" fi
+infile={$29} inpath="$27/$28"$infile""$end"" outfile={$29}
+frames={{$30-$29}+1} counter=1
+if $34!=0" || "$35!=0
+if $34>=$frames-$35" || "$35>=$frames-$34 error[] "Fade out of frame range"
+fi fi
+if $41==2
+inpathleft="$27/$28""left_"$infile$end inpathright="$27/$28""right_"$infile$end
+fi
+av=1 var=1 avprev=1 varprev=1
+repeat $frames
+if $41!=2
+rm input[0] $inpath
+if $24==0 [0]
+else infile2={$infile+$24}
+if $infile2<=$29 infile2={$29} fi
+if $infile2>=$30 infile2={$30} fi
+inpath2="$27/$28"$infile2""$end""
+input[1] $inpath2 fi
+else
+rm input[0] $inpathleft
+input[1] $inpathright
+fi
+size1={w} size2={h}
+flag3d=0 if $41==3 flag3d=1 fi if $41!=2" && "$41!=3
+if !($2==0" && "$3==0" && "$1==24" && "$13==14" && "$32!=0) flag3d=1
+if $13!=14 channels[0,1] 0,2 fi
+if $40==0" || "$40==1
+av={0,ia} var={0,iv} diffav={{$av-$avprev}/$avprev*100} diffvar={{$var-$varprev}/$varprev*100}
+if abs($diffav)>=10" || "abs($diffvar)>=10 scenechange=1 else scenechange=0 fi
+if $counter==1" || "$scenechange==1" || "$counter/$36==round($counter/$36,1)
++fx_tk_depthmap[0] $1,$4,$5,$6,$7,$8,$9,$38,$39,{w*{$37/1000}} r. $size1,$size2
+if $av!=0 avprev=$av fi if $var!=0 varprev=$var fi
+if $36!=1 filename="$15/depthmap_temp.png"
+output. $filename fi
+else
+filename="$15/depthmap_temp.png"
+input. $filename
+fi
+fi
+if $40==1
+infilec="correction.png" inpathc="$27/"$infilec""
+input. $inpathc
+compose_rgba[-1,-2]
+elif $40==2
+infilec="depthmap.png" inpathc="$27/"$infilec""
+input. $inpathc
+elif $40==3
+infilec="depthmap_"$infile".png" inpathc="$27/depthmaps/"$infilec""
+input. $inpathc
+fi
+if $10!=0 if $infile!=$29
+[0]
+infilemov={$infile-1} inpathmov="$27/$28"$infilemov""$end""
+input. $inpathmov
+compose_difference[-1,-2] luminance. n. 0,255
+ir. 0,{{$37/2}+1} negate. n. 0,255
+if $infile>=$29+2
+infilemov2={$infile-2} inpathmov2="$27/$28"$infilemov2""$end""
+input. $inpathmov2
+infilemov3={$infile-1} inpathmov3="$27/$28"$infilemov3""$end""
+input. $inpathmov3
+compose_difference[-1,-2] luminance. n. 0,255
+ir. 0,1 n. 0,255 compose_darken[-1,-2]
+fi blur_xy. {w*{$37/1000}} rv[-1,-2]
+if $10>=0
+fx_compose_lighten[-1,-2] {abs($10)/5}
+else
+negate..
+fx_compose_darken[-1,-2] {abs($10)/5}
+fi
+fi fi
+if $13!=15
+if $41==0
+if $sw<=0 negate[2] fi
+if $34!=0 if $counter<=$34 sw={{$counter/$34}*$sw} sh={{$counter/$34}*$sh} fi fi
+if $35!=0 if $counter>=$frames-$35 sw={$sw*{{{$frames-$counter}+1}/$35}}
+sh={$sh*{{{$frames-$counter}+1}/$35}} fi fi
+r. 100%,100%,1,2 s. c f. 0 n.. 0,$sw a[-1,-2] c
+warp.. .,1 shift.. $sh,0 rm.
+else
+. r[-1,-2] 100%,100%,1,2
+s. c f. 0 n.. 0,{abs($sw/2)} a[-1,-2] c
+negate.. s.. c f.. 0 n... 0,{-abs($sw/2)} a[-2,-3] c
+warp[-4] ..,1 warp... .,1
+shift... $sh,0 rm[-1,-2]
+fi
+fi
+sh={-$2} sw={-$sh-$3}
+if $20==1 if $13!=15
+if $sh>=0 z $sh,0,{w},{h} else z 0,0,{w+$sh},{h} fi
+if $sw>=0 z $sw,0,{w},{h} else z 0,0,{w+$sw},{h} fi
+fi fi
+fi fi
+if $41==3 fx_tk_deana[0] $37,{{$38*2}+0.1} to_rgb fi
+if $32==1 if $13!=15 fx_custom_code[0,1] "$33",0,0,0 fi
+elif $32==2 if $13!=15 l[0] fx_custom_code "$33",0,0,0 done fi
+elif $32==3 if $13!=15 l[1] fx_custom_code "$33",0,0,0 done fi
+fi
+if $12==1 ac[0,1] "fx_blackandwhite 0.3,0,0.6,0,0.1,0,1,1,0,0,0,0,0,0,2,0,0,0,16,4,0,0,0",rgb fi
+if $41==2" && "$13==14 error[] "Output format not allowed for image stream alignment"
+elif $41==3" && "$13==15 error[] "Output format not allowed for anaglyph video reconstruction"
+elif $41==2" && "$13==15 +fx_tk_depth_obtain[0,1] $11,{$37/100},{100-{$38*20}},{$39*20}
+if $32!=0 fx_custom_code[0,1,-1] "$33",0,0,0 fi k.
+elif $41!=2" && "$13==15 k.
+elif $41==3" && "$13==14 k[0,1]
+else fx_tk_stereoimage[0,1] $13,$11,$16,$17,$18,$19 fi
+if $13==14 apply_gamma $16 tk_fx_channel_processing 1,1,$17,0,0,0,100,256,0,0,1,10,7,0
+fx_mix_lab 1,0,0,$18,0,0,$18,0,0,0,2,0 fi
+if $21==1 if $13!=13
+if $23==0 r $22,{$22*0.75},1,{s},6
+elif $23==1 r $22,{{$22*9}/16},1,{s},6
+elif $23==2 r $22,{{$22*2}/3},1,{s},6
+elif $23==3 r $22,{$22*0.5},1,{s},6
+elif $23==4 r $22,{{$22*9}/21},1,{s},6
+elif $23==5 r $22,{$22*{h/w}},1,{s},6
+fi fi fi c 0,255
+if $13==14" && "$flag3d==1
+fileleft="$15/frame_left_"$outfile$end fileright="$15/frame_right_"$outfile$end
+else if $13!=15 filename="$15/frame_"$outfile$end
+else filename="$15/depthmap_"$outfile$end fi fi
+if $13==14" && "$flag3d==1
+output[0] $fileleft output[1] $fileright
+else output[0] $filename
+fi
+outfile={$outfile+1}
+infile={$infile+1} inpath="$27/$28"$infile""$end""
+if $41==2 inpathleft="$27/$28""left_"$infile$end inpathright="$27/$28""right_"$infile$end fi
+counter={$counter+1} done fi
+if $_previewflag==0" && "$26==1 if $36!=1
+if ${-is_windows} path="$15" path=${path}{`92`}
+x "cd \""$path"\" && del depthmap_temp.png"
+else file="$15/depthmap_temp.png" x "rm -f \"$file\"" fi
+fi fi
+fx_tk_video3D_preview : skip "${15=},${27=}"
+shpre={$2*{400/$22}} swpre={$3*{400/$22}}
+if $26==0
+if $!==1 fc[0] 255,0,128,255 k[0] text "Select multiple layer",10,80%,24,1,0,0,0,255
+text "input mode ALL.",10,90%,24,1,0,0,0,255
+elif $41==2 fc[0] 255,0,128,255 k[0] text "Alignment of image streams",10,80%,24,1,0,0,0,255
+text "in BATCH processing mode only!",10,90%,24,1,0,0,0,255
+elif $41==3 fc[0] 255,0,128,255 k[0] text "Anaglyph video reconstruction",10,80%,24,1,0,0,0,255
+text "in BATCH processing mode only!",10,90%,24,1,0,0,0,255
+else
+_previewflag=1
+if $40==3 if $42==0 _mapin=1 elif $42==1 _mapin={$!} elif $42==2 _mapin=$43 fi fi
+if $42==0 nr=1 pv={-1} elif $42==1 nr={$!} pv={-$!} elif $42==2" || "$42==3 nr=$43 pv={-$43} fi
+if $42==2" || "$42==3 if $43>=$! nr={$!} pv={-$!} _mapin={$!} fi fi
+if $42!=3
+fx_tk_video3D[$pv] $1,$shpre,$swpre,${4-9},0,${11-13},0,"$15",${16-23},0,${25-26},"$27","$28",${29-32},"$33",0,0,${36-39},0,${41-43} k[$pv]
+text[0] "layer "{``$nr},20,75%,{h*0.1},1,255,{if({{$13==2}||{$13==3}||{$13==15}},0,255)},0,255
+if $24!=0 text "For preview with frames offset ",20,70%,{h*0.05},1,255,{if({$13==15},0,255)},{if({$13==15},0,255)},255
+text "use full layer stack preview mode!",20,85%,{h*0.05},1,255,{if({$13==15},0,255)},{if({$13==15},0,255)},255 fi
+if $34!=0" || "$35!=0 text "For fade in/out effect preview",20,65%,{h*0.05},1,255,{if({$13==15},0,255)},{if({$13==15},0,255)},255
+text "use full layer stack preview mode!",20,85%,{h*0.05},1,255,{if({$13==15},0,255)},{if({$13==15},0,255)},255 fi
+if $40!=0 text "For preview with custom depth correction ",20,60%,{h*0.05},1,255,{if({$13==15},0,255)},{if({$13==15},0,255)},255
+text "use full layer stack preview mode!",20,85%,{h*0.05},1,255,{if({$13==15},0,255)},{if({$13==15},0,255)},255 fi
+if $10!=0 text "For preview with motion analyzer ",20,55%,{h*0.05},1,255,{if({$13==15},0,255)},{if({$13==15},0,255)},255
+text "use full layer stack preview mode!",20,85%,{h*0.05},1,255,{if({$13==15},0,255)},{if({$13==15},0,255)},255 fi
+if $32==2" || "$32==3 text[0] "Separate stream filtering ignored in layer mode",20,50%,{h*0.05},1,255,255,0,255 fi
+else
+fx_tk_video3D $1,$shpre,$swpre,${4-13},0,"$15",${16-26},"$27","$28",${29-32},"$33",${34-43} k[$pv]
+fi
+text[0] "layer "{``$nr},20,75%,{h*0.1},1,255,{if({{$13==2}||{$13==3}||{$13==15}},0,255)},0,255
+if $2==0" && "$3==0" && "$1==24" && "$13==14" && "$32!=0 text[0] "2D filter mode on!",50%,75%,{h*0.075},1,255,255,0,255 fi
+if $36!=1 text "Key frame settings ignored in layer processing mode. ",20,50%,{h*0.05},1,255,255,0,255 fi
+_previewflag=0
+fi
+else
+_previewflag=2
+if $42==3
++fc[0] 255,0,128,255 k.
+text "No preview available",20,50,28,1,0,0,0,255
+text "for batch input stack!",20,80,28,1,0,0,0,255
+text "Please select frame to adjust settings.",20,150,16,1,0,0,0,255
+elif $42==2" && "($43<=$29-1" || "$43>=$30+1) fc[0] 255,0,128,255 k[0]
+text[0] "Selected frame out of range! ",10,80%,24,1,0,0,0,255
+elif $41==2" && "$13==14 fc[0] 255,0,128,255 k[0]
+text[0] "Output format not allowed!",10,80%,24,1,0,0,0,255
+elif $41==3" && "$13==15 fc[0] 255,0,128,255 k[0]
+text[0] "Output format not allowed!",10,80%,24,1,0,0,0,255
+else
+rm
+if $31==0 end=".png" else end=".bmp" fi
+if $42==0 infile={$29}
+if $34!=0 swpre={{1/$34}*$swpre} shpre={{1/$34}*$shpre} fi
+elif $42==1 infile={$30}
+if $35!=0 swpre={{1-{1/$35}}*$swpre} shpre={{1-{1/$35}}*$shpre} fi
+elif $42==2 infile={$43}
+if $34!=0" || "$35!=0}
+if $43<=$29+$34 swpre={{$43/$34}*$swpre} shpre={{$43/$34}*$shpre} fi
+if $43>=$30-$35 swpre={{$30-$43}*{$swpre/$35}} shpre={{$30-$43}*{$shpre/$35}} fi
+fi
+fi
+if $41!=2
+inpath1="$27/$28"$infile""$end""
+input[0] $inpath1
+if $24!=0 infileoff={$infile+$24}
+if $infileoff<=$29 infileoff={$29} fi
+if $infileoff>=$30 infileoff={$30} fi
+inpathoff="$27/$28"$infileoff""$end""
+input[1] $inpathoff
+fi
+if $infile!=$29 if $10!=0
+infilemov={$infile-1} inpathmov="$27/$28"$infilemov""$end""
+input. $inpathmov
+if $infile>=$29+2
+infilemov2={$infile-2} inpathmov2="$27/$28"$infilemov2""$end""
+input. $inpathmov2
+infilemov3={$infile-1} inpathmov3="$27/$28"$infilemov3""$end""
+input. $inpathmov3
+fi fi fi
+else
+inpathleft="$27/$28""left_"$infile$end inpathright="$27/$28""right_"$infile$end
+rm input[0] $inpathleft
+input[1] $inpathright
+fi
+if $42==0 _mapin=$29 elif $42==1 _mapin=$30 elif $42==2 _mapin=$43 fi
+framesn={{$30-$29}+1}
+if ($34!=0" || "$35!=0)" && "($34>=$framesn-$35" || "$35>=$framesn-$34) fc[0] 255,0,128,255 k[0]
+text "Fade out of frame range! ",10,80%,{h*0.1},1,0,0,0,255
+else
+if $41==2" && "$13==15 +fx_tk_depth_obtain[0,1] $11,{$37/100},{100-{$38*20}},{$39*20}
+if $32!=0 fx_custom_code[0,1,-1] "$33",0,0,0 fi k.
+else
+fx_tk_video3D $1,$shpre,$swpre,${4-9},{if({$infile==$29},0,$10)},${11-13},0,"$15",${16-25},0,"$27","$28",${29-31},{if({{$2==0}&&{$3==0}&&{$1==24}&&{$13==14}&&{$32!=0}},2,$32)},"$33",0,0,1,${37-43}
+fi to_rgb if $13==14 k. fi
+text[0] "frame "{``$infile},20,75%,{h*0.1},1,255,{if({{$13==2}||{$13==3}||{$13==15}},0,255)},0,255
+if $41!=2 if $36!=1 if $40==0" || "$40==1 text[0] "Preview always forced to key frame. ",20,50%,{h*0.05},1,255,255,0,255 else
+text[0] "No keyframe computation for individual maps. ",20,64%,{h*0.05},1,255,255,0,255 fi fi fi
+if $2==0" && "$3==0" && "$1==24" && "$13==14" && "$32!=0 text[0] "2D filter mode on!",50%,75%,{h*0.075},1,255,255,0,255 fi
+fi fi fi
+_previewflag=0
+fx_tk_autodepth :
+repeat $! l[$>] to_rgb sizew={w} sizeh={h} resize2dx 400,2
+whpos=128 blpos=128 rpos=255 gpos=200 blupos=200 crga=1.5 crmix1=0.5 crmix2=0.5 geocomp1=75 geocomp2=30
+geostr=0.3 focstr=0.3 featsize=60 featpos=128 feattr=35 tr=30 rtr=90 gtr=90 blutr=90 contstr=0.9
+featinfl=1 foctol=5 focmorph=70 focavt=85 focavt2=140 focvart=2000 latinhib=0.5
++fx_map_tones_fast. 10,0.5,0,0 luminance.
+fx_segment_watershed. 0.5,1,0 label. 5,0
++fx_gradient_norm[0] 0,0.5,0,100,0,0 compose_lighten[-1,-2]
+fx_segment_watershed. 0.5,1,0 label. 5,0 n. 0,255
++luminance[0]
++channels[0] 1 ir. $gtr%,100%
+fx_morpho. 2,2,0,0,0,1,0 n. 0,$gpos
+tk_fx_replace_color. 1,0,0,0,0,255,0,0,0,0 blend[-1,-2] alpha
++channels[0] 0 ir. $rtr%,100%
+fx_morpho. 2,2,0,0,0,1,0 n. 0,$rpos
+tk_fx_replace_color. 1,0,0,0,0,255,0,0,0,0 blend[-1,-2] alpha
++channels[0] 2 ir. $blutr%,100% n. 0,$blupos
+fx_morpho. 2,2,0,0,0,1,0
+tk_fx_replace_color. 1,0,0,0,0,255,0,0,0,0
+to_rgba. +fx_linear_gradient. 0,0,0,255,255,255,255,255,0,90,0,100
+s.. c rv[-1,-2] compose_multiply[-1,-2] to_gray. a[-4,-3,-2,-1] c
+blend[-1,-2] alpha
++channels[0] 0 +luminance[0] compose_average[-1,-2] ir. 80%,95%
+fx_morpho. 2,2,0,0,0,1,0 n. 0,$whpos
+tk_fx_replace_color. 1,0,0,0,0,255,0,0,0,0 blend[-1,-2] alpha
++channels[0] 0 +luminance[0] compose_average[-1,-2] ir. 5%,20%
+fx_morpho. 2,2,0,0,0,1,0 n. 0,$blpos
+tk_fx_replace_color. 1,0,0,0,0,255,0,0,0,0 blend[-1,-2] alpha
++fx_gradient_norm[0] 0,0.5,0,50,0,0
+.
+fx_morpho. 2,$featsize,0,0,0,1,0
+ir. $feattr%,100%
+n. 0,$featpos
+blur_xy. 2
+fx_compose_lighten[-1,-2] $contstr
+blur_xy. 2
+to_rgb[0] rgb2ycbcr[0] +channels[0] 2 ycbcr2rgb[0]
+n. 0,255 c. 25%,100% apply_gamma. $crga
++channels[0] 2 negate. c. 0,128
+to_rgba. +fx_linear_gradient. 0,0,0,255,255,255,255,255,0,270,0,100
+s.. c rv[-1,-2] compose_multiply[-1,-2] to_gray.
+a[-4,-3,-2,-1] c rv[-1,-2] fx_compose_darken[-1,-2] $crmix1
++luminance[0] fx_houghsketchbw. 10,5,15,$tr,1,1,0 complex={ia}
+if $complex>=$geocomp1
+do tr={$tr+10} rm. +luminance[0] fx_houghsketchbw. 10,5,15,$tr,1,1,0 complex={ia}
+while $complex>=$geocomp2" && "$tr<=90 fi
+fx_morpho. 3,5,0,0,0,1,0 blur_xy. 1 fx_distance. 255,0,1,1,0
+complex={ia}
++fx_highpass[0] 2,2,0,0,0
+tk_fx_replace_color. $foctol,0,128,128,128,255,0,0,0,255
+fx_morpho. 3,$focmorph,0,0,0,1,0 to_gray.
+av={ia} var={iv}
+if $av<=$focavt" || "($av>=$focavt" && "$av<=$focavt2" && "$var<=$focvart)
+ir. $av,255 n. 0,255 blur_xy. 10 else fc. 128,128,128 fi
++fx_gradient_norm[0] 0,0.5,0,50,0,0
+rm[0]
+fx_compose_overlay[-7,-6] 0.5
+fx_compose_overlay[-6,-5] $featinfl
+fx_compose_value[-5,-4] $crmix2
+rv[-4,-3]
+if $complex!=0 fx_compose_overlay[-4,-3] $geostr else rm... fi
+rv[-3,-2]
+fx_compose_overlay[-3,-2] $focstr
+rv[-2,-1]
+fx_compose_lighten[-1,-2] $latinhib
+blur_xy. 2 fx_morpho. 3,20,0,0,0,1,0
+fx_segment_watershed. 15,0,0 n. 0,255
+blur_y. 2 blur_x. 1
+resize $sizew,$sizeh,2
+done done
+fx_tk_deana :
+repeat $! l[$>] to_rgb +s c rm.
+to_rgb[-1,-2] rgb2lab[-1,-2] channels[-1,-2] 0
+rgb2lab[0] s[0] c blur_x[1,2] $1
+c[-1,-2] {0,im},{0,iM}
+apply_gamma. {($2^({0,ia}/ia)-$2)*$2+1}
+apply_gamma.. {($2^({0,ia}/{-2,ia})-$2)*$2+1}
+[1,2] rm[0] mv[2] 0
+a[0,1,2] c a[1,2,3] c lab2rgb[0,1]
+done done
+fx_tk_depthmap :
+repeat $! l[$>] to_rgb size1={w} resize2dx 400,2
+if $8!=0 fx_map_tones_fast {$8*4},{$9/5},3,0 fi
+if $1==0 +fx_tk_autodepth.
++luminance[0] fx_map_tones. 1,0.25,0,30,3,0
+rv[-1,-2] fx_compose_value[-1,-2] 0.15
+tk_fx_channel_processing. 1,{$2/20},0,0,0,0,100,256,0,0,0,2,0,0
+elif $1==1 +channels[0] 2
+tk_fx_channel_processing. 1,{{$2/25}+0.1},0,0,0,0,100,256,0,1,0,2,0,0
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,90,0,{100-{$2/1.5}}
+rv[-1,-2] fx_compose_lighten[-1,-2] {0.5+{$2/200}}
+elif $1==2 +s. c fx_dog. 0.4,0,0,0,0
+negate.. fx_dog... 0.4,0,0,0,0
+fx_compose_alpha[-1,-2] 0.44,0
+fx_compose_alpha[-1,-2] 0.44,0
+tk_fx_channel_processing. 1,{$2/20},0,0,0,0,100,256,0,0,0,2,0,0
+elif $1==3 +luminance.
+tk_fx_channel_processing. 1,{$2/25},0,0,0,0,100,256,0,0,0,2,0,0
+elif $1==4 +luminance. negate.
+tk_fx_channel_processing. 1,{$2/25},0,0,0,0,100,256,0,0,0,2,0,0
+elif $1==5
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,90,0,{100-$2}
+elif $1==6
++fx_radial_gradient. 0,0,0,255,255,255,255,255,1,$2,100,50,50
+elif $1==7
++fx_radial_gradient. 0,0,0,255,255,255,255,255,0,0,{100-$2},50,50
+elif $1==8
++fx_linear_gradient. 0,0,0,255,255,255,255,255,1,0,$2,100
+elif $1==9
++fx_linear_gradient. 0,0,0,255,255,255,255,255,1,315,$2,100
+elif $1==10
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,0,0,{100-$2}
+elif $1==11
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,45,0,{100-$2}
+elif $1==12
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,0,50,{100-{$2/2}}
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,180,50,{100-{$2/2}}
+compose_lighten[-1,-2]
+elif $1==13
++fx_linear_gradient. 0,0,0,255,255,255,255,255,1,180,100,{50+{$2/2}}
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,180,{50-{$2/2}},0
+compose_darken[-1,-2]
+elif $1==14
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,90,50,{100-{$2/2}}
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,270,50,{100-{$2/2}}
+compose_lighten[-1,-2]
+elif $1==15
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,180,50,{100-{$2/2}}
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,90,50,{100-{$2/2}}
+compose_lighten[-1,-2]
+elif $1==16
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,0,50,{100-{$2/2}}
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,90,50,{100-{$2/2}}
+compose_lighten[-1,-2]
+elif $1==17
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,0,50,{100-{$2/4}}
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,180,50,{100-{$2/4}}
+compose_lighten[-1,-2]
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,90,0,{100-{$2/2}}
+compose_lighten[-1,-2]
+elif $1==18
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,0,50,{100-{$2/4}}
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,180,50,{100-{$2/4}}
+compose_lighten[-1,-2]
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,90,0,{100-{$2/4}}
+compose_lighten[-1,-2]
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,270,50,{100-{$2/4}}
+compose_lighten[-1,-2]
+elif $1==19 +channels. 0
+tk_fx_channel_processing. 1,{$2/25},0,0,0,0,100,256,0,0,0,2,0,0
++fx_radial_gradient. 0,0,0,255,255,255,255,255,1,$2,100,50,50
+rv[-1,-2] compose_multiply[-1,-2]
+elif $1==20
++fx_gaussian_blur. $6,0,0,1,0,0,0
+fx_edges. {$4/2},{50-{$2/2}},1,0
++fx_gradient_norm[0] {$4/2},{1.5-{$2/67}},0,{100-$2},0,0
+rv[-1,-2] compose_lighten[-1,-2] +channels[0] 0
+tk_fx_channel_processing. 1,{{$2/25}+1},0,0,0,0,100,256,0,0,0,2,0,0
+rv[-1,-2] compose_lighten[-1,-2]
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,0,50,{100-{$2/4}}
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,180,50,{100-{$2/4}}
+compose_lighten[-1,-2]
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,90,0,{100-{$2/2}}
+compose_lighten[-1,-2] rv[-1,-2] compose_lighten[-1,-2]
+elif $1==21 +fx_gaussian_blur. $4,0,0,1,0,0,0
+fx_edges. {$4/2},{50-{$2/2}},1,0
++fx_gradient_norm[0] {$4/2},{1.5-{$2/67}},0,{100-$2},0,0
+rv[-1,-2] compose_lighten[-1,-2] +channels[0] 0
+tk_fx_channel_processing. 1,{{$2/25}+0.5},0,0,0,0,100,256,0,0,0,2,0,0
+rv[-1,-2] compose_lighten[-1,-2]
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,0,0,{100-$2}
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,180,0,{100-$2}
+compose_darken[-1,-2] rv[-1,-2] compose_darken[-1,-2]
++fx_linear_gradient. 0,0,0,255,255,255,255,255,0,90,75,{100-{$2/4}}
+rv[-1,-2] fx_compose_lighten[-1,-2] 0.5
+elif $1==22 +fx_gaussian_blur. $4,0,0,1,0,0,0
+fx_edges. {$4/2},{50-{$2/2}},1,0
++fx_gradient_norm[0] {$4/2},{1.5-{$2/67}},0,{100-$2},0,0
+rv[-1,-2] compose_lighten[-1,-2] +channels[0] 0
+tk_fx_channel_processing. 1,{{$2/25}+0.5},0,0,0,0,100,256,0,0,0,2,0,0
+rv[-1,-2] compose_lighten[-1,-2]
+elif $1==23 +channels. 0
+tk_fx_channel_processing. 1,{$2/25},0,0,0,0,100,256,0,0,0,2,0,0
+elif $1==24 +fc. 0,0,0
+fi
+if $7!=0
++fc[0] 128,128,128 +channels[0] 2 negate. c. 0,90
+n. 0,128 rv[-1,-2] compose_darken[-1,-2]
++channels[0] 0 negate. c. 165,255 n. 128,255 rv[-1,-2]
+compose_hardlight[-1,-2] rv[-1,-2]
+if $1!=19 fx_compose_average[-1,-2] {$7/5}
+else fx_compose_value[-1,-2] {$7/5},0
+tk_fx_channel_processing. 1,{$2/25},0,0,0,0,100,256,0,0,0,2,0,0
+fi fi
+if $6!=0 +fx_highpass[0] 2,2,0,0,0
+tk_fx_replace_color. 5,0,128,128,128,255,0,0,0,255
+fx_morpho. 3,70,0,0,0,1,0 to_gray. av={ia}
+ir. $av,255 n. 0,255 blur_xy. 25
+rv[-1,-2] fx_compose_overlay[-1,-2] {$6/5} fi
+if $3!=0 +fx_isophotes[0] {{$3*3}+2},0,0,0
+fx_morpho. 3,{5-{$3/2}},0,0,0,1,0
+tk_fx_channel_processing. 1,1,255,0,0,0,100,256,0,0,0,2,0,0
+rv[-1,-2] fx_compose_overlay[-1,-2] {$3/10}
++fx_gradient_norm[0] {$4*2},{1.5-{0.1+{$3/3.6}}},0,100,0,0
+rv[-1,-2] compose_lighten[-1,-2] fx_segment_watershed. $3,$4,0,0
+fi
+blur_y. $10 blur_x. {$10/2}
+if $5!=0 +luminance[0] fx_map_tones. 1,{0.25-{$5/20}},0,30,3,0
+rv[-1,-2] fx_compose_overlay[-1,-2] {$5/10} fi
+n. 0,255 rm[0] resize2dx $size1,2 done done
+fx_tk_depth_obtain :
+if $!<=1 return fi
+l
+to_rgb size1={w} size2={h} resize2dx 400,2
+if $1==1 rv fi
+if $3!=100
+fx_frame_round_old 10,{100-$3},$4,0,255,255,255,255,0,0.1,3
+fi
+displacement[0] [1],$2
+rm[1]
+channels 0
+n 0,255
+r $size1,$size2 done
+fx_tk_lenticular :
+if $!<=1 return fi
+frames={$!} index=0 if $4==0 length=$3 else length={$3/2.54} fi
+lenses={$length*$1} lensewidth={w/$lenses}
+picstripe={$lensewidth/$frames} x=0 y=0 end={$picstripe}
+step={$lensewidth-$picstripe}
+if $6==1
+if $picstripe!=int($picstripe) scale={{int($picstripe)+1}/$picstripe}
+r {w*$scale},{h*$scale} lensewidth={w/$lenses} picstripe={$lensewidth/$frames}
+end={$picstripe} step={$lensewidth-$picstripe} fi fi
+to_rgb +fc. 255,255,255 repeat $lenses
+if $2==0
+fill. if(x>=$end,0,i) x={$x+$step} end={$end+$step}
+fill. if(x>=$end,255,i) x={$x+$picstripe} end={$end+$picstripe}
+else
+fill. if(y>=$end,0,i) y={$y+$step} end={$end+$step}
+fill. if(y>=$end,255,i) y={$y+$picstripe} end={$end+$picstripe}
+fi done
+repeat $frames-1 +to_gray. ir. 128,256 n. 0,255
+if $2==0 shift. {{$picstripe}*{$frames-{$index+1}}}
+else shift. 0,{{$picstripe}*{$frames-{$index+1}}} fi
+s[$index] c a[$index,{$index+1},{$index+2},-1] c
+index={$index+1} done
+repeat $frames-1 rv[0,-2] compose_rgba[0,-2] rv[0,-2] done
+if $5==1 to_rgba[0]
+if $2==0 shift[0] 0,5 else shift[0] 5,0 fi
+negate. rv compose_rgba else rm. fi
+fx_tk_stereogram :
+repeat $! l[$>] to_gray +fc. 255,255,255
+fx_plasma. $2,$3,8,0,0,128,128,128
+fx_array. 10,10,0,0,0,0
+fx_array_fade. {$5/10},{$5/10},0,0,80,90,3,0
+r. [0],[0]
+fx_noise. {w/30},0,3,0,0
++fx_rorschach. $4,1,0 rv[-1,-2] fx_compose_multiply[-1,-2] 0.5
++fx_corner_gradient. $6,$7,$8,255,$9,$10,$11,255,$12,$13,$14,255,$15,$16,$17,255
+rv[-1,-2] fx_compose_hardlight[-1,-2] $18
+rv[-1,-2]
+r. 100%,100%,1,2
+s. c f. 0 n.. 0,$1 a[-1,-2] c
+warp.. .,1
+rm. done done
+fx_tk_stereogram_preview :
+gui_split_preview "fx_tk_stereogram ${1--2}",$-1
+gcd_stereo_img : skip ${1=0},${2=2},${3=1.2},${4=1},${5=0.25},${6=2},${7=4},${8=1},${9=0}
+repeat $! l[$>]
+to_rgb[0] b={abs($3%*w*$4)}
++gcd_depth[0] $5,$6,$7,$8
+gcd_stereo[0,1] $1,$2,$3%,$4
+if !$1" && "$9 z. $b,{w-1-$b} fi
+done done
+gcd_depth : skip ${1=0.25},${2=2},${3=4},${4=1}
+repeat $! l[$>]
+if w>h if w>700 +r. 700,{h*700/w} else [0] fi
+elif {0,h>700} +r. {0,w*700/h},700 else [0] fi
+median. 7 gcd_segment_ch0. 1
+if $4 gcd_label. $3 else label. $3,1 fi
+c. 0,255 b. 0.45% n. 0,$2 r. [0],[0]
+norm[0] n[0] 0,1 +[-2,-1] b. $1% n. 0,255
+done done
+gcd_segment_ch0 : check "${1=1}>=0"
+repeat $! l[$>]
+min={im} + {1+$min} +gradient_norm channels[0] 0
++f. "if(i<$1 && i0 gcd_balance_anaglyph[0] {2-$2} fi
+i[1] [0] warp[0] .,1 *. -1 warp[1] .,1 rm.
+if $1 rv[0,1] append[0,1] x else shift[0] {round(-$wfac*$4)} shift[1] {round($wfac*$4)}
+channels[0] 0 channels[1] 1,2 append[0,1] c
+fi
+done
+gcd_balance_anaglyph : skip ${1=1},${2=0.43},${3=0.45}
+l. sh 0,0 sh[0] 1,1 sh[0] 2,2 +-[2] [1] inv={255^(1-$1)*$2}
+if $1>1 +sign. abs.. ^.. $1 *.. $inv *[-2,-1] else *. $2 fi
+-[2,3] . *. {1/$2-1} +[1,-1] +*[3] 0.65 -. [1] max. 0 *. $3
+-[3] . *. {1/$3-1} +[1,-1] apply_gamma[1] 1.15 rm[1-3] c 0,255
+done
+fx_tk_stereoimage :
+if $!<=1 return fi
+local to_rgb
+if $1==0" || "$1==1" || "$1==2" || "$1==3" || "$1==4" || "$1==5 apply_gamma $3 fi
+if $1==0 if $2==0 rv[-1,-2] fi s c
+rm[-3,-4,-5] a[-1,-2,-3] c
+elif $1==1 if $2==1 rv[-1,-2] fi
+apply_gamma. 1.15 apply_gamma.. 1.0 s c
+rlr=456 rlg=500 rlb=176 rrr={-43} rrg={-88} rrb={-2}
+glr={-40} glg={-38} glb={-16} grr=378 grg=734 grb={-18}
+blr={-15} blg={-21} blb={-5} brr={-72} brg={-113} brb=1226
+[0-5]
+*... $rlr *.. $rlg *. $rlb *[-6] $rrr *[-5] $rrg *[-4] $rrb
++[-6] [-5] +[-6] [-4] +[-6] ... +[-6] .. +[-6] . rm[-1--5]
+/. 1000 n. 0,255 to_gray.
+[0-5]
+*... $glr *.. $glg *. $glb *[-6] $grr *[-5] $grg *[-4] $grb
++[-6] [-5] +[-6] [-4] +[-6] ... +[-6] .. +[-6] . rm[-1--5]
+/. 1000 n. 0,255 to_gray.
+[0-5]
+*... $blr *.. $blg *. $blb *[-6] $brr *[-5] $brg *[-4] $brb
++[-6] [-5] +[-6] [-4] +[-6] ... +[-6] .. +[-6] . rm[-1--5]
+/. 1000 n. 0,255 to_gray.
+k[-1--3] a[-1,-2,-3] c
+elif $1==2 if $2==0 rv[-1,-2] fi s c
+rm[-6,-5,-1] mv[0] 3 a[-1,-2,-3] c
+elif $1==3 if $2==1 rv[-1,-2] fi
+apply_gamma. 0.9 apply_gamma.. 1.25 s c
+rrr=1062 rrg={-205} rrb=299 rlr={-16} rlg={-123} rlb={-17}
+grr={-26} grg=908 grb=68 glr=6 glg=62 glb={-17}
+brr={-38} brg={-173} brb=22 blr=94 blg=185 blb=911
+[0-5]
+*... $rlr *.. $rlg *. $rlb *[-6] $rrr *[-5] $rrg *[-4] $rrb
++[-6] [-5] +[-6] [-4] +[-6] ... +[-6] .. +[-6] . rm[-1--5]
+/. 1000 n. 0,255 to_gray.
+[0-5]
+*... $glr *.. $glg *. $glb *[-6] $grr *[-5] $grg *[-4] $grb
++[-6] [-5] +[-6] [-4] +[-6] ... +[-6] .. +[-6] . rm[-1--5]
+/. 1000 n. 0,255 to_gray.
+[0-5]
+*... $blr *.. $blg *. $blb *[-6] $brr *[-5] $brg *[-4] $brb
++[-6] [-5] +[-6] [-4] +[-6] ... +[-6] .. +[-6] . rm[-1--5]
+/. 1000 n. 0,255 to_gray.
+k[-1--3] a[-3,-2,-1] c
+elif $1==4 if $2==0 rv[-1,-2] fi s c
+rm[-1,-3,-5] mv. -2 a[-3,-2,-1] c
+elif $1==5 if $2==1 rv[-1,-2] fi s c
+apply_gamma. 1 apply_gamma.. 1.15 s c
+rrr={-62} rrg={-158} rrb={-39} rlr={529} rlg={705} rlb={24}
+grr={284} grg=668 grb=143 glr={-16} glg={-15} glb={-65}
+brr={-15} brg={-27} brb=21 blr=9 blg=75 blb=937
+[0-5]
+*... $rlr *.. $rlg *. $rlb *[-6] $rrr *[-5] $rrg *[-4] $rrb
++[-6] [-5] +[-6] [-4] +[-6] ... +[-6] .. +[-6] . rm[-1--5]
+/. 1000 n. 0,255 to_gray.
+[0-5]
+*... $glr *.. $glg *. $glb *[-6] $grr *[-5] $grg *[-4] $grb
++[-6] [-5] +[-6] [-4] +[-6] ... +[-6] .. +[-6] . rm[-1--5]
+/. 1000 n. 0,255 to_gray.
+[0-5]
+*... $blr *.. $blg *. $blb *[-6] $brr *[-5] $brg *[-4] $brb
++[-6] [-5] +[-6] [-4] +[-6] ... +[-6] .. +[-6] . rm[-1--5]
+/. 1000 n. 0,255 to_gray.
+k[-1--3] a[-3,-2,-1] c
+elif $1==6 if $2==1 rv[-1,-2] fi
+r[-1,-2] 50%,50%,1,3,6 a[-1,-2] x
+elif $1==7 if $2==1 rv[-1,-2] fi a[-1,-2] x
+elif $1==8 if $2==1 rv[-1,-2] fi a[-1,-2] y
+elif $1==9 if $2==1 rv[0,1] fi
+r[0,1] 50%,100%,1,3,6 a[0,1] x
+elif $1==10 if $2==1 rv[0,1] fi
+r[0,1] 100%,50%,1,3,6 a[0,1] y
+elif $1==11 to_rgba[0,1]
+if $2==1 rv[0,1] fi
+fill[0] if(y%2==0,0,i) rv[0,1] compose_rgba[0,1] to_rgb
+elif $1==12 to_rgba[0,1]
+if $2==1 rv[0,1] fi
+fill[0] if(x%2==0,0,i) rv[0,1] compose_rgba[0,1] to_rgb
+elif $1==13
+if $2==1 rv[0,1] fi
+r[0,1] 1920,1080,1,3,6 +fc. 0,0,0 r. 1920,45
+rv[-1,-2] a[-1,-2] y a[-1,-2] y
+fi c 0,255
+if $1==6" || "$1==7" || "$1==8" || "$1==9" || "$1==10" || "$1==11" || "$1==12" || "$1==13
+apply_gamma $3 fi
+fx_mix_lab 1,0,0,$5,0,0,$5,0,0,0,2,0
+if $1==0" || "$1==1 fx_mix_rgb 1,$6,0,1,0,0,1,0,0,0,2,0 fi
+if $1==2" || "$1==3 fx_mix_rgb 1,0,0,1,0,0,1,$6,0,0,2,0 fi
+if $1==4 fx_mix_rgb 1,0,0,1,$6,0,1,0,0,0,2,0 fi
+if $1==5 fx_mix_rgb 1,0,0,1,$6,0,1,{if({$6>=0},$6,0)},0,0,2,0 fi
+done
+gcd_unstereo : skip ${1=5},${2=0.1},${3=0},${4=1},${5=1},${6=1},${7=0},${8=0}
+repeat $! l[$>]
+if $4" && "$8 pr=1 else pr=$1 fi
+to_rgb[0] split_tiles[0] $5,$6
+repeat $! l[$>]
+s[0] c +equalize[0,1] 256
++displacement.. .,$2,$pr
+if $3 sh. 1,1 f. 0 rm. fi
+/. 2 warp[1,2] .,1 *. -1 warp[0] .,1
+k[0-2] a c c[0] 0,255
+done done
+append_tiles $5,$6
+done done
+gcd_unstereo_preview :
+gui_split_preview "gcd_unstereo ${1--1},1",$-1
+#@cli afre_contrastfft : 1<=strength<=100,0<=_amount<=100,1<=_iterations<=10
+#@cli : Enhance contrast for selected images with Fourier transform.
+#@cli : Default values: 'strength=75', 'amount=50' and 'iterations=1'.
+afre_contrastfft : check "${1=75}>=1 && ${2=50}>=0 && ${3=1}>=1 &&
+$1<=100 && $2<=100 && $3<=10"
+e[] "[afre]^_^) contrastfft: Enhance contrast for image$? with Fourier transform using strength=$1, amount=$2 and iterations=$3."
+repeat $! l[$>] repeat $3
++fftpolar ^.. {($1-0.5)/100} ifftpolar[^0] afre_softlight $2
+done done done
+afre_contrastfft_preview :
+afre_contrastfft $*
+#@cli afre_denoise : radius>=1
+#@cli : Denoise selected images.
+#@cli : Default value: 'radius=1'.
+afre_denoise : check ${1=1}>=1
+e[] "[afre]^_^) denoise: Denoise image$? using radius=$1."
+repeat $! l[$>] r={[im,iM]}
+. repeat 4
+. repeat $1 afre_gui0_fast. {$>+1},1e0 done n. {0,[im,iM]}
++laplacian.. abs. n. 0,1
+^. {.2+.2*($>+1)} blend_fade[1,2] . k[0,1]
+done
+afre_gui1_fast. ..,1,0 rm..
+c $r done done
+afre_denoise_preview :
+afre_denoise $*
+#@cli ::Features
+#@cli afre_norm : _keep_channels={ 0 | 1 }
+#@cli : Compute normalized norms of selected images.
+#@cli : Default value: 'keep_channels=1'.
+afre_norm : skip ${1=1}
+l[] if isnum("$1") k={$1?1} elif ["'$1'"]!=',' noarg k=1 fi done
+s1="s" e[] "[afre]^_^) norm: Compute normalized norm"${s{$!>1}}" of image$? using keep_channels="$k"."
+repeat $! l[$>] s={s} if $s>1
+sqr s c + sqrt / {sqrt($s)} if $k r 100%,100%,100%,$s fi
+fi done done
+#@cli afre_y50 : colour_space={ 0=Rec.709 | 1=Rec.2020 }
+#@cli : Compute luminance (D50) of selected images.
+#@cli : Default value: 'colour_space=1'.
+afre_y50 : check isbool(${1=1})
+if $1 Y="Rec.2020" else Y="Rec.709" fi
+e[] "[afre]^_^) y50: Compute luminance (D50 "$Y") of image$?."
+repeat $! l[$>]
+if s==3 sh 0 sh[0] 1 sh[0] 2
+if $1 *[1] 0.2790177 *[2] 0.6753402 *[3] 0.0456377
+else *[1] 0.22248840 *[2] 0.71690369 *[3] 0.06060791
+fi +[1-3] rm[1] channels 0
+elif s!=1 r={[im,iM]} norm n $r fi
+done done
+#@cli afre_orien : _mode={ 0=norm | 1=Rec.709 | 2=Rec.2020 }
+#@cli : Compute orientation of selected images.
+#@cli : Default value: 'mode=0'.
+afre_orien : skip ${1=0}
+l[] if isnum("$1") m={inrange($1,0,2)?int($1):0} elif ["'$1'"]!=',' noarg m=0 fi done
+s0,s$m="norm" s1="luminance Rec.709 D50" s2="luminance Rec.2020 D50" e[] "[afre]^_^) orien: Compute orientation of image$? using "${s$m}"."
+repeat $! if $m +afre_y50[$>] {$m-1} else +afre_norm[$>] fi
+replace. 0,1 /[$>,-1] done
+#@cli afre_gradientnorm : _keep_channels={ 0 | 1 },_keep_range={ 0 | 1 }
+#@cli : Compute normalized gradient norms of selected images.
+#@cli : Default values: 'keep_channels=1' and 'keep_range=0'.
+afre_gradientnorm : skip ${1=1},${2=0}
+l[] if isnum("$1")&&isnum("$2") k={$1?1} r={$2?1} elif ["'$1'"]!=',' noarg k,r=1,0 fi done
+s1="s" e[] "[afre]^_^) gradientnorm: Compute normalized gradient norm"${s{$!>1}}" of image$? using keep_channels="$k" and keep_range="$r"."
+repeat $! l[$>] iM,s={[iM,s]}
+g sqr s c + sqrt / {iM/($r?$iM:1)} if $k r 100%,100%,100%,$s fi
+done done
+#@cli afre_hessiannorm : _keep_channels={ 0 | 1 },_keep_range={ 0 | 1 }
+#@cli : Compute normalized hessian norms of selected images.
+#@cli : Default values: 'keep_channels=1' and 'keep_range=0'.
+afre_hessiannorm : skip ${1=1},${2=0}
+l[] if isnum("$1")&&isnum("$2") k={$1?1} r={$2?1} elif ["'$1'"]!=',' noarg k,r=1,0 fi done
+s1="s" e[] "[afre]^_^) hessiannorm: Compute normalized hessian norm"${s{$!>1}}" of image$? using keep_channels="$k" and keep_range="$r"."
+repeat $! l[$>] iM,s={[iM,s]}
+hessian sqr s c + sqrt / {iM/($r?$iM:1)} if $k r 100%,100%,100%,$s fi
+done done
+#@cli afre_gnorm
+#@cli : Compute custom gradient norm of selected images.
+afre_gnorm :
+e[] "[afre]^_^) gnorm: Compute custom gradient norm of image$?."
+repeat $! l[$>] nm={b}
++gradient_norm r={[im,iM]} +afre_hnorm[0] afre_gui1_fast[2] [0] rm[0]
+c. 20%,100% n 0,1 *. 0.75 max n $r
+nm $nm done done
+#@cli afre_hnorm
+#@cli : Compute Hessian norm of selected images.
+afre_hnorm :
+e[] "[afre]^_^) hnorm: Compute Hessian norm of image$?."
+repeat $! l[$>] hessian sqr s c + sqrt done done
+#@cli afre_sdpatch : radius>=1
+#@cli : Compute local standard deviation of selected images.
+#@cli : Default value: 'radius=1'.
+afre_sdpatch : skip ${1=1}
+rd={int($1)} e[] "[afre]^_^) sdpatch: Compute local standard deviation of image$? using radius="$rd"."
+repeat $! l[$>] +gradient_norm r={[im,iM]} rm.
++sqr afre_box_fast $rd sqr.. rv - max 0 sqrt
+n $r done done
+#@cli afre_jchz
+#@cli : Convert selected images from RGB to JzCzhz.
+afre_jchz :
+e[] "[afre]^_^) jchz: Convert image$? from RGB to JzCzhz."
+rgb2jzazbz 0 r 100%,100%,100%,3 repeat $! l[$>]
+s c complex2polar[-2,-1] a c
+done done
+#@cli afre_ijchz
+#@cli : Convert selected images from JzCzhz to RGB.
+afre_ijchz :
+e[] "[afre]^_^) ijchz: Convert image$? from JzCzhz to RGB."
+r 100%,100%,100%,3 repeat $! l[$>]
+s c polar2complex[-2,-1] a c
+done done jzazbz2rgb 0
+#@cli ::Filtering
+#@cli afre_conv : [kernel]
+#@cli : Convolve selected images with a custom kernel.
+afre_conv : check ${is_image_arg\ $1}
+repeat $! pass$1 0
+e[] "[afre]^_^) conv: Convolve image$? using ["${"-pass$1 -1"}"]."
+l[$>,-1] +f[0] 1 mv. 1
++rows. 50% columns.. 50% +convolve[1] [2] convolve[4] [3]
+convolve[0] [2] convolve[0] [3] k[0,4] / done
+done
+#@cli afre_box : radius>=1,_gaussian={ 0 | 1 }
+#@cli : Blur selected images with a soft box filter.
+#@cli : Default values: 'radius=1' and 'gaussian=1'.
+afre_box : check "${1=1}>=1 && isbool(${2=1})"
+rd={int($1)} if $2 g="soft box" else g="box" fi w={$rd*2+1}
+e[] "[afre]^_^) box: Blur image$? with a "${w}"x"${w}" "$g" filter."
+repeat $! l[$>]
+$w,$w f. 1 if $2 gaussian. {100/3}% fi afre_conv.. . rm.
+done done
+#@cli afre_box_fast : radius>=1
+#@cli : Blur selected images with a soft box filter. Faster version.
+#@cli : Default value: 'radius=1'.
+afre_box_fast : check ${1=1}>=1
+rd={int($1)} w={$rd*2+1} e[] "[afre]^_^) box: Blur image$? with a "${w}"x"${w}" soft box filter."
+repeat $! l[$>] boxfilter $w,0,1,3 done done
+#@cli afre_gui0 : radius>=1,_smoothing>=0,0<=_structure<=10
+#@cli : Blur selected images with a custom self-guided filter.
+#@cli : Default values: 'radius=1', 'smoothing=1e-2' and 'structure=10'.\n
+#@cli : - Use orders of magnitude for 'smoothing'.
+#@cli : - Reduce 'structure' to soften edges and artifacts.
+#@cli : * Improvement of "K He, J Sun, X Tang. Guided image filtering. TPAMI, 35(6):1397-1409, 2013".
+afre_gui0 : check "${1=1}>=1 && ${2=1e-2}>=0 && ${3=10}>=0 && $3<=10"
+rd={int($1)} kwh={sqr($rd*2+1)} str={1e{-$3+2}}
+e[] "[afre]^_^) gui0: Blur image$? with a custom self-guided filter using radius="$rd", smoothing=$2 and structure=$3."
+repeat $! l[$>] nm={b} iM={iM} / $iM
+. +sqr. afre_box[^0] $rd nm I,mI,mII
++sqr[mI] *. -1 +. [mII] rm[mII] => vI
++l[vI] abs s c + done *. $kwh +. $str ^. -1 *. $str => W
+++[vI] {vI,$2*ia+1e-6} /[vI] . rm. =>[vI] a
++*[a] [mI] *. -1 +. [mI] rm[mI] => b
+*[a,b] [W] afre_box[^0] $rd =>[^0] ma,mW,mb
+*[I] [ma] +[I] [mb] /[I] [mW] k[I]
+* $iM nm $nm done done
+#@cli afre_gui1 : [guide],_radius>=1,_smoothing>=0,0<=_structure<=10
+#@cli : Blur selected images with a custom guided filter.
+#@cli : Default values: 'radius=1', 'smoothing=0' and 'structure=5'.\n
+#@cli : - Use orders of magnitude for 'smoothing'.
+#@cli : - Reduce 'structure' to soften edges and artifacts.
+#@cli : * Improvement of "K He, J Sun, X Tang. Guided image filtering. TPAMI, 35(6):1397-1409, 2013".
+afre_gui1 : check ${is_image_arg\ $1}" && ${2=1}>=1 && ${3=0}>=0 && ${4=5}>=0 && $4<=10"
+rd={int($2)} kwh={sqr($rd*2+1)} str={1e{-$4+2}}
+e[] "[afre]^_^) gui1: Blur image$? with a custom guided filter using guide=["${"-pass$1 -1"}"], radius="$rd", smoothing=$3 and structure=$4."
+pass$1 0 to_colormode 0
+repeat $! if $>!=$! nm$>={$>,b} fi iM$>={$>,iM} /[$>] ${iM$>} done
+repeat $!-1 l[$>,-1]
+if w#0!=w#1||h#0!=h#1||d#0!=d#1 error[] "\n[afre]>_<) gui1: Image$? and guide ["${"-pass$1 -1"}"] must have the same width, height and depth." fi
+. rv +*[1] [2] +sqr[1] afre_box[^0] $rd nm I,mI,mp,mIp,mII
++*[mI] [mp] *. -1 +. [mIp] rm[mIp] => cIp
++sqr[mI] *. -1 +. [mII] rm[mII] => vI
++normp[vI] 1 *. $kwh +. $str ^. -1 *. $str => W
+++[vI] {vI,$3*ia+1e-6} /[cIp] . rm[vI,-1] =>[cIp] a
++*[a] [mI] *. -1 +. [mp] rm[mI,mp] => b
+*[a,b] [W] afre_box[^0] $rd =>[^0] ma,mW,mb
+*[ma] [I] +[ma] [mb] /[ma] [mW] k[I,ma]
+=>[ma] ${nm$>} rv
+done done rm.
+repeat $! *[$>] ${iM$>} done
+#@cli afre_gui0c : [kernel],_smoothing>=0,0<=_structure<=10
+#@cli : Convolve selected images with a custom self-guided filter.
+#@cli : Default values: 'smoothing=1e-2' and 'structure=10'.\n
+#@cli : - Use orders of magnitude for 'smoothing'.
+#@cli : - Reduce 'structure' to soften edges and artifacts.
+#@cli : * Improvement of "K He, J Sun, X Tang. Guided image filtering. TPAMI, 35(6):1397-1409, 2013".
+afre_gui0c : check ${is_image_arg\ $1}" && ${2=1e-2}>=0 && ${3=10}>=0 && $3<=10"
+e[] "[afre]^_^) gui0c: Convolve image$? with a custom self-guided filter using kernel=["${"-pass$1 -1"}"], smoothing=$2 and structure=$3."
+str={1e{-$3+2}}
+repeat $! pass$1 0 kwh={wh} l[$>,-1] nm={0,b} iM={0,iM} /[0] $iM
+[0] +sqr. afre_conv[^0-1] [1] nm I,k,mI,mII
++sqr[mI] *. -1 +. [mII] rm[mII] => vI
++l[vI] abs s c + done *. $kwh +. $str ^. -1 *. $str => W
+++[vI] {vI,$2*ia+1e-6} /[vI] . rm. =>[vI] a
++*[a] [mI] *. -1 +. [mI] rm[mI] => b
+*[a,b] [W] afre_conv[^0-1] [k] =>[^0-1] ma,mW,mb
+*[I] [ma] +[I] [mb] /[I] [mW] k[I]
+* $iM nm $nm done done
+#@cli afre_gui1c : [guide],[kernel],_smoothing>=0,0<=_structure<=10
+#@cli : Convolve selected images with a custom guided filter.
+#@cli : Default values: 'smoothing=0' and 'structure=5'.\n
+#@cli : - Use orders of magnitude for 'smoothing'.
+#@cli : - Reduce 'structure' to soften edges and artifacts.
+#@cli : * Improvement of "K He, J Sun, X Tang. Guided image filtering. TPAMI, 35(6):1397-1409, 2013".
+afre_gui1c : check ${is_image_arg\ $1}" && "${is_image_arg\ $2}" && ${3=0}>=0 && ${4=5}>=0 && $4<=10"
+e[] "[afre]^_^) gui1c: Convolve image$? with a custom guided filter using guide=["${"-pass$1 -1"}"], kernel=["${"-pass$2 -1"}"], smoothing=$3 and structure=$4."
+pass$1 0 to_colormode 0 str={1e{-$4+2}}
+repeat $! if $>!=$! nm$>={$>,b} fi iM$>={$>,iM} /[$>] ${iM$>} done
+repeat $!-1 pass$2 0 kwh={wh} l[$>,-2--1]
+if w#0!=w#1||h#0!=h#1||d#0!=d#1 error[] "\n[afre]>_<) gui1c: Image$? and guide ["${"-pass$1 -1"}"] must have the same width, height and depth." fi
+[1] rv +*[2] [3] +sqr[2] afre_conv[^0-1] [1] nm I,k,mI,mp,mIp,mII
++*[mI] [mp] *. -1 +. [mIp] rm[mIp] => cIp
++sqr[mI] *. -1 +. [mII] rm[mII] => vI
++normp[vI] 1 *. $kwh +. $str ^. -1 *. $str => W
+++[vI] {vI,$3*ia+1e-6} /[cIp] . rm[vI,-1] =>[cIp] a
++*[a] [mI] *. -1 +. [mp] rm[mI,mp] => b
+*[a,b] [W] afre_conv[^0-1] [k] =>[^0-1] ma,mW,mb
+*[ma] [I] +[ma] [mb] /[ma] [mW] k[I,ma]
+=>[ma] ${nm$>} rv
+done done rm.
+repeat $! *[$>] ${iM$>} done
+#@cli afre_gui0_fast : radius>=1,_smoothing>=0,0<=_structure<=10
+#@cli : Blur selected images with a custom self-guided filter. Faster version.
+#@cli : Default values: 'radius=1', 'smoothing=1e-2' and 'structure=10'.\n
+#@cli : - Use orders of magnitude for 'smoothing'.
+#@cli : - Reduce 'structure' to soften edges and artifacts.
+#@cli : * Improvement of "K He, J Sun, X Tang. Guided image filtering. TPAMI, 35(6):1397-1409, 2013".
+afre_gui0_fast : check "${1=1}>=1 && ${2=1e-2}>=0 && ${3=10}>=0 && $3<=10"
+rd={int($1)} kwh={sqr($rd*2+1)} str={1e{-$3+2}}
+e[] "[afre]^_^) gui0_fast: Blur image$? with a custom self-guided filter using radius="$rd", smoothing=$2 and structure=$3. Faster version."
+repeat $! l[$>] nm={b} iM={iM} / $iM
+. +sqr. afre_box_fast[^0] $rd nm I,mI,mII
++sqr[mI] *. -1 +. [mII] rm[mII] => vI
++l[vI] abs s c + done *. $kwh +. $str ^. -1 *. $str => W
+++[vI] {vI,$2*ia+1e-6} /[vI] . rm. =>[vI] a
++*[a] [mI] *. -1 +. [mI] rm[mI] => b
+*[a,b] [W] afre_box_fast[^0] $rd =>[^0] ma,mW,mb
+*[I] [ma] +[I] [mb] /[I] [mW] k[I]
+* $iM nm $nm done done
+#@cli afre_gui1_fast : [guide],_radius>=1,_smoothing>=0,0<=_structure<=10
+#@cli : Blur selected images with a custom guided filter. Faster version.
+#@cli : Default values: 'radius=1', 'smoothing=0' and 'structure=5'.\n
+#@cli : - Use orders of magnitude for 'smoothing'.
+#@cli : - Reduce 'structure' to soften edges and artifacts.
+#@cli : * Improvement of "K He, J Sun, X Tang. Guided image filtering. TPAMI, 35(6):1397-1409, 2013".
+afre_gui1_fast : check ${is_image_arg\ $1}" && ${2=1}>=1 && ${3=0}>=0 && ${4=5}>=0 && $4<=10"
+rd={int($2)} kwh={sqr($rd*2+1)} str={1e{-$4+2}}
+e[] "[afre]^_^) gui1_fast: Blur image$? with a custom guided filter using guide=["${"-pass$1 -1"}"], radius="$rd", smoothing=$3 and structure=$4. Faster version."
+pass$1 0 to_colormode 0
+repeat $! if $>!=$! nm$>={$>,b} fi iM$>={$>,iM} /[$>] ${iM$>} done
+repeat $!-1 l[$>,-1]
+if w#0!=w#1||h#0!=h#1||d#0!=d#1 error[] "\n[afre]>_<) gui1_fast: Image$? and guide ["${"-pass$1 -1"}"] must have the same width, height and depth." fi
+. rv +*[1] [2] +sqr[1] afre_box_fast[^0] $rd nm I,mI,mp,mIp,mII
++*[mI] [mp] *. -1 +. [mIp] rm[mIp] => cIp
++sqr[mI] *. -1 +. [mII] rm[mII] => vI
++normp[vI] 1 *. $kwh +. $str ^. -1 *. $str => W
+++[vI] {vI,$3*ia+1e-6} /[cIp] . rm[vI,-1] =>[cIp] a
++*[a] [mI] *. -1 +. [mp] rm[mI,mp] => b
+*[a,b] [W] afre_box_fast[^0] $rd =>[^0] ma,mW,mb
+*[ma] [I] +[ma] [mb] /[ma] [mW] k[I,ma]
+=>[ma] ${nm$>} rv
+done done rm.
+repeat $! *[$>] ${iM$>} done
+#@cli afre_dilateg : [mask],size>=2
+#@cli : Compute geodesic dilation of selected images.
+#@cli : Default value: 'size=3'.
+afre_dilateg : check ${is_image_arg\ $1}" && ${2=3}>=2"
+e[] "[afre]^_^) dilateg: Compute geodesic dilation of image$? using mask=["${"pass$1\ -1"}"] and size=$2."
+pass$1 0 repeat $!-1 l[$>,-1] repeat 1000
+ia={ia} +dilate. $2 +min[0,-1] rm[2--2] if $ia==ia break fi
+done rm[0] rv done done rm.
+#@cli afre_erodeg : [mask],size>=2
+#@cli : Compute geodesic erosion of selected images.
+#@cli : Default value: 'size=3'.
+afre_erodeg : check ${is_image_arg\ $1}" && ${2=3}>=2"
+e[] "[afre]^_^) erodeg: Compute geodesic erosion of image$? using mask=["${"pass$1\ -1"}"] and size=$2."
+pass$1 0 repeat $!-1 l[$>,-1] repeat 1000
+ia={ia} +erode. $2 +max[0,-1] rm[2--2] if $ia==ia break fi
+done rm[0] rv done done rm.
+#@cli afre_openg : size>=2
+#@cli : Compute geodesic opening of selected images.
+#@cli : Default value: 'size=3'.
+afre_openg : check ${1=3}>=2
+e[] "[afre]^_^) openg: Compute geodesic opening of image$? using size=$1."
++erode $1 repeat 1000
+ia={ia} dilate. $1 +min rm.. if $ia==ia break fi
+done k.
+#@cli afre_closeg : size>=2
+#@cli : Compute geodesic closing of selected images.
+#@cli : Default value: 'size=3'.
+afre_closeg : check ${1=3}>=2
+e[] "[afre]^_^) closeg: Compute geodesic closing of image$? using size=$1."
++dilate $1 repeat 1000
+ia={ia} erode. $1 +max rm.. if $ia==ia break fi
+done k.
+#@cli ::Utilities
+#@cli afre_maxmin
+#@cli : Return the maximum of channel minimums.
+afre_maxmin :
+repeat s sh. $> im.={`$>?','`}{im} rm. done u {max($im)}
+#@cli afre_minmax
+#@cli : Return the minimum of channel maximums.
+afre_minmax :
+repeat s sh. $> iM.={`$>?','`}{iM} rm. done u {min($iM)}
+#@cli afre_compare : crop={ 1=once | 2=twice },_layout={ x | y | z | tile },_normalize={ 0 | 1 }
+#@cli : Crop then compare selected images interactively.
+#@cli : Default values: 'crop=1', 'layout=x' and 'normalize=1'.\n
+#@cli : 1. Interactive Crop
+#@cli : \ - Click and drag to select crop.
+#@cli : \ - Use scroll button to browse images.
+#@cli : \ * Click once or close window to exit command.\n
+#@cli : 2. Comparison Window
+#@cli : \ - Regular display behaviour.
+#@cli : \ - Close window to make another comparison.
+afre_compare : check "${1=1}>=1 && $1<=2 && (s='${2=x}';s=='x'||s=='y'||s=='z'||s=='tile') && "isbool(${3=1})
+n={$!-1} if $n<1 error[] "\n[afre]>_<) compare: Please select 2 or more images." fi
+repeat $!-1 if w#0!=w#{$>+1}||h#0!=h#{$>+1} error[] "\n[afre]>_<) compare: Please select images with the same width and height." fi done
+repeat $! if d#$>!=1 e[] "[afre]>_<) compare: *Slices in image ["$>"] will be considered separate images." fi done
+e[] "[afre]^_^) compare: Crop then compare image$? interactively."
+e[] "\n 1. Interactive Crop\n
+\ - Click and drag to select crop.\n
+\ - Use scroll button to browse images.\n
+\ * Click once or close window to exit command.\n\n
+2. Comparison Window\n
+\ - Regular display behaviour.\n
+\ - Close window to make another comparison.\n"
+to_colormode 0 if $3 n 0,255 fi
+do +l =>[0] Compare
+a z repeat $1 xz b={w} if $b==1 break fi done
+b={w} if '$2'!='z' s z if '$2'!='tile' a $2 else append_tiles 0 fi fi
+if $b==1 break else v - d v + fi
+done k[0-$n] while $b!=1 v - d[]
+#@cli afre_reorder : order,_order2,...
+#@cli : Reposition images according to a list of values of any length.
+afre_reorder :
+e[] "[afre]^_^) reorder: Reposition images according to list $*."
+z 0,0,0,100%,100%,1 mirror z f z==0?1e6:i
+l ($*) onfail error[] "\n[afre]>_<) reorder: Parameter must be a list of numbers; e.g. 0,2,4,1,3." done
+repeat min(w,$!-1) f[$>] z==0?{i($>)}:i done
+sort_list[0-{min(w,$!-1)-1}] + rm. z 0,0,1,100%,100%,1
+#@cli afre_log2 : direction={ 0=inverse | 1=forward }
+#@cli : Transform selected images into or back from log2 space.
+#@cli : Default value: 'direction=1'.
+afre_log2 : check isbool(${1=1})
+if $1 d="into" else d="back from" fi
+e[] "[afre]^_^) log2: Transform image$? "$d" log2 space."
+if $1 + 1 log2 else f exp(i*log(2)) - 1 fi
+#@cli afre_section : 1<=xy_sections<=50
+#@cli : Section selected images into numbered regions.
+#@cli : Default value: 'xy_sections=20'.
+afre_section : check "${1=20}>=1 && $1<=50"
+m=min(w,h) err=int($m/25) if $err<$1 error[] "\n[afre]>_<) section: Section image$? into no more than "{max(sqr($err),1)}" ("{max($err,1)}"x"{max($err,1)}") regions." fi
+e[] "[afre]^_^) section: Section image$? into "{sqr($1)}" ($1x$1) numbered regions."
+repeat $! l[$>]
+im,iM={[im,iM]} s yx,$1 repeat $!
+t[$>] {$>+1},0.5~,0.5~,{$m*0.55},0.9,$im t[$>] {$>+1},0.5~,0.5~,{$m*0.56},0.9,$iM
+done append_tiles $1
+grid {100/$1}%,{100/$1}%,,,0.2,$im
+grid {100/$1}%,{100/$1}%,-1,-1,0.2,$iM
+done done
+#@cli afre_cleanphoto : 2<=size<=10,1<=_recovery<=100,-50<=_xy_sections<=50,_maskN>=1,...
+#@cli : Clean dust and scratches from photos.
+#@cli : Default values: 'size=3', 'recovery=10', 'xy_sections=1' and 'maskN=1'.\n
+#@cli : - 'xy_sections' sections image into MxM labeled regions.
+#@cli : \ \ \ For global processing, set 'xy_sections' to 1.
+#@cli : \ \ \ To visualize these regions with labels, use a negative number.
+#@cli : - 'maskN' is a comma separated list of regions to be processed.
+afre_cleanphoto : check "${1=3}>=2 && ${2=10}>=1 && ${3=1}>=-50 &&
+$1<=10 && $2<=100 && $3<=50" skip ${4=1}
+m=min(w,h) err=int($m/25) if $err<$3 error[] "\n[afre]>_<) cleanphoto: Section image$? into no more than "{max(sqr($err),1)}" ("{max($err,1)}"x"{max($err,1)}") regions." fi
+m "ip : p=$1,,,{iM}
++erode_threshold $p dilate_threshold. $p afre_gui1_fast. .. c. 0,100%
++afre_edge.. 1,1,4,4 afre_box. 1 c. 0,$2% n. 0,1 +blend_fade[0,1] . k[0,-1]
++gaussian. {[w,h]*0.3} c. 0,50% n. 0,1 blend_fade[0,1] . k[0]"
+e[] "[afre]^_^) cleanphoto: Clean dust and scratches from image$? using size=$1, recovery=$2, xy_sections=$3 and masks=${4--1}."
+repeat $! l[$>] if $3>1
+iM={iM} w0,h0={[w,h]} w,h={[w,h]/$3} 100%,100%,1,3 l. (${4--1})
+c. 1,{sqr($3)} round. sort. discard. unroll. x
+repeat w v={i($>)} i={$v%$3?$v%$3:$3} j={($v+$3-$i)/$3}
+r={[$w*$i-$w,$h*$j-$h,$w*$i-1,$h*$j-1]} rectangle[0] $r,1,$iM
+done rm. label_fg 0 r {[$w0,$h0]+2},1,3,0,0,0.5,0.5
+repeat iM +==[0] {$>+1} coord=${"
+w={w} h={h} val={i(w-1,h-1)} +=. {1+$val},100%,100%,100%
+autocrop. =. $val,100%,100%,100% x0={$w-w} y0={$h-h} rm.
++autocrop. x1={$x0+w-1} y1={$y0+h-1} rm. u $x0,$y0,$x1,$y1
+"} rm. ($coord) done
+a[^0] y done r[0] {[$w0,$h0]+2},1,3,0,0,0.5,0.5
+repeat h x0,y0,x1,y1={@{[0,1,2,3]+4*$>}} +z[0,1] $x0,$y0,$x1,$y1
++ip.. f. i#4?i#5:i#3 j[0] .,$x0,$y0 rm[-3--1]
+done k[0] r {[$w0,$h0]},1,3,0,0,0.5,0.5
+else ip
+fi done done um ip
+#@cli afre_cleanphoto1 : 1<=radius<=10,1<=_xy_sections<=50,_maskN>=1,...
+#@cli : Clean dust and scratches from photos.
+#@cli : Default values: 'radius=3', 'xy_sections=1' and 'maskN=1'.\n
+#@cli : - 'xy_sections' sections image into MxM labeled regions.
+#@cli : \ \ For global processing, set 'xy_sections' to 1.
+#@cli : - 'maskN' is a comma separated list of regions to be processed.
+#@cli : \ \ Use 'afre_section' to determine region labels.
+afre_cleanphoto1 : check "${1=3}>=1 && ${2=1}>=1 &&
+$1<=10 && $2<=50" skip ${3=1}
+rd={int($1)} m=min(w,h) err=int($m/25) if $err<$2 error[] "\n[afre]>_<) cleanphoto: Section image$? into no more than "{max(sqr($err),1)}" ("{max($err,1)}"x"{max($err,1)}") regions." fi
+m "ip : s={"$rd"*2+1} +l +erode_oct $s dilate_oct. $s - c 0,100% ^ 2
+c 5%,10% dilate_oct 3 n 0,1 done +inpaint_pde.. . rm..
++gaussian. {[w,h]*0.3} c. 0,50% n. 0,1 blend_fade[0,1] . k[0]"
+e[] "[afre]^_^) cleanphoto: Clean dust and scratches from image$? using radius="$rd", xy_sections=$2 and maskN=${3--1}."
+repeat $! l[$>] if $2>1
+iM={iM} w0,h0={[w,h]} w,h={[w,h]/$2} 100%,100%,1,3 l. (${3--1})
+c. 1,{sqr($2)} round. sort. discard. unroll. x
+repeat w v={i($>)} i={$v%$2?$v%$2:$2} j={($v+$2-$i)/$2}
+r={[$w*$i-$w,$h*$j-$h,$w*$i-1,$h*$j-1]} rectangle[0] $r,1,$iM
+done rm. label_fg 0 r {[$w0,$h0]+2},1,3,0,0,0.5,0.5
+repeat iM +==[0] {$>+1} coord=${"
+w={w} h={h} val={i(w-1,h-1)} +=. {1+$val},100%,100%,100%
+autocrop. =. $val,100%,100%,100% x0={$w-w} y0={$h-h} rm.
++autocrop. x1={$x0+w-1} y1={$y0+h-1} rm. u $x0,$y0,$x1,$y1
+"} rm. ($coord) done
+a[^0] y done r[0] {[$w0,$h0]+2},1,3,0,0,0.5,0.5
+repeat h x0,y0,x1,y1={@{[0,1,2,3]+4*$>}} +z[0,1] $x0,$y0,$x1,$y1
++ip.. f. i#4?i#5:i#3 j[0] .,$x0,$y0 rm[-3--1]
+done k[0] r {[$w0,$h0]},1,3,0,0,0.5,0.5
+else ip
+fi done done um ip
+#@cli search_dichotomic : "increasing_fn",target_y,_precision>0
+#@cli : Find parameter for function such that 'target_y' is met in image.
+#@cli : Default value: 'precision=1e-3'.\n
+#@cli : - Return 'nan' if search fails.
+#@cli : * Credit: David Tschumperle.
+search_dichotomic : check ${3=1e-3}>0
+m "_sdc : $1" target_value,epsilon=$2,$3 mpos,nb_attempts=-1,20
+do mvalue=${_sdc\ $mpos} if $mvalue<$target_value break fi mpos*=2
+nb_attempts-=1 while $nb_attempts if !$nb_attempts u nan return fi
+Mpos,nb_attempts=1,20
+do Mvalue=${_sdc\ $Mpos} if $Mvalue>$target_value break fi Mpos*=2
+nb_attempts-=1 while $nb_attempts if !$nb_attempts u nan return fi
+nb_attempts=100
+do
+cpos={($mpos+$Mpos)/2} cvalue=${_sdc\ $cpos}
+if abs($cvalue-$target_value)<$epsilon u $cpos return
+elif $cvalue<$target_value mpos=$cpos else Mpos=$cpos fi
+nb_attempts-=1
+while $nb_attempts u {$nb_attempts?$cpos:nan}
+#@cli afre_details : n_scales>=2
+#@cli : Split image into detail scales.
+#@cli : Default value: 'n_scales=2'.
+afre_details : check ${1=2}>=2
+e[] "[afre]^_^) details: Split image$? into $1 detail scales."
+repeat $! l[$<]
+repeat $1-1 +afre_gui0_fast. 1,1e10 -.. . rv[-2,-1] done
+done done
+afre_details_preview :
+afre_details $*
+n 0,255 append_tiles 0
+fx_gamify :
+if $3 n 0,255 fi
+afre_jchz
+s c n... $1,100 *.. $2 a c
+afre_ijchz
+split_details 2
+l.. adjust_colors 0,{-$4/1.5*20} done
+*. $4
++ c 0,255
+fx_gamify_preview :
+gui_split_preview "fx_gamify $*",$-1
+#@cli afre_gleam : 2<=smooth<=100,10<=_threshold<=90
+#@cli : Add gleam effect to selected images.
+#@cli : Default values: 'smooth=3' and 'threshold=50'.
+afre_gleam : check "${1=3}>=2 && ${2=50}>=10 && $1<=100 && $2<=90"
+e[] "[afre]^_^) gleam: Add gleam effect to image$? using smooth=$1 and threshold=$2."
+repeat $! l[$>]
++afre_y50 1 >. {100-$2}% b. $1% sqrt. +afre_softlight 100 rm.. max
+done done
+afre_gleam_preview :
+afre_gleam $*
+#@cli afre_halfhalf : match_size={ 0 | 1 }
+#@cli : Stitch left and right halves of 2 images, respectively.
+#@cli : Default value: 'match_size=0'.
+afre_halfhalf : check isbool(${1=0})
+if $!!=2 error[] "\n[afre]>_<) halfhalf: Please select 2 images." fi
+e[] "[afre]^_^) halfhalf: Stitch left and right halves of 2 images using match_size=$1."
++f[{w#0>w#1?0:1}] 0 mv. 0 s[1,2] x,2 rm[2,3]
+if w#1=1,_spacing>=0,0<=_matte_colour={[R,G,B]}<=255
+#@cli : Generate montage without resizing.
+#@cli : Default values: 'max_per_row=5', 'spacing=1', 'matte_colour=230,255,230'.
+afre_montagex : check "${1=5}>=1 && ${2=1}>=0 && inrange(${3=230},0,255) && inrange(${4=255},0,255) && inrange(${5=230},0,255)"
+e[] "[afre]^_^) montagex: Generate montage without resizing image$? using max_per_row=$1, spacing=$2 and matte_colour=(${3-5})."
+to_colormode 0 a=$1 b,c=int($!/$a),{$!%$a}
++ 1 frame {[$2,$2]*min(${-max_w},${-max_h})*0.01},0
+repeat $b a[{$a*$<}-{$a*$<+($a-1)}] x,0.5 done
+if $c a[-$c--1] x,0.5 fi a y,0.5
+- 1 replace_color 0,0,-1,-1,-1,$3,$4,$5
+afre_montagex_preview :
+afre_montagex $*
+#@cli afre_portraitmontage : size={ 0=small | 1=large },_spacing>=1,_matte_shape={ 0=none | 1=circle | 2=polygon | 3=star },0<=_matte_colour={[R,G,B]}<=255
+#@cli : Generate portrait montage with resizing.
+#@cli : Default values: 'size=1','spacing=1', 'matte_shape=0', 'matte_colour=230,255,230'.\n
+#@cli : \- Centre subjects for best results.
+afre_portraitmontage : check "isbool(${1=1}) && ${2=1}>=1 && inrange(${3=0},0,3) && inrange(${4=230},0,255) && inrange(${5=255},0,255) && inrange(${6=230},0,255)"
+if $3==0 s=none elif $3<2 s=circle elif $3<3 s=polygon t=8
+elif $3<4 s=star t=24,0.9 fi
+e[] "[afre]^_^) portraitmontage: Generate portrait montage of resized image$? using size=$1, spacing=$2, matte_shape="$s" and matte_colour=(${4-6})."
+rr2d {`$1?'${-max_w},${-max_h},':'${-min_w},${-min_h},1'`},2 to_rgb
+repeat $! l[$>] if $3 +f. -1 shape_$s {min(w,h)},$t to_rgb.
+ri. ..,0,0,0.5,0.5 negate. j... ..,0,0,0,0,1,. k... autocrop fi
++ 1 done done f=min(${-max_w},${-max_h}) frame {[$2,$2]*$f*0.01},0
+append_tiles 0 frame {[$2,$2]*$f*0.01},0 - 1 replace_color 0,0,-1,-1,-1,$4,$5,$6
+afre_portraitmontage_preview :
+afre_portraitmontage $*
+#@cli afre_queryprimary : mode={ 0=min | 1=max | 2=med },_skip_last_channel={ 0 | 1 }
+#@cli : Query pixel minima, maxima or medians of selected images.
+#@cli : Default values: 'mode=1' and 'skip_last_channel=0'.
+afre_queryprimary : check "inrange(${1=1},0,2) && isbool(${2=0})"
+mode,s={`$1>1?'med,medians':$1>0?'max,maxima':'min,minima'`} if $2 skip=", skipping the last channel" fi e[] "[afre]^_^) queryprimary: Query pixel "$s" of image$?"$skip"."
+repeat $! l[$>] if $2 sh 0,{s-2} fi l.
++s c $mode[^0] +== rm.. *
+done if $2 rm. fi done done
+afre_queryprimary_preview :
+afre_queryprimary $*
+#@cli afre_sharpenfft : 1<=strength<=50,1<=_size<=10
+#@cli : Sharpen selected images with Fourier transform.
+#@cli : Default values: 'strength=15' and 'size=1'.
+afre_sharpenfft : check "${1=15}>=1 && ${2=1}>=1 && $1<=50 && $2<=10"
+e[] "[afre]^_^) sharpenfft: Sharpen image$? with Fourier transform using strength=$1 and size=$2."
+repeat $! l[$>] iM={iM} +periodize_poisson -.. . l. +l
+fftpolar +gaussian.. {100/$2}% negate. *[^1] ifftpolar * $1
+done + c 0,$iM done + c 0,$iM done done
+afre_sharpenfft_preview :
+afre_sharpenfft $*
+#@cli afre_vigcirc : 50<=size<=150,-500<=_strength<=500,0<=_position_x<=100,0<=_position_y<=100
+#@cli : Add circular vignette of selected images. Negative strength will brighten periphery.
+#@cli : Default values: 'size=90', 'strength=75', 'position_x=50' and 'position_y=50'.
+afre_vigcirc : check "${1=90}>=50 && ${2=75}>=-500 && ${3=50}>=0 && ${4=50}>=0 &&
+$1<=150 && $2<=500 && $3<=100 && $4<=100"
+e[] "[afre]^_^) vigcirc: Add circular vignette of image$? using size=$1, strength=$2, position_x=$3 and position_y=$4."
+repeat $! l[$>] iM={iM} min={min(w,h)}
++f 1 circle. $3%,$4%,{($min/2-2)/100*$1}
+distance. 0 b. 1 -. {im} *. {$2/100} -
+c 0,$iM done done
+afre_vigcirc_preview :
+afre_vigcirc $*
+#@cli afre_vigrect : 1<=size<=100,-500<=_strength<=500,1<=_blur<=50,0<=_position_x<=100,0<=_position_y<=100
+#@cli : Add rectangular vignette of selected images. Negative strength will brighten periphery.
+#@cli : Default values: 'size=50', 'strength=75', 'blur=10', 'position_x=50' and 'position_y=50'.
+afre_vigrect : check "${1=50}>=1 && ${2=75}>=-500 && ${3=10}>=1 && ${4=50}>=0 && ${5=50}>=0 &&
+$1<=100 && $2<=500 && $3<=50 && $4<=100 && $5<=100"
+e[] "[afre]^_^) vigrect: Add rectangular vignette of image$? using size=$1, strength=$2, blur=$3, position_x=$4 and position_y=$5."
+repeat $! l[$>] iM={iM} min={min(w,h)} s={$min/100*(50.5-$1/2)}
+tx={$min/100*($4-50)} ty={$min/100*($5-50)}
++f x<$s+$tx||x>w-$s+$tx||y<$s+$ty||y>h-$s+$ty
+distance. 0 b. {$min/100*$3} -. {im} *. {$2/100} -
+c 0,$iM done done
+afre_vigrect_preview :
+afre_vigrect $*
+_fx_remove_scratches :
+repeat $! l[$>] to_rgba
+sh 0,2
+sh.. 3
+<. {$1*255%}
+if $4>=1 erode. $2 fi
+if $4>=2 dilate. $3 fi
+if $4<3 k... channels 3 * 255
+else inpaint_matchpatch.. . k... channels 0,2
+fi
+done done
+fx_remove_scratches :
+_fx_remove_scratches ${1-3},3
+fx_remove_scratches_preview :
+gui_split_preview "_fx_remove_scratches $*",$-1
+fx_corvo_painting_5 :
++polygonize $1,$2,$3,10,10
++blend[0,1] alpha,$4
+-texturize_canvas[2] $5,0.5,0.6
+-smooth[2] $7,0.4,0.7,$8,$9
++plasma[2] 0.7,100,8 n 0,255
+-blend[3,2] grainmerge,$6
+-bilateral[0,2] 10,7
+-blend[0,2] alpha,$10
+rm.
+fx_morpho :
+ac "__fx_morpho ${^0}",$5,$6
+fx_morpho_preview :
+gui_split_preview "fx_morpho ${^0}",$-1
+__fx_morpho :
+if $4==1 suf="_oct" elif $4==0 suf="" else suf="_circ" fi
+if $1==0 erode$suf $2
+elif $1==1 dilate$suf $2
+elif $1==2 erode$suf $2 dilate$suf $2
+elif $1==3 dilate$suf $2 erode$suf $2
+elif $1==4 repeat $! +erode$suf $2 -[-2,-1] mv. 0 done
+elif $1==5 repeat $! +dilate$suf $2 rv[-2,-1] -[-2,-1] mv. 0 done
+elif $1==6 repeat $! +erode$suf $2 dilate$suf. $2 -[-2,-1] mv. 0 done
+else repeat $! +dilate$suf $2 erode$suf. $2 rv[-2,-1] -[-2,-1] mv. 0 done
+fi
+if $3 repeat $! l[$>] split_opacity negate[0] a c done done fi
+gcd_anti_alias : skip ${1=10},${2=0.3},${3=10}
+foreach { split_opacity l[0] {
++smooth[0] $1,0,1,1.6,1.1,0.8,30,0.6
++gradient_norm[0] +n. 0,$3 +[0,-1]
+^. $2 n. 0,255
++gradient_norm. ^. $2 n. 0,255
+blend[-2,-1] overlay append[-2,-1] c
+blend[0,1] alpha c 0,255
+} a c }
+gcd_anti_alias_preview :
+gui_split_preview "gcd_anti_alias ${1--2}",$-1
+gcd_srgb2jpeg :
+repeat $! l[$>]
+if s<3 continue fi
+if s==4 split_opacity fi
+mix_rgb[0] 0.299,0.587,0.114,-0.1687,-0.3313,0.5,0.5,-0.4187,-0.0813
+sh[0] 1,2 +. 128 rm. a c
+done done
+gcd_jpeg2srgb :
+repeat $! l[$>]
+if s<3 continue fi
+if s==4 split_opacity fi
+sh[0] 1,2 -. 128 rm.
+mix_rgb[0] 1,0,1.402,1,-0.34414,-0.71414,1,1.772,0 a c
+done done
+gcd_srgb2luma :
+repeat $! l[$>]
+remove_opacity
+if s!=3 continue fi
+sh[0] 0,0 sh[0] 1,1 sh[0] 2,2
+*[1] 0.299 *[2] 0.587 *[3] 0.114
++[1-3] rm[1] channels[0] 0
+done done
+gcd_srgb2luminance :
+repeat $! l[$>]
+remove_opacity
+if s!=3 continue fi
+srgb2rgb[0] sh[0] 0,0 sh[0] 1,1 sh[0] 2,2
+*[1] 0.2126 *[2] 0.7152 *[3] 0.0722
++[1-3] rm[1] channels[0] 0
+done done
+gcd_gamma : skip ${1=1},${2=0},${3=255}
+if $1==1 return fi
+repeat $! l[$>]
+if !$2 g={1/max($1,0.001)} -^ $g * {$3^(1-$g)}
+else * -1 + $3 max 0 -^ $1 * {-$3^(1-$1)} + $3 fi
+done done
+gcd_sbezier : skip ${1=0.5},${2=255}
+repeat $! l. / $2 +sqr *. {1-2*$1} *.. {2*$1} + * $2 done done
+gcd_ibezier : skip ${1=0.5},${2=255}
+if $1==0.5 return fi
+repeat $! l.
+d={1-2*$1} e={$1/$d} / {$2*$d} + {$e*$e}
+sqrt. * {$1>0.5?-1:1} - $e * $2
+done done
+gcd_label : skip ${1=4},${2=0.067}
+repeat $! l[$>]
+label. $1,1 nb={1+iM}
++histogram. $nb,0,{$nb-1}
++map.. . rm..
+le. {$2%*w*h} *. 255
+inpaint.. . rm.
+done done
+gcd_shrink :
+_gcd_w={0,w} _gcd_h={0,h}
+repeat $! l[$>] if max(w,h)>700 rr2d. 700,700,0,1 fi done done
+gcd_unshrink :
+repeat $! l[$>] r $_gcd_w,$_gcd_h done done
+gcd_fix_alpha :
+repeat $! l[$>] if s==2||s==4
+sh 0,{s-2} sh[0] 100%,100% max. 1 +neq. 1 *[-3,-1] -k[0]
+fi done done
+#@cli gcd_noalpha
+#@cli : Remove any gimp alpha channel and zero transparencies
+gcd_noalpha :
+e[^-1] "Remove gimp alpha channel from image$?."
+repeat $! l[$>] if s==2||s==4
+m={s-2} sh 0,$m sh.. 100% neq. 0 *.. . -k[0] channels 0,$m
+fi done done
+#@cli gcd_splitalpha
+#@cli : Split any gimp alpha channel and zero transparencies
+gcd_splitalpha :
+e[^-1] "Split gimp alpha channel from image$?."
+repeat $! l[$>] if s==2||s==4
+m={s-2} sh 0,$m sh.. 100% . neq.. 0 *[1,2] -k[^1] channels.. 0,$m
+fi done done
+#@cli gcd_force_rgb
+#@cli : Force selected gimp images to be in RGB mode.
+gcd_force_rgb :
+e[^-1] "Force gimp image$? to be in RGB mode."
+repeat $! l[$>]
+if s>4 error[] "Command 'gcd_force_rgb': Image ["$>"] is not a G,GA,RGB or RGBA image ("{s}" channels)."
+elif s==4 sh 0,2 sh.. 3 neq. 0 *.. . -k[0] channels 0,2
+elif s==2 sh 0 sh.. 1 neq. 0 *.. . -k[0] channels 0 r 100%,100%,100%,3
+elif s==1 r 100%,100%,100%,3
+fi
+done done
+#@cli gcd_force_rgba
+#@cli : Force selected gimp images to be in RGBA mode.
+gcd_force_rgba :
+e[^-1] "Force gimp image$? to be in RGBA mode."
+repeat $! l[$>]
+if s>4 error[] "Command 'gcd_force_rgba': Image ["$>"] is not a G,GA,RGB or RGBA image ("{s}" channels)."
+elif s==4 +channels 3 neq. 0 *
+elif s==3 channels 0,3 sh. 3 f. 255 rm.
+elif s==2 +channels 1 neq. 0 * r 100%,100%,100%,4 sh. 2 f. .. rm.
+elif s==1 r 100%,100%,100%,4 sh. 3 f. 255 rm.
+fi
+done done
+#@cli gcd_force_a
+#@cli : Force selected gimp images to have an alpha channel.
+gcd_force_a :
+e[^-1] "Force gimp image$? to have an alpha channel."
+repeat $! l[$>]
+if s==1||s==3 channels 0,{s} sh. {s-1} f. 255 rm.
+elif s==2||s==4 +channels 100% neq. 0 * fi
+done done
+#@cli gcd_srgb2rgb
+#@cli : Convert from sRGB gamma to RGB by fast approximate.
+gcd_srgb2rgb :
+e[^-1] "Convert image$? from sRGB gamma to RGB by fast approximate."
+c 0,255 * 257 round 1 (0,255) r. 65536,1,1,1,3 srgb2rgb. map[^-1] . rm.
+#@cli gcd_rgb2srgb
+#@cli : Convert from RGB to sRGB gamma by fast approximate.
+gcd_rgb2srgb :
+e[^-1] "Convert image$? from RGB to sRGB gamma by fast approximate."
+c 0,255 * 257 round 1 (0,255) r. 65536,1,1,1,3 rgb2srgb. map[^-1] . rm.
+#@cli gcd_extract_clut : _resolution_root,_smoothness,_nb_iterations>=0,_nb_randoms>=0
+#@cli : Extract color LUT from selected images.
+gcd_extract_clut : skip ${1=8},${2=3},${3=5},${4=5}
+e[^-1] "Extract color LUT from image$?."
+to_rgb b={int($1)^2} s={$b^1.5}
+(0,1;0,1/0,1;0,1^0,0;1,1/0,0;1,1^0,0;0,0/1,1;1,1)
+*. 255 r. $b,$b,$b,3,3 r. $s,$s,1,3,-1
+repeat $!-1 l[$>,-1] nm="[CLUT: "{0,n}"]"
++matchpatch. ..,1,1,1,$3,$4 warp[0] .,0
+rm. r.. $b,$b,$b,3,-1 b.. $2 =>.. $nm
+done done rm.
+#@cli gcd_geometric_median : size>=0,_nb_iter>=0
+#@cli : Apply geometric median filter on vector-valued images.
+#@cli : Default values: 'size=3' and 'nb_iter=12'.
+#@cli : $ image.jpg +gcd_geometric_median 3
+gcd_geometric_median : skip ${1=3},${2=12}
+e[^-1] "Apply geometric median filter of size $1, on image$?."
+repeat $! l[$>]
+[0] +boxfilter. {$1+1-$1%2} sh. 0
+f. "*
+begin(
+const boundary = 1;
+const N = int($1/2);
+const W = N+1;
+weightedSum = I(#1);
+totalDist = weightedSum;
+);
+Y = I(#2,x,y); # centroid
+for (iters = 0, iters<$2, ++iters,
+weightedSum = 0;
+totalDist = 0;
+distSum = 0;
+flag = 0;
+for (j = -N, j0,_value,_max_iters>0
+#@cli : Add poisson disk sampling noise to selected images.
+#@cli : Default values: 'radius=8', 'value=1' and 'max_iters=30'.
+gcd_poisson_disk : check "${1=8}>0 && ${3=30}>0" skip ${2=1}
+e[^-1] "Add noise points to image$?, with specified minimum distance."
+repeat $! l[$>]
+R={${"is_percent $1"}?max(w,h,d)*$1:$1}
+dim={d>1?3:h>1?2:1} cw={0.999*$R/sqrt($dim)}
+({[w,h,d,1]}) y. c
+{[ceil(I/$cw)]}
+r[1] 1,1,1,$dim,-1
+1,1,1,$dim 1,1,1,1
+{vector$dim(2*ceil(sqrt($dim))+1)} r. 100%,100%,100%,2
+f. "P=[x,y,z]-int([w/2,h/2,d/2]);[sum(sqr(P)),dot(P,[1,w#2,w#2*h#2])]"
+r. {[whd,s,1,1,-1]} sort. +,x z. 0,1,100%,100% y. c
+=>[1] dims =>[2] grid =>[3] samples =>[4] active =>[5] prox
+eval ${-math_lib}"
+const N = "$dim";
+const radius = "$R";
+const grid_cw = "$cw";
+const max_sample_attempts = $3;
+mag2(vec) = (sum(sqr(vec)));
+prox = I#5;
+lim = I#1;
+dar_insert(#3,I#1,0); # dummy sample to simplify bounds checks
+dar_insert(#3,u(I#1),1); # add initial sample to list
+dar_insert(#4,1,0); # add its index to active list
+I(#2,int(I[#3,1]/grid_cw)) = 1; # add its index to grid cell
+I(#0,I[#3,1]) = $2; # draw the point
+while (dar_size(#4)>0,
+R = int(u(dar_size(#4)-1e-4)); # choose a random active list index
+P = i[#4,R]; # get the index of that sample
+T = I[#3,P]; # position vector of that sample
+for (attempts=0, attempts < max_sample_attempts, ++attempts,
+do (S=4*(u(vectorN(1))-0.5); M=mag2(S), M <= 1 || M > 4);
+X = T + radius * S;
+if (min(X)<0 || min(lim-X)<0, continue());
+G = int(X/grid_cw);
+GI = dot(G,[1,w#2,w#2*h#2]); # grid cell direct buffer index
+for (K=0;rejected=0, K0 && mag2(I[#3,V]-X)=0[%],_boundary_conditions,_kernel
+#@cli : Blur selected images using a binary inclusion mask.
+#@cli : See 'help blur' for full parameters description.
+#@cli : $ image.jpg to_rgb +to_a circle 50%,50%,80,1,0 gcd_blur_masked 2%
+gcd_blur_masked :
+e[^-1] "Blur image$? with binary inclusion masking."
+repeat $! l[$>]
+to_a split_opacity mo={iM}
+ge. 1 *[0] . +eq. 0 b[0,-1] $* *. .. *. -1 +. 1 /[0,-1] *[0] .
+*. $mo a c
+done done
+#@cli gcd_boxfilter_local : [reference_image]
+#@cli : Blur selected images by a per-pixel box filter (2D SAT implementation).
+#@cli : Local window sizes are specified by the reference image.
+#@cli : $ sample +gaussian 20%,20% n. 0,50 gcd_boxfilter_local.. .
+gcd_boxfilter_local : check ${"is_image_arg $1"}
+pass$1 0 max. 1
+repeat $!-1 l[$>,-1]
+av={ia#0} sub.. $av cumulate.. xy # bias to improve precision
+f.. "
+begin(
+const boundary=1;
+const interpolation=1;
+const W=w-1; const H=h-1;
+T(X,Y)=Y>1?i(X,Y-1):Y*i(X,0);
+B(X,Y)=Y1?T(X-1,Y):X*T(0,Y);
+E(X,Y)=X1?B(X-1,Y):X*B(0,Y);
+G(X,Y)=X,-1]
+av={ia#0} sub.. $av # bias to improve precision
+f.. "
+begin(
+const boundary=1;
+ref(crop(#0),img); # 64bit buffer
+const W=w-1; const H=h-1;
+px(x,y) = (img[x + y*w#0 + c*wh#0]);
+qx(x,y) = (
+xA=floor(x);
+xB=ceil(x);
+yA=floor(y);
+yB=ceil(y);
+lx=x-xA;
+lerp(
+lerp(px(xA,yA),px(xB,yA),lx),
+lerp(px(xA,yB),px(xB,yB),lx),
+y-yA
+)
+);
+T(X,Y)=Y>1?qx(X,Y-1):Y*qx(X,0);
+B(X,Y)=Y1?T(X-1,Y):X*T(0,Y);
+E(X,Y)=X1?B(X-1,Y):X*B(0,Y);
+G(X,Y)=X=1
+#@cli : Compute the 2D cumulative inverse function of specified image data.
+#@cli : $ sample cumulate xy gcd_decumulate 1
+gcd_decumulate : check "${1=1}>=1"
+f "begin(
+const boundary=1;
+const interpolation=1;
+const W=w-1; const H=h-1;
+T(X,Y)=Y>1?i(X,Y-1):Y*i(X,0);
+B(X,Y)=Y1?T(X-1,Y):X*T(0,Y);
+E(X,Y)=X1?B(X-1,Y):X*B(0,Y);
+G(X,Y)=X]
+i $msk mul.. . +distance. 1 mul. 2
+gcd_boxfilter_local_hp[0,1] . rm.
++eq. 0 add[-2,-1] div
+done done
+#@cli gcd_inpaint_pyramid : [mask]
+#@cli : Inpaint selected images by specified mask.
+#@cli : $ image.jpg 100%,100% circle. 50%,50%,50,1,1 gcd_inpaint_pyramid.. .
+gcd_inpaint_pyramid : check ${"is_image_arg $1"}
+pass$1 0 ge. 1 store. msk
+repeat $! l[$>]
+L,D,X,Y,W,H={L=ceil(log(max(w,h))/log(2));D=2^L;X=ceil((D-w)/2);Y=ceil((D-h)/2);[L,2^L,X,Y,w,h]}
+i $msk z {[-$X,-$Y,$D-$X-1,$D-$Y-1]},1
+eq. 0 mul.. .
+repeat $L
++r[-2,-1] 50%,50%,100%,100%,2
++eq. 0 add. .. div[-3,-1] gt. 0
+done
+i[0] (0.0625,0.125,0.0625;0.125,0.25,0.125;0.0625,0.125,0.0625)
+repeat $L
+l[0,-4--1] rm.
+r. [1],[1],[1],[1],1 convolve. [0]
+eq[2] 0 j[1] .,0,0,0,0,1,[2] rm.
+done
+done
+rm[0,-1] z {[$X,$Y,$X+$W-1,$Y+$H-1]},1
+done done
+#@cli gcd_dither_srgb : _nb_levels>=2
+#@cli : Dither selected sRGB images.
+#@cli : Default values: 'nb_levels=2'.
+#@cli : $ image.jpg gcd_dither_srgb 6 round
+gcd_dither_srgb : check "isint(${1=2}) && $1>=2"
+repeat $! l[$>]
+s c (0,255) r. $1,1,1,1,3
+srgb2rgb index[^-1] .,1,1 rm. a c rgb2srgb
+done done
+#@cli gcd_shuffle
+#@cli : Shuffle vectors of selected images with Fisher-Yates algorithm.
+#@cli : $ uniform_distribution 8,3 gcd_shuffle
+gcd_shuffle : f "=2
+#@cli : Return all primes not greater than the specified limit as a 1xN image.
+#@cli : Default values: 'limit=97'.
+#@cli : $ gcd_primes 1000
+gcd_primes : check "isint(${1=97}) && $1>1"
+e[^-1] "Compute prime numbers not greater than $1."
+1,{$1+1},1,1,y
+eval "i[1]=0;for(N=2,N<=sqrt($1),++N,i[N]?for(P=N*N,P<=$1,P+=N,i[P]=0))"
+discard. 0
+#@cli gcd_mean_transfer_curve :
+#@cli : Calculate mean transfer curve between selected pair of images.
+#@cli : Image values will be indexes to an output map per channel.
+#@cli : Each map contains original and mapped values.
+#@cli : $ image.jpg +negate noise. 50% gcd_mean_transfer_curve dg[^0]
+gcd_mean_transfer_curve :
+e[0] "Index and calculate mean transfer curve for image$?."
+if $!!=2 error "Two images are required for $0" fi
+l[-2,-1]
+s0={s#0} r. 100%,100%,100%,$s0 s c
+repeat $s0 l[{[$<,$<+$s0]}]
+dims={0,[w,h,d]}
+$dims,3,[x,y,z] r. 1,{0,whd},1,3,-1
+y[0,1] a c sort +,y $dims,1 1,1,1,2
+eval "
+col=I[#0,0];
+V=col[0]; S=col[1]; N=1;
+i(#-2,col[2,3])=0;
+for(P=1;Q=0,P=1,_[mask],_boundary_conditions
+#@cli : Solve for 2D [kernel] in 'convolve[selection] [kernel] = [target]'.
+#@cli : 'boundary_conditions' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default values: 'size=1' and 'boundary_conditions=1'.
+#@cli : $ image.jpg +laplacian +gcd_solve_kernel.. .
+gcd_solve_kernel : skip ${3=1},${4=1} check ${"is_image_arg $1"}" && isint(${2=1})"
+e[^-1] "Solve kernel for image$? with convolution target $1
+and "${"arg 1+$4,dirichlet,neumann,periodic,mirror"}" boundary conditions."
+pass$1 K:=$2*2+1 => target
+if ${"is_image_arg $3"}
+pass$3 0 => mask
+repeat $!-2 {
+l[$>,target,mask] {
+nm={0,n}"_kernel" 0 => patches 0 => points
+eval[mask] "begin(const boundary=$4;const K=$K);
+if(i>=1,
+da_push(#-2,crop(#0,x-$2,y-$2,z,c,K,K,1,1));
+da_push(#-1,i(#1,x,y));
+);
+end(set('H',da_size()-1));"
+if h==0 error[0] "Command 'gcd_solve_kernel': mask image is empty." fi
+permute[patches] cyxz
+z[patches,points] 0,0,100%,$H
+invert[patches] 1,1e-6 =>[patches] inv mmul[inv,points]
+mirror[inv] y r[inv] $K,$K,1,1,-1 rm[0] mv[inv] 0
+=>[inv] $nm
+}
+} rm[mask]
+else
+repeat $!-1 {
+l[$>,target] {
+nm={0,n}"_kernel" 0 => patches 0 => points
+eval[0] "begin(const boundary=$4;const K=$K);
+da_push(#-2,crop(#0,x-$2,y-$2,z,c,K,K,1,1));
+da_push(#-1,i(#1,x,y));
+end(set('H',da_size()-1));"
+permute[patches] cyxz
+z[patches,points] 0,0,100%,$H
+invert[patches] 1,1e-6 =>[patches] inv mmul[inv,points]
+mirror[inv] y r[inv] $K,$K,1,1,-1 rm[0] mv[inv] 0
+=>[inv] $nm
+}
+}
+fi
+rm[target]
+#@cli gcd_browse : "commands",_width,_height
+#@cli : Navigate and display images from local storage.
+#@cli : Specified "commands" can be applied while viewing.
+#@cli : All arguments are optional.
+#@cli :
+#@cli : Controls:
+#@cli : * `ESC or Q` : Exit.
+#@cli : * `Arrow Keys` : Navigate directories.
+#@cli : * `Page Up/Down` : Navigate images within current directory.
+#@cli : * `Home/End` : View first/last image in current directory.
+#@cli : * `SPACE` : Enable/disable specified commands.
+#@cli : * `i` : Toggle information display.
+#@cli : * `f` : Toggle fullscreen mode.
+#@cli : * `e` : Toggle edge filtering.
+#@cli : * `w` : Toggle wide mode.
+#@cli : * `a or z` : Move up or down in wide mode.
+gcd_browse : check "isnum(${2=-1}) && isnum(${3=-1})" skip "${1=,}"
+if same(["'$1'"],',')
+m "_gcd_tmp_cmd : +gcd_std_score_patch 3 compose_channels. add orientation.. mul.. 2 add n 0,255"
+else m "_gcd_tmp_cmd : $1"
+fi
+if ${-is_windows}" || "${-is_macos}
+filespec={/"*.jpg","*.jpeg","*.png","*.tif","*.tiff"}
+else filespec={/"*.jpg","*.JPG","*.jpeg","*.png","*.tif","*.TIF","*.tiff"}
+fi
+w,h={[$2>0?$2:{*,u}-1,$3>0?$3:{*,v}]}
+cursor[0] 0 font={max(13,sqrt($w*$h)/48)}
+info,hq,fs,cmdon,refresh,pid,wide,start={[1,0,1,0,1,0,0,0.5]}
+path_current path=${}
+gcd_parentdir {``$path} files2img 1,${} => dirs
+gcd_currentdir {``$path} gcd_argnum[dirs] ${}
+dlim,dpos={dirs,[h,${}]} 0 => imgfiles 0 => vwimg
+$w,$h,1,3 => screen
+1 store. cid
+1 store. pid
+do
+if $refresh
+rm[imgfiles]
+gcd_filelist {``$path},$filespec
+=> imgfiles lim,pos={imgfiles,[h,1]}
+refresh={!$refresh}
+fi
+if $lim>0
+rm[vwimg] gcd_imgarg[imgfiles] $pos i ${}
+dim={`string(w,'x',h,'x',s)`}
+details="dim: "$dim" "{x}": "{b} => vwimg
+else
+rm[vwimg] 1,1,1,3 => vwimg details="no images"
+fi
+if $cmdon
+l[vwimg] _gcd_tmp_cmd
+if 1!=$! error "Exactly one image must be returned by custom commands" fi
+nm vwimg
+done
+fi
+to_rgb[vwimg] gcd_resize_for_fs[vwimg] $w,$h,$hq,$wide
+f[screen] 0 j[screen] [vwimg],0.5~,$start~
+if $info
+if $hq fe="edge " else fe="" fi if $cmdon fe.="cmd " fi
+0 t. $path,0,0,$font,1,255,255,255 j[screen] .
+0 t. $dpos"/"$dlim,0,0,{$font*2},1,255,0,255 j[screen] .,0,{h#-2} rm[-2,-1]
+0 t. $details,0,0,$font,1,255,255,255 j[screen] .,0,{{screen,h}-h} rm.
+0 t. $fe$pos"/"$lim,0,0,{$font*2},1,0,255,0 j[screen] .,{{screen,w}-w} rm.
+fi
+w[screen] 100%,100%,0,$fs,"Image Browser" cursor[0] 0 wait
+if {*,PAGEUP}" && "$pos>1 pos-=1 wait -1 fi
+if {*,PAGEDOWN}" && "$pos<$lim pos+=1 wait -1 fi
+if {*,HOME} pos=1 wait -1 elif {*,END} pos=$lim wait -1 fi
+if {*,E} hq={!$hq} wait -1 elif {*,SPACE} cmdon={!$cmdon} wait -1 fi
+if {*,F} fs={!$fs} if $fs w[] 100%,100%,0,1 fi wait -1 fi
+if {*,I} info={!$info} wait -1 fi
+if {*,W} wide={!$wide} wait -1 fi
+if {*,Z} start={min($start+0.25,1)} wait -1 fi
+if {*,A} start={max($start-0.25,0)} wait -1 fi
+if {*,ARROWLEFT}
+i $cid eval "da_push("$dpos")" store. cid
+i $pid eval "S=da_size();V=i[S-1]; S>0?da_remove(); V" nxt=${} store. pid
+gcd_parentdir {``$path} path=${}
+rm[dirs] gcd_parentdir {``$path} files2img 1,${} => dirs
+if $nxt==0 gcd_currentdir {``$path} gcd_argnum[dirs] ${} nxt=${} fi
+dlim,dpos={dirs,[h,max($nxt,1)]}
+refresh=1 wait -1
+fi
+if {*,ARROWRIGHT}" && "$dlim>0
+files2img 1,{``$path} => subdirs
+if h>0
+i $pid eval "da_push("$dpos")" store. pid
+i $cid eval "S=da_size();V=i[S-1]; S>0?da_remove(); V" nxt=${} store. cid
+rm[dirs] =>[subdirs] dirs
+dlim,dpos={dirs,[h,max($nxt,1)]}
+gcd_imgarg[dirs] $dpos path.=${}"/"
+refresh=1 wait -1
+else rm[subdirs] fi
+fi
+if {*,ARROWUP}" && "$dpos>1
+1 store. cid
+dpos-=1 gcd_parentdir {``$path} path=${}
+gcd_imgarg[dirs] $dpos path.=${}"/"
+refresh=1 wait -1
+fi
+if {*,ARROWDOWN}" && "$dpos<$dlim
+1 store. cid
+dpos+=1 gcd_parentdir {``$path} path=${}
+gcd_imgarg[dirs] $dpos path.=${}"/"
+refresh=1 wait -1
+fi
+while {*}" && "!{*,Q}" && "!{*,ESC}
+um _gcd_tmp_cmd cursor[0] 1 w 0
+e $path e $details rm[dirs,imgfiles,vwimg,screen]
+#@cli gcd_imgarg : n>=1
+#@cli : Return the n-th argument of the specified string list image.
+gcd_imgarg : skip ${1=1} u {``{`I[$1-1]`}}
+#@cli gcd_argnum : "search_str"
+#@cli : Return the index of the first matching argument in the specified string list image.
+gcd_argnum :
+num,sz={[0,s]}
++l.
+s y ({'"$1"'}:y) r. 1,$sz,1,1,0 neq[^-1] . rm. discard 0
+repeat $! if {$>,whds}==0 num={$>+1} break fi done rm
+done u $num
+#@cli gcd_parentdir : "path"
+#@cli : Return the parent directory path of the specified directory path.
+gcd_parentdir :
+if size(['"$1"'])<3 u "$1" return fi
+('"$1"') replace_str. "\\","/"
+l.
+if i[#-1,h-1]!='/' ('/') a[-2,-1] y fi
+s +,y,47 rm[-2,-1] a y
+done u {t} rm.
+#@cli gcd_currentdir : "path"
+#@cli : Return the last directory name of the specified directory path.
+gcd_currentdir :
+if size(['"$1"'])<2 u "/" return fi
+('"$1"') replace_str. "\\","/"
+l. s -,y,47 k. done u {t} rm.
+#@cli gcd_filelist : "path",_arg1,...,_argN
+#@cli : Return the list of files within the specified directory path.
+gcd_filelist :
+path="$1" globs=${2--1} num={$#-1}
+repeat $num
+arg {$>+1},$globs glob=${}
+files2img 3,{``$path}$glob
+done a[-$num--1] y
+#@cli gcd_resize_for_fs : width,_height,_is_filtered_edge
+#@cli : Resize image for fullscreen display.
+gcd_resize_for_fs : skip ${1=1920},${2=1080},${3=0},${4=0}
+repeat $! l[$>]
+w,h={[w,h]} mx={[im,iM]}
+if $4
+if $w>=$1" || "$3==0 r2dx $1,3 else gcd_upscale_edge {$1/$w},1 fi
+else
+if $h>=$2" || "$3==0 r2dy $2,3 else gcd_upscale_edge {$2/$h},1 fi
+fi
+gcd_noalpha c $mx
+done done
+gcd_auto_balance : skip ${1=30},${2=0},${3=0},${4=1},${5=0}
+mode=${arg\ 1+$3,hsi_i,hsv_v,lab_l,lrgb,rgb,ycbcr_y}
+if $2>0 bilateral 1%,$2 c 0,255 fi
+if $4!=0 ac "gcd_rgb_balance",rgb fi
+if $5 ac "gcd_tonemap_inplace $1",$mode,2
+else ac "gcd_tonemap $1",$mode,2 fi
+gcd_tonemap : skip ${1=100},${2=255}
+repeat $! l[$>]
+/ $2 +boxfilter $1%
++-. 0.5 sign. *. -1
++*.. -2 +. 1 /[1] .
++eq. 0 +[-2,-1] /[0,-1]
++sqr.. +[0,-1] max[0] 0
+sqrt[0] *[0,-1] - * $2
+done done
+gcd_tonemap_inplace : skip ${1=100},${2=255}
+repeat $! l[$>]
+/ $2 +boxfilter $1%
+f[0] "*A=i(#-1,x,y,z,c);B=1-2*A;Bx=A/B;-sign(A-0.5)*sqrt(i/B+Bx^2)-Bx;"
+rm. * $2
+done done
+gcd_rgb_balance :
+repeat $! l[$>]
+m={iM} s c n 0,$m a c [0] +r. 1,1,1,100%,2
+repeat s#1 sh[1] $> -. {2,i[$>]+$m/2} rm. done
+rm. n. 0,$m +/[0] $m +^. 3 compose_channels. + /. -3 +. 1
+compose_channels.. max *[-2,-1] j[0] ..,0,0,0,0,1,. k[0]
+done done
+gcd_blend_feather : skip ${1=100},${2=0.5},${3=2},${4=0},${5=0}
+r[^-1] .,.,1,100%,0,0,0.5,0.5
+if $5
++gcd_blend_maxdelta ${1-4}
+to_a[0] split_opacity[0] rv[1,-1] a[1,-1] c rm[0]
+else gcd_blend_maxdelta ${1-4} fi
+gcd_blend_maxdelta : skip ${1=100},${2=0.5},${3=2},${4=0}
+if $!>1 repeat $!-1 l[0,1]
+to_a split_opacity /[1,3] 255
+=>[0] upper =>[1] alpha =>[2] lower =>[3] mask
++r[lower] 1,1,1,100%,2
+++[upper] 0.1 *. [alpha]
+s. c discard[-3--1] 0 a[-3--1] c
+r. 1,1,1,100%,2 r[-2,-1] [upper]
+*[-2,-1] $2 -[upper,-1] +[upper,-1] c[upper] 0,255
++distance[alpha] 0 => dist
+eq[mask] 0 *[mask] {dist,iM} max[dist] [mask]
+if $4>0
+[upper] [alpha] a[-2,-1] c
+gcd_fgmask. {20-$4} b. 3 *[alpha,-1]
+fi
++n[dist] 0,$3 c. 0,1 *. [alpha]
+gcd_srgb2jpeg[upper,lower] sh[upper,lower] 1,2
+j. ..,0,0,0,0,1,... rm[-3--1]
+gcd_jpeg2srgb[upper,lower]
+n[dist] 0,{255*$1%}
++-[upper] [lower] *. [alpha]
++sign. abs.. min[dist,-2] *[dist,-1]
++[lower] [dist] k[lower] c 0,255
+done done fi
+gcd_fgmask : skip ${1=0}
+repeat $! l[$>]
+to_a expand_xy 20,0 split_opacity gt. 0
++distance. 0 max_patch. 3 *. 2
++erode[1] 20 *[-2,-1] dilate. $1
++gradient_norm.. gt. 0
+gradient_norm[0] +eq. 0 *[0,-1]
+max[-2,-1] *[0,1] *[0] -1
+watershed. .. rm..
+shrink_xy 20 - 1
+done done
+fx_gcd_blend_multiscale : skip ${1=5}
+if 2!=$! error "This filter requires two input layers to function" fi
+l[-2,-1] { name={0,n}
+to_a[0] remove_opacity[1]
+split_opacity[0] n[1] 0,1 mv[1] 0
++oneminus[0] gcd_inpaint_pyramid[1] . rm.
+K=3 A=1 B=2
+repeat $1 {
+K:=2^($>+2)+1
+boxfilter[0] $K n[0] 0,1
++boxfilter[$A,$B] $K
+sub[$A] .. sub[$B] .
+mul[$A] [0] negate[0] mul[$B] [0] negate[0]
+if ($>)>0 add[1,3] add[2,3] else A+=2 B+=2 fi
+}
+mul[$A] [0] negate[0] mul[$B] [0]
+add[1,3] add[2,3] add[1,2] k. nm $name
+}
+fx_gcd_signum_color : skip ${1=0.1},${2=5},${3=2},${4=0}
+foreach {
+split_opacity l[0] {
+m:=[im,iM] axesA=${arg\ 1+$3,xy,x,y} axesB=${arg\ 1+$4,xy,x,y}
++sqr compose_channels. + /. {-1,s} sqrt. +eq. 0 +[-2,-1] /.. .
+b. $axesA,$1% +b. $axesB,$2% -[-2,-1] sign. +. 1 * n $m
+} a c
+}
+gcd_comp_blur : skip ${1=2},${2=3},${3=1},${4=100},${5=1},${6=0}
+gsz={2^(5-$1)}
+repeat $! l[$>]
+remove_opacity.
++to_gray[0] edges. 14.5% n. {100-$4}%,100%
+if {0,s>1" && "$5}
++ac[0] "median 5",ycbcr_cbcr
+image[0] .,0,0,0,0,1,.. rm.
+fi
+if $1==0 {w},{h},1,1,255 *[-2,-1] else
+{w},{h},1,1,0
+grid. $gsz,$gsz,0,0,1,255
+if $2>=2 grid. $gsz,$gsz,1,1,1,255 fi
+if $2==3 grid. $gsz,$gsz,-1,-1,1,255 fi
+b. $3,0 *[-2,-1]
+fi
+i.. [0] append[-2,-1] c
+smooth[1] {100*$6+100},0.6,0.3
+blend[0,1] alpha
+if !$6 sharpen. 20 fi
+done done
+gcd_comp_blur_preview :
+gui_split_preview "gcd_comp_blur ${1--2}",$-1
+fx_gcd_crmt_tile :
+to_a
+m "_crmt_tile_C : [$""1]"
+m "_crmt_tile_R : rotate. $""1 autocrop."
+m "_crmt_tile_Fo : mirror. x"
+m "_crmt_tile_Fi : mirror. y"
+macros="sind(A)=sin(A/180*pi);cosd(A)=cos(A/180*pi);tand(A)=tan(A/180*pi);"
+('"_crmt_tiling_command : $1 {``$2},1,4 => _crmt_render $3"')
+replace_str. "C","_crmt_tile_C "
+replace_str. "Fo","_crmt_tile_Fo "
+replace_str. "Fi","_crmt_tile_Fi "
+replace_str. "R","_crmt_tile_R "
+replace_str. "T","_crmt_tile_T "
+replace_str. "[","{"$macros"["
+replace_str. "]","]}"
+m {t}
+rm.
+_crmt_tiling_command k[_crmt_render]
+if $4
++channels[0] 100% negate. dilate. 3
+inpaint[0] .,0,0 rm.
+fi
+uncommand _crmt_tiling_command
+_crmt_tile_T : skip ${1=0},${2=0}
+f. ":i3>0?I(#"{``${_crmt_render}}",$1+x,$2+y)=I;i" rm.
+fx_gcd_cumul_math : skip ${1=0},${2=1},${3=1},${4=0}
+op=${arg\ 1+$1,"add","or","xor","and","mod"}
+ac "gcd_cumul_math $2,$3,"$op",$4",rgb replace_nan 255
+gcd_cumul_math : skip ${1=1},${2=1},${3="add"},${4=0}
+repeat $! l[$>]
+100%,100%,100%,1,1 (0,$2) if $4 z. 1,1 fi
++*. $1 shift[1] {^} rm. m={^} rm. [0]
+repeat $1 +shift. $m +*. [1] $3[0,-1] rm.. done k[0] mod 256
+done done
+fx_gcd_cumul_math_preview :
+gui_split_preview "fx_gcd_cumul_math ${1--2}",$-1
+fx_gcd_blur_deblur_texture : skip ${1=4},${2=1},${3=0.5},${4=0},${5=2},${6=0}
+repeat $! l[$>]
+mode=${arg\ 1+$5,rgb,lrgb,ycbcr_y,ycbcr_cbcr}
+if $6 r=$2% else r=$2 fi
+if $4 ac "repeat $1 gcd_blur_texture "$r",$3 done",$mode,1
+else ac "repeat $1 +l +gcd_blur_texture "$r",$3 norm - done + done",$mode,1 fi
+done done
+fx_gcd_blur_deblur_texture_preview :
+gui_split_preview "fx_gcd_blur_deblur_texture $*",${-3--1}
+#@cli gcd_blur_texture : std_deviation>=0[%],0<=edge_exponent<=1
+#@cli : Edge preserving smooth.
+#@cli : Default values: 'std_deviation=1' and 'edge_exponent=1'.
+#@cli : $ image.jpg gcd_blur_texture 1
+gcd_blur_texture : skip ${1=1},${2=1}
+e[^-1] "Apply blur texture filter of size $1, on image$?."
+repeat $! l[$>]
+[0] +sqr. b[-2,-1] $1 +sqr.. -[-2,-1]
+max. 0 +eq. 0 +[-2,-1] sqrt. ^. -$2
+j[0] ..,0,0,0,0,1,. k[0]
+done done
+gcd_depth_blur : skip ${1=0},${2=15},${3=0.25},${4=2},${5=4},${6=0},${7=1}
+repeat $! l[$>]
+sa={$2*max(w,h)/1000}
+to_rgb[0]
++gcd_depth[0] $3,$4,$5
+if $7 negate. fi
+threshold. $1%,1 n. 0,255
+if $6 k. else
+{w},{h},1,1,0 .. a[-3--1] c
+smooth.. .,$sa,30,0 rm.
+c. 0,255
+fi
+done done
+fx_gcd_dither_srgb : skip ${1=2},${2=1}
+repeat $! l[$>]
+split_opacity
+if $2 gcd_srgb2luma[0] fi
+gcd_dither_srgb[0] $1 round[0] a c
+done done
+gcd_emboss : skip ${1=128}
+repeat $! l[$>]
++norm +bilateral[0] 2%,30 norm. -[-2,-1]
++n[0] 0,255 median. 3 bilateral. 2%,30
+gcd_srgb2luma. -. $1
++abs. negate.
++max.. 0 min... 0 abs...
+pde_flow[1] 20,7,iee
++n... 0,2 *. [1] +[0,-1]
++n. 0,2 *. [1] +[0,-1]
++n.. 0,2 *. [1] +[0,-1]
++[0,2] -[0,3] k[0]
+gcd_srgb2luminance c 0,255
+done done
+gcd_emboss_preview :
+gui_split_preview "gcd_emboss ${1--2}",$-1
+gcd_geometric_balance : skip ${1=0}
+repeat $! l[$>]
+split_opacity
+l[0] to_rgb
+s c n 0,255 a c
+srgb2rgb rgb2xyz
+m={[im,iM]} n 0.002,0.998 log +r 1,1,1,100%,2
+gm={$1>0?log(min(max($1,0.002),0.998)):i[#1,1]}
+repeat s#1 sh[0] $> *. {$gm/i[#1,$>]} rm. done rm. exp n $m
+xyz2rgb rgb2srgb
+s c n 0,255 a c
+done a c
+done done
+fx_gcd_gradient_exponent : skip ${1=0.5},${2=0}
+mode=${arg\ 1+$2,rgb,hsi_i,hsv_v,ycbcr_y,lab_l}
+foreach { ac "gcd_gradient_exponent $1",$mode }
+#@cli gcd_gradient_exponent : exponent
+#@cli : Adjust gradient ratios via laplacian inversion.
+#@cli : Default values: 'exponent=0.5'.
+#@cli : $ image.jpg gcd_gradient_exponent 0.5
+gcd_gradient_exponent : skip ${1=0.5}
+e[^-1] "Adjust gradient ratios for image$?, with exponent $1."
+foreach {
+repeat s { sh $> l. {
+m={[im,iM]} g xy,1,2
+foreach { +abs ^. $1 sign.. * }
+g.. x,-1,2 g. y,-1,2 + ilaplacian 0 n $m
+} rm. }
+}
+gcd_infomap :
+repeat $! l[$>] to_rgb
+if $1>3 gcd_std_score_patch 3 n 0,255
+elif $1>2
++dilate 3 +erode.. 3 eq[-2,-1] compose_channels. min
+orientation.. * n 0,255
+elif $1>1 gcd_srgb2jpeg channels 1,2 equalize 256 gcd_detail
+elif $1 gcd_detail else gcd_spectral fi
+done done
+gcd_detail :
+repeat $! l[$>] +bilateral 2%,30 norm - n 0,255 done done
+gcd_spectral :
+repeat $! l[$>]
+to_rgb gcd_srgb2luma - 128
++max 0 +min[0] 0 abs[^-2] negate[0] a c n 0,255
+done done
+gcd_std_score_patch : skip ${1=3}
+repeat $! l[$>]
++gcd_variance_patch $1 sqrt.
++boxfilter.. $1 -[0,-1] +eq. 0 +[-2,-1] /
+done done
+gcd_variance_patch : skip ${1=3}
+repeat $! l[$>] +sqr boxfilter $1 sqr.. rv - max 0 done done
+fx_gcd_clone_inpaint : skip ${1=0},${2=1},${3=10},${4=1}
+foreach {
+S:=max(3,round(0.25*max(w,h)*$3%))
+if $1 transpose fi
+to_rgba sh 100% eq. 100% mul
+_gcd_clone_patch_sources $S,{arg0($2,1,0.5,0)}
++_gcd_clone_draw_inpaint_patches.. .,$S
+split_opacity[0]
+if $4
+neq[1] 0 rv[1,-1] _gcd_clone_inner_blend[0,1,-1] k[0] c 0,255
+else
+eq[1] 0 j[0] .,0,0,0,0,1,[1] k[0]
+fi
+if $1 transpose fi
+}
+_gcd_clone_patch_sources : skip ${1=20},${2=0.5},${3=2}
+sh 100% => alpha
+4,1,1,1 1,[0],1,1 1,[0],1,1
+eval[alpha] "
+begin(xmin=w#0; xmax=-1; ymin=h#0; ymax=-1);
+if(x==0, L=w#0; R=-1);
+if(i==0,
+xxmax?xmax=R;
+);
+i[#-2,y]=L; i[#-1,y]=R;
+end(i[#-3,0]=xmin;i[#-3,1]=xmax;i[#-3,2]=ymin;i[#-3,3]=ymax;)
+"
+rm[alpha]
+K:=$1*2+1 erode.. $K dilate. $K -.. 1 +. 1
+ymin,ymax:=[i[#-3,2],i[#-3,3]]
+xtopL,xtopR:=[i[#-2,$ymin],i[#-1,$ymin]]
+xbotL,xbotR:=[i[#-2,$ymax],i[#-1,$ymax]]
+f.. "y<$ymin?$xtopL:y>$ymax?$xbotL:i"
+f. "y<$ymin?$xtopR:y>$ymax?$xbotR:i"
+rm[-3] D:=round($1/$3)*2
+{ceil([w#0/$D,h#0/$D,d#0])},1,"
+begin(
+const S=$1; const K=$1*2+1;
+const EL=K-1; const ER=w#0-2-K;
+const D=$D;
+);
+X=x*D; Y=y*D;
+L=i[#1,Y];
+R=i[#2,Y];
+LX=X-L; RX=R-X;
+L>EL&&(LX/(LX+RX)<$2||R>ER)?-LX-S:RX+S;
+"
+rm[1,2]
+_gcd_clone_draw_inpaint_patches : skip ${2=8},${3=2}
+pass$1 0 => points
+repeat $!-1 l[$>,-1] {
+split_opacity[0]
+P:=$2 Q:=round($2/$3) J:=$P*2+1 K:=$Q*2+1 C:=$P-$Q
+$J,$J,1,1 $K,$K,1,1,1 j.. .,$C,$C rm.
+distance. 1 n. 0,1 *. -1 +. 1 f. "i*i*i*(i*(i*6-15)+10)"
+[0] f[0] 0
+eval[points] "
+begin(const S=$2; const K=S*2+1; const D=$Q*2; ref(crop(#-2),M));
+X=x*D; Y=y*D;
+U=i-S+X; V=Y-S;
+ref(crop(#-1,U,V,K,K),patch);
+ref(crop(#1,U,V,K,K),W);
+draw(#0,patch,X-S,Y-S,0,0,K,K,1,s#0,1,M*W);
+"
+rm[1,-2,-1]
+} done rm.
+_gcd_clone_inner_blend :
+dim:=max(w,h)
+[0],[0],[0],[0]
+[1],[1],[1],[1]
+[2],[2],[2],[2]
+repeat 12 {
+K:=round($dim/2^$>)
+if $K<=1 break fi
+j[-3] [0] j[-2] [1] j[-1] [2]
+l[-3] { +neq 0 boxfilter $K +eq. 0 +[-2,-1] /[0,-1] }
+l[-2] { +neq 0 boxfilter $K +eq. 0 +[-2,-1] /[0,-1] }
+dilate. $K neq. [2] *.. -1 +.. [1] +.. ...
+j[0] ..,0,0,0,0,1,.
+}
+gcd_ebwarp : skip ${1=0.5},${2=1}
+repeat $! l[$>]
+b={w*$1*$2} c={w*$2} d={2*$c-4*$b}
+e={(4*$b-$c)/(2*$d)} se={sqr($e)}
+{w},{h},1,1,x
+if $1==0.5 *. {1/$c} else
+/. $d +. $se
+if $1>1 abs. fi
+sqrt.
+if $1>0.5 *. -1 fi
+-. $e
+fi
+*. {w} {w},{h},1,1,y a[^0] c
+warp[0] .,0,2,0 rm. c 0,255
+done done
+gcd_jpeg_smooth : skip ${1=1},${2=1},${3=0}
+repeat $! l[$>]
+if $1 gcd_comp_blur. 2,3,1,100,1 fi
+if $3 r. 140%,140%,1,3,5 c. 0,255 fi
+if $2 gcd_anti_alias. 10,0.3,10 fi
+done done
+gcd_jpeg_smooth_preview :
+gui_split_preview "gcd_jpeg_smooth ${1--2}",$-1
+gcd_layers : skip ${1=100},${2=0},${3=1},${4=50},${5=50},${6=0},${7=0},${8=0},${9=1},${10=1},${11=0},${12=0},${13=0}
+one={$!<2}
+l[${arg\ 1+$one,0-1,0}]
+if $3" && "!$one" && "$1>100 r2dx. {w/$1%},{if($-1,2,6)} c. 0,255 fi
+w={w} h={h} gcd_force_a[0]
+l[0]
+if $11 mirror ${arg\ $11,x,y,xy} fi
+if !$3" || "$one" || "$1<100 r2dx {w*$1%},{if($-1,2,6)} c 0,255 fi
+if $2 split_opacity rotate. $2,{2-($-1)} rotate.. $2,{2-($-1)},1 a c c 0,255 fi
+if $6" || "$7
+sh 100% +gt. 1 expand_xy. 1,0 distance. 0 gt. {1+$6}% shrink_xy. 1
+*. .. if $8" && "$7 pde_flow. $7,30,iee,0 max. 0 fi min[-2,-1] rm.
+fi
+if !$8" && "$7 sh 100% b. {$7/10}%,1,{!$-1} rm. fi
+done
+pos={round(($w-w#0)/2+$w*$4%)},{round(($h-h#0)/2-$h*$5%)} # ** POSITION
+if $-1" || "$12 i[0] $w,$h,1,{0,s} j[0] [1],$pos rm[1] pos=,pos(0,0)
+else pos=,pos($pos) fi
+mode=${arg\ 1+$10,alpha,add,burn,darken,difference,divide,dodge,grainextract,grainmerge,hardlight,hue,lighten,multiply,overlay,saturation,softlight,screen,subtract,value}
+if $-1 if $!>1 rv blend $mode,$9 else sh 100% *. $9 rm. fi
+else =>[0] mode($mode),opacity({$9*100})$pos fi
+done
+gcd_layers_preview :
+gcd_layers $*,1
+gcd_balance_lms : skip ${1=1},${2=1},${3=1},${4=0},${5=0},${6=0}
+repeat $! l[$>] split_opacity l[0]
+if $5 s c n 0,255 a c fi srgb2rgb rgb2xyz 1
+mix_channels (0.7328,0.4296,-0.1624;-0.7036,1.6975,0.0061;0.0030,0.0136,0.9834)
+if $6
+m={[im,iM]} +r 1,1,1,100%,2 +n.. 0.002,0.998 log. gm={ia} +r. 1,1,1,100%,2
+repeat s#2 sh[2] $> *. {$gm/i[#3,$>]} rm. done
+rm. exp. n. $m r. 1,1,1,100%,2 /[-2,-1]
+else (1^1^1) fi
+($1^$2^$3) n={L=$4?[0.454369,0.473533,0.072098]:[1,1,1];dot(L,I#1)/dot(L,I#2)}
+repeat s#1 sh[0] $> *. {$n*i[#2,$>]/i[#1,$>]} rm. done k[0]
+mix_channels (1.096124,-0.278869,0.182745;0.454369,0.473533,0.072098;-0.009628,-0.005698,1.015326)
+xyz2rgb 1 rgb2srgb
+done a c done done
+gcd_fx_local_fmean : skip ${1=15},${2=0},${3=0},${4=5},${5=0}
+mode=${arg\ 1+$4,hsi_i,hsv_v,lab_l,lrgb,rgb,gcd_luminance,ycbcr_y}
+if $5 ac "r={[im,iM]} n 0.002,0.998 gcd_fmean_local $1%,{$3-1},$2 n $r",$mode,2
+else ac "/ 255 gcd_fmean_local $1%,{$3-1},$2 * 255",$mode,1
+fi u "{$1}{$2}_"{2-($3>1" && "$5==1)}"{$3}{$4}{$5}"
+#@cli gcd_fmean_local : std_deviation>=0[%],-1<=_mean_type<=2,_target>=0
+#@cli : Map local f-mean to match global or target.
+#@cli : Value range is assumed to be 0 <= input <= 1.
+#@cli : When target is zero, it will be set to the global f-mean.
+#@cli : Default values: 'std_deviation=1', '_mean_type=0' and '_target=0'.
+#@cli : $ image.jpg n 0,1 gcd_fmean_local 1%
+gcd_fmean_local : check "${1=1}>=0 && isint(${2=0}) && $2>=-1 && $2<=2 && ${3=0}>=0"
+e[^-1] "Map local f-mean of image$?."
+func=${arg\ 2+$2,hmean,gmean,mean,qmean}
+_gcd_$func m _gcd_func:$_gcd_f m _gcd_finv:$_gcd_i
+repeat $! l[$>]
++neq. 0 +eq. 0 +[0] . zs={is} b. $1 *. .. *. -1 +. 1 ($3)
+_gcd_func[0,-1] *[0] [1]
+d={0,$3==0?is/(whds-$zs):i#-1} rm. # d = global(f(X))
++b[0] $1 +eq. 0 +[-2,-1] /[-2,-1]
+*[0] $d *[0,-1]
+_gcd_finv[0] *
+done done
+uncommand _gcd_func,_gcd_finv
+_gcd_qmean : _gcd_f="sqr" _gcd_i="sqrt"
+_gcd_mean : _gcd_f="skip 0" _gcd_i="skip 0"
+_gcd_gmean : _gcd_f="log" _gcd_i="exp"
+_gcd_hmean : _gcd_f="^ -1 - 1" _gcd_i="+ 1 ^ -1"
+_ac_gcd_luminance :
+_p="to_color"
+_f="srgb2rgb rgb2xyz8 sh 1 a c"
+_b="s c,{1-s} sh.. 1 +eq. 0 +[-2,-1] /[-2,-1] * xyz82rgb rgb2srgb"
+_s=3
+tran_multi_threshold : skip ${1=50},${2=100},${3=150},${4=200}
+repeat $! l[$>]
+split_opacity +rgb2ycbcr[0] channels. 0 fc[0] ${5-7}
++fc[0] ${8-10} +ge.. $1 j[0] ..,0,0,0,0,1,. rm[-2,-1]
++fc[0] ${11-13} +ge.. $2 j[0] ..,0,0,0,0,1,. rm[-2,-1]
++fc[0] ${14-16} +ge.. $3 j[0] ..,0,0,0,0,1,. rm[-2,-1]
++fc[0] ${17-19} +ge.. $4 j[0] ..,0,0,0,0,1,. rm[-2,-1]
+rm. a c
+done done
+gcd_normalize_brightness : skip ${1=0},${2=10},${3=0},${4=3},${5=0},${6=0}
+mode=${arg\ 1+$4,hsi_i,hsv_v,lab_l,ycbcr_y,rgb}
+if $3>0 bilateral 1%,$3 c 0,255 fi
+if $5==0 ac "gcd_tonemap_area $2,$1,$6",$mode,2
+else +ac "gcd_tonemap_area $2,$1,$6",$mode,2 blend ${arg\ $5,darken,lighten} fi
+gcd_tonemap_area : skip ${1=100},${2=0},${3=0}
+repeat $! l[$>]
++ 0.5 m={iM+1} / $m
+if $3 a={$2/4.001+0.5} else +^. $2 a={is} rm. +^. {$2-1} a={$a/is} rm. fi
+H={1/$a-1} +oneminus /. .. b. $1% ^. -1 *. $H
++oneminus. *. [0] +[-2,-1] / * $m - 0.5
+done done
+gcd_pqct :
+repeat $! l[$>]
+({w*.1},{h*.2};{w*.2},{h*.6};{w*.2},{h*.9};{w*.5},{h*.1};{w*.6},{h*.8};{w*.9},0;{w*.85},{h*.4};{w},{h*.75})
+transpose. 9,2,1,1
+repeat 2
+sh[2] $>,$>,0,0 sh[1] $>,$>,0,0
+k={"k=(i[1]+i[3]+i[4]+i[6])/4; i(#-2,0)=k;
+i(#-2,1)=(i[6]-i[1])/2; i(#-2,2)=(i[3]-i[4])/2;
+i(#-2,3)=(i[6]+i[1])/2-k; i(#-2,4)=(i[3]+i[4])/2-k;
+i(#-2,5)=(i[2]+i[5]-i[0]-i[7])/4;
+i(#-2,6)=(i[0]+i[5]-i[2]-i[7])/4+(i[4]-i[3])/2;
+i(#-2,7)=(i[5]+i[7]-i[0]-i[2])/4+(i[1]-i[6])/2;
+i(#-2,8)=(i[0]+i[2]+i[5]+i[7])/4-k;0"}
+rm[-2,-1]
+done
++f[0] 0 r. 100%,100%,1,2,-1 sh[0] 0
+f. "begin(cx0=i(#2,0);cx1=i(#2,1);cx2=i(#2,2);cx3=i(#2,3);
+cx4=i(#2,4);cx5=i(#2,5);cx6=i(#2,6);cx7=i(#2,7);cx8=i(#2,8);
+cy0=i(#2,0,1);cy1=i(#2,1,1);cy2=i(#2,2,1);cy3=i(#2,3,1);
+cy4=i(#2,4,1);cy5=i(#2,5,1);cy6=i(#2,6,1);cy7=i(#2,7,1);cy8=i(#2,8,1));
+s=(2*x/w-1); t=-(2*y/h-1); s2=s*s; t2=t*t;
+i(#3,x,y,0,0)=cx8*s2*t2+cx7*s*t2+cx6*s2*t+cx5*s*t+cx4*t2+cx3*s2+cx2*t+cx1*s+cx0;
+i(#3,x,y,0,1)=cy8*s2*t2+cy7*s*t2+cy6*s2*t+cy5*s*t+cy4*t2+cy3*s2+cy2*t+cy1*s+cy0; i"
+rm[-4,-3,-1] round. [0],[0],[0],[0] sh[0] 0 px=""
+repeat {0,s} px=$px;i(#2,a,b,0,$>)=i$>#0 done
+f. 'a=i#1;b=i1#1$px' rm. j[0] . k[0]
+done done
+fx_gcd_quicktone : skip ${1=1},${2=4},${3=20},${4=0},${5=3},${6=1}
+mode=${arg\ 1+$5,hsi_i,hsv_v,lab_l,ycbcr_y}
+if $4>0 r={[im,iM]} bilateral 1%,$4 c $r fi
+ac "+gcd_tonemap_gamma $2% +bilateral. $2%,{(iM#0-im#0)*$3/100} -[-2,-1] *. $1 +",$mode,{$6+1}
+#@cli gcd_tonemap_gamma
+#@cli : Map tones by local adjustment of geometric mean.
+gcd_tonemap_gamma : skip ${1=100}
+repeat $! l[$>] m={[im,iM]} n 0.002,0.998 log +b $1 *.. {0,is/whds} / exp n $m done done
+gcd_recol :
+repeat int($!/2) l[$>,{$>+1}]
+rv[-2,-1]
+channels.. 0 to_rgb..
+to_rgba. split_opacity. neq. 0
+srgb2rgb[-3,-2] rgb2lab8[-3,-2] channels... 0 channels.. 1,2
++.. 1 *.. .
++meancurvature_flow... 3 median. 3
+gradient_norm. *. -1 watershed... . rm. -.. 1
+rm. a[-2,-1] c lab82rgb. rgb2srgb.
+rgb2hsv. s c +equalize[2] 512 n. $1,$2 +[0,-1] %[0] 360 a c hsv2rgb.
+done done
+gcd_sharpen_gradient : skip ${1=0.5},${2=2},${3=0}
+repeat $! l[$>]
+split_opacity
++norm[0] +bilateral[0] $2%,30 norm. -[-2,-1]
++gradient_norm[0] negate. n. 0,$1 *[-2,-1] +[0,-1]
+if $3 ac[0] "n 0,255",ycbcr_y else c[0] 0,255 fi
+a c
+done done
+gcd_sharpen_gradient_preview :
+gui_split_preview "gcd_sharpen_gradient ${1--2}",$-1
+gcd_sharpen_tones : skip ${1=1},${2=128},${3=0}
+repeat $! l[$>]
+split_opacity
++norm[0] +bilateral[0] 2%,30 norm. -[-2,-1]
++gradient_norm[0] n. 0,1 oneminus. *[-2,-1]
++n[0] 0,255 median. 3 bilateral. 2%,30
+gcd_srgb2luma. -. $2
++max. 0 min.. 0 abs..
+n[-2,-1] 0,$1 *[-2,-1] ... rm... +[0,-2,-1]
+if $3 ac[0] "n 0,255",ycbcr_y else c[0] 0,255 fi
+a c
+done done
+gcd_sharpen_tones_preview :
+gui_split_preview "gcd_sharpen_tones ${1--2}",$-1
+gcd_simple_dehaze : skip ${1=0.75},${2=1},${3=0.75}
+foreach {
+split_opacity
+l[0] {
+srgb2rgb div 255
++gcd_erode_vw $3% compose_channels. min => msk
++mul[msk] $1 sub[0,-1] max[0] 0 mul[0] $2
+mul[msk] -$2 add[msk] 1 max[msk] 0
++eq[msk] 0 add[msk,-1]
++compose_channels[0] max
+max[msk,-1] div[0,msk]
+mul 255 rgb2srgb
+}
+a c
+}
+#@cli gcd_erode_vw : size>=0[%],_tolerance>=0
+#@cli : Filter selected images by variance weighted erosion of specified size.
+#@cli : Default values: 'size=3' and 'tolerance=1e-6'.
+#@cli : $ image.jpg gcd_erode_vw 5
+gcd_erode_vw : skip ${1=3},${2=1e-6}
+foreach {
+C,R:=H=iM-im;[H/2+im,H] - $C / $R
++sqr boxfilter $1 +sqr.. -[-2,-1]
+++. $2 sqrt. -[0,-1] r. 100%,100%,100%,1,2
+max. $2 ^. -1 *[0] . boxfilter $1 +eq. 0 +[-2,-1] /
+c -0.5,0.5 * $R + $C
+}
+#@cli gcd_dilate_vw : size>=0[%],_tolerance>=0
+#@cli : Filter selected images by variance weighted dilation of specified size.
+#@cli : Default values: 'size=3' and 'tolerance=1e-6'.
+#@cli : $ image.jpg gcd_dilate_vw 5
+gcd_dilate_vw : skip ${1=3},${2=1e-6}
+foreach {
+C,R:=H=iM-im;[H/2+im,H] - $C / $R
++sqr boxfilter $1 +sqr.. -[-2,-1]
+++. $2 sqrt. +[0,-1] r. 100%,100%,100%,1,2
+max. $2 ^. -1 *[0] . boxfilter $1 +eq. 0 +[-2,-1] /
+c -0.5,0.5 * $R + $C
+}
+gcd_srotate : skip ${1=0},${2=50},${3=50},${4=1},${5=1},${6=6},${7=0.6},${8=0}
+repeat $! l[$>]
+rotate $1,{$4+1},1,$2%,$3% c 0,255 split_opacity
+l[0]
+{w},{h},1,1,1 rotate. $1,0,0,$2%,$3%
+eq. 0 +area. 0 *. ..
+ps={max(round(iM^0.5/6),4)} rm.
+if $8
++inpaint[0] .,$ps,{$ps*$6},$7,{9-$5*2},{$ps*1.2},0,0.08
+rv[-2,-1] a[-2,-1] c blend_seamless 0,0,25%
+else
+inpaint[0] .,$ps,{$ps*$6},$7,{9-$5*2},{$ps*1.2},0,0.08 rm.
+fi
+done a c
+done done
+fx_gcd_geometric_median :
+ac "gcd_geometric_median $1,$2",$3
+fx_gcd_geometric_median_preview :
+gui_split_preview "fx_gcd_geometric_median $*",${-3--1}
+gcd_splitobj : skip ${1=50},${2=3},${3=3},${4=0},${5=0},${6=0},${7=40},${8=0},${9=0}
+if $!<2 return fi
+repeat int($!/2) l[$>,{$>+1}]
+if w!={0,w}" || "h!={0,h} continue fi
+to_rgba . s[1] c,-3 ge[2] $1% luminance[1]
+meancurvature_flow[1] $2 median[1] $3 *[1,2]
+channels[0] 0,1 s[0] c gt[0,1] 50% *[{$4!=0}] 2 +[0,1]
+gradient_norm[1] *[1] -1 watershed[0] [1] -[0] 1 rm[1]
+if $5>0 erode[0] $5 elif $5<0 dilate[0] {abs($5)} fi
+if $6 b[0] $6,1,1 c[0] 0,1 fi
+[1] sh. 3,3 *. [0] rm. oneminus[0]
+if $8>0
+le[0] 80% +area[0] 0 *. [0]
+ps={max(round(iM^0.5/6),4)} rm. n[0] 0,255
+inpaint[1] [0],$ps,{$ps*6},1,{9-$8*2},{$ps*1.2},0,0.08,10,1
+else sh[1] 3,3 *. [0] rm. fi
+rm[0] gcd_fix_alpha =>[1] opacity($7)
+if $9 blend alpha,{$7/100} fi
+done done
+gcd_splitobj_preview :
+gcd_splitobj ${1--2},1
+gcd_stereo_vid :
+1 l.
+i "$1" st_folder={f} st_file={b} st_ext={x} ({'$st_file'}) cpx={w}
+do cpx={$cpx-1} dgt={i($cpx)} isnum={($dgt>47)&&($dgt<58)} while ($isnum)&&($cpx>0)
+if $cpx>0 +z. 0,$cpx fsname={t} rm. else fsname="" fi
+z. {$cpx+{!$isnum}},100% dgts={w} fsnum={{t}} rm.
+1 => "$2" en_file={b} ({'$en_file'}) cpx={w}
+do cpx={$cpx-1} dgt={i($cpx)} isnum={($dgt>47)&&($dgt<58)} while ($isnum)&&($cpx>0)
+z. {$cpx+{!$isnum}},100% fenum={{t}} rm[-2,-1]
+bufsz=$11 ttlbuf={$bufsz*2} ttlimg={$fenum-$fsnum+1}
+scene=1 scframe=0 ov={iv} oa={ia}
+repeat $ttlimg
+if $scene" && "$>==$scframe
+k. scene=0
+repeat min($ttlbuf,$ttlimg-$scframe-1)
+curnum={$fsnum+$scframe+$>+1} curnum=${gcd_add0\ $curnum,$dgts}
+i ""${st_folder}${fsname}${curnum}.${st_ext}""
+vr={iv} av={ia} pvr={abs($vr-$ov)/$vr} pav={abs($av-$oa)/$av}
+ov=$vr oa=$av
+if $12&&($pvr>0.1" || "$pav>0.1) scene=1 scframe={$scframe+$>+1} break
+fi
+done
++l[0--{1+$scene}] ap "gcd_depth $7,$8,$9,$10" ++[0--1] a[0--2] z done
+mv. 0 mv. 1 a[2--{1+$scene}] z
+fi
++slices[2] 0 +/[0] {1,d} gcd_stereo[-2,-1] $4,$5,$6%
+curnum={$fsnum+$>} curnum=${gcd_add0\ $curnum,$dgts}
+if ${-is_windows} o. "$3"""{`92`}${fsname}${curnum}.${st_ext}""
+else o. "$3"""{`47`}${fsname}${curnum}.${st_ext}"" fi
+progress {($>+1)/$ttlimg*100}
+rm. slices[2] 1,100%
+if !$scene" && "($>>=($scframe+$bufsz))" && "($><($ttlimg-$bufsz-1))
+curnum={$fsnum+$>+$bufsz+1} curnum=${gcd_add0\ $curnum,$dgts}
+i ""${st_folder}${fsname}${curnum}.${st_ext}""
+vr={iv} av={ia} pvr={abs($vr-$ov)/$vr} pav={abs($av-$oa)/$av}
+ov=$vr oa=$av
+if $12&&($pvr>0.1" || "$pav>0.1) scene=1 scframe={$>+$bufsz+1}
+else
++gcd_depth. $7,$8,$9,$10 +[0] . a[1,-1] z a[2,-1] z
++slices[1] 0 -[0,-1] slices[1] 1,100%
+fi
+fi
+done
+rm
+done
+gcd_stereo_vid_preview : skip "${1=}","${2=}"
+l i "$1" onfail 100,100,1,3,0 t. "Select\nStart\nImage ",0,0,32,1,255 done
+l i "$2" onfail 100,100,1,3,0 t. "Select\nEnd\nImage ",0,0,32,1,255 done
+k[-2,-1] a[0,1] x to_rgb[0] +gcd_depth. $7,$8,$9,$10 gcd_stereo $4,$5,$6%
+gcd_add0 :
+({'"$1"'}) if w<$2 {$2-w},1,1,1,48 rv[-2,-1] a[-2,-1] x fi u {t} rm.
+fx_gcd_color_target :
+foreach {
+split_opacity
+src:=I(#0,$1/100*w#0,$2/100*h#0)
++gcd_srgb_curve_target[0] $3,$4,$5,$src
+if $6
++_gcd_chromacity_distance[0] $src *. -1 +. 1
+if $6>1 pow. 3 fi
+j[0] ..,0,0,0,0,1,. rm[-2,-1]
+else j[0] . rm. fi
+a c
+}
+_gcd_chromacity_distance :
+if ${"is_image_arg $1"} pass$1 1 else i 1,1,1,3,${^0} fi
++mix_channels. (0,0.5,0.5;0.5,0,0.5;0.5,0.5,0) -[-2,-1] store. cmp
+foreach {
++mix_channels (0,0.5,0.5;0.5,0,0.5;0.5,0.5,0)
+- i $cmp repeat {0,s} { sh[0] $> -. {-2,i[$>]} rm. } rm.
+sqr r 100%,100%,100%,1,2 sqrt n 0,1
+}
+#@cli gcd_srgb_curve_target : colRt,colGt,colBt,colRs,colGs,colBs
+#@cli : Make source sRGB values match target using color curves.
+#@cli : Default values: 'colN=128'.
+#@cli : $ image.jpg gcd_srgb_curve_target 100,130,160
+gcd_srgb_curve_target : skip ${1=128},${2=128},${3=128},${4=128},${5=128},${6=128}
+e[^-1] "Apply curves changing ($4,$5,$6) to ($1,$2,$3) for image$?."
+foreach {
+m={iM} repeat {0,s} { sh $> n. 0,$m rm. }
+($4^$5^$6) ($1^$2^$3)
+mix_channels (0,0.5,0.5;0.5,0,0.5;0.5,0.5,0)
+srgb2rgb / $m +*[1,2] -[1,2] . rm. /[1,2]
+repeat {0,s} { A:=i[$>] sh[0] $> +*. {1-$A} +. $A /[-2,-1] rm. }
+k[0] * $m rgb2srgb
+mix_channels (-1,1,1;1,-1,1;1,1,-1) c 0,$m
+}
+gcd_temp_balance : skip ${1=0},${2=0},${3=1},${4=0}
+repeat $! l[$>]
+split_opacity to_rgb[0] +gcd_srgb2luma[0]
+if $4<2
+m={if($4,360,90)} $m,1,1,1 +r[0] 32,32,100%,100%,2
+repeat $m +gcd_hue_level. $> =... {ia},$> rm. done
+rm. h={xM} rm.
+else h=39 fi
+if $2!=0
++l[0] sh[0] 0 sh[0] 1 sh[0] 2
+({$h%360}^1^1) hsv2rgb. max. 0 *. $2 -. {ia}
++[-4] {@0} +... {@1} +.. {@2} rm[-4--1] max[0] 0
+done
++compose_channels[0] max n. 0,1
+j[0] ..,0,0,0,0,1,. rm[-2,-1]
+fi
+gcd_hue_chroma[0] $h,{($1+1)*$3},$3
+gcd_srgb2jpeg[0] j[0] . rm.
+gcd_jpeg2srgb[0] round 1 a c c 0,255
+done done
+gcd_hue_level : skip ${1=0}
+repeat $! l[$>]
+h={($1%360)/60} x={1-abs($h%2-1)} y={if($x>0,1/$x,0)} h={int($h)+1}
+p={arg($h,0,1,1,2,2,0)} s={arg($h,1,0,2,1,0,2)} z={arg($h,2,2,0,0,1,1)}
+sh. $p sh.. $s +*.. $x
++le. .. j... ..,0,0,0,0,1,. rm..
+eq. 0 +*.. $y j[-4] .,0,0,0,0,1,..
+rm[-4--1] sh. $z f. 0 rm.
+done done
+fx_gcd_color_spot_matching : skip ${1=50},${2=50},${3=50},${4=60},${5=1},${6=0},${7=0}
+if 2!=$! error "This filter requires two input layers to function" fi
+if $7 rv fi
+l[0,1] {
+if $6>1
+x0:=$3/100*w#0 y0:=$4/100*h#0
+x1:=$1/100*w#1 y1:=$2/100*h#1
+elif $6>0
+p:=(w#0+w#1) q:=max(h#0,h#1)
+x0:=min($3/100*$p,w#0) y0:=min($4/100*$q,h#0)
+x1:=max($1/100*$p-w#0,0) y1:=min($2/100*$q,h#1)
+else
+p:=max(w#0,w#1) q:=(h#0+h#1)
+x0:=min($3/100*$p,w#0) y0:=min($4/100*$q,h#0)
+x1:=min($1/100*$p,w#1) y1:=max($2/100*$q-h#0,0)
+fi
+to_a =>[0] T =>[1] S split_opacity
+l[T,S] {
+trg:=I(#0,$x0,$y0) src:=I(#1,$x1,$y1)
++gcd_srgb_curve_target[0] $src,$trg
+if $5
++_gcd_chromacity_distance[0] $trg *. -1 +. 1
+if $5>1 pow. 3 fi
+j[0] ..,0,0,0,0,1,. rm[-2,-1]
+else j[0] . rm. fi
+}
+a[0,1] c a[-2,-1] c
+}
+fx_gcd_color_spot_matching_preview :
+fx_gcd_color_spot_matching $*
+if $6>1 rv blend alpha elif $6>0 a x else a y fi
+fx_gcd_undo_unsharp : skip ${1=3},${2=0.5},${3=1}
+repeat $! l[$>]
+split_opacity gcd_reverse_unsharp[0] ${1-3} a c
+done done
+fx_gcd_undo_unsharp_preview :
+gui_split_preview "fx_gcd_undo_unsharp ${1-3}",${-3--1}
+#@cli gcd_reverse_unsharp : std_deviation>=0[%],_amount>0,_type
+#@cli : Apply a reverse unsharp mask to selected images.
+#@cli : Values will be restricted to input image range.
+#@cli : 'type' can be { 0=boxfilter | 1=gaussian }.
+#@cli : Default values: 'std_deviation=3', 'amount=1' and 'type=1'.
+#@cli : $ image.jpg unsharp 2,3 c 0,255 +gcd_reverse_unsharp 2,3 c 0,255
+gcd_reverse_unsharp : skip ${1=3},${2=1},${3=1}
+e[^-1] "Apply reverse unsharp on image$?, with std_deviation $1."
+repeat $! l[$>]
+if $3 cmd=b else cmd=boxfilter fi
+m={[im,iM]} +$cmd $1 mul. $2 add div {1+$2} c $m
+done done
+gcd_unquantize : skip ${1=6},${2=1},${3=1},${4=5},${5=15}
+repeat $! l[$>]
+gcd_srgb2jpeg s c
+if $1>0
++edges[0] 14.5% n. {1-$2},1
+if $3" && "$!>2
+a[1,2] c +apo[1] "median 5",3
+j[1] .,0,0,0,0,1,.. rm.
+fi
+{w},{h},1,1,0 grid. 8,8,0,0,1,1 grid. 8,8,-1,-1,1,1
+b. 1,0 *[-2,-1] n. 0,1 +pde_flow[0] $1,30,iee,0
+j[0] .,0,0,0,0,1,.. rm[-2,-1]
+fi
+if $4>0
++median[0] 3 -. [0]
+abs. ge. $5
+dilate. 3 n. 0,1
++apo[0] "pde_flow "$4",7,iee,0",8
+j[0] .,0,0,0,0,1,.. rm[-2,-1]
+fi
+a c gcd_jpeg2srgb c 0,255
+done done
+fx_gcd_upscale_edge : skip ${1=1},${2=1},${3=1},${4=1}
+mx={[im,iM]}
+gcd_upscale_edge {$1==0?$2:$1+1},$3
+if $4==1 c $mx elif $4==2 n $mx fi
+u "{$1}{$2}_"{2*($1==0)}"{$3}{$4}"
+fx_gcd_upscale_edge_preview :
+A,B={P=0.5/($1==0?$2:$1+1);[-P,P]*100+50}
+z $A%,$A%,$B%,$B% fx_gcd_upscale_edge $*
+#@cli gcd_upscale_edge : factor>=1,_interpolation={ 0=linear | 1=bicubic }
+#@cli : Upscale selected images with an edge-sharpening algorithm.
+#@cli : Default values: 'factor=2' and 'interpolation=0'.
+#@cli : $ image.jpg gcd_upscale_edge 2
+gcd_upscale_edge : skip ${1=2},${2=0}
+e[^-1] "Upscale image$? by a factor of $1."
+t={arg0($2,3,5)}
+repeat $! l[$>]
+nw,nh,ms,bs={[w,h,1.75,1.5]*$1}
++r $nw,$nh,100%,100%,$t
+gcd_smooth_variance. $ms
++ri. [0],2 -[0,-1] ri[0] .
+boxfilter.. $bs +
+done done
+#@cli gcd_resize_vw : width[%],_height[%],_depth[%]
+#@cli : Resize selected images with variance weighted bilinear interpolation.
+#@cli : Default values: 'height=100%' and 'depth=100%'.
+#@cli : $ image.jpg r2dx 25%,2 +gcd_resize_vw 400%,400%
+gcd_resize_vw : skip ${2=100%},${3=100%}
+e[^-1] "Resize image$? to $1x$2x$3, with variance weighted bilinear interpolation."
+repeat $! l[$>]
+if d==1
+(0.0625,0.125,0.0625;0.125,0.25,0.125;0.0625,0.125,0.0625)
+else
+(0.015625,0.03125,0.015625;0.03125,0.0625,0.03125;0.015625,0.03125,0.015625/0.03125,0.0625,0.03125;0.0625,0.125,0.0625;0.03125,0.0625,0.03125/0.015625,0.03125,0.015625;0.03125,0.0625,0.03125;0.015625,0.03125,0.015625)
+fi
+[0]x2 sqr.. convolve[-2,-1] [1] rm[1] sqr. -[-2,-1] max. 0
+compose_channels. + /. 3 +. 1e-6 ^. -1
+*.. . r $1,$2,$3,100%,3 /
+done done
+#@cli gcd_resize_vw_aligned : width[%],_height[%],_depth[%]
+#@cli : Resize selected images with pixel aligned variance weighted bilinear interpolation.
+#@cli : Default values: 'height=100%' and 'depth=100%'.
+#@cli : $ image.jpg r2dx 25%,2 +gcd_resize_vw_aligned 400%,400%
+gcd_resize_vw_aligned : skip ${2=100%},${3=100%}
+e[^-1] "Resize image$? to $1x$2x$3, with variance weighted bilinear interpolation."
+repeat $! l[$>]
+if d==1
+(0.0625,0.125,0.0625;0.125,0.25,0.125;0.0625,0.125,0.0625)
+else
+(0.015625,0.03125,0.015625;0.03125,0.0625,0.03125;0.015625,0.03125,0.015625/0.03125,0.0625,0.03125;0.0625,0.125,0.0625;0.03125,0.0625,0.03125/0.015625,0.03125,0.015625;0.03125,0.0625,0.03125;0.015625,0.03125,0.015625)
+fi
+[0]x2 sqr.. convolve[-2,-1] [1] rm[1] sqr. -[-2,-1] max. 0
+compose_channels. + /. 3 +. 1e-6 ^. -1
+*.. . gcd_resize_aligned $1,$2,$3 /
+done done
+#@cli gcd_resize_aligned : width[%],_height[%],_depth[%]
+#@cli : Resize selected images with pixel aligned bilinear interpolation.
+#@cli : Default values: 'height=100%' and 'depth=100%'.
+#@cli : $ image.jpg +gcd_resize_aligned 400%,400% r2dx 25%,2
+gcd_resize_aligned : skip ${2=100%},${3=100%}
+e[^-1] "Resize image$? to $1x$2x$3, with bilinear interpolation."
+foreach {
+$1,$2,$3,3,"[w#0*(x+0.5)/w-0.5,h#0*(y+0.5)/h-0.5,d#0*(z+0.5)/d-0.5]"
+warp.. .,0 rm.
+}
+#@cli gcd_smooth_variance : size>=0[%],_tolerance>=0
+#@cli : Filter selected images by variance smoothing of specified size.
+#@cli : Default values: 'size=3' and 'tolerance=1e-6'.
+#@cli : $ image.jpg gcd_smooth_variance 5
+gcd_smooth_variance : skip ${1=3},${2=1e-6}
+e[^-1] "Apply variance smoothing to image$?."
+foreach {
+C,R:=H=iM-im;[H/2+im,H] - $C / $R
+[0]x2 sqr.. boxfilter[1,2] $1
+sqr. sub[-2,-1] r. 100%,100%,100%,1,2
+max. $2 ^. -1 *[0] .
+boxfilter $1 +eq. 0 +[-2,-1] /
+c -0.5,0.5 * $R + $C
+}
+gcd_upscale_noise : skip ${1=16},${2=2}
+gcd_scale_noise $1,$2 c 0,255
+gcd_upscale_noise_preview :
+z 25%,25%,75%,75% gcd_upscale_noise $*
+gcd_scale_noise : skip ${1=16},${2=2}
+repeat $! l[$>]
+200%,200%,100%,100% gcd_random. $1
+repeat $2 +ri. ..,2 -. [0] ri. .. boxfilter. 3 -[1,2] done rm..
+done done
+gcd_random : skip ${1=1},"${2=?}"
+f u if isnum("$2") n $1,$2 else n 0,$1 fi
+fx_gcd_upscale_recursive2x : skip ${1=4},${2=0.05},${3=0.01}
+foreach {
+split_opacity
+gcd_upscale_recursive2x[0] {[$1,1-$2,0.25,round(1/log(1+$3))]}
+if $!>1
+(0.0625,0.125,0.0625;0.125,0.25,0.125;0.0625,0.125,0.0625)
+r[1] 200%,200%,100%,100%,1 convolve[1] . rm. a c
+fi
+}
+fx_gcd_upscale_recursive2x_preview :
+fx_gcd_upscale_recursive2x 1,${2--1}
+#@cli gcd_upscale_recursive2x : search_size>0,0<=_sharpening<=1,0<=_smoothing<=1,_noise_divisor>0
+#@cli : Double image size using processed recursive expansion.
+#@cli : Default values: 'search_size=4', 'sharpening=0.9', 'smoothing=0.25' and 'noise_divisor=100'.
+#@cli : $ image.jpg gcd_upscale_recursive2x 4
+gcd_upscale_recursive2x : skip ${1=4},${2=0.95},${3=0.25},${4=100}
+e[^-1] "Double xy-dimensions of image$?, using Recursive2x algorithm."
+foreach {
+m={0,[im,iM]} =>[0] small
+wh:=[w,h]*2 r {[w+w%2,h+h%2]},100%,100%,0,1
+gcd_midrange_exponent $2 c $m
++gcd_proximity_ssu2x[0] $1 => large
+gcd_box_texture[large] 2,$3
++gcd_random[large] {X=iM-im;[-X,X]/$4} +[large,-1]
++ri[large] [small],2 sub. [small] ri. [large]
+(0.0625,0.125,0.0625;0.125,0.25,0.125;0.0625,0.125,0.0625)
+convolve.. . rm. sub[large,-1]
+rm[small] c[large] $m mv[large] 0
+r $wh,100%,100%,0
+}
+#@cli gcd_proximity_ssu2x : search_size>0
+#@cli : Double image size using self-similar upscaling.
+#@cli : Default values: 'search_size=4'.
+#@cli : $ image.jpg gcd_proximity_ssu2x 4
+gcd_proximity_ssu2x : skip ${1=4}
+e[^-1] "Double xy-dimensions of image$?, using ssu2x algorithm."
+foreach {
+[0],[0],[0],2
++r2dx[0] 50%,2
+if $1>0
+K:=$1*2+1
+$K,$K,1,2,"X=[x,y]-$1;sign(X)*X*X"
+s. c y[-2,-1] x
+eval[0] ":
+begin(
+const boundary=0;
+const interpolation=0;
+L=crop(#-2);
+M=crop(#-1);
+const S=w#-1;
+);
+X=floor(x/2);
+Y=floor(y/2);
+V=X; W=Y; D=inf;
+P=crop(x-1,y-1,3,3);
+for(K=0,K=0[%],0<=edge_exponent<=1
+#@cli : Edge preserving smooth.
+#@cli : Default values: 'size=3' and 'edge_exponent=0.5'.
+#@cli : $ image.jpg gcd_box_texture 3
+gcd_box_texture : skip ${1=3},${2=0.5}
+e[^-1] "Apply box texture filter of size $1, on image$?."
+foreach {
+[0] +sqr. boxfilter[-2,-1] $1 +sqr.. -[-2,-1]
+max. 0 +eq. 0 +[-2,-1] sqrt. ^. -$2
+j[0] ..,0,0,0,0,1,. k[0]
+}
+fx_gcd_upscale_solver2x : skip ${1=4},${2=0},${3=1},${4=1}
+foreach {
+split_opacity
+if $2 gcd_reverse_unsharp[0] $3,$4 fi
+gcd_upscale_solver2x[0] $1
+if $!>1
+(0.0625,0.125,0.0625;0.125,0.25,0.125;0.0625,0.125,0.0625)
+r[1] 200%,200%,100%,100%,1 convolve[1] . rm. a c
+fi
+}
+fx_gcd_upscale_solver2x_preview :
+fx_gcd_upscale_solver2x 1,${2--1}
+#@cli gcd_upscale_solver2x : _size>=1,_kernels_only={ 0 | 1 }
+#@cli : Double image size using anisotropic kernel solver interpolation.
+#@cli : Default values: 'size=4' and 'kernels_only=0'.
+#@cli : $ image.jpg +gcd_upscale_solver2x 3
+gcd_upscale_solver2x : skip ${1=4},${2=0}
+foreach {
+nm:=n m:=[im,iM]
++z[0] 0,0,{floor([w,h]/2)*2-1} => crop
++r. 50%,50%,100%,100%,2 ri. .. => dnup
+rv[-2,-1]
++r[0] 100%,100%,100%,1,2
+(0,-0.25,-0.25;0.25,0,-0.25;0.25,0.25,0)
++convolve.. . mirror.. x convolve... ..
+rm.. atan2.. . rm.
+/. {pi/2} round. 1 mod. 4 -. {im} D:=iM+1 => dirs
++r[dirs] [crop],[crop],[crop],100%,0 => cdirs
+r[dnup,crop] 100%,100%,100%,1,2
+repeat $D {
+progress {100*$>/$D}
++eq[cdirs] $>
++gcd_solve_kernel[dnup] [crop],$1,[-1]
+rm..
+}
+rm[dnup,crop,cdirs]
+if $2 k[-$D--1] return fi
+i[1] [0] =>[1] small
+r[0,dirs] 200%,200%,100%,100%,1
+i[1] [0] =>[1] target
+repeat $D {
++convolve[0] [-{$<+1}]
++eq[dirs] $>
+j[target] ..,0,0,0,0,1,.
+rm[-2,-1]
+}
+k[small,target]
++ri[target] [small],2 sub. [small]
+ri. [target] sub[target,-1] rm[small]
+k[target] c $m => $nm
+}
+gcd_warpmap : skip ${1=5},${2=0},${3=0},${4=0},${5=0}
+repeat int($!/2) l[$>,{$>+1}]
+if $5 rv fi
+if $4==3 bm=0 i[0] . else bm=$4 fi
+if $2 +gcd_warp[-2,-1] $1,$3 rm... rv[-2,-1] gcd_warp[-2,-1] $2,0,$bm
+else gcd_warp[-2,-1] $1,$3,$bm fi
+if $4==3 rv fi
+done done
+gcd_warp : skip ${1=5},${2=0},${3=0}
+repeat int($!/2) l[$>,{$>+1}]
+wfac={$1%*w} to_rgba[-2,-1] +norm.
+blur_xy. $2%,$2% n. 0,255 g. xy a[-2,-1] c
+*. -1 n. -$wfac,$wfac warp[0] .,1 rm.
+if $3==0 rm. break fi
+if $3==1 blend multiply,1,1 else blend softlight,1,1 fi
+done done
+gcd_wiremap : skip ${1=100},${2=100},${3=0.5},${4=0.5},${5=0}
+dm={$!>1" && "$5%2}
+l[${arg\ 1+$dm,0,0-1}]
+if $dm op=0
+if s==2||s==4 split_opacity. rv[^0] op=1 remove_opacity[0]
+elif {0,s==2||s==4} split_opacity[0] op=1 fi
+else split_opacity op={$!>1} fi
++norm[0] b. $3% n. 0,$2 *. -1 w={w/2} h={h/2}
+r. $1,{round(h/w*$1)},1,3,2 v={w*h} p={(w-1)*h+(h-1)*w} ln={h}
+sh. 0 f. x n. -$w,$w rm.
+sh. 1 f. y n. -$h,$h rm. permute. cxyz y.
+(67.5;73.5;109.5;103.5;51.5;100.5)
+($v;$p)
+{($1-1)*2},$ln,1,1,if(x%2,-1,2) {($1-1)*2},$ln,1,1,"y*$1+round(x/2)"
+a[-2,-1] c permute. cxyz discard. -1
+{($ln-1)*2},$1,1,1,if(x%2,-1,2) {($ln-1)*2},$1,1,1,"round(x/2)*$1+y"
+a[-2,-1] c permute. cxyz discard. -1 a[-2,-1] y
+if $5%2
++r[{$dm?$dm+$op:0}] $1,{0,round(h/w*$1)},1,3,3 +z. 0,0,100%,{h-2}
+permute. cyxz z.. 0,0,{-2,w-2},100% permute.. cxyz y[-2,-1] a[-2,-1] y
+else 1,{$p*3},1,1,255 fi
+if $op
++r[1] $1,{0,round(h/w*$1)},1,1,3 gt. 1 +z. 0,0,100%,{h-2} permute. cyxz
+z.. 0,0,{-2,w-2},100% permute.. cxyz y[-2,-1] a[-2,-1] y rm[1]
+else 1,$p,1,1,1 fi
+mv[-6] -3 a[-6--1] y
+if $5>1
+f[0] 0 to_a[0] sh[0] 100% f. 255
+j3d[0] ..,50%,50%,{$2*$4},1,1,1,0 negate. rm[-2,-1]
+else f[0] 0 j3d[0] .,50%,50%,{$2*$4},1,1,1,0 rm. fi
+done
+gcd_xbr2x :
+repeat $! l[$>] to_rgb[0]
+(-1,-1;0,-1;1,-1;-1,0;0,0;1,0;-1,1;0,1;1,1;-1,-2;0,-2;1,-2;-2,-1;-2,0;-2,1;2,-1;2,0;2,1;-1,2;0,2;1,2)
+pa_=0 pb_=1 pc_=2 pd_=3 pe_=4 pf_=5 pg_=6 ph_=7 pi_=8
+a1_=9 b1_=10 c1_=11 a0_=12 d0_=13 g0_=14
+c4_=15 f4_=16 i4_=17 g5_=18 h5_=19 i5_=20
+e0=21 e1=22 e2=23 e3=24
+($pe_,$pi_,$ph_,$pf_,$pg_,$pc_,$pd_,$pb_,$f4_,$i4_,$h5_,$i5_,$e1,$e2,$e3;$pe_,$pc_,$pf_,$pb_,$pi_,$pa_,$ph_,$pd_,$b1_,$c1_,$f4_,$c4_,$e0,$e3,$e1;$pe_,$pa_,$pb_,$pd_,$pc_,$pg_,$pf_,$ph_,$d0_,$a0_,$b1_,$a1_,$e2,$e1,$e0;$pe_,$pg_,$pd_,$ph_,$pa_,$pi_,$pb_,$pf_,$h5_,$g5_,$d0_,$g0_,$e3,$e0,$e2)
+*[1] -1
+repeat 21 +shift[0] {1,round(i(0,$>))},{1,round(i(1,$>))},0,0,1 done
+[0] [0] [0] [0]
+=>[0] orig mv[0] $! rm[0] =>[0] kern mv[0] $!
+repeat 4
+pe={kern,i(0,$>)} pi={kern,i(1,$>)} ph={kern,i(2,$>)}
+pf={kern,i(3,$>)} pg={kern,i(4,$>)} pc={kern,i(5,$>)}
+pd={kern,i(6,$>)} pb={kern,i(7,$>)} f4={kern,i(8,$>)}
+i4={kern,i(9,$>)} h5={kern,i(10,$>)} i5={kern,i(11,$>)}
+n1={kern,i(12,$>)} n2={kern,i(13,$>)} n3={kern,i(14,$>)}
++gcd_eq[$pe,$pf] +gcd_eq[$pe,$ph] or[-2,-1] eq. 0 => lvl1
++gcd_yuv[$pe,$pc] +gcd_yuv[$pe,$pg] +[-2,-1]
++gcd_yuv[$pi,$h5] +[-2,-1] +gcd_yuv[$pi,$f4] +[-2,-1]
++gcd_yuv[$ph,$pf] *. 4 +[-2,-1]
+=> red
++gcd_yuv[$ph,$pd] +gcd_yuv[$ph,$i5] +[-2,-1]
++gcd_yuv[$pf,$i4] +[-2,-1] +gcd_yuv[$pf,$pb] +[-2,-1]
++gcd_yuv[$pe,$pi] *. 4 +[-2,-1]
+=> blue
++gcd_yuv[$pe,$pf] +gcd_yuv[$pe,$ph] le[-2,-1]
++image[$ph] [$pf],0,0,0,0,1,. => px rm..
++lt[red,blue]
++gcd_neq[$pf,$i4] +gcd_neq[$ph,$i5] and[-2,-1] +gcd_eq[$pe,$pi] and[-2,-1]
++gcd_neq[$pf,$pb] +gcd_neq[$ph,$pd] and[-2,-1] or[-2,-1]
++gcd_eq[$pe,$pg] or[-2,-1] +gcd_eq[$pe,$pc] or[-2,-1]
+and[-2,-1] => lvl2
++gcd_yuv[$pf,$pg] => lver
++gcd_yuv[$ph,$pc] => uver
++*[lver] 2 le. [uver]
++gcd_neq[$pg,$pe] +gcd_neq[$pg,$pd] and[-2,-1]
+and[-2,-1] and. [lvl2] image[$n3] [px],0,0,0,0,1,.
++*[uver] 2 lt. [lver]
++gcd_neq[$pc,$pe] +gcd_neq[$pc,$pb] and[-2,-1]
+and[-2,-1] and. [lvl2] image[$n3] [px],0,0,0,0,1,.
+rm[-2,-1,lver,uver]
+rm[red,blue,lvl1,lvl2,px]
+done
+{orig,w},{orig,h},1,1,1 r2dx. {orig,w*2},4 => msk
+r2dx[orig,$e0,$e1,$e2,$e3] {orig,w*2},1
+image[orig] [$e0],0,0,0,0,1,[msk] shift[msk] 1
+image[orig] [$e1],0,0,0,0,1,[msk] shift[msk] -1,1
+image[orig] [$e2],0,0,0,0,1,[msk] shift[msk] 1
+image[orig] [$e3],0,0,0,0,1,[msk]
+k[orig]
+done done
+gcd_eq : l[-2,-1] -[-2,-1] norm. eq. 0 done
+gcd_neq : l[-2,-1] -[-2,-1] norm. neq. 0 done
+gcd_yuv : l[-2,-1] -[-2,-1] abs. rgb2yuv. abs. s. c *... 48 *.. 7 *. 6 +[-3--1] done
+fx_gb_cfx :
+if $5==1
+noise[0] {$1/1},4
++fx_bwrecolorize 1,1,0,0,0,1,0,5,0,0,0,255,47,106,121,255,209,136,49,255,228,207,191,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,0
+fx_compose_edges 0.9,0.5
+else
+if $4==1
+fx_bwrecolorize 1,1,0,0,0,1,0,6,0,0,0,255,27,25,55,255,137,152,189,255,191,217,228,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,0
++noise[0] {$1/1},4
+compose_interpolation
+else
+if $3==1
+sepia
++fc[0] 0,65,00 to_rgba[0]
+compose_interpolation
+noise[0] {$1/1},4
+compose_grainmerge
+else
+if $2==0
+sepia
++noise[0] $1,4
+compose_grainmerge
+else
+sepia
++fc[0] 0,0,255 to_rgba[0]
+compose_interpolation
+noise[0] {$1/2},4
+compose_grainmerge
+fi
+fi
+fi
+fi
+fx_gb_cfx_preview :
+gui_split_preview "fx_gb_cfx ${1--2}",$-1
+gui_gb_about :
+fx_logo "GB\'s Filters"
+fx_gb_lb :
+spread 3
+heat_flow $1
+dilate_circ $2
+compose_lighten
+fx_gb_lb_preview :
+gui_split_preview "fx_gb_lb ${1--2}",$-1
+fx_gb_pp :
+rv
+gtutor_blur_img :
+l[-2,-1]
+if s>3
+remove_opacity.
+fi
+range={700*$1+700}
+rgb2hsl.
+s. c
+*. $2
+rv[-2,-1]
+negate.
+*. ..
+rv[-3,-1]
+/. 360
+*. {2*pi}
++sin.
+cos..
+a[-4,-3] c
+a[-2,-1] c
+eigen2tensor[-2,-1]
+repeat 3
+smooth.. .,$range
+done
+rm.
+done
+gtutor_blur_img_preview :
+gtutor_blur_img ${^0}
+#@cli colorwheel : _size>0,_cclock={ 0 | 1 },_angle
+#@cli : Generates a square colorwheel in clockface orientation, with zero
+#@cli : degrees on top, corresponding to red, and colors transitioning
+#@cli : clockwise through green (120 degrees) and blue (240 degrees). size:
+#@cli : colorwheel edges, in pixels. cclock, boolean, if true generates a
+#@cli : counterclockwise colorwheel, and angle, degrees, rotates the wheel
+#@cli : clockwise (negative: counterclockwise) from its reference orientation.
+#@cli : Default values: _size=512, _cclock=0, _angle=0
+colorwheel : check ${1=512}>=1 skip ${2=0},${3=0}
+e[^-1] "Input colorwheel $1 pixels square; cclockwise=$2; oriented $3 degrees"
+$1,$1,1,1,'x=x-w/2;y=y-h/2;((1-2*!!$2)*(atan2(y,x)*180/pi+90-$3))%360'
+100%,100%,1,2,1 a[-2,-1] c hsv2rgb. => [colorwheel]
+gtutor_hedcut_preview :
+gui_split_preview "hedcut ${^0}",$-1
+#@cli hedcut : _contrast=0.5, _lumlevel=0.5, _patsmooth=0.5, _patsize=0.0, _patstep=0.5, _patquality=0 (low=0,high=1), _forcegray=1 (no=0,yes=1)
+#@cli : Make a hedcut with a faux intaglio etch pattern. Unless noted, all
+#@cli : arguments are floats that range from 0.0 to 1.0. contrast: larger
+#@cli : values increase contrast. lumlevel: larger values increases
+#@cli : brightness. patsmooth: larger values forces pattern to follow
+#@cli : geometry; lower induces turbulence. patsize: larger values increases
+#@cli : pattern size. patstep: values alter pattern geometry. Adjust to
+#@cli : taste. patquality: Boolean flag. 1=True/On/Yes. Renders oversize for
+#@cli : quality. Longer rendering time and more memory will be required (2
+#@cli : GiB minimum for 3000x3000). forcegray: Boolean
+#@cli : flag. 1=True/On/Yes. RGB input will be forced to single channel
+#@cli : grayscale before processing and returned to RGB after. Output: image
+#@cli : in 0-255 range. Channels match input.
+hedcut : check "${1=0.5}<=1 && $1>=0 && ${2=0.5}<=1 && $2>=0 && ${3=0.5}<=1 && $3>=0 && ${4=0.0}<=1 && $4>=0 && ${5=0.5}<=1 && $5>=0 && isbool(${6=0}) && isbool(${7=1})"
+e[^-1] "Applying faux intaglio etch to selected images. Contrast: "{$1}". Lumenance Level: "$2". Pattern smoothing: "$3". Pattern size: "$4". Pattern stepping: "$5". Quality (low=0,1=high): "$6". Force gray (0=no,1=yes):"$7"."
+con={(9.0^$1)}
+llv={round(20000*(0.5-$2))/100}
+smt={(round((100*(10^$3)/2))/100)+4*$4}
+psz={0.0001*(1+99*(1-$4))}
+del={$psz+round(1000*(10^(-$4-2)))/1000}
+stp={round(2+10*$5)}
+qfc={$6}
+gry={$7}
+tol=30
+spn=0
+repeat $!
+l[$>]
+remove_opacity.
+if $gry
+luminance.
+fi
+s. c
+repeat $!
+l[$>]
+if $qfc
++r2dx. 400%,5
+else
+.
+fi
+spn={(iM-im)/2}
+mv. 0
+_multigrad. $stp,$tol,$smt
+bandpass. {$psz},{$del}
+orientation.
+if $qfc
+r. ..,..,.,.,5,1
+b. {$con},1,1
+else
+b. {$con/4},1,1
+fi
+n[-2,-1] {-$spn},{$spn}
++. ..
+n. -{(iM-im)/2},{(iM-im)/2}
+rm..
+threshold. {$llv}
+if $qfc
+r2dx. 25%,5
+fi
+n. 0,255
+done
+done
+a c
+if $gry
+to_rgb
+fi
+done
+done
+#@cli _multigrad : _stepsize=5 _tolerance=10 _smooth=5
+_multigrad : skip ${1=50},${2=10},${3=5}
+smt=$3
+stp=$1
+tol=$2
+repeat $!
+l[$>]
+b {$smt}
+normalize_local 3,32,4%,2%,1,0,255
+gradient_norm.
+ld={log(iM)}
++. 1e-10
+log.
+/. {$ld}
+cut. 0,1
++ge. $tol%
+if round($smt)
+erode_circ. {round(1.5*$smt)}
+dilate_circ. {round(1.5*$smt)}
+fi
+negate..
+n.. 0,1
++distance. 1,..,0
+rm...
+round. 2
+mod. {1+$stp}
+threshold 90%
++[-2,-1]
+*. -1
++. 1
+done
+done
+#@cli tiletex : _texscale=8 autoangle=-1 _keepimag=0
+#@cli : Renders a tilable texture on selected images, taking polar formatted
+#@cli : (magnitude, phase angle) seed values from pairs of selected,
+#@cli : alternating "Magnitude" and "Angle" images or, if these are constant
+#@cli : black, then from internally generated random values. Unless
+#@cli : 'autoangle' is positive, input images must form "Magnitude" and
+#@cli : "Angle" pairs and each pair must have an equal number of
+#@cli : channels. Produces "real" and "imaginary" output images (But note
+#@cli : _keepimag, below). 'texscale' sets the size of a square window around
+#@cli : the spectral origin where random seeds are set. Larger 'texscales'
+#@cli : settings admit higher frequency coefficients, giving rise to finer
+#@cli : output details. 'texscale' ranges from 1 upward and defaults to 8. It
+#@cli : is ignored if the user has preset coefficients within the input
+#@cli : images. Setting 'autoangle' to a positive value in the range [0, 255]
+#@cli : eliminates the need for providing "Angle" input images. The provided
+#@cli : argument is applied as a default phase angle to all "Magnitude" data
+#@cli : and input images are taken to be "Magnitude" data only. 'keepimag' is
+#@cli : a trivalued flag: 0, 1 or 2. '0' requests both "Real" and "Imaginary"
+#@cli : output pairs and is the default. '1' requests the "Real" output image
+#@cli : only; '2' requests the "Imaginary" output image only.
+#@cli : Output images are unnormalized and range from negative to positive
+#@cli : values, Normalize data accordingly for use with bitmap editors.
+tiletex : check "${1=8}>0 && isnum(${2=-1.0}) && ${3=0}>=0 && ${3}<3"
+if $2>=0
+addenda2="Common default angle: $2."
+else
+addenda2="Explicit angles from provided images."
+fi
+addenda3="Real and imaginary"
+if $3!=0
+if $3==1
+addenda3="Real"
+else
+addenda3="Imaginary"
+fi
+fi
+e[^-1] "Rendering tilable texture on $? at window size $1 "$addenda2". "$addenda3" output to be provided."
+rsz={$1}
+impla={2*pi*$2/255.0}
+all={$3}
+iszed=1
+ccc={0,s}
+badccc="Selected images have different number of channels. Have you accidently included alpha channels in some (but not all) images?"
+repeat $!
+if {$>,round(ia)!=0" || "round(iM-im)!=0}
+iszed=0
+break
+fi
+done
+if $iszed
+repeat $!
+l[$<]
+if {$<,$ccc!=s}
+error $badccc
+fi
+.
+a[-2,-1] c
+{2*$rsz+1},{2*$rsz+1},1,{s},(2*u-1)*{wh}
+image.. .,{({-2,w}-w)/2},{({-2,h}-h)/2},0,0,1
+rm.
+done
+done
+else
+if $impla<0
+if $!%2!=0
+error "Selected images contain data, but selection count is odd. Cannot determine angles for some coefficients. Consider setting an implied angle or providing an even number of images."
+fi
+repeat $!/2
+l[{2*$<},{2*$<+1}]
+if $ccc!={$<,s}" || "$ccc!={{$<+1},s}
+error $badccc
+fi
+s[-2,-1] c
+repeat $!/2
+l[{$>},{$!/2+$>}]
+/[0,1] 255
+*[1] {2*pi}
+polar2complex[0,1]
+done
+done
+a[0--1] c
+done
+done
+else
+repeat $!
+l[$<]
+if $ccc!={$<,s}
+error $badccc
+fi
+[0]
+s[-2,-1] c
+repeat $!/2
+l[{$>},{$!/2+$>}]
+/[0,1] 255
+*[0] {cos($impla)}
+*[1] {sin($impla)}
+done
+done
+a[0--1] c
+done
+done
+fi
+fi
+repeat $!
+l[$<]
+shift. {-round(w/2)},{-round(h/2)},0,0,2
+s. c,2
+ifft[-2,-1]
+if $all!=0
+if $all==1
+rm.
+else
+rm..
+fi
+fi
+done
+done
+gtutor_rectangular_tiling_preview :
+gui_split_preview "gtutor_tileit ${2},${1},${3},${8},${4},${7},${5},${6}",0
+is_fc={2*(1-$6)}
+u "{$1}{$2}{$3}{$4}{$5}{$6}""{$7}_"$is_fc"{$8}_"$is_fc
+_rec_tileit:
+gtutor_tileit ${2},${1},${3},${8},${4},${7},${5},${6}
+#@cli gtutor_tileit : 0<=_disrupt<=10,0.05<_tsize,0.25<=_spread,0<=_soft,_fillholes:True,-180<=_lightangle<=180,2<=_ccount<=32,_fcolor:False
+#@cli : Generate a mosaic from an image. Works best with line art cartoons with flat color.
+#@cli : disrupt=5 Rotates, scales and displaces tiles. Suggest 0-10.
+#@cli : tsize=1.0 Tile size relative to image. 1.0 → tile diagonal is 2.5% of the image diagonal.
+#@cli : spread=1.5 Increasing promotes dropped tiles, gaps at junctions and runs. Suggest 0-3.
+#@cli : soft=0.5 Soften and dull shadows and highlights. Suggest 0-5.
+#@cli : fillholes=1 True: Fill gaps and holes. No alpha channel.
+#@cli : False: Leave gaps and holes. Image has alpha channel.
+#@cli : lightangle=45° Degrees: -180° – 180°. Lighting angle.
+#@cli : 45°: Light appears to stream from viewer's upper left.
+#@cli : ccount=4 Set number of dominant colors, taken from those most frequently occuring in source.
+#@cli : fcolor=0 True: Flat color tiling without lighting and shading.
+#@cli : False: Do tile lighting and shading.
+gtutor_tileit : -check "${1=5}>=0 && $1<=10 && ${2=1.0}>=0.05 && ${3=1.5}>=0.25 && ${4=0.5}>=0 && isbool(${5=1}) && ${6=45}>=-180 && ${6}<=180 && ${7=4}>=2 && ${7}<=32 && isbool(${8=0})"
+-echo[^-1] "Applying faux tiling to selected images. Disruption: "${1}". Tile size: "${2}". Tile spread: "${3}". Highlight softening: "${4}". Holes: "${arg\ 1+!$5,filling,leaving}". Light angle: "${6}"°. Color count: "${7}", and "${arg\ 1+!$8,unshaded,shaded}" color."
+disrupt=$1
+tsize=$2*0.025*sqrt(w^2+h^2)
+spread=$3
+soft=$4
+fillholes=$5
+lightangle=$6
+ccount=$7
+fcolor=$8
+-repeat $!
+-local[$>]
+-remove_opacity.
++colormap. ${ccount},1,2
+-index.. .,0,1
+-round 1
+1
+-append[-2,-1] x
+-name. pallette
+-move[pallette] 0
+-name. qcolor
++luminance[qcolor]
+-name. qlumin
+-normalize[qlumin] 0.6,1
+-input 100%,100%,1,1,'I(#-2,x,y)==I(#-3,0,0)?1:0'
+-fill. ">abs(
+i-j(1,1,0,0,0,1)
+)>iv?
+1:
+abs(
+i-j(1,0,0,0,0,1)
+)>iv?
+1:0"
+-name[-1] outline
+-input 100%,100%,1,1
+-name[-1] cost
+-plasma[cost] 4,4,{$disrupt}
+-normalize[cost] 0,{$disrupt/4.0}
++distance[outline] 1,[cost],1
+-name. distvar
++distance[outline] 1
++add[-1,-2]
+-remove[-3,-2]
+[-1]
+-name[-1] truedistance
+-name[-2] orienter
+-gradient[cost] xy
+-append[-4,-3] c
+-blur[-3] 1,1,1
+-normalize... {-1.5*$disrupt},{1.5*$disrupt}
+-name... warper
+-round[truedistance] {$spread*$tsize}
+-fill[truedistance] ">
+abs(i-j(1,1,0,0,0,1))>"{0.5*$spread*$tsize}"?
+1:
+abs(i-j(1,0,0,0,0,1))>"{0.5*$spread*$tsize}"?
+1:0
+"
+-gradient[orienter] xy
+-append[-3,-2] c
+-orientation[orienter]
+[-1],[-1],1,4,'[-1,-1,-1,0]'
+-name. plottingfield
+-fill[plottingfield] ">if(
+0=127?255:0'
+-fill. 'i>0.05?1:0'
+-fill. 'i#-2==0?0:i'
+-if $fcolor
+-if $fillholes
+-fill[plottingfield] 'i#-2==0?I#-5*i#-4:I'
+-remove[-2]
+-else
+-append[-3,-2] c
+-fi
+-keep[plottingfield]
+-else
+-distance[heightmap] 1
+-normalize[heightmap] 0,1
+-pow. 0.25
+-blur. 0.875,1,1
+-normalize[heightmap] 0,1
+-if {$fillholes==0}
+-fill[heightmap] 'i#-2==0?0:i'
+-else
+-fill[plottingfield] 'i#-2==0?I#-5*i#-4:I'
+-fi
+-remove[qcolor,qlumin]
+-normalize[plottingfield] 0,1
++gradient[heightmap] xy
+-append[-2,-1] c
+({cos($lightangle*pi/180)}^{sin($lightangle*pi/180)})
+-resize. [-2],[-2],[-1],[-1],1
++mul[-2,-1]
+-compose_channels. add
+-name. light
+-cut. {ia},{iM}
+-normalize. 0,1
+-pow. 0.5
+if $soft>0
+-blur. {$soft},1,1
+fi
+-mul.. -1
+-mul[-3,-2]
+-compose_channels.. add
+-name.. shadow
+-cut.. {ia#-2},{iM#-2}
+-normalize.. 0,1
+-oneminus..
+-pow.. 2
+-mul[plottingfield,shadow]
+-mul[light] '{iM#0}'
+-add[plottingfield,light]
+-normalize[plottingfield] 0,255
+-if {$fillholes==0}
+-append[-3,-2] c
+-else
+-remove..
+-fi
+-keep[0]
+-fi
+-done
+-done
+iain_2d_scopes:
+repeat $! l[$>]
+remove_opacity
+y_axis=$1
+x_axis=$2
+plot_type=$3
+resolution=$4
+plot_size=$5
+max_samples=$6
+chart_type=$7
+test_pattern=$8
+mirror_y=$9
+mirror_x=$10
+rotate_deg={$11*90}
+if $plot_type==3
+remove_duplicates=0
+else
+remove_duplicates=1
+fi
+luma_sort=1
+if $test_pattern
+rm
+cube_d={2^$resolution}
+$cube_d,$cube_d,$cube_d
+to_rgb
+split c
+fill[0] x
+fill[1] y
+fill[2] z
+n 0,255
+append c
+split z
+append_tiles 0,0
+split y
+append x
+fi
+split y
+append x
+if w>$max_samples
+resize $max_samples,1
+fi
+bsr[0] {8-$resolution}
+if $remove_duplicates
++to_rgb[-1]
+l[-1]
+split c
+bsl[1] 8
+bsl[2] 16
+add
+done
+reverse
+append y
+sort +,x
+discard x
+rows 1
+fi
+if $luma_sort
++luminance[-1]
+reverse
+append y
+sort +,x
+rows 1
+fi
+bsl {8-$resolution}
++l[0]
+if $x_axis==0
+rgb2yuv8[0]
+channels[0] 0
+elif $x_axis==1
+rgb2yuv8[0]
+channels[0] 1
+elif $x_axis==2
+rgb2yuv8[0]
+channels[0] 2
+elif $x_axis==3
+rgb2hsv8[0]
+channels[0] 0
+elif $x_axis==4
+rgb2hsv8[0]
+channels[0] 1
+elif $x_axis==5
+rgb2hsv8[0]
+channels[0] 2
+elif $x_axis==6
+rgb2lab8[0]
+channels[0] 0
+elif $x_axis==7
+rgb2lab8[0]
+channels[0] 1
+elif $x_axis==8
+rgb2lab8[0]
+channels[0] 2
+elif $x_axis==9
+rgb2lch8[0]
+channels[0] 1
+elif $x_axis==10
+rgb2lch8[0]
+channels[0] 2
+elif $x_axis==11
+rgb2cmyk[0]
+channels[0] 0
+elif $x_axis==12
+rgb2cmyk[0]
+channels[0] 1
+elif $x_axis==13
+rgb2cmyk[0]
+channels[0] 2
+elif $x_axis==14
+rgb2cmyk[0]
+channels[0] 3
+elif $x_axis==15
+channels[0] 0
+elif $x_axis==16
+channels[0] 1
+elif $x_axis==17
+channels[0] 2
+fi
+done
++l[0]
+if $y_axis==0
+rgb2yuv8[0]
+channels[0] 0
+elif $y_axis==1
+rgb2yuv8[0]
+channels[0] 1
+elif $y_axis==2
+rgb2yuv8[0]
+channels[0] 2
+elif $y_axis==3
+rgb2hsv8[0]
+channels[0] 0
+elif $y_axis==4
+rgb2hsv8[0]
+channels[0] 1
+elif $y_axis==5
+rgb2hsv8[0]
+channels[0] 2
+elif $y_axis==6
+rgb2lab8[0]
+channels[0] 0
+elif $y_axis==7
+rgb2lab8[0]
+channels[0] 1
+elif $y_axis==8
+rgb2lab8[0]
+channels[0] 2
+elif $y_axis==9
+rgb2lch8[0]
+channels[0] 1
+elif $y_axis==10
+rgb2lch8[0]
+channels[0] 2
+elif $y_axis==11
+rgb2cmyk[0]
+channels[0] 0
+elif $y_axis==12
+rgb2cmyk[0]
+channels[0] 1
+elif $y_axis==13
+rgb2cmyk[0]
+channels[0] 2
+elif $y_axis==14
+rgb2cmyk[0]
+channels[0] 3
+elif $y_axis==15
+channels[0] 0
+elif $y_axis==16
+channels[0] 1
+elif $y_axis==17
+channels[0] 2
+fi
+done
+mul[-1,-2] {$plot_size/256}
+$plot_size,$plot_size,1,1,0
+to_rgb[-1]
+fill[-1] -1
+repeat {0,w}
+if $plot_type==0
+point[-1] {1,i($>)},{2,i($>)},0,1,{0,i($>,0,0,0)},{0,i($>,0,0,1)},{0,i($>,0,0,2)}
+elif $plot_type==1
+circle[-1] {1,i($>)},{2,i($>)},0.3%,1,{0,i($>,0,0,0)},{0,i($>,0,0,1)},{0,i($>,0,0,2)}
+elif $plot_type==2
+circle_size={max({$<*(1/{0,w})},0.15)}
+circle[-1] {1,i($>)},{2,i($>)},$circle_size%,1,{0,i($>,0,0,0)},{0,i($>,0,0,1)},{0,i($>,0,0,2)}
+elif $plot_type==3
+l[0]
+rgb2hsv split c fill[-1] 1 append c hsv2rgb
+done
+circle_size={1}
+circle[-1] {1,i($>)},{2,i($>)},$circle_size%,0.1,{0,i($>,0,0,0)},{0,i($>,0,0,1)},{0,i($>,0,0,2)}
+fi
+done
+k[-1]
+if $chart_type!=0
+100%,100%,1,1
+fill[-1] x
+n[-1] 0,255
+l[-1]
+if $x_axis==0
++fill[0] {255/2}
++fill[0] {255/2}
+append c
+yuv82rgb
+elif $x_axis==1
++fill[0] {255/2}
++fill[0] {255/2}
+move[0] 2
+append c
+yuv82rgb
+elif $x_axis==2
++fill[0] {255/2}
++fill[0] {255/2}
+move[0] 3
+append c
+yuv82rgb
+elif $x_axis==3
++fill[0] {255}
++fill[0] {255}
+append c
+hsv82rgb
+elif $x_axis==4
++fill[0] {255}
++fill[0] {255}
+move[0] 2
+append c
+hsv82rgb
+elif $x_axis==5
++fill[0] {0}
++fill[0] {0}
+move[0] 3
+append c
+hsv82rgb
+elif $x_axis==6
++fill[0] {255/2}
++fill[0] {255/2}
+move[0] 1
+append c
+lab82rgb
+elif $x_axis==7
++fill[0] {255/2}
++fill[0] {255/2}
+move[0] 2
+append c
+lab82rgb
+elif $x_axis==8
++fill[0] {255/2}
++fill[0] {255/2}
+move[0] 3
+append c
+lab82rgb
+elif $x_axis==9
++fill[0] {255/2}
++fill[0] {255/2}
+move[0] 2
+append c
+lch82rgb
+elif $x_axis==10
++fill[0] 180
++fill[0] 128
+move[0] 3
+append c
+lch82rgb
+elif $x_axis==11
++fill[0] {0}
++fill[0] {0}
++fill[0] {0}
+move[0] 1
+append c
+cmyk2rgb
+elif $x_axis==12
++fill[0] {0}
++fill[0] {0}
++fill[0] {0}
+move[0] 2
+append c
+cmyk2rgb
+elif $x_axis==13
++fill[0] {0}
++fill[0] {0}
++fill[0] {0}
+move[0] 3
+append c
+cmyk2rgb
+elif $x_axis==14
++fill[0] {0}
++fill[0] {0}
++fill[0] {0}
+move[0] 4
+append c
+cmyk2rgb
+elif $x_axis==15
++fill[0] {0}
++fill[0] {0}
+move[0] 1
+append c
+elif $x_axis==16
++fill[0] {0}
++fill[0] {0}
+move[0] 2
+append c
+elif $x_axis==17
++fill[0] {0}
++fill[0] {0}
+move[0] 3
+append c
+fi
+done
+100%,100%,1,1
+fill[-1] y
+n[-1] 0,255
+l[-1]
+if $y_axis==0
++fill[0] {255/2}
++fill[0] {255/2}
+append c
+yuv82rgb
+elif $y_axis==1
++fill[0] {255/2}
++fill[0] {255/2}
+move[0] 2
+append c
+yuv82rgb
+elif $y_axis==2
++fill[0] {255/2}
++fill[0] {255/2}
+move[0] 3
+append c
+yuv82rgb
+elif $y_axis==3
++fill[0] {255}
++fill[0] {255}
+append c
+hsv82rgb
+elif $y_axis==4
++fill[0] {255}
++fill[0] {255}
+move[0] 2
+append c
+hsv82rgb
+elif $y_axis==5
++fill[0] {0}
++fill[0] {0}
+move[0] 3
+append c
+hsv82rgb
+elif $y_axis==6
++fill[0] {255/2}
++fill[0] {255/2}
+move[0] 1
+append c
+lab82rgb
+elif $y_axis==7
++fill[0] {255/2}
++fill[0] {255/2}
+move[0] 2
+append c
+lab82rgb
+elif $y_axis==8
++fill[0] {255/2}
++fill[0] {255/2}
+move[0] 3
+append c
+lab82rgb
+elif $y_axis==9
++fill[0] {255/2}
++fill[0] {255/2}
+move[0] 2
+append c
+lch82rgb
+elif $y_axis==10
++fill[0] 180
++fill[0] 128
+move[0] 3
+append c
+lch82rgb
+elif $y_axis==11
++fill[0] {0}
++fill[0] {0}
++fill[0] {0}
+move[0] 1
+append c
+cmyk2rgb
+elif $y_axis==12
++fill[0] {0}
++fill[0] {0}
++fill[0] {0}
+move[0] 2
+append c
+cmyk2rgb
+elif $y_axis==13
++fill[0] {0}
++fill[0] {0}
++fill[0] {0}
+move[0] 3
+append c
+cmyk2rgb
+elif $y_axis==14
++fill[0] {0}
++fill[0] {0}
++fill[0] {0}
+move[0] 4
+append c
+cmyk2rgb
+elif $y_axis==15
++fill[0] {0}
++fill[0] {0}
+move[0] 1
+append c
+elif $y_axis==16
++fill[0] {0}
++fill[0] {0}
+move[0] 2
+append c
+elif $y_axis==17
++fill[0] {0}
++fill[0] {0}
+move[0] 3
+append c
+fi
+done
+if $chart_type==1
+100%,100%
+100%,100%
+linethick[-1] 50%,0,50%,100%,{$plot_size*.01},1,1
+linethick[-2] 0%,50%,100%,50%,{$plot_size*.01},1,1
+mul[1,3]
+mul[2,3]
+fi
+blend[-1,-2] average
+if $chart_type==1
+l[-1]
++l[0] split c max done
+gt[-1] 0
+replace[-1] 1,128
+laplacian[-1]
+abs
+max
+done
+fi
++eq[0] -1
+l[-1] split c min erode_circ {round($plot_size*.1)} blur {$plot_size*.025} done
+mul[-1,-2]
+fi
+max
+if $mirror_y
+mirror y
+fi
+if $mirror_x
+mirror x
+fi
+rotate $rotate_deg
+done done
+iain_smooth_tutorial:
+amplitude=$1
+sharpness=$2
+anisotropy=$3
+gradient_smoothness=$4
+tensor_smoothness=$5
+quiver=$6
+remove_opacity
++l[0]
+p1={if(0,0.5,1)*max($sharpness,1e-2)}
+p2={$p1/(1e-7+1-$anisotropy)}
+b $gradient_smoothness n 0,255 structuretensors 0 b $tensor_smoothness
+eigen max.. 0
+if s==2 s.. c +[-3,-2] +.. 1 +^.. -$p1 ^... -$p2 a[-3,-1] c
+else s.. c +[-4--2] +.. 1 +^.. -$p1 r. 100%,100%,100%,2 ^... -$p2 a[-3,-1] c
+fi
++l
+l[-1]
+split[-1] c
++abs[0]
+fill[0] acos(i)
+add[0] {pi/2}
+mod[0] {pi}
+fill[0] cos(i)
+rm[1]
++fill[0] 0
+append c
+done
+l[-2]
+split c
+add
+pow $sharpness
+done
+to_rgb
+mul
+resize[0] 400%,400%
+100%,100%,1,1,255
++quiver[1] [0],24,3,0,1
+k[-1]
+resize 25%,25%,100%,100%,2
+done
+l[-3]
+split[0] c
+fill[0] 0
+c[1] 1,10
+append[0,1] c
+done
+l[-2,-3]
+eigen2tensor
+done
+smooth[-1] [-2],5
+rm[-2]
+luminance
+negate
+[0]
+blur[-1] 3
+max[-1] 0.1
+fill[-1] 10/i
+mul[0] [1]
+negate
+n 0,255
+c 120,255
+n 0,255
+k[0]
+done
+if $7
+blur[0] $gradient_smoothness
+n[0] 0,255
+else
+smooth[0] $amplitude,$sharpness,$anisotropy,$gradient_smoothness,$tensor_smoothness
+fi
+if $quiver==1
+ac[0] " sub 128 mul 0.5 add 128",ycbcr_y
+n[1] 0,1
+mul
+elif $quiver==2
+k[1]
+else
+k[0]
+fi
+c 0,255
+iain_auto_wb_preview:
+iain_auto_wb[0] $1,$2,$3,$4,$5,$6
+rectangle[0] $1%,$2%,$3%,$4%,1,0xffff,255
+iain_auto_wb:
+repeat $! l[$>]
+remove_opacity
+norm_out=$5
+repeats=15
+display_text=0
+rm_outliers=1
+max_pixels={2^16}
+lower_limit=5
+upper_limit=200
++l[0]
+target_pixel_number={2^16}
+crop $1%,$2%,$3%,$4%
++l[0] split c max done
+fill[-1] if(i<$lower_limit||i>$upper_limit,0,1)
+good_pixels={-1,is}
+pixel_retention_ratio={$good_pixels/{wh}}
+scale_factor={sqrt((($target_pixel_number/$pixel_retention_ratio)/{wh}))}
+if $scale_factor<1
+resize {w*$scale_factor},{h*$scale_factor},100%,100%,2
+fi
+gt[-1] 0
+add[0] 1
+mul[0] [-1]
+sub[0] 1
+rm[-1]
+split c
+unroll[0] x
+unroll[1] x
+unroll[2] x
+discard[0,1,2] x,-1
+append[0,1,2] c
++to_rgb[-1]
+l[-1]
+split c
+bsl[1] 8
+bsl[2] 16
+add
+done
+reverse
+append y
+sort +,x
+discard x
+rows 1
+append c
+done
++l[1]
+rgb2hsv channels 0 +add[-1] 180 mod[-1] 360
+hv_old={min({0,iv},{1,iv})}
+rm
+done
+hv_old_b=$hv_old
+hv_new_A_plus_B_plus=0
+hv_new_A_plus_B_minus=0
+hv_new_A_minus_B_plus=0
+hv_new_A_minus_B_minus=0
+shift_a=0
+shift_b=0
+step_size=3
+repeat $repeats
+shift_a_top=$shift_a
++l[1]
+iain_rgb_mix_wb[0] {$shift_a+$step_size},{$shift_b+$step_size}
+rgb2hsv channels 0 +add[-1] 180 mod[-1] 360
+hv_new_A_plus_B_plus={min({0,iv},{1,iv})}
+rm
+done
++l[1]
+iain_rgb_mix_wb[0] {$shift_a+$step_size},{$shift_b-$step_size}
+rgb2hsv channels 0 +add[-1] 180 mod[-1] 360
+hv_new_A_plus_B_minus={min({0,iv},{1,iv})}
+rm
+done
++l[1]
+iain_rgb_mix_wb[0] {$shift_a-$step_size},{$shift_b+$step_size}
+rgb2hsv channels 0 +add[-1] 180 mod[-1] 360
+hv_new_A_minus_B_plus={min({0,iv},{1,iv})}
+rm
+done
++l[1]
+iain_rgb_mix_wb[0] {$shift_a-$step_size},{$shift_b-$step_size}
+rgb2hsv channels 0 +add[-1] 180 mod[-1] 360
+hv_new_A_minus_B_minus={min({0,iv},{1,iv})}
+rm
+done
+hv_max={max($hv_old,$hv_new_A_plus_B_plus,$hv_new_A_plus_B_minus,$hv_new_A_minus_B_plus,$hv_new_A_minus_B_minus)}
+if $hv_old==$hv_max
+elif $hv_new_A_plus_B_plus==$hv_max
+shift_a={$shift_a+$step_size}
+shift_b={$shift_b+$step_size}
+hv_old=$hv_new_A_plus_B_plus
+elif $hv_new_A_plus_B_minus==$hv_max
+shift_a={$shift_a+$step_size}
+shift_b={$shift_b-$step_size}
+hv_old=$hv_new_A_plus_B_minus
+elif $hv_new_A_minus_B_plus==$hv_max
+shift_a={$shift_a-$step_size}
+shift_b={$shift_b+$step_size}
+hv_old=$hv_new_A_minus_B_plus
+elif $hv_new_A_minus_B_minus==$hv_max
+shift_a={$shift_a-$step_size}
+shift_b={$shift_b-$step_size}
+hv_old=$hv_new_A_minus_B_minus
+fi
+step_size={$step_size/2}
+red_mul={round((2^$shift_a),0.1,0)}
+blue_mul={round((2^$shift_b),0.1,0)}
+done
+iain_rgb_mix_wb[0] $shift_a,$shift_b
+k[0]
+if $norm_out
+n 0,255
+fi
+c 0,255
+if $6
+negate
+fi
+done
+done
+iain_rgb_mix_wb:
+remove_opacity
+split c
+mul[0] {2^$1}
+mul[2] {2^$2}
+append c
+automixer:
+to_rgb
++split[-1] c
+if $2==1
+crop[-1,-2,-3] 40%,40%,60%,60%
+fi
+bluenoise=${-variance_noise}
+remove[-1]
+greennoise=${-variance_noise}
+remove[-1]
+rednoise=${-variance_noise}
+remove[-1]
+greennoise={$greennoise*0.5}
+redadjust={$greennoise/$rednoise}
+blueadjust={$greennoise/$bluenoise}
+to_rgb
++split[0] c
+mul[1] {$redadjust/($redadjust+1+$blueadjust)}
+mul[2] {1/($redadjust+1+$blueadjust)}
+mul[3] {$blueadjust/($redadjust+1+$blueadjust)}
+add[1-3]
+if $1==0
+keep[-1]
+else
++compose_grainextract
+remove[0]
+fi
+med3stack16:
+blend_median
+med5stack16:
+blend_median
+cross16:
++shift[0] 0,1,0,0,2
++shift[0] 0,-1,0,0,2
++shift[0] 1,0,0,0,2
++shift[0] -1,0,0,0,2
+blend_median
+ex16:
++shift[0] 1,1,0,0,2
++shift[0] 1,-1,0,0,2
++shift[0] -1,-1,0,0,2
++shift[0] -1,1,0,0,2
+blend_median
+hybrid16:
++cross16[0]
++ex16[0]
+blend_median
+autonr2:
++crop 30%,30%,70%,70%
+noise0=${-variance_noise}
+remove[-1]
+cropwidth={w}
+cropheight={h}
+resize[0] {w+(64-w%64)},{h+(64-h%64)},1,{s},0,1
+width={w}
+height={h}
+if $noise0>$2
+denoise[-1] 10,{$noise0*$1},3,5,0,1
+denoise[-1] 10,{$noise0*$1},3,5,0,1
+fi
++resize[0] {$width/2},{$height/2},1,{s},2,1
++resize[-1] $width,$height,1,{s},3,1
+sub[0] [-1]
+remove[-1]
+noise1=${-variance_noise}
+if $noise1>$2
+denoise[-1] 10,{$noise1*$1},3,5,0,0
+fi
++resize[-1] {$width/4},{$height/4},1,{s},2,1
++resize[-1] {$width/2},{$height/2},1,{s},3,1
+sub[1] [-1]
+remove[-1]
+noise2=${-variance_noise}
+if $noise2>$2
+denoise[-1] 10,{$noise2*$1},3,5,0,1
+fi
++resize[-1] {$width/8},{$height/8},1,{s},2,1
++resize[-1] {$width/4},{$height/4},1,{s},3,1
+sub[2] [-1]
+remove[-1]
+noise3=${-variance_noise}
+if $noise3>$2
+denoise[-1] 10,{$noise3*$1},3,5,0,1
+fi
+resize[-1] {$width/4},{$height/4},1,{s},3,1
+add[-2] [-1]
+remove[-1]
+resize[-1] {$width/2},{$height/2},1,{s},3,1
+add[-2] [-1]
+remove[-1]
+resize[-1] {$width/1},{$height/1},1,{s},3,1
+add[-2] [-1]
+remove[-1]
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+fft_tile3_fft:
++fftpolar[0]
+100%,100%,1,1,1
+ellipse[-1] 50%,50%,50%,50%,0,1,$4
+ellipse[-1] 50%,50%,15%,15%,0,1,$5
+ellipse[-1] 50%,50%,5%,5%,0,1,$6
++add[1] [-1]
+threshold[-1] $1
+set[-1] 1,50%,50%
+mul[1] [-1]
++ifftpolar[1,2]
+remove[0,1,2]
+keep[-1]
+fft_tile3_clean:
+tc={round(w/$2)} tr={round(h/$2)}
+split_tiles $tc,$tr
+repeat $! local[$>]
+fft_tile3_fft[0--1] $1,$2,$3,$4,$5,$6
+done done
+append_tiles $tc,$tr
+c 0,255
+fft_tile3:
++resize[0] {w+$2},{h+$2},1,1,0,1,1,1
+resize[-1] {w+$2},{h+$2},1,1,0,1,0,0
+fft_tile3_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] $2,$2,{w-$2-1},{h-$2-1}
+push={round($2*1.5)}
+pull={$2-$push}
++resize[0] {w+$push},{h+$2},1,1,0,1,1,1
+resize[-1] {w+$pull},{h+$2},1,1,0,1,0,0
+fft_tile3_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] {$push},{$2},{w-$pull-1},{h-($2)-1}
++resize[0] {w+$2},{h+$push},1,1,0,1,1,1
+resize[-1] {w+$2},{h+$pull},1,1,0,1,0,0
+fft_tile3_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] $2,{$push},{w-$2-1},{h-$pull-1}
+dia1={round($2/3)}
+dia2={$2-$dia1}
++resize[0] {w+$dia1},{h+$dia1},1,1,0,1,1,1
+resize[-1] {w+$dia2},{h+$dia2},1,1,0,1,0,0
+fft_tile3_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] {$dia1},{$dia1},{w-$dia2-1},{h-$dia2-1}
++resize[0] {w+$dia2},{h+$dia2},1,1,0,1,1,1
+resize[-1] {w+$dia1},{h+$dia1},1,1,0,1,0,0
+fft_tile3_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] {$dia2},{$dia2},{w-$dia1-1},{h-$dia1-1}
+remove[0]
+blend_median
+nr3:
+mul 256
+radius={0.05*(min(h,w))}
+[0]
+rectangle[-1] 0,0,100%,$radius,1,{ia}
+rectangle[-1] 0,0,$radius,100%,1,{ia}
+rectangle[-1] 0,100%,100%,{h-$radius},1,{ia}
+rectangle[-1] {w-$radius},100%,100%,0,1,{ia}
+blur[-1] {$radius/2}
+xmin={xm}
+ymin={ym}
+remove[-1]
++crop[0] {$xmin-$radius},{$ymin-$radius},{$xmin+$radius},{$ymin+$radius}
+minnoise=${-variance_noise}
+remove[-1]
++sub[0] {250*256}
+abs[-1]
+rectangle[-1] 0,0,100%,$radius,1,{ia}
+rectangle[-1] 0,0,$radius,100%,1,{ia}
+rectangle[-1] 0,100%,100%,{h-$radius},1,{ia}
+rectangle[-1] {w-$radius},100%,100%,0,1,{ia}
+blur[-1] {$radius/2}
+xmax={xm}
+ymax={ym}
++crop[0] {$xmax-$radius},{$ymax-$radius},{$xmax+$radius},{$ymax+$radius}
+maxnoise=${-variance_noise}
+remove[-1]
++sub[0] {128*256}
+abs[-1]
+rectangle[-1] 0,0,100%,$radius,1,{ia}
+rectangle[-1] 0,0,$radius,100%,1,{ia}
+rectangle[-1] 0,100%,100%,{h-$radius},1,{ia}
+rectangle[-1] {w-$radius},100%,100%,0,1,{ia}
+blur[-1] {$radius/2}
+xave={xm}
+yave={ym}
+remove[-1]
++crop[0] {$xave-$radius},{$yave-$radius},{$xave+$radius},{$yave+$radius}
+midnoise=${-variance_noise}
+text[-1] $midnoise,0,0,25,1,{iM}
++sub[0] {64*256}
+abs[-1]
+rectangle[-1] 0,0,100%,$radius,1,{ia}
+rectangle[-1] 0,0,$radius,100%,1,{ia}
+rectangle[-1] 0,100%,100%,{h-$radius},1,{ia}
+rectangle[-1] {w-$radius},100%,100%,0,1,{ia}
+blur[-1] {$radius/2}
+xshadow={xm}
+yshadow={ym}
+remove[-1]
++crop[0] {$xshadow-$radius},{$yshadow-$radius},{$xshadow+$radius},{$yshadow+$radius}
+shadownoise=${-variance_noise}
++sub[0] {192*256}
+abs[-1]
+rectangle[-1] 0,0,100%,$radius,1,{ia}
+rectangle[-1] 0,0,$radius,100%,1,{ia}
+rectangle[-1] 0,100%,100%,{h-$radius},1,{ia}
+rectangle[-1] {w-$radius},100%,100%,0,1,{ia}
+blur[-1] {$radius/2}
+xbright={xm}
+ybright={ym}
+remove[-1]
++crop[0] {$xbright-$radius},{$ybright-$radius},{$xbright+$radius},{$ybright+$radius}
+brightnoise=${-variance_noise}
+shadows={(($minnoise/$shadownoise)*64)}
+mids={(($minnoise/$midnoise)*64)}
+brights={(($minnoise/$brightnoise)*64)}
+whites={(($minnoise/$maxnoise)*64)}
+point1={$shadows+32}
+point2={$mids+$shadows+32}
+point3={$brights+$mids+$shadows+32}
+point4={$whites+$brights+$mids+$shadows+32}
+keep[0]
+cropwidth={w}
+cropheight={h}
+resize[0] {w+(64-w%64)},{h+(64-h%64)},1,{s},0,1
+width={w}
+height={h}
+apply_curve[0] 0,0,0,{32*256},{32*256},{96*256},{$point1*256},{160*256},{$point2*256},{223*256},{$point3*256},{287*256},{$point4*256}
+sub {128*256} mul .5 add {128*256}
++hybrid16[0]
+autonr2[-1] $1,$2
+autonr2[-1] $1,$2
++sub[0] [1]
+add[-1] {128*256}
+remove[0]
+div[-1] 256
+fft_tile3[-1] {2000-$3},48,0,$4,$5,$6,1
+mul[-1] 256
+sub[-1] {128*256} mul[-1] $7 add[-1] {128*256}
+unsharp[0] $8,$9,$10
+unsharp[1] $11,$12,$13
+sub[1] {128*256}
+add[0] [1]
+remove[1]
+sub {128*256} mul 2 add {128*256}
+apply_curve[0] 0,0,0,{32*256},{32*256},{$point1*256},{96*256},{$point2*256},{160*256},{$point3*256},{223*256},{$point4*256},{287*256}
+div 256
+c 0,255
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+iain_brown_spot_clean:
+red_radius={($1*2)+1}
+green_radius={($1*2)+1}
+blue_radius={($2*2)+1}
+to_rgb
++l
+split c
+l[0]
+median $red_radius
+median $red_radius
+median $red_radius
+done
+l[1]
+median $green_radius
+median $green_radius
+median $green_radius
+done
+l[2]
+median $blue_radius
+median $blue_radius
+median $blue_radius
+done
+append c
+done
+sub[0] [1]
+add[0] 128
++l[0]
+rgb2hsv8
+split c
+keep[0]
+apply_curve 0,0,0,11,0,13,255,65,255,67,0,255,0
+lt 1
+done
+sub[0] 128
+mul[0,2]
+add
+c 0,255
+nozip:
+remove_opacity
++l[0]
+(1;-1)
+convolve[0] [1]
+rm[1]
+abs
+split c
+max
+done
++l[1]
+(1,-1)
+convolve[0] [1]
+rm[1]
+abs
+split c
+max
+done
++l[0]
++l
+split c
+add
+div 3
+done
+sub
+abs
+split c
+max
+done
++l[1]
++l
+split c
+add
+div 3
+done
+sub
+abs
+split c
+max
+done
+mul[-1,-2] $1
+add[2,4]
+add[3,4]
+l[-1,-2]
+blur 2
+sub
+gt 0
+mul 255
+done
+append[1,2] c
+blend alpha,1,0
+iain_CA_correction:
+to_rgb
+longest_side={max(w,h)}
+split c
+l[0]
+$longest_side,$longest_side
+50%,1
+fill[-1] 1-(x/w)
++mirror[-1] x
+mul[-2] -1
+append[-1,-2] x
+resize[-1] {1,w},{1,h},1,1,1
+[-1]
+rotate[-1] 90
+append[-1,-2] c
+rm[1]
+resize[1] {0,w},{0,h},{d},{s},0,0,0.5,0.5
+mul[-1] $2
+warp[0] [1],1,$3,1
+keep[0]
+done
+l[2]
+$longest_side,$longest_side
+50%,1
+fill[-1] 1-(x/w)
++mirror[-1] x
+mul[-2] -1
+append[-1,-2] x
+resize[-1] {1,w},{1,h},1,1,1
+[-1]
+rotate[-1] 90
+append[-1,-2] c
+rm[1]
+resize[1] {0,w},{0,h},{d},{s},0,0,0.5,0.5
+mul[-1] $1
+warp[0] [1],1,$3,1
+keep[0]
+done
+append c
+c 0,255
+iain_CA_correction_pr:
+to_rgb
+x_mul={w/max(w,h)}
+y_mul={h/max(w,h)}
+if $-1==0
+rx_shift={$2*-1*$x_mul}
+ry_shift={$2*-1*$y_mul}
+bx_shift={$1*-1*$x_mul}
+by_shift={$1*-1*$y_mul}
+elif $-1==1
+rx_shift={$2*$x_mul}
+ry_shift={$2*-1*$y_mul}
+bx_shift={$1*$x_mul}
+by_shift={$1*-1*$y_mul}
+elif $-1==2
+rx_shift={$2*$x_mul}
+ry_shift={$2*$y_mul}
+bx_shift={$1*$x_mul}
+by_shift={$1*$y_mul}
+elif $-1==3
+rx_shift={$2*-1*$x_mul}
+ry_shift={$2*$y_mul}
+bx_shift={$1*-1*$x_mul}
+by_shift={$1*$y_mul}
+fi
+split c
+l[0]
+[0]
+[0]
+fill[1] $rx_shift
+fill[2] $ry_shift
+append[1,2] c
+warp[0] [1],1,$3,1
+keep[0]
+done
+l[2]
+[0]
+[0]
+fill[1] $bx_shift
+fill[2] $by_shift
+append[1,2] c
+warp[0] [1],1,$3,1
+keep[0]
+done
+append c
+if $-2
+rgb2hsv
+split c
+fill[-1] .5
+append c
+hsv2rgb
+sub 128
+mul 2
+add 128
+c 0,255
+fi
+iain_detect_moire_preview:
++moire_2018_2[0] $1,$2,$3
+laplacian[-1]
+abs[-1]
+l[0]
+split c
+l[1]
+(0,1)
+resize[-1] [0],0,2
++mul[0] [1]
+eq[1] 0
++mul[0] [1]
+k[2,3]
+done
+(0.25,0.5,0.25;0.5,1,0.5;0.25,0.5,0.25)
+convolve[0,1,2,3] [-1]
+rm[-1]
+add[1,2]
+mul[1] 0.5
+append c
+adjust_colors 0,0,0,0,$4,0,255
+done
+remove_opacity
+add
+c 0,255
+iain_detect_moire:
+skip $1,$2,$3
+channels 1
++l[0]
+(1,0,1;0,-4,0;1,0,1)
+convolve[0] [1]
+rm[1]
+abs
+done
++l[0]
+(1,0,-2,0,1)
+convolve[0] [1]
+rm[1]
+abs
+done
++l[0]
+(1;0;-2;0;1)
+convolve[0] [1]
+rm[1]
+abs
+done
+add[-1,-2]
+rm[0]
+sub[0] [1]
+k[0]
+c 0,255
+l[0]
++l[0]
+(1,0,1;1,0,1;1,0,1)
+dilate[0] [1]
+rm[1]
+done
++l[0]
+(1,0,1;1,0,1;1,0,1)
+erode[0] [1]
+rm[1]
+done
+min[0,1]
+max[0,1]
+done
+mul 10
+c 0,255
+thickness=5
+linethick 0%,0%,100%,0%,$thickness,1,0
+linethick 0%,0%,0%,100%,$thickness,1,0
+linethick 100%,0%,100%,100%,$thickness,1,0
+linethick 0%,100%,100%,100%,$thickness,1,0
+blur $2
+gt $1
+mul 255
+if $3>0
+dilate $3
+fi
+if $3<0
+erode {$3*-1}
+fi
+iain_easy_skin_retouch:
+repeat $! l[$>] split_opacity l[0]
+str1=$1
+str2={$str1*$3}
+str3={$str2*$3}
+str4={$str3*$3}
+str5={$str4*$3}
+str6={$str5*$3}
+str7={$str6*$3}
+str8={$str7*$3}
++l[0]
+repeat $2
+cropwidth={w}
+cropheight={h}
+resize[0] {w+(256-w%256)},{h+(256-h%256)},1,{s},0,1
+width={w}
+height={h}
+if $str1!=0
+denoise[0] 10,$str1,3,5,0,1
+fi
++resize[0] {$width/2},{$height/2},1,{s},2,1
++resize[-1] $width,$height,1,{s},3,1
+blur[-1] .5
+compose_grainextract[0,-1]
+if $str2!=0
+denoise[-1] 10,$str2,3,5,0,1
+fi
++resize[-1] {$width/4},{$height/4},1,{s},2,1
++resize[-1] {$width/2},{$height/2},1,{s},3,1
+blur[-1] .5
+compose_grainextract[1,-1]
+if $str3!=0
+denoise[-1] 10,$str3,3,5,0,1
+fi
++resize[-1] {$width/8},{$height/8},1,{s},2,1
++resize[-1] {$width/4},{$height/4},1,{s},3,1
+blur[-1] .5
+compose_grainextract[2,-1]
+if $str4!=0
+denoise[-1] 10,$str4,3,5,0,1
+fi
++resize[-1] {$width/16},{$height/16},1,{s},2,1
++resize[-1] {$width/8},{$height/8},1,{s},3,1
+blur[-1] .5
+compose_grainextract[3,-1]
+if $str5!=0
+denoise[-1] 10,$str5,3,5,0,1
+fi
++resize[-1] {$width/32},{$height/32},1,{s},2,1
++resize[-1] {$width/16},{$height/16},1,{s},3,1
+blur[-1] .5
+compose_grainextract[4,-1]
+if $str6!=0
+denoise[-1] 10,$str6,3,5,0,1
+fi
++resize[-1] {$width/64},{$height/64},1,{s},2,1
++resize[-1] {$width/32},{$height/32},1,{s},3,1
+blur[-1] .5
+compose_grainextract[5,-1]
+if $str7!=0
+denoise[-1] 10,$str7,3,5,0,1
+fi
++resize[-1] {$width/128},{$height/128},1,{s},2,1
++resize[-1] {$width/64},{$height/64},1,{s},3,1
+blur[-1] .5
+compose_grainextract[6,-1]
+if $str8!=0
+denoise[-1] 10,$str8,3,5,0,1
+fi
++resize[-1] {$width/256},{$height/256},1,{s},2,1
++resize[-1] {$width/128},{$height/128},1,{s},3,1
+blur[-1] .5
+compose_grainextract[7,-1]
+resize[-1] {$width/128},{$height/128},1,{s},3,1
+blur[-1] .5
+compose_grainmerge[-1,-2]
+resize[-1] {$width/64},{$height/64},1,{s},3,1
+blur[-1] .5
+compose_grainmerge[-1,-2]
+resize[-1] {$width/32},{$height/32},1,{s},3,1
+blur[-1] .5
+compose_grainmerge[-1,-2]
+resize[-1] {$width/16},{$height/16},1,{s},3,1
+blur[-1] .5
+compose_grainmerge[-1,-2]
+resize[-1] {$width/8},{$height/8},1,{s},3,1
+blur[-1] .5
+compose_grainmerge[-1,-2]
+resize[-1] {$width/4},{$height/4},1,{s},3,1
+blur[-1] .5
+compose_grainmerge[-1,-2]
+resize[-1] {$width/2},{$height/2},1,{s},3,1
+blur[-1] .5
+compose_grainmerge[-1,-2]
+resize[-1] {$width/1},{$height/1},1,{s},3,1
+blur[-1] .5
+compose_grainmerge[-1,-2]
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+done
+done
+if $4==1
++compose_grainextract[0,-1]
++rgb2hsv8[-1]
+split[-1] c
+remove[-1,-2]
+add[-1] 30
+mod[-1] 255
+ge[-1] 40
+n[-1] 0,255
+negate[-1]
+blur[-1] 4
++split[-2] c
+remove[-1,-2]
+move[-1] -2
+append[-2,-1] c
++blend[-1,-2] alpha
+remove[-2]
+mul[-1] {$10}
+mul[-2] {1-$10}
+add[-1] [-2]
+remove[-2]
+l[-1]
++fftpolar[0]
+100%,100%,1,1,1
+ellipse[-1] 50%,50%,50%,50%,0,1,$5
+ellipse[-1] 50%,50%,25%,25%,0,1,$6
+ellipse[-1] 50%,50%,12%,12%,0,1,$7
+ellipse[-1] 50%,50%,6%,6%,0,1,$8
+ellipse[-1] 50%,50%,3%,3%,0,1,$9
+ellipse[-1] 50%,50%,0.1%,0.1%,0,1,1
+set[-1] 1,50%,50%
+mul[1] [-1]
+ifftpolar[1,2]
+keep[1]
+c 0,255
+done
+remove[0]
+if $11==0
+compose_grainmerge[-1,-2]
+fi
+else
+keep[-1]
+fi
+done a c done done
+iain_easy_skin_retouch_preview:
+iain_easy_skin_retouch ${1--1}
+exfuse:
+cropwidth={w}
+cropheight={h}
++mul[0] {2*$1}
++mul[0] {4*$1}
+c 0,255
++fx_ExposureWeightMap[0] $2,$3,$4,$5,0
++fx_ExposureWeightMap[1] $2,$3,$4,$5,0
++fx_ExposureWeightMap[2] $2,$3,$4,$5,0
+parallel "
+freq_pyramid[0]","
+freq_pyramid[1]","
+freq_pyramid[2]","
+dumb_pyramid[3]","
+dumb_pyramid[4]","
+dumb_pyramid[5]"
+parallel "blur[-1] $6","blur[-2] $6","blur[-3] $6"
+replace[-1,-2,-3] 0,0.000000001
++add[-1,-2,-3]
+div[-2] [-1]
+div[-3] [-1]
+div[-4] [-1]
+rm[-1]
+parallel "
+mul[0] [3]","
+mul[1] [4]","
+mul[2] [5]"
+add[0,1,2]
+keep[0]
+ifreq_pyramid[0]
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+c 0,255
+dumb_pyramid:
+cropwidth={w}
+cropheight={h}
+resize {w+(1024-w%1024)},{h+(1024-h%1024)},1,3,0,1
+newwidth={w}
++resize[-1] 50%,50%,{d},{s},2
++resize[-1] 50%,50%,{d},{s},2
++resize[-1] 50%,50%,{d},{s},2
++resize[-1] 50%,50%,{d},{s},2
++resize[-1] 50%,50%,{d},{s},2
+append x
+resize {$newwidth*2},100%,1,3,0,0
+ifreq_pyramid:
+split x,2
+split[1] x,2
+split[2] x,2
+split[3] x,2
+split[4] x,2
+crop[1] 0,0,100%,{0,h/2-1}
+crop[2] 0,0,100%,{0,h/4-1}
+crop[3] 0,0,100%,{0,h/8-1}
+crop[4] 0,0,100%,{0,h/16-1}
+crop[5] 0,0,{4,w/2-1},{0,h/32-1}
+resize[-1] {-2,w},{-2,h},{d},{s},3
+add[-1,-2]
+resize[-1] {-2,w},{-2,h},{d},{s},3
+add[-1,-2]
+resize[-1] {-2,w},{-2,h},{d},{s},3
+add[-1,-2]
+resize[-1] {-2,w},{-2,h},{d},{s},3
+add[-1,-2]
+resize[-1] {-2,w},{-2,h},{d},{s},3
+add[-1,-2]
+freq_pyramid:
+cropwidth={w}
+cropheight={h}
+resize {w+(1024-w%1024)},{h+(1024-h%1024)},1,3,0,1
+newwidth={w}
++resize[-1] 50%,50%,{d},{s},2
++resize[-1] {-2,w},{-2,h},{d},{s},3
+sub[-3,-1]
++resize[-1] 50%,50%,{d},{s},2
++resize[-1] {-2,w},{-2,h},{d},{s},3
+sub[-3,-1]
++resize[-1] 50%,50%,{d},{s},2
++resize[-1] {-2,w},{-2,h},{d},{s},3
+sub[-3,-1]
++resize[-1] 50%,50%,{d},{s},2
++resize[-1] {-2,w},{-2,h},{d},{s},3
+sub[-3,-1]
++resize[-1] 50%,50%,{d},{s},2
++resize[-1] {-2,w},{-2,h},{d},{s},3
+sub[-3,-1]
+append x
+resize {$newwidth*2},100%,1,3,0,0
+exfusion:
+cropwidth={w}
+cropheight={h}
+resize {w+(1024-w%1024)},{h+(1024-h%1024)},1,3,0,1
+repeat 10
+l[-1--4]
++l[0,1,2,3]
++resize[0] 50%,50%,1,3,2
++resize[-1] 200%,200%,1,3,3
+sub[0,-1]
++resize[1] 50%,50%,1,3,2
++resize[-1] 200%,200%,1,3,3
+sub[1,-1]
++resize[2] 50%,50%,1,3,2
++resize[-1] 200%,200%,1,3,3
+sub[2,-1]
++resize[3] 50%,50%,1,3,2
++resize[-1] 200%,200%,1,3,3
+sub[3,-1]
+done
++iain_weightmap[0] 1,$1
++iain_weightmap[1] 1,$1
++iain_weightmap[2] 1,$1
++iain_weightmap[3] 1,$1
++add[-1,-2,-3,-4]
+replace[-1,-2,-3,-4,-5] 0,0.0000000000001
+div[-2] [-1]
+div[-3] [-1]
+div[-4] [-1]
+div[-5] [-1]
+rm[-1]
+mul[4,12]
+mul[5,12]
+mul[6,12]
+mul[7,12]
+add[4,5,6,7]
+rm[0,1,2,3]
+done
+done
+l[-1,-2,-3,-4]
+parallel "
++iain_weightmap[0] 4,$1","
++iain_weightmap[1] 4,$1","
++iain_weightmap[2] 4,$1","
++iain_weightmap[3] 4,$1"
++add[-1,-2,-3,-4]
+replace[-1,-2,-3,-4,-5] 0,0.00000000000001
+div[-2] [-1]
+div[-3] [-1]
+div[-4] [-1]
+div[-5] [-1]
+rm[-1]
+mul[0,4]
+mul[1,4]
+mul[2,4]
+mul[3,4]
+add
+done
+repeat $!-1
+resize[-1] {-2,w},{-2,h},1,3,3
+add[-1,-2]
+done
+crop 0,0,{$cropwidth-1},{$cropheight-1}
++l[0]
+resize 5%,5%,1,3,2
+done
+min={1,im}
+max={1,iM}
+c[0] $min,$max
+keep[0]
+n 0,255
+exfusion3:
+cropwidth={w}
+cropheight={h}
+maxlevels={round(log2(min(w,h))+0.5)+$5}
+size={2^$maxlevels}
+resize {w+($size-w%$size)},{h+($size-h%$size)},1,3,0,1
+repeat $maxlevels
+l[-1--3]
++l[0,1,2]
++resize[0] 50%,50%,1,3,2
++resize[-1] 200%,200%,1,3,5
+sub[0,-1]
++resize[1] 50%,50%,1,3,2
++resize[-1] 200%,200%,1,3,5
+sub[1,-1]
++resize[2] 50%,50%,1,3,2
++resize[-1] 200%,200%,1,3,5
+sub[2,-1]
+done
+[0]
+fx_ExposureWeightMap[-1] $1,$2,$3,$4,0
+[1]
+fx_ExposureWeightMap[-1] $1,$2,$3,$4,0
+[2]
+fx_ExposureWeightMap[-1] $1,$2,$3,$4,0
+rm[0,1,2]
++add[-1,-2,-3]
+replace[-1,-2,-3,-4] 0,0.0000000000001
+div[-2] [-1]
+div[-3] [-1]
+div[-4] [-1]
+rm[-1]
+mul[0,6]
+mul[1,6]
+mul[2,6]
+add[0,1,2]
+done
+done
+l[-1,-2,-3]
+if $6
+iain_fast_median_stack
+else
+[0]
+[1]
+[2]
+parallel "
+fx_ExposureWeightMap[-1] $1,$2,$3,$4,0","
+fx_ExposureWeightMap[-2] $1,$2,$3,$4,0","
+fx_ExposureWeightMap[-3] $1,$2,$3,$4,0"
++add[-1,-2,-3]
+replace[-1,-2,-3,-4] 0,0.0000000000001
+div[-2] [-1]
+div[-3] [-1]
+div[-4] [-1]
+rm[-1]
+mul[0,3]
+mul[1,3]
+mul[2,3]
+add
+fi
+done
+repeat $!-1
+resize[-1] {-2,w},{-2,h},1,3,5
+add[-1,-2]
+done
+crop 0,0,{$cropwidth-1},{$cropheight-1}
++l[0]
+resize 5%,5%,1,3,2
+done
+min={1,im}
+max={1,iM}
+c[0] $min,$max
+keep[0]
+n 0,255
+exfusion5:
+images=$!
+cropwidth={w}
+cropheight={h}
+maxlevels={round(log2(min(w,h))+0.5)+0}
+size={2^$maxlevels}
+remove_opacity
+resize {w+($size-w%$size)},{h+($size-h%$size)},1,3,0,1,0.5,0.5
++l[0-{$images-1}]
+repeat $! local[$>]
+fx_ExposureWeightMap[0] $1,$2,$3,$4,0
+done done
+done
+l[-1--$images]
++add
+replace 0,0.0000000000001
+repeat $!-1
+div[$<] [-1]
+done
+rm[-1]
+done
+repeat $maxlevels
+l[-1--{$images*2}]
++l[0-{$images-1}]
+repeat $! local[$>]
++resize[0] 50%,50%,1,3,2
+resize[-1] 200%,200%,1,3,5,0
+sub[0,-1]
+done done
+done
+l[-1--{$images*2}]
+repeat $images local[$>,{$>+$images}]
+mul[-1] [-2]
+done done
+done
+l[-1--$images]
+add
+done
+move[-1] 0
+l[-1--{$images*2}]
+repeat $! local[$>]
+resize[0] 50%,50%,1,3,2
+done done
+done
+done
+done
+l[-1--{$images*2}]
+if 1
+repeat $images local[$>,{$>+$images}]
+mul[-1] [-2]
+done done
+keep[-1--$images]
+add
+else
+keep[0--{$images-1}]
+add
+div $images
+fi
+done
+repeat $!-1
+resize[-1] {-2,w},{-2,h},1,3,5,0
+add[-1,-2]
+done
+resize $cropwidth,$cropheight,1,3,0,1,0.5,0.5
+n 0,255
+mul 1000
+apply_curve 1,0,0,128000,{($6*1000)+128000},255000,255000
+mul 0.001
++iain_fast_denoise $5,$5,1,{$5/100},0
+sub[1] [0]
+mul[1] -1
++add
+c 0,255
+rm[1]
+reverse
+rgb2lch
+split c
+keep[0,4,5]
+append c
+lch2rgb
+iain_fast_formula:
+256,1
+fill[-1] x
+local[1]
+$1
+done
+crv0={1,[0]}
+crv1={1,[1]}
+crv2={1,[2]}
+crv3={1,[3]}
+crv4={1,[4]}
+crv5={1,[5]}
+crv6={1,[6]}
+crv7={1,[7]}
+crv8={1,[8]}
+crv9={1,[9]}
+crv10={1,[10]}
+crv11={1,[11]}
+crv12={1,[12]}
+crv13={1,[13]}
+crv14={1,[14]}
+crv15={1,[15]}
+crv16={1,[16]}
+crv17={1,[17]}
+crv18={1,[18]}
+crv19={1,[19]}
+crv20={1,[20]}
+crv21={1,[21]}
+crv22={1,[22]}
+crv23={1,[23]}
+crv24={1,[24]}
+crv25={1,[25]}
+crv26={1,[26]}
+crv27={1,[27]}
+crv28={1,[28]}
+crv29={1,[29]}
+crv30={1,[30]}
+crv31={1,[31]}
+crv32={1,[32]}
+crv33={1,[33]}
+crv34={1,[34]}
+crv35={1,[35]}
+crv36={1,[36]}
+crv37={1,[37]}
+crv38={1,[38]}
+crv39={1,[39]}
+crv40={1,[40]}
+crv41={1,[41]}
+crv42={1,[42]}
+crv43={1,[43]}
+crv44={1,[44]}
+crv45={1,[45]}
+crv46={1,[46]}
+crv47={1,[47]}
+crv48={1,[48]}
+crv49={1,[49]}
+crv50={1,[50]}
+crv51={1,[51]}
+crv52={1,[52]}
+crv53={1,[53]}
+crv54={1,[54]}
+crv55={1,[55]}
+crv56={1,[56]}
+crv57={1,[57]}
+crv58={1,[58]}
+crv59={1,[59]}
+crv60={1,[60]}
+crv61={1,[61]}
+crv62={1,[62]}
+crv63={1,[63]}
+crv64={1,[64]}
+crv65={1,[65]}
+crv66={1,[66]}
+crv67={1,[67]}
+crv68={1,[68]}
+crv69={1,[69]}
+crv70={1,[70]}
+crv71={1,[71]}
+crv72={1,[72]}
+crv73={1,[73]}
+crv74={1,[74]}
+crv75={1,[75]}
+crv76={1,[76]}
+crv77={1,[77]}
+crv78={1,[78]}
+crv79={1,[79]}
+crv80={1,[80]}
+crv81={1,[81]}
+crv82={1,[82]}
+crv83={1,[83]}
+crv84={1,[84]}
+crv85={1,[85]}
+crv86={1,[86]}
+crv87={1,[87]}
+crv88={1,[88]}
+crv89={1,[89]}
+crv90={1,[90]}
+crv91={1,[91]}
+crv92={1,[92]}
+crv93={1,[93]}
+crv94={1,[94]}
+crv95={1,[95]}
+crv96={1,[96]}
+crv97={1,[97]}
+crv98={1,[98]}
+crv99={1,[99]}
+crv100={1,[100]}
+crv101={1,[101]}
+crv102={1,[102]}
+crv103={1,[103]}
+crv104={1,[104]}
+crv105={1,[105]}
+crv106={1,[106]}
+crv107={1,[107]}
+crv108={1,[108]}
+crv109={1,[109]}
+crv110={1,[110]}
+crv111={1,[111]}
+crv112={1,[112]}
+crv113={1,[113]}
+crv114={1,[114]}
+crv115={1,[115]}
+crv116={1,[116]}
+crv117={1,[117]}
+crv118={1,[118]}
+crv119={1,[119]}
+crv120={1,[120]}
+crv121={1,[121]}
+crv122={1,[122]}
+crv123={1,[123]}
+crv124={1,[124]}
+crv125={1,[125]}
+crv126={1,[126]}
+crv127={1,[127]}
+crv128={1,[128]}
+crv129={1,[129]}
+crv130={1,[130]}
+crv131={1,[131]}
+crv132={1,[132]}
+crv133={1,[133]}
+crv134={1,[134]}
+crv135={1,[135]}
+crv136={1,[136]}
+crv137={1,[137]}
+crv138={1,[138]}
+crv139={1,[139]}
+crv140={1,[140]}
+crv141={1,[141]}
+crv142={1,[142]}
+crv143={1,[143]}
+crv144={1,[144]}
+crv145={1,[145]}
+crv146={1,[146]}
+crv147={1,[147]}
+crv148={1,[148]}
+crv149={1,[149]}
+crv150={1,[150]}
+crv151={1,[151]}
+crv152={1,[152]}
+crv153={1,[153]}
+crv154={1,[154]}
+crv155={1,[155]}
+crv156={1,[156]}
+crv157={1,[157]}
+crv158={1,[158]}
+crv159={1,[159]}
+crv160={1,[160]}
+crv161={1,[161]}
+crv162={1,[162]}
+crv163={1,[163]}
+crv164={1,[164]}
+crv165={1,[165]}
+crv166={1,[166]}
+crv167={1,[167]}
+crv168={1,[168]}
+crv169={1,[169]}
+crv170={1,[170]}
+crv171={1,[171]}
+crv172={1,[172]}
+crv173={1,[173]}
+crv174={1,[174]}
+crv175={1,[175]}
+crv176={1,[176]}
+crv177={1,[177]}
+crv178={1,[178]}
+crv179={1,[179]}
+crv180={1,[180]}
+crv181={1,[181]}
+crv182={1,[182]}
+crv183={1,[183]}
+crv184={1,[184]}
+crv185={1,[185]}
+crv186={1,[186]}
+crv187={1,[187]}
+crv188={1,[188]}
+crv189={1,[189]}
+crv190={1,[190]}
+crv191={1,[191]}
+crv192={1,[192]}
+crv193={1,[193]}
+crv194={1,[194]}
+crv195={1,[195]}
+crv196={1,[196]}
+crv197={1,[197]}
+crv198={1,[198]}
+crv199={1,[199]}
+crv200={1,[200]}
+crv201={1,[201]}
+crv202={1,[202]}
+crv203={1,[203]}
+crv204={1,[204]}
+crv205={1,[205]}
+crv206={1,[206]}
+crv207={1,[207]}
+crv208={1,[208]}
+crv209={1,[209]}
+crv210={1,[210]}
+crv211={1,[211]}
+crv212={1,[212]}
+crv213={1,[213]}
+crv214={1,[214]}
+crv215={1,[215]}
+crv216={1,[216]}
+crv217={1,[217]}
+crv218={1,[218]}
+crv219={1,[219]}
+crv220={1,[220]}
+crv221={1,[221]}
+crv222={1,[222]}
+crv223={1,[223]}
+crv224={1,[224]}
+crv225={1,[225]}
+crv226={1,[226]}
+crv227={1,[227]}
+crv228={1,[228]}
+crv229={1,[229]}
+crv230={1,[230]}
+crv231={1,[231]}
+crv232={1,[232]}
+crv233={1,[233]}
+crv234={1,[234]}
+crv235={1,[235]}
+crv236={1,[236]}
+crv237={1,[237]}
+crv238={1,[238]}
+crv239={1,[239]}
+crv240={1,[240]}
+crv241={1,[241]}
+crv242={1,[242]}
+crv243={1,[243]}
+crv244={1,[244]}
+crv245={1,[245]}
+crv246={1,[246]}
+crv247={1,[247]}
+crv248={1,[248]}
+crv249={1,[249]}
+crv250={1,[250]}
+crv251={1,[251]}
+crv252={1,[252]}
+crv253={1,[253]}
+crv254={1,[254]}
+crv255={1,[255]}
+apply_curve[0] 0,0,$crv0,1,$crv1,2,$crv2,3,$crv3,4,$crv4,5,$crv5,6,$crv6,7,$crv7,8,$crv8,9,$crv9,10,$crv10,11,$crv11,12,$crv12,13,$crv13,14,$crv14,15,$crv15,16,$crv16,17,$crv17,18,$crv18,19,$crv19,20,$crv20,21,$crv21,22,$crv22,23,$crv23,24,$crv24,25,$crv25,26,$crv26,27,$crv27,28,$crv28,29,$crv29,30,$crv30,31,$crv31,32,$crv32,33,$crv33,34,$crv34,35,$crv35,36,$crv36,37,$crv37,38,$crv38,39,$crv39,40,$crv40,41,$crv41,42,$crv42,43,$crv43,44,$crv44,45,$crv45,46,$crv46,47,$crv47,48,$crv48,49,$crv49,50,$crv50,51,$crv51,52,$crv52,53,$crv53,54,$crv54,55,$crv55,56,$crv56,57,$crv57,58,$crv58,59,$crv59,60,$crv60,61,$crv61,62,$crv62,63,$crv63,64,$crv64,65,$crv65,66,$crv66,67,$crv67,68,$crv68,69,$crv69,70,$crv70,71,$crv71,72,$crv72,73,$crv73,74,$crv74,75,$crv75,76,$crv76,77,$crv77,78,$crv78,79,$crv79,80,$crv80,81,$crv81,82,$crv82,83,$crv83,84,$crv84,85,$crv85,86,$crv86,87,$crv87,88,$crv88,89,$crv89,90,$crv90,91,$crv91,92,$crv92,93,$crv93,94,$crv94,95,$crv95,96,$crv96,97,$crv97,98,$crv98,99,$crv99,100,$crv100,101,$crv101,102,$crv102,103,$crv103,104,$crv104,105,$crv105,106,$crv106,107,$crv107,108,$crv108,109,$crv109,110,$crv110,111,$crv111,112,$crv112,113,$crv113,114,$crv114,115,$crv115,116,$crv116,117,$crv117,118,$crv118,119,$crv119,120,$crv120,121,$crv121,122,$crv122,123,$crv123,124,$crv124,125,$crv125,126,$crv126,127,$crv127,128,$crv128,129,$crv129,130,$crv130,131,$crv131,132,$crv132,133,$crv133,134,$crv134,135,$crv135,136,$crv136,137,$crv137,138,$crv138,139,$crv139,140,$crv140,141,$crv141,142,$crv142,143,$crv143,144,$crv144,145,$crv145,146,$crv146,147,$crv147,148,$crv148,149,$crv149,150,$crv150,151,$crv151,152,$crv152,153,$crv153,154,$crv154,155,$crv155,156,$crv156,157,$crv157,158,$crv158,159,$crv159,160,$crv160,161,$crv161,162,$crv162,163,$crv163,164,$crv164,165,$crv165,166,$crv166,167,$crv167,168,$crv168,169,$crv169,170,$crv170,171,$crv171,172,$crv172,173,$crv173,174,$crv174,175,$crv175,176,$crv176,177,$crv177,178,$crv178,179,$crv179,180,$crv180,181,$crv181,182,$crv182,183,$crv183,184,$crv184,185,$crv185,186,$crv186,187,$crv187,188,$crv188,189,$crv189,190,$crv190,191,$crv191,192,$crv192,193,$crv193,194,$crv194,195,$crv195,196,$crv196,197,$crv197,198,$crv198,199,$crv199,200,$crv200,201,$crv201,202,$crv202,203,$crv203,204,$crv204,205,$crv205,206,$crv206,207,$crv207,208,$crv208,209,$crv209,210,$crv210,211,$crv211,212,$crv212,213,$crv213,214,$crv214,215,$crv215,216,$crv216,217,$crv217,218,$crv218,219,$crv219,220,$crv220,221,$crv221,222,$crv222,223,$crv223,224,$crv224,225,$crv225,226,$crv226,227,$crv227,228,$crv228,229,$crv229,230,$crv230,231,$crv231,232,$crv232,233,$crv233,234,$crv234,235,$crv235,236,$crv236,237,$crv237,238,$crv238,239,$crv239,240,$crv240,241,$crv241,242,$crv242,243,$crv243,244,$crv244,245,$crv245,246,$crv246,247,$crv247,248,$crv248,249,$crv249,250,$crv250,251,$crv251,252,$crv252,253,$crv253,254,$crv254,255,$crv255
+keep[0]
+iain_fast_median_stack:
+if $!>2
+if $!%2!=0
+repeat $!/2
+repeat $!-1
+l[$>,{$>+1}]
++max[0,1]
+min[0,1]
+done
+done
+progress {($>/$!)*200}
+done
+keep[{round(($!/2)-.5)}]
+else
+repeat ($!/2)+1
+repeat $!-1
+l[$>,{$>+1}]
++max[0,1]
+min[0,1]
+done
+done
+progress {($>/$!)*200}
+done
+keep[{round(($!/2)-.5)},{round({$!/2}-.5)-1}]
+add
+mul .5
+fi
+elif $!==2
+add
+mul .5
+elif $!==1
+fi
+iain_median_3_stack:
+iain_fast_median_stack
+iain_median_4_stack:
+iain_fast_median_stack
+iain_median_5_stack:
+iain_fast_median_stack
+fft_tile_fft:
++fftpolar[0]
++threshold[1] $1
+set[-1] 1,50%,50%
+mul[1] [-1]
++ifftpolar[1,2]
+keep[-1]
+fft_tile_clean:
+tc={round(w/$2)} tr={round(h/$2)}
+split_tiles $tc,$tr
+repeat $! local[$>]
+fft_tile_fft[0--1] $1
+done done
+append_tiles $tc,$tr
+c 0,255
+fft_tile:
++resize[0] {w+$2},{h+$2},1,1,0,1,1,1
+resize[-1] {w+$2},{h+$2},1,1,0,1,0,0
+fft_tile_clean[-1] $1,$2
+crop[-1] $2,$2,{w-$2-1},{h-$2-1}
+if $3==0
+push={round($2*1.5)}
+pull={$2-$push}
++resize[0] {w+$push},{h+$2},1,1,0,1,1,1
+resize[-1] {w+$pull},{h+$2},1,1,0,1,0,0
+fft_tile_clean[-1] $1,$2
+crop[-1] {$push},{$2},{w-$pull-1},{h-($2)-1}
++resize[0] {w+$2},{h+$push},1,1,0,1,1,1
+resize[-1] {w+$2},{h+$pull},1,1,0,1,0,0
+fft_tile_clean[-1] $1,$2
+crop[-1] $2,{$push},{w-$2-1},{h-$pull-1}
+dia1={round($2/3)}
+dia2={$2-$dia1}
++resize[0] {w+$dia1},{h+$dia1},1,1,0,1,1,1
+resize[-1] {w+$dia2},{h+$dia2},1,1,0,1,0,0
+fft_tile_clean[-1] $1,$2
+crop[-1] {$dia1},{$dia1},{w-$dia2-1},{h-$dia2-1}
++resize[0] {w+$dia2},{h+$dia2},1,1,0,1,1,1
+resize[-1] {w+$dia1},{h+$dia1},1,1,0,1,0,0
+fft_tile_clean[-1] $1,$2
+crop[-1] {$dia2},{$dia2},{w-$dia1-1},{h-$dia1-1}
+fi
+remove[0]
+if $3==0
+blend_median
+fi
+fft_tile_preview:
+fft_tile $1,$2,$3
+n 0,255
+fill_holes:
+ac "
+if $5==0
+if $6==1
++dilate[-1] $1
+erode[-1] $2
+compose_lighten
+dilate[-1] $3
+erode[-1] $3
+fi
+if $6==0
++dilate_circ[-1] $1
+erode_circ[-1] $2
+compose_lighten
+dilate_circ[-1] $3
+erode_circ[-1] $3
+fi
+fi
+c 0,255
+if $5==1
+if $6==1
++erode[-1] $1
+dilate[-1] $2
+compose_darken
+erode[-1] $3
+dilate[-1] $3
+fi
+if $6==0
++erode_circ[-1] $1
+dilate_circ[-1] $2
+compose_darken
+erode_circ[-1] $3
+dilate_circ[-1] $3
+fi
+fi
+c 0,255
+",$4
+fill_holes_preview:
+fill_holes $1,$2,$3,$4,$5,$6
+iain_descreen2:
+channels 0
+fftpolar
++blur[0] $1%
+sub[-1] [0]
+gt[-1] $2
+circle[-1] 50%,50%,$3%,1,1
+mul[0] [-1]
+keep[0,1]
+ifftpolar
+c 0,255
+iain_halftone_shapes:
+warp_it=$7
+remove_opacity
+scale=$1
+luminance
+if $4==1
+resize 400%,400%,1,1,3
+scale={$scale*4}
+fi
+if $3==0
+sx1=353
+sx2=515
+sx3=677
+sx4=1000
+sx5=1323
+sx6=1485
+sx7=1647
+sx8=1485
+sx9=1323
+sx10=1000
+sx11=677
+sx12=515
+sy1=1000
+sy2=1280
+sy3=1560
+sy4=1560
+sy5=1560
+sy6=1280
+sy7=1000
+sy8=720
+sy9=440
+sy10=440
+sy11=440
+sy12=720
+level=19
+luminance
++l
+rm
+2000,2000,1,1,0
+repeat 19
+polygon 12,$sx1,$sy1,$sx2,$sy2,$sx3,$sy3,$sx4,$sy4,$sx5,$sy5,$sx6,$sy6,$sx7,$sy7,$sx8,$sy8,$sx9,$sy9,$sx10,$sy10,$sx11,$sy11,$sx12,$sy12,1,$level
+sy3={$sy3-(78/16)}
+sy5={$sy5-(78/16)}
+sy9={$sy9+(78/16)}
+sy11={$sy11+(78/16)}
+sx1={$sx1+(90/16)}
+sx3={$sx3+(45/16)}
+sx5={$sx5-(45/16)}
+sx7={$sx7-(90/16)}
+sx9={$sx9-(45/16)}
+sx11={$sx11+(45/16)}
+level={$level+10}
+done
+radius={560}
+level=209
+repeat 57
+circle 50%,50%,$radius,1,$level
+radius={$radius-10}
+level={$level+10}
+done
+n 0,255
++shift[0] 972,560,0,0
++shift[0] 972,-560,0,0
++shift[0] -972,560,0,0
++shift[0] -972,-560,0,0
+add
+crop 29,440,1972,1560
+done
+resize[1] 194,112,1,1,2
+equalize[1] 65555
+resize[1] $scale%,$scale%,1,1,3
+if $2==1
+negate[1]
+fi
+fi
+if $3==1
+sx1=50
+sx2=194
+sx3=281
+sx4=511
+sx5=742
+sx6=829
+sx7=972
+sx8=829
+sx9=742
+sx10=511
+sx11=281
+sx12=192
+sy1=450
+sy2=633
+sy3=849
+sy4=817
+sy5=849
+sy6=633
+sy7=450
+sy8=267
+sy9=50
+sy10=83
+sy11=50
+sy12=267
+level=10
+luminance
++l
+rm
+2000,2000,1,1,0
+repeat 128
+polygon 12,$sx1,$sy1,$sx2,$sy2,$sx3,$sy3,$sx4,$sy4,$sx5,$sy5,$sx6,$sy6,$sx7,$sy7,$sx8,$sy8,$sx9,$sy9,$sx10,$sy10,$sx11,$sy11,$sx12,$sy12,1,$level
+sx2={$sx2+(40/16)}
+sx6={$sx6-(40/16)}
+sx8={$sx8-(40/16)}
+sx12={$sx12+(40/16)}
+sy2={$sy2-(23/16)}
+sy4={$sy4-(47/16)}
+sy6={$sy6-(23/16)}
+sy8={$sy8+(23/16)}
+sy10={$sy10+(47/16)}
+sy12={$sy12+(23/16)}
+level={$level+12}
+done
+n 0,255
+resize 200,200,1,1,3
++shift[0] -69,-40,0,0
++shift[0] -69,40,0,0
++shift[0] 69,-40,0,0
++shift[0] 69,40,0,0
+add
+crop 5,5,142,84
+done
+resize[1] 194,112,1,1,2
+equalize[1] 65555
+resize[1] $scale%,$scale%,1,1,3
+if $2==1
+negate[1]
+fi
+fi
+if $3==2
+sx1=161
+sx2=1000
+sx3=1839
+sy1=273
+sy2=1727
+sy3=273
+level=10
+luminance
++l
+rm
+2000,2000,1,1,0
+repeat 375
+polygon 3,$sx1,$sy1,$sx2,$sy2,$sx3,$sy3,1,$level
+sx1={$sx1+2.21}
+sx3={$sx3-2.21}
+sy1={$sy1+1.28}
+sy2={$sy2-2.56}
+sy3={$sy3+1.28}
+level={$level+1}
+done
++rotate[0] 180
++shift[1] {840+2}
+shift[1] -840
+add
+crop 160,{216+56},1842,1727
+n 0,255
+done
+equalize[1] 256
+resize[1] 168,145,1,1,2
+resize[1] $scale%,$scale%,1,1,3
+if $2==1
+negate[1]
+fi
+fi
+if $3==3
+luminance
++l
+rm
+l
+190,190,1,1,0
+circle 50,50,50,1,10
+circle 140,50,50,1,10
+polygon 5,10,80,50,50,140,50,180,80,95,190,1,10
+resize[-1] {0,w+2},{0,h+2},1,1,0,0,0.5,0.5
++resize[0] 95%,95%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 90%,90%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 85%,85%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 75%,75%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 65%,65%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 55%,55%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 50%,50%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 45%,45%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 40%,40%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 35%,35%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 30%,30%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 25%,25%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 20%,20%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 15%,15%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 10%,10%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 5%,5%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
+add
+done
+[0]
+append y
+resize 200%,100%,1,1,0,0,0.5,0.5
++shift[0] 160,100,0,0
++shift[0] -160,100,0,0
+add
+crop 30,190,350,100%
+n 0,255
+done
+resize[-1] $scale,$scale,1,1,2
+if $2==1
+negate[1]
+fi
+fi
+width={w}
+height={h}
+w_tiles={round({0,w}/$width)}
+h_tiles={round({0,h}/$height)}
+total_tiles=$h_tiles*$w_tiles
+[-1]x{$total_tiles-1}
+append_tiles[1--1] $w_tiles,$h_tiles
+equalize[-1] 256
+if $warp_it
+rotate[-1] $5,1,2,50%,50%
+twirl[-1] $6,.5,.5,2
+fi
+blend alpha,0.5,1
+gt 128
+mul 255
+if $4==1
+resize 25%,25%,1,1,3
+fi
+iain_hearttone:
+if $2>0
++iain_fast_denoise[0] $2,0,1,0,0
+sub[1] [0]
+mul[1] -1
+add
+n 0,255
+fi
+luminance
++l
+rm
+l
+190,190,1,1,0
+circle 50,50,50,1,10
+circle 140,50,50,1,10
+polygon 5,10,80,50,50,140,50,180,80,95,190,1,10
+resize[-1] {0,w+2},{0,h+2},1,1,0,0,0.5,0.5
++resize[0] 95%,95%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 90%,90%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 85%,85%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 75%,75%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 65%,65%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 55%,55%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 50%,50%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 45%,45%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 40%,40%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 35%,35%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 30%,30%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 25%,25%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 20%,20%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 15%,15%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 10%,10%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
++resize[0] 5%,5%,1,1,2
+resize[-1] {0,w},{0,h},1,1,0,0,0.5,0.5
+add
+done
+[0]
+append y
+resize 200%,100%,1,1,0,0,0.5,0.5
++shift[0] 160,100,0,0
++shift[0] -160,100,0,0
+add
+crop 30,190,350,100%
+n 0,255
+done
+resize[-1] $1,$1,1,1,2
+width={w}
+height={h}
+w_tiles={0,round(w/$width)}
+h_tiles={0,round(h/$height)}
+total_tiles=$h_tiles*$w_tiles
+[-1]x{$total_tiles-1}
+append_tiles[1--1] $w_tiles,$h_tiles
+equalize[-1] 256
+blend alpha,0.5,1
+gt 128
+mul 255
+iain_2x:
+repeat $! local[$>]
+resize[0] 200%,200%,1,3,4
+split c
+repeat $! local[$>]
++l[0]
+(0,0,0.5;0,1,0;0.5,0,0)
+convolve[0] [1]
+remove[1]
+done
++l[0]
+(0.5,0,0;0,1,0;0,0,0.5)
+convolve[0] [1]
+remove[1]
+done
+remove[0]
++l[0]
+(0,0,0.5;0,-1,0;0.5,0,0)
+convolve[0] [1]
+remove[1]
+abs
+done
++l[1]
+(0.5,0,0;0,-1,0;0,0,0.5)
+convolve[0] [1]
+remove[1]
+abs
+done
+dilate[-1,-2] 3
+sub[-2] [-1]
+remove[-1]
+l[-1]
++lt[0] 0
++gt[0] 0
+fill[0] 0
+sub[0] [1]
+add[0] [-1]
+keep[0]
+add[0] 1
+mul[0] 127.5
+done
+append[1,2] c
+blend alpha,1,0
++l[0]
+(0.5,1,0.5)
+convolve[0] [1]
+remove[1]
+done
++l[0]
+(0.5;1;0.5)
+convolve[0] [1]
+remove[1]
+done
+remove[0]
++l[0]
+(0.5,-1,0.5)
+convolve[0] [1]
+remove[1]
+abs
+done
++l[1]
+(0.5;-1;0.5)
+convolve[0] [1]
+remove[1]
+abs
+done
+blur[-1,-2] 3
+sub[-2] [-1]
+remove[-1]
+l[-1]
++lt[0] 0
++gt[0] 0
+fill[0] 0
+sub[0] [1]
+add[0] [-1]
+keep[0]
+add[0] 1
+mul[0] 127.5
+done
+append[1,2] c
+blend alpha,1,0
+done done
+append c
+done done
+iain_demosiac:
+to_rgb
+add 1000
+rgb2bayer $1,1
+replace 0,0.0000000001
++l[0]
+replace 0,0.000000001
++l[0]
+to_rgb
++split[0] c
+split[0] c
+name[0] red
+name[1] green
+name[2] blue
+name[-3] redblur
+name[-2] greenblur
+name[-1] blueblur
+(0.25,.5,0.5,.5,0.25)
+convolve[redblur] [-1]
+convolve[blueblur] [-1]
+remove[-1]
+(1;1)
+convolve[redblur] [-1]
+convolve[blueblur] [-1]
+remove[-1]
+(0.5,1,0.5)
+convolve[greenblur] [-1]
+remove[-1]
++div[greenblur] [redblur]
++div[greenblur] [blueblur]
+name[-1] bluemul
+name[-2] redmul
+remove[redblur,greenblur,blueblur]
+mul[red] [redmul]
+mul[blue] [bluemul]
+keep[red,green,blue]
+add
+c -100000000,100000000
+done
+l[0]
+to_rgb
++split[0] c
+split[0] c
+name[0] red
+name[1] green
+name[2] blue
+name[-3] redblur
+name[-2] greenblur
+name[-1] blueblur
+(0.25;.5;0.5;.5;0.25)
+convolve[redblur] [-1]
+convolve[blueblur] [-1]
+remove[-1]
+(1,1)
+convolve[redblur] [-1]
+convolve[blueblur] [-1]
+remove[-1]
+(0.5;1;0.5)
+convolve[greenblur] [-1]
+remove[-1]
++div[greenblur] [redblur]
++div[greenblur] [blueblur]
+name[-1] bluemul
+name[-2] redmul
+remove[redblur,greenblur,blueblur]
+mul[red] [redmul]
+mul[blue] [bluemul]
+keep[red,green,blue]
+add
+c -100000000,100000000
+done
+(1,-2,1)
++convolve[1] [-1]
+abs[-1]
+remove[-2]
+(1;-2;1)
++convolve[0] [-1]
+abs[-1]
+remove[-2]
++add[-2] [-1]
+div[-2] [-1]
+remove[-1,-3]
+lt[-1] 0.5
+mul[-1] 255
+blur[-1] 1
+append[0,-1] c
+blend alpha,1,1
+done
+split[0] c
+remove[1]
+reverse[1,2]
+(0.25,0.5,0.25;0.5,1,0.5;0.25,0.5,0.25)
+convolve[0] [-1]
+convolve[2] [-1]
+remove[-1]
++resize 50%,50%,{d},{s},2
+sub[-1] [-2]
+sub[-3] [-2]
+remove[-2]
+resize[-1,-2] {0,w},{0,h},{d},{s},3
+remove[0,2]
+add[1] [0]
+add[2] [0]
+reverse[0,1]
+append c
+sub 1000
+c 0,255
+iain_denoise_2019_beta3_preview:
+images={$!}
+if $images>2
+k[0]
+fill 128
+text "too many input images",12,12,50,1,0
+text "too many input images",10,10,50,1,255
+quit
+fi
+if $images==1
+[0]
+fi
+if $15
++l[-1]
+mid_tone_offset={$4/-5}
+luminance
+add {$mid_tone_offset*255}
+resize 25%,25%,100%,100%,2
+median 5
+line 0,0,0,100%,1,128
+line 0,0,100%,0,1,128
+line 0,100%,100%,100%,1,128
+line 100%,0,100%,100%,1,128
++gt[0] 85
++gt[0] 170
+laplacian[1,2]
+l[1]
++gt[0] 0
+lt[0] 0
+replace[0] 1,100
+replace[1] 1,1
+max[0,1]
+done
+l[2]
++gt[0] 0
+lt[0] 0
+replace[0] 1,255
+replace[1] 1,150
+max[0,1]
+done
+max[-1,-2]
++neq[-1] 0
+replace[-1] 1,255
+append[-1,-2] c
+scale2x[-1]
+scale2x[-1]
+k[-1]
+done
+fi
+l[0,1]
+if $14==0
+fine=$8
+mid=$9
+large=$10
++iain_denoise_2019_beta3 $1,$2,$3,$4,$5,$6,$7,$fine,$mid,$large,$11,$12,$13,$14,$15
+k[0,-1]
+sub
+noise_amp={_round((128/(max(abs(im),iM))),0.1)}
+mul $noise_amp
+add 128
+c 0,255
+elif $14==1
+fine=$8
+mid=0
+large=0
++iain_denoise_2019_beta3 $1,$2,$3,$4,$5,$6,$7,$fine,$mid,$large,$11,$12,$13,$14,$15$15
+k[0,-1]
+sub
+noise_amp={_round((128/(max(abs(im),iM))),0.1)}
+mul $noise_amp
+add 128
+c 0,255
+elif $14==2
+fine=0
+mid=$9
+large=0
++iain_denoise_2019_beta3 $1,$2,$3,$4,$5,$6,$7,$fine,$mid,$large,$11,$12,$13,$14,$15
+k[0,-1]
+sub
+noise_amp={_round((128/(max(abs(im),iM))),0.1)}
+mul $noise_amp
+add 128
+c 0,255
+elif $14==3
+fine=0
+mid=0
+large=$10
++iain_denoise_2019_beta3 $1,$2,$3,$4,$5,$6,$7,$fine,$mid,$large,$11,$12,$13,$14,$15
+k[0,-1]
+sub
+noise_amp={_round((128/(max(abs(im),iM))),0.1)}
+mul $noise_amp
+add 128
+c 0,255
+elif $14==4
+iain_denoise_2019_beta3 $1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12,$13,$14,$15
+fi
+done
+blend alpha
+text_size=13
+if $images==1
+guide="Internal Guide"
+bg_colour=255
+text_colour=0
+else
+guide="External Guide"
+bg_colour=0
+text_colour=255
+fi
+if $14!=4
+box_size=100%
+else
+box_size=100%
+fi
+rectangle 0,0,$box_size,20,0.5,$bg_colour
+text $guide,0.1~,4,$text_size,1,$text_colour
+if $14!=4
+rectangle {(w/2)-127*($noise_amp/2)},{h-20},{(w/2)+127*($noise_amp/2)},100%,0.5,$bg_colour
+text Noise\ amplified\ $noise_amp\ times,0.5~,{h-16},$text_size,1,$text_colour
+fi
+guide_recovery=0
+if $12==0
+do_recovery=0
+elif $12==1
+do_recovery=1
+slow=0
+recover_text="Fast Recovery"
+elif $12==2
+do_recovery=1
+slow=1
+recover_text="Slow Recovery"
+elif $12==3
+do_recovery=1
+slow=1
+guide_recovery=1
+recover_text="Guide Recovery"
+fi
+if $12!=0
+text $recover_text,0.9~,4,$text_size,1,$text_colour
+fi
+iain_denoise_2019_beta3:
+images={$!}
+if $images>2
+quit
+fi
+gamma=$1
+shadow=$2
+light=$3
+mid_tone_offset={$4/5}
+chroma=$5
+external_guide_strength=$6
+soften_guide=$7
+fine=$8
+mid={$9/3}
+large={$10/9}
+patch_size=3
+patch_size_b=3
+lookup_size={($11*2)+1}
+mid_lookup_size=$11
+large_lookup_size=$11
+smoothness_fine=0
+smoothness=0
+fast_approx=0
+std_deviation_s=10
+recover=$13
+guide_recovery=0
+slow=0
+if $12==0
+do_recovery=0
+elif $12==1
+do_recovery=1
+elif $12==2
+do_recovery=1
+slow=1
+elif $12==3
+do_recovery=1
+slow=1
+guide_recovery=1
+fi
+remove_opacity
+external_guide=1
+if $!==1
+[0]
+external_guide=0
+fi
+if $guide_recovery==0
+if $external_guide_strength<1
+[0]
+mul[1] $external_guide_strength
+mul[2] {1-$external_guide_strength}
+add[1,2]
+fi
+l[-1]
+if $chroma>0
+redmul=.299
+greenmul=.587
+bluemul=.114
++split[0] c
+mul[1] $redmul mul[2] $greenmul mul[3] $bluemul
+add[1-3]
+if $chroma==1
+keep[1]
+else
+split[0] c name[0] red name[1] green name[2] blue name[3] luma
++sub[blue] [luma] name[-1] cb
++sub[red] [luma] name[-1] cr
+keep[luma,cb,cr]
+mul[cb,cr] {1-$chroma}
++add[cb] [luma] name[-1] blueout
++add[cr] [luma] name[-1] redout
+remove[1,2]
++mul[redout] $redmul +mul[blueout] $bluemul
+sub[luma] [-1] sub[luma] [-2]
+div[luma] $greenmul
+remove[-1,-2]
+move[2] 0
+append c
+fi
+fi
+sub 127
+div 128
+if $gamma!=1
+add 1
+pow $gamma
+sub 1
+fi
+sub $mid_tone_offset
++c[0] 0,100
+c[0] -100,0
+l[0]
+if $shadow>0
+fill i+($shadow*abs(i)*0.75)^2
+elif $shadow<0
+fill i-(abs(i)^3)*(abs($shadow))
+fi
+done
+l[1]
+if $light>0
+div[0] {(2^$gamma)-1}
+fill i-($light*abs(i)*0.75)^2
+mul[0] {(2^$gamma)-1}
+elif $light<0
+div[0] {(2^$gamma)-1}
+fill i+(abs(i)^3)*(abs($light))
+mul[0] {(2^$gamma)-1}
+fi
+done
+add
+add $mid_tone_offset
+mul 128
+add 127
+if $soften_guide
+l[0]
+(0,0.2,0;0.2,0.2,0.2;0,0.2,0)
+convolve[0] [1]
+rm[1]
+done
+fi
+done
++l[0,1]
+levels=2
+size={3^$levels}
+cropwidth={w}
+cropheight={h}
+to_rgb
+resize {w+($size-w%$size)},{h+($size-h%$size)},{d},{s},0,1
+if $fine>0
+denoise[0] [1],$std_deviation_s,$fine,$patch_size,$lookup_size,$smoothness_fine,$fast_approx
+fi
++resize[0,1] 33.33333%,33.33333%,{d},{s},2
+rm[1]
++iain_resize_x3[-2]
+blur[-1] 1
+sub[0,-1]
+if $mid>0
+denoise[1] [2],$std_deviation_s,$mid,$patch_size,$mid_lookup_size,$smoothness_fine,$fast_approx
+fi
+l[1,2]
++resize[0,1] 33.33333%,33.33333%,{-1,d},{-1,s},2
+rm[1]
++iain_resize_x3[-2]
+blur[-1] 1
+sub[0,-1]
+if $large>0
+denoise[1] [2],$std_deviation_s,$large,$patch_size,$large_lookup_size,$smoothness_fine,$fast_approx
+fi
+done
+rm[-1]
+repeat 2
+iain_resize_x3[-1]
+blur[-1] 1
+add[-1,-2]
+done
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+c 0,255
+done
+rm[1]
+fi
+if $do_recovery
+sub[0] [1]
+l[0] split c mul[0] 0.2126 mul[1] 0.7125 mul[2] 0.0722 add done
++blur[0] 10
+sub[0] [-1]
+rm[-1]
++abs[0]
+noise={-1,ia}
+blur[-1] 3
+bilateral[-1] [1],20,$noise
+blur[-1] 2
+fill[-1] 5/i
+mul[0] [-1]
+l[0]
+add 128
+resize[0] {w+256},{h+256},1,1,0,2,0.5,0.5
+if $slow
+iain_tiletest4_stack[0] {2-$recover},0.5
+else
+iain_tiletest4[0] {2-$recover},0.5
+fi
+crop[0] 128,128,{w-129},{h-129}
+sub 128
++blur 10
+sub
+done
+div[0] [-1]
+rm[-1]
+to_rgb[0]
+add
+else
+k[-1]
+fi
+c 0,255
+time=$|
+name name($time)
+iain_resize_x3:
+resize[0] {(w*3)-2},{(h*3)-2},{d},{s},5,0
+resize[0] {w+2},{h+2},{d},{s},0,1,0.5,0.5
+iain_tiletest4_stack:
+resize {w+128},{h+128},1,1,0,2,0.5,0.5
+offset1x=24
+offset1y=4
+offset2x=-10
+offset2y=21
+offset3x=27
+offset3y=27
+offset4x=6
+offset4y=38
++shift[0] $offset1x,$offset1y,0,0
++shift[0] $offset2x,$offset2y,0,0
++shift[0] $offset3x,$offset3y,0,0
++shift[0] $offset4x,$offset4y,0,0
+iain_tiletest4[0] $1,$2
+iain_tiletest4[1] $1,$2
+iain_tiletest4[2] $1,$2
+iain_tiletest4[3] $1,$2
+iain_tiletest4[4] $1,$2
+shift[1] {$offset1x*-1},{$offset1y*-1},0,0
+shift[2] {$offset2x*-1},{$offset2y*-1},0,0
+shift[3] {$offset3x*-1},{$offset3y*-1},0,0
+shift[4] {$offset4x*-1},{$offset4y*-1},0,0
+blend_median
+crop 64,64,{w-65},{h-65}
+iain_tiletest4:
+remove_opacity
+luminance
+cropwidth={w}
+cropheight={h}
+size={64}
+resize {w+($size-w%$size)},{h+($size-h%$size)},{d},{s},0,1
+tilew={w/64}
+tileh={h/64}
+split_tiles $tilew,$tileh
+apply_parallel "
+fftpolar
+append z
+k[0]
+"
++blend_median
+mul[-1] $1
+repeat $!-1
+l[$>,-1]
+split z
++circle[0] 50%,50%,1,1,0
+blur[-1] 1
+mul[-1] {$1*$2}
+lt[-1] [2]
+circle[-1] 50%,50%,1,1,0
+mul[-1] [2]
+sub[0] [-1]
+c[0] 0,999999999999999
+k[0,1,2,3]
+append[0,1] z
+append[1,2] z
+done
+done
+rm[-1]
+apply_parallel "
+split z
+ifftpolar
+"
+append_tiles $tilew,$tileh
+c 0,255
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+iain_remove_pattern:
+remove_opacity
++l
++blur[0] $1
+guided[0] [1],$2,$3
+k[0]
+done
+if $4
+sub[0] [1]
+add[0] 128
+iain_remove_pattern_tiles_stack[0] $5,$5,$6,1,$7
+sub[0] 128
+to_rgb
+add
+else
+k[-1]
+fi
+c 0,255
+iain_remove_pattern_preview:
+if $8==0
+iain_remove_pattern[0] $1,$2,$3,$4,$5,$6,$7
+elif $8==1
+to_rgb display_fft
+elif $8==2
+iain_remove_pattern[0] $1,$2,$3,$4,$5,$6,$7
+to_rgb display_fft
+elif $8==3
++iain_remove_pattern[0] $1,$2,$3,$4,$5,$6,$7
+sub
+to_rgb display_fft
+fi
+iain_remove_pattern_tiles_stack:
+offset={round($3/3)}
+remove_opacity
+luminance
++l
+if $5>0
++shift[0] $offset,$offset,0,0
+iain_remove_pattern_tiles[-1] $1,$2,$3
+shift[-1] {$offset*-1},{$offset*-1},0,0,1
++shift[0] {$offset*-1},{$offset*-1},0,0
+iain_remove_pattern_tiles[-1] $1,$2,$3
+shift[-1] $offset,$offset,0,0,1
+fi
+if $5>1
++shift[0] $offset,0,0,0
+iain_remove_pattern_tiles[-1] $1,$2,$3
+shift[-1] {$offset*-1},0,0,0,1
++shift[0] 0,$offset,0,0
+iain_remove_pattern_tiles[-1] $1,$2,$3
+shift[-1] 0,{$offset*-1},0,0,1
+fi
+if $5>2
++shift[0] {$offset*-1},0,0,0
+iain_remove_pattern_tiles[-1] $1,$2,$3
+shift[-1] $offset,0,0,0,1
++shift[0] 0,{$offset*-1},0,0
+iain_remove_pattern_tiles[-1] $1,$2,$3
+shift[-1] 0,$offset,0,0,1
+fi
+iain_remove_pattern_tiles[0] $1,$2,$3
+blend_median
+done
+if $4
+sub
+add 128
+else
+k[1]
+fi
+iain_remove_pattern_tiles:
+l[0]
+size=$3
+offset={$size/3}
+cropwidth1={w}
+cropheight1={h}
+resize[0] {w+($size-w%$size)},{h+($size-h%$size)},{d},{s},0,0
+tc={round(w/$size)} tr={round(h/$size)}
+split_tiles $tc,$tr
+apply_parallel "iain_remove_pattern_fft $1,$2,$3"
+append_tiles $tc,$tr
+crop 0,0,{$cropwidth1-1},{$cropheight1-1}
+done
+iain_remove_pattern_fft:
+luminance
+fftpolar
++log[0]
+blur[-1] 10
+exp[-1]
++l[-1]
+fill[0] $1
+circle[-1] 50%,50%,14%,1,$2
+done
+mul[-2,-1]
++lt[-1] [0]
+circle[-1] 50%,50%,{w*.005},1,1
+mul[0] [-1]
+k[0,1]
+ifftpolar
+c 0,255
+iain_star_burst:
+repeat $! l[$>] split_opacity l[0]
+width={w}
+height={h}
+resize {w+($2*2)},{h+($2*2)},1,3,0,0,0.5,0.5
++gt[0] $1
+mul[1] 255
+skeleton[1] 0
+if $6
+rgb2hsl
+split c
+[0]
+reverse[3,-1]
+rm[-1]
+append[0,1,2] c
+append[1,2,3] c
+hsl2rgb
+fi
+mul[1] 255
+l[1]
+{$2*5},{$2*5},1,1,0
+set[-1] 1,50%,50%
+l[-1]
+repeat $5
++blur_linear[0] $2,.5,{$4+((180/$5)*($>+1))}
+done
+rm[0]
+add
+done
+convolve_fft[0] [1]
+done
+mul[1] {1/$5}
+mul[1] {$3*10}
+if $7
+keep[1]
+else
+max
+fi
+c 0,255
+crop {$2},{$2},{$width+$2-1},{$height+$2-1}
+done a c done done
+iain_unindex:
+amplitude=$1
+sharpness=.3
+anisotropy=1
+gradient_smoothness=.6
+tensor_smoothness=1
+spatial_precision=0.8
+angular_precision=30
+value_precision=2
+interpolation=0
+fast_approx=1
+to_rgb
++smooth[0] $amplitude,$sharpness,$anisotropy,$gradient_smoothness,$tensor_smoothness,$spatial_precision,$angular_precision,$value_precision,$interpolation,$fast_approx
++luminance[-1]
+laplacian[-1]
+abs[-1]
+blur[-1] .5
+threshold[-1] $2
+mul[-1] -1
+add[-1] 1
+mul[-1] 255
+append[1,2] c
+blend alpha,1,0
+keep[-1]
+iain_unindex_preview:
+iain_unindex $1,$2
+if $3==1
+topleftx={$4-25}
+toplefty={$5-25}
+botleftx={$4+25}
+botlefty={$5+25}
+crop $topleftx%,$toplefty%,$botleftx%,$botlefty%
+fi
+iain_weightmap:
+split c
+max
+255,1
+set[-1] 255,128,0
+blur[-1] $2
+n[-1] 0,255
++map[0] [1]
+rm[1]
+laplacian[0]
+mul[0] $1
+abs[0]
+add
+iain_iains_nr:
+repeat $! l[$>] nm={0,n} split_opacity l[0]
+lnr=$1
+cnr=$2
+despek=$3
+highs=$4
+shadow=$5
+recovery_choice=$6
+detail_recovery={5000-($7*500)}
+fast=1
+fine_det=$8
+med_det=$9
+large_det=$10
+det_emphasis=$11
+sharp=$12
+to_rgb
+apply_gamma {1/1.3}
+mul 900
+apply_curve 1,0,0,32000,{32000-$shadow},160000,{160000-$shadow},256000,{256000-$highs-$shadow}
+div 2000
+iain_rgb2ycbcr
+split c
+if $lnr>0
+if $recovery_choice==0
+iains_nr_patchb[0] 10,$lnr,3,3,0,$fast,1,$despek,.5,.4,.2,0,1,1,2,0
+unsharp[0] .7,$sharp,0
+fi
+if $recovery_choice==1
++iains_nr_patchb[0] 10,$lnr,3,3,0,$fast,1,$despek,.5,.4,.2,0,1,1,2,0
++sub[0] [-1]
+add[-1] {128}
+remove[0]
+unsharp[2] .7,$sharp,0
+resize[-1] {w+48},{h+48},{d},{s},0,0,0,0
+resize[-1] {w+48},{h+48},{d},{s},0,0,1,1
+rectangle[-1] 0,0,100%,48,1,128
+rectangle[-1] 0,0,48,100%,1,128
+rectangle[-1] 0,100%,100%,{h-48},1,128
+rectangle[-1] {w-48},100%,100%,0,1,128
+iains_nr_fft_tile3[-1] {$detail_recovery},48,0,$fine_det,$med_det,$large_det,1,3
+crop[-1] 48,48,{w-49},{h-49}
+sub[-1] {128}
+mul[-1] $det_emphasis
+add[2] [-1]
+remove[-1]
+move[-1] 0
+fi
+if $recovery_choice==2
++iains_nr_patchb[0] 10,$lnr,3,3,0,$fast,1,$despek,.5,.4,.2,0,1,1,2,0
++sub[0] [-1]
+add[-1] {128}
+remove[0]
+unsharp[2] .7,$sharp,0
+resize[-1] {w+48},{h+48},{d},{s},0,0,0,0
+resize[-1] {w+48},{h+48},{d},{s},0,0,1,1
+rectangle[-1] 0,0,100%,48,1,128
+rectangle[-1] 0,0,48,100%,1,128
+rectangle[-1] 0,100%,100%,{h-48},1,128
+rectangle[-1] {w-48},100%,100%,0,1,128
+iains_nr_fft_tile3[-1] {$detail_recovery},48,0,$fine_det,$med_det,$large_det,1,3
+crop[-1] 48,48,{w-49},{h-49}
+sub[-1] 128
+mul[-1] $det_emphasis
+add[-1] 128
+move[-2] 0
+fi
+fi
+if $cnr>0
+add[1,2] 300
+iains_nr_patchb[1] 10,$cnr,3,3,0,1,1,4,.5,.4,.2,0,1,1,2,0
+iains_nr_patchb[2] 10,$cnr,3,3,0,1,1,4,.5,.4,.2,0,1,1,2,0
+sub[1,2] 300
+fi
+append[0,1,2] c
+iain_ycbcr2rgb[0]
+mul[0] 2000
+apply_curve[0] 1,0,0,{32000-$shadow},32000,{160000-$shadow},160000,{256000-$highs-$shadow},256000
+div[0] 900
+apply_gamma[0] 1.3
+c 0,255
+done a c nm $nm done done
+iains_nr_med3stack16:
+blend_median
+iains_nr_med5stack16:
+blend_median
+iains_nr_fft_tile3_fft:
++fftpolar[0]
+100%,100%,1,1,1
+ellipse[-1] 50%,50%,50%,50%,0,1,$4
+ellipse[-1] 50%,50%,15%,15%,0,1,$5
+ellipse[-1] 50%,50%,5%,5%,0,1,$6
++add[1] [-1]
+threshold[-1] $1
+set[-1] 1,50%,50%
+mul[1] [-1]
++ifftpolar[1,2]
+remove[0,1,2]
+keep[-1]
+iains_nr_fft_tile3_clean:
+tc={round(w/$2)} tr={round(h/$2)}
+split_tiles $tc,$tr
+repeat $! local[$>]
+iains_nr_fft_tile3_fft[0--1] $1,$2,$3,$4,$5,$6
+done done
+append_tiles $tc,$tr
+c 0,255
+iains_nr_fft_tile3:
++resize[0] {w+$2},{h+$2},1,1,0,1,1,1
+resize[-1] {w+$2},{h+$2},1,1,0,1,0,0
+iains_nr_fft_tile3_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] $2,$2,{w-$2-1},{h-$2-1}
+if $8>2
+push={round($2*1.5)}
+pull={$2-$push}
++resize[0] {w+$push},{h+$2},1,1,0,1,1,1
+resize[-1] {w+$pull},{h+$2},1,1,0,1,0,0
+iains_nr_fft_tile3_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] {$push},{$2},{w-$pull-1},{h-($2)-1}
++resize[0] {w+$2},{h+$push},1,1,0,1,1,1
+resize[-1] {w+$2},{h+$pull},1,1,0,1,0,0
+iains_nr_fft_tile3_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] $2,{$push},{w-$2-1},{h-$pull-1}
+fi
+if $8>1
+dia1={round($2/3)}
+dia2={$2-$dia1}
++resize[0] {w+$dia1},{h+$dia1},1,1,0,1,1,1
+resize[-1] {w+$dia2},{h+$dia2},1,1,0,1,0,0
+iains_nr_fft_tile3_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] {$dia1},{$dia1},{w-$dia2-1},{h-$dia2-1}
++resize[0] {w+$dia2},{h+$dia2},1,1,0,1,1,1
+resize[-1] {w+$dia1},{h+$dia1},1,1,0,1,0,0
+iains_nr_fft_tile3_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] {$dia2},{$dia2},{w-$dia1-1},{h-$dia1-1}
+fi
+remove[0]
+if $8==3
+blend_median
+fi
+if $8==2
+blend_median
+fi
+iains_nr_patchb_smoothing:
+repeat $7 denoise $1,$2,$3,$4,$5,$6 done
+iains_nr_patchb_2:
++resize[0] 50%,50%,1,{s},2
++iains_nr_patchb_smoothing[-1] $1,$2,$3,$4,$5,$6,$7,$8
++resize[1] {0,w},{0,h},1,{s},5
++sub[0] [3]
+resize[2] {0,w},{0,h},1,{s},5
++add[2] [4]
+keep[-1]
+iains_nr_patchb_3:
++resize[0] 25%,25%,1,{s},2
++iains_nr_patchb_smoothing[-1] $1,$2,$3,$4,$5,$6,$7,$8
++resize[1] {0,w},{0,h},1,{s},5
++sub[0] [3]
+resize[2] {0,w},{0,h},1,{s},5
++add[2] [4]
+keep[-1]
+iains_nr_patchb_4:
++resize[0] 12.5%,12.5%,1,{s},2
++iains_nr_patchb_smoothing[-1] $1,$2,$3,$4,$5,$6,$7,$8
++resize[1] {0,w},{0,h},1,{s},5
++sub[0] [3]
+resize[2] {0,w},{0,h},1,{s},5
++add[2] [4]
+keep[-1]
+iains_nr_patchb_5:
++resize[0] 6.125%,6.125%,1,{s},2
++iains_nr_patchb_smoothing[-1] $1,$2,$3,$4,$5,$6,$7,$8
++resize[1] {0,w},{0,h},1,{s},5
++sub[0] [3]
+resize[2] {0,w},{0,h},1,{s},5
++add[2] [4]
+keep[-1]
+iains_nr_patchb:
+apply_gamma {1/$14}
+if $8==1
+hybrid_median[-1] 1,0,0
+fi
+if $8==2
+hybrid_median[-1] 3,0,0
+fi
+if $8==3
+median[-1] 3
+fi
+if $8==4
+median[-1] 3
+median[-1] 3
+median[-1] 3
+fi
+repeat $15
+if $8<4
+if $13==1
+iains_nr_patchb_smoothing[-1] $1,$2,$3,$4,$5,$6,$7,$8
+fi
+fi
+iains_nr_patchb_2 $1,{$2*$9},$3,$4,$5,$6,$7,$8
+iains_nr_patchb_3 $1,{$2*$10},$3,$4,$5,$6,$7,$8
+iains_nr_patchb_4 $1,{$2*$11},$3,$4,$5,$6,$7,$8
+iains_nr_patchb_5 $1,{$2*$12},$3,$4,$5,$6,$7,$8
+done
+apply_gamma $14
+iain_rgb2ycbcr:
+redmul=.299
+greenmul=.587
+bluemul=.114
+to_rgb[0]
++split[0] c
+mul[1] $redmul
+mul[2] $greenmul
+mul[3] $bluemul
+add[1-3]
+split[0] c
+name[0] red
+name[1] green
+name[2] blue
+name[3] luma
++sub[blue] [luma]
+name[-1] cb
++sub[red] [luma]
+name[-1] cr
+keep[luma,cb,cr]
+append[luma,cb,cr] c
+iain_ycbcr2rgb:
+redmul=.299
+greenmul=.587
+bluemul=.114
+split c
+name[0] luma
+name[1] cb
+name[2] cr
++add[cb] [luma]
+name[-1] blueout
++add[cr] [luma]
+name[-1] redout
+remove[1,2]
++mul[redout] $redmul
++mul[blueout] $bluemul
+sub[luma] [-1]
+sub[luma] [-2]
+div[luma] $greenmul
+remove[-1,-2]
+move[2] 0
+append c
+iain_iains_nr_preview:
+if $-1==0
+iain_iains_nr ${1--2}
+fi
+if $-1==1
++iain_iains_nr $1,0,$3,$4,$5,$6,$7,$8,$9,$10,1.3,0
+compose_grainextract
+sub 128
+mul 3
+add 128
+fi
+if $-1==2
++iain_iains_nr 0,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,0
+compose_grainextract
+sub 128
+mul 3
+add 128
+fi
+if $-1==3
+iain_iains_nr $1,$2,$3,$4,$5,2,$7,$8,$9,$10,$11,0
+keep[-1]
+sub 128
+mul 3
+add 128
+fi
+iain_highlight_synthesis:
+red_wb={$1/max($1,$2,$3)}
+green_wb={$2/max($1,$2,$3)}
+blue_wb={$3/max($1,$2,$3)}
+srgb=$4
+smoothness=2
+smoothness2=2
+smoothness3=2
+-remove_opacity
++crop 0,0,500,500
+sum={is}
++rgb2bayer[1] 0,1 b_sum0={is} -rm[-1] +rgb2bayer[1] 1,1 b_sum1={is} -rm[-1] +rgb2bayer[1] 2,1 b_sum2={is} -rm[-1] +rgb2bayer[1] 3,1 b_sum3={is} -rm[-1]
+-if {$sum==$b_sum0} b_pat=0 -elif {$sum==$b_sum1} b_pat=1 -elif {$sum==$b_sum2} b_pat=2 -elif {$sum==$b_sum3} b_pat=3 -fi
+-k[0]
+rgb2bayer $b_pat,1
+-split c
+-l[1]
+(1,0,0;0,-1,0;0,0,0)
+(0,1,0;-1,0,0;0,0,0)
++convolve[0] [1]
++convolve[0] [2]
+-rm[1,2]
+(0.25,0.5,0.25;0.5,1,0.5;0.25,0.5,0.25)
+-convolve[1,2] [-1]
+-rm[-1]
+-complex2polar[-1,-2]
+-rm[-2]
+-mod[1] {pi}
+-median[-1] 3
+-inrange[-1] 0,{pi/2}
+(0.5,1,0.5)
+(0.5;1;0.5)
++convolve[0] [2]
++convolve[0] [3]
+-rm[0,2,3]
+-mul[1] [0]
+-negate[0]
+-mul[2] [0]
+-add[1,2]
+-k[1]
+-done
+-l[0]
+(0.25,0.5,0.25;0.5,1,0.5;0.25,0.5,0.25)
+-convolve[0] [-1]
+-rm[-1]
+-done
+-l[2]
+(0.25,0.5,0.25;0.5,1,0.5;0.25,0.5,0.25)
+-convolve[0] [-1]
+-rm[-1]
+-done
+-append c
+-cut 0,255
+-split c
++local
++min[0,1,2]
++blend_median[0,1,2]
++max[0,1,2]
+-rm[0,1,2]
+-l[0]
+-repeat 4
++fill[0] >"
+far = j(-1)+(j(-1)-j(-2))*0.99;
+near = 255+(255-j(-1))*0.99;
+predict = if(far<255,near,far);
+if(i>254,predict,i)
+"
+-rotate[0] 90
+-done
+-rotate[2] -90
+-rotate[3] -180
+-rotate[4] 90
+-min[-1,-2,-3,-4]
++gt[0] 254
+-distance[-1] 0
+-cut[-1] 0,50
+-repeat $smoothness
+-gcd_boxfilter_local[1] [2]
+-sub[2] 0.25
+-cut[2] 0,50
+-done
+-cut[1] 0,{255*(2^2)}
+-keep[1]
+-done
++blur[0] 0.5 -laplacian[-1] -abs[-1]
+-line[-1] 0,0,100%,0,1,500
+-line[-1] 0,0,0,100%,1,500
+-line[-1] 100%,0,100%,100%,1,500
+-line[-1] 0,100%,100%,100%,1,500
+-negate[-1]
+-blur[-1] 0.5
++lt[1] 254
+-erode[-1] 3
+-sub[1] [0]
++mul[1] [-1]
+-watershed[-1] [3]
++distance[-2] 1
+-erode[-1] 3
+-c[-1] 0,20
+-repeat $smoothness2
+-gcd_boxfilter_local[-2] [-1]
+-done
+-rm[-1]
+-mul[1] [-2]
+-negate[-2]
+-mul[-1,-2]
+-add[1,-1]
+-add[1] [0]
+-add[0,1]
+-mul[0] 0.5
++lt[1] 254
+-erode[-1] 3
+-sub[1] [0]
++mul[1] [-1]
+-watershed[-1] [2]
++distance[-2] 1
+-erode[-1] 3
+-c[-1] 0,20
+-repeat $smoothness2
+-gcd_boxfilter_local[-2] [-1]
+-done
+-rm[-1]
+-mul[1] [-2]
+-negate[-2]
+-mul[-1,-2]
+-add[1,-1]
+-add[1] [0]
+-mul[1] 0.5
+-add[0,1]
+-mul[0] {1/1.5}
+-remove[-1]
+-done
++blur[-1] 0.5 -laplacian[-1] -abs[-1]
+-line[-1] 0,0,100%,0,1,500
+-line[-1] 0,0,0,100%,1,500
+-line[-1] 100%,0,100%,100%,1,500
+-line[-1] 0,100%,100%,100%,1,500
+-negate[-1]
+-blur[-1] 0.5
++lt[0] 254
+-erode[-1] 3
+-mul[0] $red_wb
+-sub[0] [3]
++add[0] 1000
+-mul[-1] [-2]
+-watershed[-1] [4]
++distance[-2] 1
+-erode[-1] 3
+-c[-1] 0,20
+-repeat $smoothness2
+-gcd_boxfilter_local[-2] [-1]
+-done
+-rm[-1]
+-sub[-1] 1000
+-mul[0] [-2]
+-negate[-2]
+-mul[-1,-2]
+-add[0,-1]
+-add[0] [3]
++lt[1] 254
+-erode[-1] 3
+-mul[1] $green_wb
+-sub[1] [3]
++add[1] 1000
+-mul[-1] [-2]
+-watershed[-1] [4]
++distance[-2] 1
+-erode[-1] 3
+-c[-1] 0,20
+-repeat $smoothness2
+-gcd_boxfilter_local[-2] [-1]
+-done
+-rm[-1]
+-sub[-1] 1000
+-mul[1] [-2]
+-negate[-2]
+-mul[-1,-2]
+-add[1,-1]
+-add[1] [3]
++lt[2] 254
+-erode[-1] 3
+-mul[2] $blue_wb
+-sub[2] [3]
++add[2] 1000
+-mul[-1] [-2]
+-watershed[-1] [4]
++distance[-2] 1
+-erode[-1] 3
+-c[-1] 0,20
+-repeat $smoothness2
+-gcd_boxfilter_local[-2] [-1]
+-done
+-rm[-1]
+-sub[-1] 1000
+-mul[2] [-2]
+-negate[-2]
+-mul[-1,-2]
+-add[2,-1]
+-add[2,3]
+-append[0,1,2] c
+-keep[0]
+-cut[0] 0,1000000
+-n 0,255
+-if $srgb -rgb2srgb -fi
+iain_iid_demosaic:
+pattern=$1
+chroma_diff=1.5
+chroma_radius=5
+clamp_radius1=$2
+repeat $! l[$>]
+if $5 apply_gamma 2 fi
++l
+l
+to_rgb
++iain_iid_demosaic_vertical[0] $pattern,$clamp_radius1
+iain_iid_demosaic_horizontal[0] $pattern,$clamp_radius1
++l
++l[0]
+(1,-1)
+convolve[0] [1]
+k[0]
+abs
+blur 1
+split c
+add
+done
++l[1]
+(1;-1)
+convolve[0] [1]
+k[0]
+abs
+blur 1
+split c
+add
+done
+sub[-1,-2]
++l[0]
++split c
+add[-1,-2,-3]
+mul[-1] {1/3}
+sub
++blur $chroma_radius
+sub
+abs
+blur 1
+split c
+add
+done
++l[1]
++split c
+add[-1,-2,-3]
+mul[-1] {1/3}
+sub
++blur $chroma_radius
+sub
+abs
+blur 1
+split c
+add
+done
+sub[-1,-2]
+mul[-1] $chroma_diff
+add[-1,-2]
+gt[-1] 0
+line[-1] 0,0,100%,0%,1,0
+line[-1] 0,100%,100%,100%,1,0
+line[-1] 0,0,0%,100%,1,1
+line[-1] 100%,0%,100%,100%,1,1
++eq[-1] 0
+mul[0,-1]
+mul[1,-1]
+max
+done
+done
+done
+l[0,-1]
+if $3>0
+iain_luma_guided_demosaic $1,$3,$2
+else
+k[1]
+fi
+done
+if $4
+l[-1,-2]
+l[0]
+rgb2yuv
+split c
+fill[0] 0.5
+append c
+yuv2rgb
+done
+l[1]
+rgb2yuv
+split c
+fill[0] 0.5
+append c
+yuv2rgb
+done
+iain_min_fft3_1 128
+done
+rgb2yuv
+split c
+k[0,-1,-2]
+append c
+yuv2rgb
+else
+k[0]
+fi
+if $5 apply_gamma 0.5 fi
+done done
+iain_min_fft3_1:
++l[0,1]
+append z
+size=$1
+cropwidth={w}
+cropheight={h}
+resize {w+($size-w%$size)},{h+($size-h%$size)},{d},{s},0,0
+h_tile={h/$1}
+v_tile={w/$1}
+split_tiles $v_tile,$h_tile
+apply_parallel "
+l[0]
+split z
+rgb2yuv
+fftpolar
+min[0,2]
+min[1,2]
+ifftpolar
+yuv2rgb
+done
+"
+append_tiles $v_tile,$h_tile
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+c 0,255
+done
+k[-1]
+iain_iid_demosaic_vertical:
+resize {w+8},{h+8},{d},{s},0,0,0.5,0.5
++l
+rgb2bayer $1,1
++l[0]
+to_rgb
+channels 1
+(-0.1;0;0.6;1;0.6;0;-0.1)
+convolve[0] [1]
+remove[-1]
+done
++iain_demosaic_clamp[0] $2
+rm[2]
+min[1,2]
+max[1,2]
++to_rgb[1]
+rgb2bayer[-1] $1,1
+split[0] c
+split[-1] c
+sub[0] [4]
+sub[2] [6]
+append[0,1,2] c
+add[0] 128
+rgb2bayer[0] $1,1
+split[0] c
+k[0,2,3]
+reverse[1,2]
++l[0,1]
+reverse
+iain_guided_fillgrid
+done
++l[1,2]
+iain_guided_fillgrid
+done
+rm[0,2]
+reverse[0,1]
+sub[0,2] 128
+add[0] [1]
+add[2] [1]
+append c
+c 0,255
+done
+k[1]
+crop 4,4,{w-5},{h-5}
+iain_iid_demosaic_horizontal:
+resize {w+8},{h+8},{d},{s},0,0,0.5,0.5
++l
+rgb2bayer $1,1
++l[0]
+to_rgb
+channels 1
+(-0.1,0,0.6,1,0.6,0,-0.1)
+convolve[0] [1]
+remove[-1]
+done
++iain_demosaic_clamp[0] $2
+rm[2]
+min[1,2]
+max[1,2]
++to_rgb[1]
+rgb2bayer[-1] $1,1
+split[0] c
+split[-1] c
+sub[0] [4]
+sub[2] [6]
+append[0,1,2] c
+add[0] 128
+rgb2bayer[0] $1,1
+split[0] c
+k[0,2,3]
+reverse[1,2]
++l[0,1]
+reverse
+iain_guided_fillgrid
+done
++l[1,2]
+iain_guided_fillgrid
+done
+rm[0,2]
+reverse[0,1]
+sub[0,2] 128
+add[0] [1]
+add[2] [1]
+append c
+c 0,255
+done
+k[1]
+crop 4,4,{w-5},{h-5}
+iain_demosaic_clamp:
+channels 1
++l
+if $1>2
++shift[0] 3,-2,0,0
++shift[0] -3,-2,0,0
++shift[0] -2,3,0,0
++shift[0] -2,-3,0,0
++shift[0] 3,0,0,0
++shift[0] -3,0,0,0
++shift[0] 0,3,0,0
++shift[0] 0,-3,0,0
+fi
+if $1>1
++shift[0] 1,2,0,0
++shift[0] -1,2,0,0
++shift[0] 2,1,0,0
++shift[0] 2,-1,0,0
++shift[0] 1,-2,0,0
++shift[0] -1,-2,0,0
++shift[0] -2,1,0,0
++shift[0] -2,-1,0,0
+fi
++shift[0] 1,0,0,0
++shift[0] -1,0,0,0
++shift[0] 0,1,0,0
+shift[0] 0,-1,0,0
++min[0--1]
+max[0--2]
+done
+add[1] [0]
+add[2] [0]
+iain_luma_guided_demosaic:
+resize {w+8},{h+8},{d},{s},0,0,0.5,0.5
+remove_opacity
+repeat $2
++l
++split[1] c
+add[-1,-2,-3]
+mul[-1] .33333333333333333
+rm[1]
+sub[0] [1]
+add[0] 255
+rgb2bayer[0] $1,1
+reverse
+split[1] c
++iain_guided_diagonal_interpolation[0,1]
++iain_guided_diagonal_interpolation[0,3]
+rm[1,3]
+reverse[1,2]
++iain_guided_straight_interpolation[0,1]
++iain_guided_straight_interpolation[0,2]
++iain_guided_straight_interpolation[0,3]
+rm[1,2,3]
+sub[1,2,3] 255
+append[1,2,3] c
+to_rgb
+add
+c 0,255
+done
+rm[1]
+if $3>0
+fi
+done
+k[1]
+crop 4,4,{w-5},{h-5}
+fft_tile2_fft:
++fftpolar[0]
+100%,100%,1,1,1
+ellipse[-1] 50%,50%,50%,50%,0,1,$4
+ellipse[-1] 50%,50%,15%,15%,0,1,$5
+ellipse[-1] 50%,50%,5%,5%,0,1,$6
+box_blur[-1] {$2*0.01}
++add[1] [-1]
+threshold[-1] {$1/(128/$2)}
+set[-1] 1,50%,50%
+mul[1] [-1]
++ifftpolar[1,2]
+keep[-1]
+fft_tile2_clean:
+tc={round(w/$2)} tr={round(h/$2)}
+split_tiles $tc,$tr
+repeat $! local[$>]
+fft_tile2_fft[0--1] $1,$2,$3,$4,$5,$6
+done done
+append_tiles $tc,$tr
+c 0,255
+fft_tile2:
++resize[0] {w+$2},{h+$2},1,1,0,1,1,1
+resize[-1] {w+$2},{h+$2},1,1,0,1,0,0
+fft_tile2_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] $2,$2,{w-$2-1},{h-$2-1}
+if $3==0
+push={round($2*1.5)}
+pull={$2-$push}
++resize[0] {w+$push},{h+$2},1,1,0,1,1,1
+resize[-1] {w+$pull},{h+$2},1,1,0,1,0,0
+fft_tile2_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] {$push},{$2},{w-$pull-1},{h-($2)-1}
++resize[0] {w+$2},{h+$push},1,1,0,1,1,1
+resize[-1] {w+$2},{h+$pull},1,1,0,1,0,0
+fft_tile2_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] $2,{$push},{w-$2-1},{h-$pull-1}
+dia1={round($2/3)}
+dia2={$2-$dia1}
++resize[0] {w+$dia1},{h+$dia1},1,1,0,1,1,1
+resize[-1] {w+$dia2},{h+$dia2},1,1,0,1,0,0
+fft_tile2_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] {$dia1},{$dia1},{w-$dia2-1},{h-$dia2-1}
++resize[0] {w+$dia2},{h+$dia2},1,1,0,1,1,1
+resize[-1] {w+$dia1},{h+$dia1},1,1,0,1,0,0
+fft_tile2_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] {$dia2},{$dia2},{w-$dia1-1},{h-$dia1-1}
+fi
+remove[0]
+if $3==0
+iain_median_5_stack
+fi
+luminance_nr_two:
+ac "
+mul 9.99
+apply_curve 0,0,0,510,{510-$17},1020,{1020-$17-$18},1530,{1530-$17-$18-$19},2040,{2040-$17-$18-$19-$20},2550,{2550-$17-$18-$19-$20-$21},2550,2550
+mul 0.1
+if $22==1
++median[0] 3
+ms_patch_smooth[-1] 10,$1,3,3,0,$2,$3,0,{$1*$4},{$1*$5},{$1*$6},{$1*$7},{$1*$8},{$1*$9},1
+fi
+if $22==0
++ms_patch_smooth[0] 10,$1,3,3,0,$2,$3,0,{$1*$4},{$1*$5},{$1*$6},{$1*$7},{$1*$8},{$1*$9},1
+fi
+if $16==1
++compose_grainextract
+fft_tile2[-1] $10,$11,3,$13,$14,$15
+compose_grainmerge[1,2]
+fi
+keep[-1]
+mul 9.99
+apply_curve 0,0,0,{510-$17},510,{1020-$17-$18},1020,{1530-$17-$18-$19},1530,{2040-$17-$18-$19-$20},2040,{2550-$17-$18-$19-$20-$21},2550,2550,2550
+mul 0.1
+",7
+c 0,255
+iain_minimum_chroma_demosaic:
+rgb2bayer $1,1
+cropwidth={w}
+cropheight={h}
+resize {w+16},{h+16},{d},{s},0,0,0.5,0.5
++l
+if $3==0
++iain_horizontal_interpolate[0] $1,1
+iain_vertical_interpolate[0] $1,1
+elif $3==1
++iain_tuned_horizontal[0] $1
+iain_tuned_vertical[0] $1
+fi
+l[0]
+rgb2yuv
+split c
+fill[0] .5
+append c
+yuv2rgb
+done
+l[1]
+rgb2yuv
+split c
+fill[0] .5
+append c
+yuv2rgb
+done
+append z
+levels={$2+1}
+size={3^$levels}
+cropwidth2={w}
+cropheight2={h}
+resize {w+($size-w%$size)},{h+($size-h%$size)},{d},{s},0,1
+repeat $levels
+l[-1]
++resize[0] 33.33333%,33.33333%,{d},{s},2
++iain_resize_x3[-1]
+sub[0,-1]
+done
+done
+repeat $!-1 l[{$<}]
+split z
++abs
+gt[-1] [-2]
+rm[-2]
++eq[-1] 0
+mul[0,2]
+mul[1,2]
+add
+done done
+l[-1]
+split z
+k[1]
+done
+repeat $!-1
+iain_resize_x3[-1]
+add[-1,-2]
+done
+crop 0,0,{$cropwidth2-1},{$cropheight2-1}
+c 0,255
+done
+iain_chroma_guide $1,1
+crop 8,8,{$cropwidth+7},{$cropheight+7}
+iain_chroma_guide:
+to_rgb
+rgb2bayer[0] $1,1
++l[0,1]
+split[-1] c
+split[0] c
+name[0] red name[1] green name[2] blue
+name[-3] redblur name[-2] greenblur name[-1] blueblur
++sub[greenblur] [redblur]
++sub[greenblur] [blueblur]
+name[-1] bluemul name[-2] redmul
+remove[redblur,greenblur,blueblur]
+add[red] [redmul]
+add[blue] [bluemul]
+keep[red,green,blue]
+append c
+rgb2bayer $1,1
+split c
+add
+done
+rm[1]
++to_rgb[1]
+rgb2bayer[-1] $1,1
+split[0] c
+split[-1] c
+sub[0] [4]
+sub[2] [6]
+append[0,1,2] c
+add[0] 128
+rgb2bayer[0] $1,1
+split[0] c
+rm[1,-1,-2,-3]
++l[0,2]
+reverse
+iain_guided_fillgrid
+done
+rm[0]
++l[0,1]
+reverse
+iain_guided_fillgrid
+done
+rm[0]
+reverse[0,1]
+sub[0,2] 128
+add[0] [1]
+add[2] [1]
+append c
+c 0,255
+iain_resize_x3:
+resize[0] {(w*3)-2},{(h*3)-2},{d},{s},5,0
+resize[0] {w+2},{h+2},{d},{s},0,1,0.5,0.5
+iain_vertical_interpolate:
+rgb2bayer[0] $1,1
++l[0]
+channels 1
+(-0.1;0;0.6;1;0.6;0;-0.1)
+convolve[0] [-1]
+rm[-1]
+done
+c 0,255
++to_rgb[1]
+rgb2bayer[-1] $1,1
+split[0] c
+split[-1] c
+sub[0] [4]
+sub[2] [6]
+append[0,1,2] c
+add[0] 128
+rgb2bayer[0] $1,1
+split[0] c
+rm[1,-1,-2,-3]
++l[0,2]
+reverse
+iain_guided_fillgrid
+done
+rm[0]
++l[0,1]
+reverse
+iain_guided_fillgrid
+done
+rm[0]
+reverse[0,1]
+sub[0,2] 128
+add[0] [1]
+add[2] [1]
+append c
+c 0,255
+iain_horizontal_interpolate:
+rgb2bayer[0] $1,1
++l[0]
+channels 1
+(-0.1,0,0.6,1,0.6,0,-0.1)
+convolve[0] [-1]
+rm[-1]
+done
+c 0,255
++to_rgb[1]
+rgb2bayer[-1] $1,1
+split[0] c
+split[-1] c
+sub[0] [4]
+sub[2] [6]
+append[0,1,2] c
+add[0] 128
+rgb2bayer[0] $1,1
+split[0] c
+rm[1,-1,-2,-3]
++l[0,2]
+reverse
+iain_guided_fillgrid
+done
+rm[0]
++l[0,1]
+reverse
+iain_guided_fillgrid
+done
+rm[0]
+reverse[0,1]
+sub[0,2] 128
+add[0] [1]
+add[2] [1]
+append c
+c 0,255
+iain_guided_fillgrid:
+channels 0
+l[0]
+(1,0;0,-1)
++convolve[0] [1]
+rm[1]
+(0,1;-1,0)
++convolve[0] [2]
+rm[2]
+l[-1,-2]
+abs
+blur 1
++max
+eq[0] [-1]
+keep[0]
+mul 255
+done
+done
++l[2]
++l[0]
+(0,0,0.5;0,1,0;0.5,0,0)
+convolve[0] [1]
+remove[1]
+done
+l[0]
+(0.5,0,0;0,1,0;0,0,0.5)
+convolve[0] [1]
+remove[1]
+done
+done
+move[1] 5
+append[-1,-2] c
+blend[-1,-2] alpha,1,0
+rm[1]
+l[0]
+(1,-1)
++convolve[0] [1]
+rm[1]
+(1;-1)
++convolve[0] [2]
+rm[2]
+l[-1,-2]
+abs
+blur 1
++max
+eq[0] [-1]
+keep[0]
+mul 255
+done
+done
++l[2]
++l[0]
+(0.5;1;0.5)
+convolve[0] [1]
+remove[1]
+done
+l[0]
+(0.5,1,0.5)
+convolve[0] [1]
+remove[1]
+done
+done
+move[1] 5
+append[-1,-2] c
+blend[-1,-2] alpha,1,0
+k[-1]
+iain_tuned_horizontal:
+remove_opacity
+l[0]
++fill[0] 1
+rgb2bayer[1] $1,1
++l[0]
+split c
+add
+(-0.025,0.1,-0.225,0.4,0.5,0.4,-0.225,0.1,-0.025)
+convolve[0] [1]
+rm[1]
+done
++l[1,2]
+shift[0] 1,0,0,0,2
+mul
+done
+add[-1] [0]
+channels[-1] 1
+k[0,-1]
+to_rgb
+iain_luma_guide $1,1,0
+done
+iain_tuned_vertical:
+remove_opacity
+l[0]
++fill[0] 1
+rgb2bayer[1] $1,1
++l[0]
+split c
+add
+(-0.025;0.1;-0.225;0.4;0.5;0.4;-0.225;0.1;-0.025)
+convolve[0] [1]
+rm[1]
+done
++l[1,2]
+shift[0] 1,0,0,0,2
+mul
+done
+add[-1] [0]
+channels[-1] 1
+k[0,-1]
+to_rgb
+iain_luma_guide $1,1,0
+done
+iain_luma_guide:
+remove_opacity
+if $3
+mul {1/255}
+pow 2.2
+mul 255
+fi
+repeat $2
++l
++split[1] c
+add[-1,-2,-3]
+mul[-1] .33333333333333333
+rm[1]
+sub[0] [1]
+add[0] 255
+rgb2bayer[0] $1,1
+reverse
+split[1] c
++iain_guided_diagonal_interpolation[0,1]
++iain_guided_diagonal_interpolation[0,3]
+rm[1,3]
+reverse[1,2]
++iain_guided_straight_interpolation[0,1]
++iain_guided_straight_interpolation[0,2]
++iain_guided_straight_interpolation[0,3]
+rm[1,2,3]
+sub[1,2,3] 255
+append[1,2,3] c
+to_rgb
+add
+c 0,255
+done
+rm[1]
+done
+keep[1]
+if $3
+mul {1/255}
+pow {1/2.2}
+mul 255
+fi
+iain_guided_diagonal_interpolation:
++l[0]
+(1,0;0,-1)
++convolve[0] [1]
+rm[1]
+(0,1;-1,0)
++convolve[0] [2]
+rm[2]
+l[-1,-2]
+abs
+blur 1.5
++min
+eq[0] [-1]
+keep[0]
+done
+rm[-2]
+done
+l[1]
++l[0]
+(0,0,0.5;0,1,0;0.5,0,0)
+convolve[0] [1]
+remove[1]
+done
+l[0]
+(0.5,0,0;0,1,0;0,0,0.5)
+convolve[0] [1]
+remove[1]
+done
+done
+rm[0]
++eq[-1] 0
+mul[0,2]
+mul[1,2]
+add
+iain_guided_straight_interpolation :
++l[0]
+(1,-1)
++convolve[0] [1]
+rm[1]
+(1;-1)
++convolve[0] [2]
+rm[2]
+l[-1,-2]
+abs
+blur 1.5
++min
+eq[0] [-1]
+keep[0]
+done
+rm[-2]
+done
+l[1]
++l[0]
+(0.5;1;0.5)
+convolve[0] [1]
+remove[1]
+done
+l[0]
+(0.5,1,0.5)
+convolve[0] [1]
+remove[1]
+done
+done
++eq[-1] 0
+mul[1,3]
+mul[2,3]
+add[1,2]
+keep[1]
+iain_moire_removal:
+tile_size=256
+overlap=16
+cropwidth={w}
+cropheight={h}
+if $cropwidth%$tile_size>0
+resize[0] {w+($tile_size-w%$tile_size)},100%,1,{s},0,1
+fi
+if $cropheight%$tile_size>0
+resize[0] 100%,{h+($tile_size-h%$tile_size)},1,{s},0,1
+fi
+h_tiles={w/$tile_size}
+v_tiles={h/$tile_size}
+repeat $v_tiles v_count=$>
+repeat $h_tiles h_count=$>
++crop[0] {($h_count*$tile_size)-$overlap},{($v_count*$tile_size)-$overlap},{($h_count*$tile_size)+($tile_size+$overlap-1)},{($v_count*$tile_size)+($tile_size+$overlap-1)},1
+done
+done
+rm[0]
+repeat $! l[$>]
+if iM!=im
+[0]
+apply_parallel_channels[1] "
+l[0]
+repeat 3
+l[-1]
+repeat 2
+denoise[0] 10,{$1/($>+1)},5,5,0,{min($>,1)}
+done
++resize[0] 50%,50%,{d},{s},2
++resize[-1] 200%,200%,{d},{s},3
+sub[0,-1]
+done
+done
+repeat $!-1
+resize[-1] {-2,w},{-2,h},{d},{s},3
+add[-1,-2]
+done
+done
+"
+if $3<2
+sub[0] [1]
+l[0]
+fftpolar[0]
+if $3==1
+append[0,1] x
+split[0] c
+min
+split[0] x,2
+elif $3==0
+fill[1] if(max(i(x,y,z,0),i(x,y,z,1),i(x,y,z,2))-min(i(x,y,z,0),i(x,y,z,1),i(x,y,z,2))<$2,min(i(x,y,z,0),i(x,y,z,1),i(x,y,z,2)),(i(x,y,z,c)))
+fi
+ifftpolar[0,1]
+keep[0]
+done
+to_rgb
+add
+else
+keep[1]
+fi
+c 0,255
+fi
+done
+progress {($>/$!)*100}
+done
+repeat $! l[$>]
+crop $overlap,$overlap,{$tile_size+$overlap-1},{$tile_size+$overlap-1}
+done
+done
+append_tiles $h_tiles,$v_tiles
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+iain_moire_removal_NP:
+tile_size=256
+overlap=16
+cropwidth={w}
+cropheight={h}
+if $cropwidth%$tile_size>0
+resize[0] {w+($tile_size-w%$tile_size)},100%,1,{s},0,1
+fi
+if $cropheight%$tile_size>0
+resize[0] 100%,{h+($tile_size-h%$tile_size)},1,{s},0,1
+fi
+h_tiles={w/$tile_size}
+v_tiles={h/$tile_size}
+repeat $v_tiles v_count=$>
+repeat $h_tiles h_count=$>
++crop[0] {($h_count*$tile_size)-$overlap},{($v_count*$tile_size)-$overlap},{($h_count*$tile_size)+($tile_size+$overlap-1)},{($v_count*$tile_size)+($tile_size+$overlap-1)},1
+done
+done
+rm[0]
+repeat $! l[$>]
+if iM!=im
+[0]
+l[1]
+l[0]
+repeat 3
+l[-1]
+repeat 2
+denoise[0] 10,{$1/($>+1)},5,5,0,{min($>,1)}
+done
++resize[0] 50%,50%,{d},{s},2
++resize[-1] 200%,200%,{d},{s},3
+sub[0,-1]
+done
+done
+repeat $!-1
+resize[-1] {-2,w},{-2,h},{d},{s},3
+add[-1,-2]
+done
+done
+done
+if $3<2
+sub[0] [1]
+l[0]
+fftpolar[0]
+if $3==1
+append[0,1] x
+split[0] c
+min
+split[0] x,2
+elif $3==0
+fill[1] if(max(i(x,y,z,0),i(x,y,z,1),i(x,y,z,2))-min(i(x,y,z,0),i(x,y,z,1),i(x,y,z,2))<$2,min(i(x,y,z,0),i(x,y,z,1),i(x,y,z,2)),(i(x,y,z,c)))
+fi
+ifftpolar[0,1]
+keep[0]
+done
+to_rgb
+add
+else
+keep[1]
+fi
+c 0,255
+fi
+done
+progress {($>/$!)*100}
+done
+repeat $! l[$>]
+crop $overlap,$overlap,{$tile_size+$overlap-1},{$tile_size+$overlap-1}
+done
+done
+append_tiles $h_tiles,$v_tiles
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+ms_nlmeans_c_noise2_p_preview:
+if $16
+remove_opacity
++ms_nlmeans_c_noise2[0] ${1--1}
+sub
+mul 2
+add 128
+c 0,255
+else
+ms_nlmeans_c_noise2[0] ${1--1}
+fi
+ms_nlmeans_c_noise2_p:
+ms_nlmeans_c_noise2[0] ${1--1}
+ms_nlmeans_c_noise2:
+remove_opacity
+hf_strength={2^$1}
+lf_strength={2^$2}
+hf_patch=$9
+hf_search=$10
+lf_patch=$11
+lf_search=$12
+sc_rb=$13
+sc_g=$14
+blacks={2^$3}
+shadows={2^$4}
+midtones={2^$5}
+highlights={2^$6}
+whites={2^$7}
+smooth=$8
+shadow={2^$3}
+highlight={2^$4}
+levels=1
+size={3^$levels}
+cropwidth={w}
+cropheight={h}
+resize {w+($size-w%$size)},{h+($size-h%$size)},{d},{s},0,1
++l[0]
+split c
+if $sc_rb
+median[0,2] 4
+fi
+if $sc_g
+l[1]
++l[0]
+(1,1,1;1,0,1;1,1,1)
+dilate[0] [1]
+rm[1]
+done
++l[0]
+(1,1,1;1,0,1;1,1,1)
+erode[0] [1]
+rm[1]
+done
+min[0,1]
+max[0,1]
+done
+fi
+append c
+luminance
+done
+if $11
++c_noise[0] 1.6
+else
+[1]
+to_rgb[-1]
+negate[-1]
+add[-1] .1
+mul[-1] .1
+blur[-1] 2
+fi
++l[1]
+255,1,1,1,1
+line[-1] 0,0,50,0,1,$blacks
+line[-1] 51,0,100,0,1,$shadows
+line[-1] 101,0,152,0,1,$midtones
+line[-1] 153,0,204,0,1,$highlights
+line[-1] 205,0,255,0,1,$whites
+blur[-1] $smooth
+map[0] [1]
+keep[0]
+done
+mul[2,-1]
++l[0,1,2]
+mul[-1] $hf_strength
+f[-1] '-3.0/i' nlmeans_core[0] [1],[2],$hf_patch,$hf_search
+keep[0]
+done
+reverse[0,-1]
+rm[-1]
++l[0,1,2]
+resize[0,1,2] 33.33333%,33.33333%,{d},{s},2
+mul[-1] $lf_strength
+f[-1] '-3.0/i' nlmeans_core[0] [1],[2],$lf_patch,$lf_search
+keep[0]
+done
+rm[1,2]
++resize[0] 33.33333%,33.33333%,{d},{s},2
+linear_x3[-1]
+sub[0,-1]
+linear_x3[-1]
+add
+c 0,255
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+c 0,255
+c_noise:
+width={w}
+height={h}
++l[0]
++shift[0] 0,1,0,0,2
++shift[0] 0,-1,0,0,2
+blend_median
+done
+sub
+abs
+add .1
+pow $1
+resize 25%,25%,1,3,2
+median 3
+resize $width,$height,1,3,3
+create_luma_mix:
++split[0] c
+mul[1] {$1/($1+$2+$3)}
+mul[2] {$2/($1+$2+$3)}
+mul[3] {$3/($1+$2+$3)}
+add[1-3]
+keep[-1]
+to_gray[-1]
+ms_patch_c:
+to_rgb
++create_luma_mix[0] $11,$12,$13
+name[-1] luma
+if $2==1
+median[0] 3
+median[0] 3
+fi
+repeat $3
+ms_patch_smooth[0] 10,$1,3,5,0,1,1,0,$4,$5,$6,$7,$8,$9,$10
+done
++create_luma_mix[0] $11,$12,$13
+sub[0] [-1]
+add[0] [1]
+keep[0]
+c 0,255
+ms_patch_c_preview:
+if $-1==0
+ms_patch_c ${1--2}
+fi
+if $-1==1
++ms_patch_c ${1--2}
+sub[0] [1]
+keep[0]
+mul 2
+add 128
+fi
+linear_x3:
+resize 300%,300%,{d},{s},4,1,.5,.5,0
+(.11111,.22222,.33333,.22222,.11111;.22222,.44444,.66666,.44444,.22222;.33333,.66666,1,.66666,.33333;.22222,.44444,.66666,.44444,.22222;.11111,.22222,.33333,.22222,.11111)
+convolve[0] [1],0
+rm[1]
+MS_Patch_NR:
+if $1!=1
+apply_parallel_overlap "div 255 pow $1 mul 255"
+fi
+cropwidth={w}
+cropheight={h}
+resize[0] {w+(90-w%90)},{h+(90-h%90)},1,{s},0,1
+l[0]
+width={w}
+height={h}
+if $2>0
+apply_parallel_overlap[-1] "denoise 10,{$2/10},$5,$6,0,0",16
+fi
++resize[-1] 33.333333333%,33.3333333333%,{d},{s},2
++linear_x3[-1]
+sub[-3,-1]
+if $3>0
+apply_parallel_overlap[-1] "denoise 10,{$3/10},$5,$6,0,0",16
+fi
++resize[-1] 33.333333333%,33.3333333333%,{d},{s},2
++linear_x3[-1]
+sub[-3,-1]
+if $4>0
+apply_parallel_overlap[-1] "denoise 10,{$4/10},$5,$6,0,0",16
+fi
++resize[-1] 33.333333333%,33.3333333333%,{d},{s},2
++linear_x3[-1]
+sub[-3,-1]
+linear_x3[-1]
+add[-1,-2]
+linear_x3[-1]
+add[-1,-2]
+linear_x3[-1]
+add[-1,-2]
+done
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+if $1!=1
+apply_parallel_overlap "div 255 pow {1/$1} mul 255"
+fi
+c 0,255
+MS_Patch_NR3_p:
+to_rgb
+MS_Patch_NR3[0] $1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12
+n 0,255
+linear_x3:
+resize 300%,300%,{d},{s},4,1,.5,.5,0
+(.11111,.22222,.33333,.22222,.11111;.22222,.44444,.66666,.44444,.22222;.33333,.66666,1,.66666,.33333;.22222,.44444,.66666,.44444,.22222;.11111,.22222,.33333,.22222,.11111)
+convolve[0] [1],0
+rm[1]
+MS_Patch_NR3:
+apply_parallel_overlap[-1] "
+if $1!=1
+div 255 pow $1 mul 255
+fi
+if $8==1
+iain_pixel_denoise_p 1,1,0,0,1
+elif $8==2
+iain_pixel_denoise_p 2,1,0,0,1
+elif $8==3
+hybrid16 hybrid16 hybrid16
+fi
+cropwidth={w}
+cropheight={h}
+resize[0] {w+(90-w%90)},{h+(90-h%90)},1,{s},0,1
+rgb2yuv8
+split c
+l[0]
+width={w}
+height={h}
+if $2>0
+denoise 10,{$2/10},$5,$6,0,$7
+fi
++resize[-1] 33.333333333%,33.3333333333%,{d},{s},2
++linear_x3[-1]
+sub[-3,-1]
+if $3>0
+denoise 10,{$3/10},$5,$6,0,$7
+fi
++resize[-1] 33.333333333%,33.3333333333%,{d},{s},2
++linear_x3[-1]
+sub[-3,-1]
+if $4>0
+denoise 10,{$4/10},$5,$6,0,$7
+fi
++resize[-1] 33.333333333%,33.3333333333%,{d},{s},2
++linear_x3[-1]
+sub[-3,-1]
+linear_x3[-1]
+add[-1,-2]
+linear_x3[-1]
+add[-1,-2]
+linear_x3[-1]
+add[-1,-2]
+done
+l[1]
+width={w}
+height={h}
+if $10>0
+denoise 10,{$10/10},$5,$6,0,$7
+fi
++resize[-1] 33.333333333%,33.3333333333%,{d},{s},2
++linear_x3[-1]
+sub[-3,-1]
+if $11>0
+denoise 10,{$11/10},$5,$6,0,$7
+fi
++resize[-1] 33.333333333%,33.3333333333%,{d},{s},2
++linear_x3[-1]
+sub[-3,-1]
+if $12>0
+denoise 10,{$12/10},$5,$6,0,$7
+fi
++resize[-1] 33.333333333%,33.3333333333%,{d},{s},2
++linear_x3[-1]
+sub[-3,-1]
+linear_x3[-1]
+add[-1,-2]
+linear_x3[-1]
+add[-1,-2]
+linear_x3[-1]
+add[-1,-2]
+done
+l[2]
+width={w}
+height={h}
+if $10>0
+denoise 10,{$10/10},$5,$6,0,$7
+fi
++resize[-1] 33.333333333%,33.3333333333%,{d},{s},2
++linear_x3[-1]
+sub[-3,-1]
+if $11>0
+denoise 10,{$11/10},$5,$6,0,$7
+fi
++resize[-1] 33.333333333%,33.3333333333%,{d},{s},2
++linear_x3[-1]
+sub[-3,-1]
+if $12>0
+denoise 10,{$12/10},$5,$6,0,$7
+fi
++resize[-1] 33.333333333%,33.3333333333%,{d},{s},2
++linear_x3[-1]
+sub[-3,-1]
+linear_x3[-1]
+add[-1,-2]
+linear_x3[-1]
+add[-1,-2]
+linear_x3[-1]
+add[-1,-2]
+done
+append c
+yuv82rgb
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+if $1!=1
+div 255 pow {1/$1} mul 255
+fi
+if $9==1
+iain_pixel_denoise_p 1,1,0,0,1
+elif $9==2
+iain_pixel_denoise_p 2,1,0,0,1
+elif $9==3
+hybrid16 hybrid16 hybrid16
+fi
+c 0,255
+",64
+ms_patch_smoothsmoothing:
+ac "repeat $7 denoise $1,$2,$3,$4,$5,$6 done",$8 c 0,255
+ms_patch_smooth:
+lvl2=2
+lvl3=3
+lvl4=4
+lvl5=5
+lvl6=6
+lvl7=8
+apply_gamma {1/$15}
+ms_patch_smoothsmoothing[-1] $1,$2,$3,$4,$5,$6,$7,$8
+name[0] full
++resize[full] {full,w/$lvl2},{full,h/$lvl2},1,{s},2 name[1] level2
++ms_patch_smoothsmoothing[level2] $1,$9,$3,$4,$5,$6,$7,$8 name[2] level2clean
++resize[level2] {0,w},{0,h},1,{s},5 name[3] low2
++sub[full] [low2] name[4] level2high
+remove[level2,low2]
++resize[level2clean] {full,w/$lvl3},{full,h/$lvl3},1,{s},2 name[3] level3
++ms_patch_smoothsmoothing[level3] $1,$10,$3,$4,$5,$6,$7,$8 name[4] level3clean
++resize[level3] {level2clean,w},{level2clean,h},1,{s},5 name[5] low3
++sub[level2clean] [low3] name[6] level3high
+remove[level3,low3]
++resize[level3clean] {full,w/$lvl4},{full,h/$lvl4},1,{s},2 name[5] level4
++ms_patch_smoothsmoothing[level4] $1,$11,$3,$4,$5,$6,$7,$8 name[6] level4clean
++resize[level4] {level3clean,w},{level3clean,h},1,{s},5 name[7] low4
++sub[level3clean] [low4] name[8] level4high
+remove[level4,low4]
++resize[level4clean] {full,w/$lvl5},{full,h/$lvl5},1,{s},2 name[-1] level5
++ms_patch_smoothsmoothing[level5] $1,$12,$3,$4,$5,$6,$7,$8 name[-1] level5clean
++resize[level5] {level4clean,w},{level4clean,h},1,{s},5 name[-1] low5
++sub[level4clean] [low5] name[-1] level5high
+remove[level5,low5]
++resize[level5clean] {full,w/$lvl6},{full,h/$lvl6},1,{s},2 name[-1] level6
++ms_patch_smoothsmoothing[level6] $1,$13,$3,$4,$5,$6,$7,$8 name[-1] level6clean
++resize[level6] {level5clean,w},{level5clean,h},1,{s},5 name[-1] low6
++sub[level5clean] [low6] name[-1] level6high
+remove[level6,low6]
+name[-2] base
+resize[base] {level6high,w},{level6high,h},1,{s},5
+add[base] [level6high]
+remove[level6high]
+resize[base] {level5high,w},{level5high,h},1,{s},5
+add[base] [level5high]
+remove[level5high]
+resize[base] {level4high,w},{level4high,h},1,{s},5
+add[base] [level4high]
+remove[level4high]
+resize[base] {level3high,w},{level3high,h},1,{s},5
+add[base] [level3high]
+remove[level3high]
+resize[base] {level2high,w},{level2high,h},1,{s},5
+add[base] [level2high]
+remove[level2high]
+keep[-1]
+c 0,255
+apply_gamma {$15}
+c 0,255
+ms_patch_smooth_preview:
+if $-1==0
+ms_patch_smooth ${1--2}
+fi
+if $-1==1
++ms_patch_smooth ${1--2}
+sub[0] [1]
+keep[0]
+mul 2
+add 128
+fi
+luminance_nr:
+apply_gamma {1/$12}
+ac"
++ms_patch_smooth[0] 10,$1,3,3,0,$2,$3,0,$4,$5,$6,$7,$8,$9,1
++compose_grainextract
+fft_tile[-1] $10,$11,0
+compose_grainmerge[1,2]
+keep[-1]
+",7
+apply_gamma $12
+ms_smoothsmoothing:
+smooth {$1*5},0.7,0.7,0.6,$2,0.8,30,2,0,1
+ms_smooth:
+if $8==0
+lvl2=2
+lvl3=3
+lvl4=4
+lvl5=5
+lvl6=6
+fi
+if $8==1
+lvl2=2
+lvl3=4
+lvl4=8
+lvl5=16
+lvl6=32
+fi
+repeat $9
+if $1>0
+ms_smoothsmoothing[-1] $1,$7
+fi
+name[0] full
++resize[full] {full,w/$lvl2},{full,h/$lvl2},1,{s},2 name[1] level2
+if $2>0
++ms_smoothsmoothing[level2] $2,$7
+else [level2]
+fi
+name[2] level2clean
++resize[level2] {0,w},{0,h},1,{s},5 name[3] low2
++sub[full] [low2] name[4] level2high
+remove[level2,low2]
++resize[level2clean] {full,w/$lvl3},{full,h/$lvl3},1,{s},2 name[3] level3
+if $3>0
++ms_smoothsmoothing[level3] $3,$7
+else [level3]
+fi
+name[4] level3clean
++resize[level3] {level2clean,w},{level2clean,h},1,{s},5 name[5] low3
++sub[level2clean] [low3] name[6] level3high
+remove[level3,low3]
++resize[level3clean] {full,w/$lvl4},{full,h/$lvl4},1,{s},2 name[5] level4
+if $4>0
++ms_smoothsmoothing[level4] $4,$7
+else [level4]
+fi
+name[6] level4clean
++resize[level4] {level3clean,w},{level3clean,h},1,{s},5 name[7] low4
++sub[level3clean] [low4] name[8] level4high
+remove[level4,low4]
++resize[level4clean] {full,w/$lvl5},{full,h/$lvl5},1,{s},2 name[-1] level5
+if $5>0
++ms_smoothsmoothing[level5] $5,$7
+else [level5]
+fi
+name[-1] level5clean
++resize[level5] {level4clean,w},{level4clean,h},1,{s},5 name[-1] low5
++sub[level4clean] [low5] name[-1] level5high
+remove[level5,low5]
++resize[level5clean] {full,w/$lvl6},{full,h/$lvl6},1,{s},2 name[-1] level6
+if $6>0
++ms_smoothsmoothing[level6] $6,$7
+else [level6]
+fi
+name[-1] level6clean
++resize[level6] {level5clean,w},{level5clean,h},1,{s},5 name[-1] low6
++sub[level5clean] [low6] name[-1] level6high
+remove[level6,low6]
+name[-2] base
+resize[base] {level6high,w},{level6high,h},1,{s},5
+add[base] [level6high]
+remove[level6high]
+resize[base] {level5high,w},{level5high,h},1,{s},5
+add[base] [level5high]
+remove[level5high]
+resize[base] {level4high,w},{level4high,h},1,{s},5
+add[base] [level4high]
+remove[level4high]
+resize[base] {level3high,w},{level3high,h},1,{s},5
+add[base] [level3high]
+remove[level3high]
+resize[base] {level2high,w},{level2high,h},1,{s},5
+add[base] [level2high]
+remove[level2high]
+keep[-1]
+c 0,255
+c 0,255
+done
+ms_smooth_preview:
+if $-1==0
+ms_smooth $1,$2,$3,$4,$5,$6,$7,$8,$9
+fi
+if $-1==1
++ms_smooth $1,$2,$3,$4,$5,$6,$7,$8,$9
+sub[0] [1]
+keep[0]
+mul 2
+add 128
+fi
+med3stack16:
+blend_median
+med5stack16:
+blend_median
+fft_tile3_fft:
++fftpolar[0]
+100%,100%,1,1,1
+ellipse[-1] 50%,50%,50%,50%,0,1,$4
+ellipse[-1] 50%,50%,15%,15%,0,1,$5
+ellipse[-1] 50%,50%,5%,5%,0,1,$6
++add[1] [-1]
+threshold[-1] $1
+set[-1] 1,50%,50%
+mul[1] [-1]
++ifftpolar[1,2]
+remove[0,1,2]
+keep[-1]
+fft_tile3_clean:
+tc={round(w/$2)} tr={round(h/$2)}
+split_tiles $tc,$tr
+repeat $! local[$>]
+fft_tile3_fft[0--1] $1,$2,$3,$4,$5,$6
+done done
+append_tiles $tc,$tr
+c 0,255
+fft_tile3:
++resize[0] {w+$2},{h+$2},1,1,0,1,1,1
+resize[-1] {w+$2},{h+$2},1,1,0,1,0,0
+fft_tile3_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] $2,$2,{w-$2-1},{h-$2-1}
+if $8>2
+push={round($2*1.5)}
+pull={$2-$push}
++resize[0] {w+$push},{h+$2},1,1,0,1,1,1
+resize[-1] {w+$pull},{h+$2},1,1,0,1,0,0
+fft_tile3_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] {$push},{$2},{w-$pull-1},{h-($2)-1}
++resize[0] {w+$2},{h+$push},1,1,0,1,1,1
+resize[-1] {w+$2},{h+$pull},1,1,0,1,0,0
+fft_tile3_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] $2,{$push},{w-$2-1},{h-$pull-1}
+fi
+if $8>1
+dia1={round($2/3)}
+dia2={$2-$dia1}
++resize[0] {w+$dia1},{h+$dia1},1,1,0,1,1,1
+resize[-1] {w+$dia2},{h+$dia2},1,1,0,1,0,0
+fft_tile3_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] {$dia1},{$dia1},{w-$dia2-1},{h-$dia2-1}
++resize[0] {w+$dia2},{h+$dia2},1,1,0,1,1,1
+resize[-1] {w+$dia1},{h+$dia1},1,1,0,1,0,0
+fft_tile3_clean[-1] $1,$2,$3,$4,$5,$6
+crop[-1] {$dia2},{$dia2},{w-$dia1-1},{h-$dia1-1}
+fi
+remove[0]
+if $8==3
+blend_median
+fi
+if $8==2
+blend_median
+fi
+nr5:
+luma_strength=$1
+colour_strength=$2
+recovery=$3
+detail_recovery={5000-($4*500)}
+fine_detials=$13
+medium_detials=$14
+large_details=$15
+detail_radius=$5
+detail_amount=$6
+detail_threshold=$7
+edge_radius=$8
+edge_amount=$9
+edge_threshold=$10
+quality=3
+if $16==1
+mul[0] 256
+radius={0.05*(min(h,w))}
+[0]
+rectangle[-1] 0,0,100%,$radius,1,{ia}
+rectangle[-1] 0,0,$radius,100%,1,{ia}
+rectangle[-1] 0,100%,100%,{h-$radius},1,{ia}
+rectangle[-1] {w-$radius},100%,100%,0,1,{ia}
+blur[-1] {$radius/2}
+xmin={xm}
+ymin={ym}
+remove[-1]
++crop[0] {$xmin-$radius},{$ymin-$radius},{$xmin+$radius},{$ymin+$radius}
+minnoise=${-variance_noise}
+remove[-1]
++sub[0] {250*256}
+abs[-1]
+rectangle[-1] 0,0,100%,$radius,1,{ia}
+rectangle[-1] 0,0,$radius,100%,1,{ia}
+rectangle[-1] 0,100%,100%,{h-$radius},1,{ia}
+rectangle[-1] {w-$radius},100%,100%,0,1,{ia}
+blur[-1] {$radius/2}
+xmax={xm}
+ymax={ym}
++crop[0] {$xmax-$radius},{$ymax-$radius},{$xmax+$radius},{$ymax+$radius}
+maxnoise=${-variance_noise}
+remove[-1]
++sub[0] {128*256}
+abs[-1]
+rectangle[-1] 0,0,100%,$radius,1,{ia}
+rectangle[-1] 0,0,$radius,100%,1,{ia}
+rectangle[-1] 0,100%,100%,{h-$radius},1,{ia}
+rectangle[-1] {w-$radius},100%,100%,0,1,{ia}
+blur[-1] {$radius/2}
+xave={xm}
+yave={ym}
+remove[-1]
++crop[0] {$xave-$radius},{$yave-$radius},{$xave+$radius},{$yave+$radius}
+midnoise=${-variance_noise}
+text[-1] $midnoise,0,0,25,1,{iM}
++sub[0] {64*256}
+abs[-1]
+rectangle[-1] 0,0,100%,$radius,1,{ia}
+rectangle[-1] 0,0,$radius,100%,1,{ia}
+rectangle[-1] 0,100%,100%,{h-$radius},1,{ia}
+rectangle[-1] {w-$radius},100%,100%,0,1,{ia}
+blur[-1] {$radius/2}
+xshadow={xm}
+yshadow={ym}
+remove[-1]
++crop[0] {$xshadow-$radius},{$yshadow-$radius},{$xshadow+$radius},{$yshadow+$radius}
+shadownoise=${-variance_noise}
++sub[0] {192*256}
+abs[-1]
+rectangle[-1] 0,0,100%,$radius,1,{ia}
+rectangle[-1] 0,0,$radius,100%,1,{ia}
+rectangle[-1] 0,100%,100%,{h-$radius},1,{ia}
+rectangle[-1] {w-$radius},100%,100%,0,1,{ia}
+blur[-1] {$radius/2}
+xbright={xm}
+ybright={ym}
+remove[-1]
++crop[0] {$xbright-$radius},{$ybright-$radius},{$xbright+$radius},{$ybright+$radius}
+brightnoise=${-variance_noise}
+shadows={(($minnoise/$shadownoise)*64)}
+mids={(($minnoise/$midnoise)*64)}
+brights={(($minnoise/$brightnoise)*64)}
+whites={(($minnoise/$maxnoise)*64)}
+point1={$shadows+32}
+point2={$mids+$shadows+32}
+point3={$brights+$mids+$shadows+32}
+point4={$whites+$brights+$mids+$shadows+32}
+keep[0]
+apply_curve[0] 0,0,0,{32*256},{32*256},{96*256},{$point1*256},{160*256},{$point2*256},{223*256},{$point3*256},{287*256},{$point4*256}
+div[0] 256
+else
+apply_gamma {1/$17}
+fi
+rgb2ycbcr
+split c
+if $1>0
+if $11==0
++denoise_haar[0] $luma_strength,0,{$quality*10}
+fi
+if $11==1
++ms_patch[0] 10,{$luma_strength*2.5},3,5,0,1,1,0,{$luma_strength*.75},{$luma_strength*.5},{$luma_strength*0},{$luma_strength*0},1,1,1,0
+fi
+if $11==2
++autonr2[0] $luma_strength,1
+fi
+if $11==3
++median[0] 3
+ms_patch[-1] 10,{$luma_strength*2.5},3,5,0,1,1,0,{$luma_strength*.75},{$luma_strength*.5},{$luma_strength*0},{$luma_strength*0},1,1,1,0
+fi
+if $11==4
++msmed2[0] 3
+repeat $1
+msmed2[-1] 3
+done
+fi
++sub[0] [-1]
+add[-1] {128}
+remove[0]
+if $recovery==1
+resize[-1] {w+48},{h+48},{d},{s},0,0,0,0
+resize[-1] {w+48},{h+48},{d},{s},0,0,1,1
+rectangle[-1] 0,0,100%,48,1,128
+rectangle[-1] 0,0,48,100%,1,128
+rectangle[-1] 0,100%,100%,{h-48},1,128
+rectangle[-1] {w-48},100%,100%,0,1,128
+fft_tile3[-1] {$detail_recovery},48,0,$fine_detials,$medium_detials,$large_details,1,$quality
+crop[-1] 48,48,{w-49},{h-49}
+else
+fill[-1] 128
+fi
+unsharp[-1] $detail_radius,$detail_amount,$detail_threshold
+unsharp[2] $edge_radius,$edge_amount,$edge_threshold
+sub[-1] {128}
+add[2] [-1]
+remove[-1]
+else
+move[0] 3
+fi
+if $2>0
+median[0,1] 3
+median[0,1] 3
+if $12==1
+ms_patch[0] 10,1,3,5,0,1,1,0,{$colour_strength*1},{$colour_strength*.5},{$colour_strength*.25},{$colour_strength*0},0,1,1,0
+ms_patch[1] 10,1,3,5,0,1,1,0,{$colour_strength*1},{$colour_strength*.5},{$colour_strength*.25},{$colour_strength*0},0,1,1,0
+fi
+if $12==0
+denoise_haar[0] $colour_strength,0,{$quality*3}
+denoise_haar[1] $colour_strength,0,{$quality*3}
+fi
+fi
+move[-1] 0
+append c
+ycbcr2rgb
+if 16==1
+mul[0] 256
+apply_curve[0] 0,0,0,{32*256},{32*256},{$point1*256},{96*256},{$point2*256},{160*256},{$point3*256},{223*256},{$point4*256},{287*256}
+div[0] 256
+else
+apply_gamma $17
+fi
+c 0,255
+ms_patch_smoothing:
+ac "repeat $7 denoise $1,$2,$3,$4,$5,$6 done",$8,0 c 0,255
+ms_patch_2:
++resize[0] 50%,50%,1,{s},2
++ms_patch_smoothing[-1] $1,$2,$3,$4,$5,$6,$7,$8
++resize[1] {0,w},{0,h},1,{s},5
++sub[0] [3]
+resize[2] {0,w},{0,h},1,{s},5
++add[2] [4]
+keep[-1]
+c 0,255
+ms_patch_3:
++resize[0] 25%,25%,1,{s},2
++ms_patch_smoothing[-1] $1,$2,$3,$4,$5,$6,$7,$8
++resize[1] {0,w},{0,h},1,{s},5
++sub[0] [3]
+resize[2] {0,w},{0,h},1,{s},5
++add[2] [4]
+keep[-1]
+c 0,255
+ms_patch_4:
++resize[0] 12.5%,12.5%,1,{s},2
++ms_patch_smoothing[-1] $1,$2,$3,$4,$5,$6,$7,$8
++resize[1] {0,w},{0,h},1,{s},5
++sub[0] [3]
+resize[2] {0,w},{0,h},1,{s},5
++add[2] [4]
+keep[-1]
+c 0,255
+ms_patch_5:
++resize[0] 6.125%,6.125%,1,{s},2
++ms_patch_smoothing[-1] $1,$2,$3,$4,$5,$6,$7,$8
++resize[1] {0,w},{0,h},1,{s},5
++sub[0] [3]
+resize[2] {0,w},{0,h},1,{s},5
++add[2] [4]
+keep[-1]
+c 0,255
+ms_patch:
+apply_gamma {1/$14}
+repeat $15
+if $13==1
+ms_patch_smoothing[-1] $1,$2,$3,$4,$5,$6,$7,$8
+fi
+if $9>0.1
+ms_patch_2 $1,$9,$3,$4,$5,$6,$7,$8
+fi
+if $10>0.1
+ms_patch_3 $1,$10,$3,$4,$5,$6,$7,$8
+fi
+if $11>0.1
+ms_patch_4 $1,$11,$3,$4,$5,$6,$7,$8
+fi
+if $12>0.1
+ms_patch_5 $1,$12,$3,$4,$5,$6,$7,$8
+fi
+done
+apply_gamma $14
+c 0,255
+msmed2:
+medlvl2=2
+medlvl3=3
+medlvl4=4
+medlvl5=6
+medlvl6=6
+medlvl7=7
+median $1
+median $1
+name[0] full
++resize[full] {full,w/$medlvl2},{full,h/$medlvl2},1,{s},2
+name[-1] level2
++resize[level2] {0,w},{0,h},1,{s},3,1
+name[-1] low2
++compose_grainextract[full,low2]
+name[-1] level2high
+remove[low2]
+median[level2] $1
+median[level2] $1
+name[1] level2
++resize[level2] {full,w/$medlvl3},{full,h/$medlvl3},1,{s},2
+name[-1] level3
++resize[level3] {level2,w},{level2,h},1,{s},3,1
+name[-1] low3
++compose_grainextract[level2,low3]
+name[-1] level3high
+remove[1,low3]
+median[2] $1
+median[2] $1
+name[2] level3
++resize[level3] {full,w/$medlvl4},{full,h/$medlvl4},1,{s},2
+name[-1] level4
++resize[level4] {level3,w},{level3,h},1,{s},3,1
+name[-1] low4
++compose_grainextract[level3,low4]
+name[-1] level4high
+remove[2,low4]
+median[-2] $1
+median[-2] $1
+name[-2] base
+resize[base] {level4high,w},{level4high,h},1,{s},3,1
+compose_grainmerge[-1,-2]
+name[-1] base
+resize[base] {level3high,w},{level3high,h},1,{s},3,1
+compose_grainmerge[-1,-2]
+resize[-1] {full,w},{full,h},1,{s},3,1
+compose_grainmerge[-1,-2]
+keep[-1]
+nr5_preview:
+if $-1==0
+nr5 $1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12,$13,$14,$15,$16,$17
+fi
+if $-1==1
++nr5 $1,$2,$3,$4,$5,0,$7,$8,0,$10,$11,$12,$13,$14,$15,$16,$17
+sub[0] [1]
+keep[0]
+mul 2
+add 128
+fi
+iain_png_processing:
+repeat $! l[$>]
+nm=${-gui_layer_name}
+dither_pattern=$3
+do_smooth=$4
+smooth_radius=$5
+smooth_amount=$6
+do_sharp=$7
+sharp_radius=$8
+sharp_amount=$9
+sharp_threshold=$10
+constrant_radius=$11
+overshoot=$12
+do_median=$13
+median_radius=$14
+median_repeat=$15
+remove_opacity
+if $do_smooth
+bilateral[0] $smooth_radius,$smooth_amount
+fi
+if $do_sharp
+iain_constrained_sharpen[0] $sharp_radius,$sharp_amount,$sharp_threshold,$constrant_radius,$overshoot,0,1
+fi
++colormap $1,$2,1
+if $dither_pattern==2
++index[0] [1],1,0
+elif $dither_pattern!=2
++index[0] [1],0,0
+fi
++map[-1] [-2]
+if $dither_pattern<=1
++sub[0] [-1]
+abs[-1]
++add[0] [4]
++sub[0] [4]
+index[-1] [1],0,0
+index[-2] [1],0,0
+l[-1,-2]
+if $dither_pattern==1
+(0,255;255,0)
+elif $dither_pattern==0
+(0;255)
+fi
+resize_as_image[-1] [0],0,2
+channels[-1] 0
+append[-1,-2] c
+blend alpha
+done
+if $do_median
+repeat $median_repeat
+l[-1]
+repeat ($median_radius*2)+1
+amount={$>-$median_radius}
+if $amount!=0
++shift[0] $amount,0,0,0,0
+fi
+done
+blend_median
+done
+done
+fi
++map[-1] [1]
+k[-1]
+else
+rm[-1]
+if $do_median
+repeat $median_repeat
+horiz_median[-1] $median_radius
+done
+fi
++map[-1] [1]
+k[-1]
+fi
+nm name($nm)
+done done
+iain_savenoiseprint_p:
+if $1==0
+text "creating noiseprint",0,0,50,1,255
+elif $1==1
+iain_savenoiseprint[0,1] $1,$2,$3
+fi
+iain_savenoiseprint:
+remove_opacity
+rgb2yuv8
+split c
+remove[-1,-2]
+l[0,3]
+apply_parallel_overlap[0] "mul {1/255} pow $3 mul 255 ",0,0
+apply_parallel_overlap[1] "mul {1/255} pow $3 mul 255 ",0,0
++sub[1] [0]
+add[-1] 128
+l[-1]
+if $1==0
++l
+size=48
+cropwidth={w}
+cropheight={h}
+resize[0] {w+($size-w%$size)},{h+($size-h%$size)},1,{s},0,1
+tc={round(w/$size)} tr={round(h/$size)}
+l[0]
+split_tiles $tc,$tr
+repeat $! local[$>]
+fftpolar[0]
+append[0,1] z
+done done
+median_median
+done
+o noiseprint.cimg
+rm
+done
+elif $1==1
+size=48
+cropwidth={w}
+cropheight={h}
+resize[0] {w+($size-w%$size)},{h+($size-h%$size)},1,{s},0,1
+tc={round(w/$size)} tr={round(h/$size)}
+i noiseprint.cimg
+mul[-1] $2
++l[0,1]
+split_tiles[0] $tc,$tr
+repeat $!-1
+l[$>,-1]
+[-1]
+l[0,1]
+fftpolar[0]
+l[0,-1]
+split[1] z
+rm[-1]
++gt[0] [1]
+circle[-1] 50%,50%,1%,1,1
+mul[0] [-1]
+keep[0]
+done
+ifftpolar
+done
+done
+done
+rm[-1]
+append_tiles $tc,$tr
+done
++l[0,1]
+shift[0] 16,16,0,0
+split_tiles[0] $tc,$tr
+repeat $!-1
+l[$>,-1]
+[-1]
+l[0,1]
+fftpolar[0]
+l[0,-1]
+split[1] z
+rm[-1]
++gt[0] [1]
+circle[-1] 50%,50%,1%,1,1
+mul[0] [-1]
+keep[0]
+done
+ifftpolar
+done
+done
+done
+rm[-1]
+append_tiles $tc,$tr
+shift[0] -16,-16,0,0
+done
+l[0,1]
+shift[0] 32,32,0,0
+split_tiles[0] $tc,$tr
+repeat $!-1
+l[$>,-1]
+[-1]
+l[0,1]
+fftpolar[0]
+l[0,-1]
+split[1] z
+rm[-1]
++gt[0] [1]
+circle[-1] 50%,50%,1%,1,1
+mul[0] [-1]
+keep[0]
+done
+ifftpolar
+done
+done
+done
+rm[-1]
+append_tiles $tc,$tr
+shift[0] -32,-32,0,0
+done
+iain_fast_median_stack
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+c 0,255
+fi
+done
+sub[-1] 128
+add[0] [-1]
+keep[0]
+apply_parallel_overlap[0] "mul {1/255} pow {1/$3} mul 255 ",0,0
+done
+append c
+yuv82rgb
+c 0,255
+if $1==0
+rm
+fi
+median_median:
+repeat $!/3-($!%3)
+l[$>,{$>+1},{$>+2}]
+iain_fast_median_stack
+done
+done
+repeat $!/3-($!%3)
+l[$>,{$>+1},{$>+2}]
+iain_fast_median_stack
+done
+done
+repeat $!/3-($!%3)
+l[$>,{$>+1},{$>+2}]
+iain_fast_median_stack
+done
+done
+num=$!
+add
+div $num
+simplelocalcontrast_p:
+to_rgb
+[0]
+apply_parallel_overlap[1] "
+simplelocalcontrast[0] ${1-6}",{30+$3},$12
++luminance[-1]
+apply_curve[-1] 0,0,$7,64,$8,128,$9,196,$10,255,$11
+mul[-1] 255
+append[1,2] c
+blend alpha,1,0
+simplelocalcontrast:
+str1=$1
+str2={$str1*0.7}
+str3={$str2*0.7}
+str4={$str3*0.7}
+str5={$str4*0.7}
+str6={$str5*0.7}
+str7={$str6*0.7}
+str8={$str7*0.7}
+apply_gamma $5
+conttest4 $4,$str1,$str2,$str3,$str4,$str5,$str6,$str7,$str8,$2,$3,$3,$3,$3,$3,$3,2,1
+apply_gamma $6
+n 0,255
+conttest4:
+to_rgb
+if $1==1
++luminance
++smoothbase4[-1] $2,$3,$4,$5,$6,$7,$8,$9,$10
++compose_grainextract[-1,-2]
+ms_smooth[-1] $11,$12,$13,$14,$15,$16,$17,$18,1
+remove[1,2]
+sub[-1] 128 mul[-1] 2 add[-1] 128
++compose_grainmerge
+remove[0,1]
+else
++smoothbase4 $2,$3,$4,$5,$6,$7,$8,$9,$10
++compose_grainextract
+ms_smooth[-1] $11,$12,$13,$14,$15,$16,$17,$18,1
+remove[1]
+sub[-1] 128 mul[-1] 2 add[-1] 128
++compose_grainmerge
+remove[1]
+rgb2hsv
+split c
+remove[1,2,3]
+append c
+hsv2rgb
+fi
+smoothbase4:
+repeat $9
+cropwidth={w}
+cropheight={h}
+resize[0] {w+(256-w%256)},{h+(256-h%256)},1,{s},0,1
+width={w}
+height={h}
+if $1!=0
+denoise[0] 10,$1,3,5,0,1
+fi
++resize[0] {$width/2},{$height/2},1,{s},2,1
++resize[-1] $width,$height,1,{s},3,1
+blur[-1] .5
+compose_grainextract[0,-1]
+if $2!=0
+denoise[-1] 10,$2,3,5,0,1
+fi
++resize[-1] {$width/4},{$height/4},1,{s},2,1
++resize[-1] {$width/2},{$height/2},1,{s},3,1
+blur[-1] .5
+compose_grainextract[1,-1]
+if $3!=0
+denoise[-1] 10,$3,3,5,0,1
+fi
++resize[-1] {$width/8},{$height/8},1,{s},2,1
++resize[-1] {$width/4},{$height/4},1,{s},3,1
+blur[-1] .5
+compose_grainextract[2,-1]
+if $4!=0
+denoise[-1] 10,$4,3,5,0,1
+fi
++resize[-1] {$width/16},{$height/16},1,{s},2,1
++resize[-1] {$width/8},{$height/8},1,{s},3,1
+blur[-1] .5
+compose_grainextract[3,-1]
+if $5!=0
+denoise[-1] 10,$5,3,5,0,1
+fi
++resize[-1] {$width/32},{$height/32},1,{s},2,1
++resize[-1] {$width/16},{$height/16},1,{s},3,1
+blur[-1] .5
+compose_grainextract[4,-1]
+if $6!=0
+denoise[-1] 10,$6,3,5,0,1
+fi
++resize[-1] {$width/64},{$height/64},1,{s},2,1
++resize[-1] {$width/32},{$height/32},1,{s},3,1
+blur[-1] .5
+compose_grainextract[5,-1]
+if $7!=0
+denoise[-1] 10,$7,3,5,0,1
+fi
++resize[-1] {$width/128},{$height/128},1,{s},2,1
++resize[-1] {$width/64},{$height/64},1,{s},3,1
+blur[-1] .5
+compose_grainextract[6,-1]
+if $8!=0
+denoise[-1] 10,$8,3,5,0,1
+fi
++resize[-1] {$width/256},{$height/256},1,{s},2,1
++resize[-1] {$width/128},{$height/128},1,{s},3,1
+blur[-1] .5
+compose_grainextract[7,-1]
+resize[-1] {$width/128},{$height/128},1,{s},3,1
+blur[-1] .5
+compose_grainmerge[-1,-2]
+resize[-1] {$width/64},{$height/64},1,{s},3,1
+blur[-1] .5
+compose_grainmerge[-1,-2]
+resize[-1] {$width/32},{$height/32},1,{s},3,1
+blur[-1] .5
+compose_grainmerge[-1,-2]
+resize[-1] {$width/16},{$height/16},1,{s},3,1
+blur[-1] .5
+compose_grainmerge[-1,-2]
+resize[-1] {$width/8},{$height/8},1,{s},3,1
+blur[-1] .5
+compose_grainmerge[-1,-2]
+resize[-1] {$width/4},{$height/4},1,{s},3,1
+blur[-1] .5
+compose_grainmerge[-1,-2]
+resize[-1] {$width/2},{$height/2},1,{s},3,1
+blur[-1] .5
+compose_grainmerge[-1,-2]
+resize[-1] {$width/1},{$height/1},1,{s},3,1
+blur[-1] .5
+compose_grainmerge[-1,-2]
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+done
+iain_fx_skin_mask_pr:
+if $6==0
+iain_skin_mask $1,$2,$3,$4,$5
+elif $6==1
++iain_skin_mask $1,$2,$3,$4,1
+n[-1] 0.6,1
+mul
+fi
+iain_fx_skin_mask:
+tic
+apply_parallel_overlap[0] "iain_skin_mask[0] ${1--1}",0,0
+toc
+iain_skin_mask:
+dark={$1}
+pale={255-$2}
+red={255-$3}
+yellow={255-$4}
+to_rgb
+[0]
+[0]
+[0]
+l[1]
+if $3>0
+red={255-$3}
+fill if(i(x,y,z,0)-i(x,y,z,1)<{$red},i,0)
+gt 0
+else
+fill 1
+fi
+done
+l[2]
+rgb2cmyk
+dark={$1}
+pale={255-$2}
+fill if(i(x,y,z,2)>i(x,y,z,1),if(i(x,y,z,2)-i(x,y,z,1)<{$dark},if((i(x,y,z,0)+{$pale})0
+yellow={255-$4}
+rgb2hsv
+split c
+keep[0]
+add[0] 180
+mod[0] 360
+lt[0] $yellow
+else
+fill 1
+fi
+done
+mul[1,2,3]
+mul[1] 255
+channels[1] 0
+if $5
+keep[1]
+else
+append c
+fi
+iain_smartdemos:
+cropwidth={w}
+cropheight={h}
+resize[0] {w+(64-w%64)},{h+(64-h%64)},{d},{s},0,2
+apply_parallel_overlap "
+to_rgb
+add 1000
+rgb2bayer[0] $1,1
++l[0]
++l[0]
+split c
+l[0,2]
+(0,0,.5;0,1,0;0.5,0,0)
+convolve[0] [-1]
+convolve[1] [-1]
+rm[-1]
+(0,0,.25;0,.5,0;0.25,0,0)
+convolve[0] [-1]
+convolve[1] [-1]
+rm[-1]
+done
+done
+split[0] c
+name[0] red name[1] green name[2] blue
+name[3] redblur name[4] greenblur name[5] blueblur
++div[redblur] [blueblur]
+replace_nan 0
++mul[blue] [-1]
+add[-1] [red]
++div[blueblur] [redblur]
+replace_nan 0
++mul[red] [-1]
+add[-1] [blue]
+keep[1,-1,-3]
+reverse[0,1]
+append c
+done
+l[0]
++l[0]
+split c
+l[0,2]
+(0.5,0,0;0,1,0;0,0,0.5)
+convolve[0] [-1]
+convolve[1] [-1]
+rm[-1]
+(0.25,0,0;0,.5,0;0,0,0.25)
+convolve[0] [-1]
+convolve[1] [-1]
+rm[-1]
+done
+done
+split[0] c
+name[0] red name[1] green name[2] blue
+name[3] redblur name[4] greenblur name[5] blueblur
++div[redblur] [blueblur]
+replace_nan 0
++mul[blue] [-1]
+add[-1] [red]
++div[blueblur] [redblur]
+replace_nan 0
++mul[red] [-1]
+add[-1] [blue]
+keep[1,-1,-3]
+reverse[0,1]
+append c
+done
++l[0]
+(.33,0,0,0,0;0,.66,0,0,0;0,0,-2,0,0;0,0,0,.66,0;0,0,0,0,.33)
+convolve[0] [1]
+rm[1]
+abs
+split c
+rm[1]
+max
+done
++l[1]
+(0,0,0,0,.33;0,0,0,.66,0;0,0,-2,0,0;0,.66,0,0,0;.33,0,0,0,0)
+convolve[0] [1]
+rm[1]
+abs
+split c
+rm[1]
+max
+done
+blur[-1,-2] 2
+sub[-1,-2]
+gt[-1] 0
+mul[-1] 255
+append[1,2] c
+blend alpha,1,0
++l[0]
+split[0] c
+add[0,2]
+mul[0] 0.5
+reverse
+=>[0] green =>[1] magenta
+[0] [1]
+=>[-2] greenblur =>[-1] mblur
+(0.25;.5;0.5;.5;0.25)
+convolve[mblur] [-1] rm[-1]
+(0.5;1;0.5)
+convolve[greenblur] [-1]
+rm[-1]
++div[greenblur] [mblur]
+replace_nan 0
+=>[-1] mmul
+rm[greenblur,mblur]
+mul[magenta] [mmul]
+keep[green,magenta]
+add
+done
++l[0]
+split[0] c
+add[0,2]
+mul[0] 0.5
+reverse
+=>[0] green =>[1] magenta
+[0] [1]
+=>[-2] greenblur =>[-1] mblur
+(0.25,.5,0.5,.5,0.25)
+convolve[mblur] [-1] rm[-1]
+(0.5,1,0.5)
+convolve[greenblur] [-1]
+rm[-1]
++div[greenblur] [mblur]
+replace_nan 0
+=>[-1] mmul
+rm[greenblur,mblur]
+mul[magenta] [mmul]
+keep[green,magenta]
+add
+done
+sub 1000
+c 0,255
++l[0,1]
+rgb2bayer[0] $1,1
++to_rgb[1]
+rgb2bayer[-1] $1,1
+split[0] c
+split[-1] c
+sub[0] [4]
+sub[2] [6]
+(0.25,0.5,0.25;0.5,1,0.5;0.25,0.5,0.25)
+convolve[0] [-1]
+convolve[2] [-1]
+remove[-1]
+add[0] [3]
+add[2] [3]
+remove[1,4,5,6]
+reverse[1,2]
+append c
+done
+l[0,2]
+rgb2bayer[0] $1,1
++to_rgb[1]
+rgb2bayer[-1] $1,1
+split[0] c
+split[-1] c
+sub[0] [4]
+sub[2] [6]
+(0.25,0.5,0.25;0.5,1,0.5;0.25,0.5,0.25)
+convolve[0] [-1]
+convolve[2] [-1]
+remove[-1]
+add[0] [3]
+add[2] [3]
+remove[1,4,5,6]
+reverse[1,2]
+append c
+done
+rm[1]
+replace_inf 255
+replace_nan 0
+reverse
+l[0]
++blur $2
+sub[0] [1]
+add[0] 128
+done
+l[2]
++blur $2
+sub[0] [1]
+add[0] 128
+done
+l[0,2]
+nozip $3
+done
+l[-1,-2]
++l[0]
++l
+split c
+add
+div 3
+done
+sub
++blur 3
+sub
+abs
+split c
+max
+done
++l[1]
++l
+split c
+add
+div 3
+done
+sub
++blur 3
+sub
+abs
+split c
+max
+done
+l[-1,-2]
+blur 2
+sub
+gt 0
+mul 255
+done
+append[1,2] c
+blend alpha,1,0
+done
+sub[0] 128
+add
+c 0,255
+",16,0
+crop 0,0,{$cropwidth-1},{$cropheight-1}
+time=$|
+iain_split_orientation_preview:
+if $7
+iain_draw_angle $1,$2,$5
+else
+iain_split_orientation $1,$2,$3,$4,$5,$6,$7,$8,$9
+iain_draw_angle $1,$2,$5
+fi
+iain_split_orientation:
+residual=$4
+snap=$5
+cutoff_steepness=$6
+x_point={($1-50)/100}
+y_point={($2-50)/100}
+angle_rad={-1*(atan($x_point/$y_point))}
+if $8
+angle_rad={$angle_rad+(pi/2)}
+fi
+angle_deg={$angle_rad/pi*180}
+angle_deg_snap={round(($angle_deg+180),$snap)-180}
+angle_rad_snap={$angle_deg_snap/180*pi}
+radians={$angle_rad_snap+(pi/2)}
+width={($3/180)*pi}
+if $8
+width={((180-$3)/180)*pi}
+fi
+remove_opacity
++blur[0] $residual
+sub[0] [-1]
+100%,100%
+fill[-1] ($radians+atan((0.5-(x/w))/(0.5-(y/h)))-$width/2)%pi
+low_angle={pi-$width}
+high_angle={pi+$width}
+fill[-1] if($high_angle>i&&i>$low_angle,1,0)
+radians=$radians+($width)
++fftpolar[0]
+blur_angular[2] $cutoff_steepness
+c[2] 0,1
+mul[3] [2]
+rm[2]
+ifftpolar[-1,-2]
+sub[0] [-1]
+add[0,1]
+reverse
+if $9==0
+k[0]
+add[0] 128
+elif $9==1
+add[0] 128
+=>[0] "mode(grainmerge), name"
+elif $9==2
+k[1]
+fi
+iain_draw_angle:
+repeat $!
+l[$<]
+snap=$3
++l[0]
+remove_opacity
+fill 0
+x_point={($1-50)/100}
+y_point={($2-50)/100}
+angle_rad={-1*(atan($x_point/$y_point))}
+angle_deg={$angle_rad/pi*180}
+angle_deg_snap={round(($angle_deg+180),$snap)-180}
+angle_rad_snap={$angle_deg_snap/180*pi}
+if (sin($angle_rad))==0 angle_rad=0$angle_rad+.0001 fi
+if (cos($angle_rad))==0 angle_rad=0$angle_rad+.0001 fi
+hypotenuse_x={$x_point/(sin($angle_rad))}
+hypotenuse_y={$y_point/(cos($angle_rad))}
+line_x={((sin($angle_rad)*$hypotenuse_x)+0.5)*w}
+line_y={((cos($angle_rad)*$hypotenuse_y)+0.5)*h}
+line_x_snap={((sin($angle_rad_snap)*($hypotenuse_x))+0.5)*w}
+line_y_snap={((cos($angle_rad_snap)*($hypotenuse_y))+0.5)*h}
+text_hyp_x={$hypotenuse_x+(sign($hypotenuse_x)*0.05)}
+text_hyp_y={$hypotenuse_y+(sign($hypotenuse_y)*0.05)}
+text_x={((sin($angle_rad_snap)*($text_hyp_x))+0.5)*w}
+text_y={((cos($angle_rad_snap)*($text_hyp_y))+0.5)*h}
+poly_hyp_x={sign($hypotenuse_x)}
+poly_hyp_y={sign($hypotenuse_y)}
+poly_x1={((sin($angle_rad_snap)*($poly_hyp_x))+0.5)*w}
+poly_y1={((cos($angle_rad_snap)*($poly_hyp_y))+0.5)*h}
+poly_x2={((sin($angle_rad)*($poly_hyp_x))+0.5)*w}
+poly_y2={((cos($angle_rad)*($poly_hyp_y))+0.5)*h}
+100%,100%,1,1,0
+rm[0]
+circle[-1] 50%,50%,{abs($hypotenuse_x)*w},1,255,255,255,255
+circle[-1] 50%,50%,{(abs($hypotenuse_x)*w)-2},1,0,0,0,255
+100%,100%,1,1,0
+polygon[-1] 3,50%,50%,$poly_x1,$poly_y1,$poly_x2,$poly_y2,1,1
+mul[-1] [-2]
+rm[-2]
+[-1]
++iain_draw_conical_lines[-1] 6,3
+mul[-1,-3]
+mul[-1] {80/255}
+to_rgb[-2]
+append[-1,-2] c
+100%,100%,1,1,0
+linethick[-1] 50%,50%,$line_x,$line_y,2,1,255
+linethick[-1] 50%,50%,$line_x_snap,$line_y_snap,2,1,255
++iain_draw_radial_lines[-1] 8,4
+mul[-1,-2]
+100%,100%,1,1,0
+linethick[-1] 50%,50%,$line_x,$line_y,2,1,80
+linethick[-1] 50%,50%,$line_x_snap,$line_y_snap,2,1,160
+to_rgb[-2]
+append[-1,-2] c
+max
+text[-1] {round($angle_deg_snap,1)},$text_x,$text_y,17,1,255
+done
+blend alpha
+done
+done
+iain_draw_conical_lines:
+100%,100%,1,1
+rm[0]
+radians=0
+width=0
+fill[0] ($radians+atan((0.5-(x/w))/(0.5-(y/h)))-$width/2)/pi*360
+mod $1
+lt $2
+iain_draw_radial_lines:
+100%,100%,1,1
+rm[0]
+set 1,50%,50%
+distance 1
+mod $1
+lt $2
+star_tone:
+sx1=50
+sx2=194
+sx3=281
+sx4=511
+sx5=742
+sx6=829
+sx7=972
+sx8=829
+sx9=742
+sx10=511
+sx11=281
+sx12=192
+sy1=450
+sy2=633
+sy3=849
+sy4=817
+sy5=849
+sy6=633
+sy7=450
+sy8=267
+sy9=50
+sy10=83
+sy11=50
+sy12=267
+level=10
+luminance
++l
+rm
+2000,2000,1,1,0
+repeat 8
+polygon 12,$sx1,$sy1,$sx2,$sy2,$sx3,$sy3,$sx4,$sy4,$sx5,$sy5,$sx6,$sy6,$sx7,$sy7,$sx8,$sy8,$sx9,$sy9,$sx10,$sy10,$sx11,$sy11,$sx12,$sy12,1,$level
+sx2={$sx2+40}
+sx6={$sx6-40}
+sx8={$sx8-40}
+sx12={$sx12+40}
+sy2={$sy2-23}
+sy4={$sy4-47}
+sy6={$sy6-23}
+sy8={$sy8+23}
+sy10={$sy10+47}
+sy12={$sy12+23}
+level={$level+25}
+done
+n 0,255
+resize 200,200,1,1,3
++shift[0] -69,-40,0,0
++shift[0] -69,40,0,0
++shift[0] 69,-40,0,0
++shift[0] 69,40,0,0
+add
+crop 5,5,142,84
+done
+resize[-1] $1,$1,1,1,2
+width={w}
+height={h}
+w_tiles={0,round(w/$width)}
+h_tiles={0,round(h/$height)}
+total_tiles=$h_tiles*$w_tiles
+[-1]x{$total_tiles-1}
+append_tiles[1--1] $w_tiles,$h_tiles
+equalize[-1] 256
+blend alpha,0.5,1
+gt 128
+mul 255
+iain_sub_cast:
+repeat $! l[$>]
+srgb2rgb
++median[0] 3
+bilateral[0] [1],10,$1
+rm[1]
++resize[0] 10%,10%,100%,100%,2
+dilate[1] 21
+split[1] c
+fill[1] {1,ia}
+fill[2] {2,ia}
+fill[3] {3,ia}
+append[1,2,3] c
+resize[1] [0]
+sub[0] [1]
+k[0]
+n[0] 0,255
+c[0] $2,$3
+n 0,255
+rgb2srgb
+nm name($nm)
+done done
+iain_turbulent_halftone:
+repeat $! local[$>]
+if $8>0
++iain_fast_denoise $8,0,1,0,0
+sub[1] [0]
+mul[1] -1
+add
+fi
+if $7==1
+rgb2cmyk
+elif $7==2
+luminance
+fi
+split c
+repeat $! local[$>]
++l[0]
+channels 0
+tsize={min($5,w,h)}
+xtile={(round(w/$tsize))+1}
+ytile={(round(h/$tsize))+1}
+$tsize,$tsize
+fx_seamless_turbulence[-1] $1,$2,$3,$4,.25,0
+[-1]x{$xtile*$ytile}
+append_tiles[1--1] $xtile,$ytile
+remove[-1]
+crop[-1] 0,0,{0,w},{0,h}
+keep[-1]
+done
+blur[-1] $6
+l[-1] +blur 10 sub done
+n[-1] 0,255
+equalize[-1] 256
+if $9
+resize 400%,400%,100%,100%,3
+fi
+blend alpha,0.5,1
+gt 128
+mul 255
+done done
+append c
+if $7==1
+cmyk2rgb
+fi
+if $9
+resize 25%,25%,100%,100%,3
+fi
+done done
+iain_turbulent_halftone_preview:
+iain_turbulent_halftone $1,$2,$3,$4,{0,w},$6,$7,$8,$9
+jeje_render3d :
+W={0,w}
+1,2,1,4 f. $9,$13,$10,$14,$11,$15,$12,$16 r. {0,w},{0,h},1,4,5
+blend alpha
+i "$1" a[1--1] z
+l.
+if $17 display_volume $2,$3,$4 else jeje_boundingbox3d 20 fi
+r3d 0,0,1,$7
+r3d 0,1,0,$6
+r3d 1,0,0,$5
+c3d n3d *3d {3*$W*$8/4}
+done
+object3d[0] [1],50%,50%,0,1
+n 0,255
+rm[1]
+jeje_render3d_preview :
+jeje_render3d $"*"
+jeje_deconvolve :
+if $2==1
+deconvolve_goldmeinel[0] [1],$1 n[0] 0,255
+else
+deconvolve_richardsonlucy[0] [1],$1 n[0] 0,255
+fi
+jeje_deconvolve_preview :
+gui_split_preview "jeje_deconvolve $1,$2,$3",$4
+jeje_zernike :
+zernike {$1*w/100},{$2*h/100},{$3*w/100},${4-18}
+n 0,255
+if $19 f '100*((i/$20)%1)<$21' n 0,255 fi
+jeje_zernike_preview :
+gui_split_preview "jeje_zernike $*",$-1
+jpr_about : fx_logo "@jayprich filters"
+#@cli jpr_colourillusion :
+#@cli : Use -d0 ( or -w -1,-1,0 -d ) to avoid normalisation of colours
+#@cli : optical illusion involving color spirals
+#@cli : visual "green arm" and "blue arm" contain the same color
+jpr_colourillusion :
+arm={$1*1.5-1}
+{w},{h},1,1,A=10+atan2(x-{w/2},y-{h/2})*$arm/pi;R=sqrt((x-{w/2})^2+(y-{h/2})^2)/$2+A;(int(A+R/$arm)+int(R*6-A/$arm)%2)%3
+(250,200,0^20,200,190^160,100,150)
+map.. .
+k..
+#@cli jpr_coltexindex :
+#@cli : Enrich colour with local analysis of luminance and index the image.
+#@cli : $ sp swan jpr_coltexindex 8,250,250,15,150,1,0,0,0,10,20,3,1,3,0.25
+jpr_coltexindex : skip ${7=1}
+e[^-1] "Index colour and texture of image$? with $1 types ($2,$3) v ($4,$5) x $6 and Smoothness $8 Black $9 Mid $10 White $11"
+repeat $!
+l[$<]
+rgb2yuv s c
++b... $8
++ge. $10
++le.. $11
+ge... $9
+b[-5,-4] $12
+if $13
+gradient[-6] xy,4
+a[-7,-6] c
+norm[-6]
+b[-6] $14
+else
++b[-6] {$14*0.5}
+-[-7,-1]
+sqr[-6]
+b[-6] {$14}
+sqrt[-6]
+fi
+n[-6] 0,1
+*[-6] $15
++-[-6] {-6,i(0.01*w*$2,0.01*h*$3)}
+*. {i(0.01*w*$4,0.01*h*$5)}
++-[-6] {-6,i(0.01*w*$2,0.01*h*$3)}
+*. {i(0.01*w*$4,0.01*h*$5)}
++[-2,-1]
++-[-5] {-5,i(0.01*w*$2,0.01*h*$3)}
+*. {i(0.01*w*$4,0.01*h*$5)}
++[-2,-1]
+/. {i(0.01*w*$4,0.01*h*$5)+0.00001}
+c. 0,1
+*. $6
+a[-7--5,-1] c
+-[-4] 2
+*[-4,-1]
++... 2
+*[-3,-2]
++colormap.. $1,1,1
+index... .
+rm.
+*.. 2
++[-2,-1]
+n 0,255
+to_rgb
+if $7
+circle $2%,$3%,1%,1,,64,128,255
+circle $4%,$5%,1%,1,,255,64,128
+fi
+done
+done
+#@cli jpr_decimate :
+#@cli : Rescale in linear RGB space by cropping the frequency domain weighted
+#@cli : to decrease high frequency akin to Lanczos window on Sinc lobes
+#@cli : This filter discards the alpha channel
+#@cli : High sharpness just crops frequency and gives bad halo
+#@cli : $ sp swan > 185 * 255 +jpr_decimate 0.6,1.3 jpr_decimate.. 0.6,1.9 - + 128
+jpr_decimate : skip ${1=0.375},${2=5}
+e[^-1] "Decimate scale $1 sharpness $2"
+srgb2rgb
+repeat $!
+l[$<]
+nw={round($1*w/2)}
+nh={round($1*h/2)}
+sc={4*$nw/w*$nh/h}
+mid={round(0.5/$1-0.5)}
+shift -$mid,-$mid
+fft
+shift $nw,$nh,0,0,2
+z 0,0,{2*$nw-1},{2*$nh-1}
+shift -$nw,-$nh,0,0,2
+f i*min(1,abs(2*x/w-1)*$2)*min(1,abs(2*y/h-1)*$2)
+ifft
+rm.
+* $sc
+done
+done
+rgb2srgb
+#@cli :: Input / Output
+#@cli tiff3d
+#@cli : Input a 3D tif as a 3D image
+#@cli : Note: This is useful for loading several 3D image stack
+tiff3d : e[^-1] "Load the file $1 as a 3D image."
+n=$!
+i $1 a[{$n}--1] z
+#@cli toff3d
+#@cli : Output a 3D tif as a 3D image
+toff3d : e[^-1] "Save the 3D image as a tiff file."
+repeat $!
+o[$>] ${"filename \"$1\","$>}
+done
+#@cli :: 3D Rendering
+#@cli jeje_boundingbox3d : _separation
+#@cli : Bounding box of a 3D volume
+#@cli : $ 100,100,100 jeje_boundingbox3d
+jeje_boundingbox3d : skip ${1=10}
+e[^-1] "3D Bounding box."
+repeat $! l[$>]
+box3d {0,w},{0,h},{0,d} p3d. 1 o3d. 1
+if $1>0
+plane3d {0,w},{0,h},$1,{round({0,h}/{0,w}*$1)} p3d. 1 o3d. .1
+fi
+rm[0] +3d
+done done
+#@cli render_volume : _size,_quality,_opacity
+#@cli : Pseudo volumic rendering
+#@cli : $ 100,100,100 noise 1 b 10,0 max 0 r 100%,100%,100%,3,0 n 0,100 f 'if(c==0,z*i(x,y,z,0),if(c==1,i(x,y,z,0)*(100-z),0))' render_volume
+render_volume : check "${1=8}>3&${2=5}>2&${3=.1}>0"
+repeat $! l[$>]
+mirror x
++tones {$2+1} rm[1,2] r[1--1] 100%,100%,100%,{0,s} *[1--1] [0] rm[0]
+rv
+repeat $! i=$< l[$<]
+if im!=iM
+pointcloud3d gaussians3d $1,{$3*($i+1)/$2}
+else
+rm
+fi
+done done
++3d md3d -1 +3d .5,.5,.5
+done done
+#@cli display_volume : _size,_quality,_opacity
+#@cli : Display the volume with black background, a bounding box
+#@cli : and a volumic rendering of the data.
+#@cli : $ 100,100,100 noise 1 b 10,0 max 0 r 100%,100%,100%,3,0 n 0,100 f 'if(c==0,z*i(x,y,z,0),if(c==1,i(x,y,z,0)*(100-z),0))' display_volume 8,5,.1
+display_volume : check "${1=8}>3&${2=5}>2&${3=.1}>0"
+e[^-1] "Display_volume with size $1 quality $2 and opactiy $3."
+repeat $! l[$>]
++jeje_boundingbox3d 20
+render_volume[0] $1,$2,$3
++3d
+done done
+d3d_black : 1 d3d[0--2] . rm.
+#@cli view3d : _angle1,_angle2
+#@cli : Apply a 3D view defined by two angles
+#@cli : $ 50,50,50,3 noise 10 b 5 max 0 n 0,255 display_volume 32,5,1 view3d
+view3d : skip ${1=25},${2=-120}
+e[^-1] "Apply 3D view."
+repeat $! l[$>]
+r3d 0,0,1,$1 r3d 1,0,0,$2
+done done
+#@cli colordepth
+#@cli : Color depth coding
+#@cli : $ 100,100,100 noise 1 b 10,0 max 0 colordepth 5
+colordepth : skip ${1=5}
+e[^-1] "Colordepth coding with LUT $1."
+repeat $! l[$>]
+colordepth_volume $1 s z +
+done done
+#@cli colordepth_volume
+#@cli : Make a 3D volume of the same size, color it, resize orignal in color and multiply
+colordepth_volume : skip ${1=5}
+repeat $! l[$>]
+i [0] f. 'z/(d-1)*255' map. $1 r[0] 100%,100%,100%,3 *
+done done
+colordepth_scale : skip ${1=5}
+10,{0,h-10} f. '(h-y)/(h-1)*255' map. $1 frame. 5,5,0,0,0
+#@cli make_axis : _xmin,_xmax,_ymin,_ymax
+#@cli : Display an axis around an image
+#@cli : $ image.jpg make_axis 0,1,0,1
+make_axis :
+e[^-1] "Add axis."
+repeat $! l[$>]
+frame 1,1,0
+100%,24,1,3,255 axes. $1,$2,{-1},{-1}
+24,{0,h},1,3,255 axes. {w},{w},$4,$3 24,24,1,3,255 a[-1,-2] y
+a[0,1] y rv a[0,1] x
+frame 12,12,255 100%,5,1,3,255,255,255 rv a y
+done done
+#@cli xlabel : _label
+#@cli : Add a label to the x-axis (see make_axis)
+#@cli : $ image.jpg make_axis 0,1,0,1 xlabel "x-axis"
+xlabel :
+e[^-1] "Add a x label."
+repeat $! l[$>]
+0 t. "$1",0,0,18,1,255,255,255 negate. +lt. 90%
+j[0] ..,{{0,w}/2+12-{1,w}/2},{{0,h}-{1,h}},0,0,1,. k[0]
+done done
+#@cli ylabel : _label
+#@cli : Add a label to the y-axis (see make_axis)
+#@cli : $ image.jpg make_axis 0,1,0,1 ylabel "y-axis"
+ylabel :
+e[^-1] "Add a y label."
+repeat $! l[$>]
+0 t. "$1",0,0,18,1,255,255,255 negate.
+rotate. -90 +lt. 90%
+j[0] ..,0,{{0,h}/2-12-{1,h/2}},0,0,1,. k[0]
+done done
+#@cli title : _label
+#@cli : Add a title (see make_axis)
+#@cli : $ image.jpg make_axis 0,1,0,1 title "title"
+title :
+e[^-1] "Add a title."
+repeat $! l[$>]
+0 t. "$1",0,0,18,1,255,255,255 negate. +lt. 90%
+j[0] ..,{{0,w}/2-{1,w}/2},0,0,0,1,. k[0]
+done done
+#@cli :: Feature detections
+#@cli jeje_dog : scale1, scale2
+#@cli : Difference of Gaussian filter
+#@cli : $ sp 1 jeje_dog
+jeje_dog : skip ${1=1},${2=2}
+e[^-1] "Difference of Gaussian."
+repeat $! l[$>] +b $2 b.. $1 - done done
+#@cli quiver2d
+#@cli : Display a sequence 2D vector field on a 2D image sequence
+#@cli : both being represented az a 3D stack
+quiver2d :
+e[^-1] "Cumulative sum along z-axis."
+s z repeat $!/2 l[$>,{$>+$!/2}] quiver[0] [1],10,1,1,1,255 done done rm[{$!/2}--1] a z
+#@cli warp2d : [field]
+#@cli : Warp a 2D image stack using a vector field
+warp2d :
+e[^-1] "Warp a 3d stack using a displacement field."
+pass$1 0 repeat $!-1 l[$>,-1]
+s z repeat $!/2 l[$>,{$>+$!/2}]
+warp[0] [1],1,1,1
+done done rm[{$!/2}--1] a z
+done done
+#@cli lucas_kanade: scale,smoothing
+#@cli : Motion estimation using lucas and kanade approach
+#@cli : Works on 2D+t image stacks/ has side effect
+#@cli : [vx vy] = [Ixx Ixy; Ixy Iyy]^-1 [Ixt Iyt]
+#@cli : $ image.jpg repeat 20 +shift. 1,0,0,0,2 done a z +lucas_kanade 2 n 0,255 frame 2 a x
+#@cli : $ image.jpg repeat 20 +shift. 1,1,0,0,2 done a z +lucas_kanade 2 s z repeat $!/2 l[$>,{$>+$!/2}] quiver[0] [1] done done rm[{$!/2}--1] a z
+lucas_kanade : skip ${1=2},${2=1}
+e[^-1] "Motion estimation with Lucas et Kanade algorithm."
+repeat $! l[$>]
+blur_xy $2 structuretensors 0 blur_xy $1,$1,0
++l s c rm[0,-1] *[1,2] *[0,2] rv - done
++l[0] s c rm[3,5] *[0,3] *[1,2] - done
+l[0] s c rm[2,4,5] *[0,2] sqr[1] - done
+/[1,2] [0] rm[0] a c
+done done
+#@cli unwarp2d : iteration,scales,smoothness,keep_field
+#@cli : Unwarp a 2D+T volume
+#@cli : $ image.jpg repeat 20 +shift. 1,0,0,0,2 done a z unwarp2d 10,20
+unwarp2d : skip ${1=5},${2=5},${3=1},${4=0}
+e[^-1] "Unwarp a 2D+t volume with $1 iterations, $2 scales and smoothing $3."
+repeat $! l[$>]
+[0] 100%,100%,100%,2,0
+repeat $1
+k=$>
+repeat $2
+if $>==($2-1) s=1 else s={($>+1)/$2} fi scale={$s*100}%
++e $k" "$>" "$s" "$scale" "{1/$s}" "{$3*$s}
++l[1]
+norm
+r $scale,$scale,100%,1
+lucas_kanade {max(.75,$3*$s)}
+* {1/$s} cumulate z
+done
+r. ..,5 +[-1,-2]
++warp2d[0] [2] rm[1] rv[-1,-2]
+done
+done
+if $4==0 rm[0,2] else rm[0,1] fi
+done done
+#@cli estimate_shift_core [image]
+#@cli : Estimate a translation with a reference images with sub-pixel accuray
+#@cli : image.jpg luminance +shift {u},{u},0,0,2 estimate_shift[1] [0]
+estimate_shift_core :
+e[^-1] "Translation estimation with Lucas et Kanade algorithm."
+pass$1 0 repeat $!-1 l[$>,-1]
+blur_xy 1 +g[0] xy,0 -[0,1] +sqr[1,2] +*[1,2] [0] *[1,2] rm[0]
+Ixy={0,ia} Ixx={1,ia} Iyy={2,ia} Ixt={3,ia} Iyt={4,ia}
+vx={-($Iyy*$Ixt-$Ixy*$Iyt)/max(1e-6,$Ixx*$Iyy-$Ixy*$Ixy)}
+vy={-($Ixx*$Iyt-$Ixy*$Ixt)/max(1e-6,$Ixx*$Iyy-$Ixy*$Ixy)}
+rm 1,2,1,1,$vx,$vy
+done done
+#@cli multi_resolution_pyramide : _number_of_scales
+#@cli : Build a multi-resolution pyramid
+multi_resolution_pyramide :
+repeat $! l[$<]
+repeat $1-1 +r. 50%,50%,50%,100%,2 done rv
+done done
+#@cli shift_subpixel : [image]
+#@cli : Shift an image with subpixel translation
+#@cli : $ image.jpg 1,2,1,1,5,10.1 +shift_subpixel[0] [1]
+shift_subpixel :
+pass$1 0 repeat $!-1 l[$>,-1]
+{0,w},{0,h},1,2 f. 'if(c==0,{1,i(0)},{1,i(0,1)})'
+warp[0] [2],1,2,1 rm[1,2]
+done done
+#@cli estimate_shift [image]
+#@cli : Estimate a translations between image and ref image [image]
+#@cli : using a multi-resolution scheme
+#@cli : $ image.jpg luminance +shift 2,3 crop 5%,5%,95%,95% estimate_shift[1] [0],3
+estimate_shift :
+e[^-1] "Estimate translation between images and image [$1]."
+pass$1 0 repeat $!-1 l[$>,-1]
+N={round(log2(min({0,w},{0,h}))-2,1,-1)}
+multi_resolution_pyramide $N
+1,2
+repeat 3 repeat $N
++*. {-2.0^(-($N-$>-1))} +shift_subpixel[{$N+$>}] . rm..
+estimate_shift_core. [$>]
+*. {2.0^($N-$>-1)}
++[-1,-2]
+done done
+k. *. -1
+done done
+#@cli unshift : iterations,number_of_scales
+#@cli : Correct drift along Z in a 3D volume (video stabilization)
+#@cli : $ image.jpg luminance repeat 10 +shift. {2*u},{2*u},0,0,2 done a z +unshift 1 a x
+unshift : skip ${1=1}
+e[^-1] "Unshift image stack."
+repeat $! l[$>]
+repeat $1
+s z repeat $!-1 l[$>,{$>+1}]
++estimate_shift[1] [0] *. -1
+shift_subpixel[1] . rm.
+done done
+a z
+done
+done done
+#@cli register_lucas_kanade : _iterations, _scale
+#@cli : Register images using lucas kanade motion estimation
+register_lucas_kanade : skip ${1=10},${2=10}
++lucas_kanade $2 cumulate. z +warp2d
+repeat $1
+lucas_kanade. $2 cumulate. z +[-1,-2] +warp2d
+done
+#@cli detect_events : _scale_xy,_scale_t,_threshold
+#@cli : Detect space time events using space time interest points
+#@cli : $ 100,100,100 noise 1 b 2 +detect_events , pointscoordinates. r[0] 100%,100%,100%,3,1 n[0] 0,255 circles[0] [1] k[0]
+detect_events : skip ${1=1},${2=1},${3=9}
+e[^-1] "Detect events with scale_xy $1 scale_z $2 and threshold $3."
+repeat $! l[$>]
+blur_xy $1 blur_z $2 structuretensors blur_xy $1 blur_z $2
+s z apply_parallel "eigen k[0] s c k[2]" a z
+sqrt
+thres={{0,ia}+$3*sqrt({0,iv})}
++max_patch[0] 8 threshold[0] $thres *
+done done
+#@cli detect_spots : _scale,_threshold
+#@cli : Detect spots in the image
+#@cli : $ 100,100 noise .2,2 b 1 n 0,255 noise 5 +detect_spots , pointscoordinates. r[0] 100%,100%,1,3,1 circles[0] [1] k[0]
+detect_spots : skip ${1=1},${2=4}
+e[^-1] "Detect events with scale $1 and threshold $2."
+repeat $! l[$>]
+b $1 +b $1 - thres={$2*${-mad[0]}}
++max_patch[0] 3 +threshold[0] $thres *
+done done
+#@cli measure_colocalization:
+#@cli : Colocalization analysis
+#@cli : Overlap RG/R RG/G RG/R+G MOC M1 and M2
+#@cli : $ 256,256,1,2 noise 3 b 5 measure_colocalization
+measure_colocalization :
+repeat $! l[$>]
+if {0,s==2}
+s c +gt 0 +sqr[0,1] +*[0] [1] +*[2] [3] +or[2] [3]
+O1={{7,is}/{2,is}}
+O2={{7,is}/{3,is}}
+O={{7,is}/{8,is}}
+*[2] [1] *[3] [0]
+MOC={{6,is}/sqrt({4,is}*{5,is})}
+M1={{3,is}/{0,is}}
+M2={{2,is}/{1,is}}
+rm 1,6,1,1,$O1,$O2,$O,$MOC,$M1,$M2
+else
+e "Needs images with two channels"
+1,6,1,1,0,0
+fi
+done done
+#@cli measure_colocalization_object:
+#@cli : Compute the number of intersecting objects
+#@cli : in each channels versus the number of objects
+#@cli : $ 256,256,1,2 noise 3 b 5 gt 0 measure_object_colocalization
+measure_object_colocalization :
+repeat $! l[$>]
+if {0,s==2}
+gt 0 s c label_fg .1
+n1=0 repeat {0,iM}
++eq[0] {$>+1} *. [1]
+if iM>0 n1={$n1+1} fi
+rm.
+done
+n1={0,100*$n1/iM}
+n2=0 repeat {1,iM}
++eq[1] {$>+1} *. [0]
+if iM>0 n2={$n2+1} fi
+rm.
+done
+n2={1,100*$n2/iM}
+rm
+1,2,1,1,$n1,$n2
+else
+e "Needs images with two channels"
+1,6,1,1,0,0
+fi
+done done
+#@cli local_moments : _scale
+#@cli : Compute local second order moments tensor
+#@cli : http://en.wikipedia.org/wiki/Image_moment
+#@cli : $ image.jpg +local_moments 1
+local_moments : skip ${1=1}
+repeat $! l[$>]
+norm
+if d==1
++*[0] 'x' +*[0] 'y' +*[0] 'x*x'
++*[0] 'x*y' +*[0] 'y*y' b $1
++sqr[1] /. [0] -[3,-1] /[3] [0]
++*[1,2] /. [0] -[4,-1] /[4] [0]
++sqr[2] /. [0] -[5,-1] /[5] [0]
+k[3-5] a c
+else
++*[0] 'x' +*[0] 'y' +*[0] 'z' +*[0] 'x*x'
++*[0] 'x*y' +*[0] 'x*z' +*[0] 'y*y' +*[0] 'y*z'
++*[0] 'z*z' b $1
++sqr[1] /. [0] -[4,-1] /[4] [0]
++*[1,2] /. [0] -[5,-1] /[5] [0]
++*[1,3] /. [0] -[6,-1] /[6] [0]
++sqr[2] /. [0] -[7,-1] /[7] [0]
++*[2,3] /. [0] -[8,-1] /[8] [0]
++sqr[3] /. [0] -[9,-1] /[9] [0]
+k[4-9] a c
+fi
+done done
+#@cli smooth_moments : _scale,_iterations,_dt
+#@cli : Anisotropic diffusion using local moment tensors
+#@cli : $ image.jpg +noise 10 +smooth_moments. 1,10,1 print_psnr
+smooth_moments : check "${1=1}>0&${2=100}>0&${3=1}>0"
+repeat $! l[$>]
++local_moments. $1 smooth[0] [1],$2,$3,0 k[0]
+done done
+#@cli pointscoordinates
+#@cli : Return the list of points in the image as 3xN or 2xN columns vector
+#@cli : $ 100,100 noise .1,2 ==. 1 +pointscoordinates
+pointscoordinates :
+e[^-1] "Return the list of points in the image."
+repeat $! l[$>]
+if d>1
+if iM>0 pointcloud3d s3d k[2] s y,{h/3} a x else 0 fi
+else
+if iM>0 pointcloud3d s3d k[2] s y,{h/3} a x else 0 fi
+rows 0,1
+fi
+done done
+#@cli circles : [x,y,radius,opacity,color,..] || [x,y,z,radius,opacity,color,..]
+#@cli : Draw circles on an image
+#@cli : $ 512,512,1,3 10,7 noise. 1 n. 0,512 circles[0] [1] k[0]
+circles : skip ${2=3},${3=1}
+e[^-1] "Draw circles on the image."
+pass$1 0 repeat $!-1 l[$>,-1]
+if {0,d>1}
+if {1,h<4} r[1] 100%,{5+{0,s}},1,1,0 l[1] s y f[3] $2 f[4] $3 f[5--1] 255 a y done fi
+repeat {1,w}
+x={1,i($>,0)} y={1,i($>,1)} z={1,i($>,2)} r={1,i($>,3)} o={1,i($>,4)} i=$>
+repeat {0,s}
+if $z>=0&$z<{0,d}-1
+sh[0] $z,$z,$> ellipse. $x,$y,$r,$r,0,$o,0xFFFFFF,{1,i($i,5+$>)}
+rm.
+fi
+done
+done
+else
+if {1,h<3} r[1] 100%,{4+{0,s}},1,1,0 l[1] s y f[2] $2 f[3] $3 f[4--1] 255 a y done fi
+repeat {1,w}
+x={1,i($>,0)} y={1,i($>,1)} r={1,i($>,2)} o={1,i($>,3)} i=$> col={1,i($>,4)}
+repeat {0,s}
+sh[0] 0,0,$> ellipse. $x,$y,$r,$r,0,$o,0xFFFFFF,{1,i($i,{4+$>})}
+rm.
+done
+done
+fi
+done done rm.
+#@cli labels : [image]
+#@cli : Draw labels on the image
+#@cli : The labels are defined by image as
+#@cli : in 2D [x,y,label,font_size,opacity,color]
+#@cli : in 3D [x,y,z,label,font_size,opacity,color]
+#@cli : $ 512,512,1,3 10,2 noise. 1 n. 0,512 labels[0] [1]
+labels :
+e[^-1] "Draw labels on the image."
+pass$1 0 repeat $!-1 l[$>,-1]
+if {0,d>1}
+if {1,h<4}
+r[1] 100%,{6+{0,s}},1,1,0
+l[1] s y f[3] 'x' f[4] 13 f[5] 1 f[6--1] 255 a y done
+fi
+repeat {1,w}
+x={1,i($>,0)} y={1,i($>,1)} z={1,i($>,2)} r={1,i($>,3)} f={1,i($>,4)} o={1,i($>,5)} i=$>
+repeat {0,s}
+if $z>=0&$z<{0,d}
+sh[0] $z,$z,$> t. $r,$x,$y,$f,$o,{1,i($i,6+$>)}
+rm.
+fi
+done
+done
+else
+if {1,h<3}
+r[1] 100%,{5+{0,s}},1,1,0 l[1] s y f[2] 'x' f[3] 13 f[4] 1 f[5--1] 255 a y done
+fi
+repeat {1,w}
+x={1,i($>,0)} y={1,i($>,1)} r={1,i($>,2)} f={1,i($>,3)} o={1,i($>,4)} i=$>
+repeat {0,s}
+sh[0] 0,0,$> t. $r,$x,$y,$f,$o,{1,i($i,5+$>)}
+rm.
+done
+done
+fi
+rm.
+done done
+#@cli croparound : [x,y,dx,dy] || [x,y,z,dx,dy,dz]
+#@cli : Draw circles on an image
+#@cli : $ 512,512,1,3 10,7 noise. 1 n. 0,512 circles[0] [1] k[0]
+croparound : skip ${2=3},${3=3},${4=3}
+e[^-1] "Crop image at coordinates."
+pass$1 0 repeat $!-1 l[$>,-1]
+if {0,d>1}
+if {1,h<6}
+r[1] 100%,6,1,1,0
+l[1] s y f[3] $2 f[4] $3 f[5] $4 a y done
+fi
+repeat {1,w}
+x={1,i($>,0)} y={1,i($>,1)} z={1,i($>,2)} dx={1,i($>,3)} dy={1,i($>,4)} dz={1,i($>,5)} i=$>
++crop[0] {$x-$dx},{$y-$dy},{$z-$dz},{$x+$dx},{$y+$dy},{$z+$dz}
+done
+else
+if {1,h<4} r[1] 100%,4,1,1,0 l[1] s y f[2] $2 f[3] $3 a y done fi
+repeat {1,w}
+x={1,i($>,0)} y={1,i($>,1)} dx={1,i($>,2)} dy={1,i($>,3)} i=$>
++crop[0] {$x-$dx},{$y-$dy},{$x+$dx},{$y+$dy}
+done
+fi
+done done rm[0,1]
+#@cli random_walks : width,height,length,number,speed
+#@cli : Generate random walks tracks (list of coordinates x,y,t as a Nx3 image.)
+#@cli : $ 100,100,20 random_walks 100,100,20,5,1 circles[0] [1] k[0] blur_xy 1 s z max
+#@cli : $ 100,100,20 random_walks 100,100,20,10,1 circles[0] [1] k[0] b 1 n 0,255 display_volume 8,10,1 r3d 0,0,1,25 r3d 1,0,0,-120 snapshot3d 600,1,0,0,0 autocrop
+random_walks :
+number=$4 width=$1 height=$2 length=$3 speed=$5
+$number,3
+l.
+noise 1,1
+sh 0,0,0,0 n. 1,{$width-1} rm.
+sh 1,1,0,0 n. 1,{$height-1} rm.
+sh 2,2,0,0 f. 0 rm.
+repeat $length-1 +l.
+noise 1
+sh 0,0,0,0 c. 1,{$width-2} rm.
+sh 1,1,0,0 c. 1,{$height-2} rm.
+sh 2,2,0,0 f. '$>+1' rm.
+done done a x
+done
+#@cli fibers: number,length,curvature
+#@cli : Draw a serie of fibers in 2D or 3D
+#@cli : $ 600,400 fibers 10,200,10
+fibers :
+repeat $! l[$>]
+$2,$1,1,{if(d>1,3,2)}
+l. noise. 10 blur_x. $3 +norm / done
+if {0,d>1} s. c *[3] {0,2*d/(w+h)} a[1--1] c fi
+cumulate. x s. y
+repeat $!-1
+l[0,{$>+1}]
+s c
++[1] {0,w/2}
++[2] {0,h/2}
+if $!>3 +[3] {0,d/2} fi
+a[1--1] y
+circles[0] [1],0,-1
+done
+done
+k[0]
+done done
+#@cli :: Filtering and deconvolution
+#@cli movavg : _size>=1
+#@cli : moving average of image list with a box filter of size _size
+#@cli : $ 11 f 'x>w/2' +l. s x movavg 9 a x done +b[0] 1.2 a c display_graph
+movavg : check "$1>=1"
+e[^-1] "Moving average with size $1."
+n={$1-1}
+repeat $n
+repeat $!-1 ++[{$>},{$>+1}] *. .5 rm[$>] mv. $> done
+rv
+done
+if $n%2!=0 rv fi
+#@cli zmean
+#@cli : average along z-axis
+zmean :
+repeat $! l[$>]
+n={0,d} s z + / $n
+done done
+#@cli zstd
+#@cli : standard deviation along z-axis
+zstd :
+repeat $! l[$>]
++zmean sqr.
+l[0] sqr zmean done
+-- sqrt
+done done
+#@cli zmax
+#@cli : maximum along z-axis
+zmax :
+repeat $! l[$>] s z max done done
+#@cli zmin
+#@cli : maximum along z-axis
+zmin :
+repeat $! l[$>] s z min done done
+#@cli kymoline
+#@cli : interactively select a line and extract a line profile
+kymoline :
++select 1
+x1={i(0,0)} y1={i(0,1)} x2={i(0,3)} y2={i(0,4)}
+d={sqrt(($x2-$x1)^2+($y2-$y1)^2)}
+u={($x2-$x1)/$d} v={($y2-$y1)/$d}
+rm.
+f 'if(x<=$d&&y==0,i($x1+x*$u,$y1+x*$v,z,c,1),5)'
+crop 0,0,{int($d-1)},0
+#@cli fftshift
+#@cli : Shift a image so that the fft has it center in the middle
+#@cli : $ image.jpg fftshift
+fftshift :
+repeat $! l[$>]
+shift {-int(w/2)},{-int(h/2)},{-int(d/2)},0,2
+done done
+#@cli whiten_frequency : _alpha
+#@cli : Whitening filter (equalize the frequency of the image; nothing todo with color)
+#@cli : $ image.jpg whiten_frequency
+whiten_frequency : check "${1=.25}>=0"
+e[^-1] "Whiten the frequency with parameter $1."
+repeat $! l[$>]
+fft +a c norm. pow. $1 max. 1e-12 /. {ia} /[0-1] [2] rm[2] ifft k[0]
+done done
+#@cli deblur_upscale_goldmeinel : sigma>=0, _nb_iter>=0, _acceleration>=0, _kernel_type={ 0=quasi-gaussian (faster) | 1=gaussian },zoom=2
+#@cli : Deblur and zoom x2 selected images using Gold-Meinel algorithm
+#@cli : Default values: 'nb_iter=8', 'acceleration=1' and 'kernel_type=1'.
+deblur_upscale_goldmeinel : check "$1>=0 && ${2=8}>=0 && ${3=1}>=0" skip ${4=1} skip ${5=1} skip ${6=2} skip ${7=0}
+e[^-1] "Deblur image$? using Gold-Meinel algorithm, with sigma $1, $2 iterations, acceleration $3 and "${arg\ 1+!$4,"",quasi-}"gaussian kernel, zoom $5 and regularization $6."
+repeat $! l[$>]
+ux={if(w>1,round($5*w),1)} uy={if(h>1,round($5*h),1)} uz={if(d>1,round($5*d),1)}
++r. $ux,$uy,$uz,100%,6 max 0
+repeat $2
++b. {$1*$5},1,{$4!=0} r. [0] +/[0,-1] rm.. -^. $3 r. $ux,$uy,$uz,100%,6 *[-1,-2] max 0
+done rm[0]
+done done
+#@cli deblur_upscale_richardsonlucy : sigma>=0, nb_iter>=0, _kernel_type={ 0=quasi-gaussian (faster) | 1=gaussian }, zoom=2
+#@cli : Deblur and zoom selected images using Richardson-Lucy algorithm.
+#@cli : Default values: 'nb_iter=50' and 'kernel_type=1'.
+deblur_upscale_richardsonlucy : check "$1>=0 && ${2=50}>=0" skip ${3=1} skip ${4=1}
+e[^-1] "Deblur image$? using Richardson-Lucy algorithm, with sigma $1, $2 iterations and "${arg\ 1+!$3,"",quasi-}"gaussian kernel, zoom=$4."
+repeat $! l[$>]
+ux={if(w>1,round($4*w),1)} uy={if(h>1,round($4*h),1)} uz={if(d>1,round($4*d),1)}
++r $ux,$uy,$uz,100%,6
+repeat $2
++b. {$1*$5},1,{$3!=0} r. [0] +/[0,-1] rm.. r. $ux,$uy,$uz,100%,6 b. $1,1,{$3!=0} *[-1,-2] max 0
+done rm[0]
+done done
+#@cli correlate_fft
+#@cli : Convolve selected images with image [$1]
+#@cli : $ image.jpg 100%,100% gaussian. 20,1,45 +correlate_fft[0] [1]
+correlate_fft :
+e[^-1] "Correlate image with image [$1]."
+pass$1 0 repeat $!-1 l[$>,-1]
+w2={int({0,w}/2)} h2={int({0,h}/2)} d2={int({0,d}/2)}
+r[1] [0],[0],[0],1,0,0,0.5,0.5,0.5,0.5 shift[1] -$w2,-$h2,-$d2,0,2
+fft[0] fft[2] *[3] -1
++*[-4] . +*[-4] ... +[-2,-1]
+*[-5,-3] *[-3,-2] -[-3,-2]
+ifft rm.
+done done
+#@cli deconvolve_richardsonlucy : filter,nb_iter>=1, acceletation>=0
+#@cli : Deconvolve images using the first one as a blur operator (PSF)
+#@cli : $ image.jpg 16,16 gaussian. 2,1,45 +convolve_fft[0] [1] deconvolve_richardsonlucy. [1],100
+deconvolve_richardsonlucy : check ${is_image_arg\ $1}" && ${2=5}>=1"
+e[^-1] "Deblur image using Richardson-Lucy algorithm with filter [$1]."
+pass$1 0
+repeat $!-1 l[$>,-1]
+r[1] {0,w},{0,h},{0,d},100%,0,0,.5,.5,.5 normalize_sum[1] [0]
+repeat $2
++convolve_fft. [1] max. 1e-6 +/[0] . rm..
+correlate_fft. [1] *[-1,-2]
+done rm[0,1]
+done done
+#@cli deconvolve_goldmeinel : filter,nb_iter>=1,acceleration>=0
+#@cli : Deblur and zoom selected images using Gold-Meinel algorithm
+#@cli : Default values: 'nb_iter=8', 'acceleration=1' and 'kernel_type=1'.
+#@cli : $ image.jpg 100%,100% gaussian. 5,1,45 +convolve_fft[0] [1] +deconvolve_goldmeinel. [2],5
+deconvolve_goldmeinel : check ${is_image_arg\ $1}" && ${2=5}>=1 && ${3=1}>=1"
+e[^-1] "Deblur image using Gold-Meinel algorithm with filter $1, $2 iterationsand acceleration $3."
+pass$1 0
+repeat $!-1 l[$>,-1]
+r[1] {0,w},{0,h},{0,d},100%,0,0,.5,.5,.5 normalize_sum[1]
++b[0] 0.75
+repeat $2
++convolve_fft. [1] max. 1e-6 +/[0] . rm..
+-^. $3 *[-1,-2]
+done rm[0,1]
+done done
+#@cli deconvolve_richardsonlucy_blind : nb_iter>=1,acceleration>=0
+#@cli : Deblur and zoom selected images using Gold-Meinel algorithm
+#@cli : Default values: 'nb_iter=8', 'acceleration=1' and 'kernel_type=1'.
+deconvolve_richardsonlucy_blind : check "${1=5}>=1"
+e[^-1] "Deblur image using richardsonlucy algorithm with $1 iterations."
+repeat $! l[$>]
+- {im-1}
+avg={0,ia}
++b 0.75
++l.. autocorrelate threshold 10%,1 normalize_sum done
+repeat $1
++convolve_fft[1] [2] max. 1e-6 +/[0] . rm..
+correlate_fft. [2]
+*[1,3]
+*[1] {1,$avg/ia}
+l[1] +iee *. 0.01 + done
++convolve_fft[2] [1] max. 1e-6 +/[0] . rm..
+correlate_fft. [1]
+*[2,3]
+normalize_sum[2]
++l +powerspectrum n 0,255 append_tiles , t $> w rm done
+done rm[0]
+done done
+#@cli blend_sharpness
+#@cli : Blend images in the list according to their sharpness
+blend_sharpness :
+e[^-1] "Blend images according to their sharpness (gradient norm)."
+N=$! +gradient_norm
+++[$N--1] max[$N--1] .01 /[$N--2] . rm. a[$N--1] z d. s. z
+a[0-{$N-1}] x a[1--1] x * s x,$N +
+#@cli reconstruct_laplacian : param
+#@cli : Reconstruct an image from its laplacian
+#@cli : $ image.jpg +laplacian reconstruct_laplacian. ,
+reconstruct_laplacian : skip ${1=0}
+e[^-1] "Reconstruct an image from its laplacian."
+repeat $! l[$>]
+s c repeat $! l[$>]
+fft a={0,i(0,0)} b={1,i(0,0)}
+100%,100%,1,1,'-(4-2*cos(2*x*pi/w)-2*cos(2*y*pi/h))'
+=. 1 +. $1
+/[0,1] . k[0,1] =[0] $a =[1] $b ifft k[0]
+done done a c
+done done
+#@cli local_variance : _radius,_robust
+#@cli : Local variance filter
+#@cli : $ image.jpg +local_variance
+local_variance : skip ${1=2},${2=0}
+e[^-1] "Estimate local variance with scale "$1" and robustness $2."
+repeat $! l[$>]
+if $2==0
++b $1,1,1 - sqr b $1,1,1
+else
++median {2*$1+1} - abs median {2*$1+1} * 1.4826 sqr
+fi
+done done
+#@cli local_noise_variance : _radius,_robust
+#@cli : Local noise variance filter
+#@cli : $ image.jpg +local_variance
+local_noise_variance : skip ${1=2},${2=0}
+e[^-1] "Estimate local variance with scale $1 and robustness $2."
+repeat $! l[$>]
+laplacian if d==1 * {1/sqrt(20)} else * {1/sqrt(42)} fi local_variance $1,$2
+done done
+#@cli normalize_local_variance : _amplitude,_radius,_threshold,_repeat
+#@cli : Local variance normalization
+#@cli : $ image.jpg +normalize_local_variance
+normalize_local_variance : skip ${1=50},${2=2},${3=25},${4=1}
+e[^-1] "Normalize local variance with amplitude $1, scale $2, threshold $3 (x$4 times)."
+repeat $! l[$>]
+repeat $4
++local_variance $2 sqrt. max. $3
++b[0] $2,1,1 +-[0,-1] /. [1] *. $1 +[-2,-1] k.
+done
+done done
+#@cli local_wiener : _radius
+#@cli : Local Wiener filtering
+#@cli : http://en.wikipedia.org/wiki/Wiener_filter
+#@cli : $ image.jpg +noise 10 +local_wiener. 1 print_psnr
+local_wiener : skip ${1=2}
+e[^-1] "Local Wiener filtering."
+repeat $! l[$>]
+sigma=${-noise_std}
++b $1
++local_variance[0] $1 +-. {$sigma*$sigma} rv[-1,-2] /[-1,-2]
++-[0,1]
+*[-1,-2] +[-1,-2] k.
+done done
+#@cli periodize
+#@cli : Periodization of the image
+#@cli : $ image.jpg periodize
+periodize :
+e[^-1] "Periodize."
+repeat $! l[$>]
+if w>1 +mirror x a x fi
+if h>1 +mirror y a y fi
+if d>1 +mirror z a z fi
+done done
+#@cli tape
+#@cli : Apply a Hann window (e.g. to compute a power spectrum)
+#@cli : $ image.jpg tape
+tape :
+e[^-1] "Apply a Hann tapering window."
+repeat $! l[$>]
+if w>1 f 'i*sin(pi*x/(w-1))^2' fi
+if h>1 f 'i*sin(pi*y/(h-1))^2' fi
+if d>1 f 'i*sin(pi*z/(d-1))^2' fi
+done done
+#@cli powerspectrum :
+#@cli : Compute power spectrum
+#@cli : $ image.jpg powerspectrum
+powerspectrum :
+e[^-1] "Compute power spectrum."
+repeat $! l[$>] display_fft k[0] done done
+#@cli fouriermix : [image],_cut_of_frequency
+#@cli : Mix two images using their respectives low and high frequencies
+fouriermix : skip ${2=10%}
+e[^-1] "Fourier mix images."
+pass$1 0 repeat $!-1 l[$>,-1]
+fft[0] fft[2] fftshift
+100%,100% circle. 50%,50%,$2,1,1 b. 1,1,1 n. 0,1 d
+*[0,1] . negate. *[2,3] . rm. +[0,2] +[1,2] fftshift
+ifft
+done done rm.
+#@cli blend_fft : [image]
+#@cli : blend images using strongest frequencies
+blend_fft : skip ${2=2}
+pass$1 0
++l.
+tape powerspectrum b 1 +b 2 -
+max '{ia+$2*sqrt(iv)}' circle 50%,50%,20,1,@{0,im} n 0,1 d
+fftshift
+done fft.. *[-2,-3] . negate.
+repeat $!-3 l[$>,-1,-2,-3]
+fft[0] *[0,1] . +[0] [2] +[1] [3] ifft[0,1] rm[1]
+done done rm[-1,-2,-3]
+#@cli denoise_fft : _threshold
+#@cli : Illustrate the thresholding of Fourier coefficients
+#@cli : $ 256,256 f '128+128*sin(x+y)' +noise 50 +denoise_fft. 70%
+denoise_fft : skip ${1=1}
+e[^-1] "Threshold Fourier coefficients with threshold $1."
+repeat $! l[$>]
++l. tape powerspectrum threshold $1 fftshift done
+fft[0] *[0] . *[1] . rm. ifft k[0]
+n 0,255
+done done
+#@cli unstrip : _smoothness,_scale,_threshold
+#@cli : Remove stripes in an image
+#@cli : $ image.jpg f '.5*i*(1+.25*sin(x))' +unstrip
+unstrip : skip ${1=25},${2=20},${3=4}
+e[^-1] "Remove stripes."
+repeat $! l[$>]
++l.
+tape powerspectrum norm detect_spots 1,$3 dilate_circ $2 gt 0
+n 0,1 negate circle 50%,50%,$2,1,1
+if im<.9
+active=1 b $1 n 0,1 fftshift if iM==0 f 1 fi
+else
+active=0
+fi
+done
+if $active==1
+fft[0] *[0] . *[1] . rm. ifft
+fi
+k[0]
+done done
+#@cli autocorrelate
+#@cli : Autocorrelation using fourier transform
+#@cli : $ image.jpg autocorrelate
+autocorrelate :
+e[^-1] "Compute autocorrelation."
+repeat $! l[$>] fft sqr + sqrt ifft k[0] fftshift done done
+#@cli spotify : _scale>0,_nb_iter>0,
+#@cli : Make everything look like a spot
+#@cli : Default values '_nb_iter=1, _scale=1'
+#@cli : $ image.jpg +spotify 1,10
+#@cli : $ image.jpg +spotify 1,20 norm. gt. 5% b 1 *
+spotify : check "${1=1}>0 && ${2=1}>0"
+e[^-1] "Spotify with scale $1 with $2 iterations."
+repeat $! l[$>]
+if {0,im!=iM}
+s={0,ia}
+repeat $2
+b $1 +b {2*$1} - max 0 * '{0,$s/ia}'
+done
+fi
+done done
+#@cli mapblur : _levels
+#@cli : Blur the image with a map
+#@cli : $ image.jpg +f '10*x/w' mapblur
+mapblur : check "${1=10}>0"
+e[^-1] "Blur images using a blur map (works using pairs of images)."
+repeat $!/2 l[{2*$>},{2*$>+1}]
+smin={1,im} smax={1,iM}
+l[0] repeat $1 +b[0] {$smin+$>*($smax-$smin)/($1)} done rm[0] a z done
+l[1] tones $1 gt 0 b 1 a z done
+* s z +
+done done
+#@cli vesselness : _scale>0,coefA,coefB,coefC
+#@cli : Frangi's vesselness filter based on the eigen value of the Hessian
+#@cli : Reference:
+#@cli : A. F. Frangi, W. J. Niessen, K. . L. Vincken, M. A. Viergever,
+#@cli : "Multiscale vessel enhancement filtering"
+#@cli : Medical Image Computing and Computer Assisted Intervention MICCAI'98,
+#@cli : vol. 1496, pp. 130 137, 1998.
+vesselness : skip ${1=1},${2=1},${3=1},${4=1}
+e[^-1] "Tubeness with scale $1."
+repeat $! l[$>]
+b $1
+s c repeat $! l[$>]
+hessian a c eigen k[0] +sign abs.. sort.. +,c * +norm a c
+if d>1
+f 'if(i(x,y,z,1)<0&&i(x,y,z,2)<0,exp(-0.5/$2^2*(i(x,y,z,1)/i(x,y,z,2))^2)*exp(-0.5/$3^2*(i(x,y,z,0)^2/abs(i(x,y,z,1)*i(x,y,z,2))))*(1-exp(-0.5/$4^2*i(x,y,z,3)^2)),0)'
+else
+f 'if(i(x,y,z,1)<0,exp(-0.5/($2)^2*(i(x,y,z,0)/i(x,y,z,1))^2)*(1-exp(-0.5/($3)^2*i(x,y,z,2)^2)),0)'
+fi
+done done a c
+done done
+#@cli _hessian_eigen_min : scale
+#@cli : Compute the min eigen value of the Hessian matrix
+_hessian_eigen_min : skip ${1==1}
+e[^-1] "Compute Hessian min eigen value."
+repeat $! l[$>] b $1 s c repeat $! l[$>]
+hessian a c eigen k[0] channels {s-1}
+done done a c done done
+#@cli hessian_sharpen : nscales,strength
+#@cli : Sharpen the image
+hessian_sharpen :
+e[^-1] "Sharpen the image using its Hessian with $1 scales and strength $2."
+repeat $! l[$>]
+repeat $1 +_hessian_eigen_min[0] {2^$>} * {2^$>/($1-1)} done +[1--1] *. {-$2} +
+done done
+#@cli smurf : zoom,iter,scale,strength
+#@cli : enhance linear structures
+#@cli : $ 1024,1024 fibers 20,2000,50 gt 0 dilate_circ 3 +dilate_circ 3 - n 0,255 negate +b 3 r. 50%,50% +smurf. 2,8,0.25,5 r[0,1] [2]
+#@cli : sp duck +smurf. 1,1,1,10 c 0,255
+smurf :
+e[^-1] "Smurf."
+repeat $! l[$>] factor={exp(log($1)/($2*$3))} sigma=$3 avg={ia}
+repeat $2*$3
++l _hessian_eigen_min $sigma +_hessian_eigen_min {3*$sigma} -
+threshold {0.1*sqrt(iv)},1 * {-$4} done +
+r. {round(w*$factor)},{round(h*$factor)},100%,100%,6 max 0 * {$avg/ia}
+sigma={$sigma*$factor}
+done
+done done
+#@cli bgsubstract : _length>0
+#@cli : Substract the background using a temporal top-hat filter
+#@cli : $ 100,100,100 noise 1 b 1 +bgsubstract 10
+bgsubstract : check "${1=5}>0"
+e[^-1] "Temporal background substraction with length $1."
+repeat $! l[$>]
+1,1,$1 f. 1 +erode[0] [1] -[0] . rm[1,-1]
+done done
+#@cli schizo : _amplitude,_amplitude_normal,_nb_iterations,_strength
+#@cli : Schizo filter gives either a furry image or a smoothed image
+#@cli : Default values '_amplitude=100,amplitude_normal=-50 _nb_iter=5,_strength=.75'
+#@cli : $ image.jpg +schizo 100,-50 +schizo[0] -50,100 max 0
+schizo : skip ${1=100},${2=-50},${3=5},${4=.75}
+e[^-1] "Schizo filter smoothing with // $1 and T $2 and $3 iterations."
+repeat $! l[$>]
+[0]
+repeat $3
+l.
++iee *. {$1/(0.0001+max(abs(im),abs(iM)))}
++inn[0] *. {$2/(0.0001+max(abs(im),abs(iM)))}
++
+done
+*. $4 +*[0] {1-$4} +[-1,-2]
+done rm[0]
+done done
+#@cli scandoc : _smooth,_background,_black,_white
+#@cli : improve scanned document
+#@cli : $ image.jpg scandoc
+scandoc : skip ${1=3},${2=100},${3=10%},${4=90%}
+repeat $! l[$>] split_opacity l[0]
+median $1 +b $2 - min 0
+s c n 0,1 a c c $3,$4 n 0,255
+done a c done done
+#@cli warp_affine [3x3 affine matrix]
+#@cli : Warp the image [0] using an 2D affine field defined by a 3x3 matrix
+#@cli : $ image.jpg 3,1,1,1,1 diagonal. noise. .1 +warp_affine[0] [1]
+warp_affine :
+e[^-1] "Warp image using affine transform defined by 3x3 image [$1]."
+pass$1 0 repeat $!-1 l[$>,-1]
+params=({1,i(0,0)},{1,i(1,0)},{1,i(2,0)};{1,i(0,1)},{1,i(1,1)},{1,i(2,1)};{1,i(0,2)},{1,i(1,2)},{1,i(2,2)})
+{0,w},{0,h},1,1,1 +f. x +f. y a[-3--1] c
+mix_channels. $params
+channels. 1,2
+warp[0] .,0,2,0 rm.
+done done rm.
+#@cli solve_least_square: X
+#@cli : Solves $|Ax-b|^2$
+#@cli : $ (1,1,1,1;1,2,1,2;1,1,2,2) (-1,1,0;-2,0,1) m*[1] [0] solve_least_square[0] [1]
+solve_least_square :
+e[^-1] "Solves least square."
+pass$1 0 repeat $!-1 l[$>,-1]
++transpose +m*[0,2] +m*[0,3]
+k[-1,-2] invert[0] m* transpose
+done done
+#@cli calibrate_affine_transform : image
+calibrate_affine_transform :
+e[] "Interactive affine transformation calibration between image and image $1"
+e[] "- Use mouse button 1 to select matching points on the two images."
+e[] "- Use mouse button 2 to remove points in the list"
+e[] "- Press Space to re-init the list of points"
+e[] "- Close the window to finish\n"
+pass$1 0 repeat $!-1 l[$>,-1] rv
+0 0 (1,0,0;0,1,0;0,0,1) Z=0
+do
+x1={*1,x} y1={*1,y}
+x2={*2,x} y2={*2,y}
+if $x1>=0
+if {*1,b}&1
+(1;{$x1/{*1,w}*{0,w}};{$y1/{*1,h}*{0,h}})
+if {2,h>1} a[2,-1] x else rm[2] mv. 2 fi
+else
+if {*1,b}&2
+if {2,w>1} columns[2] 0,{2,w-2} else rm[2] 0 mv. 2 fi
+fi
+fi
+fi
+if $x2>=0
+if {*2,b}&1
+(1;{$x2/{*2,w}*{1,w}};{$y2/{*2,h}*{1,h}})
+if {3,h>1} a[3,-1] x else rm[3] mv. 3 fi
+else
+if {*2,b}&2
+if {3,w>1} columns[3] 0,{3,w-2} else rm[3] 0 mv. 3 fi
+fi
+fi
+fi
+if {*0,SPACE}" || "{*1,SPACE}" || "{*2,SPACE} rm[2,3,4] 0 0 (1,0,0;0,1,0;0,0,1) fi
+if {*1,o} Z={max(0,min({0,d}-1,$Z+{*1,o}))} wait -1 fi
+if {*2,o} Z={max(0,min({0,d}-1,$Z+{*2,o}))} wait -1 fi
+if {*3,o} Z={max(0,min({0,d}-1,$Z+{*3,o}))} wait -1 fi
+N={min({2,w},{3,w})}
+if {2,h}>1" && "{3,h}>1
+if $N<=3
+rm[4] +l[2,3]
+rows 1,2 columns 0,{$N-1} - s x + / $N
+(1,0,0;{-i(0,0)},1,0;{-i(0,1)},0,1) rm..
+done
+else
+rm[4] +l[2,3] columns 0,{$N-1} solve_least_square[0] [1] rm[1] done
+fi
+fi
++l[0,2]
+if {0,d>1} slices[0] $Z fi
+r[0] 200%,200%,1,1,5
+r[0] 100%,100%,1,3,0 grid[0] 10%,10%,0,0,.3,0xCCCCCCCC,255,128,32
+if {1,h>1} rows[1] 1,2 *[1] 2
+1,5,1,1,2,1,255,0,0 r. {0,w},100%,1,1,1 circles[0] [1]
+labels[0] [1]
+fi
+w1[0] -1,-1,-1,-1,"First image (n="{1,w}")" rm
+done
++l[1,3]
+if {0,d>1} slices[0] $Z fi
+r[0] 200%,200%,1,1,5
+r[0] 100%,100%,1,3,0 shift[0] 0,0,0,1 grid[0] 10%,10%,0,0,.3,0xCCCCCCCC,255,128,32
+if {1,h>1} rows[1] 1,2 *[1] 2
+1,5,1,1,2,1,255,0,0 r. {0,w},100%,1,1,1 circles[0] [1]
+labels[0] [1]
+fi
+w2[0] -1,-1,-1,-1,"Second image (n="{1,w}")" rm
+done
++l[0,1,4]
+if {0,d>1} slices[0,1] $Z fi
+warp_affine[1] [2] rm[2] a c
+r[0] 200%,200%,1,100%,5
+grid[0] 10%,10%,0,0,.3,0xCCCCCCCC,255,128,32
+w3 -1,-1,-1,-1,"merge "$N" Z="$Z rm
+done
+wait
+while {*1}" && "!{*1,Q}" && "!{*1,ESC}" && "{*2}
+w1[] 0 w2[] 0 w3[] 0
+k.
+done done
+#@cli vobs : _scale
+#@cli : Motion quantity (Normal motion) h * (|Ixy|^2 |It|/|Ixy|) / h * Ixy^2
+#@cli : Irani, Michal and Rousso, Benny and Peleg, Shmuel, Detecting and tracking multiple moving objects using temporal integration, ECCV'92.
+#@cli : $ 100,100,10 noise 1 b 1 +vobs
+vobs : check "${1=1}>0 && ${2=3}>0"
+e[^-1] "Motion quantity with scale $1."
+repeat $! l[$>]
+g a[0,1] c norm[0] abs[1] *[1] [0] sqr[0] b $1,1,1 rv max[1] 5% /
+done done
+#@cli display_vobs
+#@cli : Display local diffusion coefficient
+#@cli : $ 200,100 noise .7,2 ==. 1 b 2,1,1 repeat 20 +l. +laplacian *. .05 + done done a z display_vobs
+display_vobs :
++vobs 1 A={round(im,0.001)} B={round(iM,0.001)} *. '{128/max(im,iM)}' +. 128 map. 5
+r[0] 100%,100%,100%,3,1 apply_gamma[0] 1.5 n[0] 0,255
+l[0] s z frame 5,12,64 shift 0,5,0,0,2 t "Original sequence",5,0,13,1,255 a z done
+l[1] s z repeat $! l[$>] 1,100% f. 'h-y' n 0,255 map. 5 r. 5,{0,h},1,3,5 frame. 3,0,64 r. 100%,{0,h},1,3,5 a x
+frame 5,12,64 shift 0,5,0,0,2
+t "Vobs ["$A":"$B"]",5,0,13,1,255 done done a z done
+a x
+#@cli display_pseudocolor : predefined_palette
+#@cli : Display an indexed image in pseudocolors using a palette
+#@cli : $ image.jpg luminance display_pseudocolor
+display_pseudocolor : skip ${1=5}
+e[^-1] "Display an indexed image in pseudocolors using map $1."
+repeat $! l[$>]
+A={round(im,0.0001)} B={round(iM,0.0001)}
+n. 0,255 map. $1
+rectangle {w-50-5},{h/4-5},{w-5},{h-h/4+5},.5,0,0,0
+add_colorbar. {w-50},{h/4},{w-40},{h-h/4},$A,$B,6,255
+done done
+#@cli display_colordepth : _dz
+display_colordepth :
+e[^-1] "Display the 3D image with a depth color coded."
+repeat $! l[$>]
+H={d*$1} colordepth , a z min {ia+10*sqrt(iv)} n 0,255 s z
+rectangle {w-50-5},{h/4-5},{w-5},{h-h/4+5},.5,0,0,0
+add_colorbar. {w-50},{h/4},{w-40},{h-h/4},0,$H,6,255
+done done
+#@cli map_hilo
+#@cli : Map a grascale image to a RGB with maw in red and min in blue
+#@cli : This help to check if images are saturated
+map_hilo :
+repeat $! l[$>]
+round m={0,im} - $m
+1,1,1,3,0,0,{0,iM} {0,iM-1},1,1,3,'x+1' 1,1,1,3,{0,iM},0,0 a[1,2,3] x
+map[0] [1]
++ $m rm[1]
+done done
+#@cli add_colorbar : x0,y0,x1,y1,_min,_max,_ntics,color,colormap
+#@cli : Add a colorbar
+#@cli : $ image.jpg luminance map 5 add_colorbar {w-40},20,{w-30},{h-20},0,255,6,255,5
+add_colorbar : skip ${5=0},${6=255},${7=6},${8=255},${9=""},${10=5}
+e[^-1] "Add a colorbar."
+repeat $! l[$>]
+{$3-$1},{$4-$2} l. f 'h-y' n 0,255 map $10 done
+frame[1] 1,1,$8 j[0] [1],$1,$2,0,0,1 k[0]
+repeat $7
+val={round($5+$>/($7-1)*($6-$5),.001)}
+t "- "$val" "$9,{$3+1},{$4-$>*($4-$2-5)/($7-1)-10},13,1,$8
+done
+done done
+#@cli local_diffusion_coefficient : _scale,_threshold
+#@cli : Estimate local diffusion coefficient It - D (Ixx+Iyy)=0 using D=It/(Ixx+Iyy)
+#@cli : $ 100,100 noise .7,2 ==. 1 b 2,1,1 repeat 20 +l. +laplacian *. .05 + done done a z local_diffusion_coefficient 2,.5
+local_diffusion_coefficient : check "${1=2}>0 && ${2=.5}>=0"
+e[^-1] "Local diffusion coefficient estimation using scale $1 and threshold $2."
+repeat $! l[$>]
++l[0] s z laplacian a z done
++l[0] s z gradient_norm a z sqr done
+g[0] z,1
+l[0,1]
+R={1,ia+$2*sqrt(iv)}
+a c f 'b=i(x,y,z,0);a=i(x,y,z,1);if(abs(a)>abs(b),b/a,if(abs(b)>$R,1/(b/a),0))'
+channels 0
+done
+*[0] [1] b $1,1,1 max[1] {1,ia+$2*sqrt(iv)} /
+channels 0
+done done
+ldc :
+local_diffusion_coefficient $*
+ldc_residuals :
++l[0] s z laplacian a z done
+g[0] z,1
+*[1,2]
+-- abs b 1
+#@cli display_ldc :
+#@cli : Display local diffusion coefficient
+#@cli : $ 200,100 noise .7,2 ==. 1 b 2,1,1 repeat 20 +l. +laplacian *. .05 + done done a z display_ldc
+display_ldc :
++ldc 2,3 A={round(im,0.001)} B={round(iM,0.001)} *. '{128/max(im,iM)}' +. 128 map. 5
+r[0] 100%,100%,100%,3,1 apply_gamma[0] 1.5 n[0] 0,255
+l[0] s z frame 5,12,64 shift 0,5,0,0,2 t "Original sequence",5,0,13,1,255 a z done
+l[1] s z repeat $! l[$>] 1,100% f. 'h-y' n 0,255 map. 5 r. 5,{0,h},1,3,5 frame. 3,0,64
+r. 100%,{0,h},1,3,5 a x
+frame 5,12,64 shift 0,5,0,0,2
+t "Local diffusion coefficient ["$A":"$B"]",5,0,13,1,255 done done a z done
+a x
+#@cli print_psnr : _max_value
+#@cli : Display the psnr on the image list taking the first one as a reference
+#@cli : $ image.jpg +noise 20 +b. 1 print_psnr
+print_psnr : skip ${1=255}
+e[^-1] "Compute PSNR with image 0 and print it on the other images."
++psnr $1
+repeat $!-2 to[{$>+1}] "PSNR:"{round(i(0,$>+1),.01)}"dB",5,5,30,1 done
+rm.
+#@cli noise_std
+#@cli : Estimate the noise variance
+#@cli : $ image.jpg noise 10 sigma={round(${-noise_std},.1)} to "Noise std:"$sigma,5,5,30,1
+noise_std :
+e[^-1] "Compute noise std."
++laplacian if {0,d==1} u {${-mad.}/sqrt(20.0)} else u {${-mad.}/sqrt(42.0)} fi rm.
+#@cli pca
+#@cli : Principal component analysis
+#@cli : $ image.jpg +l split_tiles 64,64 y y a x pca k. s x r 8,8,1,1,-1 n 0,255 frame 1,1,255 append_tiles , r. 400%,400% frame 0,20 title dictionary done
+pca :
+e[^-1] "Principal component analysis."
+repeat $! l[$>]
+n={w} - {ia} +transpose. m*[-2,-1] / $n eigen
+done done
+spca : skip ${2=20}
+repeat $! l[$>]
+repeat $2
+p={sqrt(h)}
++l +pca k[0,-1] rv transpose[0] +m* threshold. $1,1 rm[1] transpose[0] m* done
+*[0] .25 *[1] .75 +
+done
+pca
+done done
+#@cli denoise_karmuen_loeve : _number_of_components
+#@cli : Denoise with a bloc Karumen-Loeve transform
+#@cli : http://en.wikipedia.org/wiki/Karhunen%E2%80%93Lo%C3%A8ve_theorem
+denoise_karmuen_loeve :
+repeat $! l[$>]
+split_tiles 64,64 oW={0,w} oH={0,h} oS={0,s}
+y y a x +pca k[0,-1] rv crop[0] 0,$1
+transpose[0] +m* rm[1] transpose[0] m* s x
+r $oW,$oH,1,$oS,-1 append_tiles ,
+done done
+#@cli denoise_patch_dict : _patch_size,_nb_of_shifts,_thres_comp,_thres_coef
+#@cli : Denoising using a dictionnary of patches learned on the image
+#@cli : $ image.jpg +noise 10 +denoise_patch_dict[1] , print_psnr
+denoise_patch_dict : skip ${1=8},${2=8},${3=1.1},${4=1.1}
+e[^-1] "Denoising using a dictionnary of "$1"x"$1" patches with "$2" shifts, threshold $3x(noise std) for components and $4x(std) for coefficients."
+repeat $! l[$>]
+Sigma=${-noise_std[0]}
++crop 0,0,$1,100% mirror. x rv +crop. {w-$1-1},0,100%,100% mirror. x a x
++crop 0,0,100%,$1 mirror. y rv +crop. 0,{h-$1-1},100%,100% mirror. y a y
+oW={0,w} oH={0,h} oS={0,s} nW={$1*round($oW/$1,1,1)} nH={$1*round($oH/$1,1,1)}
++crop {2*$oW-$nW},0,100%,100% mirror. x a x
++crop 0,{2*$oH-$nH},100%,100% mirror. y a y
+NtileX={round($nW/$1)} NtileY={round($nH/$1)}
++l.
+repeat $2
+if $2>1 dx={round(u(0,$1))} dy={round(u(0,$1))} else dx=0 dy=0 fi
++shift[0] $dx,$dy,0,0,2
+split_tiles. $NtileX,$NtileY pW={1,w} pH={1,h}
+done rm[0]
+y y a x n={w} - 'ia' +transpose. m*[-2,-1] / $n eigen
+l.. unroll x sqrt gt {$3*$Sigma} f 'abs(i(x+1)-i(x))' T={[xM,yM,zM,cM]} 4 f. $T T={i(0)} done
+if $T==0 T=100% fi k. columns 0,$T
+done
+repeat $2
+if $2>1 dx={round(u(0,$1))} dy={round(u(0,$1))} else dx=0 dy=0 fi
++shift[0] $dx,$dy,0,0,2
+l[1,-1]
+l[1] split_tiles $NtileX,$NtileY unroll y a x done
+transpose[0] +m*
+t=${-mad.}
+f. 'if(abs(i)<$4*$t,0,i)'
+rm[1] transpose[0] +m* rm..
+done
+l.
+s x r $pW,$pH,1,$oS,-1
+append_tiles $NtileX,$NtileY
+shift {-$dx},{-$dy},0,0,2
+done
+done
+rm[0,1]
++ / $2
+crop {$1+1},{$1+1},{$oW-$1-2},{$oH-$1-2}
+done done
+std_noise :
++laplacian. u {${-mad.}/sqrt(if(d==1,20,42))} rm.
+#@cli iuwt : _nlevels>2,_spline>1
+#@cli : Compute the "isotropic undecimated wavelet transform" using
+#@cli : a trou algorithm for the B3-Spline wavelet.
+#@cli : The inverse is obtained as the sum of all coefficients
+#@cli : $ image.jpg iuwt 4,1 n 0,255 append_tiles
+#@cli : $ image.jpg iuwt 3,1 +
+iuwt : skip ${1=3},${2=3}
+e[^-1] "Compute isotropic undecimated wavelet transform."
+repeat $! l[$<]
+50
+l.
+f 'if(x==w/2|x==w/2-1,1,0)' i [0]
+repeat $2 convolve. [0] done
+k. autocrop 0 / {ia*w}
+done
+repeat $1-1
+l[-1,-2]
++convolve[0] [1]
+y[1] y convolve. [1]
++-[0] . rm[0] rv
+done
+l. y y 100% a x s y s x rm. a x done
+done
+rm. rv
+done done
+#@cli iuwt_std : _nlevels>2,_spline>1
+#@cli : Compute noise at each level of the iuwt
+#@cli : $ image.jpg iuwt_std 10,10
+iuwt_std :
+repeat $! l[$>]
+sigma=${-noise_std}
+if 1
+f 1 noise $sigma iuwt $1,$2
+repeat $! l[$>]
+x={sqrt(iv)} rm 1 f $x
+done done a x
+else rm
+50
+l.
+f 'if(x==w/2|x==w/2-1,1,0)' i [0]
+repeat $2 convolve. [0] done
+k. autocrop 0 / {ia*w}
+done
+sqr
+alpha={is} rm
+$1,1,1,1,'$sigma*sqrt((1+$alpha)*$alpha^(w-x-1))'
+fi
+done done
+#@cli denoise_iuwt :_threshold>0,_nlevels>2,_spline>1
+#@cli : Denoising by thresholding the coefficients of the
+#@cli : "isotropic undecimated wavelet transform"
+#@cli : $ image.jpg +noise 10 +denoise_iuwt. , print_psnr
+denoise_iuwt : check "${1=1.4}>0&&${2=4}>1&&${3=1}>0"
+e[^-1] "Denoise using the isotropic undecimated B$3 spline wavelet transform."
+repeat $! l[$>]
++iuwt_std[0] $2,$3 rv
+iuwt. $2,$3
+repeat $!-2 threshold[{$>+2}] {0,$1*i($>+1)},1 done
++[1--1]
+rm[0]
+done done
+#@cli noise_poisson_gaussian : gain,offset,noise_std
+camera_noise :
+repeat $! l[$>]
+noise 0,3 * $1 + $2 noise $3
+done done
+#@cli analyze_camera_noise :
+analyze_camera_noise :
+repeat $! l[$>]
++local_noise_variance $1 b[0] $1 y a c
+display_parametric 800,600,.0,1,1,0,signal,noise
+done done
+#@cli dehaze : scale,gamma1,min_va,max_val,gamma2
+#@cli : Dehaze an image using Dark Channel Prior appraoch
+#@cli : return the dehazed image and a transmittance image
+dehaze : skip ${1=5},${2=1},${3=.2},${4=1},${5=0},${6=0},${7=0}
+repeat $! l[$>]
++l
++l s c min b 10 erode_circ $1 dilate_circ $1 done
+gt. 80% *
+s c aR={0,iM} aG={1,iM} aB={2,iM} rm
+done
++l
+s c /[0] $aR /[1] $aG /[2] $aB
+repeat 10 median 3 erode_circ $1 dilate_circ $1 done
+min f 'max($3,min($4,1-0.95*i))'
+done
+pow[1] $2
+s[0] c -[0] $aR -[1] $aG -[2] $aB
+/[0-2] [3]
++[0] $aR +[1] $aG +[2] $aB a[0-2] c
+c[0] 0,255
+adjust_colors[0] $5,$6,$7
+done done
+#@cli :: Segmentation
+#@cli contour2d : _tolerance
+#@cli : Draw a 2D contour of regions with tolerance _tolerance
+#@cli : Default value _tolerance=.1
+#@cli : $ image.jpg norm b 1 gt 50% +contour2d
+contour2d : skip ${1=.1}
+f 'if(abs(i-j(1,1))>$1||abs(i-j(1,0))>$1,1,0)'
+#@cli segment_snake : _nb_iter,_time_step,_lambda,_threshold,_smoothness
+#@cli : Segment an image using an adaptation of Chan and Vese's method.
+#@cli : Default values _nb_iter=10,_time_step=1,_smoothness=100,_threshold=50%
+#@cli : Reference Chan and L. Vese,Active contours without edges, IEEE transactions on image processing 10(2) (2001), pp. 266-277
+#@cli : $ 256,128 t "GMIC",40,10,100,1,255 b 1 noise 20 +segment_snake , contour2d. , r. 100%,100%,1,3,0 n 0,255 +
+segment_snake : skip ${1=100},${2=1},${3=.1},${4=.1},${5=10},${6=0}
+e[^-1] "Segment the image using active contours without edges using $1 iterations and time step $2, smoothness $3 and initialize with threshold of $4."
+repeat $! l[$>]
+if s>1 luminance fi
++b $5 gt. {ia+$4*sqrt(iv)}
+l. +distance 0 negate[0] distance[0] 0 *[0] -1 + done
+repeat $1
++lt. 0 b. 1 +*[0,-1] swx={ia} sw={-2,ia} M1={$swx/$sw}
+sqr. swx2={ia} S1={max(1e-3,$swx2/$sw^2-$M1^2)} rm[-1,-2]
++gt. 0 b. 1 +*[0,-1] swx={ia} sw={-2,ia} M2={$swx/$sw}
+sqr. swx2={ia} S2={max(1e-3,$swx2/$sw^2-$M2^2)} rm[-1,-2]
++iee.
++f[0] '(1.0/$3)*(((i(x,y)-$M1)^2)/$S1-((i(x,y)-$M2)^2)/$S2)'
++[-2,-1]
+*. {$2/(0.0001+max(abs(im),abs(iM)))}
++[-2,-1]
+if $6==1
++l gt[1] 0 contour2d[1] , n 0,1 -a c t $>,0,0,13,1,{iM} w wait 10 rm done
+fi
+done
+b. 1 gt. 0 rm[0]
+done done
+#@cli segment_cells : scale1,scale2,threshold,size_threshold
+#@cli : Cell segmentation using watershed
+#@cli : $ 256,256 noise .05,2 ==. 1 b 10,1,1 min 80% noise 5% +segment_cells 2,10% contour2d. , r. 100%,100%,1,3,0 n 0,255 +
+segment_cells : skip ${1=3},${2=10},${3=1},${4=3}
+e[^-1] "Cell segmentation using difference of Gaussians and watershed."
+repeat $! l[$>]
+jeje_dog $1,$2 +gt {ia+$3*${-mad}} area_fg 0 gt $4 +distance[1] 0
+max_patch[0] {round($4,1,1)} *[0] [1] label[0] 0 watershed[0] [2] rm. *
+done done
+#@cli zernike :
+zernike :
+skip ${4=0},${5=0},${6=0},${7=0},${8=0},${9=0},${10=0},${11=0},${12=0},${13=0},${14=0},${15=0},${16=0},${17=0},${18=0}
+f 'r=sqrt((x-$1)^2+(y-$2)^2);if(r<$3,a=atan2(y-$2,x-$1);$4+$5*2*r*sin(a)+$6*r*cos(a)+$7*sqrt(6)*r^2*sin(2*a)+$8*sqrt(3)*(2*r^2-1)+$9*sqrt(6)*r^2*cos(2*a)+$10*sqrt(8)*r^3*sin(3*a)+$11*sqrt(8)*(3*r^3-2*r)*sin(a)+$12*sqrt(8)*(3*r^3-2*r)*cos(a)+$13*sqrt(8)*r^3*cos(3*a)+$14*sqrt(10)*r^4*sin(4*a)+$15*sqrt(10)*(4*r^4-3*r^2)*sin(2*a)+$16*sqrt(5)*(6*r^4-3*r^2)*cos(2*a)+$17*sqrt(10)*(4*r^4-3*r^2)*cos(2*a)+$18*sqrt(10)*r^4*cos(4*a),0)'
+#@cli :: Patterns
+_challenge :
+108,86,1,3 l. fractional_brownian_motion .25 n 0,128 +norm gt. 60% * r 1080,860,1,3,1 +l. b 10 shift. 10,10 done max crop 10,10,100%,100% negate done n 0,255
+#@cli periodic_dots : _nb_angles,_scale,_start_angle
+#@cli : Generate a peridic dot pattern with 'nb angles', 'scale' and 'start angle'.
+#@cli : Default values 'nb angle=6', 'scale=4' and 'start_angle=0'
+periodic_dots : skip ${1=6},${2=4},${3=.5}
+e[^-1] "Generate a periodic dot pattern with $1 angles, scale $2, and orientation $3."
+repeat $! l[$>]
+s c repeat $! l[$>]
++r {max(w,h)},{max(w,h)},100%,100%,0
+l.
+f 0
+repeat $1
+circle {w*(.5+.5/$2*cos(2*pi*($>+$3/180*pi)/$1))},{w*(.5+.5/$2*sin(2*pi*($>+$3/180*pi)/$1))},0,1,255
+done
+fft a c norm fftshift n 0,255
+done
+ri. [0],0
+k.
+done done a c
+done done
+#@cli turing_pattern : iter,dt,a,b,q,r,D
+#@cli : Generate Turing pattern using a rection-diffusion equation
+#@cli : du/dt = au(1-qv²) + v(1-ru)
+#@cli : dv/dt = v(b-aquv) + u(-a+rv)
+#@cli : the two parameters q and r are dictating the pattern final shape
+#@cli : the diffusivity parameter influcences the scale
+#@cli : http://www.dna.caltech.edu/courses/cs191/paperscs191/turing.pdf
+#@cli : http://eprints.maths.ox.ac.uk/430/1/102.pdf
+turing_pattern : skip ${1=2000},${2=.1},${3=0.855},${4=-0.95},${5=2},${6=.1},${7=.5},${8=0}
+repeat $! l[$>]
+r 100%,100%,100%,2 b 1 n 0,1
+repeat $1
+progress {$>/$1*100}
++laplacian[0] mix_channels. ($7,0;0,1)
++f[0] 'u=i(x,y,z,0);v=i(x,y,z,1);a=$3;b=$4;q=$5;r=$6;if(c==0,a*u*(1-q*v*v)+v*(1-r*u),v*(b+a*q*u*v)+u*(-a+r*v))'
++[-1,-2]
+*. {$2/(1+max(abs(im),abs(iM)))}
++
+if $8==1 +l s c n 0,1 a c t $> w rm done fi
+done
+s c n 0,1 a c
+done done
+#@cli rays : _center_x,_center_y,_scale,_phase
+#@cli : Generate rays patterns
+#@cli : $ image.jpg +rays 155,127,10,10 n. 0,1 *
+rays :
+e[^-1] "Generate a ray pattern centered in ($1,$2)."
+f 't=atan2(y-$2,x-$1);sin($3*t+$4)'
+#@cli fractional_brownian_motion : 0<=_hurst_index<=1,_epsilon>0
+#@cli : Generate fractional brownian motion nd signal
+#@cli : Using a power low of the form (eps+|f|)^(-2^H-1)
+#@cli : where f is the module of the frequency, H the husrt index and eps _epsilon.
+#@cli : (see also 'clouds')
+#@cli : $ 400,300 fractional_brownian_motion
+fractional_brownian_motion : skip ${1=.5},${2=1} check "$1>=0&&$1<=1" check "$2>0"
+e[^-1] "Generate pseudo fractional brownian motion."
+repeat $! l[$>]
+f 0 noise 1
+fft fftshift
+if {0,d==1}
+f 'rx=x-w/2;ry=y-h/2;i*($2+sqrt(rx*rx+ry*ry))^(-2*$1-1)'
+else
+f 'rx=x-w/2;ry=y-h/2;rz=z-d/2;i*($2+sqrt(rx*rx+ry*ry+rz*rz))^(-2*$1-1)'
+fi
+fftshift ifft
+k[0]
+done done
+#@cli clouds : _density_of_blue_sky>0,_amplitude,0<=_hurst_index<=1,_epsilon>0
+#@cli : Generate clouds on the image (see also 'fractional_brownian_motion')
+#@cli : $ 64,64 repeat 3 +clouds {10+20*$>}% done rm[0]
+clouds : skip ${1=50%},${2=1},${3=.5},${4=1}
+e[^-1] "Generate a cloud."
+repeat $! l[$>]
+channels 0
+fractional_brownian_motion $3,$4 negate min $1 negate r 100%,100%,1,4
+n 0,255 s c n[0-2] 190,255 n[3] 0,255 a c
+done done
+#@cli clearbluesky :
+#@cli : Generate a Clear Blue Sky
+#@cli : $ 400,300,1,3 clearbluesky +clouds 50% blend alpha
+clearbluesky :
+e[^-1] "Generate a blue sky."
+repeat $! l[$>]
+1,2,1,3 f. '63,70,120,144,190,215' r. [0],5 k.
+done done
+#@cli mm_mozaic : size
+#@cli : Create a mozaic image from the selected image
+#@cli : sp ? mm_mozaic
+mm_mozaic : skip ${1=1}
+repeat $! l[$>]
++gradient_norm negate.
++l. b. .75 +ge $1 max_patch.. 3 d * done to_rgb. *[0,2] d
+watershed.. . rm.
+done done
+segment_watershed2 : check "${1=2}>=0"
+e[^-1] "Apply watershed segmentation on image$?, with edge threshold $1."
+repeat $! l[$>]
+min={im}
++ {1+$min} +gradient_norm
+if d>1 +f. "if(i<$1 && i]
+fftpolar +gaussian $1 *[0] [2] rm. ifftpolar rm. n 0,{$2*pi} sin
+done done
+#@cli :: Colors
+#@cli wavelength_color : _wavelength
+#@cli : Convert a wavelength [380,780] to RGB color
+#@cli : from http://scienceprimer.com
+#@cli : $ 1,1,1,1,1 repeat 100 +wavelength_color[0] {380+3*$>} done rm[0] a x
+wavelength_color :
+if $1>=380&$1<440
+R={-1*($1-440)/(440-380)}
+G=0
+B=1
+elif $1>=440&$1<490
+R=0
+G={($1-440)/(490-440)}
+B=1
+elif $1>=490&$1<510
+R=0
+G=1
+B={-1*($1-510)/(510-490)}
+elif $1>=510&$1<580
+R={($1-510)/(580-510)}
+G=1
+B=0
+elif $1>=580&$1<645
+R=1
+G={-1*($1-645)/(645-580)}
+B=0
+elif $1>=645&$1<780
+R=1
+G=0
+B=0
+else
+R=0
+G=0
+B=0
+fi
+repeat $! l[$>]
+mix_channels ($R;$G;$B)
+done done
+#@cli :: GIMP
+#@cli jpr_gradient_smooth :
+#@cli : image and its gradient in x y are treated as solid angles
+#@cli : and locally smoothed on the surface of a sphere
+#@cli : which can retain bright/dark/bright sequences
+jpr_gradient_smooth:
+repeat $!
+l[$>]
+norm
++g xy,0
+n[0] {$1-1},{$1+1}
+a c
+repeat 25
++norm
+/[0,1]
+b {w*$2/500}
+done
+f atan2(i,abs(i(x,y,0,0)))
+channels 1,2
+done
+r 100%,100%,1,3,0,1
+n 0,255
+done
+#@cli jpr_line_edges : Angles,Blurring,AntiAlias
+#@cli : Similar in concept to a Hough Transform and voting
+#@cli : here multiple orientations are blurred a little
+#@cli : this augments line segments along the blur and suppresses
+#@cli : noise improving edge detection by finding
+#@cli : max gradient orthogonal to each linear blur
+#@cli : $ image.jpg jpr_line_edges 5,5,1
+jpr_line_edges : skip ${1=5},${2=5},${3=1},${4=1}
+e[^-1] "Find edges in image$? using $1 angles per quadrant with $2 blurring and $3 anti-alias"
+repeat $! l[$>]
+norm
+fft
+100%,100%,1,1,x-w/2
+100%,100%,1,1,y-h/2
+shift[2,3] {-round(w/2)},{-round(h/2)},0,0,2
+100%,100%,1,1
+repeat $1
+ac={3*cos(($>+0.5)*pi/$1/2)/sqrt(pi)*$2/w}
+as={3*sin(($>+0.5)*pi/$1/2)/sqrt(pi)*$2/w}
++*[2] $ac
++*[3] $as
++[-2,-1]
++sqr.
+*. -1
+exp.
+*[-2,-1]
++mirror. x
+*. -1
+[1]x1
+*. -1
+[0]x1
+*[-2,-1] [-4]
+rm[-4]
+ifft[-2,-1]
+rm.
+[1]x1
+*. -1
+[0]x1
+*[-2,-1] [-4]
+rm[-4]
+ifft[-2,-1]
+rm.
+abs[-2,-1]
+max[-2,-1] $3
+ac={round(1.45*cos(($>+0.5)*pi/$1/2))}
+as={round(1.45*sin(($>+0.5)*pi/$1/2))}
++shift.. {-$ac},{-$as}
++shift... {$ac},{$as}
++shift... {$ac},{-$as}
++shift[-4] {-$ac},{$as}
+if $4
++max[-6,-4,-3]
++min[-7,-5,-4]
+-[-2,-1]
++[-5,-4]
+*[-4] 0.5
+-[-6,-4]
+/[-5,-1]
+-[-4] 0.1
+max[-4] 0
+*[-4] 2
+-[4,-4]
++max[-3,-2,-1]
++min[-4,-3,-2]
+-[-2,-1]
++[-3,-2]
+*.. 0.5
+-[-3,-2]
+/[-2,-1]
+-. 0.1
+max. 0
+*. 2
+-[4,-1]
+else
+max[-4,-3]
+gt[-5,-3]
+-[4,-4]
+max[-2,-1]
+gt[-2,-1]
+-[4,-1]
+fi
+done
+rm[0,1,2,3]
+n 0,255
+done done
+#@cli jpr_orientedthinning:
+#@cli : Skeleton of a shape against a zero-value (pure-black) background using locally oriented local maxima to find only relevant ridges - not micro ridges from a noisy boundary.
+#@cli : $ sp swan +b 22 < jpr_orientedthinning 0.5,1.5,3.5,0,2
+jpr_orientedthinning :
+e[^-1] "Oriented Thinning image$? with Pre-Smooth $1, Propagate Direction $2, Threshold Width $3"
+repeat $!
+l[$<]
+norm
++b $1
+structuretensors. 0
+mix_channels. (1,0,-1)
+b. $2
+le. 0
+if $4
+rm..
+* 255
+else
+(1.1,0^0,1.1)
+map.. .
+rm.
+distance.. 0,$5
+max.. $3
++warp.. .,1
+*.. -1
++warp... ..,1
+rm...
+max[-2,-1]
+gt[-2,-1]
+* 255
+fi
+done
+done
+#@cli jpr_phasecongruence :
+#@cli : Edge detection via Phase Congruence method relies on low noise source and uses FFT to compute local energy along a vector.
+#@cli : Multipe orientations are applied to a grayscale version of the image and combined.
+#@cli : $ sp swan jpr_phasecongruence 7,17,130,1
+jpr_phasecongruence :
+e[^-1] "Phase Congruence image$? with StartAngle $1, Directions $2, Threshold $3, IsLines $4"
+repeat $!
+l[$<]
+norm
+100%,100%,1,1,0
+repeat $2
+[0]x1
+t={($1/180+$w/2,x-w,x);sy=if(y>h/2,y-h,y);if(abs($a*sx+$b*sy)>0.7,sign($a*sx+$b*sy),0)
+*[3] -1
+*[2,3] [4]
+rm[4]
+ifft[2,3]
+rm[3]
+c={max(abs($a),abs($b))*.8}
+abs[2]
+max[2] $3
+if $4
+a={$a/$c}
+b={$b/$c}
+f[2] i>i(x+$a,y+$b)&i>i(x-$a,y-$b)
+fi
++[1,2]
+done
+rm[0]
+n 0,255
+done
+done
+#@cli jpr_remove_blocks1 : _spatial,_amplitude,_strength
+#@cli : remove block artefacts from smooth areas
+#@cli : spatial drives the size of blocks to try and fit
+#@cli : amplitude set to a minimum to catch only noise blocks
+#@cli : strength expect 70 but fine tune up or down
+jpr_remove_blocks1 :
+repeat $! l[$<]
+k[0]
+spatial=$1
+amplitude=$2
+strength=$3
++b[0] {$spatial*1.2} +b[0] {$spatial*0.8} -[1,2] [0]
+c[1,2] {-$amplitude},{$amplitude}
++==[1,2] {-$amplitude}
++==[1,2] {$amplitude} or[3,4,5,6]
+wh={w},{h}
+shift[1] 2,2
+r[1,2] {w/$spatial},{h/$spatial},1,3,2
+r[1,2] $wh
+shift[1] -2,-2
+c[1,2] {-$amplitude/2},{$amplitude/2}
++==[1,2] {-$amplitude/2}
++==[1,2] {$amplitude/2} or[3,4,5,6,7]
+compose_channels[3] or
+blur[3] {2*$spatial} threshold[3] 0.1
+blur[3] {2*$spatial}
+-[3] 1
++[1] [2] rm[2]
+*[1] [2] rm[2]
+*[1] {0.01*$strength}
+-[0] [1] rm[1]
+done done
+#@cli jpr_shapes_gradient :
+#@cli : convert an image to local patches with some gradient
+#@cli : patch shape is via watershed algorithm
+#@cli : pre-blur,threshold,grad-flatten,grad-cap
+#@cli : e.g. 2,0.5,0.01,100
+jpr_shapes_gradient:
+repeat $! l[$<]
+100%,100%,1,1,0.1*(x-w/2)
++norm[0]
+b. $1
+segment_watershed. $2,0
++blend[1,-1] shapeaverage0
+-[1,-1]
++sqr[1]
+..x1
+blend[-2,-1] shapeaverage0
++. $3
+sqrt.
+/[1,-1]
++blend[0,-1] shapeaverage0
+*[0] ...
+blend[0,-2] shapeaverage0
+c[0] -$4,$4
+*[0,1]
++[0,1]
+c 0,255
+done done
+#@cli jpr_specularbumps :
+#@cli : Specular highlights as if the image has bumps based on luminance. Ignores and deletes alpha channel.
+#@cli : $ sp swan jpr_specularbumps 145,1,25,26,15,0.07,0.17,0
+jpr_specularbumps :
+e[^-1] "Specular highlights image$? with GradientAngle $1, Pre-Smooth $2, GradientRange $3, AdjustAngle $4, IlluminationOffset $5, HighlightSize $6, Roughness $7, OutputType $8"
+t={$1*pi/180}
+a={cos($t)}
+b={sin($t)}
+repeat $!
+l[$<]
+to_rgb
++b $2
+l.
+norm
+gradient xy
+a c
+mix_channels ($a,$b;{-$b},$a)
+div $3
+c 0,1
++norm
+f. "0.1/(0.1+i)"
+a c
++norm
+div[-2,-1]
+b 2
++norm
+div[-2,-1]
+wh={w},{h},1,3
+({cos((45+$4)*pi/180)*sin($5*pi/180)}^{sin((45+$4)*pi/180)*sin($5*pi/180)}^{cos($5*pi/180)})
+r $wh
+-
+norm
+c $6,{$6+$7}
+* -1
+n 0,255
+done
+if $8==0
+rm..
+else
+if $8==1
+rm..
+100%,100%,1,3,255
+mv. -2
+a[-2,-1] c
+else
+blend dodge
+fi
+fi
+done
+done
+#@cli jpr_warpfromthreshold :
+#@cli : test trying to create a patch local warp effect
+jpr_warpfromthreshold:
+repeat $!
+l[$>]
+norm
++g xy
+a[1,2] c
+ge[0] $1
+b[0] $2
+ge[0] 0.5
+f[0] i!=i(x+1,y)|i!=i(x,y+1)
+repeat $3
++norm[1]
+*[2] [0]
+a[1,2] c
+f[1] if(i(x,y,0,2)==0,i,i/i(x,y,0,2))
+channels[1] 0,1
+b[1] $4
+done
+rm[0]
+s c
+n 0,100
+a c
+100,100,1,3,((x/2)%4)==0|(c==2&((y/2)%4)==0)
+warp[1] [0]
+rm[0]
+n 0,255
+done
+done
+fx_charred_plastic:
+if $4
++dog $2%,$3%
+else
++dog $2,$3
+fi
+*. $1
++.. .
+rm.
+ac "_fx_noise $5,$6",$7
+c 0,255
+normalize_local ${8-13}
+fx_charred_plastic_preview:
+fx_charred_plastic $*
+fx_dreamy_abstraction :
+-m "MergeChoice : $""=_mode" -MergeChoice "add","alpha","and","average","blue","burn","darken","difference","divide","dodge","exclusion","freeze","grainextract","grainmerge","green","hardlight","hardmix","hue","interpolation","lighten","lightness","linearburn","linearlight","luminance","multiply","negation","or","overlay","pinlight","red","reflect","saturation","screen","shapeaverage","softburn","softdodge","softlight","stamp","subtract","value","vividlight","xor","edges","error"
+MergingOption1=$3
+Opacity1=$4
+MergingOption2=$8
+Opacity2=$9
+if $4>=0
++fx_segment_watershed $1,$2,1,1 blend ${_mode{$MergingOption1+1}},$Opacity1
+fi
+if $5>=0
++fc 0,0,0 -to_rgb
+if $6==5
+ac. "spread {([$5,$5]/100)*max(w,h)}",$7,1
+else
+ac. "_jr_fx_noise {255*$5/100},$6",$7,1
+fi
+blend ${_mode{$MergingOption2+1}},$Opacity2
+if $10>=0
+_fx_gaussian_blur $10,0,0,1
+fi
+fi
+radius={$10*$11*2}
+amount={$10*$12*2}
+cradius={$10*$14*2}
+overshoot={$10*$15/10}
+iain_constrained_sharpen $radius,$amount,$13,$cradius,$overshoot,$16,$17
+if $18>=0
+fx_smooth_antialias {$18+(5*$10)},0,{($18+(5*$10))/20}
+fi
+fx_dreamy_abstraction_preview:
+gui_split_preview "-fx_dreamy_abstraction $*",${-3--1}
+fx_dreamy_watercolour :
+repeat $! l[$>]
+to_rgb
+if $6
++b $1
+l[1] gradient_norm c 0,255 ^ $2
+c $3%,$4%
+if $5 negate fi
+n 0,255
+if $9!=0||$10!=100
+fx_smooth_antialias ${7-9}
+fi
+done
+fi
+fx_jr_deform[0] 0,${28-34}
+fx_dreamy_abstraction[0] ${10-27}
+if $6 n[1] 0,255 negate[1] blend[0,1] multiply,$6 fi
+-m "MergeChoice : $""=_mode" -MergeChoice "add","alpha","and","average","blue","burn","darken","difference","divide","dodge","exclusion","freeze","grainextract","grainmerge","green","hardlight","hardmix","hue","interpolation","lighten","lightness","linearburn","linearlight","luminance","multiply","negation","or","overlay","pinlight","red","reflect","saturation","screen","shapeaverage","softburn","softdodge","softlight","stamp","subtract","value","vividlight","xor","edges","error"
+100%,100%,1,3
+CF={$37*20*$38}
+l[1] if $43 z {-$CF},{-$CF},{w+$CF},{h+$CF} fi fx_plasma ${35-42} if $43 z {$CF},{$CF},{w-$CF},{h-$CF} fi done
+if $44 fx_transfer_rgb ${45-49} fi
+if $52 rv fi
+blend ${_mode{$50+1}},$51
+fx_normalize_local ${53-58}
+if $59
+100%,100%,1,3 fc[1] 127,127,127 jr_fx_noise[1] {(2^($59*0.2))*($59*20)},${60-62}
+blend ${_mode{$63+1}},$64
+fi
+done done
+fx_dreamy_watercolour_preview :
+fx_dreamy_watercolour $*
+fx_hard_painting : skip ${4=0},${5=0}
+repeat $! l[$>]
+to_colormode {max(3,s)} split_opacity
+l[0]
+repeat $1 fx_normalize_local 10,6,5,20,1,11 done
+fx_smooth_anisotropic {100*$2},0.2,1,$2,{2*$2},0.8,90,2,0,1,1,2,1,16
+fx_mix_lab 1,0,0,$3,0,0.5,$3,0,0.5,0,2,0
+if $5 fx_segment_watershed 10,1,0 fi
+smooth. $4,0,1,1,1
+split_opacity l[0]
+repeat max(0,$6)
+if $7==0 fx_normalize_local $8,$9,$10,$11,1,3,0 fi
+if $12==0 +fx_pencilbw $13,$14,0,0,0 fi
+if $15==1 k[-1] break fi
+if $16==1 fx_smooth_anisotropic[-1] 60,$17,$18,$19,1.1,0.8,30,2,0,1,1,0 fi
+if $20==1 k[-1] break fi
+if $21==1 rv fi
+if $22==0 fx_compose_overlay $23,0
+elif $22==1 fx_compose_multiply $23,0
+elif $22==2 fx_compose_softlight $23,0
+elif $22==3 fx_compose_colorburn $23,0
+elif $22==4 fx_compose_darken $23,0
+elif $22==5 fx_compose_stamp $23,0
+elif $22==6 fx_compose_hardlight $23,0
+elif $22==7 fx_compose_value $23,1
+elif $22==8 fx_compose_grainmerge $23,0
+elif $22==9 fx_compose_freeze $23,0
+elif $22==10 fx_compose_lightness $23,1
+elif $22==11 fx_compose_luminance $23,1
+elif $22==12 fx_compose_colordoping $23,0
+elif $22==13 fx_compose_comix_color $23,0,$24
+elif $22==14 fx_compose_graphicolor $23,0,$24
+elif $22==15 fx_compose_graphixcolor $23,0
+elif $22==16 fx_compose_vividedges $23,0.50,0,$24
+elif $22==17 fx_compose_darkedges $23,0.50,0,$24
+elif $22==18 fx_compose_vividscreen $23,0,$24
+elif $22==19 fx_compose_darkscreen $23,0,$24
+elif $22==20 fx_compose_interpolation $23,0 fi
+if $25==1 fx_smooth_anisotropic 60,$26,$27,$28,1.1,0.8,30,2,0,1,1,0 fi
+done
+done
+done
+a c
+done
+done
+fx_hard_painting_preview :
+gui_split_preview "fx_hard_painting $*",${-3--1}
+fx_neon :
+repeat $! l[$>]
++fc 0,0,0 rv blend alpha
+to_rgb rgb2hsl8 s c
+*.. {$12^2.5} c 0,255
+a[0-2] c hsl82rgb
+if $11
+[0] l[1]
+b $6
+if $1==1
++hessian xx sqr.
++hessian.. yy sqr. +[-2,-1]
+hessian.. zz sqr.. +[-2,-1]
+s={s} s. c +[-$s--1] sqrt.
+elif $1==2
+laplacian abs to_gray to_rgb
+elif $1==3
+gradient xyz abs blend add to_gray to_rgb
+elif $1==4
+afre_edge ${2-5} * 4
+else
+gradient_norm replace_inf 1 replace_nan 0
+fi
+c 0,255
+^ $7
+c $8%,$9%
+if $10 negate fi
+n 0,255
+if $14!=0||$15!=100
+fx_smooth_antialias ${14-16}
+fi
+done
+if $13
+b[0] {$13}%
+fi
+blend multiply,$11
+fi
++b[0] {$17%*100},1 *[1] {$18*sqrt($17%)*10} -[1] {(($18*sqrt($17%)*128)-1)^(sqrt($19))}
++b[0] {$21%*100},1 *[2] {$22*sqrt($21%)*10} -[2] {(($22*sqrt($21%)*128)-1)^(sqrt($19))}
++b[0] $25,1 *[3] {($18+$22)*$25*($26^2.5)}
+rgb2hsl[1-3] s[1-3] c
+*[2] {$20^2.5}
+*[5] {$24^2.5}
+*[8] 0
+a[1-3] c a[2-4] c a[3-5] c hsl2rgb[1-3]
+replace_inf 1 replace_nan 0
+blend add
+if $27
+rgb2ycbcr s c b[1,2] {$27%*100} a c ycbcr2rgb
+fi
+if $28
+rgb2hsv8 100%,100%,1,1 f[1] "((j(#0,0,0,0,2)/255)^(1/$25))*255*$30" f[0] "[i0,i1,255]" hsv82rgb[0] a c
+fi
+done done
+fx_neon_preview :
+gui_split_preview "fx_neon ${1-30}",${-3--1}
+u "{$1}""{$2}"_{$1==4?2:0}"{$3}"_{$1==4?2:0}"{$4}"_{$1==4?2:0}"{$5}"_{$1==4?2:0}"{$6}""{$7}""{$8}""{$9}""{$10}""{$11}""{$12}""{$13}""{$14}""{$15}""{$16}""{$17}""{$18}""{$19}""{$20}""{$21}""{$22}""{$23}""{$24}""{$25}""{$26}""{$27}""{$28}""{$29}""{$30}""{$31,$32}""{$33}"
+fx_neon_alpha :
+repeat $! l[$>]
+to_rgba
++split_opacity
+rm[1]
+fx_solidify_td[0] 100,0,10,2,0 +invert_rgb[0]
+blend[1,2] difference
+fx_gradient_norm[1] ${1-4},0
+if $7!=1
+l[0] to_rgb[0] rgb2hsl[0] s[0] c
+*[1] {$7^2.5}
+a[0-2] c hsl2rgb[0]
+done fi
+if $6
+b[0] $6
+fi
+[0] [1] a[2,3] c b[2] $8,1 *[2] {$9*sqrt($8)} -[2] {(($9*sqrt($8)*128)-1)^(sqrt($10))}
+[0] [1] a[3,4] c b[3] $12,1 *[3] {$13*sqrt($12)} -[3] {(($13*sqrt($12)*128)-1)^(sqrt($14))}
+split_opacity[2,3]
+l[2] to_rgb[0] rgb2hsv[0] s[0] c
+*[1] {$11^2.5}
++[2] 1
+a[0-2] c hsv2rgb[0] done
+l[4] to_rgb[0] rgb2hsv[0] s[0] c
+*[1] {$15^2.5}
++[2] 1
+a[0-2] c hsv2rgb[0] done
+blend[3,5] average
+blend[2,4] add
+b[2] {$9*13}
++blend[0,2] add rm[0] mv[3] 0
+[1]
+a[0,1] c a[1,2] c [1] mv[3] 0
+blend[0,1] alpha blend[0,1] add
+done done
+fx_neon_alpha_preview :
+fx_neon_alpha $*
+fx_otsu_hessian_blend :
+-m "MergeChoice : $""=_mode" -MergeChoice "add","alpha","and","average","blue","burn","darken","difference","divide","dodge","exclusion","freeze","grainextract","grainmerge","green","hardlight","hardmix","hue","interpolation","lighten","lightness","linearburn","linearlight","luminance","multiply","negation","or","overlay","pinlight","red","reflect","saturation","screen","shapeaverage","softburn","softdodge","softlight","stamp","subtract","value","vividlight","xor","edges","error"
+MergingOption=$4
+Opacity=$5
+ReverseOrder={!$6}
++l otsu $1 afre_hnorm n $2,$3 done +* blend ${_mode{$MergingOption+1}},$Opacity,$ReverseOrder
+fx_otsu_hessian_blend_preview :
+repeat max(0,l)
+fx_otsu_hessian_blend[$>] $*
+done
+fx_whirling_lines :
+b $1 f "round(i,$2)"
+if $3==1
+b $4
++hessian xx sqr.
++hessian.. yy sqr. +[-2,-1]
+hessian.. zz sqr.. +[-2,-1] b $4
+s={s} s. c +[-$s--1] sqrt.
+elif $3==2
+b $4 laplacian abs to_gray to_rgb
+elif $3==3
+b $4 gradient xyz abs blend add to_gray to_rgb
+else
+b $4 gradient_norm
+fi
+c 0,255
+^ $5
+c $6%,$7%
+n 0,255
+if $8>=0
+dilate_circ $8
+elif $8<=0
+erode {-$8}
+fi
+if $9 negate fi
+if $10!=0||$11!=100
+fx_smooth_antialias ${10-12}
+fi
+if $13==1 c 0,255 elif $13==2 n 0,255 elif $13==3 c 0,255 n 0,255 fi
+fx_whirling_lines_preview :
+fx_whirling_lines $*
+csswap:
+scfrom=$1
+csto=$2
+if ('$scfrom'!='$csto')
+list=srgb,cmy,ryb,ohta8,ohta,yes8,yes,k18,k1,lab8,lab,oklab,luv,jzazbz,yiq8,yiq,yuv8,yuv,ycbcr,ycbcrglic,ycbcrjpeg,ydbdr,xyz8,xyz,hsv8,hsv,hsl8,hsl,hsi8,hsi,lch8,lch,jzczhz,hcy
+repeat $! l[$>] split_opacity l[0] to_rgb
+if ('$scfrom'!='rgb')&&('$scfrom'!='0')
+if isnum($scfrom)
+scfrom=${arg\ $scfrom,$list}
+else
+strlowercase $scfrom
+scfrom=${}
+fi
+m "sc: comm="$scfrom" u $comm{/2rgb}"
+${"-sc"}
+um sc
+fi
+if ('$csto'!='rgb')&&('$csto'!='0')
+if isnum($csto)
+csto=${arg\ $csto,$list}
+else
+strlowercase $csto
+csto=${}
+fi
+m "cs: comm="$csto" u {/rgb2}$comm"
+${"-cs"}
+um cs
+fi
+to_rgb done a c done done
+fi
+csswap_preview :
+gui_split_preview "csswap $*",${-3--1}
+fx_cubehelix :
+sh=((1-$11)/3)+1
+ramp=$21*-1.7889532707703687
+rang={0.083166763586+($22/180)*pi}
+gamp=$23*-0.952442057555209
+gang={2.8296965485317932+($24/180)*pi}
+bamp=$25*1.97294
+bang={(0.5+$26/180)*pi}
+gs=$18^2
+ge=$19^2
+scv=-$20
+rotb={2^($13^2)}
+satb={2^($14^2)}
+gamb={2^($17^2)}
+repeat $! l[$>]
+to_rgba split_opacity l[0]
+if $1==1 luminance[0] to_rgb elif $1==2 f "(i0+i1+i2)/3" fi
+abs c 0,255 c $2%,$3% if $4 n 0,255 fi *. {1/255}
+f "begin(scale=([${8-10}]-[${5-7}])/255;
+colstart=([${5-7}])/255;
+const sh="$sh";
+const gs="$gs";const ge="$ge"; const scv="$scv";
+rotb="$rotb";satb="$satb";gamb="$gamb";
+const ramp="$ramp";const rang="$rang";
+const gamp="$gamp";const gang="$gang";
+const bamp="$bamp";const bang="$bang");
+angle=(2*pi*(sh+$12*(I^(rotb))));fract=gs+(I^(gamb))*(ge-gs);amp=(($15+($16-$15)*I^(satb))*fract*(1-fract)*0.5);
+helix=(amp*[ramp*sin(rang-angle[0]),gamp*sin(gang-angle[1]),bamp*sin(bang-angle[2])]);
+(colstart)-scv*(fract*scale+helix)+(1+scv)*(fract+(helix*sign(scale)))*scale"
+c 0,1
+*. 255
+done a c
+done done
+fx_cubehelix_preview :
+if $27
+rm 256,256,1,3,"x"
+fx_cubehelix $*
+else
+gui_split_preview "fx_cubehelix $*",${-3--1}
+fi
+fx_frequency_representation:
+repeat $! l[$>]
+to_rgba split_opacity rv
+csswap[^0] 0,$5
+if $3 s. c fi
+repeat $!-1 l[{$>+1}]
+s z
+repeat $! l[$>]
+repeat $1
++histogram $2 b. {($4/100)^2*100}%
+f[^-1] "i(#-1,i,y,z,c,1,2)"
+k[^-1]
+n 0,{$2-1}
+done
+done done
+a z
+done done
+n[^0] 0,255
+a[^0] c csswap[^0] $5,0 rv a c
+done done
+fx_frequency_representation_preview:
+fx_frequency_representation $*
+jr_desaturate :
+repeat $! l[$>] split_opacity l[0] to_rgb if $1 srgb2rgb fi
+f "avg(i0*$2,i1*$3,i2*$4)" if $5 n 0,255 fi c 0,255
+done a c done done
+jr_desaturate_preview :
+gui_split_preview "jr_desaturate $*",${-3--1}
+#@cli rgb2ycbcrglic : convert from rgb to ycbcrglic
+rgb2ycbcrglic :
+split_opacity l[0] to_rgb
+f "R=i0;G=i1;B=i2;
+[0.2988390*R+0.5868110*G+0.1143500*B,-0.168736*R-0.3312640*G+0.5000000*B+127.5,0.5000000*R-0.4186880*G-0.0813120*B+127.5]"
+done a c
+#@cli ycbcrglic2rgb : convert from ycbcrglic to rgb
+ycbcrglic2rgb :
+split_opacity l[0] to_rgb
+f "Y=i0;Cb=i1-127.5;Cr=i2-127.5;
+[Y+1.402*Cr,Y-0.344136*Cb-0.714136*Cr,Y+1.772000*Cb]"
+done a c
+fx_satellite :
+c 0,255
+luminance
+f "255*((i/255)^(2^($2^2)))"
+cut {$3}%,{$4}% if $5 n $6,$7 fi
+to_rgb
+255,1,1,3 f. "x"
+l.
+if $1==0
+f "((i>=0)&&(i<48))?[0,0,0]+(i-0)*[0,0,0]/47:
+((i>=48)&&(i<52))?[8,8,8]+(i-48)*[0,0,0]/3:
+((i>=52)&&(i<56))?[20,20,20]+(i-52)*[0,0,0]/3:
+((i>=56)&&(i<60))?[28,28,28]+(i-56)*[0,0,0]/3:
+((i>=60)&&(i<64))?[40,40,40]+(i-60)*[0,0,0]/3:
+((i>=64)&&(i<68))?[52,52,52]+(i-64)*[0,0,0]/3:
+((i>=68)&&(i<72))?[60,60,60]+(i-68)*[0,0,0]/3:
+((i>=72)&&(i<76))?[72,72,72]+(i-72)*[0,0,0]/3:
+((i>=76)&&(i<80))?[84,84,84]+(i-76)*[0,0,0]/3:
+((i>=80)&&(i<84))?[92,92,92]+(i-80)*[0,0,0]/3:
+((i>=84)&&(i<88))?[104,104,104]+(i-84)*[0,0,0]/3:
+((i>=88)&&(i<92))?[112,112,112]+(i-88)*[0,0,0]/3:
+((i>=92)&&(i<96))?[124,124,124]+(i-92)*[0,0,0]/3:
+((i>=96)&&(i<100))?[136,136,136]+(i-96)*[0,0,0]/3:
+((i>=100)&&(i<104))?[144,144,144]+(i-100)*[0,0,0]/3:
+((i>=104)&&(i<108))?[156,156,156]+(i-104)*[0,0,0]/3:
+((i>=108)&&(i<112))?[168,168,168]+(i-108)*[0,0,0]/3:
+((i>=112)&&(i<116))?[176,176,176]+(i-112)*[0,0,0]/3:
+((i>=116)&&(i<120))?[188,188,188]+(i-116)*[0,0,0]/3:
+((i>=120)&&(i<124))?[196,196,196]+(i-120)*[0,0,0]/3:
+((i>=124)&&(i<128))?[208,208,208]+(i-124)*[0,0,0]/3:
+((i>=128)&&(i<132))?[220,220,220]+(i-128)*[0,0,0]/3:
+((i>=132)&&(i<136))?[228,228,228]+(i-132)*[0,0,0]/3:
+((i>=136)&&(i<140))?[240,240,240]+(i-136)*[0,0,0]/3:
+((i>=140)&&(i<144))?[252,252,252]+(i-140)*[0,0,0]/3:
+((i>=144)&&(i<148))?[0,156,244]+(i-144)*[0,0,0]/3:
+((i>=148)&&(i<152))?[0,152,236]+(i-148)*[0,0,0]/3:
+((i>=152)&&(i<156))?[0,148,228]+(i-152)*[0,0,0]/3:
+((i>=156)&&(i<160))?[0,144,220]+(i-156)*[0,0,0]/3:
+((i>=160)&&(i<164))?[0,140,212]+(i-160)*[0,0,0]/3:
+((i>=164)&&(i<168))?[0,136,208]+(i-164)*[0,0,0]/3:
+((i>=168)&&(i<172))?[0,132,200]+(i-168)*[0,0,0]/3:
+((i>=172)&&(i<176))?[0,128,192]+(i-172)*[0,0,0]/3:
+((i>=176)&&(i<180))?[0,124,184]+(i-176)*[0,0,0]/3:
+((i>=180)&&(i<184))?[0,120,176]+(i-180)*[0,0,0]/3:
+((i>=184)&&(i<188))?[160,160,0]+(i-184)*[0,0,0]/3:
+((i>=188)&&(i<192))?[188,188,0]+(i-188)*[0,0,0]/3:
+((i>=192)&&(i<196))?[220,220,0]+(i-192)*[0,0,0]/3:
+((i>=196)&&(i<200))?[248,248,0]+(i-196)*[0,0,0]/3:
+((i>=200)&&(i<204))?[252,180,0]+(i-200)*[0,0,0]/3:
+((i>=204)&&(i<208))?[232,160,0]+(i-204)*[0,0,0]/3:
+((i>=208)&&(i<212))?[216,140,0]+(i-208)*[0,0,0]/3:
+((i>=212)&&(i<216))?[196,120,0]+(i-212)*[0,0,0]/3:
+((i>=216)&&(i<220))?[232,0,0]+(i-216)*[0,0,0]/3:
+((i>=220)&&(i<224))?[248,0,0]+(i-220)*[0,0,0]/3:
+((i>=224)&&(i<250))?[88,88,88]+(i-224)*[0,0,0]/25:
+((i>=250)&&(i<256))?[255,255,255]+(i-250)*[0,0,0]/5"
+elif $1==1
+f "((i>=0)&&(i<59))?[0,0,0]+(i-0)*[0,0,0]/58:
+((i>=59)&&(i<68))?[6,6,6]+(i-59)*[56,56,56]/8:
+((i>=68)&&(i<97))?[75,75,75]+(i-68)*[180,180,180]/28:
+((i>=97)&&(i<175))?[112,112,112]+(i-97)*[92,92,92]/77:
+((i>=175)&&(i<188))?[64,64,64]+(i-175)*[0,0,0]/12:
+((i>=188)&&(i<199))?[112,112,112]+(i-188)*[0,0,0]/10:
+((i>=199)&&(i<209))?[160,160,160]+(i-199)*[0,0,0]/9:
+((i>=209)&&(i<215))?[0,0,0]+(i-209)*[0,0,0]/5:
+((i>=215)&&(i<221))?[255,255,255]+(i-215)*[0,0,0]/5:
+((i>=221)&&(i<226))?[136,136,136]+(i-221)*[0,0,0]/4:
+((i>=226)&&(i<256))?[88,88,88]+(i-226)*[0,0,0]/29"
+elif $1==2
+f "((i>=0)&&(i<44))?[0,0,0]+(i-0)*[0,0,0]/43:
+((i>=44)&&(i<152))?[20,20,20]+(i-44)*[196,196,196]/107:
+((i>=152)&&(i<184))?[100,100,0]+(i-152)*[148,148,0]/31:
+((i>=184)&&(i<204))?[0,0,120]+(i-184)*[0,252,132]/19:
+((i>=204)&&(i<216))?[84,0,0]+(i-204)*[168,0,0]/11:
+((i>=216)&&(i<224))?[252,80,80]+(i-216)*[0,60,60]/7:
+((i>=224)&&(i<237))?[0,252,0]+(i-224)*[252,0,252]/12:
+((i>=237)&&(i<253))?[252,252,252]+(i-237)*[0,0,0]/15:
+((i>=253)&&(i<256))?[255,255,255]+(i-253)*[0,0,0]/2"
+elif $1==3
+f "((i>=0)&&(i<4))?[0,0,0]+(i-0)*[0,0,0]/3:
+((i>=4)&&(i<8))?[28,0,28]+(i-4)*[0,0,0]/3:
+((i>=8)&&(i<12))?[60,0,60]+(i-8)*[0,0,0]/3:
+((i>=12)&&(i<16))?[92,0,92]+(i-12)*[0,0,0]/3:
+((i>=16)&&(i<20))?[124,0,124]+(i-16)*[0,0,0]/3:
+((i>=20)&&(i<24))?[156,0,156]+(i-20)*[0,0,0]/3:
+((i>=24)&&(i<28))?[188,0,188]+(i-24)*[0,0,0]/3:
+((i>=28)&&(i<32))?[220,0,220]+(i-28)*[0,0,0]/3:
+((i>=32)&&(i<36))?[252,0,252]+(i-32)*[0,0,0]/3:
+((i>=36)&&(i<40))?[224,0,236]+(i-36)*[0,0,0]/3:
+((i>=40)&&(i<44))?[196,0,220]+(i-40)*[0,0,0]/3:
+((i>=44)&&(i<48))?[168,0,208]+(i-44)*[0,0,0]/3:
+((i>=48)&&(i<52))?[140,0,192]+(i-48)*[0,0,0]/3:
+((i>=52)&&(i<56))?[112,0,180]+(i-52)*[0,0,0]/3:
+((i>=56)&&(i<60))?[84,0,164]+(i-56)*[0,0,0]/3:
+((i>=60)&&(i<64))?[56,0,152]+(i-60)*[0,0,0]/3:
+((i>=64)&&(i<68))?[28,0,136]+(i-64)*[0,0,0]/3:
+((i>=68)&&(i<72))?[0,0,124]+(i-68)*[0,0,0]/3:
+((i>=72)&&(i<76))?[0,28,136]+(i-72)*[0,0,0]/3:
+((i>=76)&&(i<80))?[0,56,152]+(i-76)*[0,0,0]/3:
+((i>=80)&&(i<84))?[0,84,164]+(i-80)*[0,0,0]/3:
+((i>=84)&&(i<88))?[0,112,180]+(i-84)*[0,0,0]/3:
+((i>=88)&&(i<92))?[0,140,192]+(i-88)*[0,0,0]/3:
+((i>=92)&&(i<96))?[0,168,208]+(i-92)*[0,0,0]/3:
+((i>=96)&&(i<100))?[0,196,220]+(i-96)*[0,0,0]/3:
+((i>=100)&&(i<104))?[0,224,236]+(i-100)*[0,0,0]/3:
+((i>=104)&&(i<108))?[0,252,252]+(i-104)*[0,0,0]/3:
+((i>=108)&&(i<112))?[0,236,224]+(i-108)*[0,0,0]/3:
+((i>=112)&&(i<116))?[0,220,196]+(i-112)*[0,0,0]/3:
+((i>=116)&&(i<132))?[92,92,92]+(i-116)*[12,12,12]/15:
+((i>=132)&&(i<144))?[112,112,112]+(i-132)*[8,8,8]/11:
+((i>=144)&&(i<156))?[128,128,128]+(i-144)*[8,8,8]/11:
+((i>=156)&&(i<168))?[144,144,144]+(i-156)*[8,8,8]/11:
+((i>=168)&&(i<180))?[160,160,160]+(i-168)*[8,8,8]/11:
+((i>=180)&&(i<184))?[176,176,176]+(i-180)*[0,0,0]/3:
+((i>=184)&&(i<188))?[184,184,184]+(i-184)*[0,0,0]/3:
+((i>=188)&&(i<192))?[192,192,192]+(i-188)*[0,0,0]/3:
+((i>=192)&&(i<196))?[200,200,200]+(i-192)*[0,0,0]/3:
+((i>=196)&&(i<200))?[208,208,208]+(i-196)*[0,0,0]/3:
+((i>=200)&&(i<202))?[216,216,216]+(i-200)*[0,0,0]/1:
+((i>=202)&&(i<215))?[60,0,0]+(i-202)*[195,60,60]/12:
+((i>=215)&&(i<226))?[255,71,71]+(i-215)*[0,119,119]/10:
+((i>=226)&&(i<246))?[101,0,101]+(i-226)*[121,201,121]/19:
+((i>=246)&&(i<256))?[0,0,0]+(i-246)*[0,0,0]/9"
+elif $1==4
+f "((i>=0)&&(i<2))?[0,0,0]+(i-0)*[0,0,0]/1:
+((i>=2)&&(i<26))?[235,0,0]+(i-2)*[-235,0,0]/23:
+((i>=26)&&(i<51))?[0,0,0]+(i-26)*[0,0,0]/24:
+((i>=51)&&(i<62))?[12,12,12]+(i-51)*[3,3,3]/10:
+((i>=62)&&(i<68))?[23,23,23]+(i-62)*[38,38,38]/5:
+((i>=68)&&(i<69))?[75,75,75]+(i-68)*[0,0,0]/0:
+((i>=69)&&(i<81))?[76,76,76]+(i-69)*[84,84,84]/11:
+((i>=81)&&(i<111))?[161,161,161]+(i-81)*[79,79,79]/29:
+((i>=111)&&(i<131))?[226,226,226]+(i-111)*[14,14,14]/19:
+((i>=131)&&(i<171))?[160,255,255]+(i-131)*[-40,-135,-135]/39:
+((i>=171)&&(i<256))?[50,50,150]+(i-171)*[50,50,70]/84"
+elif $1==5
+f "((i>=0)&&(i<151))?[255,255,255]+(i-0)*[-255,-255,-255]/150:
+((i>=151)&&(i<256))?[0,0,0]+(i-151)*[0,0,0]/104"
+elif $1==6
+f "((i>=0)&&(i<13))?[255,255,255]+(i-0)*[-24,-24,-24]/12:
+((i>=13)&&(i<126))?[228,228,228]+(i-13)*[-228,-228,-228]/112:
+((i>=126)&&(i<256))?[0,0,0]+(i-126)*[0,0,0]/129"
+elif $1==7
+f "((i>=0)&&(i<42))?[255,255,255]+(i-0)*[0,0,0]/41:
+((i>=42)&&(i<191))?[253,253,253]+(i-42)*[-253,-253,-253]/148:
+((i>=191)&&(i<256))?[0,0,0]+(i-191)*[0,0,0]/64"
+elif $1==8
+f "((i>=0)&&(i<4))?[0,0,0]+(i-0)*[0,0,0]/3:
+((i>=4)&&(i<8))?[28,0,28]+(i-4)*[0,0,0]/3:
+((i>=8)&&(i<12))?[60,0,60]+(i-8)*[0,0,0]/3:
+((i>=12)&&(i<16))?[92,0,92]+(i-12)*[0,0,0]/3:
+((i>=16)&&(i<20))?[124,0,124]+(i-16)*[0,0,0]/3:
+((i>=20)&&(i<24))?[156,0,156]+(i-20)*[0,0,0]/3:
+((i>=24)&&(i<28))?[188,0,188]+(i-24)*[0,0,0]/3:
+((i>=28)&&(i<32))?[220,0,220]+(i-28)*[0,0,0]/3:
+((i>=32)&&(i<36))?[252,0,252]+(i-32)*[0,0,0]/3:
+((i>=36)&&(i<40))?[224,0,236]+(i-36)*[0,0,0]/3:
+((i>=40)&&(i<44))?[196,0,220]+(i-40)*[0,0,0]/3:
+((i>=44)&&(i<48))?[168,0,208]+(i-44)*[0,0,0]/3:
+((i>=48)&&(i<52))?[140,0,192]+(i-48)*[0,0,0]/3:
+((i>=52)&&(i<56))?[112,0,180]+(i-52)*[0,0,0]/3:
+((i>=56)&&(i<60))?[84,0,164]+(i-56)*[0,0,0]/3:
+((i>=60)&&(i<64))?[56,0,152]+(i-60)*[0,0,0]/3:
+((i>=64)&&(i<68))?[28,0,136]+(i-64)*[0,0,0]/3:
+((i>=68)&&(i<72))?[0,0,124]+(i-68)*[0,0,0]/3:
+((i>=72)&&(i<76))?[0,28,136]+(i-72)*[0,0,0]/3:
+((i>=76)&&(i<80))?[0,56,152]+(i-76)*[0,0,0]/3:
+((i>=80)&&(i<84))?[0,84,164]+(i-80)*[0,0,0]/3:
+((i>=84)&&(i<88))?[0,112,180]+(i-84)*[0,0,0]/3:
+((i>=88)&&(i<92))?[0,140,192]+(i-88)*[0,0,0]/3:
+((i>=92)&&(i<96))?[0,168,208]+(i-92)*[0,0,0]/3:
+((i>=96)&&(i<100))?[0,196,220]+(i-96)*[0,0,0]/3:
+((i>=100)&&(i<104))?[0,224,236]+(i-100)*[0,0,0]/3:
+((i>=104)&&(i<108))?[0,252,252]+(i-104)*[0,0,0]/3:
+((i>=108)&&(i<112))?[0,236,224]+(i-108)*[0,0,0]/3:
+((i>=112)&&(i<116))?[0,220,196]+(i-112)*[0,0,0]/3:
+((i>=116)&&(i<120))?[0,208,168]+(i-116)*[0,0,0]/3:
+((i>=120)&&(i<124))?[0,192,140]+(i-120)*[0,0,0]/3:
+((i>=124)&&(i<128))?[0,180,112]+(i-124)*[0,0,0]/3:
+((i>=128)&&(i<132))?[0,164,84]+(i-128)*[0,0,0]/3:
+((i>=132)&&(i<136))?[0,152,56]+(i-132)*[0,0,0]/3:
+((i>=136)&&(i<140))?[0,136,28]+(i-136)*[0,0,0]/3:
+((i>=140)&&(i<144))?[0,124,0]+(i-140)*[0,0,0]/3:
+((i>=144)&&(i<148))?[28,136,0]+(i-144)*[0,0,0]/3:
+((i>=148)&&(i<152))?[56,152,0]+(i-148)*[0,0,0]/3:
+((i>=152)&&(i<156))?[84,164,0]+(i-152)*[0,0,0]/3:
+((i>=156)&&(i<160))?[112,180,0]+(i-156)*[0,0,0]/3:
+((i>=160)&&(i<164))?[140,192,0]+(i-160)*[0,0,0]/3:
+((i>=164)&&(i<168))?[168,208,0]+(i-164)*[0,0,0]/3:
+((i>=168)&&(i<172))?[196,220,0]+(i-168)*[0,0,0]/3:
+((i>=172)&&(i<176))?[224,236,0]+(i-172)*[0,0,0]/3:
+((i>=176)&&(i<180))?[252,252,0]+(i-176)*[0,0,0]/3:
+((i>=180)&&(i<184))?[236,224,0]+(i-180)*[0,0,0]/3:
+((i>=184)&&(i<188))?[220,196,0]+(i-184)*[0,0,0]/3:
+((i>=188)&&(i<192))?[208,168,0]+(i-188)*[0,0,0]/3:
+((i>=192)&&(i<196))?[192,140,0]+(i-192)*[0,0,0]/3:
+((i>=196)&&(i<200))?[180,112,0]+(i-196)*[0,0,0]/3:
+((i>=200)&&(i<204))?[164,84,0]+(i-200)*[0,0,0]/3:
+((i>=204)&&(i<208))?[152,56,0]+(i-204)*[0,0,0]/3:
+((i>=208)&&(i<212))?[136,28,0]+(i-208)*[0,0,0]/3:
+((i>=212)&&(i<216))?[124,0,0]+(i-212)*[0,0,0]/3:
+((i>=216)&&(i<220))?[160,0,0]+(i-216)*[0,0,0]/3:
+((i>=220)&&(i<224))?[192,0,0]+(i-220)*[0,0,0]/3:
+((i>=224)&&(i<228))?[216,0,0]+(i-224)*[0,0,0]/3:
+((i>=228)&&(i<232))?[252,0,0]+(i-228)*[0,0,0]/3:
+((i>=232)&&(i<236))?[252,252,252]+(i-232)*[0,0,0]/3:
+((i>=236)&&(i<256))?[0,0,0]+(i-236)*[255,255,255]/19"
+elif $1==9
+f "((i>=0)&&(i<61))?[0,0,0]+(i-0)*[120,120,120]/60:
+((i>=61)&&(i<91))?[3,3,3]+(i-61)*[87,87,87]/29:
+((i>=91)&&(i<101))?[91,91,91]+(i-91)*[9,9,9]/9:
+((i>=101)&&(i<145))?[103,103,103]+(i-101)*[145,145,145]/43:
+((i>=145)&&(i<155))?[250,250,250]+(i-145)*[-59,-250,5]/9:
+((i>=155)&&(i<171))?[191,0,255]+(i-155)*[-191,0,0]/15:
+((i>=171)&&(i<191))?[0,12,242]+(i-171)*[0,243,-242]/19:
+((i>=191)&&(i<201))?[25,255,0]+(i-191)*[230,0,0]/9:
+((i>=201)&&(i<211))?[255,229,0]+(i-201)*[0,-229,0]/9:
+((i>=211)&&(i<221))?[229,0,0]+(i-211)*[-229,0,0]/9:
+((i>=221)&&(i<246))?[20,20,20]+(i-221)*[235,235,235]/24:
+((i>=246)&&(i<256))?[255,255,255]+(i-246)*[0,0,0]/9"
+elif $1==10
+f "((i>=0)&&(i<130))?[0,0,0]+(i-0)*[0,0,0]/129:
+((i>=130)&&(i<165))?[255,160,90]+(i-130)*[-255,-160,-90]/34:
+((i>=165)&&(i<183))?[0,0,0]+(i-165)*[255,255,255]/17:
+((i>=183)&&(i<198))?[255,255,255]+(i-183)*[-255,-175,-125]/14:
+((i>=198)&&(i<206))?[0,80,130]+(i-198)*[0,70,20]/7:
+((i>=206)&&(i<214))?[160,150,0]+(i-206)*[90,-100,0]/7:
+((i>=214)&&(i<222))?[150,0,220]+(i-214)*[100,0,0]/7:
+((i>=222)&&(i<230))?[0,0,226]+(i-222)*[0,0,-92]/7:
+((i>=230)&&(i<256))?[255,255,255]+(i-230)*[0,0,0]/25"
+elif $1==11
+f "((i>=0)&&(i<110))?[0,0,0]+(i-0)*[0,0,0]/109:
+((i>=110)&&(i<142))?[255,0,0]+(i-110)*[0,251,3]/31:
+((i>=142)&&(i<172))?[247,243,8]+(i-142)*[-244,-243,158]/29:
+((i>=172)&&(i<192))?[15,12,170]+(i-172)*[240,243,85]/19:
+((i>=192)&&(i<219))?[246,250,246]+(i-192)*[-245,-143,-245]/26:
+((i>=219)&&(i<255))?[1,110,7]+(i-219)*[3,137,241]/35:
+((i>=255)&&(i<256))?[255,255,255]"
+elif $1==12
+f "((i>=0)&&(i<154))?[0,0,0]+(i-0)*[255,255,255]/153:
+((i>=154)&&(i<174))?[0,255,255]+(i-154)*[0,-255,-140]/19:
+((i>=174)&&(i<187))?[0,0,115]+(i-174)*[0,255,-115]/12:
+((i>=187)&&(i<197))?[0,255,0]+(i-187)*[255,0,0]/9:
+((i>=197)&&(i<207))?[255,255,0]+(i-197)*[0,-255,0]/9:
+((i>=207)&&(i<216))?[255,0,0]+(i-207)*[-255,0,0]/8:
+((i>=216)&&(i<225))?[0,0,0]+(i-216)*[230,230,230]/8:
+((i>=225)&&(i<237))?[242,114,195]+(i-225)*[-115,-114,-68]/11:
+((i>=237)&&(i<256))?[255,255,0]+(i-237)*[0,0,255]/18"
+elif $1==13
+f "((i>=0)&&(i<154))?[0,0,0]+(i-0)*[255,255,255]/153:
+((i>=154)&&(i<174))?[0,255,255]+(i-154)*[0,-255,-140]/19:
+((i>=174)&&(i<187))?[0,0,115]+(i-174)*[0,255,-115]/12:
+((i>=187)&&(i<197))?[0,255,0]+(i-187)*[255,0,0]/9:
+((i>=197)&&(i<207))?[255,255,0]+(i-197)*[0,-255,0]/9:
+((i>=207)&&(i<216))?[255,0,0]+(i-207)*[-255,0,0]/8:
+((i>=216)&&(i<225))?[0,0,0]+(i-216)*[230,230,230]/8:
+((i>=225)&&(i<237))?[242,114,195]+(i-225)*[-115,-114,-68]/11:
+((i>=237)&&(i<255))?[255,255,0]+(i-237)*[-128,-220,35]/17:
+((i>=255)&&(i<256))?[255,255,255]"
+elif $1==14
+f "((i>=0)&&(i<154))?[0,0,0]+(i-0)*[255,255,255]/153:
+((i>=154)&&(i<174))?[0,255,255]+(i-154)*[0,-255,-140]/19:
+((i>=174)&&(i<187))?[0,0,115]+(i-174)*[0,255,-115]/12:
+((i>=187)&&(i<197))?[0,255,0]+(i-187)*[255,0,0]/9:
+((i>=197)&&(i<207))?[255,255,0]+(i-197)*[0,-255,0]/9:
+((i>=207)&&(i<216))?[255,0,0]+(i-207)*[-255,0,0]/8:
+((i>=216)&&(i<225))?[0,0,0]+(i-216)*[230,230,230]/8:
+((i>=225)&&(i<237))?[242,114,195]+(i-225)*[-115,-114,-68]/11:
+((i>=237)&&(i<255))?[255,255,0]+(i-237)*[-255,-255,0]/17:
+((i>=255)&&(i<256))?[255,255,255]"
+elif $1==15
+f "((i>=0)&&(i<154))?[0,0,0]+(i-0)*[0,255,255]/153:
+((i>=154)&&(i<174))?[0,255,255]+(i-154)*[0,-255,-140]/19:
+((i>=174)&&(i<187))?[0,0,115]+(i-174)*[0,255,-115]/12:
+((i>=187)&&(i<197))?[0,255,0]+(i-187)*[255,0,0]/9:
+((i>=197)&&(i<207))?[255,255,0]+(i-197)*[0,-255,0]/9:
+((i>=207)&&(i<216))?[255,0,0]+(i-207)*[-255,0,0]/8:
+((i>=216)&&(i<225))?[0,0,0]+(i-216)*[230,230,230]/8:
+((i>=225)&&(i<237))?[242,114,195]+(i-225)*[-115,-114,-68]/11:
+((i>=237)&&(i<256))?[255,255,0]+(i-237)*[0,0,255]/18"
+elif $1==16
+f "((i>=0)&&(i<154))?[0,0,0]+(i-0)*[0,255,255]/153:
+((i>=154)&&(i<174))?[0,255,255]+(i-154)*[0,-255,-140]/19:
+((i>=174)&&(i<187))?[0,0,115]+(i-174)*[0,255,-115]/12:
+((i>=187)&&(i<197))?[0,255,0]+(i-187)*[255,0,0]/9:
+((i>=197)&&(i<207))?[255,255,0]+(i-197)*[0,-255,0]/9:
+((i>=207)&&(i<216))?[255,0,0]+(i-207)*[-255,0,0]/8:
+((i>=216)&&(i<225))?[0,0,0]+(i-216)*[230,230,230]/8:
+((i>=225)&&(i<237))?[242,114,195]+(i-225)*[-115,-114,-68]/11:
+((i>=237)&&(i<255))?[255,255,0]+(i-237)*[-128,-220,35]/17:
+((i>=255)&&(i<256))?[255,255,255]"
+elif $1==17
+f "((i>=0)&&(i<154))?[0,0,0]+(i-0)*[0,255,255]/153:
+((i>=154)&&(i<174))?[0,255,255]+(i-154)*[0,-255,-140]/19:
+((i>=174)&&(i<187))?[0,0,115]+(i-174)*[0,255,-115]/12:
+((i>=187)&&(i<197))?[0,255,0]+(i-187)*[255,0,0]/9:
+((i>=197)&&(i<207))?[255,255,0]+(i-197)*[0,-255,0]/9:
+((i>=207)&&(i<216))?[255,0,0]+(i-207)*[-255,0,0]/8:
+((i>=216)&&(i<225))?[0,0,0]+(i-216)*[230,230,230]/8:
+((i>=225)&&(i<237))?[242,114,195]+(i-225)*[-115,-114,-68]/11:
+((i>=237)&&(i<255))?[255,255,0]+(i-237)*[-255,-255,0]/17:
+((i>=255)&&(i<256))?[255,255,255]"
+fi
+if $8 rgb2srgb fi
+done
+f[^-1] "I[#-1,i]"
+rm.
+fx_satellite_preview :
+if $9
+rm 256,256,1,1,"x" fx_satellite $*
+else
+gui_split_preview "fx_satellite $*",${-3--1}
+fi
+jr_dir2rgb :
+v - channels 0,1 repeat $! l[$>] nm={0,n}
+s c complex2polar round.. 0.001
+*. {180/pi} %. 360 100%,100%,1,1,1 mv... $!
+c 0,360 if im!=iM n. 0,1 else f. 1 fi
+a c hsv2rgb
+nm $nm done done v +
+jr_gradient_norm :
+b $1 gradient_norm replace_inf 1 replace_nan 0 ^ $2
+c $3%,$4%
+if $5 negate fi
+n 0,255
+fx_jr_gradient_norm :
+repeat $! l[$>]
+if $9==3
+inter=5
+else
+inter={1+$9}
+fi
+if $7!=1||$8!=1
+ww={w}
+hh={h}
+shift -0.5,-0.5,0,0,1
+r {max(1,$7*w)},{max(1,$8*h)},100%,100%,$inter
+fi
+if $6
++l luminance gradient append c
+blur $1 orientation +jr_dir2rgb
+done rm[1]
+if $5
+l[1]
+rgb2hsv8 100%,100%,1,1 f[1] "j(#0,0,0,0,2)" f[0] "[i0,i1,255]" hsv82rgb[0] a c
+if $6==2
+fx_solidify_td 100,0,10,2,0
+fi
+rgb2hsv8 f "[i0,i1,255]" hsv82rgb
+done
+fi
+fi
+jr_gradient_norm[0] ${1-5}
+if $7!=1||$8!=1
+r $ww,$hh,100%,100%,$inter
+fi
+if $6 blend multiply fi
+if $6==1 c 0,255 f "I==[255,255,255]?[0,0,0]:I" fi
+if $10 rgb2hsv8 100%,100%,1,1 if $6 [1] f[2] "j(#0,0,0,0,1)" f[0] "[i0,255,i2]" fi f[1] "j(#0,0,0,0,2)" f[0] "[i0,i1,255]" hsv82rgb[0] if $6 blend[1,2] multiply fi a c fi
+done done
+fx_jr_gradient_norm_preview :
+gui_split_preview "fx_jr_gradient_norm $*",${-3--1}
+fx_auto_gnarl:
+repeat $! l[$>]
++fx_jr_gradient_norm ${1-5},0,${6-8},0
+100%,100%,1,2 f. "u(-1,1)"
+b. $14
+normalize_local. ${9-13},-1,1
+n. -1,1
+*. .. rm.. *. {1/255} round. {$15^4}
+*. {$16^3}
+warp.. .,1,$17,$18
+rm.
+done done
+fx_auto_gnarl_preview:
+fx_auto_gnarl $*
+#@cli symmetrize_jr : _x[%],_y[%],_angle,_boundary_conditions={ 0=dirichlet | 1=neumann | 2=periodic | 3=mirror },_is_antisymmetry={ 0 | 1 },_swap_sides={ 0 | 1 },_interpolation={ 0=none | 1=linear | 2=bicubic }
+#@cli : Symmetrize selected images regarding specified axis.
+#@cli : Default values: 'x=y=50%', 'angle=90', 'boundary_conditions=3', 'is_antisymmetry=0', 'swap_sides=0' and 'interpolation=1'.
+#@cli : $ image.jpg +symmetrize 50%,50%,45 +symmetrize[-1] 50%,50%,-45
+symmetrize_jr : skip ${1=50%},${2=50%},${3=90},${4=3},${5=0},${6=0},${7=1}
+e[^-1] "Symmetrize image$?, regarding axis ($1,$2,$3 deg.)."
+v -
+theta={$3*pi/180} u={cos($theta)} v={sin($theta)}
+if $6 symmetry_cond=A<0 else symmetry_cond=A>0 fi
+repeat $! l[$>]
+x0={if(${is_percent\ $1},w*$1,$1)}
+y0={if(${is_percent\ $2},h*$2,$2)}
+if $5 f 'A=($y0-y)*$u-($x0-x)*$v;X=x+2*($x0-x);Y=y+2*($y0-y);if($symmetry_cond,i(X,Y,z,c,$7,$4),i)'
+else f 'A=($y0-y)*$u-($x0-x)*$v;X=x-2*$v*A;Y=y+2*$u*A;if($symmetry_cond,i(X,Y,z,c,$7,$4),i)'
+fi
+done done
+#@cli jr_deform : _amplitude>=0,_interpolation,_matrix_density[%]>=0,_matrix_interpolation,_mode,-100<=_character<=100,_boundary
+#@cli : Apply random smooth deformation on selected images. An upgrade to the existing deform command.
+#@cli : 'interpolation' can be { 0=none | 1=linear | 2=bicubic }.
+#@cli : 'matrix_interpolation' can be { 0=linear | 1=bicubic }.
+#@cli : 'mode' can be { 0=noise | 1=spread_noise }.
+#@cli : 'boundary' can be { 0=dirichlet | 1=neumann | 2=periodic | 3=mirror }.
+#@cli : Default value: 'amplitude=10'.
+#@cli : $ image.jpg +deform[0] 10 +deform[0] 20
+jr_deform : skip ${1=10},${2=1},${3=2%},${4=1},${5=0},${6=0},${7=1}
+e[^-1] "Apply random smooth deformation on image$?, with amplitude $1."
+v - repeat $! l[$>]
+R={max(1,${"is_percent $3"}?$3*max(w,h):$3)}
+P={$4==0?3:5}
+if $5==1 +r. {$R},{$R},1,4 spread. {max(w,h)*($6+100)/200},{max(w,h)*($6+100)/200}
+else {$R},{$R},1,4 noise. $1
+fi
+ac. "adjust_colors 0,$6,0,0,0",rgba r. ..,..,1,4,$P warp.. .,1,$2,$7 rm.
+done done v +
+_fx_buffer_destroyer :
+repeat $! l[$>]
+to_rgba split_opacity
+if $1 a c fi
+l[0]
+ow={w}
+oh={h}
+dimx1={int($2/100*w)}
+dimy1={int($3/100*h)}
+cs1={$4/100*wh}
+cl1={$5/100*wh}
+shift1={$6/100*$cl1}
+bound1=$7
+crit={1+$16}
+_fx_virtual_buffer_resize {$dimx1*$dimy1},1,$cs1,$cl1,$shift1,$bound1
+_fx_shredder $8,$9,$1,${10-12},0,0,0,0,0
+$dimx1,$dimy1,100%,100%
+f. ">begin(index=-1);index+=1;I[#0,index]"
+k.
+_fx_pixelsort ${13-15},{$crit},${17-21}
+_fx_shifter $22,$1,{(($23/10)^3)*10},$24,{(($25/10)^3)*10},${26-29}
+if $30
+_fx_virtual_buffer_resize $ow,$oh,0,{wh},{-$shift1},$bound1
+else
+dimx2={int($31/100*w)}
+dimy2={int($32/100*h)}
+cs2={$33/100*wh}
+cl2={$34/100*wh}
+shift2={$35/100*$cl2}
+bound2=$36
+_fx_virtual_buffer_resize $dimx2,$dimy2,$cs2,$cl2,$shift2,$bound2
+fi
+done a c
+done done
+fx_buffer_destroyer:
+_fx_buffer_destroyer ${2-37}
+fx_buffer_destroyer_preview :
+gui_split_preview "fx_buffer_destroyer $*",${-3--1}
+_fx_virtual_buffer :
+r {wh},1,100%,100%,-1,0
+_fx_virtual_buffer_resize :
+owh={int(wh)}
+dimx={max(1,int($1))}
+dimy={max(1,int($2))}
+cs={int($3)}
+cl={int($4)}
+shift={int($5)}
+bound=$6
+_fx_virtual_buffer shift {-$cs},0,0,0,2 crop 0,$cl,2 shift {$shift},0,0,0,2 if $bound resize {$dimx*$dimy},1,100%,100%,0,2 fi
+$dimx,$dimy,100%,100%
+f. ">begin(index=-1);index+=1;I[#0,index]"
+k.
+fx_buffer_error :
+repeat $! l[$>]
+dimx={int($1/100*w)}
+dimy={int($2/100*h)}
+cs={$3/100*wh}
+cl={$4/100*wh}
+shift={$5/100*$cl}
+bound=$6
+_fx_virtual_buffer_resize $dimx,$dimy,$cs,$cl,$shift,$bound
+done done
+fx_buffer_error_preview :
+gui_split_preview "fx_buffer_error $*",${-3--1}
+fx_jr_klc:
+num=$1
+mrot={$2/180*pi}
+rrot={$4/180*pi}
+if $5 rrot/={max($num,1)} fi
+if !$3 rrot-=$mrot fi
+symm=$10
+lcd=$11
+lcmode=$13
+if $lcmode==1
+lcang={$12/(180*$lcd)*pi}
+elif $lcmode==2
+lcang={$12/(180*(max($num,1)))*pi}
+elif $lcmode==3
+lcang={$12/(180*$lcd*(max($num,1)))*pi}
+else
+lcang={$12/180*pi}
+fi
+scale=$14*0.01
+aa=$15*0.25
+inter=$16
+bound=$17
+repeat $! l[$>]
+ox=$6*w*0.01
+oy=$7*h*0.01
+cx=$8*w*0.01
+cy=$9*h*0.01
+f "begin(const num="$num";const cx="$cx";const cy="$cy";const ox="$ox";const oy="$oy";const aa="$aa";const rrot="$rrot";
+num==0?(const awidth=8*pi;const mrot=0;const symm=1):(const awidth=pi/num;const mrot="$mrot";const symm="$symm");const interpolation="$inter";const boundary="$bound";const scale="$scale";const lcd="$lcd";
+lcd==0?(const ilcang="$lcang"):(const ilcang="$lcang");const diag=sqrt(w^2+h^2));
+vx=x-cx;vy=y-cy;
+iang=atan2(vy,vx)-rrot-mrot;
+irad=norm(vx,vy);
+lnum=max((irad/diag*2-(4*aa/diag))*lcd*scale,0);
+lnumint=floor(lnum);
+ang=iang-(((lcd==0?(irad/diag*2-(4*aa/diag))*scale:(lnumint))+[0,1])*ilcang);
+mult=ang/awidth - 1;
+multint=floor(mult);
+multintaa = floor(mult+min((aa*0.5*num)/(irad),irad*0.5/(pi*num)));
+kfunc=[min(((mult[0]-multintaa[0])*irad/(aa*num)+0.5),1),min(((mult[1]-multintaa[1])*irad/(aa*num)+0.5),1)];
+lcfunc=min((lnumint+1-lnum)/(aa*(lcd==0?(abs(ilcang)):(lcd))*scale)*diag*0.125,1);
+angle0=ang-multintaa*awidth;
+angle1=ang-(multintaa+1)*awidth;
+for(i=0,i<2,i++,
+symm==1?(angle1[i]=angle1[i]):symm==2?(angle0[i]=awidth-angle0[i];angle1[i]=awidth-angle1[i]):
+((multint[i]%2==1)?(multintaa[i]>multint[i]?(angle1[i]=awidth-angle1[i]):(angle0[i]=awidth-angle0[i])):(multintaa[i]>multint[i]?(angle0[i]=awidth-angle0[i]):(angle1[i]=awidth-angle1[i])));
+isnan(kfunc[i])?kfunc[i]=1);
+angle0+=mrot;
+angle1+=mrot;
+frad=irad*scale;
+xwarp00=frad*cos(angle0[0])+ox;
+ywarp00=frad*sin(angle0[0])+oy;
+xwarp01=frad*cos(angle1[0])+ox;
+ywarp01=frad*sin(angle1[0])+oy;
+xwarp10=frad*cos(angle0[1])+ox;
+ywarp10=frad*sin(angle0[1])+oy;
+xwarp11=frad*cos(angle1[1])+ox;
+ywarp11=frad*sin(angle1[1])+oy;
+(I(xwarp00,ywarp00)*(1-kfunc[0])+I(xwarp01,ywarp01)*(kfunc[0]))*(lcfunc)+(I(xwarp10,ywarp10)*(1-kfunc[1])+I(xwarp11,ywarp11)*(kfunc[1]))*(1-lcfunc)"
+done done
+fx_jr_klc_preview:
+fx_jr_klc $*
+c 0,255
+fx_layer_cake :
+repeat $! l[$>]
+iter=$1
+angle=$2
+if $3 angle*=$iter fi
+size=$4/2
+to_rgba split_opacity to_rgb
+repeat 2
+part={1-$>}
+l[$part]
+repeat $iter
+[0] rotate[-1] {$angle/$iter*($>+1)},$8,$7,$5%,$6%
+100%,100%,1,1 ellipse. $5%,$6%,{$size/$iter*($iter-$>)}%,{$size/$iter*($iter-$>)}%,0,1,255
+if $13!=2 ellipse. $5%,$6%,{$size/$iter*($iter-1-$>)}%,{$size/$iter*($iter-1-$>)}%,0,1,1 fi
+blur. {$9/$iter}
+fx_smooth_antialias. ${10-12}
+blend[-1,-2] multiply
+done
+if !$13 blend[^0] add fi
+if $13!=2 100%,100%,1,1 fc. 255,255,255 ellipse. $5%,$6%,{$size}%,{$size}%,0,1,0
+blur. {$9/$iter}
+fx_smooth_antialias. ${9-11}
+blend[-1,0] multiply fi
+if !$13 blend add fi
+if $part to_gray fi
+done
+done
+list={int($!/2)}
+repeat $list a[$>,$list] c done
+skip {$13==0}
+if $13 rv fi
+done
+done
+fx_layer_cake_preview:
+if !$13 gui_split_preview "fx_layer_cake $*",${-3--1} else fx_layer_cake ${1-12},0 fi
+fx_layer_cake_2 :
+num=$1
+inter=$6
+bound=$7
+if $3
+ang={$2*2*pi/360}
+else
+ang={$2*2*pi/(($num)*360)}
+fi
+repeat $! l[$>]
+xc=$4%
+yc=$5%
+if $9
+aa={$8*norm(w,h)/100}
+else
+aa={$8/25*$num}
+fi
+if $10
+to_rgba
+100%,100%,100%,100%,(0)
+repeat ceil($num*(1+max(norm(w/2-$xc,h/2-$yc)/norm(w,h)*2,1)))
+[1]
+done
+inuma=0
+inumb=0
+eval[0] "begin(ang=("$ang");xoff=w*"$xc";yoff=h*"$yc";num="$num";aa="$aa";inter="$inter";bound="$bound");
+vx=x-xoff+0.5;vy=y-yoff+0.5;
+lnum=max((norm(vx,vy))/norm(w,h)*2*num-(0.5*aa/norm(w,h)),0);
+lnumint=floor(lnum);
+run("inuma=lnumint+1
+inumb=lnumint+2");
+angle=((ang*lnumint)%(2*pi));
+pa=I(#0,vx*cos(angle)+vy*sin(angle)+xoff-0.5,vy*cos(angle)-vx*sin(angle)+yoff-0.5,z,inter,bound);
+pb=I(#0,vx*cos(angle+ang)+vy*sin(angle+ang)+xoff-0.5,vy*cos(angle+ang)-vx*sin(angle+ang)+yoff-0.5,z,inter,bound);
+func=min((lnumint+1-lnum)*norm(w,h)/aa,1);
+I(#"$3")=(pb*(1-func));
+I(#"{$3+2}")=(pa*(func))
+"
+else
+f "begin(ang=("$ang");xoff=w*"$xc";yoff=h*"$yc";num="$num";aa="$aa";inter="$inter";bound="$bound");
+vx=x-xoff+0.5;vy=y-yoff+0.5;
+lnum=max((norm(vx,vy))/norm(w,h)*2*num-(0.5*aa/norm(w,h)),0);
+lnumint=floor(lnum);
+angle=((ang*lnumint)%(2*pi));
+pa=I(vx*cos(angle)+vy*sin(angle)+xoff-0.5,vy*cos(angle)-vx*sin(angle)+yoff-0.5,z,inter,bound);
+angle+=ang;
+pb=I(vx*cos(angle)+vy*sin(angle)+xoff-0.5,vy*cos(angle)-vx*sin(angle)+yoff-0.5,z,inter,bound);
+func=min((lnumint+1-lnum)*norm(w,h)/aa,1);
+I=(pa*(func)+pb*(1-func))"
+fi
+done done
+fx_layer_cake_2_preview :
+fx_layer_cake_2 $*
+fx_powertwirl:
+if $8
+f "begin(amp=$1;offset=$2;xoff=$3*w/100;yoff=$4*h/100;power=$5;interpolation=$6;boundary=$7);
+vx=x-xoff+0.5;vy=y-yoff+0.5;
+ang=(2*pi*((offset/360)+(amp*((norm(vx,vy)/(norm(w,h)/2))^power))))%(2*pi);
+I=I(vx*cos(ang)+vy*sin(ang)+xoff-0.5,vy*cos(ang)-vx*sin(ang)+yoff-0.5,z,interpolation,boundary)"
+else
+euclidean2polar $3%,$4%,$6,$7 repeat $!
+[$>],[$>],1,1,$1*0.75*(((x/w)^$5))*w channels. -1,0 warp[$>] .,1,1,2 rm.
+done polar2euclidean $3%,$4%,$6,$7
+fi
+fx_powertwirl_preview:
+fx_powertwirl $*
+fx_jr_deform :
+repeat $! l[$>]
+jr_deform ${2-8}
+done done
+fx_jr_deform_preview :
+gui_split_preview "fx_jr_deform $*",${-3--1}
+rays_from_image:
+fx_transform_polar 0,$2,$3,"(R-a)*(4^(($1)-5))*$1/5","a",3
+fx_rays_from_image:
+repeat max(0,l)
+ac[$>] "rays_from_image $*",$-2,$-1
+done
+_fx_shifter:
+repeat $! l[$>]
+to_rgba split_opacity
+if $2 a c fi
+l[0]
+if $1
+csswap 0,{$1-1} s c
+fi
+repeat $! l[$>]
+100%,100%,1,3 [1] fc[1,2] 0
+rectexture[1] $4,0,$7,$8,2,0
+rectexture[2] $6,0,$7,$8,2,0
+to_gray[^0]
+f[1] "$3*510*(0.25-abs(0.5-i/255))"
+f[2] "$5*510*(0.25-abs(0.5-i/255))"
+a[^0] c
+if $9==0
+f={u(0,3)}
+elif $9==1
+f={u(0,2)+1}
+else
+f={($9)-2}
+fi
+warp.. .,1,0,{int($f)}
+rm.
+done done
+done
+a c
+if $1
+csswap {$1-1},0
+fi
+done done
+fx_shifter:
+_fx_shifter ${2-10}
+fx_shifter_preview:
+gui_split_preview "fx_shifter $*",${-3--1}
+fx_jr_spiral_transform:
+repeat $! l[$>]
+if $4 permute yxzc fi
+spiralbw {[w,h]},0
+if $2 mirror[1] x fi
+if $3 mirror[1] y fi
+if $5 f[1] "iM-i" fi
+[0]
+if $1
+f[2] "I(#0,i0#1%w,floor(i0#1/w),0)=I"
+else
+f[0] "I(i#1%w,floor(i#1/w))"
+fi
+k[0]
+if $4 permute yxzc fi
+done done
+fx_jr_spiral_transform_preview:
+fx_jr_spiral_transform $*
+ultrawarptwo :
+repeat $! l[$>] to_rgba split_opacity
+iter=$1
+sc=$2
+xfc=$3
+xfr=$4
+yfc=$5
+yfr=$6
+xoffc=$7
+xoffr=$8
+yoffc=$9
+yoffr=$10
+corr=$11
+inter=$12
+bound=$13
+chann=$14
+alpha=$15
+cs=$16
+rn=$17
+rpo=$18
+vil=$19
+hfc=$20
+hfr=$21
+sfc=$22
+sfr=$23
+vilfc=$24
+vilfr=$25
+afc=$26
+afr=$27
+hoffc=$28
+hoffr=$29
+soffc=$30
+soffr=$31
+viloffc=$32
+viloffr=$33
+aoffc=$34
+aoffr=$35
+repeat $iter
+if $alpha
+opacity=2
+else
+opacity=1
+fi
+repeat $opacity
+if $sc==0
+frgbt={floor(u(0,25))}
+else
+frgbt={$sc-1}
+fi
+if $cs==0
+trgbf={floor(u(0,25))}
+else
+trgbf={$cs-1}
+fi
+if $>==0
+csswap[$>] 0,$frgbt
+fi
+if $>==1||$chann!=0
+if $chann==1
+channel={floor(u(2,37))}
+else
+channel=$chann
+fi
+if $channel==0
+channels=0
+elif $channel>=2
+channels={$channel-1}
+elif $channel>=6
+channels=$channel
+else
+channels={$channel-2}
+fi
+if $corr==2
+correl=round(u)
+else
+correl=$corr
+fi
+if $inter==2
+interp=round(u)
+else
+interp=$inter
+fi
+if $bound==4
+bounds={floor(u(4))}
+elif $bound==5
+bounds={floor(u(3))+1}
+else
+bounds=$bound
+fi
+xf={($xfc+u(-$xfr,$xfr))}
+yf={($yfc+u(-$yfr,$yfr))}
+xoff={($xoffc+u(-$xoffr,$xoffr))}
+yoff={($yoffc+u(-$yoffr,$yoffr))}
+xff={sign($xf)*w*0.00002*(abs($xf)^2)}
+yff={sign($yf)*h*0.00002*(abs($yf)^2)}
+xofff={sign($xoff)*w*0.00002*(abs($xoff)^2)}
+yofff={sign($yoff)*w*0.00002*(abs($yoff)^2)}
+fx_warp_by_intensity[$>] $xff,$yff,$xofff,$yofff,$correl,$interp,$bounds,$channels,0
+fi
+if $>==0
+csswap[$>] $trgbf,0
+fi
+if $rn
+if round(u)
+negate[$>]
+fi
+fi
+done
+if $>==($iter-1)||$rpo
+hf={$hfc+u(-$hfr,$hfr)}
+sf={$sfc+u(-$sfr,$sfr)}
+vilf={$vilfc+u(-$vilfr,$vilfr)}
+af={$afc+u(-$afr,$afr)}
+hoff={$hoffc+u(-$hoffr,$hoffr)}
+soff={$soffc+u(-$soffr,$soffr)}
+viloff={$viloffc+u(-$viloffr,$viloffr)}
+aoff={$aoffc+u(-$aoffr,$aoffr)}
+l[0] if $vil==1 rgb2hsi8 elif $vil==2 rgb2hsl8 else rgb2hsv8 fi
+s c
+*[0] $hf +[0] {$hoff*max(1,abs($hf))} %[0] 255
+*[1] $sf +[1] {$soff*max(1,abs($sf))}
+*[2] $vilf +[2] {$viloff*max(1,abs($vilf))}
+a c
+if $vil==1 hsi82rgb elif $vil==2 hsl82rgb else hsv82rgb fi
+done
+*[1] $af +[1] {$aoff*max(1,abs($af))}
+fi
+done
+to_rgb[0]
+to_gray[1]
+a c
+done
+done
+fx_ultrawarptwo :
+ultrawarptwo ${2--1}
+fx_ultrawarptwo_preview:
+fx_ultrawarptwo $*
+ultrawarp4plus:
+hue_min={$30}
+hue_max={$31}
+sat_min={$32}
+sat_max={$33}
+val_min={$34}
+val_max={$35}
+j={min($hue_min,$hue_max)+(u*(max($hue_min,$hue_max)-min($hue_min,$hue_max)))}
+k={min($sat_min,$sat_max)+(u*(max($sat_min,$sat_max)-min($sat_min,$sat_max)))}
+l={min($val_min,$val_max)+(u*(max($val_min,$val_max)-min($val_min,$val_max)))}
+if $1
+if $2 ch=0 else ch=2 fi
+ac "rr={round(u*255)}
+gg={round(u*255)}
+bb={round(u*255)}
+fx_plasma 0.5,0,{$2},1,1,{$rr},{$gg},{$bb}
+if $3 to_rgba else ch=2 to_rgb fi",{$ch} fi
+fx_gaussian_blur {$7},0,0,1,2,0,0
+n_min=$14
+n_max=$15
+if $n_min>$n_max
+n_min=$n_min + $n_max
+n_max=$n_min - $n_max
+n_min=$n_min - $n_max
+fi
+noise_exp={max(0,$n_min+(u*($n_max-$n_min)))}
+n_amt={(2^($noise_exp-3))*$noise_exp}
+if $4 fx_segment_watershed {$5},{$6},0,2,0 fi
+if $8
+p_min={$9}
+p_max={$10}
+h_min={$11}
+h_max={$12}
+if $p_min>$p_max
+p_min=$p_min + $p_max
+p_max=$p_min - $p_max
+p_min=$p_min - $p_max
+fi
+if $h_min>$h_max
+h_min=$h_min + $h_max
+h_max=$h_min - $h_max
+h_min=$h_min - $h_max
+fi
+ac "noise "$n_amt",$13",$16,1
+fx_quadtree 0,{max(2,round($p_min+(u*($p_max-$p_min))))},{max(0,round($h_min+(u*($h_max-$h_min))))},0,3,1.5,1,1,0
+fi
+ac "noise "$n_amt",$13",$16,1
+f={$17}
+i={$18}
+m={$19}
+s={$27}
+v={$28}
+repeat max(0,$f)
+if $20
+scale_x=w/10
+a={((2^($18-5))*$18)*(u-0.5)*$scale_x*0.025}
+else
+scale_x=1
+a={((2^($18-5))*$18)*(u-0.5)}
+fi
+if $22
+scale_y=h/10
+b={((2^($18-5))*$18)*(u-0.5)*$scale_y*0.025}
+else
+scale_y=1
+b={((2^($18-5))*$18)*(u-0.5)}
+fi
+c=(u-0.5)*$m*sign($m)*$scale_x
+d=(u-0.5)*$m*sign($m)*$scale_y
+g={round((u*33.98)-0.49)}
+h={u(-100,100)}
+o={u(-100,100)}
+if $22==1
+e=0
+elif $22==2
+e=1
+else
+e={round(u)}
+fi
+if $23==0
+f={round((u*2.98)-0.49)}
+elif $23==1
+f={round((u*2.98)+0.51)}
+else
+f={($23)-2}
+fi
+ac "_fx_warp_by_intensity "{$a}","{$b}","{$c}","{$d}","{$e}",0,"{$f}"",{$24},0
+if $25
+nn={round(u)}
+if $nn
+if $26==0
+nch={round((u*33.98)-0.49)}
+ac "negate",{$nch}
+else
+ac "negate",{$26}
+fi
+fi
+fi
+fx_adjust_colors 0,0,{$h},{$o},0,0
+if $29
+ac "n 0,255",3
+fi
+done
+if $36==-180
+hh=((u-0.5)*360)
+else
+hh={$36}
+fi
+if $37==-8.01
+ss=((u-0.5)*2)
+else
+ss={$37}
+fi
+if $38==-20.01
+vv=((u-0.5)*2)
+else
+vv={$38}
+fi
+fx_mix_hsv {$j},{$hh},0,{$k},{$ss},0,{$l},{$vv},0,0,2,0
+if $-2
+ac "n 0,255",{$-1}
+fi
+fx_ultrawarp4plus:
+repeat $! l[$>]
+ac "ultrawarp4plus ${2--3}",$-2,$-1
+fx_adjust_colors 0,0,0,{(u-0.5)*200},0,0
+done done
+fx_ultrawarp4plus_preview:
+variablelist=${1--1}
+fx_ultrawarp4plus $variablelist
+fx_blur_bloom_glare :
+op=${"arg 1+$4,+,max,min"}
+if !$7
+ac "blur_bloom ${1-3},"$op",${5-6},xy",$11
+else
+wh={[w,h]}
+repeat $9
+ang={(180/$9)*($>)+$8}
++rotate[0] $ang,2,1
+ac. "blur_bloom ${1-3},"$op",${5-6},x",$11
+rotate. {-$ang},2,1
+r. $wh,1,100%,0,0,0.5,0.5
+c. 0,255
+done
+repeat $9
+blend[0,-1] screen,$10
+done
+fi
+fx_blur_bloom_glare_preview :
+gui_split_preview "fx_blur_bloom_glare $*",$-1
+_blend_bomb :
+to_rgba
+$1,$2,1,4 noise. 255
+if $8 ac. "noise 255",rgba_a fi
+r. 256,256 n. 0,255 blur. {$3^2}%
+l. if $4==0
+f "val = i/255; (val-0.5+(atan((val-0.5)*($5/10)^3)/pi)+0.5)*255" n 0,255
+elif $4==1
+c {($5-1/255)/2}%,{100-($5-1/255)/2}% n 0,255
+elif $4==2
+f "val = (2*i/255)-1; (val*(abs(val)^(0-($5/100)))+1)*255/2"
+fi done
+rv
+fx_mesh_blend 0,1,$6,$7,$8,$10
+if $9 ac "n 0,255",rgba fi
+blend_bomb :
+if $1==0 repeat int($!/2) l[$>,{$>+1}] _blend_bomb ${2--1} done done
+elif $1==1 repeat $! l[$>] [0] _blend_bomb ${2--1} done done fi
+fx_blend_bomb :
+blend_bomb ${2--1}
+fx_blend_bomb_preview :
+fx_blend_bomb $*
+fx_texture_afre_broken:
+repeat $! l[$>]
+n 0,255
+if $3 +l fi
++l
++l
+if $1 gradient_orientation 2 n 0,1 + y50_afre 0 gradient_norm
+else gradient_norm fi
+b 1,1,1
+done
+*. {255*$2/iM} +
+n 0,255
+done
++l.. n 0,1 f gauss(i-.5) n 0,1 done
+blend_fade[0,1] . k[0]
+if $3 blend difference fi
+done done
+fx_texture_afre_broken_preview :
+fx_texture_afre_broken $*
+_bwbp_prepare :
+f. "begin(scale=max(w,h,d);ol=$2^3;oh=$5^3;ql=(2-2/(($3+1)^2));qh=(2-2/(($6+1)^2));rsl=scale*log2(scale)/(2^$1);rsh=scale*log2(scale)/(2^$4));
+vx=(x-w/2)/scale;vy=(y-h/2)/scale;vz=(z-d/2)/scale;rad=(vx^2+vy^2+vz^2)^0.5;
+fl=rad*rsl;
+fh=(rad*rsh)^-1;
+ol=$2^3;
+oh=$5^3;
+func=(1/((1-ql*(fl)^(ol/2)+(fl)^(ol))^0.5));
+func*=(1/((1-qh*(fh)^(oh/2)+(fh)^(oh))^0.5));func"
+_butterworth_bp :
+v -
+100%,100%,100%
+_bwbp_prepare ${1-6}
+shift. {int(w/2)},{int(h/2)},{int(d/2)},0,2
+fft.. *... . *[-2,-1] ifft rm[-1]
+v +
+fx_butterworth_bp:
+repeat $! l[$>]
+if !$8 split_opacity fi
+l[0]
+gain={iM} csswap 0,$7
+_butterworth_bp ${1-6}
+csswap $7,0 if $9 abs fi if $10 * {$gain/iM} fi
+done
+if !$8 a c fi
+done done
+fx_butterworth_bp_preview :
+if $11
+rm
+4000,1,1 _bwbp_prepare ${1-6}
+columns 50%,100%
+1000,500,1,1
+f. "cut((i(#-2,2^(x*log2(w)/w-1),0,0,0,2,1)*(255)-y)*127.5,0,255)"
+mirror y
+r. 50%,100%
+k[-1]
+else
+fx_butterworth_bp ${1-10}
+fi
+fx_self_glitching_cascade :
+skip "${25=skip ,}","${26=skip ,}"
+shift {$4-50}%,{$5-50}%,0,0,$6,0
+repeat $! l[$>] if !$3 split_opacity fi l[0] to_rgb
+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 rgb2ycbcrglic
+elif $1==8 rgb2yiq8
+elif $1==9 rgb2yuv8
+elif $1==10 rgb2hcy
+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 rgb2ycbcr
+elif $1==8 rgb2yiq
+elif $1==9 rgb2yuv
+elif $1==10 rgb2bayer 0
+elif $1==11 rgb2xyz
+fi fi
+if $11 stype=$7 else stype=1 fi
+repeat $7
++shift[0] {((([w,h]-1)*([$12,$13]-[$9,$10]+[u(-1,1),u(-1,1)]*sqrt((($12-$9)^2)+(($13-$10)^2))*($14^3)))/$stype)/100},0,0,$15
+f.. "begin(
+const sign = $18?-1:1;
+);
+operate(mode,s1,s2,mult,power) =
+(mode==0?(s1 + s2):
+mode==1?(s1 * s2):
+mode==2?(s1 & s2):
+mode==3?(s1 | s2):
+mode==4?xor(s1,s2):
+mode==5?(s1^(s2*0.01)):
+mode==6?(s2^(s1*0.01)):
+mode==7?(s1%s2):
+mode==8?(s2%s1):
+mode==9?(s1 / s2):
+mode==10?(s2 / s1):
+mode==11?(s2 - s1):
+mode==12?(s1 - s2):
+mode==13?(s1 << s2):
+mode==14?(s2 << s1):
+mode==15?(s1 >> s2):
+mode==16?(s2 >> s1):
+mode==17?for(n=0,n<(s2%32),n++,rol(s1)):
+mode==18?for(n=0,n<(s1%32),n++,rol(s2)):
+mode==19?for(n=0,n<(s2%32),n++,ror(s1)):
+mode==20?for(n=0,n<(s1%32),n++,ror(s2)):
+mode==21?avg(s2,s1):
+mode==22?round(s1,s2,0):
+mode==23?round(s2,s1,0):
+mode==24?s2*sin(s1*2*pi/mult):
+mode==25?s1*sin(s2*2*pi/mult):
+mode==26?sign*s2*cos(s1*2*pi/mult):
+mode==27?sign*s1*cos(s2*2*pi/mult):
+mode==28?s2*tan(s1*pi/mult):
+mode==29?s1*tan(s2*pi/mult):
+mode==30?s2*sin(mult/(s1*2*pi)):
+mode==31?s1*sin(mult/(s2*2*pi)):
+mode==32?sign*s2*cos(mult/(s1*2*pi)):
+mode==33?sign*s1*cos(mult/(s2*2*pi)):
+mode==34?s2*tan(mult/(s1*pi)):
+mode==35?s1*tan(mult/(s2*pi)):
+mode==36?mult*var(s1,s2):
+mode==37?abs(s2 - s1):
+mode==38?min(s2,s1):
+mode==39?max(s2,s1):
+mode==40?0.005*s2*(((j(#-1,0,0,0,(c+1)%(s(#0)-1)+1)*2^power))+s1):
+mode==41?0.005*s1*((j(#-1,0,0,0,(c+1)%(s(#0)-1)+1)*2^power)+s2):
+mode==42?0.1*s2*(j(#-1,0,0,0,(c+1)%(s(#0)-1)+1)*2^power)*s1:
+mode==43?0.1*s2*(j(#-1,0,0,0,(c+1)%(s(#0)-1)+1)*2^power)/s1:
+mode==44?0.1*s1*(j(#-1,0,0,0,(c+1)%(s(#0)-1)+1)*2^power)/s2:
+mode==45?0.001*s2*((j(#-1,0,0,0,(c+1)%(s(#0)-1)+1)*2^power)-s1):
+mode==46?0.001*s1*((j(#-1,0,0,0,(c+1)%(s(#0)-1)+1)*2^power)-s2):
+mode==47?0.001*s2*(s1-(j(#-1,0,0,0,(c+1)%(s(#0)-1)+1)*2^power)):
+mode==48?0.001*s1*(s2-(j(#-1,0,0,0,(c+1)%(s(#0)-1)+1)*2^power)):
+mode==49?0.001*s2*abs((j(#-1,0,0,0,(c+1)%(s(#0)-1)+1)*2^power)-s1):
+mode==50?0.001*s1*abs((j(#-1,0,0,0,(c+1)%(s(#0)-1)+1)*2^power)-s2):
+mode==51?0.00001*mult*var(s1,s2,(j(#-1,0,0,0,(c+1)%(s(#0)-1)+1)*2^power)):
+mode==52?(255-((255-s1)*(255-s2))):
+mode==53?(s1/(255-s2)):
+mode==54?(s2/(255-s1)):
+mode==55?((255-s2)/s1*255):
+mode==56?((255-s1)/s2*255):
+mode==57?((((s1)/255)^2)^(2*(0.5-(s2/255))))*255:
+mode==58?((((s2)/255)^2)^(2*(0.5-(s1/255))))*255:
+mode==59?sqrt(abs(s1*s2)):
+mode==60?(if((s1+s2)>=255,255,0)):
+(if((s1+s2)<=255,0,255)));
+val = sign*((2^$16)*j(#-1) + $17);operate($19,val,i,$20,$16);
+" rm.
+if $8
+*. $20 +. $21 if $22==2 if $23 %. $23 fi else if $23 modf $22,$23,100%,0 fi fi *. $24 +. $25
+fi
+done
+if !$8
+*. $20 +. $21 if $22==2 if $23 %. $23 fi else if $23 modf $22,$23,100%,0 fi fi *. $24 +. $25
+fi
+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 ycbcrglic2rgb
+elif $1==8 yiq82rgb
+elif $1==9 yuv82rgb
+elif $1==10 hcy2rgb
+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 ycbcr2rgb
+elif $1==8 yiq2rgb
+elif $1==9 yuv2rgb
+elif $1==10 bayer2rgb 0,0,0
+elif $1==11 xyz2rgb
+fi fi
+done a c done done
+fx_self_glitching_cascade_preview :
+repeat max(0,l)
+ac[$>] "-fx_self_glitching_cascade $*",$26
+done
+fx_dct_fsu:
+repeat $! l[$>]
+if !$11 split_opacity fi
+l[0]
+csswap $10,0 dct
+shift $4%,$5%,0,0,2
+f "
+begin(op="$1"; ox=round("$2"*w/100); oy=round("$3"*h/100));
+(op==0)?(((x<=ox)&&(y<=oy))?i:0):
+(op==1)?(((x<=ox)||(y<=oy))?i:0):
+(op==2)?(((x<=ox)||(y<=oy))?0:i):
+(op==3)?(((x<=ox)&&(y<=oy))?0:i):
+(op==4)?(((x==ox)&&(y==oy))?i:0):
+(op==5)?(((x==ox)||(y==oy))?i:0):
+(op==6)?((((x==ox)||(y==oy))&&((x<=ox)&&(y<=oy)))?i:0):
+(op==7)?((((x==ox)||(y==oy))&&((x>=ox)&&(y>=oy)))?i:0):
+(op==8)?(j(round(ox*u(-1,1)^45),round(oy*u(-1,1)^45),0,0,0,2)):
+(op==9)?(j(round(ox*u(-1,1)^5),round(oy*u(-1,1)^5),0,0,0,2))
+"
+shift $6%,$7%,0,0,2
+idct
+csswap 0,$10
+if $8 abs fi
+if $9 n 0,255 fi
+done
+if !$11 a c fi
+done done
+fx_dct_fsu_preview:
+gui_split_preview "fx_dct_fsu $*",${-3--1}
+fx_jfif_fake :
+glitch=(0.25^(10-$3))*$3/4
+cd=$4
+te=$5
+ste=$6
+base642img "MSBmbG9hdCBsaXR0bGVfZW5kaWFuCjggOCA2NCAxICMyMjIyCnic5Vs9q51FEC60kKtWMYpaCirYKCoI767iR6UoSangtdM/EAM2Fgab2FhaWdgIUXOqVO8sXEHBVDFia6kgCBaCQSyu+5w8c3nv5p55Bg+3uSmGs19nP2Z2Zt752P39/bJ/G8PHF5+qD1y4v77+yNWyeulegPWy9bbW+9pJ7z9XH6s/f3KxdLBeRr2hjDb0nfR+4OZyxwlw8UbHS4f1nehtBTg66f3kAyOU261OfDTiA/ehEV91ga8T208+cDlg5JNKPiknvR8ykfKwLuRlo7y0k96PegS8MxsB80RAnROBRYC9R0AZtxF45o1w+cXz9fHvztTnP7y7nv7z5dLBern1NvTht37/75P17Qt/lOsPPQqwXrbeth6D/6Hv3F2fl2/++WXqMPfyegzmwZz439e9755fHwbMvTxjHqwFQBlt6MMYjMV/8F/MgbkwJ+bGGlgLa2Jt7AF7wRjMg/+hD3vG3nmGxr0Y5/S+euPGe/XVJ/ZKB+vlBkAZbeh77ctX6re/f1E6WC83AMpoQ9+Zd++oV6+8WTpYLzcAymhD30+fPlee/e2zqcPcywZAGW3oO6J+aPw437jeuJ9xv+N5xvMCD/d1vABPL3QcdVjjpbcV4rb+2PGK8jsdxx3QjrZCvJevOl2A3/c7jTqs8dvbJtKkgK7A/eU+rsMEGoDOpJehjDb0YQzG4j+kpWEuzIm5sQbWwpqkc8NesCfsDXvEXrFn3oGGs+BMOBvOiLPizPgP+fzgW3Gsu87wb4mxTj53fixjfeDxo+qb2suC/2+Z1+ub9uX1TefyOundSG/HlxFfjfRupHclvo34dno30tvpNZNeRnob6V1I75n0nknvQnr7fZl4XybSu5Lexvs28b45vSvp7fe18L4W0ruS3n7fC+97JV808oWRLyr5ppCvGvnKyFeVfFfIl418aeTLSr4t5GsjX8/ka+f76Yj6ofHjfON6437G/Y7nGc/rMtZlJfVBoz5weXrAS9QHjfrAKI+N8tj1gVEfuDyfKc+N+sCoD2bqg4n6oPia1AeuTwr1SaU+KNQHE/VRoT5yfVBd9lCfVeoz1wfVdZPbSJvAv6ECsAjc5vq/oOZX+1Pncx3nusp1zkJ3lL1+p37gXcad7GXb490CoIw212MYi//4XcNcmNPvNdbCmn4vo341v9qfOt8HH71V/7rzSulgvYx6Qxlt3vfg36cBxnZDGW3+v6F+aPw4n1pv7Ffzq/2p9YCb6x0nwMXZjpcOa7z3trUcAW6f6TgFLv07BDjvbRNwDEAZbf5dgrH4zx5lEebCnJgba2AtrOlyK+pX86v9qfO5LeQ20lgfeHzk+RK0L30ut8ybrav51f7UOsRHIz6cHkZ6NOLTiM9Cesykh5EehfQw0mMiPQrpWUnPRnoU0qOqfjW/2p86H/nA5YDzbCWfFPKR85mRz5zvyxH1Q+PH+dR6Y7+aX+1PrUd52yhvG+Vlo7w0ylujvDXKW6O8nSlvC+VtobwulNcT5W2lvHV5Xynvi+pX86v9qfMp+x6+ogiUfU0fVAQlAuWfgF8rAuUfUPb9Kdrnl/p32E7/VuswXaJ93vvKKrCvV7Qhdm/aCQf2H77bd29+m69tMpTR5vYfxuI/+O8q8E9g7VP0L2BP2Bv2eIn+hVP85o/8A9QxZW9h37ucQd+1fkee7veow9TLBYAy2q5Rr0T29dmF/U55d2C/uz4a6ofGK//EuJ9xv+N5xvMu7XvgfHew74Ez4BV4Bo6BW+B1h/a529erhX29WtjXmBPf9+g732ncYU1XfN9jLQDKaEMfxmAs/rNL2w5zrRb+idXCP4E9YC/YE/aGPWKvO/QvLP0DXO+Qf0DZ9+Rz5ycb68q+Hnh85HkL2m3B/xvt+E378rryD+wG9j1wRXqXnYV9zvuAvsl5dLSvSa9KelfS20jvifQupHcjvQvvy7z87+oI/4TLFtLbdhb+Bd4H3Nd5N/APYL29hb3s37P+nYA+8lUhX03kKyPfzcq+9m+Qswv7fcH3dkT90Hjlnxj3M+53PM94XmXfU55OlKeF+qBQH0xL+xo0WQ32NeV5oTx3fVDcN+Q+HuqDRn1g1Afz0j+BuVeDf4L6aKY+MuoDoz6YlX8gESO3LWHbGP2xrp+InzfGSw58kxjLeEpN9G8bvz/W9RPx823j7dvG7491/UT8fB07Zbx0rZsYT/VvZ9W/bfz+WNdPxMu3jbNvG68/1vUT8XMjvmxBr0J8lkT/tvH7Y10/ET/fNt6+bfz+WNdPxM+N8tS/Pz3uZQt5GvVvG78/1vUT9nccP9f2t8ohCO3zhP8h9A8o/0PC/g7t+4T9HfoXlH2e8D+E/gHlf0jY36F9n7C/Q/+Css8T/ofQP6D8Dwn7O7TvE/Z36F9Q9nnC/xD6B5T/IWF/h/Z9wv4O/QvKPk/4H0L/gPI/JOzv0L5P2N+hf0HZ5wn/Q+gfUP6HhP0d2vcJ+zv0Lyj7POF/CP0Dyv+QsL9D+z5hf4f+BWWfJ/wPoX9A+R8S8XMVo1f5Ayp+r/IHwvnV/tT5EvFzFb9X+QMqfq/yB8L5E/kD4fkS8XMVv1f5Ayp+r/IHVL6Ayh8I10vEz1X8XuUPqPi9yh8I50/kD4TnS8TPVbxe5Q+o+L3KH1B5Aip/IFwnET9X8XuVP6Di9yp/IJw/kT8Qni8RP1fxe5U/oOL3Kn9A5Quo/IFwvUT8XMXvVf6Ait+r/IFw/kT+QHg+lZ+fyL8P7XvlP1D2u/IPJN4fhO8LVH5+Iv8+tO9V/n3i/UHoH0i8PwjfF6j8/ET+ffg+QPkPEu8Pwvz+xPuD8H2Bys9P5N+H7wNU/n3i/UGY3594fxC+L1D5+Yn8+9C+V/4DZb8r/0Di/UH4vkDl5yfy78P3ASr/PvH+IMzvT7w/CN8XqPz8RP59+D5A+Q8S7w/C/P7E+4PwfYHKz0/k34f2vcq/T7w/CP0DifcH4fuC/wBiGjbi"
+base642img "MSBmbG9hdCBsaXR0bGVfZW5kaWFuCjggOCA2NCAxICMyOTE3CnicjVsxjybFEV0JB4iDyHdYhhAJIznBAiSS6ZbBkb3YS4glHOI/4ENyQuDTOsAJIRGBEyP7di+6cKo5yZY4J95DmxKChIREYMln5ODo1/OqXd9KU1XZzX37Tc+rqqlX9aq+o6Ojevr+T+rvlh/VH9x6uh716189d79c/un9cue1pwo+O//pu/Xhw9/WF/5+Mv62vnet/vzHn5Qb37xe8D189vs//Lr+4i8/G/d5853H6r+/d7d89sGrBffE9/DZP/734jjjN7e+Lp989efy4Jnny6NHj4o9H9e/NOfj3zgP98T3cP3u4x+V+3ffKufffr7g7/AsOA/3xDU+++F/bpRXvvxwwT3wnHgWnIdrfA+fPfnFswvw4lx87/y1p6Rft/48rT9Pe+O5+4Jnw/PjjO9/8zquW7dH65hbee8a/m5gw/kPPnhV8D181u3RTt55rOHewI1n+9czz0u/bv1+rX+nvX3rawFePf+sn9+vxZ4PvMANTH/79vO1X0u3R+v2aDcf/0jwPdwbeF/68sO1X0t/VunPI5/efUuAF7iB99oXz679Wro9pNtDbvf7Af8bm73HucDf7VDUH8BfNn8LcONvuh2KxgP+7mTztwA3nrvboWg84B5vb/4W4Ab+boei8QD89nzgPzPnA//Nzd8DN/B3OywaD8D/6ebvgRv36XZYNB6A//bm7xW4gb/bYdF4AP4723mtx72YeBjPA/w3NrwN55t4GPbAc3624R0+MfEw7IF7Pdjwtv68YuJh2AP49XxgM/Ewzgf+8w1v63Fv42HYA/hf2fAK/s/Ew7AH7v3khlf6fVYTD8MexC/EX4i/8fxK/EL8lfgb8VfiF+KvxN+IvxK/EH8h/kb8lfiF+Avxz/OJfyX+QvxC/JX4V+IvxC/EX4h/Jf6F+IX4C+Nf9DzGvzD+GuN/4mX8C+O/Mf4nXsa/MP4b418UL+NfGP+N8T/PZ/zP8xn/Ey/jf2X8C+N/4mX8r4x/YfyvipfxvzL+xfgb+a8w/1Xmn2L8jfxXmP8q85/1N/JfYf6rzH/V+Bv5rzD/VeY/62/kv8L8N883/kb+W5j/KvOf9Tfy38L8V5j/ivE38t/C/FeY/0b+Z74ddiD/CflHyH9N/U3+a+Q/If819Tf5r5H/hPzX1N/kPyH/Cflvnk/+m+eT/5r6m/wn5L+V/Cfqb/KfkP9W8p+ov8l/K/lvPQr4X/n7+Ap/3yN/R/yLd+k6+eain4/rv/bzX+7PhvMt3xG/EP/I1X/sn93p9v9vtzHsiGvaX2j/ybe0f6P9x5m4F95fvKO0n8B+/+w2OiP/efyv+Rp4Lwx/H5O/I/7FPfE94H2ixx/eseusRz7u8Qe8mu8Y/7MeQvwDr+ZbfK9f126P2u1R+f41zbd8/2Y9hvcPeIEbeG9v70/B9/AZ3p+I/5W/7xn+7niKxkPEv8D/8ebvBc+Pez/BfHyxxb8w/xXmv8L8N84CfubfAtzAj3jSeMDfMf8W5t/K/DvsAvw3N38P3MCPfKjxEPG/8vfxFf5We0T8C/zkn9LjfjHxMOwB/OS/Sv7TeBj2AP4bG95Rd5t4GPbAc5N/K/lX42HYA/jPNryV/KnxMOwR8b/y9/EV/ib+kH+JfyH+lfgL8QvxF+IX4q/E34i/EH8j/kr8jfgL8Tfir8TfiH8hfiH+Qvwt4n/l73uGvy82eww7RPzL+F8UL+N/YfwXxn9RvIz/wvivjP+Jl/FfGP+V8T/xMv4L478y/idexv/C+C8R/xt/I/9N/mb+C/nX+Bv5b2X+E+a/1fhb2P9MPoRfjL8HjzD/NeY/629h/zX5GBiNv0e/w/zXmP8k4n/l7+Mr/E3+k4h/yX9F/U3+W8h/i6132P8K+9/xXpD/qvqb/FfJfwf1Fvvvxv572Jj8V9Xf5L9C/lsi/rd8YftvxNPZ1n9PviN+If5RY0f8HfG/5Uvar9B+o3/P6g979UvE/9pvAS/jZ9YT7L9F8x3jf9ZDiP+IvyP+B17Nl3x/Zj2F9yerP+zVLxH/a/+NeGH+EOYP7b+F+a8w/xXmv2GXiL8j/sezMH+uzJ/C/DnsktUf9uqXiP+Bn/xx0H+rPfB35L9C/tN4GPaI+Dvi/3PTv5M/NR6GPbL6w179EvE/8a8nV/pv4q/EvxC/vg+F+CXi74j/z03/zvqpaD19nfpjRn/Yq18i/tf+W/Ey/teT//ffwvq3sP4trH+HHSL+jvif8b8qXsb/yviXrP6wV79E/G/8Xdg/TD5h/63+FvY/kw+RFyL+jvjf+Hth/zT5FHkhqz/s1S8R/9t6wfbf5D/t94r6m/xXyH9LxN8R/9t6if1zYf88+ves/rBXv0T8H+nnmf5b9WrbfyNXnG/1n6v/R/ODqP6wej31m4P6I+L/SD/P9t94JupXc56B9yfS/6P5QVR/nJr6g/rdnOdo/+fxf6SfZ/tvvBPULwv1yxEPkf4fzQ+i+uPU1B/Ubyv122b4b5f/I/08039Tvz7ov9Uekf4fzQ+i+uOU9cdD1h8mHoY9Iv6P9PNM/835xUH/Tfw6/9jV/6P5QVR/EH8h/nZq6g/khYj/I/08238rXsb/wvgvkf4fzQ+i+uPU1B+c31XO75rWPx7/R/p5tv9m/lutno28EOn/0fwgqj+Mv4Xz26nnq/7j8X+kn2f6b51X2P6b/LdE+n80P4jqDzuv4fz+oP5I8P/kO+IX4l8Nfo//3fl9gv8n3xF/I34x+D3+d/cXEvwvmu8Y/7MeMvHv8b87v0/wf9N8x/if9ZCJf4//3f2FBP8L89/C/FeY/8TkP4//3fl9gv8b819h/qvMf83kP4//3f2FBP9P/Z78p/GwGP7z+N+d3yf4v5H/KvlP46EY/vP4391fSPD/1O9Z/4jWw6b+8fjfnd8n+L+x/qmsf5rWw6b+8fjf3V9I8L+w/l1Y/xbWv2LqX4//3fl9gv8b69/C+rey/m2m/vX4391fSPC/+ntl/zP50PQ/Hv+78/sE/6u/hf3P5EPT/3j87+4vJPh/1jvsf4X972r6X4//3fl9gv9nvcP+t7H/FdP/evzv7i8k9H93fp7Q/6feTf3jgH8T+r+7P5DQ/6febeuHe6wfEvq/Oz9P6P+Tf6l/zXmI0b88/d/dH0jo/031zgtTPxyzfkjo/+78PKH/T/6l/tmof1ajf3r6v7s/kND/G/XPWT9Q/2yqfwb6vzs/T+j/lfp3o/49+dfo357+7+4PJPT/Rv37oH5QeyT0f3d+ntD/K+cfjfOPyb9m/uHp/+7+QEL/b5x/HNQPxB/2/9H8PKH/T/7l/Ktx/lXN/MvT/939gYT+3zj/mvUD519N51+B/u/OzxP6/+Rfzj+nHm7mn57+7+4PJPR/9bdcmPqB+S+c/0fz84T+P+cdnH8f8G9C/3f3BxL6/5x32PqB/Bf2/xF/Wr7b2f9z5/eJ/T+3fsjoD97+QmL/z+XPy3j/z53fJ/b/3Pohqz/s7S8k9v9c/ryM9//c+X1i/8+tH7L6w97+QmL/z+XPy3j/z53fJ/b/3Pohoz94+wuJ/T+XPy/j/T93fp/Y/3Prh4z+4O0vJPb/XP68jPf/3Pl9Yv/PrR+y+sPe/kJi/8/lT+Pvvf0/d36f2P9z64es/rC3v5DY/3P509Y7O/t/7vw+sf/n1g8Z/cHbX4j4P5qfZ/vvPf0+0v+j/YGo/ojmF4nf/7nz82z/vaffR/p/tD8Q1R/R/CLx+z93fp7tv/f0+0j/j/YHovojml8kfv/nzs+z/feefh/p/9H+QFR/RPOLxO//3Pl5tv/e0+8j/T/aH4jqj2h+kfj9nzs/z/bfe/p9pP9H+wNR/RHNLxK//3Pn59n+e0+/j/T/aH8gqj+i+UXi93/u/Dzbf+/p95H+H+0PRPVHNL/4DgTd2gQ="
+=>[-2,-1] dct,idct
+(16,11,10,16,24,40,51,61;12,12,14,19,26,58,60,55;14,13,16,24,40,57,69,56;14,17,22,29,51,87,80,62;18,22,37,56,68,109,103,77;24,35,55,64,81,104,113,92;49,64,78,87,103,121,120,101;72,92,95,98,112,100,103,99) => Q
+f. "const S = $1<50?5000/$1:200-2*$1; max(1,round((S*i+50)/100,1,-1))"
+repeat $!-3 l[$>,-3--1]
+l[0] w,h={[w,h]} r {w+(-w%16)},{h+(-h%16)},1,100%,0,3 rgb2ycbcr s c
+if $2==1 r[-2,-1] 100%,50%,1,1,2 elif $2==2 r[-2,-1] 50%,100%,1,1,2 elif $2==3 r[-2,-1] 50%,50%,1,1,2 fi round. done
+repeat 3
+[$>]
+f[$>] "begin(boundary = 2; res = vector64(); chance = "$glitch"; val = 1; errtile = 0; tt=-1; const tlen = "$te"; const sticky = "$ste"; stuck = 0; cold = "$cd");
+if (!(x%8) && !(y%8),
+src = crop(x,y,8,8);
+for (l = 0, l<8, ++l, for (k = 0, k<8, ++k, off = k + 8*l; u<=chance?(val+=(u(-cold,cold)/10);tt=u(1,tlen);(u<=sticky?stuck=1:stuck=0)); stuck==0?errtile=0; tt>=1?(errtile=u(0,64)); res[off] = sum(val*src*crop(#"$dct",0,0,(off+errtile)%64,8,8,1))));
+draw(#-1,res,x,y,8,8); tt-=1;
+); i"
+round.
++r[Q] {$>,w},100%,1,1,0,2 /.. . round.. *[-2,-1]
+f. "begin(boundary = 2; res = vector64(); chance = "$glitch"; val = 0; errtile = 0; tt=-1; const tlen = "$te"; const sticky = "$ste"; stuck = 0; cold = "$cd");
+if (!(x%8) && !(y%8),
+src = crop(x,y,8,8);
+for (l = 0, l<8, ++l, for (k = 0, k<8, ++k, off = k + 8*l; u<=chance?(val+=(u(-cold,cold)/10);tt=u(1,tlen);(u<=sticky?stuck=1:stuck=0)); stuck==0?errtile=0; tt>=1?(errtile=u(0,64)); res[off] = sum(val+src*crop(#"$idct",0,0,(off+errtile)%64,8,8,1))));
+draw(#"$>",res,x,y,8,8); tt-=1;
+); i"
+rm.
+round[$>]
+done
+l[^3--1] r ${-max_wh},1,1,1 a c ycbcr2rgb round. r $w,$h,1,3,0 done
+done done
+rm[dct,idct,Q]
+rm.
+fx_jfif_fake_preview :
+gui_split_preview "fx_jfif_fake $*",${-3--1}
+_scanlines : skip ${1=60},${2=2},${3=0},${4=0},${5=0}
+v -
+theta={$4*pi/180} C={cos($theta)} S={-sin($theta)}
+repeat $! l[$>]
+100%,100%,1,1,"x" -. {w/2-$5} 100%,100%,1,1,'y'
+-. {h/2-$5} *.. $S *. $C +[-2,-1]
+_ripple$3. $1,$2
+n. {-$1},$1
++ cut 0,255
+done done v +
+_qam_glitch :
+100%,100%,1,1 _scanlines. ${7-9},{(90+$4+$10)},$11 b. $12
+*. 2 -. $7
+f.. "line=i(#-1\,x\,y\,z\,0);ang=(90+$4)*pi/180;(i+(((1+line*5*$13/255)*($1*i/255+$5))*(i*sin(((x-w/2)*cos(ang)+(y-h/2)*sin(ang))/$2+($3+(line*$2*$14/10)/255*360)*pi/180))+($6*($1)-($1*i/2)))-i/255)%255"
+rm.
+fx_qam_glitch :
+repeat $! l[$>]
+to_rgba
+cs=$7
+if $12 negate fi
+csswap 0,$cs
+counter=0
+if $8 sh[0] 0 fi
+if $9 sh[0] 1 fi
+if $10 sh[0] 2 fi
+if $11 sh[0] 3 fi
+repeat $!-1 l[{$>+1}]
+_qam_glitch ${1-6},${13-20}
+done done
+k[0]
+csswap $cs,0
+if $12 negate fi
+done done
+fx_qam_glitch_preview :
+gui_split_preview "fx_qam_glitch $*",${-3--1}
+_fx_jfif_bomb :
+repeat $! l[$>]
+if $12
++fx_solidify_td ${13-17}
+negate. rv blend alpha
+fi
+ww={w}
+hh={h}
+r {$7*100}%,{$8*100}%,100%,100%,$9
+fx_jpeg_artefacts $1
+blend_bomb 1,${2-6},0,0,0,${10-11}
+r $ww,$hh,100%,100%,$9
+done done
+fx_jfif_bomb:
+_fx_jfif_bomb ${2--1}
+fx_jfif_bomb_preview :
+fx_jfif_bomb $*
+jr_fx_noise :
+ac "_fx_noise $1,$2",$3,$4
+_jr_fx_noise :
+repeat $! l[$>] split_opacity l[0] noise $1,$2 done a c done done
+jr_fx_noise_preview :
+gui_split_preview "jr_fx_noise $*",${-3--1}
+fx_jfif :
+cd={$4^2.5}
+gl=$5
+ve=$6
+es=$7
+ste=$8
+bias={2^(6-($9*12))}
+ts={$10^2}
+base642img "MSBmbG9hdCBsaXR0bGVfZW5kaWFuCjggOCA2NCAxICMyMjIyCnic5Vs9q51FEC60kKtWMYpaCirYKCoI767iR6UoSangtdM/EAM2Fgab2FhaWdgIUXOqVO8sXEHBVDFia6kgCBaCQSyu+5w8c3nv5p55Bg+3uSmGs19nP2Z2Zt752P39/bJ/G8PHF5+qD1y4v77+yNWyeulegPWy9bbW+9pJ7z9XH6s/f3KxdLBeRr2hjDb0nfR+4OZyxwlw8UbHS4f1nehtBTg66f3kAyOU261OfDTiA/ehEV91ga8T208+cDlg5JNKPiknvR8ykfKwLuRlo7y0k96PegS8MxsB80RAnROBRYC9R0AZtxF45o1w+cXz9fHvztTnP7y7nv7z5dLBern1NvTht37/75P17Qt/lOsPPQqwXrbeth6D/6Hv3F2fl2/++WXqMPfyegzmwZz439e9755fHwbMvTxjHqwFQBlt6MMYjMV/8F/MgbkwJ+bGGlgLa2Jt7AF7wRjMg/+hD3vG3nmGxr0Y5/S+euPGe/XVJ/ZKB+vlBkAZbeh77ctX6re/f1E6WC83AMpoQ9+Zd++oV6+8WTpYLzcAymhD30+fPlee/e2zqcPcywZAGW3oO6J+aPw437jeuJ9xv+N5xvMCD/d1vABPL3QcdVjjpbcV4rb+2PGK8jsdxx3QjrZCvJevOl2A3/c7jTqs8dvbJtKkgK7A/eU+rsMEGoDOpJehjDb0YQzG4j+kpWEuzIm5sQbWwpqkc8NesCfsDXvEXrFn3oGGs+BMOBvOiLPizPgP+fzgW3Gsu87wb4mxTj53fixjfeDxo+qb2suC/2+Z1+ub9uX1TefyOundSG/HlxFfjfRupHclvo34dno30tvpNZNeRnob6V1I75n0nknvQnr7fZl4XybSu5Lexvs28b45vSvp7fe18L4W0ruS3n7fC+97JV808oWRLyr5ppCvGvnKyFeVfFfIl418aeTLSr4t5GsjX8/ka+f76Yj6ofHjfON6437G/Y7nGc/rMtZlJfVBoz5weXrAS9QHjfrAKI+N8tj1gVEfuDyfKc+N+sCoD2bqg4n6oPia1AeuTwr1SaU+KNQHE/VRoT5yfVBd9lCfVeoz1wfVdZPbSJvAv6ECsAjc5vq/oOZX+1Pncx3nusp1zkJ3lL1+p37gXcad7GXb490CoIw212MYi//4XcNcmNPvNdbCmn4vo341v9qfOt8HH71V/7rzSulgvYx6Qxlt3vfg36cBxnZDGW3+v6F+aPw4n1pv7Ffzq/2p9YCb6x0nwMXZjpcOa7z3trUcAW6f6TgFLv07BDjvbRNwDEAZbf5dgrH4zx5lEebCnJgba2AtrOlyK+pX86v9qfO5LeQ20lgfeHzk+RK0L30ut8ybrav51f7UOsRHIz6cHkZ6NOLTiM9Cesykh5EehfQw0mMiPQrpWUnPRnoU0qOqfjW/2p86H/nA5YDzbCWfFPKR85mRz5zvyxH1Q+PH+dR6Y7+aX+1PrUd52yhvG+Vlo7w0ylujvDXKW6O8nSlvC+VtobwulNcT5W2lvHV5Xynvi+pX86v9qfMp+x6+ogiUfU0fVAQlAuWfgF8rAuUfUPb9Kdrnl/p32E7/VuswXaJ93vvKKrCvV7Qhdm/aCQf2H77bd29+m69tMpTR5vYfxuI/+O8q8E9g7VP0L2BP2Bv2eIn+hVP85o/8A9QxZW9h37ucQd+1fkee7veow9TLBYAy2q5Rr0T29dmF/U55d2C/uz4a6ofGK//EuJ9xv+N5xvMu7XvgfHew74Ez4BV4Bo6BW+B1h/a529erhX29WtjXmBPf9+g732ncYU1XfN9jLQDKaEMfxmAs/rNL2w5zrRb+idXCP4E9YC/YE/aGPWKvO/QvLP0DXO+Qf0DZ9+Rz5ycb68q+Hnh85HkL2m3B/xvt+E378rryD+wG9j1wRXqXnYV9zvuAvsl5dLSvSa9KelfS20jvifQupHcjvQvvy7z87+oI/4TLFtLbdhb+Bd4H3Nd5N/APYL29hb3s37P+nYA+8lUhX03kKyPfzcq+9m+Qswv7fcH3dkT90Hjlnxj3M+53PM94XmXfU55OlKeF+qBQH0xL+xo0WQ32NeV5oTx3fVDcN+Q+HuqDRn1g1Afz0j+BuVeDf4L6aKY+MuoDoz6YlX8gESO3LWHbGP2xrp+InzfGSw58kxjLeEpN9G8bvz/W9RPx823j7dvG7491/UT8fB07Zbx0rZsYT/VvZ9W/bfz+WNdPxMu3jbNvG68/1vUT8XMjvmxBr0J8lkT/tvH7Y10/ET/fNt6+bfz+WNdPxM+N8tS/Pz3uZQt5GvVvG78/1vUT9nccP9f2t8ohCO3zhP8h9A8o/0PC/g7t+4T9HfoXlH2e8D+E/gHlf0jY36F9n7C/Q/+Css8T/ofQP6D8Dwn7O7TvE/Z36F9Q9nnC/xD6B5T/IWF/h/Z9wv4O/QvKPk/4H0L/gPI/JOzv0L5P2N+hf0HZ5wn/Q+gfUP6HhP0d2vcJ+zv0Lyj7POF/CP0Dyv+QsL9D+z5hf4f+BWWfJ/wPoX9A+R8S8XMVo1f5Ayp+r/IHwvnV/tT5EvFzFb9X+QMqfq/yB8L5E/kD4fkS8XMVv1f5Ayp+r/IHVL6Ayh8I10vEz1X8XuUPqPi9yh8I50/kD4TnS8TPVbxe5Q+o+L3KH1B5Aip/IFwnET9X8XuVP6Di9yp/IJw/kT8Qni8RP1fxe5U/oOL3Kn9A5Quo/IFwvUT8XMXvVf6Ait+r/IFw/kT+QHg+lZ+fyL8P7XvlP1D2u/IPJN4fhO8LVH5+Iv8+tO9V/n3i/UHoH0i8PwjfF6j8/ET+ffg+QPkPEu8Pwvz+xPuD8H2Bys9P5N+H7wNU/n3i/UGY3594fxC+L1D5+Yn8+9C+V/4DZb8r/0Di/UH4vkDl5yfy78P3ASr/PvH+IMzvT7w/CN8XqPz8RP59+D5A+Q8S7w/C/P7E+4PwfYHKz0/k34f2vcq/T7w/CP0DifcH4fuC/wBiGjbi"
+base642img "MSBmbG9hdCBsaXR0bGVfZW5kaWFuCjggOCA2NCAxICMyOTE3CnicjVsxjybFEV0JB4iDyHdYhhAJIznBAiSS6ZbBkb3YS4glHOI/4ENyQuDTOsAJIRGBEyP7di+6cKo5yZY4J95DmxKChIREYMln5ODo1/OqXd9KU1XZzX37Tc+rqqlX9aq+o6Ojevr+T+rvlh/VH9x6uh716189d79c/un9cue1pwo+O//pu/Xhw9/WF/5+Mv62vnet/vzHn5Qb37xe8D189vs//Lr+4i8/G/d5853H6r+/d7d89sGrBffE9/DZP/734jjjN7e+Lp989efy4Jnny6NHj4o9H9e/NOfj3zgP98T3cP3u4x+V+3ffKufffr7g7/AsOA/3xDU+++F/bpRXvvxwwT3wnHgWnIdrfA+fPfnFswvw4lx87/y1p6Rft/48rT9Pe+O5+4Jnw/PjjO9/8zquW7dH65hbee8a/m5gw/kPPnhV8D181u3RTt55rOHewI1n+9czz0u/bv1+rX+nvX3rawFePf+sn9+vxZ4PvMANTH/79vO1X0u3R+v2aDcf/0jwPdwbeF/68sO1X0t/VunPI5/efUuAF7iB99oXz679Wro9pNtDbvf7Af8bm73HucDf7VDUH8BfNn8LcONvuh2KxgP+7mTztwA3nrvboWg84B5vb/4W4Ab+boei8QD89nzgPzPnA//Nzd8DN/B3OywaD8D/6ebvgRv36XZYNB6A//bm7xW4gb/bYdF4AP4723mtx72YeBjPA/w3NrwN55t4GPbAc3624R0+MfEw7IF7Pdjwtv68YuJh2AP49XxgM/Ewzgf+8w1v63Fv42HYA/hf2fAK/s/Ew7AH7v3khlf6fVYTD8MexC/EX4i/8fxK/EL8lfgb8VfiF+KvxN+IvxK/EH8h/kb8lfiF+Avxz/OJfyX+QvxC/JX4V+IvxC/EX4h/Jf6F+IX4C+Nf9DzGvzD+GuN/4mX8C+O/Mf4nXsa/MP4b418UL+NfGP+N8T/PZ/zP8xn/Ey/jf2X8C+N/4mX8r4x/YfyvipfxvzL+xfgb+a8w/1Xmn2L8jfxXmP8q85/1N/JfYf6rzH/V+Bv5rzD/VeY/62/kv8L8N883/kb+W5j/KvOf9Tfy38L8V5j/ivE38t/C/FeY/0b+Z74ddiD/CflHyH9N/U3+a+Q/If819Tf5r5H/hPzX1N/kPyH/Cflvnk/+m+eT/5r6m/wn5L+V/Cfqb/KfkP9W8p+ov8l/K/lvPQr4X/n7+Ap/3yN/R/yLd+k6+eain4/rv/bzX+7PhvMt3xG/EP/I1X/sn93p9v9vtzHsiGvaX2j/ybe0f6P9x5m4F95fvKO0n8B+/+w2OiP/efyv+Rp4Lwx/H5O/I/7FPfE94H2ixx/eseusRz7u8Qe8mu8Y/7MeQvwDr+ZbfK9f126P2u1R+f41zbd8/2Y9hvcPeIEbeG9v70/B9/AZ3p+I/5W/7xn+7niKxkPEv8D/8ebvBc+Pez/BfHyxxb8w/xXmv8L8N84CfubfAtzAj3jSeMDfMf8W5t/K/DvsAvw3N38P3MCPfKjxEPG/8vfxFf5We0T8C/zkn9LjfjHxMOwB/OS/Sv7TeBj2AP4bG95Rd5t4GPbAc5N/K/lX42HYA/jPNryV/KnxMOwR8b/y9/EV/ib+kH+JfyH+lfgL8QvxF+IX4q/E34i/EH8j/kr8jfgL8Tfir8TfiH8hfiH+Qvwt4n/l73uGvy82eww7RPzL+F8UL+N/YfwXxn9RvIz/wvivjP+Jl/FfGP+V8T/xMv4L478y/idexv/C+C8R/xt/I/9N/mb+C/nX+Bv5b2X+E+a/1fhb2P9MPoRfjL8HjzD/NeY/629h/zX5GBiNv0e/w/zXmP8k4n/l7+Mr/E3+k4h/yX9F/U3+W8h/i6132P8K+9/xXpD/qvqb/FfJfwf1Fvvvxv572Jj8V9Xf5L9C/lsi/rd8YftvxNPZ1n9PviN+If5RY0f8HfG/5Uvar9B+o3/P6g979UvE/9pvAS/jZ9YT7L9F8x3jf9ZDiP+IvyP+B17Nl3x/Zj2F9yerP+zVLxH/a/+NeGH+EOYP7b+F+a8w/xXmv2GXiL8j/sezMH+uzJ/C/DnsktUf9uqXiP+Bn/xx0H+rPfB35L9C/tN4GPaI+Dvi/3PTv5M/NR6GPbL6w179EvE/8a8nV/pv4q/EvxC/vg+F+CXi74j/z03/zvqpaD19nfpjRn/Yq18i/tf+W/Ey/teT//ffwvq3sP4trH+HHSL+jvif8b8qXsb/yviXrP6wV79E/G/8Xdg/TD5h/63+FvY/kw+RFyL+jvjf+Hth/zT5FHkhqz/s1S8R/9t6wfbf5D/t94r6m/xXyH9LxN8R/9t6if1zYf88+ves/rBXv0T8H+nnmf5b9WrbfyNXnG/1n6v/R/ODqP6wej31m4P6I+L/SD/P9t94JupXc56B9yfS/6P5QVR/nJr6g/rdnOdo/+fxf6SfZ/tvvBPULwv1yxEPkf4fzQ+i+uPU1B/Ubyv122b4b5f/I/08039Tvz7ov9Uekf4fzQ+i+uOU9cdD1h8mHoY9Iv6P9PNM/835xUH/Tfw6/9jV/6P5QVR/EH8h/nZq6g/khYj/I/08238rXsb/wvgvkf4fzQ+i+uPU1B+c31XO75rWPx7/R/p5tv9m/lutno28EOn/0fwgqj+Mv4Xz26nnq/7j8X+kn2f6b51X2P6b/LdE+n80P4jqDzuv4fz+oP5I8P/kO+IX4l8Nfo//3fl9gv8n3xF/I34x+D3+d/cXEvwvmu8Y/7MeMvHv8b87v0/wf9N8x/if9ZCJf4//3f2FBP8L89/C/FeY/8TkP4//3fl9gv8b819h/qvMf83kP4//3f2FBP9P/Z78p/GwGP7z+N+d3yf4v5H/KvlP46EY/vP4391fSPD/1O9Z/4jWw6b+8fjfnd8n+L+x/qmsf5rWw6b+8fjf3V9I8L+w/l1Y/xbWv2LqX4//3fl9gv8b69/C+rey/m2m/vX4391fSPC/+ntl/zP50PQ/Hv+78/sE/6u/hf3P5EPT/3j87+4vJPh/1jvsf4X972r6X4//3fl9gv9nvcP+t7H/FdP/evzv7i8k9H93fp7Q/6feTf3jgH8T+r+7P5DQ/6febeuHe6wfEvq/Oz9P6P+Tf6l/zXmI0b88/d/dH0jo/031zgtTPxyzfkjo/+78PKH/T/6l/tmof1ajf3r6v7s/kND/G/XPWT9Q/2yqfwb6vzs/T+j/lfp3o/49+dfo357+7+4PJPT/Rv37oH5QeyT0f3d+ntD/K+cfjfOPyb9m/uHp/+7+QEL/b5x/HNQPxB/2/9H8PKH/T/7l/Ktx/lXN/MvT/939gYT+3zj/mvUD519N51+B/u/OzxP6/+Rfzj+nHm7mn57+7+4PJPR/9bdcmPqB+S+c/0fz84T+P+cdnH8f8G9C/3f3BxL6/5x32PqB/Bf2/xF/Wr7b2f9z5/eJ/T+3fsjoD97+QmL/z+XPy3j/z53fJ/b/3Pohqz/s7S8k9v9c/ryM9//c+X1i/8+tH7L6w97+QmL/z+XPy3j/z53fJ/b/3Pohoz94+wuJ/T+XPy/j/T93fp/Y/3Prh4z+4O0vJPb/XP68jPf/3Pl9Yv/PrR+y+sPe/kJi/8/lT+Pvvf0/d36f2P9z64es/rC3v5DY/3P509Y7O/t/7vw+sf/n1g8Z/cHbX4j4P5qfZ/vvPf0+0v+j/YGo/ojmF4nf/7nz82z/vaffR/p/tD8Q1R/R/CLx+z93fp7tv/f0+0j/j/YHovojml8kfv/nzs+z/feefh/p/9H+QFR/RPOLxO//3Pl5tv/e0+8j/T/aH4jqj2h+kfj9nzs/z/bfe/p9pP9H+wNR/RHNLxK//3Pn59n+e0+/j/T/aH8gqj+i+UXi93/u/Dzbf+/p95H+H+0PRPVHNL/4DgTd2gQ="
+=>[-2,-1] dct,idct
+(16,11,10,16,24,40,51,61;12,12,14,19,26,58,60,55;14,13,16,24,40,57,69,56;14,17,22,29,51,87,80,62;18,22,37,56,68,109,103,77;24,35,55,64,81,104,113,92;49,64,78,87,103,121,120,101;72,92,95,98,112,100,103,99) => Q
+f. "const S = $1<50?5000/$1:200-2*$1; max(1,round((S*i+50)/100,1,-1))"
+repeat $!-3 l[$>,-3--1]
+gp={(0.25^((10-$3)*log(wh(#0))/30))*$3/10}
+ww={w(#0)}
+hh={h(#0)}
+if $11==1
+mirror[0] x
+elif $11==2
+mirror[0] y
+elif $11==3
+mirror[0] xy
+fi
+if $12
+rotate[0] {$12*90},0
+fi
+if $13
+www={w(#0)}
+hhh={h(#0)}
+r[0] {$www*$19},{$hhh*$20},100%,100%,$21
+fi
+{w(#0)},{h(#0)},1,1 => G
+f[$G] ">begin(chance = "$gp"; tlmax="$gl"; tt=-1; val=0; sticky="$ste");
+if (!(x%16) && !(y%16),for (l = 0, l<2, ++l, for (k = 0, k<2, ++k, (u<=chance?((val=1);tt=round(u(1,tlmax))):tt>=0?(val=0;--tt):(u<=sticky?(val=-2):val=-1)); j(k*8,l*8)=val)),0)"
+l[0] w,h={[w,h]} r {w+(-w%16)},{h+(-h%16)},1,100%,0,3 rgb2srgb gcd_srgb2jpeg s c
+if $2==1 r[-2,-1] 100%,50%,1,1,2 elif $2==2 r[-2,-1] 50%,100%,1,1,2 elif $2==3 r[-2,-1] 50%,50%,1,1,2 fi round. done
+bw,bh=8
+repeat 3
+if $>==1
+if $2==1 bh=16 elif $2==2 bw=16 elif $2==3 bh,bw=16 fi
+fi
+[$>]
+f[$>] ">begin(boundary = 2; res = vector64(); gres = vector64(); const cbw="$bw"; const cbh="$bh"; const cbwh=cbw*cbh; glitch=0; const cold="$cd"; gval=1; const errval="$ve"; const bias = "$bias"; const strength="$es");
+if (!(x%(128/cbw)) && !(y%(128/cbh)),for (ll = 0, ll<(16/cbw), ++ll, for (kk = 0, kk<(16/cbh), ++kk,
+src = crop(x+(ll*8),y+(kk*8),8,8);
+gpunch=crop(#"$G",cbw/8*(x+(ll*8)),cbh/8*(y+(ll*8)),cbw,cbh);
+max(gpunch)==1?(glitch=1);
+glitch==1?(gval=cut(gval+(u(-cold,cold)/15),-1,5);errnum=u(1,errval);for (ve=0,ve,w},100%,1,1,0,2 /.. . round.. *[-2,-1]
+dispw={w(#1)}
+f. ">begin(boundary = 2; res = vector64(); const cbw="$bw"; const cbh="$bh"; const cbwh=cbw*cbh; glitch=0; const cold="$cd"; gval=0; const dispwidth="$dispw";disp=0;shift="$ts");
+if (!(x%(128/cbw)) && !(y%(128/cbh)),for (ll = 0, ll<(16/cbw), ++ll, for (kk = 0, kk<(16/cbh), ++kk,
+src = crop((x+(ll*8+cbw*disp))%(dispwidth/cbw*16),y+(kk*8)+cbh*floor((x+cbw*disp)/(dispwidth/cbw*16)),8,8);
+gpunch=crop(#"$G",cbw/8*(x+(ll*8)),cbh/8*(y+(ll*8)),cbw,cbh);
+max(gpunch)==1?(glitch=1);
+glitch==1?((u<=shift?++disp);gval=cut(gval+(u(-cold,cold)/5),-1,5));
+for (l = 0, l<8, ++l, for (k = 0, k<8, ++k, off = k + 8*l; res[off] = int(sum(gval+src*crop(#"$idct",0,0,off,8,8,1)))));
+draw(#"$>",res,x+(ll*8),y+(kk*8),8,8);
+min(gpunch)<=-1?(glitch=0;errnum=0;min(gpunch)==-1?gres=vector64(0))))); i"
+rm.
+l[$>] r {w*($bw/8)},{h*($bh/8)},1,1,1 done
+round[$>]
+done
+rm[$G]
+l[^4--1] a c gcd_jpeg2srgb srgb2rgb round. r $w,$h,1,3,0
+if $13 blend_bomb 1,${14-18},0,0,0,${22-23}
+r $www,$hhh,100%,100%,$21 fi
+if $12
+rotate[0] {-$12*90},0
+fi
+if $11==1
+mirror[0] x
+elif $11==2
+mirror[0] y
+elif $11==3
+mirror[0] xy
+fi
+done
+done done
+rm[$dct,$idct,$Q]
+fx_jfif_preview :
+gui_split_preview "fx_jfif $*",${-3--1}
+fx_jfif_xt:
+ww={w}
+hh={h}
+qu=$1/100
+sx=$2
+sy=$3
+to_rgb
+csswap rgb,ycbcrjpeg
+minl=0.05*wh
+maxl=0.1*wh
+diffx={-w%$sx}
+diffy={-h%$sy}
+w,h={[w,h]} r {w+$diffx},{h+$diffy},1,100%,0,3
+www={w}
+hhh={h}
+split_tiles -$sx,-$sy
+dct f "I*cut(1+(("$sx"+"$sy")*"$qu"-(x+y)),0,1)"
+append_tiles {$www/$sx}
+f ">begin(const minl="$minl";const maxl="$maxl";cd=round(u(minl,maxl)));
+cd-=1;
+(cd<=0)?(cd=round(u(minl,maxl));J[0]=[u*50000,u*50000,u*50000]):(J[0])"
+split_tiles -$sx,-$sy
+idct
+append_tiles {$www/$sx}
+r {w-$diffx},{h-$diffy},1,100%,0,3
+csswap ycbcrjpeg,rgb
+fx_jfif_xt_preview:
+fx_jfif_xt $*
+fx_jpeg :
+to_rgb
+inum=$!
+q=$1
+cs=$2
+($3,$5,$7;$4,$6,$8;0,0,0;$9,$11,$13;$10,$12,$14)
+nm. params
+eval. "begin(index=0;list=transpose(crop(0,0,3,2),3);foundlist=vector6(0));
+for(n=0,n<3,++n,
+pos=n*2;
+cp=list[pos,2];
+(find(foundlist,cp,0,2)==-1)?(
+index=find(foundlist,[0,0],0,2);
+foundlist[index]=cp[0];
+foundlist[index+1]=cp[1]);
+i(n,2)=find(foundlist,cp,0,2)*0.5
+);"
+tcount=0
+repeat 3
+tnum={i(#$params,$>,2)}
+if $tnum==$tcount
+tw={i(#$params,$>,0)}
+th={i(#$params,$>,1)}
+dct_tileset $tw,$th
+idct_tileset $tw,$th
+tcount+=1
+fi
+done
+repeat $inum l[$>,{(-2*$tcount)-1}--1]
+csswap[0] 0,$cs s[0] c
+repeat 3
+cw={w(#0)}
+ch={h(#0)}
+tw={i(#$params,$>,0)}
+th={i(#$params,$>,1)}
+tn={i(#$params,$>,2)}
+ox={-i(#$params,$>,3)%$tw}
+oy={-i(#$params,$>,4)%$th}
+imax=0
+imin=0
+l[$>]
+imax={iM}
+imin={im}
+if $imax!=$imin
+- $imin * {1/($imax-$imin)}
+else
++ {1-$imax}
+fi
+done
+z[$>] {-$ox},{-$oy},{$cw+((-$cw)%$tw)-1-$ox},{$ch+((-$ch)%$th)-1-$oy},3
+[$>]
+f[$>] :"
+begin(const tw="$tw";const th="$th";const twh=tw*th;const tn="$tn";const tileset=(tn-"$tcount")*2-1);
+if (!(x%tw) && !(y%th),
+res=vector(#twh,0);
+ref(crop(x,y,tw,th),src);
+for (l = 0, l",res,x,y,tw,th);
+); i"
+rm.
+l[$>]
+if $imax!=$imin
+* {($imax-$imin)} + $imin
+else
++ {$imax-1}
+fi
+done
+z[$>] $ox,$oy,{$cw-1+$ox},{$ch-1+$oy},3
+done
+a[0-2] c csswap[0] $cs,0
+done done
+rm[{(-2*$tcount)-1}--1]
+fx_jpeg_preview:
+if $9
+o0,o1,o2,o3,o4,o5=${10-15}
+else
+repeat 6
+o$>=0
+done
+fi
+fx_jpeg ${1-8},$o0,$o1,$o2,$o3,$o4,$o5
+u "{$1}""{$2}""{$3}""{$4}""{$5}""{$6}""{$7}""{$8}""{$9}""{"$o0"}_"{$9?2:0}"{"$o1"}_"{$9?2:0}"{"$o2"}_"{$9?2:0}"{"$o3"}_"{$9?2:0}"{"$o4"}_"{$9?2:0}"{"$o5"}_"{$9?2:0}#####################
+#@cli :: User Karo's PINK-library operators
+#@cli _xpink : pink_cmd, p1, ... , pn
+#@cli : Packs the list of parameters to a string with spaces, generates the pink input image in tmp, executes the pink executable pink_cmd and loads the result image. The pink_cmd parameter can have options separated by ':' from the pink_cmd, actually only 'if' to specify, force the input file format of the executable. E.g. 'asf:if-uint8' would force the generated input pnk file to be of unsigned character type. Only 'uint8' 'uint' 'float' are allowed. Other options will possibly follow.
+#@cli : To examine the parameters and to control existence of the program, type in a system shell 'pink_cmd', e.g. $ asf rspw. $ pink.asf !
+#@cli : If $GMIC_PINK_VERBOSE is true the command and sysout is printed
+#@cli : If $GMIC_PINK_NO_RM is true temporary files are not removed
+#@cli : Outfiles with 'P'(==80) as first char are considerd as images, everything else is considered as list
+_xpink :
+na={-1,n}
+filename=${-filename_rand}
+x_filename={/$filename}
+if 0$GMIC_PINK_VERBOSE verb=" 2>&1"
+else if ${-is_windows} verb=" >nul 2>&1" else verb=" >/dev/null 2>&1" fi fi
+if 0$GMIC_PINK_NO_RM no_rm=1 else no_rm=0 fi
+('$1') replace_str. ":","," replace_str. "-","," pc={t} rm. pink_cmd=${arg\ 1,$pc}
+if ['${arg\ 2,$pc}']==['if'] ifo=,${arg\ 3,$pc} else ifo="" fi
+if ${-kr_is_exec\ pink.${pink_cmd}}==0 fpin_cmd=pink.$pink_cmd
+elif ${-kr_is_exec\ ${pink_cmd}}==0 fpin_cmd=$pink_cmd
+elif ${-kr_is_exec\ ${pink_cmd}.exe}==0 fpin_cmd=${pink_cmd}.exe
+else error "Executable (pink.)"$pink_cmd"(.exe) not found in PATH, status = "${}"!! Returning!!" fi
+if 0$GMIC_PINK_VERBOSE +e "\n"$fpin_cmd" "${x_filename}".pnk $2 "${x_filename}"_o.pnk" fi
+o ${x_filename}.pnk$ifo x ${fpin_cmd}\ ${x_filename}".pnk $2 "${x_filename}"_o.pnk"$verb
+_status=${}
+if !$no_rm delete ${x_filename}.pnk fi
+if {"$_status!=0 && same(['$pink_cmd'],['seuilauto'],9)!=0"} error "Exec status is "$_status"."
+elif isfile(['{/${filename}_o.pnk}'])
+input_pinktest ${filename}_o.pnk
+if ${}==80 i ${filename}_o.pnk else input_pinklist ${filename}_o.pnk fi
+k. => $na
+if !$no_rm delete ${x_filename}_o.pnk fi
+else error "Exec error "$_status"!!"
+fi
+#@cli _xpinks : pink_cmd,parameter_string(with spaces!!)
+#@cli : Splits c channel if necessary and executes "_xpink pink_cmd,parameter_string".
+_xpinks :
+foreach {
+s:=s s. c
+foreach { _xpink $1,"$2" k. }
+if $s>1 a c fi
+}
+#@cli pink : eq. to 'pink_new'.
+pink : pink_new $*
+#@cli pink_new : pink_cmd,p1,...,pn
+#@cli : Pink wrapper (requires the PINK library to be installed), see https://perso.esiee.fr/~coupriem/pinktutorial/ (in French) and https://perso.esiee.fr/~coupriem/Pink/doc/html/index.html (in English)
+#@cli : Shortcut: pink
+#@cli : - Prepares input, calls external "pink_cmd input p1...pn output" and reads output (/tmp) and replaces positional IMAGE parameters bei temp. files. These images are not splitted and merged. They have to have the necessary format for the respectice pink executable. Only Pink routines with input file(s) and ONE output file can be called. Images with spectral channels (s>1) are splitted, processed one by one and merged.
+#@cli : - ATTENTION positional image parameter are never spitted and merged in contrast to selected (input) and output images. Positional image parameter should already have the needed format for the selected pink binary!
+#@cli : - pink_new prepares selected images and image parameter as pnk files in auto mode and creates a command string. File format of generated input pnk file can be forced by an option attached to the "pink_cmd" by "pink_cmd:if-", e.g. "asf:if-uint8", overwriting auto mode. Images (splitted if spectrum s > 1) are processed one by one and are written as pnk files to temporary space, outfile is a pnk file name pointing to temporary space too. The executed call looks like\n"pink_cmd infile p1 ... (px)imagefile ... pn outfile".
+#@cli : - For help of pink executable "pink_new help,pink_cmd" calls the executive command\n"open https://perso.esiee.fr/~coupriem/pinktutorial/_8c.html" instead of a pink binary.
+#@cli : OS variables:
+#@cli : GMIC_PINK_NO_RM == true: created files in temporary space are not removed
+#@cli : GMIC_PINK_VERBOSE == true: created cmd string and pink messages are printed
+#@cli : $ sp tiger +pink_new. asfr,5 pink_new.. asf,5
+#@cli : $ sp tiger +blur 2 round. pink_new maxima,4
+#@cli : $ sp to_gray ir. 0,50% +pink_new. distc,3 +negate.. +pink_new... dist,3 pink_new[1] bisector,[0] pink_new[3] bisector,[2] k[1,3] a c
+#@cli : $ sp 2 +pink_new. dilatballnum,5 +-
+#@cli : $ sp 2 +pink_new. asf,5 -
+#@cli : $ sp boats ir. 0,50% +pink_new. dilatballnum,10 +pink_new.. distgeo,.,4
+#@cli : $ sp barbara +pink_new. seuilauto,128,max,3
+#@cli : $ sp 1,512,512 colorwheel 512 +pink_new. average,..
+pink_new :
+$=pp
+if $#>1
+np=""
+repeat $#-1 {
+if ${is_image_arg\ ${pp{$>+2}}}
+pass${pp{$>+2}}
+filename$>=${-filename_rand}
+o. ${filename$>}.pnk rm.
+np=${np}\ ${filename$>}.pnk
+else np=${np}\ ${pp{$>+2}} fi
+}
+else np=" " fi
+if ${-strcontains\ $1,help} x "open https://perso.esiee.fr/~coupriem/Pink/doc/html/"${pp2}"_8c.html"
+else
+v + e[^-1] "Call pink package on image$? with execute cmd: \"$1 [imgin]"$np" [imgout]\"." v -
+_xpinks $1,$np
+if !0$GMIC_PINK_NO_RM
+repeat $#-1 {
+if ${strlen\ ${filename$>}}>0 delete ${filename$>}.pnk fi
+}
+fi
+fi
+#@cli pink_grayskel : _connectivity(4), _lambda(0)
+#@cli : ()
+#@cli : Grayscale homotopic skeleton (requires the PINK library to be installed).
+#@cli : Default values: 'connectivity=4' and 'lambda=0' (actually only connex=4 implemented).
+#@cli : $ sp tiger +pink_grayskel , +pink_grayskel[0] ,10 +pink_grayskel[0] ,100 append_tiles 2
+pink_grayskel : skip "${1=4},${2=0}"
+e[^-1] "Call pink package on image$? with execute cmd: grayskel [imgin] 4 $2 [imgout]"
+check "${1=4}==4"
+pink grayskel:if-uint8,null,$1,$2
+#@cli pink_heightmaxima : _connectivity={ 4 | 8 | 6 | 26 },_height=1
+#@cli : ()
+#@cli : Heightmaxima filtering (requires the PINK library to be installed).
+#@cli : Default values: 'connectivity=4' and 'height=1'.
+#@cli : $ sp car +blur 2 round +pink_heightminima ,15 round[0,1] +pink_heightmaxima[0,1] ,15 -[-3,-1] -[-3,-1] k[-1,-2]
+pink_heightmaxima : check "isin(${1=4},4,8,6,26)" skip ${2=1}
+e[^-1] "Call pink package on image$? with execute cmd: heightmaxima [imgin] $1 $2 [imgout]"
+pink heightmaxima:if-uint8,$1,$2
+#@cli pink_heightminima : _connectivity={ 4 | 8 | 6 | 26 },_height=1
+#@cli : (https://perso.esiee.fr/~coupriem/Pink/doc/html/heightminima_8c.html)
+#@cli : Heightminima filtering (requires the PINK library to be installed).
+#@cli : Default values: 'connectivity=4' and 'height=1'.
+#@cli : $ sp car +blur 2 round +pink_heightminima ,15 round[0,1] +pink_heightmaxima[0,1] ,15 -[-3,-1] -[-3,-1] k[-1,-2]
+pink_heightminima : check "isin(${1=4},4,8,6,26)" skip ${2=1}
+e[^-1] "Call pink package on image$? with execute cmd: heightminima [imgin] $1 $2 [imgout]"
+pink heightminima:if-uint8,$1,$2
+#@cli pink_htkern : _connectivity={ 4 | 8 | 6 | 26 }, _type={"" | u}
+#@cli : (https://perso.esiee.fr/~coupriem/Pink/doc/html/htkern_8c.html)
+#@cli : (https://perso.esiee.fr/~coupriem/Pink/doc/html/htkernu_8c.html)
+#@cli : Grayscale ultimate homotopic thinning/thickening without condition (requires the PINK library to be installed).
+#@cli : Default values: 'connectivity=4' and 'type=""'.
+#@cli : $ sp tiger +pink_htkern ,u +pink_htkern[0] , +-[-1,-2] remove[0]
+pink_htkern : check "isin(${1=4},4,8,6,26) && isin(_'${2=}',0,117)"
+e[^1] "Call pink package on image$? with execute cmd: htkern$2 [imgin] null $1 [imgout]"
+pink htkern${2}:if-uint8,null,$1
+#@cli pink_lvkern : _connectivity={ 4 | 8 | 6 | 26 }, _type={"" | u}
+#@cli : (https://perso.esiee.fr/~coupriem/Pink/doc/html/lvkern_8c.html)
+#@cli : (https://perso.esiee.fr/~coupriem/Pink/doc/html/lvkernu_8c.html)
+#@cli : Grayscale ultimate leveling thinning/thickening without condition (requires the PINK library to be installed).
+#@cli : Default values: 'connectivity=4' and 'type=""'.
+#@cli : $ sp tiger pink_lvkern ,u
+pink_lvkern : check "isin(${1=4},4,8,6,26) && isin(_'${2=}',0,117)"
+e[^1] "Call pink package on image$? with execute cmd: lvkern$2 [imgin] null $1 [imgout]"
+pink lvkern${2}:if-uint8,null,$1
+#@cli pink_reg_minima : _connectivity={ 0 | 4 | 8 | 6 | 18 | 26 | 14}
+#@cli : (https://perso.esiee.fr/~coupriem/Pink/doc/html/minima_8c.html)
+#@cli : Regional minima (requires the PINK library to be installed).
+#@cli : Default values: 'connectivity=4'.
+#@cli : $ sp tiger +blur 2 round. pink_reg_minima ,
+pink_reg_minima : check "isin(${1=4},0,4,8,6,18,26,14)"
+e[^1] "Call pink package on image$? with execute cmd: minima [img] $1 [img]"
+foreach {
+if iM<256 tt=uint8 else tt=uint32 fi
+pink minima:if-$tt,$1
+}
+#@cli pink_reg_maxima : _connectivity={ 0 | 4 | 8 | 6 | 18 | 26 | 14}
+#@cli : (https://perso.esiee.fr/~coupriem/Pink/doc/html/maxima_8c.html)
+#@cli : Regional maxima (requires the PINK library to be installed).
+#@cli : Default values: 'connectivity=4'.
+#@cli : $ sp tiger +blur 2 round. pink_reg_maxima ,
+pink_reg_maxima : check "isin(${1=4},0,4,8,6,18,26,14)"
+e[^1] "Call pink package on image$? with execute cmd: maxima [imgin] $1 [imgout]"
+foreach {
+if iM<256 tt=uint8 else tt=uint32 fi
+pink maxima:if-$tt,$1
+}
+#@cli pink_skelcurv : _prio={prio image|0|1|2|3|4|8|6|18|26|5},_connectivity={ 4 | 8 | 6 | 26 },_inhibit={""|inhibit image}
+#@cli : (https://perso.esiee.fr/~coupriem/Pink/doc/html/skelcurv_8c.html)
+#@cli : Curvilinear binary skeleton guided by a priority function or image (requires the PINK library to be installed).
+#@cli : Default values: 'prio=0', 'connectivity=4' and 'inhibit=""'.
+#@cli : $ sp tiger threshold 50% {w},{h} fill. 'if(x>w/2,255,0)' tp=${-path_tmp} output. ${tp}/inhibit.pgm remove. +pink_skelcurv[0] , +pink_skelcurv[0] ,,${tp}/inhibit.pgm exec "rm "${tp}"/inhibit.pgm"
+#@cli : $ sp tiger threshold 50% +pink_skelcurv , +pink_skelcurv.. ,8
+pink_skelcurv : check ${is_image_arg\ ${1=0}}" || isin($1,0,1,2,3,4,8,6,18,26,5) && isin(${2=4},4,8,6,26)" skip "${3=}"
+e[^1] "Call pink package on image$? with execute cmd: skelcurv [img] $1 $2 $3 [img]"
+if ${is_image_arg\ $3} pink skelcurv:if-uint8,$1,$2,$3 else pink skelcurv:if-uint8,$1,$2 fi
+#@cli pink_skelend : _connectivity={ 4 | 8 | 6 | 26 },_n=0
+#@cli : (https://perso.esiee.fr/~coupriem/Pink/doc/html/skelend_8c.html)
+#@cli : Homotopic skeleton of a 2d or 3d binary image with dynamic detection of end points (requires the PINK library to be installed).
+#@cli : Default values: 'connectivity=4' and 'n=0'.
+#@cli : $ sp tiger threshold 50% +pink_skelend , +pink_skelend.. ,-1
+pink_skelend : check "isin(${1=4},4,8,6,26)" skip "${2=0}"
+e[^1] "Call pink package on image$? with execute cmd: skelend [imgin] $1 $2 [imgout]"
+if $2==0 pink skelend:if-uint8,$1 else pink skelend:if-uint8,$1,$2 fi
+#@cli pink_skeleton : _prio={0|1|2|3|4|8|6|26},_connectivity={ 4 | 8 | 6 | 26 },_inhibit=""
+#@cli : (https://perso.esiee.fr/~coupriem/Pink/doc/html/skeleton_8c.html)
+#@cli : Ultimate binary skeleton guided by a priority image (requires the PINK library to be installed).
+#@cli : Default values: 'prio=0', 'connectivity=4' and 'inhibit=-1'.
+#@cli : $ sp tiger threshold 50% +pink_skeleton. ,
+pink_skeleton : check ${is_image_arg\ ${1=0}}" || isin($1,0,1,2,3,4,8,6,26) && isin(${2=4},4,8,6,26)" skip "${3=-1}"
+e[^1] "Call pink package on image$? with execute cmd: skeleton [imgin] $1 $2 [$3] [imgout]"
+pink skeleton:if-uint8,$1,$2,$3
+#@cli pink_skelpar : _algorithm={0...31},_nsteps=_1,_inhibit=""
+#@cli : (https://perso.esiee.fr/~coupriem/Pink/doc/html/skelpar_8c.html)
+#@cli : Parallel binary skeleton (requires the PINK library to be installed).
+#@cli : Default values: 'algorithm=4', 'nsteps=-1' and 'inhibit=""'.
+#@cli : For most of the implemented algorithsm an inhibit image is not implemented!
+#@cli : $ sp tiger threshold 50% +pink_skelpar. 0 +pink_skelpar. 2
+pink_skelpar : check "${1=4}>=0 && $1<=31" skip "${2=-1} ${3=''}"
+e[^1] "Call pink package on image$? with execute cmd: skelpar [imgin] $1 $2 $3 [imgout]"
+karo_frame 2 if ${-is_image_arg\ $3} pink skelpar:if-uint8,$1,$2,$3 else pink skelpar:if-uint8,$1,$2 fi
+#@cli pink_wshed : _connectivity={ 4 | 8 | 6 | 26 },_inverse={ 0 | 1 },_height=0
+#@cli : (https://perso.esiee.fr/~coupriem/Pink/doc/html/wshedtopo_8c.html)
+#@cli : Watershed (requires the PINK library to be installed).
+#@cli : Default values: 'connectivity=4', 'inverse=0' and 'height=0'.
+#@cli : $ sp car +pink_wshed ,1,5 pink_wshed[0] ,,5
+pink_wshed : check "isin(${1=4},4,8,6,26)" skip "${2=0},${3=0}"
+if $3==0 e[^-1] "Call from Pink package: wshedtopo $1 "${"arg 1+!$2,inverted.,."}
+else e[^-1] "Call from Pink package: heightminima $1 $3 wshedtopo $1 "${"arg 1+!$2,inverted.,."} fi
+foreach {
+s:=s if $s>1 s. c fi
+if d==1
+check "$1==4 || $1==8"
+foreach {
+f max(min(i,255),0)
+if $2!=0 negate 255 fi
+if $3>0 pink heightminima:if-uint8,$1,$3 fi
+pink wshedtopo:if-uint8,$1
+if $2!=0 negate 255 fi
+}
+else
+check "$1==6 || $1==26"
+foreach {
+f max(min(i,255),0)
+if $2!=0 negate 255 fi
+if $3>0 pink heightminima:if-uint8,$1,$3 fi
+pink wshedtopo:if-uint8,$1
+if $2!=0 negate 255 fi
+}
+fi
+if $s>1 a[-$s--1] c fi
+}
+#@cli output_pinklist : filename, _type
+#@cli : write an (c,n) image with c=1..4 colums and n lines to a pink list file
+#@cli : Automatic type: c==1 => e, c==2 => b c==3 => B, c==4 => N
+#@cli : Manual type possible: c==2 => s, c==3 => n
+#@cli : Default value: 'type=" "' (space)
+#@cli : List formats according PINK format description
+#@cli : ~~~
+#@cli : e s b n B N
+#@cli : x1 x1 v1 x1 y1 x1 y1 v1 x1 y1 z1 x1 y1 z1 v1
+#@cli : x2 or x2 v2 or x2 y2 or x2 y2 v2 or x2 y2 z2 or z2 x2 y2 v2
+#@cli : ... ... ... ... ... ...
+#@cli : xn xn vn xn yn xn yn vn xn yn z3 z3 xn yn vn
+#@cli : ~~~
+output_pinklist :
+skip "${2=\ }"
+itp={'$2'}
+ltyp={'ebBN'}
+if w>4 error "Image wrong colums" fi
+typ={typ=vector4($ltyp);typ[w-1]}
+if $typ==_'b'&&$itp==_'s' typ=$itp
+elif $typ==_'B'&&$itp==_'n' typ=$itp fi
+e[^-1] "Write pinklist typ "{`$typ`}" with "{h}" lines to "{``$1}
+($typ,32,{'{h}'})
+o.. asc:$1 rm..
+i raw:$1,uint8 s. +,{'\n'} y rm[1] a y
+o raw:$1,uint8 rm
+u $typ
+#@cli pink_delaunay : _mode
+#@cli : Prepare the delaunay triangulation from a list of coordimates (vertices)
+#@cli : using the external program pink.delaunay, no test for external delaunay
+#@cli : mode == 0 a 3d object or
+#@cli : mode != 0 the vertice, hull, edge lists and the adjacency matrix
+#@cli : Default value: 'mode=0'
+#@cli : $ 2,50,1,1 rand 0,512 pink_delaunay. 0
+pink_delaunay : skip ${1=0}
+e[^-1] "Prepare Delaunay triangulation from$? to 3d object or set of lists ($1)"
+filename_rand nn=${}
+output_pinklist. $nn".tmp"
+x 0,"pink.delaunay "$nn".tmp "$nn".del"
+input_pinklist[] $nn".del",$1
+delete $nn.tmp
+delete $nn.del
+#@cli pink_asflin : _dir(x|y|z), _rad(5), _radmax(0)
+#@cli : 'asflin' filter workaround for 2D images!
+#@cli : 'asflin' works only in 3D images (d>1)
+#@cli : 'asflin' is called with dir,rad or if radmax>rad with dir,rad,radmax
+#@cli : (https://perso.esiee.fr/~coupriem/Pink/doc/html/asflin_8c.html)
+#@cli : pink_asflin (requires the PINK library to be installed).
+#@cli : $ sp tiger +pink_asflin. , +pink_asflin.. y,5
+pink_asflin :
+check "isin(_'${1=x}',['xyz']) && ${2=5}>0 && ${3=0}>=0"
+foreach { d_alt=0
+if d==1 . a z d_alt=1 fi
+if $3<=$2 pink asflin,$1,$2 else pink asflin,$1,$2,$3 fi
+if $d_alt==1 s z k. fi
+}
+#@cli pink_karo_zerleg : eq. to 'karo_zerleg'.
+pink_karo_zerleg : karo_zerleg $*
+#@cli karo_zerleg :
+#@cli : Partition of binary image zero areas
+#@cli : using pink watershed (https://perso.esiee.fr/~coupriem/Pink/doc/html/wshedtopo_8c.html)
+#@cli : Author : KaRo . Latest update : 2017/11/30 .
+#@cli : $ follic pink seuilauto,254,min,5 n 0,1 karo_open 3 +not karo_zerleg. not. a c
+#@cli : $ sp 6 to_gray +threshold 140 +karo_zerleg. a[-1,-2] c
+karo_zerleg :
+e[^1] "Partition of binary image"$?" with pink watershed"
+foreach {
++distance. 1 round. pink_wshed. 8,1 f. "j(0,0)!=j(1,1) || j(1,0)!=j(0,1)" skeleton. , or[0,-1]
+}
+#@cli :: User KaRo's CLI I/O functions
+#@cli osteo :
+#@cli : Load osteoblast cell image (transmitted light)
+#@cli : $ osteo
++osteo :
+e[^-1] "Load osteoblast nucleus example image"
+l[] { base642img "MiB1aW50OCBsaXR0bGVfZW5kaWFuCjEyOCAxMjggMSAxICMxMTA1MAp4nC17V5Mk15ndv1NsSLGUQlotKIoUl7vcBUguQRgCg3E""9076895VZlWWybJdrOzM9GO8w3V2V3nYDUoRCD3pQhB71pnNuAYOZ6KquynvvZ853PnPt0Hds2zYc07dsWzccx7QMy7Mc3zEs/O""eYju+armm7jusYrmVb+LxpXweG43q6Y1lBGPBjtm+5vuE616Hj+Y7j2rYVup7lXoe2xXd+9Fzbc50b18eCvu3gY17o2x6+Z2B5m""18wLVO3sbSHnw3ftd3QsFzDdV0by+q+7zq25jgOnmRdO7rpBwa27HM/lhuEnu/buou94gMhPoPVsaEwcG3fc6wA33Zv7MCxQ89z""AscPsR3XvrE9nNDULId79i3dCk3DNXFW39E8l3vD+67PHToUjovX+Jjr6Lbzk6fbboA3LBv7Dn3X903Ldl0hAQ1bCiG8MHRDLOn""5oeXiyIFtX984ThD4NxST53DTODZk4Jq+h2UsXfM8CzI2LaiAp9YgNNPAFkPL0sQ2LdMzfMvHMV1Xd8Mbx9Y9C295OB/k4lxDpw""Ek42AZ7CMwQ/8mDH0PO/ScMPDtILzBb6AFHATqszUc1LTxGNvxuJBjQQyWhxempVk4HHaGMwSB5buajZPQHLBLi3rzfwpcfIh/f""M+3aTbXHlQcXnvOj7bp+V7o8sg4v+8HeBiUH0D/N9f4l8LGF2FA9iqkicHwbFgGTBJC9z2IQYOSHNeFbK75nhMYboAHUgcWNuRp""KxoF9Aidu/ie68AWLdMOAhuygA6CIHA0aBFbCLBBbIii8bzg2nUhMcfQIU0HpuM7ED5U7IVQowHrhkVbwhFcz6RX2AaMwMGxQ+z""D8jydKrVMM7wRrhFCYoYd2CHU6lq03GvIx6ZF4MM+rBBGAzHCCXw38AOKyXUta7WC5CEpF6fFko5m0SBxHhzH49dN78Zz6EGQO3""YBq8OWnGvICrvzfNcL8NHA9OwwwNc8ODN8gEv61/iIb1P/jun9FATe9c21H4T0A+jlmmtiLU0zDbgfN6tZtD5uHltyaP+Qrhlwp""zgxvJeg4Bv4ohvSNA2T1gBjo/lDttAPTAxui23CkmA6+Mnhh2lGWPc6vKFhwQ1hDQ5RAYsZOnzPpRI0OBe0jPPZ0JlJaAEmuTok""H3IlbIHGBd07RAao0bbFFx2civIxIAPIFB7nONjm9Q2MyQNI4V2HPkDTA4Bx04QfB/blGnBDrATFOjB8n8bv0CrxC8/E/kxXh1w""CvgnfcBw9gIQJhboTXtu+ZsA+YHi+7XMHIdVtwegADj7OCby6gQB8l4brw7ucAOJwIQ5PA9Bp8P8bR1suLXiXb+DhJtYkLlkGVo""dl2ZZnawBoV+AkdokP0NCgGN2iHE3f13lAgJ5h044DywiBOCE2QQiBvTn+T7B6/ybw4A6wGBf6Cl19iXUM0wQMrjRdh2tammnCv""qBAQh5snu4JNLYJfoAWIAKfDpkZIYUAs4fD0De8kPaBTRu2AVe2Q8gWHwm9gA5vQdkAEezjR8+iUbg+IRt61hl38C3T0CEUxBqT""GqUfUMWwA8gW3zTwEVgMDO0GUoFe4EIudmPTlDRb6Bw2Bw0EGnSDXQcwLB6bLoS9ucAjbsW7hp7gKZZ3ExpYCwiohzYs0NLwXbg""/jmoTfvkKYQxuiFVsgUD8Cz0IQKAbGrQOGKqJ2ACliHhkwd0AS0RsmCtACV4Ab74JYHzXhAiX6AV0gh5WGlby4biuuQTomnAugR""QebAFOhAUDW8c5KAXDCm8Yf6F9ABYDJYRlMNZBM7BFmJdt8NcQrWMiOtLSfJgJ/B0bgTECpvAObRIfwxKBp9HP6Mwm/Y8ygAf4l""CLcCqsTHiAIWJwVQkpAl5DWxOiKncL1iXgEO56dUAazFFyBisTmA8Z/OqnDNYGrBJab0L2BEUEYNGd4k+Ya2lJn7LOJZDpcEOqC""zIFpdAqxGqSMgCpkRwTAviEu/ugRdSxipSNIiEdDcEPqPqSwfYZZyAqxz78ROPYTtCAoAwgFnR4R0DBXeBAYhUZV0vtwGpN2z4i""PR4Mq+O7lEu6EDVlUAOIC7DK4sekeRGHIAc/ATzBhxGBXfBUBD46B1XwROAKsjHX9a+IfzEtzNQPHxbNgCUAAy8A+CBkEXxwEbk""Yf06wbBC9b0+DTYGQuHBOhDXYAVUFCcB9om4YJzuVdW4auCbAChGGNAFHAA+CFhh+CDUAi8AaiT0DNWUuYvQhtmgEChW24nliRk""rIpHrqkQf8HemFBHXzKCYkQWNqAhcNADI2mD0eisVw72JhLr0N0cgi9MGXv2vGBWlAAQBj8LrixoA3YFegUAr3taCb9D+YH6oTD""G1QitB8KxPNgJKZBz4CwiYDEZHJT7MGAwdD7oZrQJCAA9ACYcFXKkXyGBhTagDvfu8HpIF+H2gxpyDTEkMdf2Qy/3Btjl0UeAhG""QFwLs8WxDA+BgSwbDMAO0RX/DRvBhXTAlOCFWgwtdu0JuvuAt2CRkABSm6cMqEfhDOqEj+JQpwCSE/nTLX0Fc11Ql+B0olUZnJx""bSpmiPtgYdm3i6oKhgx5pBxCPpDOENts64AfOB7hlVgXDC6mGEDsR8Q/ZnCxrKXwFV8FLjt3hiAxHEEsexAIpYELFNoyTgDpoGv""gxGDIegpsIVVIajGnB2GACNxKbbI3TYgtMi1nPf8CeSh4DYA+BGGIatIFRB6tcu0QD0bWm7eDrsGnLzdbB83zQNzQp46iW4I+Op""B3p7TZjCmpCWb4GugtSYZEg0UuQhQE+X/AFxEryG4qeRQ0yQZgiTg0GAnpGnIIQwdDMAYkvGiq5vC1Jr25oO7kJCZBP3zNXS80E""7bq7tlXAFDQIE1we4imhj28IK4LFgm/BTAqXHVIDMh56B87o0NUgM4AAO5RP/QusnWkkYEs1dHdI26XYeTk8mK0wPX/EQxIRUAV""NAfGFrobcWB4KP6ZJn4/w60MZe2uBhMECRNtHzEUlxcjMMDUgZHgG9OcwY4AkIfCBhAAWf1Atma5hLhlysbwIE4IB8MI3c5RnwN""YNCJDmkiejgqTgo5I0wvzK0lbb8aF4uzSVMmczfWEMHExJ4NJBfkHVoHY5mIx1EMLw26UjQCk0XusOqMPEQp4DKfZ6L/IvxH5tz""eKTlDbbgCspFcKfUTePK0D5evHr96tXrNy9fv377/goUwiGEwygheFjYFaIuJQagoPMhEpBr0hfBGOD+zJ5AOqBwATS6bq+WUB+""5OASPLSEY4DRIJBGaSQ6Br2sCZltXb1++ffloMT86PT8/fXx8evL42dsPS5AATYQmhlyLdsXcx9N4Cp+ExmEA8snqSGQpW5OMjS""LH9zTLWEI9hiHCHCGGCSpXtZh24yH4EJIF7YdXT87np5Oh0hkfHs7nJyenJ9PZ/PzFyw/LK3gBNnENjRHX3RuTTuqSpYnnMQukc""4If0pwN4Ue6ay3hzvAlE1kNYZMpACBw6YhwTlq8hNUiYLrWx4/PpgeHi0W/Idc7g0F/0F8cPj6cTUaL+cnp0zcfaKsmucM6mgru""QEMSb93c2P6PJElMW0Cd6FgWOSsAnnFTiAbb1hwdWkS8sag85LDuCskO4uHyw4snx93uwXyqVGpNddhv1ZuT0Xw6Hh0Mx8P54ZO""XV2B+S939iZUB/I/wQ+AzPcASgp97TTKA1NilbOE2huGRqJFWLfF5nym0xZLI0mLtwxGOzk2BIOuXT09Ojqfz8WA2H7Wb1dZ4OG""g0FXU86PfUbrs3WSwWx8/froADuihk2BAxsArRG/HApfeDf9MhYYQ4jQ0GCAMDcuKYHgsgiDsaeT6IzQq4YTCqmmuwMe2Pr8YNp""TcZjwaDXq/baUitdq8rNwfDcb+vtOVmb340XRxOpy9XtqmxRGMJpsaSi030N4FviHfIexzhDsgjNeKGvSILIWHX7UBb0oWxWZAN""iB1hm0kAcH559eaonq+0Br1Bq9VoNTvtRr1crNYbg8lsNuzW5IZ6cDQeLdT2wdsrCp5VIS4Nj9W5HEQBzgEQZAbosDwBBsmykgn""dOgYz1RUYrEXEMEIYBJAQORPZOP5orx4ft5uVeqvb7zUbSktut6VMNpWvtaeD2eFEzhcrynACJXTk8dmrS0qOgR9SJX1GVKILIl""A6pGRgMGAznsk0h14I9zCB4IAAophrCo8Dw7oiq4RD4qdXJ5Oh2pJrzXZv1Gqp/Zai1kvFQqUzOITxjavRZKlWqZYqcqM1Ofn+7""QedyQuiSsCIDjtgouYKc/JYNrpmgDb4K1YyYIw6QGbF8htDOfxVI0oh0iEquoZ19exwOux3ZFlqdzrQ+qDXabZbdbmpdIaQvlKN""PIjmC4lkPFHvdueL4/Nnr8jmQ5JQhFPoH+izrs4gDCOrFlzEYGoF87OYYiPmYn1Y5lJbwmHwKfADiI659+WLk6PTaavRbHa7E0l""SB/NRR2oP+m21JrVGg1Zp61/+uJHN7u3G8p2D0fFsujg5vUBUIpwDbwJRqoM/M6NegyECshdolxapo73UWF9BpmeSEAJEVwJ0YH""bIAMBQrl5Op8ePZi2lPRgsDpSadHw47bYUpd2VIJFWV4797m8/uZXKbG/uSAfz3sHBdDI8Pl9SAyajNQzBdEBEwLlBQaGU0Baa8""QzdXOr6laWTTzKqmqaoXoLiuPRHSGDlmxfPpsPp0dGw2eoO1HGvVpBnT6ddqVauSPVOu620a3u//Zv/dKeQ2NmONSYdST2aTnvj""k5eGy4IWVcyCjk06aDEdhGuYYFTIQkFYwD8c0mewZvvSFuHTEjVPBl7PR2DVH43U7rzXaytSTZKajXQyr04P2tVUNFtqtQb9lly""J/Osvf/VNPJ5OlJRupaBMF/DDkycfdVuUJEiYQ+IvyzQEdNsSURBsTtMtDZhzJbKfJZNAQ/B2mwUhyI41secTRW6rnUatXszn87""lCPJktN+V8cncjmWsoo2G3Wc7u/fWLv9yNVOrNjlzaKyqD2eL46PSFTtwTQOiJBBXkE06NdxwmE8Dha5o8/mjchKnpLB+ACttWw""OQGb1n26uW0o7ZUpV6ulPLpdDSeiqUL+XQ8noxu7eebjf5k0JZLxXJ2dyPXqjWG/eJeoqwenj06Wpz+IHCXbC0MSKZAPAxScdaA""sRlnFforx7xyWGGGKzgr3RH8HlZoGzokAjk8GyuddkftK6VqtViMRqPJdKqYSEWSBSm6G5cHkzGQuDMcDpRKW6m1ev18PFHqjOa""zwWj6joEUqSIMXgR9pIOCFBOR4JUOUAreuGQKZJJBknqs+A8slvuBZ7yadPCfMhyo1VKpWErFEvlMNpnYjmeVeja2Xz+YduVKa3""TyaDFRhm25oyrZhARsqjWl7ugpE0mAQMgFBQUAE7RuWEKkDMAkcMIVsHVFLwPzhmGsdEid2beoRr/pFmqdTqOhqEo5nU4Wk9lsJ""pWJbd/bSBWzO5FkedDJpXL10aPz6UiR62VZqmQKShfGmSvL/aMLfwX6BK7BPMldRwPWQMiEgM8m8v4VIBYxD54oWg5Y3AIN0D2G""JPPjYSbe7OPJtXqhGInEErFIOpPPJ7c//fTb7Z3NvWi2ktnaS0nq9GTSqhYz8VQhny225Go6nsiUG5MnGkvalsjDYE4O+wOIPiC""e3o8eXto0OQGAlJTBVMgKL6AveIKu2avnvURCms56Uq2USezHstGdvb1irpSPfPZ3//ggAnePJbbvbGVbo+l0UE3FU7ubO5lcVW""3l9rZ3o6lK5/AVGYTGSqrPSOcQYJFSYrWbayCMpmmggIQfEDfkXABbkPZLRJwryMB6t2hWyvJwOu7A9eKb2dReZDdZKOCgt373z""1u52G4kGn3wIJJX+pOFWs7m8pHvNpLlxqDXSG3d34jL7dHzpWmsOTUDCxOIkLkQE3lYhSC2/IMIvSLDZedBlLtI4azVo367U62r""B/DwUiYWK2RiyXgun0qlU5E730Wr6WQinowkMoVSXe1K5WK9mt+4m2zNTidKKb51Py31ZudL8muH/oQkLBAE3lvzaPB/cH9m3dA""D/sIHbFggJA8eAMdxzDdn/fFQqUitZrVYL2bSuVQyWYSSt+LxTDaXazWq5Uy2Uq8UktlUIZeFYHKbd7KNw8cDuZiJRsqdycHjK1""aiWIS3SP9Izm+YBDIbZdIEo8BJDZJ89hyAQwZyEI3lYPfNk9lkNmm3gPP1ulxOFzLReK5czW493MtU5Jrc7XcrqWJ32Kqn0/Gdn""WRify/ycKvUPRi0iqVyrtJEZH58wcyY2RSLfDa1j5c3rqAmon5oihIcMZoRf0lduMiFVvrqfNybnRwMO1Ix36hV8snE3u5eFiC8""fW8rXaxmClWpXSjKg2G/WcjF79y+s3FvY2sjWQclrdZrNRADtTd/8molSiCOKMObJP5g2SwFQ/8WPQ6cBxm1ofvBUqedAovZdjE""vXhx1uoP5pFPLJ9KZXCqxtXX3u+1MpZje23ywn4zvxTLFfFFq9/t9qVqI/PVPf/n6u4fb0YIym1VKJXk0Phi21YNHLz56jki6zI""BlRCahTJAgDutaZFf43yPYYDMaHMVaabrg3B++B6Z21HYhdv+bzVgqsvPw3p279zbjyVT04e2vHmxubO1li6V2f6iqTbkQ/fZPn""/3l9sO9nKT2u1I+UVUXh4t+dzQ/v2KZiyGYLUFTdPR8NjSXITt3EMU1eB6kIRAAvIO0CQFJf3k6m/dlqRT/8ne/upUsZVOJRGLn""3nd3I7H9e//62a3Njftb0VyzPe2pg5HSiNz5+svvHu5n6x2lVSlkdzP1wckCOcLoXAtZL9IFvoiMLKTHkQ2BcJu6MH0onxDoeEv""8gOgL/vnu0Ww2gt8rsc//4ydfF+VmS2nWsjv3HiaTO1/+4Q+3d7dpDWWpOxyq/XZ178Hde5EiMLfTrBez2eh+pgkFjHvjJ2xWeC""x0w7BYjkCeBxbg8vRQt8GYzw6g4ZlsMuimaATby+8Xo2Gn3VI6xXv/8Nl2qdOfzsaNcjoWz6S2b//lm3s70f1oJFcs1jpKs1Qox""Pb2sKRcydVq1SKIUDRTarXV4Wjxmu1ZlkcY9EUXySK7tURl2NBWADufbUaw4NVqnQnrS9v+cDQcdhUFZL+dfLhXlBvtydGsUUkn""c9V8ZHtzaze6/eDhRjybydTq5Xw2ncjkcyVFKURjhXwhvb2drtdkqdnsY30WrYDCZEJM4VmmvbbFa5wb9GPp8MzsxLDKiRzI1XX""z3aTX6TXa7fG4W8/WlGa5UOv2mtV4PFsrpna3o/HE/q2vv7q/E88XCpliIRXP4+hqM7cVT6VS8c2NuNRWqvmSOnlvUuowfV8QDz""iAt64QsTENwAO/IgroRmAj42TSDfnoq1ezblPt9bvIafuSJNWTkVS1LeeiW9FCIRXb3U5kU/e+/Pre9mYklkrkm/lIvpgqVCr5v""UgmnYwiULbHIEIxefEOJDPwA1GIDNjUYRFad0U3GLmQjiRIh/BXgGPWkMwQqbdjvDufqDUFtBMZ9kStF2LbO9maXE2k9nbi4D7R""SKRYj2xuR5O7D2PRaEHOxbChVDINfRQSERDR/GAxKO9slqYf2bWzb8CwQK0Q/F2WMVyHFUBEWZedTxCtnzvt624MQuL7R8ira82""WJDcRTSrx+Fak1JKy+/u7WzuRRDoR2Ss2qrVsHrAQSSdy1VxkOxKNIwCWKlI+lcyVSurioJWJlecrh2zKZp2NrPrGYjQUlIAFJi""R/WsjaM/kW4oBOIIK9vD8cSI1SsVKt9+ZPZ7Duh7vFdj1ChI2m45l8EuJo1uug4HvxbLZQTD3cvHN7K50pSqN+M5eo1eqtntpqN""trnWgB/u3HE6VlbBNhra3Lls9kGqPetlQH/CJEer3B+VoD1V0dKvV7K1wr11uhUzUbi0b1sKbd569sHyUy9UIMhRhANi7kkzp8t""NIuRB3e/+fM32+lSd3HcrRcbnRoiVrM7XjzVOfHAFMhmEhqw3sKMSDSSbdY+yPK1JQMQ0HfJUrZlGs8PukqlDDwpScOeFI3EU3u""JbOzO3duRvNxTuoNmcu9hdCNeSCSSqVKlVog8uPPd17f38pXOeNSQ5M6wp1RqnfH0yQeGXdYB1qbncoKD/RiGI5ASgI+NtTWNrI""9MjAF5ZV89Gvb7Mvh+PSPL5Uwyure9H0mlt+9tp4vyeNjr17YePHxwL57JZPO5uiLlk/fvP9xL5XIIlI1aVW7PD0fV+vBgjvDL4""QOWqUVT3WAx2YGts7wnyrguN2EsberHMkXaCYc4afUGcqNWqyUy8Vg6fe/Pf74HO9vZvp+Sm2q7Ucs8uH1/Y3sfhpZOVpR6pRLd""3KoB/qrlUr3dRkq8GLZavcnh46uAehX8FyGPNTGHZWw2mtksZ+nYYe3PN8l66QfAIO3qtDtoSw1Az+bGXjwT/+N//eQv2/FM4s7""n9zIVqVHO7m9tbDyACZTLiZ1SR2ko+Z1ItaZIDbnYbDaUjqL0QNkPz16sRMeHyG+JXoYJFuoZtAeDNkFYZuFVVD/Y91kyOVt9OJ""t05WanW9q99VWspNz75N/+h3+8H83lvv1vv7+bair1dBIb2CtKkDxCbbun1qR0NJ0FIWlILWTFXanV73bbJ+dvDRb+fTG3Y5Dpi""SY762Kk2i7L5EgydLauBA1kFR7y+fho3C2WWs3i/jdfbTXa9/7+F//5n77bLZS3P/3t53u1ZqmcTUT34xV12JHlYq3Rl4qVSiIS""yVTq1XK1nK/2emDE497J04+iKwwZBzBrIYd1R48VGNG9ZkHYFGMdBjPvdTHSXT0btGqFZqMU2fj6blna/PQ3v/7TfWR8qftffJM""sV0GvisVkqjk+GrarmXxdyaTyUiWXBf5GN/fy8UJj1JuezKfT75ceUR+kkvMlTPlc0TKH6wsPNMWQFSgnm46scLJ5j5xTe4HIX0""f8Le3f+mYvu/PtZ//8bTRbyCV3djfzJQi33SwXS8rRowXXz2eSu/tVtVmtlfZv//Mf7+7EmoPx0fHp0dnLKz+wnKUYJ2Ehy2Zj2""/U1No9EW98SIzyB4eqixUGMZEnYfH2gNKTB4VyN372zvb/z7edf3U8Wq9VcEbS7rIzGPakuy+3hdK7KNYDwvbubVbUjFzI7X/zy""7z+7nZB7U2T/r59fsJvh6CD+uuiVccbEgP+zOccCkytmTkxmmpaPJJQwiYxAMz6etarN0fH5pLgDvI/e+esDZHZFua00i7GUgow""fAAu/Hw5ZlIg9uLOxVWoriMSxLz/5L7//Ni71BqOj85fvbDGNxvyDDZuATWpf9BXZ3wbV8kWvy9DIi+3LpZiCY9tUWz5vy3J3cT""KrZtPxQiG+myiWCvJgMeyUt/YaB0Op1Gx36ojx5Szi3YO7+6liVaqU69nb//T7zzcK7eFsMD179s4KnIDM32L500Wqr7MBb7GqT""bRhxIMrcAID5HjF7FuMTxjGxbOu3Gr3+u1arpDMNyr5IsQ9mS16jXwk0Zz0S7mqVC/VG9Xk/u7G1sPtSCKXl5rSsLJ1+7uNRAN5""w2hy/OzCZSndCkVNHcuZrEc7ogiIDEjMftH+QUI0zsKwbUYWCoy4eHYI8lcuFCq1dLrUlvO5Qnt8eDhSa/lkptEdSAj0qf14Kpu""M7D/c2NzejWeqrcFo2itmU/lKW50eHh29eL3iGCGJBjsOol1ni+aOKVoh0LarG6LmxvaKI9JvWCLL9stXp91OJRePy/l0SupIsb""14qXt0Mm7Wc+lctt5sS/ly9OF9pP7ZVHz73mY0lq10pkcLta1IVUlSZ4fHx2+Qz7DdTMvmXAJtXfS0YPlshYFqsVtlswdEZor3D""agGX9L15cWjVr2eScZSWxuFrlJMbD9IN3u9rlxIpXLxWL3VVaqJh199fi9WzmdSif00zLN/PD9ot3vtRl0ZHMyAvXbAtg7bPMxn""RIAB0HrWeoqBTQDTY+uL80bs3It0VNchBE3THnVqFeS6ia/+mm0Vcon4gxRQpxyLJbPIgiutoZrb+OK3v/70fjIP2lvPp7Kl/mK""kNto90CZ1djB79BTMz6KXie6HJSb06Gu+mKYD3fVdbynwR2fXURQFOc7CYoipWRdnrZok1bJbX6er+WI+lchWy6n9W7e3kwhyjU""5Pidz9wy9+8Xd/3IqW1IN2qViqtLq9WrNZr9aqHeH+GqHUY2fNFAMzPoiPRyM0PLaWXBa6Qb6RfPosO2iMRhSYwQTEtF4etFqdT""hPMvlBXmw2k4JW9W//wuz9v1dRWvVJS8rd/8zf/5pd/2IrUJ6xAVityR5JkuVqqFRrdg+n5hcB7ED83RKx1WMkG1JoaB2hYXmM+""KITPpgtEABPUPVGpFdOX2tsjtd3rdsuFUl4ZjLoIZ+Xdz371t7+6nWthkWqruv3bf/eLX3+zm6h1W41mOV9rK41SQ6rKjaY6nx6""/BK/0mPY5ni/wDUo2AlFWsVdsFpsWh1J9Y8lZF6iD44EMDvp64lVbPe53+2qrXKoVlZNpV5Zr8W//9Mm//+TLZC1bKBfL+eQXn/""zyXx4mE/FKqVzNpytyt9NsNKROpzs9RdpPwmWy1QADYG2bXVAaGotvhsY+KaflnKulmD61rABJsKkbLMgDqABGr2bqoAeyI+XUs""6GUyUQe3vri09/87s/72ejeXixdVmJff34nloxEUsVMNZcuSMNJry0hIZ2cPX/5w5KDwUBYjiyIcTaOt7KFL7Jxg61cTg2CfCDh""01wxT8RJCsu6BGaYS1DCs+FwPBirjWpz0sgkt3Z3N7bv3vr8r5t722BecrtTSGbKpUIimSmWi8g7mtPF0bQj9UaHp08/6Dr75sh""obzROh9Hpr8VUjeV5pkhGxGyHqAljA+wJIAfjXo2Vxg4maOD7k6PZwaiv1mvVQjabT8aQ/EY2N/ajlaLcGfRb9UanDS5YyGdqlX""Qe5Ofo9PGBOl6cff9Sozmbvm6ysWgw3tL7DRGIXFa9BANHys3f0wxZdrBFMwi+iQgBOViX714/ng+7g45cLpelRiWXBNgUcnUZx""HrcUzvthgq86YF9Kq1aqVxvLh49hs7Ozl9fcEyIhxOERkz22iwssK4thmtcGgNnX2ElLPci9F/C9AE9CD+eGIBjW+L994eD3rAt""yeW62m8W8qW61GgN+h11Mui0pXqlpnRGI7Wq9sYduQTNL+bTyfz7tx8Z0T3WejnaKxityGx9wiDHJkQTip1NOoJotRH7xMwe/pp""MiK0l++fvns6VpizXM+VWR27WWlK72+n0anK33ZVKeTC+5sFYlTrj8axfaw9mo9Fs9uTVh9V67EaMiJpiUGvJ6ZSA7McSSYZGIi""ZUweEQAo8YcTSREGuiDM8ZaOzr6s1Jt56vlgo5QEuTpFaRZKVWazTrHSWPZLg2mnSrjcnh6azTGR9NJgeHz34A32Fvl20MclymH""4YjulqXl5fMOzzuyTU5SMbQwPkXDhpyehPnZjuQEz14jLv6eD5sKyx+Vyut/vBg3GvXSqVypVGpqQM5lco0htOeLM+enC8G3d70""8eHRk9crTmtzpswMcVwDNE/XRR/vYhWuLkzfFhO+BlPQEHjk84WwNxaKOUBBYBLSQGTU353PVLVTy6dLyujo5GSiSsV0ptKUKsp""QrRel5mix6HQGp6dnk35/dvTkydslx5JFdYV1TSYVjrOEdr3Vu/D//s+3K0eMkop4ZIshX8G/fh6asVkNByMSsywgrpphvn++GK""vId6vq4dHp4bRTSWVBfpDytAe9ptoYzI5nMLyTUyi/u3j27oIpHed8TeKqxrl9rAKK71+9D/7f/3p/abHEF/w82eaudDGCzPIYh""0aJAe66/2oHhs6NaR+fzrrVZLo+XIzG45GcfBjPlGCHg+54Pug2m/Pjo9Fofvr88KDfXbxfMrhozLbAKnx8nRIV9czAeIeQ8EEP""HQH9eIvZgMv2NIeE6AQarxxYnMoUc31UE6Bg9cOjA0VWugfjVqffkyNb2/Fiow9lHMzaHaUzOT1eLObnZ/Pe6ODF0l+PyzsrpjU""ch7TFfKhGynl5dbUydMpYTIkaLIXQ+8UUiLhlIcagiBv0UZbHANa6pb9+OhpOcPoOwFDKpVLFijScHT8+HjTljtI7Ojs+PDw+Op""wdP78C3Bshb3ms2L1jXRdWtXLE/Izlaks2xLkuV8YaGjvDGuQFj6QBWrzHAAoqqCiICB6AX5mXPzw5fHSy6I8Xc7UjVZrNVmM8O""Tg56AF/u/3x/Gx+eHz65Ol7UwsczqowqfYBvuQShi3myQ1mnRwwtTluxUQDxyYxp8VxVB/Ap+tmIEpFbLyt12dMMixdu/rhxbNH""k4OzOUSudlVVnZxOppPhsIcUFMn+/Ozs+x8uYfMmjN8z9RWb2TZbDjZFb4hrBERdvgbm+4xIhph/BgxqZB1LSEtjHGQVQowBuLx""WYQjwNFar5ZsX8/nJ8VhVBwfd4eDo8dlsuhh21UmjpB4/ef7u0hDDjw7oY+CZkKynMaM1BOlj60FMeBqkJKC7OruRZGVAA80WiQ""gB2EROQP6FF+vJG77ChjmMePXxzaMnL456o/licHAwOX16dHg2V3uzjjR7dvHxkoyKlTXf8DizgtUDHdBiaqLwbDLZYbXHXU9ow""TkpHgrCXo9Y2MaSlzc4N7nOB0ShgD+LgpljXZrG+4/v3p8/esSFj86ePj07//7s8fPzx+91JG4rOhMzKDY3eCkBT14JIUCegv0L""EkwGwNSfg0nkQjZ7EPa6/L9kP8R2A4cDpUjC1v1nUkTEA6CCtdKvlsvL92/ePH/58tXrt29/+PBxuVxewUc9IJUlxoVdThs4gmn""pAudMdvhXrHTotHVDVABs3V+PA9AsTcYfh9MGBtkp2bl5TbsjUjGIOniSrzE3XOlw7aW2vFxeXV5qGm3VsEPdNHgFy/fELRwKFB""pY8Ug6/JtKQGRzrjROxBh8jvlzFqI5SA51k5ObhAWXRIFFYDEzwcPjH08HK9QFe7ZFHqObps65PRGxXVNbNww5Ax0IXSPe2Ov7Y""3Qq2C4INfNs0WwWLIc470NnSHZcDgBj4xr90hTMjLPIhr2+luZwBA9QunLgDCYDh8ncgIbNqG6yhQ6ghgw9iJfXeEISeWQ+YjwS""h/A1fS0UqlGMqcIUEQ94nUTMCnK0HDGIV7w4xr6uCHISTeccHkdAwNoALKJJbNpLzknzezq1AqjSeDwe19V9/sx8NhR5vG6J8Eq""30jhPQzcjuwstUWUW6E8iwgElbg7HCjiVxloQr5rxThgnxEmYebGDXJn8zBaIbXNpzuuzi8S8ArhikmHymhSplSn8TIxyGGv6b1""HvbO7zIgMYB+dWeUGJCQ87Mzq/5gievkZjVk3tpdgdwWUVsI/GeC4yeXqpyWt/vPpA9fAH9nbAc7AXcaEIzFrc3OCeHF4bFIUwZ""IMa461JLmKJAS8jRCxC+KUWsFP2xSkgqsv+uTONhznEAkvEMFPABSFPTMkT5mlziKwXOMCK8KYJQzeJpwR1JB8aFtU4Ok5WzMsm""IsRyD8QpzrELbsiJPEY+YgV7M6BiITNIkcmbLBXSRJg7uzorBqYeiqsqnJ639cv/8b+vP2o0Q9IqDpITG0Xni8Sb37bFTKXl6SL""QQHLMPYCYhEPOwHECwRVm5q4hkD1TXjozxYgE9ktrp6RcXljER0LOWRJdbG354//576sVW02seZsrVleZ7wpT4HAJAz0BStAPMd""6nk/BxMpVzaMbPhBjGoXE00eblE0tEBA4scDtiGpbdMkdfcmhds3njxueoOnimFtqaE9KBdQ8Bhw5HhyKUmYbvrmd0KRc6tJg+E""AUgDqTr63unLFCRgHJ/OueOTd5CJWLYy/WHQR00W0QRsiZLlPMAVWJ44PLCpPex1LCirZMKCMLhGevUX1A9S1x0cIUpQ1r8rqHp""8CF6BMdudXPFS6Eig3A4G/ozmzM5mUiH5IgtMliLeheUYklrNNYYrIt24/KDLZgc70pYorxKQ/Z5f8oTd1w0cQWNOZhGp3Ptda2""Gd1l1c3npMQRwO4YQO4yAVyR00cWkrMSD+RmDNVyCj6hg8+KguApmCzIjNM4eGIugpAE6/RkwiLd8uo0r8MRdO6MNJuSKu4D6kh""crsUVgN/viUCQtZSkyRltELDbSxHwLhyypiZCC4WS3YN/Y2IXDW6S6G9DoOWfHQr9OHBFFJ7JE8Z8h2hHCTEyBXg4UT2rMaEPZW""AGjEMi1ULMmZiZIn2mRvLZli0sBBtt5wtcQuJxw+ebNhYgivrNiidPkrDwHvmzWecQIMBiQJpCIXrFezmD+z0IwB7bE5DUeZyE8""eywYu0LIULou5qQQJHW8YCPRXfeRxB0tHtt2ly+X78jMxBF0ypwXCHjNhJcpPQCIuOmEzQJbOflAOxX3IWFVOp3Q0YiKABpP1wn""iwvIYpEnqwdicn9n6uoQnYpiY5LeEwdgvr3QW+lnaMwxRZeA0AAk4g42o9wNuHBY9bEFTWaPVPHEXGxYWrEc0RJXS1ERY4mkobm""G7hHRWedfgxm0LVoNwzQ3QYzVH3CcSDUdOAYpZN96TETM/zDJE94ESB2nXeJXJ5KHZiOEuDPIVU1TQXOvj0v35cgnHBqgjj5wXf""5313WThixy3gw2ytEXjNMmCxEU+HCPQEIyXwsBsjl8irJEAAEUN3j1lycZnoQRBT0xk+WRxrIpA6je+tgIK0IJ/ZtaOSNPWICaM""lJkmnQNAZ3PCjBHbIeFYp1ZAB+xbzF+vr6+TkS9pV0xBgFSsxLngwpxBJQkjY2Zl2BSXH5ieIIaZAgbW2EyW6noam9m8/sdb4yz""p65z04G50MfgoOi+ccxJf5yUOQLb3/wEmr00PMSAxMCAxIDEgIzE4Cnicc/eNYsgvLknNZwAAEQsDGQ=="
+}
+#@cli osteo_ :
+#@cli : Load osteoblast cell image and cell mask (transmitted light)
+#@cli : $ osteo_
++osteo_ :
+e[^-1] "Load osteoblast nucleus example image and mask"
+l[] { osteo base642img "MiBpbnQxNiBsaXR0bGVfZW5kaWFuCjEgMTYzIDEgMSAjMjIzCnicVdDLSoJRGIXh5cCxgyYJCgUFlVigRZGZpuXhrrwCRzYpqEF""QUVFUUqkdsCztbpo0flv+RSibBzZ78H1r7ZpqCvnIel8hQUQNJrVHTAdM6YgZHTOnUzsnqUsWdUVKt6TVZEV3rOqBNbVYV4eMHt""nQE5t6thfy6lLQq71RDPTY1jsl9SkHBlQCn1T/jN6rY++DMeX/Gb9K+mDHs0cVvXu4t+AcW5Z3ppwN82WdNaO2c7ec/95dmiy7V""0o3ds2SuyZ1QUJnLNi8Tpj1f0zrkLj2iWqXCdUJK/v9A/ovmeIxIDExIDEgMSAjMjcKeJxzZ/BliGJgYMhnKGYoYUgF0vFAHgAp""xAN4"
+decompress_rle. => osteo_
+}
+#@cli follic :
+#@cli : Load follicle cells sample image from thyroid (transmitted light) from internet or local storage.
+#@cli : For frequent usage do "gmic follic o ${_path_rc}follic.pgm" to store the image locally, follic looks there first!
+#@cli : $ follic
++follic :
+if isfile(['{/${_path_rc}follic.pgm}'])
+e[^-1] "Load thyroid follicle nuclei example image from local storage"
+i ${_path_rc}follic.pgm
+else e[^-1] "Load thyroid follicle nuclei example image from http://karo03.bplaced.net/gmic/Repo/follic.pgm"
+i http://karo03.bplaced.net/gmic/Repo/follic.pgm fi => follic
+#@cli follic_ :
+#@cli : Load follicle cells image and masks from thyroid (transmitted light) from internet or local storage.
+#@cli : $ follic_
++follic_ :
+e[^-1] "Load thyroid follicle nuclei and mask example image"
+l[] { follic
+base642img "MiBzaG9ydCBsaXR0bGVfZW5kaWFuCjEgMTMwMyAxIDEgIzE0NDkKeJx1lttP3FUQx4eqvclNYBeW3eW3Ny7+E+qTlydj4oOJ""11Yf9dEnL21Nm4q2RaS0NlqVmGgtjZaAtUUqrYkWUFsuC1SslFYbtRcFCuyyy/6OnzO7lCWNyf5yZr7nnO/MmZkzZ6VACviJ8""LVMrZciUyplplwGzV2SNgXyqPHKGNhjpkomjEceN9XyG98Txi8XTY08aYJyyTjyFPJlE5Kn+X7PG58xEbkJz03GZ/nmTLG4Ji""zPmajMw+uyxsoLpgzZUTlhKsSAb0JOYtPim0xMUqYS3JHNKletkl3s2/VpfDP4ZHmW8PF2OYIcYH0gJwfBA/gWlgwcWTkEnpW""bicNITnfheNdskFHkJTCDrRZTiB7AblZv5UxjrFvW93GuceOTRXQXP/dxnvOcI4k9g5406+RTYjwOnlCskr2lcoS5GeJmsH/d""3EOswuz3YrdMvoBvDrvXzUb5V/d4wD1yFHsLxPequUOu6foKvkrpwJ+EKZFhzuvClWF/J+dehGtEsRKNRxdYij1x4uXCY+P1F""WdNwzGq64o0zseIewb/RrGxZO7WHH6tmA8sxPoNmuPjemY/mAPveviicgLZhdfGLKN1kcUMvHFzp/zFN29qpVsxh3UFmqME2A""nNiYPPYeKWr0c4S74exd6yHoIjpvpxzXWI/NTBWbdKTzOfwu8f8Ct/TYY49ClmfakHi+F/mfRrPTmsawCLaqwH8rB0Ll8DWo8""17G3QmrA1MECcsti97LXx8MFXdQtLq99+1lVpDuKKBTWW/XoHgpyxQTEr92M7g4/DeVgfPmYYh/A5xT6btz7qKo08yLmS2LT3""6gw5XcTHc2AJuG0uv6euEtg+C7ag9y8s31GH88z/DDZPf3CJeQdzPxK3OWzZ3B7VuMSo22Jsx6jTIuIZkX/gSzN/2KyV03BNM""fcCti8yPo+Pkzr65QLjZvz6lbGde3GS+E3A/yX12csZfwHvwHYvtW9z3MH8STiHkDvZ18jYBU8jNmwtv8VZujh3I98wdT+LzT""eJUxyuOeZ2smeEM9i7tQOuOOebx9/tei98xCAqW6iJczn5QbiTjA/BYceH4V1kfATelTEmu9lzBn4rNxGLAfhTyM3w/oRs17Z""ga1DrNip74R/Kya1wZ+s5Qq9w8Ckr72efvYO2b7wH17jKIXArh8mTA15HbwlzhiB4HbjD/Qog14Nb2Q9nVp7FZivyOGeYwZe9""KgfJVQW+1VPDAblBzJpz8lVi3oQ8CsdLjHH2v4iNYerkNfrNDHkaIoZbyLW9v4PwbGW/jcFZxm3au6LEohDcR31EqLM18ip8G""c5xP7Yz+PWA9pEa7uZGem1Ie0U3+W/V/hyQHvK/n70ZarYHzgPa820dVMv7eu89yH75ALtJ6r2H/QfxJ0ktfgPvQa3XtfA71I""+t8zo5hJ1ObNgecgg7x8hTCvxz7HTDnUY+DHcPflu5HdnasP3hCHa+1f5fq3Kvvg1Z+ZS+G7Hb5NP67kRvyWm+ZTnFunbkfmK""zRO9ztV4cxRbAJjiH0ZoI4lOMcR33pySHBfDZxqCQt7hUsSRx+UzjVSpX9I0NY28NubXvjo1pOT3XvrdW9uqb/4n2JC859yhu""+06b9uNK3hWv9keblzbtSVW8Q17tL7aftGmv8cGf7Wd27cfaa/zU1jIWBqvUN2cFi4B5lGda1wcV+4jasT1yOveu2z7zIeez7""+lMHnaAGpxfhcVkF3Zm8/Td8K3otbLnf3RX+/2y7tde7JLrd7CT1atVb8rprv7/qM/pAY1TJqfP6LxHa2WP6va/R7m+R9afGY""1h9p7sUr1G3+Nkzv9p9Aw5X2DubdWDnLOAdSF6mUP8AvIHa3Yi38Cvy+g70K08RRy3s/4a/k3i0xv48je5uoA/25j/k7xPUBO""vM39F/6cUyyvMXcJ+nPf6ZbBJ3vf7wM9zZ7aO/QedweGnMSAxNyAxIDEgIzM5Cnicc2fwZYhiYGBIY8hnyAHCTIZkhniGXAY9""hgKGdCDNwAAAZYIFpg=="
+decompress_rle. => follic_
+}
+#@cli sincos : _w(512), _h(512), _new(0)
+#@cli : Generation of a simple sine cosine testimage
+#@cli : Default value: 'w=h=512', 'new=1'
+#@cli : $ sincos , +shift. 50%,0,0,0,2 +shift.. 0,50%,0,0,2 a c
+#@cli : $ sincos , sincos ,,1 +- f. 'if(i<-1,0,i)'
++sincos :
+skip "${1=512},${2=$1},${3=1}"
+e[^-1] "Sine/cosine testimage ${1-3}!"
+l[] {
+if {"!(!$3 && $_version>=298)"} $1,$2,1,1,'begin(a=pi*w;b=pi*h);i=sin(a/(x+1))*cos(b/(y+1));if(i<=0,i+=1,i);i*255'
+else
+$1,$2,1,1,'begin(a=pi*w;b=pi*h);sin(a/(x+1))*cos(b/(y+1))'
++f. 'sign(i)' eq. 1 +neq. 1 *[1] ... *. ... n[-1,-2] 0,255
+f[-1,-2] 'if(i==255,0,i)' +[-1,-2] rm..
+fi
+=> sincos }
+#@cli kr_spect : _size=512, _force_native(=0)
+#@cli : Generate example spectrum image prepared with 'distance' or if existant external pink executable 'dist' and not forced!
+#@cli : $ kr_spect ,1
++kr_spect : skip "${1=512},${2=0}"
+l[] {
+$1,$1 = 255,{{w}/2},{{h}/2}
+if ((${-kr_is_exec\ pink.dist}==0)||(${-kr_is_exec\ dist}==0)||(${-kr_is_exec\ dist.exe}==0))&&(!$2)
+e[^-1] "Generate spectrum example using external PINK 'dist'"
+pink. dist,0
+else
+e[^-1] "Generate spectrum example using native 'distance'"
+not. distance. 0 fi
+f. (iM-i)/iM*100 [-1]
+f. x
+f. (i/$1-0.5)*200
++transpose.
+*. -1
+a[-1--3] c
+lab2rgb.
+}
+#@cli kr_testimage : _sizex(256),_sizey(_sizex)
+#@cli : Another simple spectrum image for tests
+#@cli : $ kr_testimage ,
++kr_testimage : skip "${1=256},${2=$1}"
+l[] { $1,$2,1,3 fill. "if(c==0,x/w*255,if(c==1,y/h*255,if(c==2,(((x/w*255+y/h*255)-256)^2)^0.5,0)))" }
+#@cli karo_read_bd : name,_verbosity(=0),_append_type(=z) {z|c|x|y},_no_delete(=0)
+#@cli : Read biodata with external bfconvert from OME
+#@cli : bftools directory has to be in the PATH
+#@cli : http://www.openmicroscopy.org/site/support/bio-formats5/users/comlinetools/conversion.html
+#@cli : Default values: 'verbosity=0', 'append_type=z', 'no_delete=0'
++karo_read_bd : skip "${2=0},${3=z},${4=0}" ina=$1
+e[^-1] "Read biodata with OME bftool bfconvert (name=\""$ina"\", verbosity=$2, append_type=$3, no_delete=$4)."
+ona=${-path_tmp}${-file_slash}gmic_bd_$_pid.tif
+if $2<2 postf=" >/dev/null 2>&1" else postf="" fi
+cmd="bfconvert merge overwrite -no-upgrade "${ina}" "${ona}
+if ${-is_windows}==0 cmd=${cmd}${postf} else +e $(cmd) fi
+if isfile(['{/$ina}'])
+if $2!=0 +e $cmd fi x $cmd if $2!=0 fi
+if isfile(['{/$ona}']) l[] {
+i ${ona} if $!>0 if '"$3"'=='z' a z elif '"$3"'=='c' a c elif '"$3"'=='x' a x elif '"$3"'=='y' a y fi fi
+if $4==0 delete $ona else e "File "$ona" not deleted!" fi }
+else e "File "$ona" not found!" fi
+else e "File "$ina" not found!" fi
+#@cli gwyddionread : _filename
+#@cli : Read gwyddion ASCII file and produce image.
+#@cli : For gwyddion files see http://gwyddion.net .
+#@cli : Data beginning after "Start of Data:" are imported
+#@cli : [x-length, y-length, x-offset, y-offset, header lines] are returned in ${}
+#@cli : gwyddion Example header
+#@cli : |# File Format = ASCII
+#@cli : |# Created by Gwyddion 2.48
+#@cli : |# Original file: gwyddion_Example.asc
+#@cli : |# x-pixels = 640
+#@cli : |# y-pixels = 480
+#@cli : |# x-length = 313789.96127244376
+#@cli : |# y-length = 235219.70492879587
+#@cli : |# x-offset = 0
+#@cli : |# y-offset = 0
+#@cli : |# Bit2nm = 1.0
+#@cli : |# Start of Data:
++gwyddionread : skip "${1=gwyddion_Example.asc}"
+e[^-1] "Read gwyddion ASCII text data: "$1
+l[] {
+i raw:"$1",uint8 nm={b}
+s +,{'\n'}
+size_x,size_y,len_x,len_y,offs_x,offs_y,bit2nm,hend=-1
+foreach {
+if same(['{$>,t}'],'"# x-pixels ="',12) rows[$>] 12,100% size_x={{$>,t}}
+elif same(['{$>,t}'],'"# y-pixels ="',12) rows[$>] 12,100% size_y={{$>,t}}
+elif same(['{$>,t}'],'"# x-length ="',12) rows[$>] 12,100% len_x={{$>,t}}
+elif same(['{$>,t}'],'"# y-length ="',12) rows[$>] 12,100% len_y={{$>,t}}
+elif same(['{$>,t}'],'"# x-offset ="',12) rows[$>] 12,100% offs_x={{$>,t}}
+elif same(['{$>,t}'],'"# y-offset ="',12) rows[$>] 12,100% offs_y={{$>,t}}
+elif same(['{$>,t}'],'"# Bit2nm ="',10) rows[$>] 10,100% bit2nm={{$>,t}}
+elif same(['{$>,t}'],'"# Start of Data:"',16) hend=$> break
+fi
+}
+if $hend>0
+rm[0-{$hend+1}] a y
+discard 13
+file_tmp=${-filename_rand}
+if $!>1 o.. raw:$file_tmp,uint8 rm.. i dlm:$file_tmp => $nm
+o.. raw:${file_tmp}_,uint8 rm.. i dlm:${file_tmp}_ => ${nm}_ delete ${file_tmp}_
+else o raw:$file_tmp,uint8 rm i dlm:$file_tmp => $nm fi
+delete $file_tmp
+else rm fi
+u [$len_x,$len_y,$offs_x,$offs_y,$bit2nm]
+}
+#@cli wykoread : _filename
+#@cli : Read Wyko/Bruker/Vision ASCII file and produce image(s)
+#@cli : For Wyko files see also under http://gwyddion.net .
+#@cli : Data preceded by "RAW_DATA" and/or "Intensity" are imported
+#@cli : Wyko Example header
+#@cli : |Wyko ASCII Data File Format 0 1 1
+#@cli : |X Size 640
+#@cli : |Y Size 480
+#@cli : |Block Name Type Length Value
+#@cli : |Wavelength 7 4 71.992500
+#@cli : |Aspect 7 4 1.000000
+#@cli : |Pixel_size 7 4 0.000985
+#@cli : |Magnification 8 8 10.050000
+#@cli : |ScannerSpeed 7 4 2.315832
+#@cli : |RAW_DATA 3 1228800
+#@cli : Default value: 'filename=Wyko_Example.ASC'
++wykoread : skip "${1=Wyko_Example.ASC}"
+e[^-1] "Read Vision surface profilometry OPD text data: "$1
+l[] {
+i raw:"$1",uint8 nm={b}
+s +,{'\n'}
+size_x,size_y,hend,rend=-1
+foreach {
+if same(['{$>,t}'],'"X Size"',6) rows[$>] 6,100% size_x={{$>,t}}
+elif same(['{$>,t}'],'"Y Size"',6) rows[$>] 6,100% size_y={{$>,t}}
+elif same(['{$>,t}'],'"RAW_DATA"',8) hend=$>
+elif same(['{$>,t}'],'"Intensity"',9) rend=$> break
+fi
+}
+if $hend>0
+rm[0-{$hend+1}]
+if $rend>$hend a[0-{$rend-$hend-3}] y rm[1,2] a[1--1] y else a y fi
+replace_str "Bad","nan"
+discard 13
+file_tmp=${-filename_rand}
+if $!>1 o.. raw:$file_tmp,uint8 rm.. i dlm:$file_tmp => $nm
+o.. raw:${file_tmp}_,uint8 rm.. i dlm:${file_tmp}_ => ${nm}_ delete ${file_tmp}_
+else o raw:$file_tmp,uint8 rm i dlm:$file_tmp => $nm
+fi
+delete $file_tmp
+rotate -90,0
+else rm fi
+}
+#@cli karo_dtpread : filename,_bit0
+#@cli : Read dtp image file format
+#@cli : (512 byte header, col[22-24] x row[25-27] byte image)
+#@cli : with _bit0 != 0 bit level 1 is extracted as binary mask
+#@cli : and bit level 1 in the gray image is randomized.
+#@cli : Default value: 'bit0=0'
+#@cli : Ex.: karo_dtpread Images/Beispiele/tra005.cel,1
++karo_dtpread : check isfile(['{/$1}']) check "${2=0}>=0"
+e[^-1] "Read dtp image file from "$1"."
+i raw:$1,uint8
+({@22-24}) x={t} rm.
+({@25-27}) y={t} rm.
+({@0-79}) _dtph={t} rm.
+crop. 0,512,0,{h}
+resize. $x,$y,1,1,-1
+if $2 +and. 1 and.. 254 f.. "i+(u>0.5)" fi
+_wrbytepnk :
+output_pink3d ${1}.pnk
+#@cli output_pink3d : filename,_type
+#@cli : Save selected images as type-coded (P5,P8,P9) PNK files (PINK extension for 3d volumetric images).
+#@cli : \* \ \ \\* FILE ::= 'P5' \\* \ \ \\*
+#@cli : COMMENT ::= '#' char\* newline COMMENT ::= '#' char\* newline
+#@cli : DIMENSIONS ::= \ \ | \ \ \ DIMENSIONS ::= \ \ | \ \ \
+#@cli : RS ::= ascii_coded_integer RS ::= ascii_coded_integer
+#@cli : CS ::= ascii_coded_integer CS ::= ascii_coded_integer
+#@cli : DS ::= ascii_coded_integer DS ::= ascii_coded_integer
+#@cli : VALMAX ::= ascii_coded_integer VALMAX ::= ascii_coded_integer
+#@cli : PIXEL ::= ascii_coded_integer8 PIXEL ::= binary_coded_integer8
+#@cli :
+#@cli : FILE ::= 'P8' \\* \ \ \\* FILE ::= 'P9' \\* \ \ \\*
+#@cli : COMMENT ::= '#' char\* newline COMMENT ::= '#' char\* newline
+#@cli : DIMENSIONS ::= \ \ | \ \ \ DIMENSIONS ::= \ \ | \ \ \
+#@cli : RS ::= ascii_coded_integer RS ::= ascii_coded_integer
+#@cli : CS ::= ascii_coded_integer CS ::= ascii_coded_integer
+#@cli : DS ::= ascii_coded_integer DS ::= ascii_coded_integer
+#@cli : VALMAX ::= ascii_coded_integer [unused] VALMAX ::= ascii_coded_integer [unused]
+#@cli : PIXEL ::= binary_coded_integer32 PIXEL ::= binary_coded_float
+#@cli :
+#@cli : FILE ::= 'PA' \\* \ \ \\* FILE ::= PB \\* \ \ \\*
+#@cli : COMMENT ::= '#' char\* newline COMMENT ::= '#' char\* newline
+#@cli : DIMENSIONS ::= \ \ | \ \ \ DIMENSIONS ::= \ \ 
David Tschumperlé and 
Sébastien Fourey
)
+#@gui :_=link("Go to the donation page","https://libreart.info/en/projects/gmic")
+#@gui :_=separator()
+#@gui :_=note{"\nG'MIC officially collaborates with LILA ("Libre comme l'Art"), a French non-profit organization, which promotes Arts and Artists as well as access to technics and knowledge for everyone.\n LILA collects donations to help developing G'MIC."}
+#@gui :_=note("
Author: David Tschumperlé. Latest Update: 2019/03/13.")
+#@gui About G'MIC:_none_,_none_
+#@gui :_=note("
https://gmic.eu and 
http://cimg.eu
Abigail Gonzalez - FreshLUTs
Alex Jordan - FreshLUTs
30 Cinematic Travel Color
RawTherapee Film Simulation
EditingCorp - 60 Free Hand-Picked LUTs For Cinematic Color Grading
Eric Ellerbrock - FreshLUTs
FilterGrade Free Cinematic LUTs Pack
InAvision - FreshLUTs
J.T. Semple - FreshLUTs
Kyler Holland 10 Free CLUTs
Lutify.Me Free LUTs
Olivio Sarikas - Free LUT Packs
ON1 Free Photography LUTs
Pixelmator Free LUTs
PIXLS.US Contributors
Purple11 - Free LUTs
RocketStock 35 Free LUTs for Color Grading
Shamoon Abbasi - FreshLUTs
SmallHD Free Movie Look Pack
Todd Blankenship - Free LUTs
![Andrea [Photoflow]](https://cimg.eu/img/postcard57.jpg){kind=link}
![Akky [Gimpchat]](https://cimg.eu/img/postcard47.jpg){kind=link}
![](\"../img/gmic_banner.jpg\")
"\n" ![](\"reference_pdf.png\"/)
"\n"![this Wikipedia page](\"https://commons.wikimedia.org/wiki/File:2D_function_pills.png\"){kind=link}
![""image.jpg](\"image.jpg\"){kind=link}