TR's Croquis V 1.4 (Dwarf Horde Collaboration)

[TechnoRobbo 1,167]

TechnoRobbo's Croquis

(Dwarf Horde Collaboration)

​Quick Sketch Filter

3.5 compatible

v1.2 Slider and angle control by Red Ochre

v1.3 RetainColor and Invert Controls by BoltBait

v1.4 Pastel Effect by BoltBait

Menu: Effects->Artistic

CodeLab Source Code (it's a divide algorithm)

Hidden Content:

// Submenu: Artistic
// Name: TRs Croquis
// Title: TRs Croquis - v1.4
// Author: TechnoRobbo & Red Ochre & BoltBait
// URL: http://www.technorobbo.com
#region UICode
int Amount1 = 210; // [0,225] Contrast
int Amount2 = 0; // [0,255] Clip Lo
int Amount3 = 222; // [129,255] Clip Hi
double Amount4 = 0.5; // [0.1,10] Distance
double Amount5 = 45; // [-180,180] Angle
bool Amount6 = false; // [0,1] Retain Color
bool Amount7 = false; // [0,1] Invert
byte Amount8 = 0; // [1] Pastel Action|None|Invert|Rail
#endregion

private UnaryPixelOps.Invert invertOp = new UnaryPixelOps.Invert();

//private BinaryPixelOp multiplyOp = LayerBlendModeUtil.CreateCompositionOp(LayerBlendMode.Multiply); //for PDN 4
private UserBlendOp multiplyOp = new UserBlendOps.MultiplyBlendOp(); // Multiply for CodeLab 1.8 and Paint.NET 3.5x

void Render(Surface dst, Surface src, Rectangle rect)
{
    ColorBgra CP;
    Color rgb;
    double k;
    double l;
    float offX = (float)(Amount4 * Math.Cos(Amount5 * Math.PI / 180));
    float offY = (float)(Amount4 * Math.Sin(Amount5 * Math.PI / 180));
    
    for (int y = rect.Top; y < rect.Bottom; y++)
    {
        if (IsCancelRequested) return;
        for (int x = rect.Left; x < rect.Right; x++)
        {
            CP = src.GetBilinearSampleWrapped((float)x + offX,(float)y + offY);

            rgb = CP.ToColor();
            l = rgb.GetBrightness();

            CP = src[x,y];
            rgb = CP.ToColor();
            k = rgb.GetBrightness();
            k = (k==0)? 0: l/k;
            k *=k;
            k *=255;
            k = (k>255)?255:k;
            double inverse = 255 - Amount1;
            k -= Amount1;
            k = (k<0) ? 0:k;
            k= k * 255 / inverse;
            k =(k < Amount2) ? 0: (k > Amount3) ? 255:k;

            dst[x,y] = ColorBgra.FromBgra((byte)k , (byte)k ,(byte)k, CP.A);
            
            if (Amount7)
            {
                dst[x,y] = invertOp.Apply(dst[x,y]);
            }
            
            if (Amount6)
            {
                dst[x,y] = multiplyOp.Apply(dst[x,y],src[x,y]);
            }
            
            if (Amount8!=0)
            {
                ColorBgra CurrentPixel = dst[x,y];

                PaintDotNet.HsvColor hsv = PaintDotNet.HsvColor.FromColor(CurrentPixel.ToColor());
                int H = hsv.Hue;
                int S = hsv.Saturation;
                int V = hsv.Value;
                byte A = CurrentPixel.A;

                switch (Amount8)
                {
                    case 1: V = 100-V;
                        break;
                    case 2: V = 100;
                        break;
                }

                CurrentPixel = ColorBgra.FromColor(new PaintDotNet.HsvColor(H,S,V).ToColor());
                CurrentPixel.A = A;

                dst[x,y] = CurrentPixel;
            }
        }
    }
}

TRsCroquis.zip

[Red ochre 1,635]

Great code! useful effect! Thank you!

[TechnoRobbo 1,167]

Version 1.1 ready for Download

v1.1 Slider and angle control by Red Ochre

[TechnoRobbo 1,167]

V1.2 Ready - Bug Fix

[ReMake 1,018]

Wonderful effect and elegant code . Thank you.

[nitenurse79 719]

Thank you Mister Techno Robbo

[TechnoRobbo 1,167]

Thank you ReMake

 

and Thank you Miss Nite Nurse 79.

[Eli 1,130]

Hello TR and thank you.

 

I just tried the filter and somehow I can not get my charcoal to draw like yours. My sketch is very pixelated even when I use the same setting of your video. I guess I need to sharpen the tip of my pencil.

[TechnoRobbo 1,167]

Eli reduce the distance to .5

[Eli 1,130]

I just did it but it did not change much.

- - - - - - - - - - - - -- 

EDIT: I adjusted the levels (more black and white) of the picture before applying the filter and this is what I obtained:

Edited June 3, 2015 by Eli

[Seerose 4,275]

  Techno Robbo! Very nice plugin. Thank you for your effort. 

I have 2 version, with or without color. I hope have done right.   

 

Edited January 24, 2020 by Seerose

[Red ochre 1,635]

Eli - The first one looks like it is highlighting the 'compressed' areas of a jpeg perhaps?

... but always keep your pencil sharp anyway!

[TechnoRobbo 1,167]

Yup - jpeg's have patterned compression artifacts that get highlighted by plugins that enhance edges.

[Eli 1,130]

Thanks Red and TR.

 

Is there a method to reduce those artifacts? If so could that be included in the filter?

[TechnoRobbo 1,167]

Version 1.3 Ready for Download 

v1.3 Retain Color and Invert Controls by BoltBait

 

(a Dwarf Horde Collaboration)

 

So go to one of BoltBaits Post and give him a +1

[BoltBait 3,276]

So go to one of BoltBaits Post and give him a +1

 

Haha! Thanks!

Here's something to try:

After running the plugin with both check boxes checked, you should get something that looks like colored chalk on an old blackboard. Then run this CodeLab script:

 

// Name: HSV Invert
// Submenu: Color
// Author: BoltBait
// URL: http://www.BoltBait.com
// Keywords: hsv|invert|color
// Title: BoltBait's HSV Quick Invert - v1.0
// Desc: Quickly invert H, S, or V in the HSV color space.
#region UICode
byte Amount1 = 0; // HSV Editing|Invert V|Invert S|Invert H|Maximize S|Maximize V
#endregion

void Render(Surface dst, Surface src, Rectangle rect)
{
    for (int y = rect.Top; y < rect.Bottom; y++)
    {
        if (IsCancelRequested) return;
        for (int x = rect.Left; x < rect.Right; x++)
        {
            ColorBgra CurrentPixel = src[x,y];

            HsvColor hsv = HsvColor.FromColor(CurrentPixel.ToColor());
            int H = hsv.Hue;
            int S = hsv.Saturation;
            int V = hsv.Value;
            byte A = CurrentPixel.A;

            switch (Amount1)
            {
                case 0: V = 100-V;
                    break;
                case 1: S = 100-S;
                    break;
                case 2: H += 180;
                    if (H>360) H -= 360;
                    break;
                case 3: S = 100;
                    break;
                case 4: V = 100;
                    break;
            }

            CurrentPixel = ColorBgra.FromColor(new HsvColor(H,S,V).ToColor());
            CurrentPixel.A = A;

            dst[x,y] = CurrentPixel;
        }
    }
}

[Eli 1,130]

Hello BoltBait,

 

Will there be a dll for the script? (I do not understand code)   . 

[ReMake 1,018]

...Will there be a dll for the script? (I do not understand code)    . 

 

Today is not 1'st April, but still fun .

 

...So go to one of BoltBaits Post and give him a +1

[BoltBait 3,276]

No need to understand code in order to copy-and-paste that block of code into CodeLab.

[Eli 1,130]

Thanks BoltBait,

 

It really made me sweat the idea of using CodeLAb but I was so curious about the outcome of the script that I decided to try it . So this is the outcome :

I added a little gray on another layer.

 

Postedit:

 

I am sorry TR, I just realized that charcoal is... BLACK. 

Edited June 5, 2015 by Eli

[TechnoRobbo 1,167]

 

 

I am sorry TR, I just realized that charcoal is... BLACK

At it's base this plugin has a charcoal sketch like result. But that was the outcome not the intent. I changed the description since it's obviously a tool like any other with no real rules on how you eventually use it.

[Eli 1,130]

It is funny how things evolve.

[TechnoRobbo 1,167]

Version 1.4 Incorporates part of not all BoltBait's Pastel Effect

for the full effect use BoltBait's Plugin.

Ready for Download

[Maximilian 1,927]

 

I've found it to be quite convenient for producing line art of basic 3D models, like below

 

 

[Seerose 4,275]

 

 

Maximilian! Very pretty presentation.