// LScript Image Filter - www.StephenCulley.co.uk
//
// web address: http://www.stephenculley.co.uk
// email address: email@stephenculley.co.uk
/*
LScript Image Filter - Digital Artifacts
Image_DigitalArtifacts.ls
*/
@version 2.5
@warnings
@script image
@name *Digital Artifacts
// Title
sTitle = "*Digital Artifacts";
// Version
sVersion = "v1.0";
iBlockSize = 8;
iLifeRed = 2;
iLifeGreen = 2;
iLifeBlue = 2;
nErrorRed = 0.03;
nErrorGreen = 0.03;
nErrorBlue = 0.03;
bColorSync = false;
aBlock = nil; // Block
// Control
ctrl_pr0,ctrl_c0,ctrl_c1,ctrl_c2,ctrl_c3,ctrl_c4,ctrl_c5,ctrl_c6,ctrl_c7;
create
{
setdesc(sTitle);
}
process: ifo
{
// Error
if(ifo.width < 1 || ifo.height < 1){return;}
// Variable
iBlock = 1;
iBlockMultiplier = 1 / (iBlockSize * iBlockSize);
iGridX = floor(ifo.width / iBlockSize);
iGridY = floor(ifo.height / iBlockSize);
_nErrorRed = nErrorRed * (iBlockSize * iBlockSize);
_nErrorGreen = nErrorGreen * (iBlockSize * iBlockSize);
_nErrorBlue = nErrorBlue * (iBlockSize * iBlockSize);
// Init Block
if(aBlock.size() <> (iGridX * iGridY) || ifo.frame == 0)
{
for(b = 1; b <= (iGridX * iGridY); ++b)
{
aBlock[b,1] = 0; // Red Count
aBlock[b,2] = 0; // Green Count
aBlock[b,3] = 0; // Blue Count
aBlock[b,4] = 0.0; // Red
aBlock[b,5] = 0.0; // Green
aBlock[b,6] = 0.0; // Blue
}
}
iProgress = iGridX * iGridY;
if(runningUnder() != SCREAMERNET) moninit(iProgress);
for(gy = 0;gy <= iGridY - 1; ++gy)
{
for(gx = 0;gx <= iGridX - 1; ++gx)
{
_gx = gx * iBlockSize;
_gy = gy * iBlockSize;
r = 0;
g = 0;
b = 0;
// Average
for(i = 1;i <= iBlockSize; ++i)
{
for(j = 1;j <= iBlockSize; ++j)
{
r += ifo.red[j + _gx,i + _gy]; // Red
g += ifo.green[j + _gx,i + _gy]; // Green
b += ifo.blue[j + _gx,i + _gy]; // Blue
}
}
r *= iBlockMultiplier;
g *= iBlockMultiplier;
b *= iBlockMultiplier;
// Difference
rd = 0;
gd = 0;
bd = 0;
for(i = 1;i <= iBlockSize; ++i)
{
for(j = 1;j <= iBlockSize; ++j)
{
rd += abs(ifo.red[j + _gx,i + _gy] - r);
gd += abs(ifo.green[j + _gx,i + _gy] - g);
bd += abs(ifo.blue[j + _gx,i + _gy] - b);
}
}
// Update Block
if(bColorSync)
{
if((aBlock[iBlock,1] <= 0 && rd < _nErrorRed) ||
(aBlock[iBlock,2] <= 0 && gd < _nErrorGreen) ||
(aBlock[iBlock,3] <= 0 && bd < _nErrorBlue))
{
c = random(1,3);
aBlock[iBlock,1] = c;
aBlock[iBlock,2] = c;
aBlock[iBlock,3] = c;
}
aBlock[iBlock,4] = r;
aBlock[iBlock,5] = g;
aBlock[iBlock,6] = b;
}
else
{
if(aBlock[iBlock,1] <= 0 && rd < _nErrorRed) // Red
{
aBlock[iBlock,1] = random(1,iLifeRed);
aBlock[iBlock,4] = r;
}
if(aBlock[iBlock,2] <= 0 && gd < _nErrorGreen) // Green
{
aBlock[iBlock,2] = random(1,iLifeGreen);
aBlock[iBlock,5] = g;
}
if(aBlock[iBlock,3] <= 0 && bd < _nErrorBlue) // Blue
{
aBlock[iBlock,3] = random(1,iLifeBlue);
aBlock[iBlock,6] = b;
}
}
// Read Block
rd = aBlock[iBlock,1];
--aBlock[iBlock,1];
r = aBlock[iBlock,4];
gd = aBlock[iBlock,2];
--aBlock[iBlock,2];
g = aBlock[iBlock,5];
bd = aBlock[iBlock,3];
--aBlock[iBlock,3];
b = aBlock[iBlock,6];
// Draw Block
for(i = 1;i <= iBlockSize; ++i)
{
for(j = 1;j <= iBlockSize; ++j)
{
if(rd > 0){ifo.red[j + _gx,i + _gy] = r;}
if(gd > 0){ifo.green[j + _gx,i + _gy] = g;}
if(bd > 0){ifo.blue[j + _gx,i + _gy] = b;}
}
}
++iBlock;
if(runningUnder() != SCREAMERNET) if(monstep()) return;
}
}
}
// CLIP
clip: min,max,n
{
if(n < min) n = min;
if(n > max) n = max;
return(n);
}
load: what,io
{
if(what == SCENEMODE)
{
bColorSync = io.read().asInt();
iBlockSize = io.read().asInt();
iLifeRed = io.read().asInt();
iLifeGreen = io.read().asInt();
iLifeBlue = io.read().asInt();
nErrorRed = io.read().asNum();
nErrorGreen = io.read().asNum();
nErrorBlue = io.read().asNum();
}
}
save: what,io
{
if(what == SCENEMODE)
{
io.writeln(bColorSync);
io.writeln(iBlockSize);
io.writeln(iLifeRed);
io.writeln(iLifeGreen);
io.writeln(iLifeBlue);
io.writeln(nErrorRed);
io.writeln(nErrorGreen);
io.writeln(nErrorBlue);
}
}
options
{
reqbegin(sTitle + " " + sVersion);
// Control
ctrl_pr0 = ctlpopup("Preset",1, @"Low",
"Medium",
"High",
"Extreme"@);
ctlsep();
ctrl_c0 = ctlinteger("Block Size",iBlockSize);
ctrl_c1 = ctlcheckbox("Color Sync",bColorSync);
ctrl_c2 = ctlinteger("Life Red",iLifeRed);
ctrl_c3 = ctlinteger(" Green",iLifeGreen);
ctrl_c4 = ctlinteger(" Blue",iLifeBlue);
ctrl_c5 = ctlpercent("Error Red",nErrorRed);
ctrl_c6 = ctlpercent(" Green",nErrorGreen);
ctrl_c7 = ctlpercent(" Blue",nErrorBlue);
// Developer
ctlsep();
ctrl_dev0 = ctltext("","developer: Stephen Culley","http://www.stephenculley.co.uk");
// Refresh
ctlrefresh(ctrl_pr0,"refresh_preset"); // Preset
ctlrefresh(ctrl_c0,"refresh_c0"); // Block Size
ctlrefresh(ctrl_c2,"refresh_c2"); // Life Red
ctlrefresh(ctrl_c3,"refresh_c3"); // Life Green
ctlrefresh(ctrl_c4,"refresh_c4"); // Life Blue
ctlrefresh(ctrl_c5,"refresh_c5"); // Error Red
ctlrefresh(ctrl_c6,"refresh_c6"); // Error Green
ctlrefresh(ctrl_c7,"refresh_c7"); // Error Blue
return if !reqpost();
iBlockSize = max(1,getvalue(ctrl_c0));
bColorSync = getvalue(ctrl_c1);
iLifeRed = max(1,getvalue(ctrl_c2));
iLifeGreen = max(1,getvalue(ctrl_c3));
iLifeBlue = max(1,getvalue(ctrl_c4));
iErroRed = max(0.0,getvalue(ctrl_c5));
iErrorGreen = max(0.0,getvalue(ctrl_c6));
iErrorBlue = max(0.0,getvalue(ctrl_c7));
reqend();
}
refresh_preset:value
{
if(value == 1) // Low
{
setvalue(ctrl_c0,8); // Block Size
setvalue(ctrl_c1,0); // Sync Color
setvalue(ctrl_c2,1); // Life Red
setvalue(ctrl_c3,1); // Life Green
setvalue(ctrl_c4,1); // Life Blue
setvalue(ctrl_c5,0.02); // Error Red
setvalue(ctrl_c6,0.02); // Error Green
setvalue(ctrl_c7,0.02); // Error Blue
}
if(value == 2) // Medium
{
setvalue(ctrl_c0,8); // Block Size
setvalue(ctrl_c1,0); // Sync Color
setvalue(ctrl_c2,2); // Life Red
setvalue(ctrl_c3,2); // Life Green
setvalue(ctrl_c4,2); // Life Blue
setvalue(ctrl_c5,0.02); // Error Red
setvalue(ctrl_c6,0.03); // Error Green
setvalue(ctrl_c7,0.04); // Error Blue
}
if(value == 3) // High
{
setvalue(ctrl_c0,8); // Block Size
setvalue(ctrl_c1,0); // Sync Color
setvalue(ctrl_c2,3); // Life Red
setvalue(ctrl_c3,3); // Life Green
setvalue(ctrl_c4,3); // Life Blue
setvalue(ctrl_c5,0.02); // Error Red
setvalue(ctrl_c6,0.04); // Error Green
setvalue(ctrl_c7,0.06); // Error Blue
}
if(value == 4) // Extreme
{
setvalue(ctrl_c0,8); // Block Size
setvalue(ctrl_c1,0); // Sync Color
setvalue(ctrl_c2,9); // Life Red
setvalue(ctrl_c3,9); // Life Green
setvalue(ctrl_c4,9); // Life Blue
setvalue(ctrl_c5,0.1); // Error Red
setvalue(ctrl_c6,0.1); // Error Green
setvalue(ctrl_c7,0.1); // Error Blue
}
}
refresh_c0:value // Block Size
{
iBlockSize = max(1,value);
setvalue(ctrl_c0,iBlockSize);
}
refresh_c2:value // Life Red
{
iLifeRed = max(1,value);
setvalue(ctrl_c2,iLifeRed);
}
refresh_c3:value // Life Green
{
iLifeGreen = max(1,value);
setvalue(ctrl_c3,iLifeGreen);
}
refresh_c4:value // Life Blue
{
iLifeBlue = max(1,value);
setvalue(ctrl_c4,iLifeBlue);
}
refresh_c5:value // Error Red
{
nErrorRed = clip(0.0,1.0,value);
setvalue(ctrl_c5,nErrorRed);
}
refresh_c6:value // Error Green
{
nErrorGreen = clip(0.0,1.0,value);
setvalue(ctrl_c6,nErrorGreen);
}
refresh_c7:value // Error Blue
{
nErrorBlue = clip(0.0,1.0,value);
setvalue(ctrl_c7,nErrorBlue);
}
